cdc:nos2.source:opl.opl871:common:comkarf
Common COMKARF
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comkarf +++| CTEXT COMKARF - ALLOCATE TAF/CRM RECOVERY FILES. 00002 M01S00002.comkarf +++| SPACE 4,10 00003 M01S00003.comkarf +++| BASE D
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00004 M02S00004.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORP. 00005 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00006 M01S00005.comkarf +++| IF -DEF,QUAL$ 00007 M01S00006.comkarf +++| QUAL COMKARF 00008 M01S00007.comkarf +++| ENDIF 00009 M01S00008.comkarf +++| SPACE 4,10
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00010 M02S00009.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES. 00011 M01S00001.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00012 M01S00010.comkarf +++|* 00013 M01S00011.comkarf +++|* L. E. LOVETT 80/04/01. 00014 M01S00012.comkarf +++| SPACE 4,10
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00015 M02S00013.ns2023 ---|*** ARF - ALLOCATE TAF/CRM RECOVERY FILES. 00016 M01S00002.ns2023 +++|*** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00017 M01S00014.comkarf +++|*
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00018 M02S00015.ns2023 ---|* THIS ROUTINE ALLOCATES QUICK AND LONG RECOVERY FILES
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00019 M02S00016.ns2023 ---|* WHICH ARE USED BY TAF/CRM RECOVERY.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00020 M02S00017.ns2023 ---|* DEPENDING ON AN ENTRY CODE ONE QRF OR ONE LRF IS ALLOCATED.
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00021 M02S00018.ns2023 ---|* THE CALLER MUST MAKE THE FILE PERMANENT. 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 M01S00019.comkarf +++|* THE FILES WILL BE REWOUND BEFORE AND AFTER ALLOCATION.
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00027 M02S00020.ns2023 ---|* LONG RECOVERY FILES WILL BE IN EMPTY CONDITION I.E. 00028 M01S00007.ns2023 +++|* AFTER IMAGE RECOVERY FILES WILL BE IN EMPTY CONDITION I.E. 00029 M01S00021.comkarf +++|* *EOF* WILL BE WRITTEN IMMEDIATELY AFTER THE HEADER 00030 M01S00022.comkarf +++|* RECORD. 00031 M01S00023.comkarf +++|* FIRST RECORD OF THE FILE ALLOCATED WILL BE A *HEADER* 00032 M01S00024.comkarf +++|* RECORD, WHICH IS SUPPLIED BY THE CALLER. 00033 M01S00025.comkarf +++| SPACE 4,10
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00034 M02S00026.ns2023 ---|** ARF - ALLOCATE TAF/CRM RECOVERY FILE. 00035 M01S00008.ns2023 +++|** AAF - ALLOCATE TAF/CRM RECOVERY FILES. 00036 M01S00027.comkarf +++|* 00037 M01S00028.comkarf +++|* THE FILE HEADER MUST BE SET BY THE CALLER AS IT WILL 00038 M01S00029.comkarf +++|* APPEAR ON THE FILE, EXCEPT THE CREATION DATE AND TIME FIELD 00039 M01S00030.comkarf +++|* IS SET BY THE APPROPRIATE SUBROUTINE OF *ARF*. 00040 M01S00031.comkarf +++|* 00041 M01S00032.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00042 M01S00033.comkarf +++|* (A5) = FWA OF FILE HEADER. 00043 M01S00034.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER. 00044 M01S00035.comkarf +++|* (B1) = 1. 00045 M01S00036.comkarf +++|* (B7) = ENTRY CODE.
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00046 M02S00037.ns2023 ---|* = 0, TO ALLOCATE A LONG RECOVERY FILE.
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00047 M02S00038.ns2023 ---|* = 1, TO ALLOCATE A QUICK RECOVERY FILE. 00048 M01S00009.ns2023 +++|* = 0, TO ALLOCATE A AFTER IMAGE RECOVERY FILE. 00049 M01S00010.ns2023 +++|* = 1, TO ALLOCATE A BEFORE IMAGE RECOVERY FILE. 00050 M01S00039.comkarf +++|* 00051 M01S00040.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00052 M01S00041.comkarf +++|* = 0, IF NO ERRORS ENCOUNTERED. 00053 M01S00042.comkarf +++|* > 0, CONTAINS CIO ERROR CODE. 00054 M01S00043.comkarf +++|* < 0, IF CONTENTS OF B7 ARE INVALID UPON ENTRY. 00055 M01S00044.comkarf +++|* 00056 M01S00045.comkarf +++|* USES X - NONE. 00057 M01S00046.comkarf +++|* B - 6. 00058 M01S00047.comkarf +++|* A - NONE. 00059 M01S00048.comkarf +++|* 00060 M01S00049.comkarf +++|* CALLS ALF, AQF, QSF. 00061 M01S00050.comkarf +++|
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00062 M02S00051.ns2023 ---| ARF SUBR ENTRY/EXIT 00063 M01S00011.ns2023 +++| AAF SUBR ENTRY/EXIT 00064 M01S00052.comkarf +++| RJ QSF PRESET FET FIELDS
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00065 M02S00053.ns2023 ---| NZ X6,ARFX IF CIO ERRORS ON REWIND - RETURN 00066 M01S00012.ns2023 +++| NZ X6,AAFX IF *CIO* ERRORS ON REWIND - RETURN 00067 M01S00054.comkarf +++| SB6 0 REQUEST CODE 0
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00068 M02S00055.ns2023 ---| NE B7,B6,ARF1 IF REQUEST CODE NOT 0
| Line S00056 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00069 M02S00056.ns2023 ---| RJ ALF ALLOCATE LRF
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00070 M02S00057.ns2023 ---| EQ ARFX RETURN 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 M01S00058.comkarf +++|
| Line S00059 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00075 M02S00059.ns2023 ---| ARF1 SB6 B6+1 REQUEST CODE 1
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00076 M02S00060.ns2023 ---| NE B7,B6,ARF2 IF REQUEST CODE NOT 1
| Line S00061 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00077 M02S00061.ns2023 ---| RJ AQF ALLOCATE QRF
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00078 M02S00062.ns2023 ---| EQ ARFX RETURN 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 M01S00063.comkarf +++|
| Line S00064 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00084 M02S00064.ns2023 ---| ARF2 SX6 -1
| Line S00065 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00085 M02S00065.ns2023 ---| EQ ARFX RETURN TO CALLER, WITH ERROR INDICATION 00086 M01S00020.ns2023 +++| AAF2 SX6 -1 00087 M01S00021.ns2023 +++| EQ AAFX RETURN TO CALLER, WITH ERROR INDICATION 00088 M01S00066.comkarf +++|
| Line S00067 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00089 M02S00067.ns2023 ---| ARFA CON 0 CURRENT PDATE 00090 M01S00022.ns2023 +++| AAFA CON 0 CURRENT PDATE 00091 M01S00068.comkarf +++| SPACE 4,10
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00092 M02S00069.ns2023 ---|** ALF - ALLOCATE LONG RECOVERY FILE.
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00093 M02S00070.ns2023 ---|*
| Line S00071 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00094 M02S00071.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE LONG RECOVERY FILE 00095 M01S00023.ns2023 +++|** ALF - ALLOCATE AFTER IMAGE RECOVERY FILE. 00096 M01S00024.ns2023 +++|* 00097 M01S00025.ns2023 +++|* THIS SUBROUTINE ALLOCATES ONE AFTER IMAGE RECOVERY FILE 00098 M01S00072.comkarf +++|* FOR TAF/CRM. 00099 M01S00073.comkarf +++|* THE FILE TO PREALLOCATE MUST HAVE BEEN REWOUND 00100 M01S00074.comkarf +++|* BY THE CALLER. 00101 M01S00075.comkarf +++|* 00102 M01S00076.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00103 M01S00077.comkarf +++|* (A5) = FWA OF FILE HEADER. 00104 M01S00078.comkarf +++|* (X5) = FIRST WORD OF FILE HEADER. 00105 M01S00079.comkarf +++|* (B1) = 1. 00106 M01S00080.comkarf +++|* 00107 M01S00081.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00108 M01S00082.comkarf +++|* 0 IF NO ERRORS ENCOUNTERED. 00109 M01S00083.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE. 00110 M01S00084.comkarf +++|* 00111 M01S00085.comkarf +++|* USES X - 0, 1, 2, 3, 5, 6. 00112 M01S00086.comkarf +++|* B - 6, 7. 00113 M01S00087.comkarf +++|* A - 1, 2, 5, 6. 00114 M01S00088.comkarf +++|* 00115 M01S00089.comkarf +++|* CALLS QER, RFH. 00116 M01S00090.comkarf +++|* 00117 M01S00091.comkarf +++|* MACROS REWIND, REWRITEF, REWRITER, WRITE. 00118 M01S00092.comkarf +++| 00119 M01S00093.comkarf +++| ALF SUBR ENTRY/EXIT 00120 M01S00094.comkarf +++| MX6 0 00121 M01S00095.comkarf +++| SA1 A0+B1 FIRST 00122 M01S00096.comkarf +++| SA2 A0+4 LIMIT 00123 M01S00097.comkarf +++| SX1 X1 00124 M01S00098.comkarf +++| SX2 X2 00125 M01S00099.comkarf +++| IX2 X2-X1 AMOUNT OF BUFFER SPACE IN WORDS 00126 M01S00100.comkarf +++| BX0 X2 (X0) = AVAILABLE BUFFER SPACE 00127 M01S00101.comkarf +++| SB6 X2-1 SET COUNT OF WORDS TO ZERO OUT 00128 M01S00102.comkarf +++| ALF1 SA6 X1+B6 CLEAR ENTIRE BUFFER 00129 M01S00103.comkarf +++| SB6 B6-B1 00130 M01S00104.comkarf +++| PL B6,ALF1 IF MORE TO ZERO OUT 00131 M01S00105.comkarf +++| MX5 -TAFLN MASK FOR FILE LENGTH 00132 M01S00106.comkarf +++| SA2 A5+TAFLW-TAFNW 00133 M01S00107.comkarf +++| AX2 TAFLS-TAFLN+1 00134 M01S00108.comkarf +++| BX2 -X5*X2 EXTRACT FILE LENGTH (PRU-S) 00135 M01S00109.comkarf +++| SX5 B1+ 00136 M01S00110.comkarf +++| IX5 X2+X5 ADD ONE PRU FOR HEADER RECORD 00137 M01S00111.comkarf +++| EQ ALF3 ENTER FILE PREALLOCATION LOOP 00138 M01S00112.comkarf +++| 00139 M01S00113.comkarf +++| ALF2 SA2 A0 00140 M01S00114.comkarf +++| LX2 59-0 COMPLETE BIT FROM FET 00141 M01S00115.comkarf +++| PL X2,ALF3 IF IO NOT COMPLETE 00142 M01S00116.comkarf +++| RJ QER CHECK FOR IO ERRORS ON FILE 00143 M01S00117.comkarf +++| NZ X6,ALFX IF CIO ERRORS - RETURN 00144 M01S00118.comkarf +++| WRITE A0 00145 M01S00119.comkarf +++| ALF3 ZR X5,ALF7 IF NO MORE PRU*S TO ALLOCATE 00146 M01S00120.comkarf +++| SA1 A0+2 IN 00147 M01S00121.comkarf +++| SA2 A1+B1 OUT 00148 M01S00122.comkarf +++| IX2 X2-X1 COMPUTE EMPTY SPACE 00149 M01S00123.comkarf +++| SB7 X2+ 00150 M01S00124.comkarf +++| GT B7,ALF4 IF NO WRAP AROUND 00151 M01S00125.comkarf +++| IX2 X2+X0 SUBTRACT FROM TOTAL SPACE 00152 M01S00126.comkarf +++| ALF4 SX6 X2-64 00153 M01S00127.comkarf +++| NG X6,ALF2 IF LESS THAN ONE PRU 00154 M01S00128.comkarf +++| AX2 6 WORDS TO PRUS 00155 M01S00129.comkarf +++| IX3 X5-X2 00156 M01S00130.comkarf +++| PL X3,ALF5 IF AVAILABLE PRU*S .LE. REQUIRED PRU*S 00157 M01S00131.comkarf +++| SX2 X5+ CHANGE AVAILABLE PRU*S TO REQUIRED PRU*S 00158 M01S00132.comkarf +++| ALF5 SB7 X2+ SET DECREMENT COUNT 00159 M01S00133.comkarf +++| LX2 6 00160 M01S00134.comkarf +++| IX6 X1+X2 IN = IN + AVAILABLE SPACE 00161 M01S00135.comkarf +++| SA1 A2+B1 LIMIT 00162 M01S00136.comkarf +++| SX1 X1 00163 M01S00137.comkarf +++| IX3 X6-X1 IN - LIMIT 00164 M01S00138.comkarf +++| SA2 A0+B1 FIRST 00165 M01S00139.comkarf +++| NG X3,ALF6 IF NO WRAP AROUND 00166 M01S00140.comkarf +++| SX2 X2 00167 M01S00141.comkarf +++| IX6 X2+X3 RECOMPUTE IN 00168 M01S00142.comkarf +++| ALF6 SA6 A2+B1 SET IN POINTER 00169 M01S00143.comkarf +++| SX2 B7 00170 M01S00144.comkarf +++| IX5 X5-X2 DECREMENT PRU COUNT 00171 M01S00145.comkarf +++| NZ X5,ALF2 IF MORE PRU-S TO ALLOCATE 00172 M01S00146.comkarf +++| SB7 X6 SAVE LAST *IN* PIONTER 00173 M01S00147.comkarf +++| RECALL A0 WAIT FOR COMPLETION 00174 M01S00148.comkarf +++| SA1 A0+3 *OUT* 00175 M01S00149.comkarf +++| SX2 B7 LAST *IN* 00176 M01S00150.comkarf +++| BX1 X1-X2 00177 M01S00151.comkarf +++| NZ X1,ALF2 IF I/O COMPLETED BEFORE LAST *IN* STORED 00178 M01S00152.comkarf +++|* 00179 M01S00153.comkarf +++|* WRITE FILE HEADER. 00180 M01S00154.comkarf +++|* 00181 M01S00155.comkarf +++| ALF7 RECALL A0 00182 M01S00156.comkarf +++| RJ QER FETCH CIO STATUS 00183 M01S00157.comkarf +++| NZ X6,ALFX IF CIO ERROR - RETURN 00184 M01S00158.comkarf +++| REWIND A0,R 00185 M01S00159.comkarf +++| RJ RFH REWRITE FILE HEADER 00186 M01S00160.comkarf +++| EQ ALFX RETURN 00187 M01S00161.comkarf +++| SPACE 4,10
| Line S00162 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00188 M02S00162.ns2023 ---|** AQF - ALLOCATE QUICK RECOVERY FILE.
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00189 M02S00163.ns2023 ---|*
| Line S00164 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00190 M02S00164.ns2023 ---|* THIS SUBROUTINE ALLOCATES ONE QUICK RECOVERY FILE FOR 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 M01S00165.comkarf +++|* TAF/CRM RECOVERY. 00195 M01S00166.comkarf +++|* THE FILE TO PREALLOCATE MUST BE REWOUND BY THE CALLER.
| Line S00167 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00196 M02S00167.ns2023 ---|* THE QRF BUFFER SIZE IS ASSUMED TO BE AN EVEN
| Line S00168 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00197 M02S00168.ns2023 ---|* MULTIPLE OF 64 WORDS (SEE *IAM* QRF BUFFER ALLOCATION). 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 M01S00169.comkarf +++|* 00201 M01S00170.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00202 M01S00171.comkarf +++|* (A5) = FWA OF FILE HEADER. 00203 M01S00172.comkarf +++|* (X5) = FIRST WORD OF FILE. 00204 M01S00173.comkarf +++|* (B1) = 1. 00205 M01S00174.comkarf +++|* 00206 M01S00175.comkarf +++|* EXIT (X6) = EXIT CONDITION. 00207 M01S00176.comkarf +++|* 0 IF NO ERRORS. 00208 M01S00177.comkarf +++|* .NE. 0 CONTAINS CIO ERROR CODE. 00209 M01S00178.comkarf +++|* 00210 M01S00179.comkarf +++|* USES X - 1, 2, 5, 6. 00211 M01S00180.comkarf +++|* B - 6. 00212 M01S00181.comkarf +++|* A - 1, 2, 5, 6. 00213 M01S00182.comkarf +++|* 00214 M01S00183.comkarf +++|* CALLS QSF, QER. 00215 M01S00184.comkarf +++|* 00216 M01S00185.comkarf +++|* MACROS PDATE, REWIND, WRITER. 00217 M01S00186.comkarf +++| 00218 M01S00187.comkarf +++| AQF SUBR ENTRY/EXIT 00219 M01S00188.comkarf +++| SB6 TQHDL-1 FILE HEADER LENGTH
| Line S00189 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00220 M02S00189.ns2023 ---| PDATE ARFA PACKED DATE/TIME
| Line S00190 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00221 M02S00190.ns2023 ---| SA2 ARFA PACKED DATE/TIME 00222 M01S00031.ns2023 +++| PDATE AAFA PACKED DATE/TIME 00223 M01S00032.ns2023 +++| SA2 AAFA PACKED DATE/TIME 00224 M01S00191.comkarf +++| SA1 A5+TQCDW-TQFNW 00225 M01S00192.comkarf +++| LX2 TQCDS-35 POSITION DATE/TIME 00226 M01S00193.comkarf +++| MX6 36 00227 M01S00194.comkarf +++| BX1 -X6*X1 00228 M01S00195.comkarf +++| BX6 X1+X2 MERGE DATE/TIME 00229 M01S00196.comkarf +++| SA6 A1 CREATION DATE/TIME TO HEADER 00230 M01S00197.comkarf +++| SA1 A0+B1 FIRST 00231 M01S00198.comkarf +++| AQF1 SA2 A5+B6 MOVE HEADER TO FILE BUFFER 00232 M01S00199.comkarf +++| BX6 X2 00233 M01S00200.comkarf +++| SA6 X1+B6 00234 M01S00201.comkarf +++| SB6 B6-B1 DECREMENT COUNT REMAINING 00235 M01S00202.comkarf +++| PL B6,AQF1 IF MORE HEADER REMAINS 00236 M01S00203.comkarf +++| SX6 X1+TQHDL FIRST + HEADER LENGTH 00237 M01S00204.comkarf +++| SA6 A1+B1 SET IN 00238 M01S00205.comkarf +++| WRITER A0,R 00239 M01S00206.comkarf +++| RJ QER FETCH CIO STATUS 00240 M01S00207.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN 00241 M01S00208.comkarf +++| SA2 A5+TQNSW-TQFNW 00242 M01S00209.comkarf +++| SX5 X5+ 00243 M01S00210.comkarf +++| AX2 30 NUMBER OF SEGMENTS 00244 M01S00211.comkarf +++| IX2 X2*X5 NUMBER OF RECORDS TO WRITE 00245 M01S00212.comkarf +++| SA5 A0+4 00246 M01S00213.comkarf +++| SA1 A0+B1 FIRST 00247 M01S00214.comkarf +++| SX5 X5 00248 M01S00215.comkarf +++| SX1 X1 00249 M01S00216.comkarf +++| IX5 X5-X1 LIMIT - FIRST 00250 M01S00217.comkarf +++| SB6 X5-1 NO OF WORDS TO ZERO OUT 00251 M01S00218.comkarf +++| AQF2 SA6 X1+B6 CLEAR BUFFER AREA 00252 M01S00219.comkarf +++| SB6 B6-B1 00253 M01S00220.comkarf +++| PL B6,AQF2 IF NOT COMPLETE 00254 M01S00221.comkarf +++| SB6 X2+ SET NUMBER OF RECORDS TO WRITE 00255 M01S00222.comkarf +++| SA2 A0+4 LIMIT 00256 M01S00223.comkarf +++| AQF3 SX6 X2-2 INSURE WORDS NOT MULTIPLE OF 64 00257 M01S00224.comkarf +++| SA6 A0+2 IN 00258 M01S00225.comkarf +++| SX6 X1 00259 M01S00226.comkarf +++| SA6 A6+B1 SET OUT = FIRST 00260 M01S00227.comkarf +++| SA1 X1+5 SET RECORD NUMBER 00261 M01S00228.comkarf +++| SX6 X1+B1 UPDATE RECORD COUNT 00262 M01S00229.comkarf +++| SA6 A1 RECORD NUMBER TO FET 00263 M01S00230.comkarf +++| WRITER A0,R 00264 M01S00231.comkarf +++| RJ QER FETCH CIO STATUS 00265 M01S00232.comkarf +++| NZ X6,AQFX IF CIO ERROR - RETURN 00266 M01S00233.comkarf +++| SA2 A0+4 LIMIT 00267 M01S00234.comkarf +++| SA1 A0+B1 FIRST 00268 M01S00235.comkarf +++| SB6 B6-B1 DECREMENT RECORD COUNT 00269 M01S00236.comkarf +++| NE B6,B0,AQF3 IF MORE RECORDS TO WRITE 00270 M01S00237.comkarf +++| SX2 B1 00271 M01S00238.comkarf +++| LX2 45-0 UP BIT 00272 M01S00239.comkarf +++| BX6 -X2*X1 CLEAR UP BIT 00273 M01S00240.comkarf +++| LX2 47-45-0 R BIT 00274 M01S00241.comkarf +++| BX6 X1+X2 SET R BIT 00275 M01S00242.comkarf +++| SA6 A1+ 00276 M01S00243.comkarf +++| REWIND A0,R 00277 M01S00244.comkarf +++| RJ QER FETCH CIO STATUS 00278 M01S00245.comkarf +++| EQ AQFX RETURN 00279 M01S00246.comkarf +++| SPACE 4,10 00280 M01S00247.comkarf +++|** RFH - REWRITE THE FILE HEADER ON AN *ARF* FILE. 00281 M01S00248.comkarf +++|* 00282 M01S00249.comkarf +++|* THIS SUBROUTINE CLEARS THE *UP* BIT, SETS THE *R* BIT, 00283 M01S00250.comkarf +++|* PACKS THE DATE/TIME THEN REWRITES THE FILE HEADER. AN 00284 M01S00251.comkarf +++|* *EOF* MARKER IS WRITTEN AFTER THE HEADER. 00285 M01S00252.comkarf +++|* 00286 M01S00253.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00287 M01S00254.comkarf +++|* (A5) = FWA OF FILE HEADER. 00288 M01S00255.comkarf +++|* (B1) = 1. 00289 M01S00256.comkarf +++|* (ARFA) = PACKED DATE/TIME. 00290 M01S00257.comkarf +++|* 00291 M01S00258.comkarf +++|* EXIT (X6) = 0 - IF NO ERRORS. 00292 M01S00259.comkarf +++|* .NE. 0 IF CIO ERRORS. 00293 M01S00260.comkarf +++|* FILE HEADER REWRITTEN FOLLOWED BY *EOF* MARKER. 00294 M01S00261.comkarf +++|* 00295 M01S00262.comkarf +++|* USES X - 1, 2, 6. 00296 M01S00263.comkarf +++|* B - 1, 6. 00297 M01S00264.comkarf +++|* A - 1, 2, 6. 00298 M01S00265.comkarf +++|* 00299 M01S00266.comkarf +++|* CALLS QER. 00300 M01S00267.comkarf +++|* 00301 M01S00268.comkarf +++|* MACROS PDATE, REWRITER, REWRITEF, REWIND. 00302 M01S00269.comkarf +++| 00303 M01S00270.comkarf +++| RFH SUBR ENTRY/EXIT
| Line S00271 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00304 M02S00271.ns2023 ---| PDATE ARFA PACKED DATE/TIME 00305 M01S00033.ns2023 +++| PDATE AAFA 00306 M01S00272.comkarf +++| SA1 A0+B1 00307 M01S00273.comkarf +++| MX2 59 00308 M01S00274.comkarf +++| LX2 45-0 UP BIT 00309 M01S00275.comkarf +++| BX1 X2*X1 CLEAR UP BIT 00310 M01S00276.comkarf +++| LX2 47-45-0 R BIT 00311 M01S00277.comkarf +++| BX6 -X2+X1 SET R BIT
| Line S00278 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00312 M02S00278.ns2023 ---| SA2 ARFA PACKED DATE/TIME 00313 M01S00034.ns2023 +++| SA2 AAFA PACKED DATE/TIME 00314 M01S00279.comkarf +++| SA6 A1 00315 M01S00280.comkarf +++| BX6 X2 00316 M01S00281.comkarf +++| SA6 A5+TACDW-TAFNW 00317 M01S00282.comkarf +++| SB6 TAHDL-1 FILE HEADER LENGTH 00318 M01S00283.comkarf +++| RFH1 SA2 A5+B6 MOVE FILE HEADER TO FILE BUFFER 00319 M01S00284.comkarf +++| BX6 X2 00320 M01S00285.comkarf +++| SA6 X1+B6 00321 M01S00286.comkarf +++| SB6 B6-B1 00322 M01S00287.comkarf +++| PL B6,RFH1 IF NOT COMPLETED 00323 M01S00288.comkarf +++| SA1 A1+B1 00324 M01S00289.comkarf +++| SX6 X1+TAHDL 00325 M01S00290.comkarf +++| SA6 A1 SET IN 00326 M01S00291.comkarf +++| REWRITER A0,R WRITE FILE HEADER IN PLACE 00327 M01S00292.comkarf +++| REWRITEF A0,R WRITE *EOF* TO SET FILE EMPTY 00328 M01S00293.comkarf +++| REWIND A0,R 00329 M01S00294.comkarf +++| RJ QER FETCH CIO STATUS 00330 M01S00295.comkarf +++| EQ RFHX RETURN 00331 M01S00296.comkarf +++| SPACE 4,10 00332 M01S00297.comkarf +++|** QER - CHECK CIO ERROR ON FILE. 00333 M01S00298.comkarf +++|* 00334 M01S00299.comkarf +++|* RETURNS CIO ERROR CODE TO CALLER. 00335 M01S00300.comkarf +++|* 00336 M01S00301.comkarf +++|* ENTRY (A0) = FWA OF FET. 00337 M01S00302.comkarf +++|* 00338 M01S00303.comkarf +++|* EXIT (X6) = CIO ERROR CODE. 00339 M01S00304.comkarf +++|* 00340 M01S00305.comkarf +++|* USES X - 1, 6. 00341 M01S00306.comkarf +++|* B - NONE. 00342 M01S00307.comkarf +++|* A - 1. 00343 M01S00308.comkarf +++|* 00344 M01S00309.comkarf +++|* CALLS QER. 00345 M01S00310.comkarf +++| 00346 M01S00311.comkarf +++| QER SUBR ENTRY/EXIT 00347 M01S00312.comkarf +++| SA1 A0 00348 M01S00313.comkarf +++| MX6 -4 00349 M01S00314.comkarf +++| AX1 10 00350 M01S00315.comkarf +++| BX6 -X6*X1 CIO ERROR CODE 00351 M01S00316.comkarf +++| EQ QERX RETURN 00352 M01S00317.comkarf +++| SPACE 4,10 00353 M01S00318.comkarf +++|** QSF - PRESET FET FIELDS. 00354 M01S00319.comkarf +++|* 00355 M01S00320.comkarf +++|* SETS/CLEARS THE FOLLOWING FET FIELDS: 00356 M01S00321.comkarf +++|* SET EP AND UP BITS. 00357 M01S00322.comkarf +++|* CLEARS R BIT, AND CURRENT RANDOM INDEX. 00358 M01S00323.comkarf +++|* SET FILE NAME. 00359 M01S00324.comkarf +++|* IT ALSO REWINDS THE FILE. 00360 M01S00325.comkarf +++|* 00361 M01S00326.comkarf +++|* ENTRY (A0) = FWA OF FILE FET. 00362 M01S00327.comkarf +++|* (X5) = FILE NAME. 00363 M01S00328.comkarf +++|* (B1) = 1. 00364 M01S00329.comkarf +++|* 00365 M01S00330.comkarf +++|* EXIT (X6) = CIO ERROR CODE. 00366 M01S00331.comkarf +++|* 00367 M01S00332.comkarf +++|* USES X - 0, 1, 6. 00368 M01S00333.comkarf +++|* B - NONE. 00369 M01S00334.comkarf +++|* A - 1, 6. 00370 M01S00335.comkarf +++|* 00371 M01S00336.comkarf +++|* CALLS NONE. 00372 M01S00337.comkarf +++|* 00373 M01S00338.comkarf +++|* MACROS REWIND. 00374 M01S00339.comkarf +++| 00375 M01S00340.comkarf +++| QSF SUBR ENTRY/EXIT 00376 M01S00341.comkarf +++| MX0 42 FILE MASK 00377 M01S00342.comkarf +++| BX6 X0*X5 00378 M01S00343.comkarf +++| SA1 A0 00379 M01S00344.comkarf +++| BX1 -X0*X1 00380 M01S00345.comkarf +++| BX6 X1+X6 00381 M01S00346.comkarf +++| SA6 A0 FILE NAME TO FET 00382 M01S00347.comkarf +++| MX0 1 00383 M01S00348.comkarf +++| SA1 A1+B1 FET+1 00384 M01S00349.comkarf +++| LX0 48-0 R BIT 00385 M01S00350.comkarf +++| BX1 -X0*X1 CLEAR R BIT 00386 M01S00351.comkarf +++| SX6 3 00387 M01S00352.comkarf +++| LX6 44-0 EP, UP BITS 00388 M01S00353.comkarf +++| BX6 X1+X6 SET EP AND UP BITS 00389 M01S00354.comkarf +++| SA6 A1 00390 M01S00355.comkarf +++| BX6 X6-X6 00391 M01S00356.comkarf +++| SA6 A0+6 CLEAR CURRENT RANDOM INDEX 00392 M01S00357.comkarf +++| REWIND A0,R 00393 M01S00358.comkarf +++| RJ QER CHECK CIO ERROR 00394 M01S00359.comkarf +++| EQ QSFX RETURN 00395 M01S00360.comkarf +++| SPACE 4,10 00396 M01S00361.comkarf +++| BASE * 00397 M01S00362.comkarf +++|QUAL$ IF -DEF,QUAL$ 00398 M01S00363.comkarf +++| QUAL *
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | comkarf |
M02 (Updated by) | ns2023 |
Seq # *Modification Id* Act ----------------------------+ 00399 M02S00364.ns2023 ---| ARF EQU /COMKARF/ARF 00400 M01S00035.ns2023 +++| AAF EQU /COMKARF/AAF 00401 M01S00365.comkarf +++| RFH EQU /COMKARF/RFH 00402 M01S00366.comkarf +++|QUAL$ ENDIF 00403 M01S00367.comkarf +++| ENDX
cdc/nos2.source/opl.opl871/common/comkarf.txt · Last modified: by 127.0.0.1