cdc:nos2.source:opl.opl871:common:comcpfp
Common COMCPFP
Library Member Format: MODIFY
Listing Sections
- Common COMCPFP Start
- Common COMCPFP Part 1 (Line 1655)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comcpfp +++| CTEXT COMCPFP - PERMANENT FILE UTILITY PRESET ROUTINES. 00002 M00S00002.comcpfp +++| SPACE 4,10 00003 M00S00003.comcpfp +++| IF -DEF,QUAL$,1 00004 M00S00004.comcpfp +++| QUAL COMCPFP 00005 M00S00005.comcpfp +++| BASE D
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION, 1987.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.comcpfp +++| SPACE 4,10 00009 M00S00008.comcpfp +++|*** PFP - PERMANENT FILE UTILITY PRESET ROUTINES. 00010 M00S00009.comcpfp +++|* G. S. YODER. 86/08/15.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00082.ns2790 ---| IOF SPACE 4,20
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00093 M01S00001.ns2790 +++| IOF SPACE 4,15
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00094 M01S00083.286l859 +++|** IOF - INITIALIZE OUTPUT FILES.
| Line S00084 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00095 M02S00084.ns2790 ---|* 00096 M02S00085.ns2790 ---|* ENTRY (OFUC) = UTILITY CODE IF *PFLIST* UTILITY.
| Line S00086 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00101 M02S00090.ns2790 ---|* (UCOF) .EQ. 1 IF UNSORTED CIR LIST TO BE OUTPUT. 00102 M02S00091.ns2790 ---|* (UFOF) .EQ. 1 IF UNSORTED FILE LIST TO BE OUTPUT. 00103 M02S00092.ns2790 ---|* (CISF) .EQ. 1 IF CIR ENTRIES SORT REQUIRED. 00104 M02S00093.ns2790 ---|* (CASF) .EQ. 1 IF CATALOG ENTRIES SORT REQUIRED.
| Line S00094 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00105 M01S00094.286l859 +++|*
| Line S00095 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00106 M02S00095.ns2790 ---|* USES X - 1, 2, 3, 4, 5, 6, 7. 00107 M02S00096.ns2790 ---|* A - 1, 2, 3, 4, 5, 6.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00108 M01S00002.ns2790 +++|* USES X - 1, 2, 5, 6. 00109 M01S00003.ns2790 +++|* A - 1, 2, 5, 6.
| Line S00097 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00110 M01S00097.286l859 +++|*
| Line S00098 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00111 M02S00098.ns2793 ---|* CALLS PFO, SPT, WIS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00112 M01S00001.ns2793 +++|* CALLS PFO, SDT, SPT, WIS.
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00113 M01S00099.286l859 +++|*
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00114 M02S00100.ns2790 ---|* MACROS GETPP, SETFET, SETFS, WRITEC.
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00004.ns2790 +++|* MACROS GETPP, SETFET, SETFS, WRITEO.
| Line S00101 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00129 M02S00114.ns2790 ---| EQ IOF6 PROCESS SUMMARY FILE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00130 M01S00005.ns2790 +++| EQ IOF2 PROCESS SUMMARY FILE
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00147 M01S00002.ns2793 +++| RJ SDT SET DEFAULT PAGE TITLE
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00148 M01S00131.286l859 +++|
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00149 M02S00132.ns2790 ---|* PROCESS IMLICIT *P* OR *U* LIST OPTION.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00150 M01S00006.ns2790 +++|* INITIALIZE SUMMARY FILE.
| Line S00133 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00151 M01S00133.286l859 +++|
| Line S00134 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00152 M02S00134.ns2790 ---| SA1 CPAR+/COMSPFS/CPLO 00153 M02S00135.ns2790 ---| MX7 2 00154 M02S00136.ns2790 ---| BX6 X7*X1 00155 M02S00137.ns2790 ---| ZR X6,IOF5 IF NOT *T* OR *C* LIST OPTION 00156 M02S00138.ns2790 ---| LX7 -4 00157 M02S00139.ns2790 ---| BX7 X7*X1 00158 M02S00140.ns2790 ---| NZ X7,IOF3 IF *P* OR *U* LIST OPTION SELECTED 00159 M02S00141.ns2790 ---| SA2 OFUC 00160 M02S00142.ns2790 ---| SX6 B1 00161 M02S00143.ns2790 ---| LX6 54-0 *U* LIST OPTION 00162 M02S00144.ns2790 ---| SX3 X2-/COMSPFS/CAUT 00163 M02S00145.ns2790 ---| ZR X3,IOF2 IF *PFCAT* 00164 M02S00146.ns2790 ---| SX3 X2-/COMSPFS/RLUT 00165 M02S00147.ns2790 ---| ZR X3,IOF2 IF *PFREL* 00166 M02S00148.ns2790 ---| LX6 55-54 *P* LIST OPTION 00167 M02S00149.ns2790 ---| IOF2 BX6 X1+X6 SET *U* OR *P* LIST OPTION 00168 M02S00150.ns2790 ---| SA6 CPAR+/COMSPFS/CPLO 00169 M02S00151.ns2790 ---| 00170 M02S00152.ns2790 ---|* INITIALIZE UNSORTED OUTPUT CONTROL FLAGS. 00171 M02S00153.ns2790 ---| 00172 M02S00154.ns2790 ---| IOF3 SA1 CPAR+/COMSPFS/CPLO 00173 M02S00155.ns2790 ---| SX6 B1 00174 M02S00156.ns2790 ---| LX1 59-55 00175 M02S00157.ns2790 ---| PL X1,IOF5 IF NOT *P* LIST OPTION 00176 M02S00158.ns2790 ---| LX1 59-59-59+55 00177 M02S00159.ns2790 ---| PL X1,IOF4 IF NOT *T* LIST OPTION 00178 M02S00160.ns2790 ---| SA6 UFOF SET UNSORTED FILE LIST OUTPUT FLAG 00179 M02S00161.ns2790 ---| IOF4 LX1 59-58-59+59 00180 M02S00162.ns2790 ---| PL X1,IOF5 IF NOT *C* LIST OPTION 00181 M02S00163.ns2790 ---| SA6 UCOF SET UNSORTED CIR LIST FLAG 00182 M02S00164.ns2790 ---| 00183 M02S00165.ns2790 ---|* INITIALIZE SORTED OUTPUT CONTROL FLAGS. 00184 M02S00166.ns2790 ---| 00185 M02S00167.ns2790 ---| IOF5 SA1 CPAR+/COMSPFS/CPLO 00186 M02S00168.ns2790 ---| SX6 1 00187 M02S00169.ns2790 ---| LX1 0-54 00188 M02S00170.ns2790 ---| BX2 X6*X1 *U* LIST OPTION 00189 M02S00171.ns2790 ---| LX1 0-58-0+54 00190 M02S00172.ns2790 ---| BX7 X1*X6 *C* LIST OPTION 00191 M02S00173.ns2790 ---| BX7 X7*X2 *U* .AND. *C* 00192 M02S00174.ns2790 ---| SA7 CISF INITIALIZE CIR SORT FLAG 00193 M02S00175.ns2790 ---| LX1 0-59-0+58 00194 M02S00176.ns2790 ---| BX7 X1*X6 *T* LIST OPTION 00195 M02S00177.ns2790 ---| LX1 0-56-0+59 00196 M02S00178.ns2790 ---| BX7 X7*X2 *U* .AND. *T* 00197 M02S00179.ns2790 ---| BX1 X6*X1 *S* LIST OPTION 00198 M02S00180.ns2790 ---| BX7 X7+X1 (*U* .AND. *T*) .OR. *S* 00199 M02S00181.ns2790 ---| SA7 CASF INITIALIZE CATALOG SORT FLAG 00200 M02S00182.ns2790 ---| 00201 M02S00183.ns2790 ---|* INITIALIZE SUMMARY FILE. 00202 M02S00184.ns2790 ---| 00203 M02S00185.ns2790 ---| IOF6 SA1 CPAR+/COMSPFS/CPSU
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00204 M01S00007.ns2790 +++| IOF2 SA1 CPAR+/COMSPFS/CPSU
| Line S00186 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00227 M02S00208.ns2793 ---|* CALLS FAB, FDS, MWA, RPP.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00228 M01S00003.ns2793 +++|* CALLS FAB, FDS, MWA, RPP, SDT.
| Line S00209 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00004.ns2793 +++| RJ SDT RESET DEFAULT PAGE TITLE
| Line S00230 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00364.ns2790 ---|* SET CATALOG ENTRY FILE STATUS SUBHEADER.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00386 M01S00008.ns2790 +++|* SET EXTENDED PAGE HEADER FOR FILE PROCESSING.
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00365.286l859 +++|
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00366.ns2790 ---| SA1 OFUC 00389 M02S00367.ns2790 ---| SA1 SPTA+X1 00390 M02S00368.ns2790 ---| PL X1,SPTX IF NO CATALOG ENTRY SUBHEADER EXTENSION 00391 M02S00369.ns2790 ---| MOVE 2,SPTE,/COMCFCE/CHDR1+9 SET CATALOG ENTRY SUBHEADER 00392 M02S00370.ns2790 ---| MOVE 2,SPTE+2,/COMCFCE/CHDR2+9 00393 M02S00371.ns2790 ---| MOVE 2,SPTE+4,/COMCFCE/CHDR3+9
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00394 M01S00009.ns2790 +++| SA1 SPTE 00395 M01S00010.ns2790 +++| BX6 X1 00396 M01S00011.ns2790 +++| SA6 /COMCFCE/CHDR1+9 SET HEADER EXTENSION
| Line S00372 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00403 M02S00378.ns2790 ---| IVFD /COMSPFS/LDUT,(1/1,23/0,18/PTLD,18/MTLD) *PFLOAD* 00404 M02S00379.ns2790 ---| IVFD /COMSPFS/DUUT,(1/1,23/0,18/PTDU,18/MTDU) *PFDUMP* 00405 M02S00380.ns2790 ---| IVFD /COMSPFS/CAUT,(1/0,23/0,18/PTCA,18/MTCA) *PFCAT* 00406 M02S00381.ns2790 ---| IVFD /COMSPFS/ATUT,(1/1,23/0,18/PTAT,18/MTAT) *PFATC* 00407 M02S00382.ns2790 ---| IVFD /COMSPFS/COUT,(1/1,23/0,18/PTCO,18/MTCO) *PFCOPY* 00408 M02S00383.ns2790 ---| IVFD /COMSPFS/RLUT,(1/0,23/0,18/PTRL,18/MTRL) *PFREL*
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 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*
| Line S00384 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00420 M02S00389.ns2790 ---| 00421 M02S00390.ns2790 ---|* CATALOG PROCESSING SUBHEADER EXTENSION. 00422 M02S00391.ns2790 ---| 00423 M02S00392.ns2790 ---| SPTE DATA 20H PFC ARCHIVE 00424 M02S00393.ns2790 ---| DATA 20H ONLY FILE 00425 M02S00394.ns2790 ---| DATA 20H ERRORS
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00426 M01S00018.ns2790 +++| SPTE DATA 10H SEQUENCE
| Line S00395 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00432 M02S00400.ns2790 ---| DATA 50H1PFLOAD - FILES LOADED. SORTED BY USER/NAME. 00433 M02S00401.ns2790 ---| DATA 50H1PFLOAD - CATALOG IMAGE. 00434 M02S00402.ns2790 ---| DATA 50H1PFLOAD - CATALOG IMAGE. SORTED BY USER/NAME.
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00435 M01S00019.ns2790 +++| DATA 50H1PFLOAD - CATALOG IMAGE RECORD.
| Line S00403 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00436 M01S00403.286l859 +++| DATA 50H1PFLOAD - USER SUMMARY. 00437 M01S00404.286l859 +++| DATA 50H1PFLOAD - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00438 M01S00005.ns2793 +++| DATA 50H1PFLOAD.
| Line S00405 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00439 M01S00405.286l859 +++| 00440 M01S00406.286l859 +++| MTDU DATA 50H1PFDUMP - FILES DUMPED.
| Line S00407 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00407.ns2790 ---| DATA 50H1PFDUMP - FILES DUMPED. SORTED BY USER/NAME. 00442 M02S00408.ns2790 ---| DATA 50H1PFDUMP - CATALOG IMAGE. 00443 M02S00409.ns2790 ---| DATA 50H1PFDUMP - CATALOG IMAGE. SORTED BY USER/NAME.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00444 M01S00020.ns2790 +++| DATA 50H1PFDUMP - CATALOG IMAGE RECORD.
| Line S00410 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00445 M01S00410.286l859 +++| DATA 50H1PFDUMP - USER SUMMARY. 00446 M01S00411.286l859 +++| DATA 50H1PFDUMP - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00447 M01S00006.ns2793 +++| DATA 50H1PFDUMP.
| Line S00412 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00448 M01S00412.286l859 +++| 00449 M01S00413.286l859 +++| MTCA DATA 50H1PFCAT - FILES CATALOGED.
| Line S00414 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00450 M02S00414.ns2790 ---| DATA 50H1PFCAT - FILES CATALOGED. SORTED BY USER/NAME. 00451 M02S00415.ns2790 ---| DATA 50H
| Line S00416 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00452 M01S00416.286l859 +++| DATA 50H 00453 M01S00417.286l859 +++| DATA 50H1PFCAT - USER SUMMARY. 00454 M01S00418.286l859 +++| DATA 50H1PFCAT - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00455 M01S00007.ns2793 +++| DATA 50H1PFCAT.
| Line S00419 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00456 M01S00419.286l859 +++| 00457 M01S00420.286l859 +++| MTAT DATA 50H1PFATC - FILES ON ARCHIVE.
| Line S00421 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00458 M02S00421.ns2790 ---| DATA 50H1PFATC - FILES ON ARCHIVE. SORTED BY USER/NAME. 00459 M02S00422.ns2790 ---| DATA 50H1PFATC - CATALOG IMAGE. 00460 M02S00423.ns2790 ---| DATA 50H1PFATC - CATALOG IMAGE. SORTED BY USER/NAME.
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00461 M01S00021.ns2790 +++| DATA 50H1PFATC - CATALOG IMAGE RECORD.
| Line S00424 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00462 M01S00424.286l859 +++| DATA 50H1PFATC - USER SUMMARY. 00463 M01S00425.286l859 +++| DATA 50H1PFATC - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00464 M01S00008.ns2793 +++| DATA 50H1PFATC.
| Line S00426 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00465 M01S00426.286l859 +++| 00466 M01S00427.286l859 +++| MTCO DATA 50H1PFCOPY - FILES COPIED.
| Line S00428 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00467 M02S00428.ns2790 ---| DATA 50H1PFCOPY - FILES COPIED. SORTED BY USER/NAME. 00468 M02S00429.ns2790 ---| DATA 50H
| Line S00430 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00469 M01S00430.286l859 +++| DATA 50H 00470 M01S00431.286l859 +++| DATA 50H1PFCOPY - USER SUMMARY. 00471 M01S00432.286l859 +++| DATA 50H1PFCOPY - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00472 M01S00009.ns2793 +++| DATA 50H1PFCOPY.
| Line S00433 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00473 M01S00433.286l859 +++| 00474 M01S00434.286l859 +++| MTRL DATA 50H1PFREL - FILES PROCESSED.
| Line S00435 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
M02 (Removed by) | ns2790 |
Seq # *Modification Id* Act ----------------------------+ 00475 M02S00435.ns2790 ---| DATA 50H1PFREL - FILES PROCESSED. SORTED BY USER/NAME. 00476 M02S00436.ns2790 ---| DATA 50H
| Line S00437 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00477 M01S00437.286l859 +++| DATA 50H 00478 M01S00438.286l859 +++| DATA 50H1PFREL - USER SUMMARY. 00479 M01S00439.286l859 +++| DATA 50H1PFREL - TAPE ALTERNATE STORAGE SUMMARY.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2793 |
Seq # *Modification Id* Act ----------------------------+ 00480 M01S00010.ns2793 +++| DATA 50H1PFREL.
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00010.comcpfp +++| RPS SPACE 4,20 00716 M00S00011.comcpfp +++|** RPS - READ PERMANENT FILE SELECTIONS. 00717 M00S00012.comcpfp +++|* 00718 M00S00013.comcpfp +++|* IT IS ASSUMED THAT THE FILE SELECTION BUFFER IS AT THE END OF 00719 M00S00014.comcpfp +++|* MEMORY. 00720 M00S00015.comcpfp +++|* 00721 M00S00016.comcpfp +++|* ENTRY (X0) = SELECTIONS BUFFER ADDRESS. 00722 M00S00017.comcpfp +++|* 00723 M00S00018.comcpfp +++|* EXIT FILE SELECTIONS READ TO BUFFER FROM SCRATCH FILE
| Line S00019 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00724 M01S00019.286l859 ---|* ZZZZZG9 IF PRESENT.
| Line S00674 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00725 M01S00674.286l859 +++|* ZZZZZGB IF PRESENT. 00726 M00S00020.comcpfp +++|* (/COMSPFS/FISP) = SELECTION BUFFER POINTER IF 00727 M00S00021.comcpfp +++|* SELECTIONS PRESENT. 00728 M00S00022.comcpfp +++|* 00729 M00S00023.comcpfp +++|* USES X - 5, 7. 00730 M00S00024.comcpfp +++|* A - 5, 7. 00731 M00S00025.comcpfp +++|* 00732 M00S00026.comcpfp +++|* MACROS MEMORY, READ, RETURN, REWIND, SETFET. 00733 M00S00027.comcpfp +++| 00734 M00S00028.comcpfp +++| 00735 M00S00029.comcpfp +++| RPS SUBR ENTRY/EXIT 00736 M00S00030.comcpfp +++| SA5 /COMSPFS/NFIS 00737 M00S00031.comcpfp +++| ZR X5,RPSX IF NO FILE SELECTIONS 00738 M00S00032.comcpfp +++| BX7 X0 00739 M00S00033.comcpfp +++| SX5 X5+64 LENGTH = COUNT + SECTOR FILL 00740 M00S00034.comcpfp +++| SA7 /COMSPFS/FISP SET BUFFER POINTER FOR *COMCPFS* 00741 M00S00035.comcpfp +++| IX7 X5+X0 LWA+1 OF INCREASED MEMORY 00742 M00S00036.comcpfp +++| MEMORY CM,,R,X7 INCREASE FL FOR SELECTION BUFFER 00743 M00S00037.comcpfp +++| SETFET RPSA,(BUF=X0,X5) SET FET POINTERS FOR DIRECT READ 00744 M00S00038.comcpfp +++| REWIND RPSA,R 00745 M00S00039.comcpfp +++| READ RPSA READ FILE SELECTIONS 00746 M00S00040.comcpfp +++| RETURN RPSA RETURN SCRATCH FILE 00747 M00S00041.comcpfp +++| EQ RPSX RETURN 00748 M00S00042.comcpfp +++| 00749 M00S00043.comcpfp +++| 00750 M00S00044.comcpfp +++| RPSA BSS 0 FILE SELECTIONS SCRATCH FILE FET
| Line S00045 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 00751 M01S00045.286l859 ---| ZZZZZG9 FILEB 0,0,FET=10 00752 M01S00046.286l859 ---| SPACE 4,10 00753 M01S00047.286l859 ---| COM$ IF DEF,COM$ 00754 M01S00048.286l859 ---| TITLE COMCPFP - COMMON PRESET ROUTINES. 00755 M01S00049.286l859 ---| ASF SPACE 4,15 00756 M01S00050.286l859 ---|** ASF - ASSIGN SECURE FILE. 00757 M01S00051.286l859 ---|* 00758 M01S00052.286l859 ---|* ENTRY (SYSS) = SYSTEM SECURITY MODE. 00759 M01S00053.286l859 ---|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS. 00760 M01S00054.286l859 ---|* (A5) = FET ADDRESS. 00761 M01S00055.286l859 ---|* 00762 M01S00056.286l859 ---|* EXIT FILE ASSIGNED. 00763 M01S00057.286l859 ---|* IF NOT ALREADY ASSIGNED, A DEVICE THAT ALLOWS THE 00764 M01S00058.286l859 ---|* UPPER LEVEL THAT WILL BE PROCESSED IS SELECTED. 00765 M01S00059.286l859 ---|* 00766 M01S00060.286l859 ---|* USES X - 0, 1, 2, 6, 7. 00767 M01S00061.286l859 ---|* A - 1, 2, 6, 7. 00768 M01S00062.286l859 ---|* 00769 M01S00063.286l859 ---|* MACROS REQUEST, SETFET, STATUS. 00770 M01S00064.286l859 ---| 00771 M01S00065.286l859 ---| 00772 M01S00066.286l859 ---| ASF SUBR ENTRY/EXIT 00773 M01S00067.286l859 ---| SA1 SYSS 00774 M01S00068.286l859 ---| ZR X1,ASFX IF NOT SECURE SYSTEM 00775 M01S00069.286l859 ---| STATUS A5 DETERMINE IF FILE IS ASSIGNED 00776 M01S00070.286l859 ---| SA1 A5 00777 M01S00071.286l859 ---| MX0 -11 00778 M01S00072.286l859 ---| LX0 1 00779 M01S00073.286l859 ---| BX2 -X0*X1 00780 M01S00074.286l859 ---| NZ X2,ASFX IF FILE EXISTS 00781 M01S00075.286l859 ---| SA2 A5+B1 SET SECURITY PROCESSING BIT 00782 M01S00076.286l859 ---| SX6 B1 00783 M01S00077.286l859 ---| LX6 39-0 00784 M01S00078.286l859 ---| BX7 -X6*X2 00785 M01S00079.286l859 ---| BX6 X6+X7 00786 M01S00080.286l859 ---| SA6 A2 00787 M01S00081.286l859 ---| SA1 A5+4 SET ACCESS LEVEL 00788 M01S00082.286l859 ---| SA2 PCUA 00789 M01S00083.286l859 ---| LX2 36 00790 M01S00084.286l859 ---| BX6 X1+X2 00791 M01S00085.286l859 ---| SA6 A1 00792 M01S00086.286l859 ---| SETFET A5,ERP=E,DTY==2RMS SET ERROR PROCESSING 00793 M01S00087.286l859 ---| REQUEST A5,U,N REQUEST FILE ASSIGNMENT 00794 M01S00088.286l859 ---| SA1 A5 00795 M01S00089.286l859 ---| MX0 -8 00796 M01S00090.286l859 ---| AX1 10 00797 M01S00091.286l859 ---| BX2 -X0*X1 00798 M01S00092.286l859 ---| NZ X2,ASF1 IF UNABLE TO ASSIGN FILE 00799 M01S00093.286l859 ---| SETFET A5,ERP=B0 CLEAR ERROR PROCESSING 00800 M01S00094.286l859 ---| EQ ASFX RETURN 00801 M01S00095.286l859 ---| 00802 M01S00096.286l859 ---| ASF1 SX1 MELN * PFUUUUU - ACCESS LEVEL NOT ALLOWED.* 00803 M01S00097.286l859 ---| EQ ABT ABORT 00804 M01S00098.286l859 ---| DSS SPACE 4,10 00805 M01S00099.286l859 ---|** DSS - DETERMINE SECURITY STATUS. 00806 M01S00100.286l859 ---|* 00807 M01S00101.286l859 ---|* EXIT (SYSS) = SYSTEM SECURITY MODE. 00808 M01S00102.286l859 ---|* (SYLA) = SYSTEM LOWER ACCESS LEVEL LIMIT. 00809 M01S00103.286l859 ---|* (SYUA) = SYSTEM UPPER ACCESS LEVEL LIMIT. 00810 M01S00104.286l859 ---|* 00811 M01S00105.286l859 ---|* USES X - 0, 1, 2, 6, 7. 00812 M01S00106.286l859 ---|* A - 1, 2, 6, 7. 00813 M01S00107.286l859 ---|* 00814 M01S00108.286l859 ---|* MACROS GETSSL. 00815 M01S00109.286l859 ---| 00816 M01S00110.286l859 ---| 00817 M01S00111.286l859 ---| DSS SUBR ENTRY/EXIT 00818 M01S00112.286l859 ---| GETSSL DSSA GET SYSTEM SECURITY STATUS 00819 M01S00113.286l859 ---| SA2 DSSA 00820 M01S00114.286l859 ---| MX0 -6 00821 M01S00115.286l859 ---| LX2 12 00822 M01S00116.286l859 ---| BX6 -X0*X2 SYSTEM SECURITY MODE 00823 M01S00117.286l859 ---| SA6 SYSS 00824 M01S00118.286l859 ---| ZR X6,DSSX IF NOT SECURE SYSTEM 00825 M01S00119.286l859 ---| LX2 6 00826 M01S00120.286l859 ---| BX7 -X0*X2 SYSTEM LOWER LIMIT 00827 M01S00121.286l859 ---| LX2 6 00828 M01S00122.286l859 ---| BX6 -X0*X2 SYSTEM UPPER LIMIT 00829 M01S00123.286l859 ---| SA7 SYLA 00830 M01S00124.286l859 ---| SA6 SYUA 00831 M01S00125.286l859 ---| EQ DSSX RETURN 00832 M01S00126.286l859 ---| 00833 M01S00127.286l859 ---| 00834 M01S00128.286l859 ---| DSSA CON 0 SYSTEM SECURITY STATUS RETURN 00835 M01S00129.286l859 ---| IOF SPACE 4,10 00836 M01S00130.286l859 ---|** IOF - INITIALIZE OUTPUT FILES. 00837 M01S00131.286l859 ---|* 00838 M01S00132.286l859 ---|* EXIT OUTPUT AND SUMMARY FILES INITIALIZED. 00839 M01S00133.286l859 ---|* 00840 M01S00134.286l859 ---|* USES X - 0, 1, 2, 5, 6. 00841 M01S00135.286l859 ---|* A - 1, 2, 5, 6. 00842 M01S00136.286l859 ---|* 00843 M01S00137.286l859 ---|* CALLS PFO, SPT, WIC. 00844 M01S00138.286l859 ---|* 00845 M01S00139.286l859 ---|* MACROS SETFET, SETFS, WRITEC. 00846 M01S00140.286l859 ---| 00847 M01S00141.286l859 ---| 00848 M01S00142.286l859 ---| IOF SUBR ENTRY/EXIT 00849 M01S00143.286l859 ---| 00850 M01S00144.286l859 ---|* INITIALIZE OUTPUT FILE. 00851 M01S00145.286l859 ---| 00852 M01S00146.286l859 ---| SA1 CPAR+/COMSPFS/CPLB 00853 M01S00147.286l859 ---| NZ X1,IOF1 IF OUTPUT FILE SELECTED 00854 M01S00148.286l859 ---| SX6 B0+ CLEAR ALL OUTPUT OPTIONS 00855 M01S00149.286l859 ---| SA6 CPAR+/COMSPFS/CPLO 00856 M01S00150.286l859 ---| SA6 OUTPUT 00857 M01S00151.286l859 ---| EQ IOF2 PROCESS SUMMARY FILE 00858 M01S00152.286l859 ---| 00859 M01S00153.286l859 ---| IOF1 SA2 OUTPUT 00860 M01S00154.286l859 ---| MX0 42 00861 M01S00155.286l859 ---| BX6 -X0*X2 00862 M01S00156.286l859 ---| BX6 X6+X1 00863 M01S00157.286l859 ---| SA6 A2 00864 M01S00158.286l859 ---| SETFS OUTPUT,0 CLEAR SPECIAL FILE STATUS 00865 M01S00159.286l859 ---| WRITEC O,PDFE WRITE FORMAT EFFECTOR 00866 M01S00160.286l859 ---| RJ SPT SET UP OUTPUT FILE PAGE TITLE 00867 M01S00161.286l859 ---| 00868 M01S00162.286l859 ---|* INITIALIZE SUMMARY FILE. 00869 M01S00163.286l859 ---| 00870 M01S00164.286l859 ---| IOF2 SA1 CPAR+/COMSPFS/CPSU 00871 M01S00165.286l859 ---| ZR X1,IOFX IF NO SUMMARY FILE 00872 M01S00166.286l859 ---| SA5 SU 00873 M01S00167.286l859 ---| RJ PFO OPEN SUMMARY FILE 00874 M01S00168.286l859 ---| SETFET SU,ERP=B0 CLEAR USER ERROR PROCESSING 00875 M01S00169.286l859 ---| RJ WIC WRITE INITIAL BLOCKS 00876 M01S00170.286l859 ---| EQ IOFX RETURN 00877 M01S00171.286l859 ---| PFO SPACE 4,20 00878 M01S00172.286l859 ---|** PFO - PROCESS FILE OPENING. 00879 M01S00173.286l859 ---|* 00880 M01S00174.286l859 ---|* ENTRY (X1) = FILE NAME. 00881 M01S00175.286l859 ---|* (A5) = FET ADDRESS. 00882 M01S00176.286l859 ---|* (X5) = FIRST WORD OF FET. 00883 M01S00177.286l859 ---|* 00884 M01S00178.286l859 ---|* EXIT FET FILE NAME PRESET. 00885 M01S00179.286l859 ---|* FILE REQUESTED ON APPROPRIATELY SECURE EQUIPMENT, IF 00886 M01S00180.286l859 ---|* NOT ALREADY ASSIGNED. EQUIPMENT SECURITY VERIFIED, IF 00887 M01S00181.286l859 ---|* THE FILE IS ALREADY ASSIGNED. 00888 M01S00182.286l859 ---|* FET CONTROL WORD STATUS WORD PRESET. 00889 M01S00183.286l859 ---|* FET ERROR PROCESSING BIT SET IF NOT MASS STORAGE FILE. 00890 M01S00184.286l859 ---|* 00891 M01S00185.286l859 ---|* USES X - 0, 1, 5, 6. 00892 M01S00186.286l859 ---|* A - 1, 6. 00893 M01S00187.286l859 ---|* 00894 M01S00188.286l859 ---|* MACROS OPEN, SETFS. 00895 M01S00189.286l859 ---|* 00896 M01S00190.286l859 ---|* CALLS ASF, VES. 00897 M01S00191.286l859 ---| 00898 M01S00192.286l859 ---| 00899 M01S00193.286l859 ---| PFO SUBR ENTRY/EXIT 00900 M01S00194.286l859 ---| MX0 42 SET FILE NAME 00901 M01S00195.286l859 ---| BX6 X0*X1 00902 M01S00196.286l859 ---| BX5 -X0*X5 00903 M01S00197.286l859 ---| BX6 X6+X5 00904 M01S00198.286l859 ---| SA6 A5 00905 M01S00199.286l859 ---| RJ ASF ASSIGN SECURE FILE 00906 M01S00200.286l859 ---| OPEN A5,READNR,R OPEN FILE 00907 M01S00201.286l859 ---| RJ VES VERIFY EQUIPMENT SECURITY 00908 M01S00202.286l859 ---| SX6 -B1 PRESET FET CONTROL WORD STATUS WORD 00909 M01S00203.286l859 ---| SA6 A5+CWSW 00910 M01S00204.286l859 ---| SA1 A5+B1 GET NON MASS STORAGE FLAG 00911 M01S00205.286l859 ---| MX6 1 00912 M01S00206.286l859 ---| BX6 X6*X1 00913 M01S00207.286l859 ---| LX6 44-59 SET ERROR PROCESSING, IF NOT MASS STORAGE 00914 M01S00208.286l859 ---| BX6 X6+X1 00915 M01S00209.286l859 ---| SA6 A1 00916 M01S00210.286l859 ---| SETFS A5,0 CLEAR SPECIAL FILE STATUS 00917 M01S00211.286l859 ---| EQ PFOX RETURN 00918 M01S00212.286l859 ---| SPT SPACE 4,15 00919 M01S00213.286l859 ---|** SPT - SET UP PAGE TITLE. 00920 M01S00214.286l859 ---|* 00921 M01S00215.286l859 ---|* EXIT PARAMETERS SET IN PAGE TITLE. 00922 M01S00216.286l859 ---|* 00923 M01S00217.286l859 ---|* USES X - 1, 2, 5, 6. 00924 M01S00218.286l859 ---|* A - 1, 2, 6. 00925 M01S00219.286l859 ---|* B - 2, 5. 00926 M01S00220.286l859 ---|* 00927 M01S00221.286l859 ---|* CALLS SNM, ZTB. 00928 M01S00222.286l859 ---|* 00929 M01S00223.286l859 ---|* MACROS EDATE, ETIME, MOVE. 00930 M01S00224.286l859 ---| 00931 M01S00225.286l859 ---| 00932 M01S00226.286l859 ---| SPT SUBR ENTRY/EXIT 00933 M01S00227.286l859 ---| SA1 /COMSPFS/UTLC 00934 M01S00228.286l859 ---| SX5 X1-1 SET INDEX TO CATALOG PROCESSING TITLE 00935 M01S00229.286l859 ---| SX2 SPTCL 00936 M01S00230.286l859 ---| ERRNZ SPTDL-SPTCL TABLE ENTRY LENGTHS MUST MATCH 00937 M01S00231.286l859 ---| IX5 X5*X2 00938 M01S00232.286l859 ---| SX2 X5+SPTC 00939 M01S00233.286l859 ---| MOVE SPTCL,X2,CPTX SET CATALOG PROCESSING TITLE 00940 M01S00234.286l859 ---| SX2 X5+SPTD 00941 M01S00235.286l859 ---| MOVE SPTDL,X2,CITX SET CATALOG IMAGE RECORD TITLE 00942 M01S00236.286l859 ---| SA1 CPAR+/COMSPFS/CPFN 00943 M01S00237.286l859 ---| SB2 1R? SET SEARCH CHARACTER 00944 M01S00238.286l859 ---| MX6 42 00945 M01S00239.286l859 ---| BX1 X6*X1 00946 M01S00240.286l859 ---| ZR X1,SPT1 IF NO FAMILY NAME 00947 M01S00241.286l859 ---| SB5 SPTA SET FAMILY MESSAGE ADDRESS 00948 M01S00242.286l859 ---| EQ SPT2 SET FAMILY NAME 00949 M01S00243.286l859 ---| 00950 M01S00244.286l859 ---| SPT1 SA1 CPAR+/COMSPFS/CPPN 00951 M01S00245.286l859 ---| BX1 X6*X1 00952 M01S00246.286l859 ---| ZR X1,SPT3 IF NO PACK NAME 00953 M01S00247.286l859 ---| SB5 SPTB SET PACK NAME MESSAGE ADDRESS 00954 M01S00248.286l859 ---| SPT2 RJ SNM SET FAMILY OR PACK NAME 00955 M01S00249.286l859 ---| SA1 B5 00956 M01S00250.286l859 ---| BX6 X1 00957 M01S00251.286l859 ---| SA6 PGFM 00958 M01S00252.286l859 ---| SA1 B5+B1 00959 M01S00253.286l859 ---| RJ ZTB BLANK FILL ZEROES 00960 M01S00254.286l859 ---| SA6 PGFM+1 00961 M01S00255.286l859 ---| SPT3 SA1 /COMSPFS/STDT 00962 M01S00256.286l859 ---| BX5 X1 00963 M01S00257.286l859 ---| AX1 18 00964 M01S00258.286l859 ---| EDATE X1 00965 M01S00259.286l859 ---| SA6 PGSD SET START DATE 00966 M01S00260.286l859 ---| MX1 -18 00967 M01S00261.286l859 ---| BX1 -X1*X5 00968 M01S00262.286l859 ---| ETIME X1 00969 M01S00263.286l859 ---| SA6 PGST SET START TIME 00970 M01S00264.286l859 ---| EQ SPTX RETURN 00971 M01S00265.286l859 ---| 00972 M01S00266.286l859 ---| 00973 M01S00267.286l859 ---| SPTA DATA C*FAMILY = ???????.* 00974 M01S00268.286l859 ---| SPTB DATA C*PACK NAME = ???????.* 00975 M01S00269.286l859 ---| 00976 M01S00270.286l859 ---|* TABLE OF CATALOG PROCESSING TITLE TEXT. THIS TABLE MUST BE 00977 M01S00271.286l859 ---|* MAINTAINED IN THE ORDER OF THE UTILITY CODES DEFINED IN 00978 M01S00272.286l859 ---|* *COMSPFS* AND EACH ENTRY MUST BE *SPTCL* (5) WORDS IN LENGTH. 00979 M01S00273.286l859 ---| 00980 M01S00274.286l859 ---| SPTC BSS 0 START OF TABLE 00981 M01S00275.286l859 ---| DATA 50H1 PFLOAD. FILES LOADED FROM ARCHIVE FILE. 00982 M01S00276.286l859 ---| SPTCL EQU *-SPTC LENGTH OF ONE ENTRY 00983 M01S00277.286l859 ---| DATA 50H1 PFDUMP. FILES DUMPED TO ARCHIVE FILE. 00984 M01S00278.286l859 ---| DATA 50H1 PFCAT. FILES ON ACTIVE DEVICES. 00985 M01S00279.286l859 ---| DATA 50H1 PFATC. FILES ON ARCHIVE FILE. 00986 M01S00280.286l859 ---| DATA 50H1 PFCOPY. FILES COPIED FROM ARCHIVE FILE. 00987 M01S00281.286l859 ---| DATA 50H1 PFREL. FILES SELECTED FOR RELEASE. 00988 M01S00282.286l859 ---| 00989 M01S00283.286l859 ---|* TABLE OF CATALOG IMAGE RECORD TITLE TEXT. THIS TABLE MUST BE 00990 M01S00284.286l859 ---|* MAINTAINED IN THE ORDER OF THE UTILITY CODES DEFINED IN 00991 M01S00285.286l859 ---|* *COMSPFS* AND EACH ENTRY MUST BE *SPTDL* (5) WORDS IN LENGTH. 00992 M01S00286.286l859 ---| 00993 M01S00287.286l859 ---| SPTD BSS 0 START OF TABLE 00994 M01S00288.286l859 ---| DATA 50H1 PFLOAD. FILES ON CATALOG IMAGE RECORD. 00995 M01S00289.286l859 ---| SPTDL EQU *-SPTD LENGTH OF ONE ENTRY 00996 M01S00290.286l859 ---| DATA 50H1 PFDUMP. FILES ON CATALOG IMAGE RECORD. 00997 M01S00291.286l859 ---| DATA 50H 00998 M01S00292.286l859 ---| DATA 50H1 PFATC. FILES ON CATALOG IMAGE RECORD. 00999 M01S00293.286l859 ---| DATA 50H 01000 M01S00294.286l859 ---| DATA 50H 01001 M01S00295.286l859 ---| SUN SPACE 4,15 01002 M01S00296.286l859 ---|** SUN - SET UTILITY NAME IN MESSAGES. 01003 M01S00297.286l859 ---|* 01004 M01S00298.286l859 ---|* ENTRY (A0) = ADDRESS OF MESSAGE LIST. 01005 M01S00299.286l859 ---|* 01006 M01S00300.286l859 ---|* EXIT UTILITY NAME SET IN MESSAGES. 01007 M01S00301.286l859 ---|* 01008 M01S00302.286l859 ---|* USES X - 1, 2. 01009 M01S00303.286l859 ---|* A - 0, 1, 2. 01010 M01S00304.286l859 ---|* B - 2, 5. 01011 M01S00305.286l859 ---|* 01012 M01S00306.286l859 ---|* CALLS SNM. 01013 M01S00307.286l859 ---| 01014 M01S00308.286l859 ---| 01015 M01S00309.286l859 ---| SUN SUBR ENTRY/EXIT 01016 M01S00310.286l859 ---| SB2 1R? SET SEARCH CHARACTER 01017 M01S00311.286l859 ---| SUN1 SA2 A0+ READ NEXT MESSAGE POINTER 01018 M01S00312.286l859 ---| SA1 /COMSPFS/UTLN SET UTILITY NAME 01019 M01S00313.286l859 ---| ZR X2,SUNX IF END OF MESSAGES 01020 M01S00314.286l859 ---| SB5 X2+ SET MESSAGE ADDRESS 01021 M01S00315.286l859 ---| RJ SNM SET UTILITY NAME IN MESSAGE 01022 M01S00316.286l859 ---| SA0 A0+B1 ADVANCE TO NEXT MESSAGE 01023 M01S00317.286l859 ---| EQ SUN1 PROCESS NEXT MESSAGE
| Line S00675 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01024 M01S00675.286l859 +++| ZZZZZGB FILEB 0,0,FET=10 01025 M00S00318.comcpfp +++| VES SPACE 4,20 01026 M00S00319.comcpfp +++|** VES - VERIFY EQUIPMENT SECURITY. 01027 M00S00320.comcpfp +++|* 01028 M00S00321.comcpfp +++|* ENTRY FILE ASSIGNED. 01029 M00S00322.comcpfp +++|* (A5) = FET ADDRESS. 01030 M00S00323.comcpfp +++|* (SYSS) = SYSTEM SECURITY MODE. 01031 M00S00324.comcpfp +++|* (PCLA) = LOWER ACCESS LEVEL TO PROCESS. 01032 M00S00325.comcpfp +++|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS. 01033 M00S00326.comcpfp +++|* 01034 M00S00327.comcpfp +++|* EXIT (EQAL) = *GETEAL* STATUS WORD. 01035 M00S00328.comcpfp +++|* TO *ABT* IF RANGE OF ACCESS LEVELS TO BE PROCESSED 01036 M00S00329.comcpfp +++|* IS NOT ALLOWED ON ASSIGNED EQUIPMENT. 01037 M00S00330.comcpfp +++|*
| Line S00331 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01038 M01S00331.286l859 ---|* USES X - 0, 1, 2, 6, 7.
| Line S00676 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01039 M01S00676.286l859 +++|* USES X - 0, 1, 2, 6, 7. 01040 M00S00332.comcpfp +++|* A - 1, 2, 6, 7. 01041 M01S00677.286l859 +++|* B - 2. 01042 M00S00333.comcpfp +++|* 01043 M00S00334.comcpfp +++|* MACROS GETEAL, STATUS. 01044 M00S00335.comcpfp +++| 01045 M00S00336.comcpfp +++| 01046 M00S00337.comcpfp +++| VES SUBR ENTRY/EXIT 01047 M00S00338.comcpfp +++| STATUS A5,P 01048 M00S00339.comcpfp +++| SA1 A5+6 GET EST ORDINAL 01049 M00S00340.comcpfp +++| MX0 -12 01050 M00S00341.comcpfp +++| LX1 12 01051 M00S00342.comcpfp +++| BX6 -X0*X1 01052 M00S00343.comcpfp +++| SA6 EQAL 01053 M00S00344.comcpfp +++| BX6 X6-X6 CLEAR FET+6 01054 M00S00345.comcpfp +++| SA6 A1 01055 M00S00346.comcpfp +++| SA6 A6-B1 CLEAR FET+5 01056 M00S00347.comcpfp +++| SA1 SYSS 01057 M00S00348.comcpfp +++| ZR X1,VESX IF NOT SECURED SYSTEM 01058 M00S00349.comcpfp +++| GETEAL EQAL GET EQUIPMENT/DEVICE ACCESS LEVEL LIMITS 01059 M00S00350.comcpfp +++| SA1 EQAL 01060 M00S00351.comcpfp +++| LX1 -12 01061 M00S00352.comcpfp +++| BX2 -X0*X1 01062 M00S00353.comcpfp +++| MX0 -3 01063 M00S00354.comcpfp +++| BX6 -X0*X2 EQUIPMENT UPPER LIMIT 01064 M00S00355.comcpfp +++| LX2 -3 01065 M00S00356.comcpfp +++| BX7 -X0*X2 EQUIPMENT LOWER LIMIT 01066 M00S00357.comcpfp +++| SA1 PCUA 01067 M00S00358.comcpfp +++| SA2 PCLA 01068 M00S00359.comcpfp +++| IX6 X6-X1 01069 M00S00360.comcpfp +++| NG X6,VES1 IF UPPER LEVEL NOT ALLOWED 01070 M00S00361.comcpfp +++| IX7 X2-X7 01071 M00S00362.comcpfp +++| PL X7,VESX IF LOWER LEVEL ALLOWED
| Line S00363 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01072 M01S00363.286l859 ---| VES1 SX1 MELN * PFUUUUU - ACCESS LEVEL NOT ALLOWED.*
| Line S00678 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01073 M01S00678.286l859 +++| VES1 SB2 ERAL * ACCESS LEVELS NOT ALLOWED ON ...* 01074 M00S00364.comcpfp +++| EQ ABT ABORT
| Line S00365 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01075 M01S00365.286l859 ---| WIC SPACE 4,10 01076 M01S00366.286l859 ---|** WIC - WRITE INITIAL BLOCKS TO SUMMARY FILE. 01077 M01S00367.286l859 ---|* 01078 M01S00368.286l859 ---|* EXIT PREFIX TABLE AND SYSTEM BLOCK WRITTEN TO FILE. 01079 M01S00369.286l859 ---|* 01080 M01S00370.286l859 ---|* USES X - 0, 1, 2, 3, 5, 6. 01081 M01S00371.286l859 ---|* A - 0, 1, 2, 3, 6. 01082 M01S00372.286l859 ---|* 01083 M01S00373.286l859 ---|* CALLS FAB, MWA, ZTB. 01084 M01S00374.286l859 ---|* 01085 M01S00375.286l859 ---|* MACROS EDATE, ETIME, SYSTEM, WRITEO, WRITEW. 01086 M01S00376.286l859 ---| 01087 M01S00377.286l859 ---| 01088 M01S00378.286l859 ---| WIC SUBR ENTRY/EXIT 01089 M01S00379.286l859 ---| WRITEW SU,WICA,1 WRITE PREFIX TABLE IDENTIFIER 01090 M01S00380.286l859 ---| SA1 CPAR+/COMSPFS/CPSR 01091 M01S00381.286l859 ---| RJ ZTB BLANK FILL RECORD NAME 01092 M01S00382.286l859 ---| WRITEO SU WRITE RECORD NAME 01093 M01S00383.286l859 ---| SA1 /COMSPFS/STDT 01094 M01S00384.286l859 ---| BX5 X1 01095 M01S00385.286l859 ---| AX1 18 01096 M01S00386.286l859 ---| EDATE X1 CONVERT DATE 01097 M01S00387.286l859 ---| SA6 WICG SAVE DATE 01098 M01S00388.286l859 ---| WRITEO SU WRITE DATE TO PREFIX TABLE 01099 M01S00389.286l859 ---| MX1 -18 01100 M01S00390.286l859 ---| BX1 -X1*X5 01101 M01S00391.286l859 ---| ETIME X1 CONVERT TIME 01102 M01S00392.286l859 ---| SA6 WICH SAVE TIME 01103 M01S00393.286l859 ---| WRITEO SU WRITE TIME TO PREFIX TABLE 01104 M01S00394.286l859 ---| WRITEW SU,WICE,4 WRITE ZERO WORDS 01105 M01S00395.286l859 ---| SA1 /COMSPFS/UTLN 01106 M01S00396.286l859 ---| SA2 CPAR+/COMSPFS/CPFN 01107 M01S00397.286l859 ---| SA3 CPAR+/COMSPFS/CPPN 01108 M01S00398.286l859 ---| SX6 2RFM 01109 M01S00399.286l859 ---| NZ X2,WIC1 IF FAMILY NAME PRESENT 01110 M01S00400.286l859 ---| SX6 2RPN 01111 M01S00401.286l859 ---| NZ X3,WIC1 IF PACK NAME PRESENT 01112 M01S00402.286l859 ---| SX6 0 CLEAR FAMILY/PACK NAME MNEMONIC 01113 M01S00403.286l859 ---| WIC1 BX1 X1+X6 01114 M01S00404.286l859 ---| RJ ZTB BLANK FILL UTILITY NAME AND MNEMONIC 01115 M01S00405.286l859 ---| SA6 WICB 01116 M01S00406.286l859 ---| SA1 CPAR+/COMSPFS/CPFN 01117 M01S00407.286l859 ---| SA2 CPAR+/COMSPFS/CPPN 01118 M01S00408.286l859 ---| MX6 42 01119 M01S00409.286l859 ---| BX1 X6*X1 01120 M01S00410.286l859 ---| BX2 X6*X2 01121 M01S00411.286l859 ---| BX1 X1+X2 01122 M01S00412.286l859 ---| ZR X1,WIC2 IF NEITHER FAMILY NOR PACK NAME 01123 M01S00413.286l859 ---| SX2 1R= 01124 M01S00414.286l859 ---| BX1 X1+X2 01125 M01S00415.286l859 ---| LX1 -6 01126 M01S00416.286l859 ---| WIC2 RJ ZTB BLANK FILL NAME 01127 M01S00417.286l859 ---| SA6 WICB+1 SET FAMILY OR PACK NAME 01128 M01S00418.286l859 ---| WRITEW SU,WICB,2 WRITE UTILITY NAME AND FAMILY/PACK NAME 01129 M01S00419.286l859 ---| SYSTEM RSB,R,WICC READ SYSTEM TITLE 01130 M01S00420.286l859 ---| SA0 WICD SET SYSTEM TITLE ADDRESS 01131 M01S00421.286l859 ---| WIC3 SA1 A0 READ NEXT WORD 01132 M01S00422.286l859 ---| RJ ZTB BLANK FILL NAME 01133 M01S00423.286l859 ---| WRITEO SU WRITE WORD 01134 M01S00424.286l859 ---| SA0 A0+B1 01135 M01S00425.286l859 ---| SX1 A0-WICD-4 01136 M01S00426.286l859 ---| NZ X1,WIC3 IF NOT END OF SYSTEM TITLE 01137 M01S00427.286l859 ---| SA1 =10H 01138 M01S00428.286l859 ---| BX6 X1 01139 M01S00429.286l859 ---| WRITEO SU WRITE FINAL COMMENT WORD 01140 M01S00430.286l859 ---| SA1 /COMSPFS/UTLN 01141 M01S00431.286l859 ---| SX6 SABFL MAXIMUM BLOCK LENGTH 01142 M01S00432.286l859 ---| BX6 X1+X6 01143 M01S00433.286l859 ---| SA6 WICF 01144 M01S00434.286l859 ---| SX0 12 ALLOCATE 12 WORDS 01145 M01S00435.286l859 ---| SX1 3 SET WORD COUNT 01146 M01S00436.286l859 ---| SX2 WICF 01147 M01S00437.286l859 ---| RJ MWA MOVE WORDS TO ASSEMBLY BUFFER 01148 M01S00438.286l859 ---| SX0 B0 SET CONTINUATION 01149 M01S00439.286l859 ---| SX1 6 SET WORD COUNT 01150 M01S00440.286l859 ---| SX2 WICD 01151 M01S00441.286l859 ---| RJ MWA MOVE SYSTEM TITLE AND VERSION TO BUFFER 01152 M01S00442.286l859 ---| SX1 B1 01153 M01S00443.286l859 ---| SX2 /COMSPFS/STDT 01154 M01S00444.286l859 ---| RJ MWA MOVE PACKED DATE AND TIME TO BUFFER 01155 M01S00445.286l859 ---| SX1 B1 01156 M01S00446.286l859 ---| SX2 WICI 01157 M01S00447.286l859 ---| RJ MWA MOVE SYSTEM LEVEL TO BUFFER 01158 M01S00448.286l859 ---| RJ FAB FLUSH ASSEMBLY BUFFER 01159 M01S00449.286l859 ---| EQ WICX RETURN 01160 M01S00450.286l859 ---| 01161 M01S00451.286l859 ---| 01162 M01S00452.286l859 ---| WICA VFD 12/7700B,12/0016B,36/0 PREFIX TABLE IDENTIFIER 01163 M01S00453.286l859 ---| 01164 M01S00454.286l859 ---| WICB DATA 10HPFUUUUU FM FIRST TWO WORDS OF COMMENT 01165 M01S00455.286l859 ---| DATA 10H=FFFFFF 01166 M01S00456.286l859 ---| 01167 M01S00457.286l859 ---| WICC VFD 12/0,12/6,18/SYTL,18/WICD *RSB* CONTROL WORD 01168 M01S00458.286l859 ---| WICD VFD 1/1,23/0,18/1,18/0 *RSB* BUFFER FOR *SYTL* AND *SVNL* 01169 M01S00459.286l859 ---| WICE BSSZ 6 01170 M01S00460.286l859 ---| ERRNZ SVNL-SYTL-4 *SYTL* AND *SVNL* READ AS BLOCK 01171 M01S00461.286l859 ---| 01172 M01S00462.286l859 ---| WICF VFD 42/7LPFUUUUU UTILITY NAME 01173 M01S00463.286l859 ---| VFD 18/SABFL MAXIMUM BLOCK LENGTH 01174 M01S00464.286l859 ---| WICG CON 0 DATE YY/MM/DD. 01175 M01S00465.286l859 ---| WICH CON 0 TIME HH.MM.SS. 01176 M01S00466.286l859 ---| WICI CON 0 SYSTEM LEVEL 01177 M00S00467.comcpfp ---| SPACE 4,10 01178 M00S00468.comcpfp ---|* COMMON PRESET MESSAGES 01179 M00S00469.comcpfp ---| 01180 M00S00470.comcpfp ---| 01181 M01S00471.286l859 ---| MELN DATA C* ??????? - ACCESS LEVELS NOT ALLOWED ON ARCHIVE FILE 01182 M01S00472.286l859 ---|,EQUIPMENT.* 01183 M01S00473.286l859 ---| TPMP SPACE 4,10 01184 M01S00474.286l859 ---|* TPMP - TABLE OF PRESET MESSAGE POINTERS. 01185 M01S00475.286l859 ---| 01186 M01S00476.286l859 ---| 01187 M01S00477.286l859 ---| TPMP BSS 0 START OF TABLE 01188 M01S00478.286l859 ---| CON MELN * ACCESS LEVEL LIMITS NOT ALLOWED ON...* 01189 M01S00479.286l859 ---| CON 0 END OF TABLE
| Line S00679 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01190 M01S00679.286l859 +++| ERAL DATA C* ACCESS LEVELS NOT ALLOWED ON ARCHIVE FILE EQUIPMENT. 01191 M01S00680.286l859 +++|,* 01192 M00S00480.comcpfp +++| SPACE 4,10 01193 M00S00481.comcpfp +++|* RESERVED LOCATIONS. 01194 M00S00482.comcpfp +++| 01195 M00S00483.comcpfp +++| 01196 M01S00681.286l859 +++| OFFN CON 0 OUTPUT FILE FAMILY NAME 01197 M01S00682.286l859 +++| OFPN CON 0 OUTPUT FILE PACK NAME 01198 M01S00683.286l859 +++| OFUC CON 0 OUTPUT FILE UTILITY NAME 01199 M01S00684.286l859 +++| OFUN CON 0 OUTPUT FILE USER NAME FOR AUILIARY DEVICE 01200 M00S00484.comcpfp +++| PCLA CON 8 LOWER ACCESS LEVEL TO PROCESS 01201 M00S00485.comcpfp +++| PCUA CON -1 UPPER ACCESS LEVEL TO PROCESS 01202 M00S00486.comcpfp +++| EQAL CON 0 EQUIPMENT ACCESS LEVELS (*GETEAL* STATUS) 01203 M00S00487.comcpfp +++| SYLA CON 0 SYSTEM LOWER ACCESS LEVEL LIMIT 01204 M00S00488.comcpfp +++| SYUA CON 0 SYSTEM UPPER ACCESS LEVEL LIMIT
| Line S00489 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01205 M01S00489.286l859 ---| COM$ ENDIF 01206 M00S00490.comcpfp ---| PFA$ IF DEF,PFA$ 01207 M00S00491.comcpfp ---| TITLE COMCPFP - PFLOAD/PFAM PRESET ROUTINES. 01208 M00S00492.comcpfp ---| SSS SPACE 4,10 01209 M00S00493.comcpfp ---|** SSS - SET SECURED SYSTEM STATUS. 01210 M00S00494.comcpfp ---|* 01211 M00S00495.comcpfp ---|* EXIT (PCLA) = LOWER ACCESS LEVEL TO PROCESS. 01212 M00S00496.comcpfp ---|* (PCUA) = UPPER ACCESS LEVEL TO PROCESS. 01213 M00S00497.comcpfp ---|* (SYSS) .NE. 0 IF SECURED SYSTEM. 01214 M00S00498.comcpfp ---|* 01215 M00S00499.comcpfp ---|* USES X - 1, 2, 6, 7. 01216 M00S00500.comcpfp ---|* A - 1, 2, 6, 7. 01217 M00S00501.comcpfp ---|* 01218 M00S00502.comcpfp ---|* CALLS DSS. 01219 M00S00503.comcpfp ---| 01220 M00S00504.comcpfp ---| 01221 M00S00505.comcpfp ---| SSS SUBR ENTRY/EXIT 01222 M00S00506.comcpfp ---| RJ DSS SET SECURED SYSTEM STATUS 01223 M00S00507.comcpfp ---| SA1 SYSS 01224 M00S00508.comcpfp ---| ZR X1,SSSX IF NOT SECURED SYSTEM 01225 M00S00509.comcpfp ---| SA1 CPAR+/COMSPFS/CPLA 01226 M00S00510.comcpfp ---| SA2 CPAR+/COMSPFS/CPUA 01227 M00S00511.comcpfp ---| NZ X1,SSS1 IF ACCESS LEVELS SPECIFIED 01228 M00S00512.comcpfp ---| SA1 SYLA USE SYSTEM LIMITS 01229 M00S00513.comcpfp ---| SA2 SYUA 01230 M00S00514.comcpfp ---| SSS1 BX6 X1 01231 M00S00515.comcpfp ---| BX7 X2 01232 M00S00516.comcpfp ---| SA6 PCLA SET LOWER LEVEL TO PROCESS 01233 M00S00517.comcpfp ---| SA7 PCUA SET UPPER LEVLL TO PROCESS 01234 M00S00518.comcpfp ---| EQ SSSX RETURN 01235 M00S00519.comcpfp ---| PFA$ ENDIF 01236 M01S00520.286l859 ---| SPACE 4,10 01237 M01S00521.286l859 ---| PFD$ IF DEF,PFD$ 01238 M01S00522.286l859 ---| TITLE COMCPFP - PFDUMP/PFDM PRESET ROUTINES. 01239 M01S00523.286l859 ---| BMT SPACE 4,25 01240 M01S00524.286l859 ---|** BMT - BUILD MASS STORAGE TABLE.
| Line S00685 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01241 M01S00685.286l859 +++| DVA$ IF DEF,DVA$ 01242 M01S00686.286l859 +++| TITLE COMCPFP - PERMANENT FILE DEVICE ACCESS ROUTINES. 01243 M01S00687.286l859 +++| BMT SPACE 4,20 01244 M01S00688.286l859 +++|** BMT - BUILD MASS STORAGE TABLE AND MASTER DEVICE TABLE. 01245 M00S00525.comcpfp +++|* 01246 M00S00526.comcpfp +++|* ENTRY (CPAR) = CRACKED PARAMETER ARRAY. 01247 M00S00527.comcpfp +++|*
| Line S00528 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01248 M01S00528.286l859 ---|* EXIT MASS STORAGE TABLE BUILT ACCORDING TO SELECTION 01249 M01S00529.286l859 ---|* PARAMETERS CONTAINED IN (CPAR). SEE DOCUMENTATION OF 01250 M01S00530.286l859 ---|* *MSTT* FOR FORMAT. 01251 M01S00531.286l859 ---|* DEVICES THAT ARE UNAVAILABLE, LOCALLY UNLOADED OR HAVE 01252 M01S00532.286l859 ---|* FULL OR PERMANENT FILE INITIALIZATIONS PENDING ARE 01253 M01S00533.286l859 ---|* IGNORED.
| Line S00689 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01254 M01S00689.286l859 +++|* EXIT *MSTT* INITIALIZED. 01255 M01S00690.286l859 +++|* *TMDA* INITIALIZED. 01256 M01S00691.286l859 +++|* SUMMARY FILE DEVICE STATUS BUFFER INITIALIZED. 01257 M00S00534.comcpfp +++|* (MSSF) = 0, IF NO *MSS* TYPE EQUIPMENT FOUND IN EST. 01258 M00S00535.comcpfp +++|* = 1, IF *MSS* TYPE EQUIPMENT FOUND IN EST. 01259 M00S00536.comcpfp +++|* (ASFF) = 0, IF NO *MSE* EQUIPMENT FOUND IN EST. 01260 M00S00537.comcpfp +++|* = 1, IF *MSE* EQUIPMENT FOUND IN EST.
| Line S00538 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01261 M01S00538.286l859 ---|* IF SECURE SYSTEM, AND NO ACCESS LEVELS SPECIFIED, 01262 M01S00539.286l859 ---|* (PCLA) = LOWEST ACCESS LEVEL TO PROCESS. 01263 M01S00540.286l859 ---|* (PCUA) = HIGHEST ACCESS LEVEL TO PROCESS. 01264 M00S00541.comcpfp ---|* 01265 M00S00542.comcpfp ---|* USES X - 0, 1, 2, 3, 6, 7. 01266 M00S00543.comcpfp ---|* A - 1, 2, 3, 6, 7. 01267 M00S00544.comcpfp ---|* B - 2, 3, 4. 01268 M00S00545.comcpfp ---|*
| Line S00692 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01269 M01S00692.286l859 +++|* CALLS RSB=. 01270 M01S00693.286l859 +++|* 01271 M00S00546.comcpfp +++|* MACROS SYSTEM. 01272 M00S00547.comcpfp +++| 01273 M00S00548.comcpfp +++|
| Line S00549 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01274 M01S00549.286l859 ---|* TERMINATE MASS STORAGE TABLE. 01275 M01S00550.286l859 ---| 01276 M01S00551.286l859 ---| BMT10 BX6 X6-X6 TERMINATE MASS STORAGE TABLE 01277 M01S00552.286l859 ---| SA6 MSTT+B4 01278 M01S00553.286l859 ---| SA6 DSTBUF+B4 TERMINATE DEVICE STATUS BUFFER 01279 M01S00554.286l859 ---| SA6 A6+B1 01280 M01S00555.286l859 ---| 01281 M01S00556.286l859 ---| 01282 M00S00557.comcpfp ---| BMT SUBR ENTRY/EXIT 01283 M01S00558.286l859 ---| SA1 SYSS DETERMINE IF RANGE NEEDED 01284 M01S00559.286l859 ---| SX5 B0+ 01285 M01S00560.286l859 ---| ZR X1,BMT1 IF NOT SECURE SYSTEM 01286 M01S00561.286l859 ---| SA2 CPAR+/COMSPFS/CPLA 01287 M01S00562.286l859 ---| NZ X2,BMT1 IF ACCESS LEVELS SPECIFIED 01288 M01S00563.286l859 ---| SX5 B1+ 01289 M00S00564.comcpfp ---| 01290 M00S00565.comcpfp ---|* READ EST ENTRIES. 01291 M00S00566.comcpfp ---| 01292 M01S00567.286l859 ---| BMT1 SA1 BMTA READ EST POINTER
| Line S00694 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01293 M01S00694.286l859 +++| SA1 BMTA READ EST POINTER 01294 M00S00568.comcpfp +++| MX7 1 01295 M00S00569.comcpfp +++| BX6 X1 01296 M00S00570.comcpfp +++| SA7 ESTBUF 01297 M00S00571.comcpfp +++| SA6 ESTADD 01298 M00S00572.comcpfp +++| SYSTEM RSB,R,A6 01299 M00S00573.comcpfp +++| SA2 ESTBUF SET *COMCRSB* ENTRY CONDITIONS 01300 M00S00574.comcpfp +++| MX3 -12 01301 M00S00575.comcpfp +++| SX1 A2 SET ADDRESS TO TRANSFER TO 01302 M00S00576.comcpfp +++| AX2 24 01303 M00S00577.comcpfp +++| BX3 -X3*X2 01304 M00S00578.comcpfp +++| SX7 X3 01305 M00S00579.comcpfp +++| AX2 12 SET ADDRESS TO TRANSFER FROM 01306 M00S00580.comcpfp +++| R= X6,ESTE 01307 M00S00581.comcpfp +++| IX3 X3*X6 SET WORD COUNT 01308 M00S00582.comcpfp +++| SX4 B0 SET SUBSYSTEM (= *CMR*) 01309 M00S00583.comcpfp +++| MX6 1 01310 M00S00584.comcpfp +++| SA6 X1 01311 M00S00585.comcpfp +++| SA7 BMTB SAVE EST SIZE TO SEARCH 01312 M00S00586.comcpfp +++| RJ RSB= READ EST 01313 M00S00587.comcpfp +++| SB2 NOPE-1 INITIALIZE EST ORDINAL FOR SEARCH 01314 M00S00588.comcpfp +++| SA1 BMTB SET NUMBER OF EST ENTRIES 01315 M00S00589.comcpfp +++| SB3 X1 01316 M00S00590.comcpfp +++| SB4 B0 SET INITIAL MASS STORAGE TABLE INDEX 01317 M00S00591.comcpfp +++| 01318 M00S00592.comcpfp +++|* READ NEXT MST ENTRY. 01319 M00S00593.comcpfp +++| 01320 M00S00594.comcpfp +++| BMT2 SB2 B2+B1 ADVANCE EST ORDINAL 01321 M00S00595.comcpfp +++| EQ B2,B3,BMT10 IF END OF EST 01322 M00S00596.comcpfp +++| SX2 B2 01323 M00S00597.comcpfp +++| R= X6,ESTE 01324 M00S00598.comcpfp +++| IX7 X2*X6 01325 M00S00599.comcpfp +++| SA1 ESTBUF+X7+EQDE READ EST ENTRY 01326 M00S00600.comcpfp +++| PL X1,BMT7 IF NOT MASS STORAGE EQUIPMENT 01327 M00S00601.comcpfp +++| MX2 -12 SET MST ADDRESS 01328 M00S00602.comcpfp +++| BX6 -X2*X1 01329 M00S00603.comcpfp +++| LX1 59-54 01330 M00S00604.comcpfp +++| LX6 18+3 01331 M00S00605.comcpfp +++| NG X1,BMT2 IF DEVICE UNAVAILABLE 01332 M00S00606.comcpfp +++| SX2 MSTL SET MST LENGTH 01333 M00S00607.comcpfp +++| SX7 MSTBUF SET MST BUFFER ADDRESS 01334 M00S00608.comcpfp +++| LX2 36 01335 M00S00609.comcpfp +++| BX1 X6+X7 01336 M00S00610.comcpfp +++| MX7 1 SET ABSOLUTE MEMORY FLAG 01337 M00S00611.comcpfp +++| BX6 X1+X2 01338 M00S00612.comcpfp +++| SA7 MSTBUF 01339 M00S00613.comcpfp +++| SA6 MSTADD 01340 M00S00614.comcpfp +++| SYSTEM RSB,R,A6 READ MST ENTRY 01341 M00S00615.comcpfp +++| 01342 M00S00616.comcpfp +++|* CHECK FOR USABLE MST ENTRY. 01343 M00S00617.comcpfp +++| 01344 M00S00618.comcpfp +++| SA1 MSTBUF+STLL CHECK DEVICE STATUS 01345 M00S00619.comcpfp +++| SA2 BMTC 01346 M00S00620.comcpfp +++| BX6 X2*X1 01347 M00S00621.comcpfp +++| NZ X6,BMT2 IF UNLOADED, PF OR FULL INITIALIZATION 01348 M00S00622.comcpfp +++| SA1 MSTBUF+PUGL COMPARE USER NAMES 01349 M00S00623.comcpfp +++| SA2 CPAR+/COMSPFS/CPUN 01350 M00S00624.comcpfp +++| MX0 42 01351 M00S00625.comcpfp +++| BX6 X0*X1 01352 M00S00626.comcpfp +++| ZR X6,BMT3 IF PUBLIC PACK 01353 M00S00627.comcpfp +++| BX6 X6-X2 01354 M00S00628.comcpfp +++| BMT3 SA3 MSTBUF+PFGL GET FAMILY/PACK NAME 01355 M00S00629.comcpfp +++| SA1 CPAR+/COMSPFS/CPPN GET PACK NAME PARAMETER 01356 M00S00630.comcpfp +++| SA2 MSTBUF+MDGL GET AUXILIARY DEVICE FLAG 01357 M00S00631.comcpfp +++| BX7 X0*X6
| Line S00632 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01358 M01S00632.286l859 ---| LX2 59-58
| Line S00695 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01359 M01S00695.286l859 +++| LX2 59-57 01360 M01S00696.286l859 +++| PL X2,BMT2 IF DEVICE HAS 8 WORD CATALOG FORMAT 01361 M01S00697.286l859 +++| LX2 59-58-59+57 01362 M00S00633.comcpfp +++| NZ X1,BMT4 IF PACK NAME SPECIFIED 01363 M00S00634.comcpfp +++| SA1 CPAR+/COMSPFS/CPFN GET FAMILY NAME PARAMETER 01364 M00S00635.comcpfp +++| BX2 -X2 TOGGLE AUXILIARY DEVICE FLAG 01365 M00S00636.comcpfp +++| SX7 B0 CLEAR USER NAME COMPARISON 01366 M00S00637.comcpfp +++| BMT4 PL X2,BMT2 IF NOT CORRECT TYPE OF DEVICE 01367 M00S00638.comcpfp +++| BX6 X1-X3 01368 M00S00639.comcpfp +++| BX2 X0*X6 01369 M00S00640.comcpfp +++| NZ X7,BMT2 IF NOT CORRECT USER NAME 01370 M00S00641.comcpfp +++| NZ X2,BMT2 IF NOT CORRECT FAMILY/PACK NAME 01371 M00S00642.comcpfp +++| 01372 M00S00643.comcpfp +++|* BUILD FIRST WORD OF MASS STORAGE TABLE INFORMATION. 01373 M00S00644.comcpfp +++|
| Line S00645 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01374 M01S00645.286l859 ---| SA1 MSTBUF+ALGL SET FIRST TRACKS
| Line S00698 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01375 M01S00698.286l859 +++| SA1 MSTBUF+ALGL GET FIRST TRACKS AND CATALOG TRACK COUNT 01376 M00S00646.comcpfp +++| MX3 36
| Line S00647 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01377 M01S00647.286l859 ---| BX6 X3*X1 01378 M01S00648.286l859 ---| AX1 12 POSITION CATALOG TRACKS
| Line S00699 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01379 M01S00699.286l859 +++| BX6 X3*X1 SET IAPF, CATALOG, AND PERMIT TRACKS 01380 M01S00700.286l859 +++| AX1 12 01381 M00S00649.comcpfp +++| MX3 -9
| Line S00650 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01382 M01S00650.286l859 ---| BX3 -X3*X1
| Line S00701 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01383 M01S00701.286l859 +++| BX3 -X3*X1 NUMBER OF CATALOG TRACKS 01384 M00S00651.comcpfp +++| LX3 9+6
| Line S00652 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01385 M01S00652.286l859 ---| BX6 X6+X3 MERGE TRACKS AND CATALOGS DATA 01386 M01S00653.286l859 ---| SA2 MSTBUF+PFGL SET DEVICE NUMBER
| Line S00702 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01387 M01S00702.286l859 +++| BX6 X6+X3 MERGE NUMBER OF CATALOG TRACKS 01388 M01S00703.286l859 +++| SA2 MSTBUF+PFGL GET DEVICE NUMBER AND ACCESS LEVELS 01389 M00S00654.comcpfp +++| MX3 -6 01390 M00S00655.comcpfp +++| LX2 -6 01391 M00S00656.comcpfp +++| BX0 -X3*X2 DEVICE ACCESS LEVEL LIMITS 01392 M00S00657.comcpfp +++| LX2 -6
| Line S00658 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01393 M01S00658.286l859 ---| BX7 -X3*X2 01394 M01S00659.286l859 ---| BX6 X6+X7 01395 M01S00660.286l859 ---| SX1 B2 SET EST ORDINAL
| Line S00704 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01396 M01S00704.286l859 +++| BX7 -X3*X2 DEVICE NUMBER 01397 M01S00705.286l859 +++| BX6 X6+X7 MERGE DEVICE NUMBER 01398 M01S00706.286l859 +++| SX1 B2 EST ORDINAL 01399 M00S00661.comcpfp +++| LX1 6
| Line S00662 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01400 M01S00662.286l859 ---| BX6 X6+X1
| Line S00707 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01401 M01S00707.286l859 +++| BX6 X6+X1 MERGE EST ORDINAL 01402 M00S00663.comcpfp +++| SA6 MSTT+B4 PUT FIRST WORD IN TABLE 01403 M00S00664.comcpfp +++| 01404 M00S00665.comcpfp +++|* BUILD SECOND WORD OF MASS STORAGE TABLE INFORMATION. 01405 M00S00666.comcpfp +++| 01406 M00S00667.comcpfp +++| MX3 -16
| Line S00668 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01407 M01S00668.286l859 ---| SA1 MSTBUF+PUGL SET DEVICE MASKS 01408 M01S00669.286l859 ---| BX6 -X3*X1 01409 M01S00670.286l859 ---| MX3 -1 SET CATALOG ENTRY FORMAT CODE 01410 M01S00671.286l859 ---| SA1 MSTBUF+MDGL 01411 M01S00672.286l859 ---| LX3 57 01412 M01S00673.286l859 ---| BX7 -X3*X1 01413 M01S00674.286l859 ---| LX7 17-57 01414 M01S00675.286l859 ---| BX6 X7+X6
| Line S00708 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01415 M01S00708.286l859 +++| SA1 MSTBUF+PUGL GET DEVICE MASKS 01416 M01S00709.286l859 +++| BX6 -X3*X1 SET DEVICE MASKS 01417 M00S00676.comcpfp +++| MX3 -12
| Line S00677 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01418 M01S00677.286l859 ---| SX7 B2 01419 M01S00678.286l859 ---| R= X1,ESTE 01420 M01S00679.286l859 ---| IX7 X7*X1 01421 M01S00680.286l859 ---| SA1 ESTBUF+X7+EQDE SET EQUIPMENT MNEMONIC
| Line S00710 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01422 M01S00710.286l859 +++| SX1 B2 01423 M01S00711.286l859 +++| R= X7,ESTE 01424 M01S00712.286l859 +++| IX1 X1*X7 EST ENTRY RELATIVE ADDRESS 01425 M01S00713.286l859 +++| SA1 ESTBUF+X1+EQDE GET MST ADDRESS AND EQUIPMENT MNEMONIC 01426 M01S00714.286l859 +++| BX2 -X3*X1 MST ADDRESS 01427 M01S00715.286l859 +++| LX2 -12 01428 M00S00681.comcpfp +++| LX1 -12
| Line S00682 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01429 M01S00682.286l859 ---| BX7 -X3*X1
| Line S00716 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01430 M01S00716.286l859 +++| BX7 -X3*X1 EQUIPMENT MNEMONIC 01431 M00S00683.comcpfp +++| LX7 18
| Line S00684 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01432 M01S00684.286l859 ---| BX6 X7+X6 01433 M01S00685.286l859 ---| SA1 MSTBUF+DDLL SET UNIT COUNT - 1 01434 M01S00686.286l859 ---| MX3 -3 01435 M01S00687.286l859 ---| LX1 -48 01436 M01S00688.286l859 ---| BX7 -X3*X1 01437 M01S00689.286l859 ---| LX7 30 01438 M01S00690.286l859 ---| BX6 X7+X6
| Line S00717 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01439 M01S00717.286l859 +++| BX6 X7+X6 MERGE EQUIPMENT MNEMONIC 01440 M01S00718.286l859 +++| LX0 30 01441 M01S00719.286l859 +++| BX6 X0+X6 MERGE ACCESS LEVEL LIMITS 01442 M01S00720.286l859 +++| BX6 X2+X6 MERGE MST ADDRESS 01443 M01S00721.286l859 +++| SA1 MSTBUF+MDGL GET SECTOR LIMIT 01444 M01S00722.286l859 +++| BX7 -X3*X1 SECTOR LIMIT 01445 M01S00723.286l859 +++| LX7 36 01446 M01S00724.286l859 +++| BX6 X6+X7 MERGE SECTOR LIMIT 01447 M00S00691.comcpfp +++| SA6 A6+B1 PUT SECOND WORD IN TABLE 01448 M00S00692.comcpfp +++| 01449 M00S00693.comcpfp +++|* BUILD DEVICE STATUS ENTRY FOR SUMMARY FILE. 01450 M00S00694.comcpfp +++| 01451 M00S00695.comcpfp +++| SA1 MSTT+B4 READ FIRST WORD OF *MSTT* ENTRY 01452 M00S00696.comcpfp +++| MX3 -16 01453 M00S00697.comcpfp +++| MX7 -9 01454 M00S00698.comcpfp +++| BX3 -X3*X6 DEVICE MASKS 01455 M00S00699.comcpfp +++| LX1 -15 01456 M00S00700.comcpfp +++| BX7 -X7*X1 NUMBER OF CATALOG TRACKS 01457 M00S00701.comcpfp +++| LX1 15 01458 M00S00702.comcpfp +++| LX7 24 01459 M00S00703.comcpfp +++| BX7 X7+X3 MERGE NUMBER OF CATALOG TRACKS AND MASKS 01460 M00S00704.comcpfp +++| SA7 DSTBUF+1+B4 WRITE SECOND WORD OF STATUS ENTRY 01461 M01S00725.286l859 +++| MX2 12 01462 M01S00726.286l859 +++| LX2 -12 01463 M01S00727.286l859 +++| BX7 X2*X6 SECTOR LIMIT 01464 M01S00728.286l859 +++| MX2 12 01465 M00S00705.comcpfp +++| LX6 30
| Line S00706 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01466 M01S00706.286l859 ---| MX7 12
| Line S00729 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01467 M01S00729.286l859 +++| BX6 X2*X6 EQUIPMENT MNEMONIC 01468 M00S00707.comcpfp +++| MX2 -6
| Line S00708 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01469 M01S00708.286l859 ---| BX7 X7*X6 EQUIPMENT MNEMONIC
| Line S00730 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01470 M01S00730.286l859 +++| BX7 X7+X6 MERGE EQUIPMENT MNEMONIC 01471 M00S00709.comcpfp +++| BX1 -X2*X1 DEVICE NUMBER
| Line S00710 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01472 M01S00710.286l859 ---| BX6 -X2*X6 UNIT COUNT 01473 M00S00711.comcpfp ---| BX7 X7+X1 MERGE DEVICE NUMBER 01474 M01S00712.286l859 ---| LX6 6 01475 M01S00713.286l859 ---| BX7 X7+X6 MERGE UNIT COUNT 01476 M00S00714.comcpfp ---| SA1 MSTBUF+TDGL 01477 M01S00715.286l859 ---| SA2 MSTBUF+MDGL 01478 M00S00716.comcpfp ---| MX6 -24 01479 M01S00717.286l859 ---| MX3 -12 01480 M00S00718.comcpfp ---| LX1 12 01481 M01S00719.286l859 ---| BX2 -X3*X2 SECTOR LIMIT 01482 M00S00720.comcpfp ---| BX1 -X6*X1 TRACKS AVAILABLE AND TOTAL TRACKS 01483 M01S00721.286l859 ---| LX2 36 01484 M00S00722.comcpfp ---| LX1 12 01485 M01S00723.286l859 ---| BX7 X7+X2 MERGE SECTOR LIMIT 01486 M00S00724.comcpfp ---| BX7 X7+X1 MERGE TRACK COUNTS
| Line S00731 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01487 M01S00731.286l859 +++| SA1 MSTBUF+DDLL SET UNIT COUNT - 1 01488 M01S00732.286l859 +++| MX3 -3 01489 M01S00733.286l859 +++| LX1 -48 01490 M01S00734.286l859 +++| BX3 -X3*X1 01491 M01S00735.286l859 +++| LX3 6 01492 M01S00736.286l859 +++| BX7 X7+X3 01493 M00S00725.comcpfp +++| SA7 DSTBUF+B4 WRITE FIRST WORD OF STATUS ENTRY 01494 M00S00726.comcpfp +++| SB4 B4+2 ADVANCE TABLE INDEX
| Line S00727 Modification History | |
|---|---|
M01 (Removed by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01495 M01S00727.286l859 ---| 01496 M01S00728.286l859 ---|* UPDATE MAXIMUM ACCESS LEVEL RANGE. 01497 M01S00729.286l859 ---| 01498 M01S00730.286l859 ---| ZR X5,BMT2 IF RANGE NOT NEEDED 01499 M01S00731.286l859 ---| MX2 -3 01500 M01S00732.286l859 ---| BX6 -X2*X0 DEVICE UPPER LIMIT 01501 M01S00733.286l859 ---| LX0 -3 01502 M01S00734.286l859 ---| BX7 -X2*X0 DEVICE LOWER LIMIT 01503 M01S00735.286l859 ---| SA1 PCLA 01504 M01S00736.286l859 ---| SA2 PCUA 01505 M01S00737.286l859 ---| IX1 X7-X1 01506 M01S00738.286l859 ---| IX2 X2-X6 01507 M01S00739.286l859 ---| NG X1,BMT5 IF NEW LEVEL IS LOWER 01508 M01S00740.286l859 ---| EQ BMT6 CHECK UPPER LEVEL 01509 M01S00741.286l859 ---| 01510 M01S00742.286l859 ---| BMT5 SA7 A1+ SET NEW LOWER LEVEL 01511 M01S00743.286l859 ---| BMT6 PL X2,BMT2 IF NEW LEVEL NOT HIGHER 01512 M01S00744.286l859 ---| SA6 A2+ SET NEW UPPER LEVEL 01513 M00S00745.comcpfp ---| EQ BMT2 PROCESS NEXT EQUIPMENT 01514 M00S00746.comcpfp ---| 01515 M00S00747.comcpfp ---|* CHECK FOR *MSS*/*MSE* EQUIPMENT TYPE. 01516 M00S00748.comcpfp ---| 01517 M00S00749.comcpfp ---| BMT7 LX1 10-22 01518 M00S00750.comcpfp ---| MX0 -11 01519 M00S00751.comcpfp ---| BX1 -X0*X1 EXTRACT EQUIPMENT TYPE CODE FOR EST ENTRY 01520 M00S00752.comcpfp ---| SX6 B1 01521 M00S00753.comcpfp ---| SX2 X1-2RCS 01522 M00S00754.comcpfp ---| ZR X2,BMT8 IF *MSS* SELECTOR 01523 M00S00755.comcpfp ---| SX2 X1-2RCT 01524 M00S00756.comcpfp ---| NZ X2,BMT9 IF NOT *MSS* TRANSPORT 01525 M00S00757.comcpfp ---| BMT8 SA6 MSSF SET *MSS* ENVIRONMENT FLAG 01526 M00S00758.comcpfp ---| BMT9 SX2 X1-2RSS 01527 M00S00759.comcpfp ---| NZ X2,BMT2 IF NOT *MSE* TYPE EQUIPMENT 01528 M00S00760.comcpfp ---| SA6 ASFF SET *MSE* ENVIRONMENT FLAG 01529 M00S00761.comcpfp ---| EQ BMT2 READ NEXT EST ENTRY 01530 M00S00762.comcpfp ---|
| Line S00737 Modification History | |
|---|---|
M01 (Added by) | 286l859 |
Seq # *Modification Id* Act ----------------------------+ 01531 M01S00737.286l859 +++|* TERMINATE MASS STORAGE TABLE. 01532 M01S00738.286l859 +++| 01533 M01S00739.286l859 +++| BMT10 BX6 X6-X6 TERMINATE MASS STORAGE TABLE 01534 M01S00740.286l859 +++| SA6 MSTT+B4 01535 M01S00741.286l859 +++| SA6 A6+B1 01536 M01S00742.286l859 +++| SA6 DSTBUF+B4 TERMINATE DEVICE STATUS BUFFER 01537 M01S00743.286l859 +++| SA6 A6+1 01538 M01S00744.286l859 +++| 01539 M01S00745.286l859 +++|* BUILD MASTER DEVICE TABLE. 01540 M01S00746.286l859 +++| 01541 M01S00747.286l859 +++| SA1 MSTT-2 01542 M01S00748.286l859 +++| SX0 377B 01543 M01S00749.286l859 +++| BMT11 SA1 A1+2 CHECK NEXT *MSTT* ENTRY 01544 M01S00750.286l859 +++| SA2 A1+1 01545 M01S00751.286l859 +++| SB2 -B1 INITIALIZE SUBFAMILY INDEX 01546 M01S00752.286l859 +++| ZR X1,BMTX IF END OF ENTRIES 01547 M01S00753.286l859 +++| BX2 X0*X2 SET DEVICE MASK 01548 M01S00754.286l859 +++| BMT12 ZR X2,BMT11 IF NO MASK BITS TO CHECK 01549 M01S00755.286l859 +++| LX2 -1 CHECK NEXT MASK BIT 01550 M01S00756.286l859 +++| SB2 B2+B1 ADVANCE SUBFAMILY INDEX 01551 M01S00757.286l859 +++| BX3 X2 01552 M01S00758.286l859 +++| SX2 X2 01553 M01S00759.286l859 +++| PL X3,BMT12 IF MASK BIT NOT SET 01554 M01S00760.286l859 +++| SX6 A1+ SET *MSTT* ADDRESS 01555 M01S00761.286l859 +++| SA6 TMDA+B2 01556 M01S00762.286l859 +++| EQ BMT12 CHECK NEXT BIT IN MASK 01557 M01S00763.286l859 +++| 01558 M00S00763.comcpfp +++| 01559 M00S00764.comcpfp +++| BMTA VFD 24/1,18/ESTP,18/ESTBUF EST POINTER PARAMETER 01560 M00S00765.comcpfp +++| BMTB BSSZ 1 NUMBER OF EST ENTRIES 01561 M00S00766.comcpfp +++| 01562 M00S00767.comcpfp +++| LFPR DECMIC LFPR DEFINE MASK FOR INITIALIZE/UNLOAD 01563 M00S00768.comcpfp +++| LIAL DECMIC LIAL 01564 M00S00769.comcpfp +++| LIHD DECMIC LIHD 01565 M00S00770.comcpfp +++| LIFD DECMIC LIFD 01566 M00S00771.comcpfp +++| LIPF DECMIC LIPF 01567 M00S00772.comcpfp +++| LUNL DECMIC LUNL 01568 M00S00773.comcpfp +++| LDUL DECMIC LDUL 01569 M00S00774.comcpfp +++| BMTC CON 1S"LFPR"+1S"LIAL"+1S"LIHD"+1S"LIFD"+1S"LIPF"+1S"LUNL"+1 01570 M00S00775.comcpfp +++|,S"LDUL" 01571 M01S00764.286l859 +++| SFP SPACE 4,15 01572 M01S00765.286l859 +++|** SFP - SET PERMANENT FILE PARAMETERS. 01573 M01S00766.286l859 +++|* 01574 M01S00767.286l859 +++|* ENTRY (CPAR) = CRACKED PARAMETER ARRAY. 01575 M01S00768.286l859 +++|* 01576 M01S00769.286l859 +++|* EXIT (GPAR - GPAR+2) = ORIGINAL USER PARAMETER VALUES. 01577 M01S00770.286l859 +++|* PERMANENT FILE PARAMETERS SET IN CONTROL POINT AREA. 01578 M01S00771.286l859 +++|* *PDWD* SET FOR ACCESS TO FAMILY OR AUXILLIARY DEVICE 01579 M01S00772.286l859 +++|* CATALOGS. 01580 M01S00773.286l859 +++|* (FMPN) = FAMILY NAME OR PACK NAME. 01581 M01S00774.286l859 +++|* 01582 M01S00775.286l859 +++|* USES X - 1, 2, 3, 6, 7. 01583 M01S00776.286l859 +++|* A - 1, 2, 6, 7. 01584 M01S00777.286l859 +++|* 01585 M01S00778.286l859 +++|* MACROS GETPFP, SETPFP. 01586 M01S00779.286l859 +++| 01587 M01S00780.286l859 +++| 01588 M01S00781.286l859 +++| SFP SUBR ENTRY/EXIT 01589 M01S00782.286l859 +++| 01590 M01S00783.286l859 +++|* SET CONTROL POINT AREA PARAMETERS. 01591 M01S00784.286l859 +++| 01592 M01S00785.286l859 +++| GETPFP GPAR GET CURRENT PARAMETERS 01593 M01S00786.286l859 +++| SA1 GPAR SET PARAMETER FLAGS IN BLOCK 01594 M01S00787.286l859 +++| SX6 FMPR+PKPR+UNPR+UIPR 01595 M01S00788.286l859 +++| BX7 X1+X6 01596 M01S00789.286l859 +++| SA2 CPAR+/COMSPFS/CPFN SET FAMILY NAME IN BLOCK 01597 M01S00790.286l859 +++| SA7 A1 01598 M01S00791.286l859 +++| SA1 CPAR+/COMSPFS/CPPN SET PACK NAME IN BLOCK 01599 M01S00792.286l859 +++| MX3 42 01600 M01S00793.286l859 +++| BX7 X3*X2 01601 M01S00794.286l859 +++| ZR X1,SFP1 IF PACK NAME NOT SPECIFIED 01602 M01S00795.286l859 +++| SX6 PKPR+UNPR+UIPR 01603 M01S00796.286l859 +++| SFP1 SA2 CPAR+/COMSPFS/CPUN SET USER NAME IN BLOCK 01604 M01S00797.286l859 +++| BX6 X7+X6 01605 M01S00798.286l859 +++| BX7 X3*X1 01606 M01S00799.286l859 +++| SA6 SPAR 01607 M01S00800.286l859 +++| SA7 A6+B1 01608 M01S00801.286l859 +++| BX6 X3*X2 01609 M01S00802.286l859 +++| SX1 A6 SET PARAMETER BLOCK ADDRESS 01610 M01S00803.286l859 +++| SA6 A7+B1 01611 M01S00804.286l859 +++| SETPFP X1 SET PARAMETERS 01612 M01S00805.286l859 +++| 01613 M01S00806.286l859 +++|* SET PARAMETERS FOR CATALOG ACCESS. 01614 M01S00807.286l859 +++| 01615 M01S00808.286l859 +++| SA1 MSTT 01616 M01S00809.286l859 +++| SA2 CPAR+/COMSPFS/CPPN 01617 M01S00810.286l859 +++| MX6 -9 01618 M01S00811.286l859 +++| MX3 42 SET PACKNAME FOR AUXILIARY DEVICE 01619 M01S00812.286l859 +++| LX1 -6 01620 M01S00813.286l859 +++| BX6 -X6*X1 SET EST ORDINAL FOR FAMILY DEVICE 01621 M01S00814.286l859 +++| ZR X2,SFP2 IF NOT PROCESSING AUXILIARY DEVICE 01622 M01S00815.286l859 +++| BX6 X3*X2 01623 M01S00816.286l859 +++| SFP2 SA6 PDWD SET PF DESCRIPTION FOR *CATS* FILE 01624 M01S00817.286l859 +++| 01625 M01S00818.286l859 +++|* SET FAMILY OR PACK NAME FOR *PFM* PROCESSING AND MESSAGES. 01626 M01S00819.286l859 +++| 01627 M01S00820.286l859 +++| SA1 CPAR+/COMSPFS/CPFN 01628 M01S00821.286l859 +++| BX6 X3*X2 01629 M01S00822.286l859 +++| BX7 X3*X1 01630 M01S00823.286l859 +++| BX7 X6+X7 01631 M01S00824.286l859 +++| SA7 FMPN SET FAMILY NAME OR PACK NAME 01632 M01S00825.286l859 +++| EQ SFPX RETURN 01633 M01S00826.286l859 +++| SMK SPACE 4,15 01634 M01S00827.286l859 +++|** SMK - SET FILE SELECTION MASK. 01635 M01S00828.286l859 +++|* 01636 M01S00829.286l859 +++|* EXIT (MASK) = FILE SELECTION MASK. 01637 M01S00830.286l859 +++|* (SXUF) .NE. 0 IF *SYSTEMX* FILES ARE THE ONLY FILES TO 01638 M01S00831.286l859 +++|* PROCESS ON SUBFAMILY 7. 01639 M01S00832.286l859 +++|* TO *ABT* IF *DN* OR *TD* DEVICE NOT FOUND OR IF NO 01640 M01S00833.286l859 +++|* FILES SELECTED. 01641 M01S00834.286l859 +++|* 01642 M01S00835.286l859 +++|* USES X - 0, 1, 2, 3, 4, 6, 5, 7. 01643 M01S00836.286l859 +++|* A - 1, 2, 3, 6, 7. 01644 M01S00837.286l859 +++|* B - 2, 3, 4, 5, 6, 7. 01645 M01S00838.286l859 +++|* 01646 M01S00839.286l859 +++|* CALLS SUM. 01647 M01S00840.286l859 +++| 01648 M01S00841.286l859 +++| 01649 M01S00842.286l859 +++| SMK SUBR ENTRY/EXIT 01650 M01S00843.286l859 +++| 01651 M01S00844.286l859 +++|* INITIALIZE *PFLOAD* FLAG. 01652 M01S00845.286l859 +++| 01653 M01S00846.286l859 +++| SA5 /COMSPFS/UTLC 01654 M01S00847.286l859 +++| SX5 X5-/COMSPFS/LDUT
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comcpfp.txt · Last modified: by 127.0.0.1