User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:comcpfp

Common COMCPFP

4 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.comcpfp +++|          CTEXT  COMCPFP - PERMANENT FILE UTILITY PRESET ROUTINES.
00002  M01S00002.comcpfp +++|          SPACE  4,10
00003  M01S00003.comcpfp +++|          IF     -DEF,QUAL$,1
00004  M01S00004.comcpfp +++|          QUAL   COMCPFP
00005  M01S00005.comcpfp +++|          BASE   D
Line S00006 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00006  M02S00006.281l803 ---|*         COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
00007  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00008  M01S00007.comcpfp +++|          SPACE  4,10
00009  M01S00008.comcpfp +++|***       PFP - PERMANENT FILE UTILITY PRESET ROUTINES.
00010  M01S00009.comcpfp +++|*         G. S. YODER.    86/08/15.
00011  M01S00001.286l859 +++|          TITLE  COMCPFP - OUTPUT FILE ROUTINES.
00012  M01S00002.286l859 +++| DVS      SPACE  4,10
00013  M01S00003.286l859 +++|**        DVS - WRITE DEVICE STATUS SUBHEADER.
00014  M01S00004.286l859 +++|*
00015  M01S00005.286l859 +++|*         ENTRY  (X2) = OUTPUT FILE FET ADDRESS.
00016  M01S00006.286l859 +++|*
00017  M01S00007.286l859 +++|*         EXIT   TO SHR.
00018  M01S00008.286l859 +++|*                (X6) = SUBHEADER LINE COUNT.
00019  M01S00009.286l859 +++|*
00020  M01S00010.286l859 +++|*         MACROS WRITEH.
00021  M01S00011.286l859 +++|
00022  M01S00012.286l859 +++|
00023  M01S00013.286l859 +++| DVS      BSS    0           ENTRY
00024  M01S00014.286l859 +++|          WRITEH X2,DVSA,9   WRITE DEVICE STATUS SUBHEADER
00025  M01S00015.286l859 +++|          WRITEH X2,DVSB,9
00026  M01S00016.286l859 +++|          WRITEH X2,BLAN,1
00027  M01S00017.286l859 +++|          SX6    3           SET LINE COUNT
00028  M01S00018.286l859 +++|          EQ     SHR         RETURN
00029  M01S00019.286l859 +++| FDS      SPACE  4,15
00030  M01S00020.286l859 +++|**        FDS - FORMAT DEVICE STATUS ENTRY.
00031  M01S00021.286l859 +++|*
00032  M01S00022.286l859 +++|*         ENTRY  (A5) = ADDRESS OF ENTRY.
00033  M01S00023.286l859 +++|*                (X5) = FIRST WORD OF ENTRY.
00034  M01S00024.286l859 +++|*
00035  M01S00025.286l859 +++|*         EXIT   DEVICE STATUS WRITTEN TO OUTPUT FILE.
00036  M01S00026.286l859 +++|*
00037  M01S00027.286l859 +++|*         USES   X - 0, 1, 2, 5, 6.
00038  M01S00028.286l859 +++|*                A - 5, 6.
00039  M01S00029.286l859 +++|*
00040  M01S00030.286l859 +++|*         CALLS  ALN, CDD, COD, ZTB.
00041  M01S00031.286l859 +++|*
00042  M01S00032.286l859 +++|*         MACROS WRITEH.
00043  M01S00033.286l859 +++|
00044  M01S00034.286l859 +++|
00045  M01S00035.286l859 +++| FDS      SUBR               ENTRY/EXIT
00046  M01S00036.286l859 +++|          MX0    -6
00047  M01S00037.286l859 +++|          BX1    -X0*X5
00048  M01S00038.286l859 +++|          RJ     COD         CONVERT DEVICE NUMBER
00049  M01S00039.286l859 +++|          MX0    12
00050  M01S00040.286l859 +++|          SA6    COBF        SET DEVICE NUMBER
00051  M01S00041.286l859 +++|          BX1    X0*X5
00052  M01S00042.286l859 +++|          LX1    12
00053  M01S00043.286l859 +++|          RJ     ZTB         BLANK FILL DEVICE TYPE
00054  M01S00044.286l859 +++|          LX5    -6
00055  M01S00045.286l859 +++|          SA6    COBF+1      SET DEVICE TYPE
00056  M01S00046.286l859 +++|          MX0    -3
00057  M01S00047.286l859 +++|          BX1    -X0*X5
00058  M01S00048.286l859 +++|          SX1    X1+B1
00059  M01S00049.286l859 +++|          RJ     CDD         CONVERT UNIT COUNT
00060  M01S00050.286l859 +++|          LX5    -6
00061  M01S00051.286l859 +++|          SA6    COBF+2      SET UNIT COUNT
00062  M01S00052.286l859 +++|          MX0    -12
00063  M01S00053.286l859 +++|          BX1    -X0*X5
00064  M01S00054.286l859 +++|          RJ     CDD         CONVERT TRACK COUNT
00065  M01S00055.286l859 +++|          LX5    -12
00066  M01S00056.286l859 +++|          SA6    COBF+6      SET TRACK COUNT
00067  M01S00057.286l859 +++|          BX1    -X0*X5
00068  M01S00058.286l859 +++|          RJ     CDD         CONVERT TRACKS AVAILABLE
00069  M01S00059.286l859 +++|          LX5    -12
00070  M01S00060.286l859 +++|          SA6    COBF+7      SET TRACKS AVAILABLE
00071  M01S00061.286l859 +++|          BX1    -X0*X5
00072  M01S00062.286l859 +++|          RJ     CDD         CONVERT TRACK SIZE
00073  M01S00063.286l859 +++|          SA6    COBF+8
00074  M01S00064.286l859 +++|          SA5    A5+B1
00075  M01S00065.286l859 +++|          MX0    -8
00076  M01S00066.286l859 +++|          BX1    -X0*X5
00077  M01S00067.286l859 +++|          RJ     COD         CONVERT DEVICE MASK
00078  M01S00068.286l859 +++|          LX5    -8
00079  M01S00069.286l859 +++|          SA6    COBF+3      SET DEVICE MASK
00080  M01S00070.286l859 +++|          BX1    -X0*X5
00081  M01S00071.286l859 +++|          RJ     COD         CONVERT DIRECT ACCESS MASK
00082  M01S00072.286l859 +++|          LX5    -16
00083  M01S00073.286l859 +++|          SA6    COBF+4      SET DIRECT ACCESS MASK
00084  M01S00074.286l859 +++|          MX0    -9
00085  M01S00075.286l859 +++|          BX1    -X0*X5
00086  M01S00076.286l859 +++|          RJ     CDD         CONVERT NUMBER OF CATALOG TRACKS
00087  M01S00077.286l859 +++|          SA6    COBF+5      SET NUMBER OF CATALOG TRACKS
00088  M01S00078.286l859 +++|          SX6    1           SET LINE COUNT
00089  M01S00079.286l859 +++|          RJ     ALN         ALLOCATE LINES
00090  M01S00080.286l859 +++|          WRITEH O,COBF,9
00091  M01S00081.286l859 +++|          EQ     FDSX        RETURN
Line S00082 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00092  M02S00082.ns2790  ---| IOF      SPACE  4,20
00093  M01S00001.ns2790  +++| IOF      SPACE  4,15
00094  M01S00083.286l859 +++|**        IOF - INITIALIZE OUTPUT FILES.
Line S00084 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00095  M02S00084.ns2790  ---|*
Line S00085 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00096  M02S00085.ns2790  ---|*         ENTRY  (OFUC) = UTILITY CODE IF *PFLIST* UTILITY.
00097  M01S00086.286l859 +++|*
00098  M01S00087.286l859 +++|*         EXIT   OUTPUT AND SUMMARY FILE INITIALIZED.
00099  M01S00088.286l859 +++|*                OUTPUT FILE NAME SET IN FET TO FLAG OUTPUT FILE
00100  M01S00089.286l859 +++|*                  INITIALIZED.
Line S00090 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00101  M02S00090.ns2790  ---|*                (UCOF) .EQ. 1 IF UNSORTED CIR LIST TO BE OUTPUT.
Line S00091 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00102  M02S00091.ns2790  ---|*                (UFOF) .EQ. 1 IF UNSORTED FILE LIST TO BE OUTPUT.
Line S00092 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00103  M02S00092.ns2790  ---|*                (CISF) .EQ. 1 IF CIR ENTRIES SORT REQUIRED.
Line S00093 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00104  M02S00093.ns2790  ---|*                (CASF) .EQ. 1 IF CATALOG ENTRIES SORT REQUIRED.
00105  M01S00094.286l859 +++|*
Line S00095 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00106  M02S00095.ns2790  ---|*         USES   X - 1, 2, 3, 4, 5, 6, 7.
Line S00096 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00096.ns2790  ---|*                A - 1, 2, 3, 4, 5, 6.
00108  M01S00002.ns2790  +++|*         USES   X - 1, 2, 5, 6.
00109  M01S00003.ns2790  +++|*                A - 1, 2, 5, 6.
00110  M01S00097.286l859 +++|*
Line S00098 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2793
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00098.ns2793  ---|*         CALLS  PFO, SPT, WIS.
00112  M01S00001.ns2793  +++|*         CALLS  PFO, SDT, SPT, WIS.
00113  M01S00099.286l859 +++|*
Line S00100 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00114  M02S00100.ns2790  ---|*         MACROS GETPP, SETFET, SETFS, WRITEC.
00115  M01S00004.ns2790  +++|*         MACROS GETPP, SETFET, SETFS, WRITEO.
00116  M01S00101.286l859 +++|
00117  M01S00102.286l859 +++|
00118  M01S00103.286l859 +++| IOF      SUBR               ENTRY/EXIT
00119  M01S00104.286l859 +++|
00120  M01S00105.286l859 +++|*         INITIALIZE OUTPUT FILE.  THE FILE NAME IS SET IN THE FET LAST
00121  M01S00106.286l859 +++|*         TO INDICATE OUTPUT FILE INITIALIZATION COMPLETE TO ERROR
00122  M01S00107.286l859 +++|*         ROUTINES THAT MAY BE CALLED PRIOR TO *IOF*.
00123  M01S00108.286l859 +++|
00124  M01S00109.286l859 +++|          SA1    CPAR+/COMSPFS/CPLB
00125  M01S00110.286l859 +++|          NZ     X1,IOF1     IF OUTPUT FILE SELECTED
00126  M01S00111.286l859 +++|          SX6    B0+         CLEAR ALL OUTPUT OPTIONS
00127  M01S00112.286l859 +++|          SA6    CPAR+/COMSPFS/CPLO
00128  M01S00113.286l859 +++|          SA6    O
Line S00114 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00114.ns2790  ---|          EQ     IOF6        PROCESS SUMMARY FILE
00130  M01S00005.ns2790  +++|          EQ     IOF2        PROCESS SUMMARY FILE
00131  M01S00115.286l859 +++|
00132  M01S00116.286l859 +++| IOF1     RJ     SPT         SET UP OUTPUT FILE PAGE TITLE
00133  M01S00117.286l859 +++|          GETPP  IOFA,PGLL,IOFB  GET PAGE PARAMETERS
00134  M01S00118.286l859 +++|          SA1    CPAR+/COMSPFS/CPLB
00135  M01S00119.286l859 +++|          SA2    O
00136  M01S00120.286l859 +++|          MX6    -18
00137  M01S00121.286l859 +++|          BX6    -X6*X2
00138  M01S00122.286l859 +++|          BX6    X6+X1
00139  M01S00123.286l859 +++|          SA6    A2          SET FILE NAME IN FET
00140  M01S00124.286l859 +++|          SA1    /COMSPFS/UTLN  GET UTILITY NAME
00141  M01S00125.286l859 +++|          SX6    1R*
00142  M01S00126.286l859 +++|          BX6    X1+X6
00143  M01S00127.286l859 +++|          LX6    -6
00144  M01S00128.286l859 +++|          WRITEO O           WRITE RECORD NAME
00145  M01S00129.286l859 +++|          WRITEC O,IOFB      WRITE FORMAT EFFECTOR
00146  M01S00130.286l859 +++|          SETFS  O,0         CLEAR SPECIAL FILE STATUS
00147  M01S00002.ns2793  +++|          RJ     SDT         SET DEFAULT PAGE TITLE
00148  M01S00131.286l859 +++|
Line S00132 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00149  M02S00132.ns2790  ---|*         PROCESS IMLICIT *P* OR *U* LIST OPTION.
00150  M01S00006.ns2790  +++|*         INITIALIZE SUMMARY FILE.
00151  M01S00133.286l859 +++|
Line S00134 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00134.ns2790  ---|          SA1    CPAR+/COMSPFS/CPLO
Line S00135 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00153  M02S00135.ns2790  ---|          MX7    2
Line S00136 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00154  M02S00136.ns2790  ---|          BX6    X7*X1
Line S00137 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00155  M02S00137.ns2790  ---|          ZR     X6,IOF5     IF NOT *T* OR *C* LIST OPTION
Line S00138 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00156  M02S00138.ns2790  ---|          LX7    -4
Line S00139 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00157  M02S00139.ns2790  ---|          BX7    X7*X1
Line S00140 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00140.ns2790  ---|          NZ     X7,IOF3     IF *P* OR *U* LIST OPTION SELECTED
Line S00141 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00159  M02S00141.ns2790  ---|          SA2    OFUC
Line S00142 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00160  M02S00142.ns2790  ---|          SX6    B1
Line S00143 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00161  M02S00143.ns2790  ---|          LX6    54-0        *U* LIST OPTION
Line S00144 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00162  M02S00144.ns2790  ---|          SX3    X2-/COMSPFS/CAUT
Line S00145 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00163  M02S00145.ns2790  ---|          ZR     X3,IOF2     IF *PFCAT*
Line S00146 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00164  M02S00146.ns2790  ---|          SX3    X2-/COMSPFS/RLUT
Line S00147 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00165  M02S00147.ns2790  ---|          ZR     X3,IOF2     IF *PFREL*
Line S00148 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00166  M02S00148.ns2790  ---|          LX6    55-54       *P* LIST OPTION
Line S00149 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00167  M02S00149.ns2790  ---| IOF2     BX6    X1+X6       SET *U* OR *P* LIST OPTION
Line S00150 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00168  M02S00150.ns2790  ---|          SA6    CPAR+/COMSPFS/CPLO
Line S00151 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00169  M02S00151.ns2790  ---|
Line S00152 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00170  M02S00152.ns2790  ---|*         INITIALIZE UNSORTED OUTPUT CONTROL FLAGS.
Line S00153 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00171  M02S00153.ns2790  ---|
Line S00154 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00154.ns2790  ---| IOF3     SA1    CPAR+/COMSPFS/CPLO
Line S00155 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00155.ns2790  ---|          SX6    B1
Line S00156 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00156.ns2790  ---|          LX1    59-55
Line S00157 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00157.ns2790  ---|          PL     X1,IOF5     IF NOT *P* LIST OPTION
Line S00158 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00158.ns2790  ---|          LX1    59-59-59+55
Line S00159 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00159.ns2790  ---|          PL     X1,IOF4     IF NOT *T* LIST OPTION
Line S00160 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00160.ns2790  ---|          SA6    UFOF        SET UNSORTED FILE LIST OUTPUT FLAG
Line S00161 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00161.ns2790  ---| IOF4     LX1    59-58-59+59
Line S00162 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00162.ns2790  ---|          PL     X1,IOF5     IF NOT *C* LIST OPTION
Line S00163 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00163.ns2790  ---|          SA6    UCOF        SET UNSORTED CIR LIST FLAG
Line S00164 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00164.ns2790  ---|
Line S00165 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00165.ns2790  ---|*         INITIALIZE SORTED OUTPUT CONTROL FLAGS.
Line S00166 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00166.ns2790  ---|
Line S00167 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00167.ns2790  ---| IOF5     SA1    CPAR+/COMSPFS/CPLO
Line S00168 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00168.ns2790  ---|          SX6    1
Line S00169 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00169.ns2790  ---|          LX1    0-54
Line S00170 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00170.ns2790  ---|          BX2    X6*X1       *U* LIST OPTION
Line S00171 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00171.ns2790  ---|          LX1    0-58-0+54
Line S00172 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00172.ns2790  ---|          BX7    X1*X6       *C* LIST OPTION
Line S00173 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00173.ns2790  ---|          BX7    X7*X2       *U* .AND. *C*
Line S00174 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00174.ns2790  ---|          SA7    CISF        INITIALIZE CIR SORT FLAG
Line S00175 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00175.ns2790  ---|          LX1    0-59-0+58
Line S00176 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00176.ns2790  ---|          BX7    X1*X6       *T* LIST OPTION
Line S00177 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00177.ns2790  ---|          LX1    0-56-0+59
Line S00178 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00178.ns2790  ---|          BX7    X7*X2       *U* .AND. *T*
Line S00179 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00179.ns2790  ---|          BX1    X6*X1       *S* LIST OPTION
Line S00180 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00180.ns2790  ---|          BX7    X7+X1       (*U* .AND. *T*) .OR. *S*
Line S00181 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00181.ns2790  ---|          SA7    CASF        INITIALIZE CATALOG SORT FLAG
Line S00182 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00182.ns2790  ---|
Line S00183 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00183.ns2790  ---|*         INITIALIZE SUMMARY FILE.
Line S00184 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00184.ns2790  ---|
Line S00185 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00185.ns2790  ---| IOF6     SA1    CPAR+/COMSPFS/CPSU
00204  M01S00007.ns2790  +++| IOF2     SA1    CPAR+/COMSPFS/CPSU
00205  M01S00186.286l859 +++|          ZR     X1,IOFX     IF NO SUMMARY FILE PROCESSING
00206  M01S00187.286l859 +++|          SA5    SU
00207  M01S00188.286l859 +++|          RJ     PFO         OPEN SUMMARY FILE
00208  M01S00189.286l859 +++|          SETFET SU,ERP=B0   CLEAR USER ERROR PROCESSING
00209  M01S00190.286l859 +++|          RJ     WIS         WRITE INITIAL BLOCKS
00210  M01S00191.286l859 +++|          EQ     IOFX        RETURN
00211  M01S00192.286l859 +++|
00212  M01S00193.286l859 +++|
00213  M01S00194.286l859 +++| IOFA     BSSZ   2           *GETPP* PARAMETER BLOCK
00214  M01S00195.286l859 +++| IOFB     CON    0           PRINT DENSITY FORMAT CONTROL CHARACTER
00215  M01S00196.286l859 +++| ODV      SPACE  4,10
00216  M01S00197.286l859 +++|**        ODV - OUTPUT DEVICE STATUS TO SELECTED OUTPUT FILES.
00217  M01S00198.286l859 +++|*
00218  M01S00199.286l859 +++|*         ENTRY  (X6) = ADDRESS OF DEVICE STATUS INFORMATION BUFFER.
00219  M01S00200.286l859 +++|*
00220  M01S00201.286l859 +++|*         EXIT   DEVICE STATUS WRITTEN TO OUTPUT FILE IF SELECTED.
00221  M01S00202.286l859 +++|*                DEVICE STATUS BLOCK WRITTEN TO SUMMARY FILE IF
00222  M01S00203.286l859 +++|*                  SELECTED.
00223  M01S00204.286l859 +++|*
00224  M01S00205.286l859 +++|*         USES   X - 1, 2, 3, 5, 6, 7.
00225  M01S00206.286l859 +++|*                A - 1, 2, 3, 5, 6, 7.
00226  M01S00207.286l859 +++|*
Line S00208 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2793
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00208.ns2793  ---|*         CALLS  FAB, FDS, MWA, RPP.
00228  M01S00003.ns2793  +++|*         CALLS  FAB, FDS, MWA, RPP, SDT.
00229  M01S00209.286l859 +++|
00230  M01S00210.286l859 +++|
00231  M01S00211.286l859 +++| ODV      SUBR               ENTRY/EXIT
00232  M01S00212.286l859 +++|          SA6    ODVA        SET BUFFER ADDRESS
00233  M01S00213.286l859 +++|          SA6    ODVB
00234  M01S00214.286l859 +++|
00235  M01S00215.286l859 +++|*         WRITE OUTPUT FILE.
00236  M01S00216.286l859 +++|
00237  M01S00217.286l859 +++|          SA1    CPAR+/COMSPFS/CPLO
00238  M01S00218.286l859 +++|          ZR     X1,ODV2     IF NO OUTPUT FILE
00239  M01S00219.286l859 +++|          SX2    DVTX        SET DEVICE STATUS TITLE TEXT
00240  M01S00220.286l859 +++|          SX6    DVS         SET SUBHEADER PROCESSOR
00241  M01S00221.286l859 +++|          RJ     RPP         RESET PAGE PARAMETERS
00242  M01S00222.286l859 +++|          SA5    ODVA
00243  M01S00223.286l859 +++|          SA5    X5
00244  M01S00224.286l859 +++| ODV1     RJ     FDS         FORMAT DEVICE STATUS
00245  M01S00225.286l859 +++|          SA2    ODVB
00246  M01S00226.286l859 +++|          SX6    X2+2        ADVANCE ENTRY ADDRESS
00247  M01S00227.286l859 +++|          SA5    X6          READ FIRST WORD OF ENTRY
00248  M01S00228.286l859 +++|          SA6    A2
00249  M01S00229.286l859 +++|          NZ     X5,ODV1     IF NOT END OF DEVICES
00250  M01S00004.ns2793  +++|          RJ     SDT         RESET DEFAULT PAGE TITLE
00251  M01S00230.286l859 +++|
00252  M01S00231.286l859 +++|*         WRITE SUMMARY FILE.
00253  M01S00232.286l859 +++|
00254  M01S00233.286l859 +++| ODV2     SA1    CPAR+/COMSPFS/CPSU
00255  M01S00234.286l859 +++|          ZR     X1,ODVX     IF NO SUMMARY FILE
00256  M01S00235.286l859 +++|          SA1    OFFN
00257  M01S00236.286l859 +++|          SA2    OFPN
00258  M01S00237.286l859 +++|          SA3    OFUN
00259  M01S00238.286l859 +++|          BX6    X1+X2       SET FAMILY NAME OR PACK NAME
00260  M01S00239.286l859 +++|          BX7    X3
00261  M01S00240.286l859 +++|          SA6    ODVC
00262  M01S00241.286l859 +++|          ZR     X2,ODV3     IF NOT AUXILIARY DEVICE
00263  M01S00242.286l859 +++|          SA7    ODVC+1      SET USER NAME
00264  M01S00243.286l859 +++| ODV3     SA1    ODVA        SET BUFFER ADDRESS
00265  M01S00244.286l859 +++|          SA2    X1
00266  M01S00245.286l859 +++|          SX0    B1+B1       COUNT FAMILY/PACK/USER HEADER
00267  M01S00246.286l859 +++| ODV4     SA2    A2+2        ADVANCE BUFFER ADDRESS
00268  M01S00247.286l859 +++|          SX0    X0+2        COUNT ENTRY
00269  M01S00248.286l859 +++|          NZ     X2,ODV4     IF NOT END OF DEVICES
00270  M01S00249.286l859 +++|          SA1    TSBI+/COMSPFS/DSSB
00271  M01S00250.286l859 +++|          BX6    X1
00272  M01S00251.286l859 +++|          SX1    B1+B1       SET HEADER ENTRY WORD COUNT
00273  M01S00252.286l859 +++|          SA6    CFBI        SET DEVICE STATUS BLOCK IDENTIFIER
00274  M01S00253.286l859 +++|          SX2    ODVC        SET ADDRESS OF HEADER ENTRY
00275  M01S00254.286l859 +++|          RJ     MWA         MOVE HEADER TO ASSEMBLY BUFFER
00276  M01S00255.286l859 +++|          SX1    X0-2        SET LENGTH OF DEVICE ENTRIES
00277  M01S00256.286l859 +++|          SX0    0           SET BLOCK CONTINUATION
00278  M01S00257.286l859 +++|          SA2    ODVA        SET DEVICE STATUS BUFFER ADDRESS
00279  M01S00258.286l859 +++|          RJ     MWA         MOVE DEVICE STATUS TO ASSEMBLY BUFFER
00280  M01S00259.286l859 +++|          RJ     FAB         FLUSH ASSEMBLY BUFFER
00281  M01S00260.286l859 +++|          EQ     ODVX        RETURN
00282  M01S00261.286l859 +++|
00283  M01S00262.286l859 +++|
00284  M01S00263.286l859 +++| ODVA     CON    0           DEVICE STATUS INFORMATION BUFFER ADDRESS
00285  M01S00264.286l859 +++| ODVB     CON    0           ENTRY POINTER
00286  M01S00265.286l859 +++| ODVC     CON    0           FAMILY NAME OR PACK NAME
00287  M01S00266.286l859 +++|          CON    0           USER NAME OF PRIVATE AUXILIARY DEVICE
00288  M01S00267.286l859 +++| SPT      SPACE  4,20
00289  M01S00268.286l859 +++|**        SPT - SET UP PAGE TITLE.
00290  M01S00269.286l859 +++|*
00291  M01S00270.286l859 +++|*         ENTRY  (OFUC) = UTILITY CODE IF *PFLIST* UTILITY.
00292  M01S00271.286l859 +++|*                (OFFN) = FAMILY NAME IF *PFLIST* UTILITY.
00293  M01S00272.286l859 +++|*                (OFPN) = PACK NAME IF *PFLIST* UTILITY.
00294  M01S00273.286l859 +++|*                (OFUN) = AUXILIARY DEVICE USER NAME IF *PFLIST*
00295  M01S00274.286l859 +++|*                         UTILITY.
00296  M01S00275.286l859 +++|*
00297  M01S00276.286l859 +++|*         EXIT   PARAMETERS SET IN PAGE TITLE.
00298  M01S00277.286l859 +++|*
00299  M01S00278.286l859 +++|*         USES   X - 1, 2, 3, 5, 6.
00300  M01S00279.286l859 +++|*                A - 1, 2, 3, 6.
00301  M01S00280.286l859 +++|*                B - 2, 5.
00302  M01S00281.286l859 +++|*
00303  M01S00282.286l859 +++|*         CALLS  SNM, ZTB.
00304  M01S00283.286l859 +++|*
00305  M01S00284.286l859 +++|*         MACROS EDATE, ETIME, MOVE.
00306  M01S00285.286l859 +++|
00307  M01S00286.286l859 +++|
00308  M01S00287.286l859 +++| SPT      SUBR               ENTRY/EXIT
00309  M01S00288.286l859 +++|
00310  M01S00289.286l859 +++|*         SET UP UTILITY NAME, FAMILY NAME, AND PACK NAME AND AUXILIARY
00311  M01S00290.286l859 +++|*         DEVICE USER NAME FOR OUTPUT FILES FROM *PFS* PARAMETERS IF
00312  M01S00291.286l859 +++|*         NOT *PFLIST* UTILITY.
00313  M01S00292.286l859 +++|
00314  M01S00293.286l859 +++|          SA1    /COMSPFS/UTLC
00315  M01S00294.286l859 +++|          SX2    X1-/COMSPFS/LIUT
00316  M01S00295.286l859 +++|          ZR     X2,SPT1     IF *PFLIST* UTILITY
00317  M01S00296.286l859 +++|          SA2    CPAR+/COMSPFS/CPFN
00318  M01S00297.286l859 +++|          SA3    CPAR+/COMSPFS/CPPN
00319  M01S00298.286l859 +++|          MX7    42
00320  M01S00299.286l859 +++|          BX6    X1
00321  M01S00300.286l859 +++|          SA6    OFUC        SET UTILITY CODE
00322  M01S00301.286l859 +++|          BX6    X7*X2
00323  M01S00302.286l859 +++|          BX7    X7*X3
00324  M01S00303.286l859 +++|          SA6    OFFN        SET FAMILY NAME
00325  M01S00304.286l859 +++|          SA7    OFPN        SET PACK NAME
00326  M01S00305.286l859 +++|          ZR     X3,SPT1     IF NOT AUXILIARY DEVICE
00327  M01S00306.286l859 +++|          SA1    CPAR+/COMSPFS/CPUN
00328  M01S00307.286l859 +++|          BX6    X1
00329  M01S00308.286l859 +++|          SA6    OFUN        SET AUXILIARY DEVICE USER NAME
00330  M01S00309.286l859 +++|
00331  M01S00310.286l859 +++|*         SET PAGE TITLE TEXT.
00332  M01S00311.286l859 +++|
00333  M01S00312.286l859 +++| SPT1     SA2    OFUC
00334  M01S00313.286l859 +++|          SA2    SPTA+X2     GET TITLE TEXT POINTERS
00335  M01S00314.286l859 +++|          SX5    X2          SAVE MAIN TITLE TEXT POINTER
00336  M01S00315.286l859 +++|          LX2    -18
00337  M01S00316.286l859 +++|          SX2    X2+         SET PRESET TITLE TEXT POINTER
00338  M01S00317.286l859 +++|          MOVE   PTTAL,X2,PTTA  MOVE PRESET PAGE TITLE TEXT
00339  M01S00318.286l859 +++|          MOVE   MTTAL,X5,MTTA  MOVE MAIN PAGE TITLE TEXT
00340  M01S00319.286l859 +++|
00341  M01S00320.286l859 +++|*         SET FAMILY NAME OR PACK NAME.
00342  M01S00321.286l859 +++|
00343  M01S00322.286l859 +++|          SA1    OFFN
00344  M01S00323.286l859 +++|          ZR     X1,SPT2     IF NO FAMILY NAME
00345  M01S00324.286l859 +++|          SB5    SPTB        SET FAMILY MESSAGE ADDRESS
00346  M01S00325.286l859 +++|          EQ     SPT3        SET FAMILY NAME
00347  M01S00326.286l859 +++|
00348  M01S00327.286l859 +++| SPT2     SA1    OFPN
00349  M01S00328.286l859 +++|          ZR     X1,SPT4     IF NO PACK NAME
00350  M01S00329.286l859 +++|          SB5    SPTC        SET PACK NAME MESSAGE ADDRESS
00351  M01S00330.286l859 +++| SPT3     SB2    1R?
00352  M01S00331.286l859 +++|          RJ     SNM         SET FAMILY OR PACK NAME
00353  M01S00332.286l859 +++|          SA1    B5
00354  M01S00333.286l859 +++|          RJ     ZTB         BLANK FILL ZEROES
00355  M01S00334.286l859 +++|          SA6    PGFM
00356  M01S00335.286l859 +++|          SA1    B5+B1
00357  M01S00336.286l859 +++|          RJ     ZTB         BLANK FILL ZEROES
00358  M01S00337.286l859 +++|          SA6    PGFM+1
00359  M01S00338.286l859 +++|
00360  M01S00339.286l859 +++|*         SET EXECUTING UTILITY NAME AND SYSTEM LEVEL.
00361  M01S00340.286l859 +++|
00362  M01S00341.286l859 +++| SPT4     SA1    /COMSPFS/UTLN
00363  M01S00342.286l859 +++|          SB2    1R?
00364  M01S00343.286l859 +++|          SB5    SPTD
00365  M01S00344.286l859 +++|          RJ     SNM         SET UTILITY NAME
00366  M01S00345.286l859 +++|          SA1    SPTD
00367  M01S00346.286l859 +++|          BX6    X1
00368  M01S00347.286l859 +++|          SA6    PGUT
00369  M01S00348.286l859 +++|          SA1    SPTD+1      BLANK FILL UTILITY NAME AND SYSTEM LEVEL
00370  M01S00349.286l859 +++|          RJ     ZTB
00371  M01S00350.286l859 +++|          SA6    PGUT+1
00372  M01S00351.286l859 +++|
00373  M01S00352.286l859 +++|*         SET DATE AND TIME.
00374  M01S00353.286l859 +++|
00375  M01S00354.286l859 +++|          SA1    /COMSPFS/STDT
00376  M01S00355.286l859 +++|          BX5    X1
00377  M01S00356.286l859 +++|          AX1    18
00378  M01S00357.286l859 +++|          EDATE  X1
00379  M01S00358.286l859 +++|          SA6    PGSD        SET START DATE
00380  M01S00359.286l859 +++|          MX1    -18
00381  M01S00360.286l859 +++|          BX1    -X1*X5
00382  M01S00361.286l859 +++|          ETIME  X1
00383  M01S00362.286l859 +++|          SA6    PGST        SET START TIME
00384  M01S00363.286l859 +++|
Line S00364 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00385  M02S00364.ns2790  ---|*         SET CATALOG ENTRY FILE STATUS SUBHEADER.
00386  M01S00008.ns2790  +++|*         SET EXTENDED PAGE HEADER FOR FILE PROCESSING.
00387  M01S00365.286l859 +++|
Line S00366 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00388  M02S00366.ns2790  ---|          SA1    OFUC
Line S00367 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00389  M02S00367.ns2790  ---|          SA1    SPTA+X1
Line S00368 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00390  M02S00368.ns2790  ---|          PL     X1,SPTX     IF NO CATALOG ENTRY SUBHEADER EXTENSION
Line S00369 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00391  M02S00369.ns2790  ---|          MOVE   2,SPTE,/COMCFCE/CHDR1+9  SET CATALOG ENTRY SUBHEADER
Line S00370 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00392  M02S00370.ns2790  ---|          MOVE   2,SPTE+2,/COMCFCE/CHDR2+9
Line S00371 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00371.ns2790  ---|          MOVE   2,SPTE+4,/COMCFCE/CHDR3+9
00394  M01S00009.ns2790  +++|          SA1    SPTE
00395  M01S00010.ns2790  +++|          BX6    X1
00396  M01S00011.ns2790  +++|          SA6    /COMCFCE/CHDR1+9  SET HEADER EXTENSION
00397  M01S00372.286l859 +++|          EQ     SPTX        RETURN
00398  M01S00373.286l859 +++|
00399  M01S00374.286l859 +++|
00400  M01S00375.286l859 +++|*         TITLE CONTROL TABLE.
00401  M01S00376.286l859 +++|
00402  M01S00377.286l859 +++| SPTA     IVFD
Line S00378 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00403  M02S00378.ns2790  ---|          IVFD   /COMSPFS/LDUT,(1/1,23/0,18/PTLD,18/MTLD)  *PFLOAD*
Line S00379 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00404  M02S00379.ns2790  ---|          IVFD   /COMSPFS/DUUT,(1/1,23/0,18/PTDU,18/MTDU)  *PFDUMP*
Line S00380 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00405  M02S00380.ns2790  ---|          IVFD   /COMSPFS/CAUT,(1/0,23/0,18/PTCA,18/MTCA)  *PFCAT*
Line S00381 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00406  M02S00381.ns2790  ---|          IVFD   /COMSPFS/ATUT,(1/1,23/0,18/PTAT,18/MTAT)  *PFATC*
Line S00382 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00407  M02S00382.ns2790  ---|          IVFD   /COMSPFS/COUT,(1/1,23/0,18/PTCO,18/MTCO)  *PFCOPY*
Line S00383 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00408  M02S00383.ns2790  ---|          IVFD   /COMSPFS/RLUT,(1/0,23/0,18/PTRL,18/MTRL)  *PFREL*
00409  M01S00012.ns2790  +++|          IVFD   /COMSPFS/LDUT,(24/0,18/PTLD,18/MTLD)  *PFLOAD*
00410  M01S00013.ns2790  +++|          IVFD   /COMSPFS/DUUT,(24/0,18/PTDU,18/MTDU)  *PFDUMP*
00411  M01S00014.ns2790  +++|          IVFD   /COMSPFS/CAUT,(24/0,18/PTCA,18/MTCA)  *PFCAT*
00412  M01S00015.ns2790  +++|          IVFD   /COMSPFS/ATUT,(24/0,18/PTAT,18/MTAT)  *PFATC*
00413  M01S00016.ns2790  +++|          IVFD   /COMSPFS/COUT,(24/0,18/PTCO,18/MTCO)  *PFCOPY*
00414  M01S00017.ns2790  +++|          IVFD   /COMSPFS/RLUT,(24/0,18/PTRL,18/MTRL)  *PFREL*
00415  M01S00384.286l859 +++|          IVFD   /COMSPFS/MXUT
00416  M01S00385.286l859 +++|
00417  M01S00386.286l859 +++| SPTB     DATA   C* FAMILY ???????.*
00418  M01S00387.286l859 +++| SPTC     DATA   C* PACK ???????.*
00419  M01S00388.286l859 +++| SPTD     DATA   C* ??????? - LVL "NOSLVL".*
Line S00389 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00420  M02S00389.ns2790  ---|
Line S00390 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00421  M02S00390.ns2790  ---|*         CATALOG PROCESSING SUBHEADER EXTENSION.
Line S00391 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00422  M02S00391.ns2790  ---|
Line S00392 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00392.ns2790  ---| SPTE     DATA   20H PFC  ARCHIVE
Line S00393 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00393.ns2790  ---|          DATA   20H ONLY  FILE
Line S00394 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00394.ns2790  ---|          DATA   20H      ERRORS
00426  M01S00018.ns2790  +++| SPTE     DATA   10H SEQUENCE
00427  M01S00395.286l859 +++|
00428  M01S00396.286l859 +++|*         TABLE OF MAIN PROGRAM PAGE TITLE TEXT.
00429  M01S00397.286l859 +++|*         EACH SET OF TITLES MUST BE *MTTAL* WORDS LONG.
00430  M01S00398.286l859 +++|
00431  M01S00399.286l859 +++| MTLD     DATA   50H1PFLOAD - FILES LOADED.
Line S00400 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00432  M02S00400.ns2790  ---|          DATA   50H1PFLOAD - FILES LOADED.  SORTED BY USER/NAME.
Line S00401 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00433  M02S00401.ns2790  ---|          DATA   50H1PFLOAD - CATALOG IMAGE.
Line S00402 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00402.ns2790  ---|          DATA   50H1PFLOAD - CATALOG IMAGE.  SORTED BY USER/NAME.
00435  M01S00019.ns2790  +++|          DATA   50H1PFLOAD - CATALOG IMAGE RECORD.
00436  M01S00403.286l859 +++|          DATA   50H1PFLOAD - USER SUMMARY.
00437  M01S00404.286l859 +++|          DATA   50H1PFLOAD - TAPE ALTERNATE STORAGE SUMMARY.
00438  M01S00005.ns2793  +++|          DATA   50H1PFLOAD.
00439  M01S00405.286l859 +++|
00440  M01S00406.286l859 +++| MTDU     DATA   50H1PFDUMP - FILES DUMPED.
Line S00407 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00441  M02S00407.ns2790  ---|          DATA   50H1PFDUMP - FILES DUMPED.  SORTED BY USER/NAME.
Line S00408 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00442  M02S00408.ns2790  ---|          DATA   50H1PFDUMP - CATALOG IMAGE.
Line S00409 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00443  M02S00409.ns2790  ---|          DATA   50H1PFDUMP - CATALOG IMAGE.  SORTED BY USER/NAME.
00444  M01S00020.ns2790  +++|          DATA   50H1PFDUMP - CATALOG IMAGE RECORD.
00445  M01S00410.286l859 +++|          DATA   50H1PFDUMP - USER SUMMARY.
00446  M01S00411.286l859 +++|          DATA   50H1PFDUMP - TAPE ALTERNATE STORAGE SUMMARY.
00447  M01S00006.ns2793  +++|          DATA   50H1PFDUMP.
00448  M01S00412.286l859 +++|
00449  M01S00413.286l859 +++| MTCA     DATA   50H1PFCAT - FILES CATALOGED.
Line S00414 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00450  M02S00414.ns2790  ---|          DATA   50H1PFCAT - FILES CATALOGED.  SORTED BY USER/NAME.
Line S00415 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00451  M02S00415.ns2790  ---|          DATA   50H
00452  M01S00416.286l859 +++|          DATA   50H
00453  M01S00417.286l859 +++|          DATA   50H1PFCAT - USER SUMMARY.
00454  M01S00418.286l859 +++|          DATA   50H1PFCAT - TAPE ALTERNATE STORAGE SUMMARY.
00455  M01S00007.ns2793  +++|          DATA   50H1PFCAT.
00456  M01S00419.286l859 +++|
00457  M01S00420.286l859 +++| MTAT     DATA   50H1PFATC - FILES ON ARCHIVE.
Line S00421 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00458  M02S00421.ns2790  ---|          DATA   50H1PFATC - FILES ON ARCHIVE.  SORTED BY USER/NAME.
Line S00422 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00459  M02S00422.ns2790  ---|          DATA   50H1PFATC - CATALOG IMAGE.
Line S00423 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00460  M02S00423.ns2790  ---|          DATA   50H1PFATC - CATALOG IMAGE.  SORTED BY USER/NAME.
00461  M01S00021.ns2790  +++|          DATA   50H1PFATC - CATALOG IMAGE RECORD.
00462  M01S00424.286l859 +++|          DATA   50H1PFATC - USER SUMMARY.
00463  M01S00425.286l859 +++|          DATA   50H1PFATC - TAPE ALTERNATE STORAGE SUMMARY.
00464  M01S00008.ns2793  +++|          DATA   50H1PFATC.
00465  M01S00426.286l859 +++|
00466  M01S00427.286l859 +++| MTCO     DATA   50H1PFCOPY - FILES COPIED.
Line S00428 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00467  M02S00428.ns2790  ---|          DATA   50H1PFCOPY - FILES COPIED.  SORTED BY USER/NAME.
Line S00429 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00468  M02S00429.ns2790  ---|          DATA   50H
00469  M01S00430.286l859 +++|          DATA   50H
00470  M01S00431.286l859 +++|          DATA   50H1PFCOPY - USER SUMMARY.
00471  M01S00432.286l859 +++|          DATA   50H1PFCOPY - TAPE ALTERNATE STORAGE SUMMARY.
00472  M01S00009.ns2793  +++|          DATA   50H1PFCOPY.
00473  M01S00433.286l859 +++|
00474  M01S00434.286l859 +++| MTRL     DATA   50H1PFREL - FILES PROCESSED.
Line S00435 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00475  M02S00435.ns2790  ---|          DATA   50H1PFREL - FILES PROCESSED.  SORTED BY USER/NAME.
Line S00436 Modification History
M01 (Added by) 286l859
M02 (Updated by) ns2790
Seq #  *Modification Id* Act 
----------------------------+
00476  M02S00436.ns2790  ---|          DATA   50H
00477  M01S00437.286l859 +++|          DATA   50H
00478  M01S00438.286l859 +++|          DATA   50H1PFREL - USER SUMMARY.
00479  M01S00439.286l859 +++|          DATA   50H1PFREL - TAPE ALTERNATE STORAGE SUMMARY.
00480  M01S00010.ns2793  +++|          DATA   50H1PFREL.
00481  M01S00440.286l859 +++|
00482  M01S00441.286l859 +++|*         TABLE OF PRESET PAGE TITLE TEXT.
00483  M01S00442.286l859 +++|*         EACH SET OF TITLES MUST BE *PTTAL* WORDS LONG.
00484  M01S00443.286l859 +++|
00485  M01S00444.286l859 +++| PTLD     DATA   50H1PFLOAD - ACTIVE DEVICE STATUS.
00486  M01S00445.286l859 +++|
00487  M01S00446.286l859 +++| PTDU     DATA   50H1PFDUMP - ACTIVE DEVICE STATUS.
00488  M01S00447.286l859 +++|
00489  M01S00448.286l859 +++| PTCA     DATA   50H1PFCAT - ACTIVE DEVICE STATUS.
00490  M01S00449.286l859 +++|
00491  M01S00450.286l859 +++| PTAT     DATA   50H
00492  M01S00451.286l859 +++|
00493  M01S00452.286l859 +++| PTCO     DATA   50H
00494  M01S00453.286l859 +++|
00495  M01S00454.286l859 +++| PTRL     DATA   50H1PFREL - ACTIVE DEVICE STATUS.
00496  M01S00455.286l859 +++| WIS      SPACE  4,10
00497  M01S00456.286l859 +++|**        WIS - WRITE INITIAL BLOCKS TO SUMMARY FILE.
00498  M01S00457.286l859 +++|*
00499  M01S00458.286l859 +++|*         EXIT   PREFIX TABLE AND SYSTEM BLOCK WRITTEN TO FILE.
00500  M01S00459.286l859 +++|*
00501  M01S00460.286l859 +++|*         USES   X - 0, 1, 2, 4, 5, 6, 7.
00502  M01S00461.286l859 +++|*                A - 1, 2, 4, 5, 6, 7.
00503  M01S00462.286l859 +++|*
00504  M01S00463.286l859 +++|*         CALLS  ZTB.
00505  M01S00464.286l859 +++|*
00506  M01S00465.286l859 +++|*         MACROS ETIME, MOVE, SYSTEM, VERSION, WRITEW.
00507  M01S00466.286l859 +++|
00508  M01S00467.286l859 +++|
00509  M01S00468.286l859 +++| WIS      SUBR               ENTRY/EXIT
00510  M01S00469.286l859 +++|          SA1    CPAR+/COMSPFS/CPSR  SET RECORD NAME
00511  M01S00470.286l859 +++|          RJ     ZTB
00512  M01S00471.286l859 +++|          MX0    42
00513  M01S00472.286l859 +++|          BX6    X0*X6
00514  M01S00473.286l859 +++|          SA6    WISB
00515  M01S00474.286l859 +++|          SA1    /COMSPFS/STDT  SET PACKED DATE/TIME
00516  M01S00475.286l859 +++|          BX7    X1
00517  M01S00476.286l859 +++|          BX5    X1
00518  M01S00477.286l859 +++|          SA7    WISI
00519  M01S00478.286l859 +++|          AX1    18
00520  M01S00479.286l859 +++|          EDATE  X1          CONVERT DATE
00521  M01S00480.286l859 +++|          SA6    WISC
00522  M01S00481.286l859 +++|          SA6    WISG
00523  M01S00482.286l859 +++|          MX1    -18
00524  M01S00483.286l859 +++|          BX1    -X1*X5
00525  M01S00484.286l859 +++|          ETIME  X1          CONVERT TIME
00526  M01S00485.286l859 +++|          SA6    WISC+1
00527  M01S00486.286l859 +++|          SA6    WISG+1
00528  M01S00487.286l859 +++|          SA1    /COMSPFS/UTLN  SET UTILITY NAME
00529  M01S00488.286l859 +++|          SX6    SABFL       ADD MAXIMUM BLOCK LENGTH
00530  M01S00489.286l859 +++|          BX6    X1+X6
00531  M01S00490.286l859 +++|          SA6    WISF
00532  M01S00491.286l859 +++|          SA5    CPAR+/COMSPFS/CPFN
00533  M01S00492.286l859 +++|          SA4    CPAR+/COMSPFS/CPPN
00534  M01S00493.286l859 +++|          SX6    2RFM
00535  M01S00494.286l859 +++|          MX7    42
00536  M01S00495.286l859 +++|          BX5    X7*X5
00537  M01S00496.286l859 +++|          BX4    X7*X4
00538  M01S00497.286l859 +++|          NZ     X5,WIS1     IF FAMILY NAME PRESENT
00539  M01S00498.286l859 +++|          SX6    2RPN
00540  M01S00499.286l859 +++|          NZ     X5,WIS1     IF PACK NAME PRESENT
00541  M01S00500.286l859 +++|          SX6    B0+
00542  M01S00501.286l859 +++| WIS1     BX1    X1+X6       MERGE UTILITY NAME AND MNEMONIC
00543  M01S00502.286l859 +++|          RJ     ZTB         BLANK FILL UTILITY NAME
00544  M01S00503.286l859 +++|          SA6    WISD
00545  M01S00504.286l859 +++|          BX1    X4+X5
00546  M01S00505.286l859 +++|          ZR     X1,WIS2     IF NEITHER FAMILY NOR PACK NAME
00547  M01S00506.286l859 +++|          SX2    1R=
00548  M01S00507.286l859 +++|          BX1    X1+X2
00549  M01S00508.286l859 +++|          LX1    -6
00550  M01S00509.286l859 +++| WIS2     RJ     ZTB         BLANK FILL FAMILY OR PACK NAME
00551  M01S00510.286l859 +++|          SA6    WISD+1
00552  M01S00511.286l859 +++|          VERSION  WISK      READ SYSTEM TITLE AND VERSION
00553  M01S00512.286l859 +++|          SX0    WISH        SET SYSTEM TITLE ADDRESS
00554  M01S00513.286l859 +++| WIS3     SA1    X0          READ NEXT WORD
00555  M01S00514.286l859 +++|          RJ     ZTB         BLANK FILL NAME
00556  M01S00515.286l859 +++|          SA6    X0
00557  M01S00516.286l859 +++|          SX0    X0+B1
00558  M01S00517.286l859 +++|          SX1    X0-WISH-4
00559  M01S00518.286l859 +++|          NZ     X1,WIS3     IF NOT END OF SYSTEM TITLE
00560  M01S00519.286l859 +++|          MOVE   4,WISH,WISE MOVE SYSTEM TITLE TO PREFIX TABLE
00561  M01S00520.286l859 +++|          WRITEW SU,WISA,33B  WRITE BLOCKS TO SUMMARY FILE
00562  M01S00521.286l859 +++|          EQ     WISX        RETURN
00563  M01S00522.286l859 +++|
00564  M01S00523.286l859 +++|
00565  M01S00524.286l859 +++| WISA     VFD    12/7700B,12/0016B,36/0  PREFIX TABLE IDENTIFIER
00566  M01S00525.286l859 +++| WISB     CON    0           RECORD NAME
00567  M01S00526.286l859 +++| WISC     CON    0           DATE
00568  M01S00527.286l859 +++|          CON    0           TIME
00569  M01S00528.286l859 +++|          BSSZ   4
00570  M01S00529.286l859 +++| WISD     DATA   10HPFUUUUU FM  FIRST TWO WORDS OF COMMENT
00571  M01S00530.286l859 +++|          DATA   10H
00572  M01S00531.286l859 +++| WISE     BSSZ   4           SYSTEM TITLE
00573  M01S00532.286l859 +++|          DATA   10H
00574  M01S00533.286l859 +++|
00575  M01S00534.286l859 +++|          VFD    42/6LSYSTEM,18/13B  SYSTEM BLOCK HEADER
00576  M01S00535.286l859 +++| WISF     CON    0           UTILITY NAME
00577  M01S00536.286l859 +++| WISG     CON    0           DATE
00578  M01S00537.286l859 +++|          CON    0           TIME
00579  M01S00538.286l859 +++| WISH     BSSZ   4           SYSTEM TITLE
00580  M01S00539.286l859 +++|          BSSZ   2           SYSTEM VERSION
00581  M01S00540.286l859 +++| WISI     CON    0           PACKED DATE/TIME
00582  M01S00541.286l859 +++| WISJ     CON    NOSLVL      SYSTEM LEVEL
00583  M01S00542.286l859 +++|
00584  M01S00543.286l859 +++| WISK     VFD    1/1,11/30,12/0,12/0,6/0,18/WISH
00585  M01S00544.286l859 +++|          SPACE  4
00586  M01S00545.286l859 +++|*         PRESET PAGE TITLE TEXT AREA.
00587  M01S00546.286l859 +++|
00588  M01S00547.286l859 +++| PTTA     BSS    0
00589  M01S00548.286l859 +++| DVTX     DATA   50H
00590  M01S00549.286l859 +++| PTTAL    EQU    *-PTTA
00591  M01S00550.286l859 +++|
00592  M01S00551.286l859 +++|*         DEVICE STATUS PAGE SUBHEADER.
00593  M01S00552.286l859 +++|
00594  M01S00553.286l859 +++|
00595  M01S00554.286l859 +++| DVSA     DATA   50H    DEVICE    DEVICE      UNIT    DEVICE       DAF
00596  M01S00555.286l859 +++|          DATA   40H   CATALOG     TOTAL AVAILABLE     TRACK
00597  M01S00556.286l859 +++| DVSB     DATA   50H    NUMBER      TYPE     COUNT      MASK      MASK
00598  M01S00557.286l859 +++|          DATA   50H    TRACKS    TRACKS    TRACKS      SIZE
00599  M01S00558.286l859 +++|          TITLE  COMCPFP - COMMON PRESET ROUTINES.
00600  M01S00559.286l859 +++| ASF      SPACE  4,20
00601  M01S00560.286l859 +++|**        ASF - ASSIGN SECURE FILE.
00602  M01S00561.286l859 +++|*
00603  M01S00562.286l859 +++|*         ENTRY  (SYSS) = SYSTEM SECURITY MODE.
00604  M01S00563.286l859 +++|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
00605  M01S00564.286l859 +++|*                (A5) = FET ADDRESS.
00606  M01S00565.286l859 +++|*
00607  M01S00566.286l859 +++|*         EXIT   FILE ASSIGNED.
00608  M01S00567.286l859 +++|*                IF NOT ALREADY ASSIGNED, A DEVICE THAT ALLOWS THE
00609  M01S00568.286l859 +++|*                UPPER LEVEL THAT WILL BE PROCESSED IS SELECTED.
00610  M01S00569.286l859 +++|*                TO *ABT* IF FILE CANNOT BE ASSIGNED.
00611  M01S00570.286l859 +++|*
00612  M01S00571.286l859 +++|*         USES   X - 0, 1, 2, 6, 7.
00613  M01S00572.286l859 +++|*                A - 1, 2, 6, 7.
00614  M01S00573.286l859 +++|*                B - 2.
00615  M01S00574.286l859 +++|*
00616  M01S00575.286l859 +++|*         MACROS REQUEST, SETFET, STATUS.
00617  M01S00576.286l859 +++|
00618  M01S00577.286l859 +++|
00619  M01S00578.286l859 +++| ASF      SUBR               ENTRY/EXIT
00620  M01S00579.286l859 +++|          SA1    SYSS
00621  M01S00580.286l859 +++|          ZR     X1,ASFX     IF NOT SECURE SYSTEM
00622  M01S00581.286l859 +++|          STATUS A5          DETERMINE IF FILE IS ASSIGNED
00623  M01S00582.286l859 +++|          SA1    A5
00624  M01S00583.286l859 +++|          MX0    -11
00625  M01S00584.286l859 +++|          LX0    1
00626  M01S00585.286l859 +++|          BX2    -X0*X1
00627  M01S00586.286l859 +++|          NZ     X2,ASFX     IF FILE EXISTS
00628  M01S00587.286l859 +++|          SA2    A5+B1       SET SECURITY PROCESSING BIT
00629  M01S00588.286l859 +++|          SX6    B1
00630  M01S00589.286l859 +++|          LX6    39-0
00631  M01S00590.286l859 +++|          BX7    -X6*X2
00632  M01S00591.286l859 +++|          BX6    X6+X7
00633  M01S00592.286l859 +++|          SA6    A2
00634  M01S00593.286l859 +++|          SA1    A5+4        SET ACCESS LEVEL
00635  M01S00594.286l859 +++|          SA2    PCUA
00636  M01S00595.286l859 +++|          LX2    36
00637  M01S00596.286l859 +++|          BX6    X1+X2
00638  M01S00597.286l859 +++|          SA6    A1
00639  M01S00598.286l859 +++|          SETFET A5,ERP=E,DTY==2RMS  SET ERROR PROCESSING
00640  M01S00599.286l859 +++|          REQUEST  A5,U,N    REQUEST FILE ASSIGNMENT
00641  M01S00600.286l859 +++|          SA1    A5
00642  M01S00601.286l859 +++|          MX0    -8
00643  M01S00602.286l859 +++|          AX1    10
00644  M01S00603.286l859 +++|          BX2    -X0*X1
00645  M01S00604.286l859 +++|          NZ     X2,ASF1     IF UNABLE TO ASSIGN FILE
00646  M01S00605.286l859 +++|          SETFET A5,ERP=B0   CLEAR ERROR PROCESSING
00647  M01S00606.286l859 +++|          EQ     ASFX        RETURN
00648  M01S00607.286l859 +++|
00649  M01S00608.286l859 +++| ASF1     SB2    ERAL        * ACCESS LEVELS NOT ALLOWED ON ...*
00650  M01S00609.286l859 +++|          EQ     ABT         ABORT
00651  M01S00610.286l859 +++| DSS      SPACE  4,10
00652  M01S00611.286l859 +++|**        DSS - DETERMINE SECURITY STATUS.
00653  M01S00612.286l859 +++|*
00654  M01S00613.286l859 +++|*         EXIT   (SYSS) = SYSTEM SECURITY MODE.
00655  M01S00614.286l859 +++|*                (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
00656  M01S00615.286l859 +++|*                (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
00657  M01S00616.286l859 +++|*
00658  M01S00617.286l859 +++|*         USES   X - 0, 1, 2, 6, 7.
00659  M01S00618.286l859 +++|*                A - 1, 2, 6, 7.
00660  M01S00619.286l859 +++|*
00661  M01S00620.286l859 +++|*         MACROS GETSSL.
00662  M01S00621.286l859 +++|
00663  M01S00622.286l859 +++|
00664  M01S00623.286l859 +++| DSS      SUBR               ENTRY/EXIT
00665  M01S00624.286l859 +++|          GETSSL DSSA        GET SYSTEM SECURITY STATUS
00666  M01S00625.286l859 +++|          SA2    DSSA
00667  M01S00626.286l859 +++|          MX0    -6
00668  M01S00627.286l859 +++|          LX2    12
00669  M01S00628.286l859 +++|          BX6    -X0*X2      SYSTEM SECURITY MODE
00670  M01S00629.286l859 +++|          SA6    SYSS
00671  M01S00630.286l859 +++|          ZR     X6,DSSX     IF NOT SECURE SYSTEM
00672  M01S00631.286l859 +++|          LX2    6
00673  M01S00632.286l859 +++|          BX7    -X0*X2      SYSTEM LOWER LIMIT
00674  M01S00633.286l859 +++|          LX2    6
00675  M01S00634.286l859 +++|          BX6    -X0*X2      SYSTEM UPPER LIMIT
00676  M01S00635.286l859 +++|          SA7    SYLA
00677  M01S00636.286l859 +++|          SA6    SYUA
00678  M01S00637.286l859 +++|          EQ     DSSX        RETURN
00679  M01S00638.286l859 +++|
00680  M01S00639.286l859 +++|
00681  M01S00640.286l859 +++| DSSA     CON    0           SYSTEM SECURITY STATUS RETURN
00682  M01S00641.286l859 +++| PFO      SPACE  4,20
00683  M01S00642.286l859 +++|**        PFO - PROCESS FILE OPENING.
00684  M01S00643.286l859 +++|*
00685  M01S00644.286l859 +++|*         ENTRY  (X1) = FILE NAME.
00686  M01S00645.286l859 +++|*                (A5) = FET ADDRESS.
00687  M01S00646.286l859 +++|*                (X5) = FIRST WORD OF FET.
00688  M01S00647.286l859 +++|*
00689  M01S00648.286l859 +++|*         EXIT   FET FILE NAME PRESET.
00690  M01S00649.286l859 +++|*                FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF
00691  M01S00650.286l859 +++|*                NOT ALREADY ASSIGNED.  EQUIPMENT SECURITY VERIFIED, IF
00692  M01S00651.286l859 +++|*                THE FILE IS ALREADY ASSIGNED.
00693  M01S00652.286l859 +++|*                FET CONTROL WORD STATUS WORD PRESET.
00694  M01S00653.286l859 +++|*                FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE.
00695  M01S00654.286l859 +++|*
00696  M01S00655.286l859 +++|*         USES   X - 0, 5, 6.
00697  M01S00656.286l859 +++|*                A - 6.
00698  M01S00657.286l859 +++|*
00699  M01S00658.286l859 +++|*         MACROS OPEN, SETFS.
00700  M01S00659.286l859 +++|*
00701  M01S00660.286l859 +++|*         CALLS  ASF, VES.
00702  M01S00661.286l859 +++|
00703  M01S00662.286l859 +++|
00704  M01S00663.286l859 +++| PFO      SUBR               ENTRY/EXIT
00705  M01S00664.286l859 +++|          MX0    42          SET FILE NAME
00706  M01S00665.286l859 +++|          BX6    X0*X1
00707  M01S00666.286l859 +++|          BX5    -X0*X5
00708  M01S00667.286l859 +++|          BX6    X6+X5
00709  M01S00668.286l859 +++|          SA6    A5
00710  M01S00669.286l859 +++|          RJ     ASF         ASSIGN SECURE FILE
00711  M01S00670.286l859 +++|          OPEN   A5,READNR,R OPEN FILE
00712  M01S00671.286l859 +++|          RJ     VES         VERIFY EQUIPMENT SECURITY
00713  M01S00672.286l859 +++|          SETFS  A5,0        CLEAR SPECIAL FILE STATUS
00714  M01S00673.286l859 +++|          EQ     PFOX        RETURN
00715  M01S00010.comcpfp +++| RPS      SPACE  4,20
00716  M01S00011.comcpfp +++|**        RPS - READ PERMANENT FILE SELECTIONS.
00717  M01S00012.comcpfp +++|*
00718  M01S00013.comcpfp +++|*         IT IS ASSUMED THAT THE FILE SELECTION BUFFER IS AT THE END OF
00719  M01S00014.comcpfp +++|*         MEMORY.
00720  M01S00015.comcpfp +++|*
00721  M01S00016.comcpfp +++|*         ENTRY  (X0) = SELECTIONS BUFFER ADDRESS.
00722  M01S00017.comcpfp +++|*
00723  M01S00018.comcpfp +++|*         EXIT   FILE SELECTIONS READ TO BUFFER FROM SCRATCH FILE
Line S00019 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00724  M02S00019.286l859 ---|*                  ZZZZZG9 IF PRESENT.
00725  M01S00674.286l859 +++|*                  ZZZZZGB IF PRESENT.
00726  M01S00020.comcpfp +++|*                (/COMSPFS/FISP) = SELECTION BUFFER POINTER IF
00727  M01S00021.comcpfp +++|*                  SELECTIONS PRESENT.
00728  M01S00022.comcpfp +++|*
00729  M01S00023.comcpfp +++|*         USES   X - 5, 7.
00730  M01S00024.comcpfp +++|*                A - 5, 7.
00731  M01S00025.comcpfp +++|*
00732  M01S00026.comcpfp +++|*         MACROS MEMORY, READ, RETURN, REWIND, SETFET.
00733  M01S00027.comcpfp +++|
00734  M01S00028.comcpfp +++|
00735  M01S00029.comcpfp +++| RPS      SUBR               ENTRY/EXIT
00736  M01S00030.comcpfp +++|          SA5    /COMSPFS/NFIS
00737  M01S00031.comcpfp +++|          ZR     X5,RPSX     IF NO FILE SELECTIONS
00738  M01S00032.comcpfp +++|          BX7    X0
00739  M01S00033.comcpfp +++|          SX5    X5+64       LENGTH = COUNT + SECTOR FILL
00740  M01S00034.comcpfp +++|          SA7    /COMSPFS/FISP  SET BUFFER POINTER FOR *COMCPFS*
00741  M01S00035.comcpfp +++|          IX7    X5+X0       LWA+1 OF INCREASED MEMORY
00742  M01S00036.comcpfp +++|          MEMORY CM,,R,X7    INCREASE FL FOR SELECTION BUFFER
00743  M01S00037.comcpfp +++|          SETFET RPSA,(BUF=X0,X5)  SET FET POINTERS FOR DIRECT READ
00744  M01S00038.comcpfp +++|          REWIND RPSA,R
00745  M01S00039.comcpfp +++|          READ   RPSA        READ FILE SELECTIONS
00746  M01S00040.comcpfp +++|          RETURN RPSA        RETURN SCRATCH FILE
00747  M01S00041.comcpfp +++|          EQ     RPSX        RETURN
00748  M01S00042.comcpfp +++|
00749  M01S00043.comcpfp +++|
00750  M01S00044.comcpfp +++| RPSA     BSS    0           FILE SELECTIONS SCRATCH FILE FET
Line S00045 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00751  M02S00045.286l859 ---| ZZZZZG9  FILEB  0,0,FET=10
Line S00046 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00752  M02S00046.286l859 ---|          SPACE  4,10
Line S00047 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00753  M02S00047.286l859 ---| COM$     IF     DEF,COM$
Line S00048 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00754  M02S00048.286l859 ---|          TITLE  COMCPFP - COMMON PRESET ROUTINES.
Line S00049 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00755  M02S00049.286l859 ---| ASF      SPACE  4,15
Line S00050 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00756  M02S00050.286l859 ---|**        ASF - ASSIGN SECURE FILE.
Line S00051 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00757  M02S00051.286l859 ---|*
Line S00052 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00758  M02S00052.286l859 ---|*         ENTRY  (SYSS) = SYSTEM SECURITY MODE.
Line S00053 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00759  M02S00053.286l859 ---|*                (PCUA) = UPPER ACCESS LEVEL TO PROCESS.
Line S00054 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00760  M02S00054.286l859 ---|*                (A5) = FET ADDRESS.
Line S00055 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00761  M02S00055.286l859 ---|*
Line S00056 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00762  M02S00056.286l859 ---|*         EXIT   FILE ASSIGNED.
Line S00057 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00763  M02S00057.286l859 ---|*                IF NOT ALREADY ASSIGNED, A DEVICE THAT ALLOWS THE
Line S00058 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00764  M02S00058.286l859 ---|*                UPPER LEVEL THAT WILL BE PROCESSED IS SELECTED.
Line S00059 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00765  M02S00059.286l859 ---|*
Line S00060 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00766  M02S00060.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
Line S00061 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00767  M02S00061.286l859 ---|*                A - 1, 2, 6, 7.
Line S00062 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00768  M02S00062.286l859 ---|*
Line S00063 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00769  M02S00063.286l859 ---|*         MACROS REQUEST, SETFET, STATUS.
Line S00064 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00770  M02S00064.286l859 ---|
Line S00065 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00771  M02S00065.286l859 ---|
Line S00066 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00772  M02S00066.286l859 ---| ASF      SUBR               ENTRY/EXIT
Line S00067 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00773  M02S00067.286l859 ---|          SA1    SYSS
Line S00068 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00774  M02S00068.286l859 ---|          ZR     X1,ASFX     IF NOT SECURE SYSTEM
Line S00069 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00775  M02S00069.286l859 ---|          STATUS A5          DETERMINE IF FILE IS ASSIGNED
Line S00070 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00776  M02S00070.286l859 ---|          SA1    A5
Line S00071 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00777  M02S00071.286l859 ---|          MX0    -11
Line S00072 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00778  M02S00072.286l859 ---|          LX0    1
Line S00073 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00779  M02S00073.286l859 ---|          BX2    -X0*X1
Line S00074 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00780  M02S00074.286l859 ---|          NZ     X2,ASFX     IF FILE EXISTS
Line S00075 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00781  M02S00075.286l859 ---|          SA2    A5+B1       SET SECURITY PROCESSING BIT
Line S00076 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00782  M02S00076.286l859 ---|          SX6    B1
Line S00077 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00783  M02S00077.286l859 ---|          LX6    39-0
Line S00078 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00784  M02S00078.286l859 ---|          BX7    -X6*X2
Line S00079 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00785  M02S00079.286l859 ---|          BX6    X6+X7
Line S00080 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00786  M02S00080.286l859 ---|          SA6    A2
Line S00081 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00787  M02S00081.286l859 ---|          SA1    A5+4        SET ACCESS LEVEL
Line S00082 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00788  M02S00082.286l859 ---|          SA2    PCUA
Line S00083 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00789  M02S00083.286l859 ---|          LX2    36
Line S00084 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00790  M02S00084.286l859 ---|          BX6    X1+X2
Line S00085 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00791  M02S00085.286l859 ---|          SA6    A1
Line S00086 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00792  M02S00086.286l859 ---|          SETFET A5,ERP=E,DTY==2RMS  SET ERROR PROCESSING
Line S00087 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00793  M02S00087.286l859 ---|          REQUEST  A5,U,N    REQUEST FILE ASSIGNMENT
Line S00088 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00794  M02S00088.286l859 ---|          SA1    A5
Line S00089 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00795  M02S00089.286l859 ---|          MX0    -8
Line S00090 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00796  M02S00090.286l859 ---|          AX1    10
Line S00091 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00797  M02S00091.286l859 ---|          BX2    -X0*X1
Line S00092 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00798  M02S00092.286l859 ---|          NZ     X2,ASF1     IF UNABLE TO ASSIGN FILE
Line S00093 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00799  M02S00093.286l859 ---|          SETFET A5,ERP=B0   CLEAR ERROR PROCESSING
Line S00094 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00800  M02S00094.286l859 ---|          EQ     ASFX        RETURN
Line S00095 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00801  M02S00095.286l859 ---|
Line S00096 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00802  M02S00096.286l859 ---| ASF1     SX1    MELN        * PFUUUUU - ACCESS LEVEL NOT ALLOWED.*
Line S00097 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00803  M02S00097.286l859 ---|          EQ     ABT         ABORT
Line S00098 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00804  M02S00098.286l859 ---| DSS      SPACE  4,10
Line S00099 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00805  M02S00099.286l859 ---|**        DSS - DETERMINE SECURITY STATUS.
Line S00100 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00806  M02S00100.286l859 ---|*
Line S00101 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00807  M02S00101.286l859 ---|*         EXIT   (SYSS) = SYSTEM SECURITY MODE.
Line S00102 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00808  M02S00102.286l859 ---|*                (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT.
Line S00103 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00809  M02S00103.286l859 ---|*                (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT.
Line S00104 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00810  M02S00104.286l859 ---|*
Line S00105 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00811  M02S00105.286l859 ---|*         USES   X - 0, 1, 2, 6, 7.
Line S00106 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00812  M02S00106.286l859 ---|*                A - 1, 2, 6, 7.
Line S00107 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00813  M02S00107.286l859 ---|*
Line S00108 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00814  M02S00108.286l859 ---|*         MACROS GETSSL.
Line S00109 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00815  M02S00109.286l859 ---|
Line S00110 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00816  M02S00110.286l859 ---|
Line S00111 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00817  M02S00111.286l859 ---| DSS      SUBR               ENTRY/EXIT
Line S00112 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00818  M02S00112.286l859 ---|          GETSSL DSSA        GET SYSTEM SECURITY STATUS
Line S00113 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00819  M02S00113.286l859 ---|          SA2    DSSA
Line S00114 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00820  M02S00114.286l859 ---|          MX0    -6
Line S00115 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00821  M02S00115.286l859 ---|          LX2    12
Line S00116 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00822  M02S00116.286l859 ---|          BX6    -X0*X2      SYSTEM SECURITY MODE
Line S00117 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00823  M02S00117.286l859 ---|          SA6    SYSS
Line S00118 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00824  M02S00118.286l859 ---|          ZR     X6,DSSX     IF NOT SECURE SYSTEM
Line S00119 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00825  M02S00119.286l859 ---|          LX2    6
Line S00120 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00826  M02S00120.286l859 ---|          BX7    -X0*X2      SYSTEM LOWER LIMIT
Line S00121 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00827  M02S00121.286l859 ---|          LX2    6
Line S00122 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00828  M02S00122.286l859 ---|          BX6    -X0*X2      SYSTEM UPPER LIMIT
Line S00123 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00829  M02S00123.286l859 ---|          SA7    SYLA
Line S00124 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00830  M02S00124.286l859 ---|          SA6    SYUA
Line S00125 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00831  M02S00125.286l859 ---|          EQ     DSSX        RETURN
Line S00126 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00832  M02S00126.286l859 ---|
Line S00127 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00833  M02S00127.286l859 ---|
Line S00128 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00834  M02S00128.286l859 ---| DSSA     CON    0           SYSTEM SECURITY STATUS RETURN
Line S00129 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00835  M02S00129.286l859 ---| IOF      SPACE  4,10
Line S00130 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00836  M02S00130.286l859 ---|**        IOF - INITIALIZE OUTPUT FILES.
Line S00131 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00837  M02S00131.286l859 ---|*
Line S00132 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00838  M02S00132.286l859 ---|*         EXIT   OUTPUT AND SUMMARY FILES INITIALIZED.
Line S00133 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00839  M02S00133.286l859 ---|*
Line S00134 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00840  M02S00134.286l859 ---|*         USES   X - 0, 1, 2, 5, 6.
Line S00135 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00841  M02S00135.286l859 ---|*                A - 1, 2, 5, 6.
Line S00136 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00842  M02S00136.286l859 ---|*
Line S00137 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00843  M02S00137.286l859 ---|*         CALLS  PFO, SPT, WIC.
Line S00138 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00844  M02S00138.286l859 ---|*
Line S00139 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00845  M02S00139.286l859 ---|*         MACROS SETFET, SETFS, WRITEC.
Line S00140 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00846  M02S00140.286l859 ---|
Line S00141 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00847  M02S00141.286l859 ---|
Line S00142 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00848  M02S00142.286l859 ---| IOF      SUBR               ENTRY/EXIT
Line S00143 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00849  M02S00143.286l859 ---|
Line S00144 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00850  M02S00144.286l859 ---|*         INITIALIZE OUTPUT FILE.
Line S00145 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00851  M02S00145.286l859 ---|
Line S00146 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00852  M02S00146.286l859 ---|          SA1    CPAR+/COMSPFS/CPLB
Line S00147 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00853  M02S00147.286l859 ---|          NZ     X1,IOF1     IF OUTPUT FILE SELECTED
Line S00148 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00854  M02S00148.286l859 ---|          SX6    B0+         CLEAR ALL OUTPUT OPTIONS
Line S00149 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00855  M02S00149.286l859 ---|          SA6    CPAR+/COMSPFS/CPLO
Line S00150 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00856  M02S00150.286l859 ---|          SA6    OUTPUT
Line S00151 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00857  M02S00151.286l859 ---|          EQ     IOF2        PROCESS SUMMARY FILE
Line S00152 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00858  M02S00152.286l859 ---|
Line S00153 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00859  M02S00153.286l859 ---| IOF1     SA2    OUTPUT
Line S00154 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00860  M02S00154.286l859 ---|          MX0    42
Line S00155 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00861  M02S00155.286l859 ---|          BX6    -X0*X2
Line S00156 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00862  M02S00156.286l859 ---|          BX6    X6+X1
Line S00157 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00863  M02S00157.286l859 ---|          SA6    A2
Line S00158 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00864  M02S00158.286l859 ---|          SETFS  OUTPUT,0    CLEAR SPECIAL FILE STATUS
Line S00159 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00865  M02S00159.286l859 ---|          WRITEC O,PDFE      WRITE FORMAT EFFECTOR
Line S00160 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00866  M02S00160.286l859 ---|          RJ     SPT         SET UP OUTPUT FILE PAGE TITLE
Line S00161 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00867  M02S00161.286l859 ---|
Line S00162 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00868  M02S00162.286l859 ---|*         INITIALIZE SUMMARY FILE.
Line S00163 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00869  M02S00163.286l859 ---|
Line S00164 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00870  M02S00164.286l859 ---| IOF2     SA1    CPAR+/COMSPFS/CPSU
Line S00165 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00871  M02S00165.286l859 ---|          ZR     X1,IOFX     IF NO SUMMARY FILE
Line S00166 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00872  M02S00166.286l859 ---|          SA5    SU
Line S00167 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00873  M02S00167.286l859 ---|          RJ     PFO         OPEN SUMMARY FILE
Line S00168 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00874  M02S00168.286l859 ---|          SETFET SU,ERP=B0   CLEAR USER ERROR PROCESSING
Line S00169 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00875  M02S00169.286l859 ---|          RJ     WIC         WRITE INITIAL BLOCKS
Line S00170 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00876  M02S00170.286l859 ---|          EQ     IOFX        RETURN
Line S00171 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00877  M02S00171.286l859 ---| PFO      SPACE  4,20
Line S00172 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00878  M02S00172.286l859 ---|**        PFO - PROCESS FILE OPENING.
Line S00173 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00879  M02S00173.286l859 ---|*
Line S00174 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00880  M02S00174.286l859 ---|*         ENTRY  (X1) = FILE NAME.
Line S00175 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00881  M02S00175.286l859 ---|*                (A5) = FET ADDRESS.
Line S00176 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00882  M02S00176.286l859 ---|*                (X5) = FIRST WORD OF FET.
Line S00177 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00883  M02S00177.286l859 ---|*
Line S00178 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00884  M02S00178.286l859 ---|*         EXIT   FET FILE NAME PRESET.
Line S00179 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00885  M02S00179.286l859 ---|*                FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF
Line S00180 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00886  M02S00180.286l859 ---|*                NOT ALREADY ASSIGNED.  EQUIPMENT SECURITY VERIFIED, IF
Line S00181 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00887  M02S00181.286l859 ---|*                THE FILE IS ALREADY ASSIGNED.
Line S00182 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00888  M02S00182.286l859 ---|*                FET CONTROL WORD STATUS WORD PRESET.
Line S00183 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00889  M02S00183.286l859 ---|*                FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE.
Line S00184 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00890  M02S00184.286l859 ---|*
Line S00185 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00891  M02S00185.286l859 ---|*         USES   X - 0, 1, 5, 6.
Line S00186 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00892  M02S00186.286l859 ---|*                A - 1, 6.
Line S00187 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00893  M02S00187.286l859 ---|*
Line S00188 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00894  M02S00188.286l859 ---|*         MACROS OPEN, SETFS.
Line S00189 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00895  M02S00189.286l859 ---|*
Line S00190 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00896  M02S00190.286l859 ---|*         CALLS  ASF, VES.
Line S00191 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00897  M02S00191.286l859 ---|
Line S00192 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00898  M02S00192.286l859 ---|
Line S00193 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00899  M02S00193.286l859 ---| PFO      SUBR               ENTRY/EXIT
Line S00194 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00194.286l859 ---|          MX0    42          SET FILE NAME
Line S00195 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00901  M02S00195.286l859 ---|          BX6    X0*X1
Line S00196 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00902  M02S00196.286l859 ---|          BX5    -X0*X5
Line S00197 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00903  M02S00197.286l859 ---|          BX6    X6+X5
Line S00198 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00904  M02S00198.286l859 ---|          SA6    A5
Line S00199 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00905  M02S00199.286l859 ---|          RJ     ASF         ASSIGN SECURE FILE
Line S00200 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00906  M02S00200.286l859 ---|          OPEN   A5,READNR,R OPEN FILE
Line S00201 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00907  M02S00201.286l859 ---|          RJ     VES         VERIFY EQUIPMENT SECURITY
Line S00202 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00908  M02S00202.286l859 ---|          SX6    -B1         PRESET FET CONTROL WORD STATUS WORD
Line S00203 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00909  M02S00203.286l859 ---|          SA6    A5+CWSW
Line S00204 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00910  M02S00204.286l859 ---|          SA1    A5+B1       GET NON MASS STORAGE FLAG
Line S00205 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00911  M02S00205.286l859 ---|          MX6    1
Line S00206 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00912  M02S00206.286l859 ---|          BX6    X6*X1
Line S00207 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00913  M02S00207.286l859 ---|          LX6    44-59       SET ERROR PROCESSING, IF NOT MASS STORAGE
Line S00208 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00914  M02S00208.286l859 ---|          BX6    X6+X1
Line S00209 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00915  M02S00209.286l859 ---|          SA6    A1
Line S00210 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00916  M02S00210.286l859 ---|          SETFS  A5,0        CLEAR SPECIAL FILE STATUS
Line S00211 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00917  M02S00211.286l859 ---|          EQ     PFOX        RETURN
Line S00212 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00918  M02S00212.286l859 ---| SPT      SPACE  4,15
Line S00213 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00919  M02S00213.286l859 ---|**        SPT - SET UP PAGE TITLE.
Line S00214 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00920  M02S00214.286l859 ---|*
Line S00215 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00921  M02S00215.286l859 ---|*         EXIT   PARAMETERS SET IN PAGE TITLE.
Line S00216 Modification History
M01 (Added by) comcpfp
M02 (Updated by) 286l859
Seq #  *Modification Id* Act 
----------------------------+
00922  M02S00216.286l859 ---|*
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comcpfp.txt · Last modified: by 127.0.0.1