cdc:nos2.source:opl.opl871:common:comkarf
Common COMKARF
Library Member Format: MODIFY
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comkarf +++| CTEXT COMKARF - ALLOCATE TAF/CRM RECOVERY FILES. 00002 M00S00002.comkarf +++| SPACE 4,10 00003 M00S00003.comkarf +++| BASE D
| Line S00004 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M01S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M00S00005.comkarf +++| IF -DEF,QUAL$ 00007 M00S00006.comkarf +++| QUAL COMKARF 00008 M00S00007.comkarf +++| ENDIF 00009 M00S00008.comkarf +++| SPACE 4,10
| Line S00009 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00010 M01S00009.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00011 M01S00001.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00012 M00S00010.comkarf +++|* 00013 M00S00011.comkarf +++|* L. E. LOVETT 80/04/01. 00014 M00S00012.comkarf +++| SPACE 4,10
| Line S00013 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00015 M01S00013.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00016 M01S00002.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00017 M00S00014.comkarf +++|*
| Line S00015 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00018 M01S00015.ns2023 ---|* THIS ROUTINE ALLOCATES QUICK AND LONG RECOVERY FILES 00019 M01S00016.ns2023 ---|* WHICH ARE USED BY TAF/CRM RECOVERY. 00020 M01S00017.ns2023 ---|* DEPENDING ON AN ENTRY CODE ONE QRF OR ONE LRF IS ALLOCATED. 00021 M01S00018.ns2023 ---|* THE CALLER MUST MAKE THE FILE PERMANENT.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00022 M01S00003.ns2023 +++|* THIS ROUTINE ALLOCATES BEFORE IMAGE AND AFTER IMAGE 00023 M01S00004.ns2023 +++|* RECOVERY FILES WHICH ARE USED BY *TAF/CRM* RECOVERY. 00024 M01S00005.ns2023 +++|* DEPENDING ON AN ENTRY CODE ONE *BRF* AND ONE *ARF* IS 00025 M01S00006.ns2023 +++|* ALLOCATED. THE CALLER MUST MAKE THE FILE PERMANENT. 00026 M00S00019.comkarf +++|* THE FILES WILL BE REWOUND BEFORE AND AFTER ALLOCATION.
| Line S00020 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00027 M01S00020.ns2023 ---|* LONG RECOVERY FILES WILL BE IN EMPTY CONDITION I.E.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00028 M01S00007.ns2023 +++|* AFTER IMAGE RECOVERY FILES WILL BE IN EMPTY CONDITION I.E. 00029 M00S00021.comkarf +++|* *EOF* WILL BE WRITTEN IMMEDIATELY AFTER THE HEADER 00030 M00S00022.comkarf +++|* RECORD. 00031 M00S00023.comkarf +++|* FIRST RECORD OF THE FILE ALLOCATED WILL BE A *HEADER* 00032 M00S00024.comkarf +++|* RECORD, WHICH IS SUPPLIED BY THE CALLER. 00033 M00S00025.comkarf +++| SPACE 4,10
| Line S00026 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00034 M01S00026.ns2023 ---|** ARF - ALLOCATE TAF/CRM RECOVERY FILE.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00035 M01S00008.ns2023 +++|** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00036 M00S00027.comkarf +++|* 00037 M00S00028.comkarf +++|* THE FILE HEADER MUST BE SET BY THE CALLER AS IT WILL 00038 M00S00029.comkarf +++|* APPEAR ON THE FILE, EXCEPT THE CREATION DATE AND TIME FIELD 00039 M00S00030.comkarf +++|* IS SET BY THE APPROPRIATE SUBROUTINE OF *ARF*. 00040 M00S00031.comkarf +++|* 00041 M00S00032.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00042 M00S00033.comkarf +++|* (A5) = FWA OF FILE HEADER. 00043 M00S00034.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER. 00044 M00S00035.comkarf +++|* (B1) = 1. 00045 M00S00036.comkarf +++|* (B7) = ENTRY CODE.
| Line S00037 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00046 M01S00037.ns2023 ---|* = 0, TO ALLOCATE A LONG RECOVERY FILE. 00047 M01S00038.ns2023 ---|* = 1, TO ALLOCATE A QUICK RECOVERY FILE.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00048 M01S00009.ns2023 +++|* = 0, TO ALLOCATE A AFTER IMAGE RECOVERY FILE. 00049 M01S00010.ns2023 +++|* = 1, TO ALLOCATE A BEFORE IMAGE RECOVERY FILE. 00050 M00S00039.comkarf +++|* 00051 M00S00040.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00052 M00S00041.comkarf +++|* = 0, IF NO ERRORS ENCOUNTERED. 00053 M00S00042.comkarf +++|* > 0, CONTAINS CIO ERROR CODE. 00054 M00S00043.comkarf +++|* < 0, IF CONTENTS OF B7 ARE INVALID UPON ENTRY. 00055 M00S00044.comkarf +++|* 00056 M00S00045.comkarf +++|* USES X - NONE. 00057 M00S00046.comkarf +++|* B - 6. 00058 M00S00047.comkarf +++|* A - NONE. 00059 M00S00048.comkarf +++|* 00060 M00S00049.comkarf +++|* CALLS ALF, AQF, QSF. 00061 M00S00050.comkarf +++|
| Line S00051 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00062 M01S00051.ns2023 ---| ARF SUBR ENTRY/EXIT
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00063 M01S00011.ns2023 +++| AAF SUBR ENTRY/EXIT 00064 M00S00052.comkarf +++| RJ QSF PRESET FET FIELDS
| Line S00053 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00065 M01S00053.ns2023 ---| NZ X6,ARFX IF CIO ERRORS ON REWIND - RETURN
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00066 M01S00012.ns2023 +++| NZ X6,AAFX IF *CIO* ERRORS ON REWIND - RETURN 00067 M00S00054.comkarf +++| SB6 0 REQUEST CODE 0
| Line S00055 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00068 M01S00055.ns2023 ---| NE B7,B6,ARF1 IF REQUEST CODE NOT 0 00069 M01S00056.ns2023 ---| RJ ALF ALLOCATE LRF 00070 M01S00057.ns2023 ---| EQ ARFX RETURN
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00071 M01S00013.ns2023 +++| NE B7,B6,AAF1 IF REQUEST CODE NOT 0 00072 M01S00014.ns2023 +++| RJ ALF ALLOCATE *ARF* 00073 M01S00015.ns2023 +++| EQ AAFX RETURN 00074 M00S00058.comkarf +++|
| Line S00059 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00075 M01S00059.ns2023 ---| ARF1 SB6 B6+1 REQUEST CODE 1 00076 M01S00060.ns2023 ---| NE B7,B6,ARF2 IF REQUEST CODE NOT 1 00077 M01S00061.ns2023 ---| RJ AQF ALLOCATE QRF 00078 M01S00062.ns2023 ---| EQ ARFX RETURN
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00079 M01S00016.ns2023 +++| AAF1 SB6 B6+1 REQUEST CODE 1 00080 M01S00017.ns2023 +++| NE B7,B6,AAF2 IF REQUEST CODE NOT 1 00081 M01S00018.ns2023 +++| RJ AQF ALLOCATE *BRF* 00082 M01S00019.ns2023 +++| EQ AAFX RETURN 00083 M00S00063.comkarf +++|
| Line S00064 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00084 M01S00064.ns2023 ---| ARF2 SX6 -1 00085 M01S00065.ns2023 ---| EQ ARFX RETURN TO CALLER, WITH ERROR INDICATION
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00086 M01S00020.ns2023 +++| AAF2 SX6 -1 00087 M01S00021.ns2023 +++| EQ AAFX RETURN TO CALLER, WITH ERROR INDICATION 00088 M00S00066.comkarf +++|
| Line S00067 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00089 M01S00067.ns2023 ---| ARFA CON 0 CURRENT PDATE
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00090 M01S00022.ns2023 +++| AAFA CON 0 CURRENT PDATE 00091 M00S00068.comkarf +++| SPACE 4,10
| Line S00069 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00092 M01S00069.ns2023 ---|** ALF - ALLOCATE LONG RECOVERY FILE. 00093 M01S00070.ns2023 ---|* 00094 M01S00071.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE LONG RECOVERY FILE
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00095 M01S00023.ns2023 +++|** ALF - ALLOCATE AFTER IMAGE RECOVERY FILE. 00096 M01S00024.ns2023 +++|* 00097 M01S00025.ns2023 +++|* THIS SUBROUTINE ALLOCATES ONE AFTER IMAGE RECOVERY FILE 00098 M00S00072.comkarf +++|* FOR TAF/CRM. 00099 M00S00073.comkarf +++|* THE FILE TO PREALLOCATE MUST HAVE BEEN REWOUND 00100 M00S00074.comkarf +++|* BY THE CALLER. 00101 M00S00075.comkarf +++|* 00102 M00S00076.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00103 M00S00077.comkarf +++|* (A5) = FWA OF FILE HEADER. 00104 M00S00078.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER. 00105 M00S00079.comkarf +++|* (B1) = 1. 00106 M00S00080.comkarf +++|* 00107 M00S00081.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00108 M00S00082.comkarf +++|* 0 IF NO ERRORS ENCOUNTERED. 00109 M00S00083.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE. 00110 M00S00084.comkarf +++|* 00111 M00S00085.comkarf +++|* USES X - 0, 1, 2, 3, 5, 6. 00112 M00S00086.comkarf +++|* B - 6, 7. 00113 M00S00087.comkarf +++|* A - 1, 2, 5, 6. 00114 M00S00088.comkarf +++|* 00115 M00S00089.comkarf +++|* CALLS QER, RFH. 00116 M00S00090.comkarf +++|* 00117 M00S00091.comkarf +++|* MACROS REWIND, REWRITEF, REWRITER, WRITE. 00118 M00S00092.comkarf +++| 00119 M00S00093.comkarf +++| ALF SUBR ENTRY/EXIT 00120 M00S00094.comkarf +++| MX6 0 00121 M00S00095.comkarf +++| SA1 A0+B1 FIRST 00122 M00S00096.comkarf +++| SA2 A0+4 LIMIT 00123 M00S00097.comkarf +++| SX1 X1 00124 M00S00098.comkarf +++| SX2 X2 00125 M00S00099.comkarf +++| IX2 X2-X1 AMOUNT OF BUFFER SPACE IN WORDS 00126 M00S00100.comkarf +++| BX0 X2 (X0) = AVAILABLE BUFFER SPACE 00127 M00S00101.comkarf +++| SB6 X2-1 SET COUNT OF WORDS TO ZERO OUT 00128 M00S00102.comkarf +++| ALF1 SA6 X1+B6 CLEAR ENTIRE BUFFER 00129 M00S00103.comkarf +++| SB6 B6-B1 00130 M00S00104.comkarf +++| PL B6,ALF1 IF MORE TO ZERO OUT 00131 M00S00105.comkarf +++| MX5 -TAFLN MASK FOR FILE LENGTH 00132 M00S00106.comkarf +++| SA2 A5+TAFLW-TAFNW 00133 M00S00107.comkarf +++| AX2 TAFLS-TAFLN+1 00134 M00S00108.comkarf +++| BX2 -X5*X2 EXTRACT FILE LENGTH (PRU-S) 00135 M00S00109.comkarf +++| SX5 B1+ 00136 M00S00110.comkarf +++| IX5 X2+X5 ADD ONE PRU FOR HEADER RECORD 00137 M00S00111.comkarf +++| EQ ALF3 ENTER FILE PREALLOCATION LOOP 00138 M00S00112.comkarf +++| 00139 M00S00113.comkarf +++| ALF2 SA2 A0 00140 M00S00114.comkarf +++| LX2 59-0 COMPLETE BIT FROM FET 00141 M00S00115.comkarf +++| PL X2,ALF3 IF IO NOT COMPLETE 00142 M00S00116.comkarf +++| RJ QER CHECK FOR IO ERRORS ON FILE 00143 M00S00117.comkarf +++| NZ X6,ALFX IF CIO ERRORS - RETURN 00144 M00S00118.comkarf +++| WRITE A0 00145 M00S00119.comkarf +++| ALF3 ZR X5,ALF7 IF NO MORE PRU*S TO ALLOCATE 00146 M00S00120.comkarf +++| SA1 A0+2 IN 00147 M00S00121.comkarf +++| SA2 A1+B1 OUT 00148 M00S00122.comkarf +++| IX2 X2-X1 COMPUTE EMPTY SPACE 00149 M00S00123.comkarf +++| SB7 X2+ 00150 M00S00124.comkarf +++| GT B7,ALF4 IF NO WRAP AROUND 00151 M00S00125.comkarf +++| IX2 X2+X0 SUBTRACT FROM TOTAL SPACE 00152 M00S00126.comkarf +++| ALF4 SX6 X2-64 00153 M00S00127.comkarf +++| NG X6,ALF2 IF LESS THAN ONE PRU 00154 M00S00128.comkarf +++| AX2 6 WORDS TO PRUS 00155 M00S00129.comkarf +++| IX3 X5-X2 00156 M00S00130.comkarf +++| PL X3,ALF5 IF AVAILABLE PRU*S .LE. REQUIRED PRU*S 00157 M00S00131.comkarf +++| SX2 X5+ CHANGE AVAILABLE PRU*S TO REQUIRED PRU*S 00158 M00S00132.comkarf +++| ALF5 SB7 X2+ SET DECREMENT COUNT 00159 M00S00133.comkarf +++| LX2 6 00160 M00S00134.comkarf +++| IX6 X1+X2 IN = IN + AVAILABLE SPACE 00161 M00S00135.comkarf +++| SA1 A2+B1 LIMIT 00162 M00S00136.comkarf +++| SX1 X1 00163 M00S00137.comkarf +++| IX3 X6-X1 IN - LIMIT 00164 M00S00138.comkarf +++| SA2 A0+B1 FIRST 00165 M00S00139.comkarf +++| NG X3,ALF6 IF NO WRAP AROUND 00166 M00S00140.comkarf +++| SX2 X2 00167 M00S00141.comkarf +++| IX6 X2+X3 RECOMPUTE IN 00168 M00S00142.comkarf +++| ALF6 SA6 A2+B1 SET IN POINTER 00169 M00S00143.comkarf +++| SX2 B7 00170 M00S00144.comkarf +++| IX5 X5-X2 DECREMENT PRU COUNT 00171 M00S00145.comkarf +++| NZ X5,ALF2 IF MORE PRU-S TO ALLOCATE 00172 M00S00146.comkarf +++| SB7 X6 SAVE LAST *IN* PIONTER 00173 M00S00147.comkarf +++| RECALL A0 WAIT FOR COMPLETION 00174 M00S00148.comkarf +++| SA1 A0+3 *OUT* 00175 M00S00149.comkarf +++| SX2 B7 LAST *IN* 00176 M00S00150.comkarf +++| BX1 X1-X2 00177 M00S00151.comkarf +++| NZ X1,ALF2 IF I/O COMPLETED BEFORE LAST *IN* STORED 00178 M00S00152.comkarf +++|* 00179 M00S00153.comkarf +++|* WRITE FILE HEADER. 00180 M00S00154.comkarf +++|* 00181 M00S00155.comkarf +++| ALF7 RECALL A0 00182 M00S00156.comkarf +++| RJ QER FETCH CIO STATUS 00183 M00S00157.comkarf +++| NZ X6,ALFX IF CIO ERROR - RETURN 00184 M00S00158.comkarf +++| REWIND A0,R 00185 M00S00159.comkarf +++| RJ RFH REWRITE FILE HEADER 00186 M00S00160.comkarf +++| EQ ALFX RETURN 00187 M00S00161.comkarf +++| SPACE 4,10
| Line S00162 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00188 M01S00162.ns2023 ---|** AQF - ALLOCATE QUICK RECOVERY FILE. 00189 M01S00163.ns2023 ---|* 00190 M01S00164.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE QUICK RECOVERY FILE FOR
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00191 M01S00026.ns2023 +++|** AQF - ALLOCATE BEFORE IMAGE RECOVERY FILE. 00192 M01S00027.ns2023 +++|* 00193 M01S00028.ns2023 +++|* THIS SUBROUTINE ALLOCATES ONE BEFORE IMAGE RECOVERY FILE FOR 00194 M00S00165.comkarf +++|* TAF/CRM RECOVERY. 00195 M00S00166.comkarf +++|* THE FILE TO PREALLOCATE MUST BE REWOUND BY THE CALLER.
| Line S00167 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00196 M01S00167.ns2023 ---|* THE QRF BUFFER SIZE IS ASSUMED TO BE AN EVEN 00197 M01S00168.ns2023 ---|* MULTIPLE OF 64 WORDS (SEE *IAM* QRF BUFFER ALLOCATION).
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00198 M01S00029.ns2023 +++|* THE BRF BUFFER SIZE IS ASSUMED TO BE AN EVEN 00199 M01S00030.ns2023 +++|* MULTIPLE OF 64 WORDS (SEE *IAM* BRF BUFFER ALLOCATION). 00200 M00S00169.comkarf +++|* 00201 M00S00170.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00202 M00S00171.comkarf +++|* (A5) = FWA OF FILE HEADER. 00203 M00S00172.comkarf +++|* (X5) = FIRST WORD OF FILE. 00204 M00S00173.comkarf +++|* (B1) = 1. 00205 M00S00174.comkarf +++|* 00206 M00S00175.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00207 M00S00176.comkarf +++|* 0 IF NO ERRORS. 00208 M00S00177.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE. 00209 M00S00178.comkarf +++|* 00210 M00S00179.comkarf +++|* USES X - 1, 2, 5, 6. 00211 M00S00180.comkarf +++|* B - 6. 00212 M00S00181.comkarf +++|* A - 1, 2, 5, 6. 00213 M00S00182.comkarf +++|* 00214 M00S00183.comkarf +++|* CALLS QSF, QER. 00215 M00S00184.comkarf +++|* 00216 M00S00185.comkarf +++|* MACROS PDATE, REWIND, WRITER. 00217 M00S00186.comkarf +++| 00218 M00S00187.comkarf +++| AQF SUBR ENTRY/EXIT 00219 M00S00188.comkarf +++| SB6 TQHDL-1 FILE HEADER LENGTH
| Line S00189 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00220 M01S00189.ns2023 ---| PDATE ARFA PACKED DATE/TIME 00221 M01S00190.ns2023 ---| SA2 ARFA PACKED DATE/TIME
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00222 M01S00031.ns2023 +++| PDATE AAFA PACKED DATE/TIME 00223 M01S00032.ns2023 +++| SA2 AAFA PACKED DATE/TIME 00224 M00S00191.comkarf +++| SA1 A5+TQCDW-TQFNW 00225 M00S00192.comkarf +++| LX2 TQCDS-35 POSITION DATE/TIME 00226 M00S00193.comkarf +++| MX6 36 00227 M00S00194.comkarf +++| BX1 -X6*X1 00228 M00S00195.comkarf +++| BX6 X1+X2 MERGE DATE/TIME 00229 M00S00196.comkarf +++| SA6 A1 CREATION DATE/TIME TO HEADER 00230 M00S00197.comkarf +++| SA1 A0+B1 FIRST 00231 M00S00198.comkarf +++| AQF1 SA2 A5+B6 MOVE HEADER TO FILE BUFFER 00232 M00S00199.comkarf +++| BX6 X2 00233 M00S00200.comkarf +++| SA6 X1+B6 00234 M00S00201.comkarf +++| SB6 B6-B1 DECREMENT COUNT REMAINING 00235 M00S00202.comkarf +++| PL B6,AQF1 IF MORE HEADER REMAINS 00236 M00S00203.comkarf +++| SX6 X1+TQHDL FIRST + HEADER LENGTH 00237 M00S00204.comkarf +++| SA6 A1+B1 SET IN 00238 M00S00205.comkarf +++| WRITER A0,R 00239 M00S00206.comkarf +++| RJ QER FETCH CIO STATUS 00240 M00S00207.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN 00241 M00S00208.comkarf +++| SA2 A5+TQNSW-TQFNW 00242 M00S00209.comkarf +++| SX5 X5+ 00243 M00S00210.comkarf +++| AX2 30 NUMBER OF SEGMENTS 00244 M00S00211.comkarf +++| IX2 X2*X5 NUMBER OF RECORDS TO WRITE 00245 M00S00212.comkarf +++| SA5 A0+4 00246 M00S00213.comkarf +++| SA1 A0+B1 FIRST 00247 M00S00214.comkarf +++| SX5 X5 00248 M00S00215.comkarf +++| SX1 X1 00249 M00S00216.comkarf +++| IX5 X5-X1 LIMIT - FIRST 00250 M00S00217.comkarf +++| SB6 X5-1 NO OF WORDS TO ZERO OUT 00251 M00S00218.comkarf +++| AQF2 SA6 X1+B6 CLEAR BUFFER AREA 00252 M00S00219.comkarf +++| SB6 B6-B1 00253 M00S00220.comkarf +++| PL B6,AQF2 IF NOT COMPLETE 00254 M00S00221.comkarf +++| SB6 X2+ SET NUMBER OF RECORDS TO WRITE 00255 M00S00222.comkarf +++| SA2 A0+4 LIMIT 00256 M00S00223.comkarf +++| AQF3 SX6 X2-2 INSURE WORDS NOT MULTIPLE OF 64 00257 M00S00224.comkarf +++| SA6 A0+2 IN 00258 M00S00225.comkarf +++| SX6 X1 00259 M00S00226.comkarf +++| SA6 A6+B1 SET OUT = FIRST 00260 M00S00227.comkarf +++| SA1 X1+5 SET RECORD NUMBER 00261 M00S00228.comkarf +++| SX6 X1+B1 UPDATE RECORD COUNT 00262 M00S00229.comkarf +++| SA6 A1 RECORD NUMBER TO FET 00263 M00S00230.comkarf +++| WRITER A0,R 00264 M00S00231.comkarf +++| RJ QER FETCH CIO STATUS 00265 M00S00232.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN 00266 M00S00233.comkarf +++| SA2 A0+4 LIMIT 00267 M00S00234.comkarf +++| SA1 A0+B1 FIRST 00268 M00S00235.comkarf +++| SB6 B6-B1 DECREMENT RECORD COUNT 00269 M00S00236.comkarf +++| NE B6,B0,AQF3 IF MORE RECORDS TO WRITE 00270 M00S00237.comkarf +++| SX2 B1 00271 M00S00238.comkarf +++| LX2 45-0 UP BIT 00272 M00S00239.comkarf +++| BX6 -X2*X1 CLEAR UP BIT 00273 M00S00240.comkarf +++| LX2 47-45-0 R BIT 00274 M00S00241.comkarf +++| BX6 X1+X2 SET R BIT 00275 M00S00242.comkarf +++| SA6 A1+ 00276 M00S00243.comkarf +++| REWIND A0,R 00277 M00S00244.comkarf +++| RJ QER FETCH CIO STATUS 00278 M00S00245.comkarf +++| EQ AQFX RETURN 00279 M00S00246.comkarf +++| SPACE 4,10 00280 M00S00247.comkarf +++|** RFH - REWRITE THE FILE HEADER ON AN *ARF* FILE. 00281 M00S00248.comkarf +++|* 00282 M00S00249.comkarf +++|* THIS SUBROUTINE CLEARS THE *UP* BIT, SETS THE *R* BIT, 00283 M00S00250.comkarf +++|* PACKS THE DATE/TIME THEN REWRITES THE FILE HEADER. AN 00284 M00S00251.comkarf +++|* *EOF* MARKER IS WRITTEN AFTER THE HEADER. 00285 M00S00252.comkarf +++|* 00286 M00S00253.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00287 M00S00254.comkarf +++|* (A5) = FWA OF FILE HEADER. 00288 M00S00255.comkarf +++|* (B1) = 1. 00289 M00S00256.comkarf +++|* (ARFA) = PACKED DATE/TIME. 00290 M00S00257.comkarf +++|* 00291 M00S00258.comkarf +++|* EXIT (X6) = 0 - IF NO ERRORS. 00292 M00S00259.comkarf +++|* .NE. 0 IF CIO ERRORS. 00293 M00S00260.comkarf +++|* FILE HEADER REWRITTEN FOLLOWED BY *EOF* MARKER. 00294 M00S00261.comkarf +++|* 00295 M00S00262.comkarf +++|* USES X - 1, 2, 6. 00296 M00S00263.comkarf +++|* B - 1, 6. 00297 M00S00264.comkarf +++|* A - 1, 2, 6. 00298 M00S00265.comkarf +++|* 00299 M00S00266.comkarf +++|* CALLS QER. 00300 M00S00267.comkarf +++|* 00301 M00S00268.comkarf +++|* MACROS PDATE, REWRITER, REWRITEF, REWIND. 00302 M00S00269.comkarf +++| 00303 M00S00270.comkarf +++| RFH SUBR ENTRY/EXIT
| Line S00271 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00304 M01S00271.ns2023 ---| PDATE ARFA PACKED DATE/TIME
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00305 M01S00033.ns2023 +++| PDATE AAFA 00306 M00S00272.comkarf +++| SA1 A0+B1 00307 M00S00273.comkarf +++| MX2 59 00308 M00S00274.comkarf +++| LX2 45-0 UP BIT 00309 M00S00275.comkarf +++| BX1 X2*X1 CLEAR UP BIT 00310 M00S00276.comkarf +++| LX2 47-45-0 R BIT 00311 M00S00277.comkarf +++| BX6 -X2+X1 SET R BIT
| Line S00278 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00312 M01S00278.ns2023 ---| SA2 ARFA PACKED DATE/TIME
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00313 M01S00034.ns2023 +++| SA2 AAFA PACKED DATE/TIME 00314 M00S00279.comkarf +++| SA6 A1 00315 M00S00280.comkarf +++| BX6 X2 00316 M00S00281.comkarf +++| SA6 A5+TACDW-TAFNW 00317 M00S00282.comkarf +++| SB6 TAHDL-1 FILE HEADER LENGTH 00318 M00S00283.comkarf +++| RFH1 SA2 A5+B6 MOVE FILE HEADER TO FILE BUFFER 00319 M00S00284.comkarf +++| BX6 X2 00320 M00S00285.comkarf +++| SA6 X1+B6 00321 M00S00286.comkarf +++| SB6 B6-B1 00322 M00S00287.comkarf +++| PL B6,RFH1 IF NOT COMPLETED 00323 M00S00288.comkarf +++| SA1 A1+B1 00324 M00S00289.comkarf +++| SX6 X1+TAHDL 00325 M00S00290.comkarf +++| SA6 A1 SET IN 00326 M00S00291.comkarf +++| REWRITER A0,R WRITE FILE HEADER IN PLACE 00327 M00S00292.comkarf +++| REWRITEF A0,R WRITE *EOF* TO SET FILE EMPTY 00328 M00S00293.comkarf +++| REWIND A0,R 00329 M00S00294.comkarf +++| RJ QER FETCH CIO STATUS 00330 M00S00295.comkarf +++| EQ RFHX RETURN 00331 M00S00296.comkarf +++| SPACE 4,10 00332 M00S00297.comkarf +++|** QER - CHECK CIO ERROR ON FILE. 00333 M00S00298.comkarf +++|* 00334 M00S00299.comkarf +++|* RETURNS CIO ERROR CODE TO CALLER. 00335 M00S00300.comkarf +++|* 00336 M00S00301.comkarf +++|* ENTRY (A0) = FWA OF FET. 00337 M00S00302.comkarf +++|* 00338 M00S00303.comkarf +++|* EXIT (X6) = CIO ERROR CODE. 00339 M00S00304.comkarf +++|* 00340 M00S00305.comkarf +++|* USES X - 1, 6. 00341 M00S00306.comkarf +++|* B - NONE. 00342 M00S00307.comkarf +++|* A - 1. 00343 M00S00308.comkarf +++|* 00344 M00S00309.comkarf +++|* CALLS QER. 00345 M00S00310.comkarf +++| 00346 M00S00311.comkarf +++| QER SUBR ENTRY/EXIT 00347 M00S00312.comkarf +++| SA1 A0 00348 M00S00313.comkarf +++| MX6 -4 00349 M00S00314.comkarf +++| AX1 10 00350 M00S00315.comkarf +++| BX6 -X6*X1 CIO ERROR CODE 00351 M00S00316.comkarf +++| EQ QERX RETURN 00352 M00S00317.comkarf +++| SPACE 4,10 00353 M00S00318.comkarf +++|** QSF - PRESET FET FIELDS. 00354 M00S00319.comkarf +++|* 00355 M00S00320.comkarf +++|* SETS/CLEARS THE FOLLOWING FET FIELDS: 00356 M00S00321.comkarf +++|* SET EP AND UP BITS. 00357 M00S00322.comkarf +++|* CLEARS R BIT, AND CURRENT RANDOM INDEX. 00358 M00S00323.comkarf +++|* SET FILE NAME. 00359 M00S00324.comkarf +++|* IT ALSO REWINDS THE FILE. 00360 M00S00325.comkarf +++|* 00361 M00S00326.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00362 M00S00327.comkarf +++|* (X5) = FILE NAME. 00363 M00S00328.comkarf +++|* (B1) = 1. 00364 M00S00329.comkarf +++|* 00365 M00S00330.comkarf +++|* EXIT (X6) = CIO ERROR CODE. 00366 M00S00331.comkarf +++|* 00367 M00S00332.comkarf +++|* USES X - 0, 1, 6. 00368 M00S00333.comkarf +++|* B - NONE. 00369 M00S00334.comkarf +++|* A - 1, 6. 00370 M00S00335.comkarf +++|* 00371 M00S00336.comkarf +++|* CALLS NONE. 00372 M00S00337.comkarf +++|* 00373 M00S00338.comkarf +++|* MACROS REWIND. 00374 M00S00339.comkarf +++| 00375 M00S00340.comkarf +++| QSF SUBR ENTRY/EXIT 00376 M00S00341.comkarf +++| MX0 42 FILE MASK 00377 M00S00342.comkarf +++| BX6 X0*X5 00378 M00S00343.comkarf +++| SA1 A0 00379 M00S00344.comkarf +++| BX1 -X0*X1 00380 M00S00345.comkarf +++| BX6 X1+X6 00381 M00S00346.comkarf +++| SA6 A0 FILE NAME TO FET 00382 M00S00347.comkarf +++| MX0 1 00383 M00S00348.comkarf +++| SA1 A1+B1 FET+1 00384 M00S00349.comkarf +++| LX0 48-0 R BIT 00385 M00S00350.comkarf +++| BX1 -X0*X1 CLEAR R BIT 00386 M00S00351.comkarf +++| SX6 3 00387 M00S00352.comkarf +++| LX6 44-0 EP, UP BITS 00388 M00S00353.comkarf +++| BX6 X1+X6 SET EP AND UP BITS 00389 M00S00354.comkarf +++| SA6 A1 00390 M00S00355.comkarf +++| BX6 X6-X6 00391 M00S00356.comkarf +++| SA6 A0+6 CLEAR CURRENT RANDOM INDEX 00392 M00S00357.comkarf +++| REWIND A0,R 00393 M00S00358.comkarf +++| RJ QER CHECK CIO ERROR 00394 M00S00359.comkarf +++| EQ QSFX RETURN 00395 M00S00360.comkarf +++| SPACE 4,10 00396 M00S00361.comkarf +++| BASE * 00397 M00S00362.comkarf +++|QUAL$ IF -DEF,QUAL$ 00398 M00S00363.comkarf +++| QUAL *
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00399 M01S00364.ns2023 ---| ARF EQU /COMKARF/ARF
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00035.ns2023 +++| AAF EQU /COMKARF/AAF 00401 M00S00365.comkarf +++| RFH EQU /COMKARF/RFH 00402 M00S00366.comkarf +++|QUAL$ ENDIF 00403 M00S00367.comkarf +++| ENDX
cdc/nos2.source/opl.opl871/common/comkarf.txt · Last modified: (external edit)