cdc:nos2.source:opl.opl871:common:comptfm
Common COMPTFM
10 Modifications
Listing Sections
- Common COMPTFM Start
- Common COMPTFM Part 1 (Line 1508)
- Common COMPTFM Part 2 (Line 2975)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.comptfm +++| CTEXT COMPTFM - COMMON TFM ROUTINES. 00002 M01S00002.comptfm +++| IF DEF,LST$,1 00003 M01S00001.274l797 +++| SPACE 4,10 00004 M01S00003.comptfm +++| LIST X
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M02S00002.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981. 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00007 M01S00003.274l797 +++| SPACE 4,10 00008 M01S00004.274l797 +++|*** COMPTFM - COMMON TFM SUBROUTINES. 00009 M01S00005.274l797 +++|* J.P. MOORE. 81/04/01. 00010 M01S00004.comptfm +++| SPACE 4,10 00011 M01S00005.comptfm +++|*** COMPTFM - COMMON TFM SUBROUTINES. 00012 M01S00006.comptfm +++|* 00013 M01S00007.comptfm +++|* COMPTFM IS A COLLECTION OF SUBROUTINES REQUIRED 00014 M01S00008.comptfm +++|* TO ASSEMBLE AND EXECUTE TFM. EACH SUBROUTINE IS 00015 M01S00009.comptfm +++|* CONDITIONALLY ASSEMBLED BY DEFINING THE SUB- 00016 M01S00010.comptfm +++|* ROUTINE NAME IN THE FORMAT- 00017 M01S00011.comptfm +++|* 00018 M01S00012.comptfm +++|* XXX$ EQU 1 DEFINE XXX - YYYYY. 00019 M01S00013.comptfm +++|* 00020 M01S00014.comptfm +++|* XXX = SUBROUTINE NAME. 00021 M01S00015.comptfm +++|* YYYYY = SUBROUTINE TITLE. 00022 M01S00016.comptfm +++|* 00023 M01S00017.comptfm +++|* WARNING - IF THE DOLLAR SIGN ($) IS NOT INCLUDED 00024 M01S00018.comptfm +++|* IT WILL RESULT IN A RETURN JUMP TO ADDRESS 1 00025 M01S00019.comptfm +++|* DESTROYING PP RESIDENT. 00026 M01S00020.comptfm +++|* 00027 M01S00021.comptfm +++|* IN THE CASES WHERE A SUBROUTINE IS DEFINED THAT 00028 M01S00022.comptfm +++|* DEPENDS ON OTHER COMPTFM SUBROUTINES TO EXECUTE 00029 M01S00023.comptfm +++|* THE SYMBOLS NECESSARY TO ASSEMBLE THE DEPENDENT 00030 M01S00024.comptfm +++|* SUBROUTINES WILL BE AUTOMATICALLY DEFINED.
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00031 M02S00025.274l797 ---| TITLE ".Y."/COMPTFM - STAND ALONE SUBROUTINES. 00032 M01S00006.274l797 +++| TITLE COMPTFM - STAND ALONE SUBROUTINES. 00033 M01S00026.comptfm +++| CVA$ IF DEF,CVA$ 00034 M01S00027.comptfm +++| CVA SPACE 4,10 00035 M01S00028.comptfm +++|** CVA - CLEAR VOLUME ASSIGNMENT. 00036 M01S00029.comptfm +++|* 00037 M01S00030.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX). 00038 M01S00031.comptfm +++|* (BP) = BUFFER POINTER (VSN INDEX). 00039 M01S00032.comptfm +++|* 00040 M01S00033.comptfm +++|* EXIT 1. VSN SET NOT BUSY. 00041 M01S00034.comptfm +++|* 2. JOB ASSIGNMENT CLEARED. 00042 M01S00035.comptfm +++|* 3. SYSTEM EVENT ENTERED. 00043 M01S00036.comptfm +++|* 00044 M01S00037.comptfm +++|* USES CM - CM+4. 00045 M01S00038.comptfm +++|* 00046 M01S00039.comptfm +++|* MACROS MONITOR. 00047 M01S00040.comptfm +++| 00048 M01S00041.comptfm +++| 00049 M01S00042.comptfm +++| CVA SUBR ENTRY/EXIT 00050 M01S00043.comptfm +++| LDM VBST+1,BP CLEAR VOLUME BUSY 00051 M01S00044.comptfm +++| SCN VIVS 00052 M01S00045.comptfm +++| STM VBST+1,BP 00053 M01S00046.comptfm +++| LDN 0 CLEAR JOB ASSIGNMENT 00054 M01S00047.comptfm +++| STM VBJS,BP 00055 M01S00048.comptfm +++| LDN ZERL ENTER TMS EVENT 00056 M01S00049.comptfm +++| CRD CM 00057 M01S00050.comptfm +++| LDN ESVB 00058 M01S00051.comptfm +++| STD CM+4 00059 M01S00052.comptfm +++| MONITOR EATM ENTER SYSTEM EVENT 00060 M01S00053.comptfm +++| UJN CVAX RETURN 00061 M01S00054.comptfm +++| CVA$ ENDIF 00062 M01S00055.comptfm +++| EOI$ IF DEF,EOI$ 00063 M01S00056.comptfm +++| EOI SPACE 4,10 00064 M01S00057.comptfm +++|** EOI - SET END OF INFORMATION. 00065 M01S00058.comptfm +++|* 00066 M01S00059.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00067 M01S00060.comptfm +++|* 00068 M01S00061.comptfm +++|* EXIT THE EOI BIT (2**1) IS SET IN 00069 M01S00062.comptfm +++|* WORD 0 OF THE FET. 00070 M01S00063.comptfm +++|* 00071 M01S00064.comptfm +++|* USES CM - CM+4. 00072 M01S00065.comptfm +++|* 00073 M01S00066.comptfm +++|* MACROS LDA. 00074 M01S00067.comptfm +++| 00075 M01S00068.comptfm +++| 00076 M01S00069.comptfm +++| EOI SUBR ENTRY/EXIT 00077 M01S00070.comptfm +++| LDA IR+3,REL 00078 M01S00071.comptfm +++| CRD CM 00079 M01S00072.comptfm +++| LDD CM+4 00080 M01S00073.comptfm +++| SCN 2 00081 M01S00074.comptfm +++| LMN 2 00082 M01S00075.comptfm +++| STD CM+4 00083 M01S00076.comptfm +++| LDA IR+3,REL 00084 M01S00077.comptfm +++| CWD CM 00085 M01S00078.comptfm +++| UJN EOIX RETURN 00086 M01S00079.comptfm +++| 00087 M01S00080.comptfm +++| EOI$ ENDIF 00088 M01S00081.comptfm +++| LTC$ IF DEF,LTC$ 00089 M01S00082.comptfm +++| LTC SPACE 4,10 00090 M01S00083.comptfm +++|** LTC LOCATE TAPE CATALOG ON CURRENT VSN. 00091 M01S00084.comptfm +++|* 00092 M01S00085.comptfm +++|* ENTRY (BA - RI+1) = POINTERS TO FIRST CATALOG ENTRY. 00093 M01S00086.comptfm +++|* (POFI - POFI+8) = FILE IDENTIFIER. 00094 M01S00087.comptfm +++|* (PBQN) = FILE SEQUENCE NUMBER. 00095 M01S00088.comptfm +++|* 00096 M01S00089.comptfm +++|* EXIT (A) = 0 IF NOT FOUND. 00097 M01S00090.comptfm +++|* (CPCB) = POINTER TO CATALOG ENTRY. 00098 M01S00091.comptfm +++|* 00099 M01S00092.comptfm +++|* USES CI, RI - RI+1. 00100 M01S00093.comptfm +++|* 00101 M01S00094.comptfm +++|* CALLS RRP, VSP. 00102 M01S00095.comptfm +++|* 00103 M01S00096.comptfm +++|* MACROS COMPARE, ERROR, SAVEP. 00104 M01S00097.comptfm +++| 00105 M01S00098.comptfm +++| 00106 M01S00099.comptfm +++| LTC SUBR ENTRY/EXIT 00107 M01S00100.comptfm +++| LTC1 LDA PBQN,ABS 00108 M01S00101.comptfm +++| ZJN LTC4 IF SEQUENCE NUMBER NOT SPECIFIED 00109 M01S00102.comptfm +++| LMM CBQN+1,BP COMPARE WITH CATALOG SEQUENCE NUMBER 00110 M01S00103.comptfm +++| STD T0 00111 M01S00104.comptfm +++| SHN -14 00112 M01S00105.comptfm +++| LMM CBQN,BP 00113 M01S00106.comptfm +++| LPN 77 00114 M01S00107.comptfm +++| ADD T0 00115 M01S00108.comptfm +++| NJN LTC5 IF NOT CORRECT ENTRY 00116 M01S00109.comptfm +++| LTC2 SAVEP CPCB 00117 M01S00110.comptfm +++| LTC3 UJN LTCX RETURN 00118 M01S00111.comptfm +++| 00119 M01S00112.comptfm +++| LTC4 LDC CBPI COMPARE PHYSICAL FILE IDENTIFIER 00120 M01S00113.comptfm +++|* LDC CPLI (COMPARE LOGICAL FILE IDENTIFIER) 00121 M01S00114.comptfm +++| LTCA EQU *-1 00122 M01S00115.comptfm +++| ADD BP 00123 M01S00116.comptfm +++| STD T1 00124 M01S00117.comptfm +++| COMPARE ,,POFI,,FIKL 00125 M01S00118.comptfm +++| ZJN LTC2 IF FILE FOUND 00126 M01S00119.comptfm +++| LTC5 LDM CBNC,BP 00127 M01S00120.comptfm +++| ZJN LTC3 IF NO ENTRY FOUND 00128 M01S00121.comptfm +++| SHN 14 00129 M01S00122.comptfm +++| STD CI 00130 M01S00123.comptfm +++| SHN -14 00131 M01S00124.comptfm +++| LMD RI 00132 M01S00125.comptfm +++| NJN LTC6 IF NOT SAME PRU 00133 M01S00126.comptfm +++| LDM CBNC+1,BP 00134 M01S00127.comptfm +++| LMD RI+1 00135 M01S00128.comptfm +++| ZJN LTC7 IF SAME PRU 00136 M01S00129.comptfm +++| LTC6 LDM CBNC,BP SET RANDOM INDEX 00137 M01S00130.comptfm +++| LPN 77 00138 M01S00131.comptfm +++| STD RI 00139 M01S00132.comptfm +++| LDM CBNC+1,BP 00140 M01S00133.comptfm +++| STD RI+1 00141 M01S00134.comptfm +++| RJM RRP READ RANDOM PRU 00142 M01S00135.comptfm +++| LTC7 RJM VSP VALIDATE/SET CATALOG POINTERS 00143 M01S00136.comptfm +++| PJP LTC1 00144 M01S00137.comptfm +++| ERROR ECD *ERROR IN CATALOG DATA.* 00145 M01S00138.comptfm +++| LTC$ ENDIF 00146 M01S00139.comptfm +++| RCL$ IF DEF,RCL$ 00147 M01S00140.comptfm +++| RCL SPACE 4,10 00148 M01S00141.comptfm +++|** RCL - RECALL *TFM*. 00149 M01S00142.comptfm +++|* 00150 M01S00143.comptfm +++|* ENTRY (UTMS - UTMS+4) = *TMS* *UDT* WORD FOR *MAGF*. 00151 M01S00144.comptfm +++|* 00152 M01S00145.comptfm +++|* EXIT *TFM* PLACED IN RECALL STACK. 00153 M01S00146.comptfm +++|* *UTMS* WORD OF *UDT* REWRITTEN FOR *MAGF*. 00154 M01S00147.comptfm +++|* TO *PPR*. 00155 M01S00148.comptfm +++|* 00156 M01S00149.comptfm +++|* MACROS MONITOR. 00157 M01S00150.comptfm +++| 00158 M01S00151.comptfm +++| 00159 M01S00152.comptfm +++| RCL BSS 0 ENTRY 00160 M01S00153.comptfm +++| LDD FC 00161 M01S00154.comptfm +++| LMN MAGF 00162 M01S00155.comptfm +++| NJN RCL1 IF NOT MAGNET FUNCTION 00163 M01S00156.comptfm +++| UDTWT UTMS,/MTX/UTMS,1 REWRITE *UDT* 00164 M01S00157.comptfm +++| RCL1 LDN ZERL 00165 M01S00158.comptfm +++| CRD CM 00166 M01S00159.comptfm +++| LDD MA SET INPUT REGISTER 00167 M01S00160.comptfm +++| CWD IR 00168 M01S00161.comptfm +++| ADN 1 CLEAR RECALL PARAMETER 00169 M01S00162.comptfm +++| CWD CM
| Line S00163 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00170 M02S00163.t2807 ---| LDK PTMF SET TIMED RECALL AND DROP PP 00171 M01S00001.t2807 +++| LDK /COMSCPS/PTMF SET TIMED RECALL AND DROP PP 00172 M01S00164.comptfm +++| STD CM+1 00173 M01S00165.comptfm +++| LDC 4000D SET RECALL INTERVAL 00174 M01S00166.comptfm +++| STD CM+4 00175 M01S00167.comptfm +++| MONITOR RECM RECALL PP 00176 M01S00168.comptfm +++| LJM PPR EXIT TO PP RESIDENT 00177 M01S00169.comptfm +++| RCL$ ENDIF 00178 M01S00170.comptfm +++| SBP$ IF DEF,SBP$ 00179 M01S00171.comptfm +++| SBP SPACE 4,10 00180 M01S00172.comptfm +++|** SBP - SET FET BUFFER POINTERS. 00181 M01S00173.comptfm +++|* 00182 M01S00174.comptfm +++|* READS THE FIRST, IN, OUT, AND LIMIT POINTERS 00183 M01S00175.comptfm +++|* FROM THE FET AND STORES THEM IN 8 CONSECUTIVE 00184 M01S00176.comptfm +++|* DIRECT CELLS. NO OTHER LOCATIONS ARE DESTROYED. 00185 M01S00177.comptfm +++|* 00186 M01S00178.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00187 M01S00179.comptfm +++|* 00188 M01S00180.comptfm +++|* EXIT (FT - FT+1) = FIRST. 00189 M01S00181.comptfm +++|* (IN - IN+1) = IN. 00190 M01S00182.comptfm +++|* (OT - OT+1) = OUT. 00191 M01S00183.comptfm +++|* (LM - LM+1) = LIMIT. 00192 M01S00184.comptfm +++|* 00193 M01S00185.comptfm +++|* USES T0 - T5. 00194 M01S00186.comptfm +++|* 00195 M01S00187.comptfm +++|* MACROS LDA. 00196 M01S00188.comptfm +++| 00197 M01S00189.comptfm +++| 00198 M01S00190.comptfm +++| SBP SUBR ENTRY/EXIT 00199 M01S00191.comptfm +++| LDD IN-3 SAVE OVERLAP WORD 00200 M01S00192.comptfm +++| STD T0 00201 M01S00193.comptfm +++| LDA IR+3,REL 00202 M01S00194.comptfm +++| ADN 4 READ LIMIT 00203 M01S00195.comptfm +++| CRD LM-3 00204 M01S00196.comptfm +++| SBN 1 READ OUT 00205 M01S00197.comptfm +++| CRD OT-3 00206 M01S00198.comptfm +++| SBN 1 READ IN 00207 M01S00199.comptfm +++| CRD IN-3 00208 M01S00200.comptfm +++| SBN 1 READ FIRST 00209 M01S00201.comptfm +++| CRD T1 00210 M01S00202.comptfm +++| LDD T1+3 SET FIRST 00211 M01S00203.comptfm +++| LPN 77 00212 M01S00204.comptfm +++| STD FT 00213 M01S00205.comptfm +++| LDD T1+4 00214 M01S00206.comptfm +++| STD FT+1 00215 M01S00207.comptfm +++| LDD T0 RESTORE OVERLAP WORD 00216 M01S00208.comptfm +++| STD IN-3 00217 M01S00209.comptfm +++| UJN SBPX RETURN 00218 M01S00210.comptfm +++| SBP$ ENDIF 00219 M01S00211.comptfm +++| SVB$ IF DEF,SVB$ 00220 M01S00212.comptfm +++| SVB SPACE 4,10 00221 M01S00213.comptfm +++|** SVB - SET VSN BUSY. 00222 M01S00214.comptfm +++|* 00223 M01S00215.comptfm +++|* ENTRY NONE. 00224 M01S00216.comptfm +++|* 00225 M01S00217.comptfm +++|* EXIT VSN SET BUSY AND EJT ORDINAL SET IF NOT BUSY. 00226 M01S00218.comptfm +++|* TO ERROR PROCESSING IF BUSY. 00227 M01S00219.comptfm +++|* 00228 M01S00220.comptfm +++|* THE CALLER OF SVB IS RESPONSIBLE FOR SETTING THE CORRECT EJT 00229 M01S00221.comptfm +++|* ORDINAL IF *TFM* IS NOT ASSIGNED TO THE USER JOB-S CONTROL 00230 M01S00222.comptfm +++|* POINT. 00231 M01S00223.comptfm +++|* 00232 M01S00224.comptfm +++|* USES CM - CM+4. 00233 M01S00225.comptfm +++|* 00234 M01S00226.comptfm +++|* MACROS ERROR. 00235 M01S00227.comptfm +++| 00236 M01S00228.comptfm +++| 00237 M01S00229.comptfm +++| SVB2 LDN VIVS SET VSN BUSY 00238 M01S00230.comptfm +++| RAM VBST+1,BP 00239 M01S00231.comptfm +++| LDM VBMX,BP SET CATALOG MACHINE INDEX-1 00240 M01S00232.comptfm +++| SCN 17 00241 M01S00233.comptfm +++| LMM CDMX 00242 M01S00234.comptfm +++| STM VBMX,BP
| Line S00235 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00243 M02S00235.t2807 ---| LDD CP SET EJT ORDINAL
| Line S00236 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00244 M02S00236.t2807 ---| ADN TFSW
| Line S00237 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00245 M02S00237.t2807 ---| CRD CM 00246 M01S00238.comptfm +++| LDD CM 00247 M01S00239.comptfm +++| STM VBJS,BP 00248 M01S00240.comptfm +++| 00249 M01S00241.comptfm +++| SVB SUBR ENTRY/EXIT 00250 M01S00002.t2807 +++| LDD CP GET EJT ORDINAL 00251 M01S00003.t2807 +++| ADN TFSW 00252 M01S00004.t2807 +++| CRD CM 00253 M01S00242.comptfm +++| LDM VBST+1,BP 00254 M01S00243.comptfm +++| LPN VIVS 00255 M01S00244.comptfm +++| ZJN SVB2 IF VSN NOT BUSY 00256 M01S00245.comptfm +++| LDM VBMX,BP CHECK MACHINE INDEX 00257 M01S00246.comptfm +++| LPN 17 00258 M01S00247.comptfm +++| LMM CDMX 00259 M01S00248.comptfm +++| NJN SVB1 IF NOT BUSY ON THIS MACHINE 00260 M01S00249.comptfm +++| LDM VBJS,BP CHECK EJT ORDINAL
| Line S00250 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00261 M02S00250.t2807 ---| LMD CM+4 00262 M01S00005.t2807 +++| LMD CM+0 00263 M01S00251.comptfm +++| NJN SVB1 IF NOT ASSIGNED TO THIS JOB 00264 M01S00252.comptfm +++| ERROR DLK *DEADLOCK.* 00265 M01S00253.comptfm +++| 00266 M01S00254.comptfm +++| SVB1 ERROR VBS *(VSN) BUSY.* 00267 M01S00255.comptfm +++| SVB$ ENDIF 00268 M01S00256.comptfm +++| IUC$ IF DEF,IUC$ 00269 M01S00257.comptfm +++| IUC SPACE 4,10 00270 M01S00258.comptfm +++|** IUC - INCREMENT USAGE COUNTER. 00271 M01S00259.comptfm +++|* 00272 M01S00260.comptfm +++|* ENTRY NONE. 00273 M01S00261.comptfm +++|* 00274 M01S00262.comptfm +++|* EXIT THE USAGE COUNTER WILL BE INCREMENTED AND IF 00275 M01S00263.comptfm +++|* THRESHOLD EXCEEDED, THE MAINTENANCE FLAG 00276 M01S00264.comptfm +++|* WILL BE SET. 00277 M01S00265.comptfm +++| 00278 M01S00266.comptfm +++| 00279 M01S00267.comptfm +++| IUC SUBR ENTRY/EXIT
| Line S00268 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00280 M02S00268.t5472 ---| LDC 1S6 00281 M01S00001.t5472 +++| LDD HN 1S6 00282 M01S00269.comptfm +++| RAM VBUC,BP 00283 M01S00270.comptfm +++| SHN 21-14 00284 M01S00271.comptfm +++| PJN IUC1 IF LT 63 USES 00285 M01S00272.comptfm +++| LDC 77S6 00286 M01S00273.comptfm +++| RAM VBUC,BP 00287 M01S00274.comptfm +++| SHN 21-14 00288 M01S00275.comptfm +++| IUC1 SHN 14-21-6 00289 M01S00276.comptfm +++| SBN VUMT 00290 M01S00277.comptfm +++| MJN IUCX IF THRESHOLD NOT EXCEEDED 00291 M01S00278.comptfm +++| LDN VUMT 00292 M01S00279.comptfm +++| ZJN IUCX IF THRESHOLD DISABLED 00293 M01S00280.comptfm +++| LDM VBST,BP SET MAINTENANCE FLAG 00294 M01S00281.comptfm +++| SCN HMVS/10000 00295 M01S00282.comptfm +++| LMN HMVS/10000 00296 M01S00283.comptfm +++| STM VBST,BP 00297 M01S00284.comptfm +++| UJN IUCX RETURN 00298 M01S00285.comptfm +++| IUC$ ENDIF 00299 M01S00286.comptfm +++| UOP$ IF DEF,UOP$ 00300 M01S00287.comptfm +++| UOP SPACE 4,10 00301 M01S00288.comptfm +++|** UOP - UPDATE OUT POINTER. 00302 M01S00289.comptfm +++|* 00303 M01S00290.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00304 M01S00291.comptfm +++|* (OT - OT+1) = OUT POINTER. 00305 M01S00292.comptfm +++|* 00306 M01S00293.comptfm +++|* EXIT FET+3 UPDATED. 00307 M01S00294.comptfm +++|* 00308 M01S00295.comptfm +++|* USES CM - CM+4. 00309 M01S00296.comptfm +++|* 00310 M01S00297.comptfm +++|* MACROS LDA. 00311 M01S00298.comptfm +++| 00312 M01S00299.comptfm +++| 00313 M01S00300.comptfm +++| UOP SUBR ENTRY/EXIT 00314 M01S00301.comptfm +++| LDN ZERL 00315 M01S00302.comptfm +++| CRD CM 00316 M01S00303.comptfm +++| LDD OT CURRENT POSITION OF OUT 00317 M01S00304.comptfm +++| STD CM+3 00318 M01S00305.comptfm +++| LDD OT+1 00319 M01S00306.comptfm +++| STD CM+4 00320 M01S00307.comptfm +++| LDA IR+3,REL UPDATE FET 00321 M01S00308.comptfm +++| ADN 3 00322 M01S00309.comptfm +++| CWD CM 00323 M01S00310.comptfm +++| UJN UOPX RETURN 00324 M01S00311.comptfm +++| UOP$ ENDIF 00325 M01S00312.comptfm +++| UTR$ IF DEF,UTR$ 00326 M01S00313.comptfm +++| UTR SPACE 4,10 00327 M01S00314.comptfm +++|** UTR - UPDATE TRT. 00328 M01S00315.comptfm +++|* 00329 M01S00316.comptfm +++|* ENTRY (FS - FS+4) = FST ENTRY OF FAST ATTACH FILE. 00330 M01S00317.comptfm +++|* 00331 M01S00318.comptfm +++|* EXIT TRT UPDATED IF SHARED DEVICE. 00332 M01S00319.comptfm +++|* 00333 M01S00320.comptfm +++|* USES CM - CM+4. 00334 M01S00321.comptfm +++|* 00335 M01S00322.comptfm +++|* MACROS MONITOR. 00336 M01S00323.comptfm +++| 00337 M01S00324.comptfm +++| 00338 M01S00325.comptfm +++| UTR SUBR ENTRY/EXIT 00339 M01S00326.comptfm +++| LDD FS SET EST ORDINAL 00340 M01S00327.comptfm +++| LPC 777 00341 M01S00328.comptfm +++| STD CM+1
| Line S00329 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00342 M02S00329.t2807 ---| LDN UTRS UPDATE TRT 00343 M01S00006.t2807 +++| LDN /COMSCPS/UTRS UPDATE TRT 00344 M01S00330.comptfm +++| STD CM+3 00345 M01S00331.comptfm +++| MONITOR STBM 00346 M01S00332.comptfm +++| UJN UTRX RETURN 00347 M01S00333.comptfm +++| UTR$ ENDIF 00348 M01S00334.comptfm +++| VRR$ IF DEF,VRR$ 00349 M01S00335.comptfm +++| VRR SPACE 4,10 00350 M01S00336.comptfm +++|** VRR - VERIFY RANDOM REQUEST. 00351 M01S00337.comptfm +++|* 00352 M01S00338.comptfm +++|* ENTRY (RI - RI+1) = RANDOM INDEX. 00353 M01S00339.comptfm +++|*
| Line S00340 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00354 M02S00340.nos252 ---|* EXIT TO ERROR PROCESSING IF INVALID ADDRESS. 00355 M01S00001.nos252 +++|* EXIT TO ERROR PROCESSING IF INCORRECT ADDRESS. 00356 M01S00341.comptfm +++|* 00357 M01S00342.comptfm +++|* USES T5 - T5+4. 00358 M01S00343.comptfm +++|* 00359 M01S00344.comptfm +++|* CALLS AFA, CRA. 00360 M01S00345.comptfm +++|*
| Line S00346 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00361 M02S00346.t5472 ---|* MACROS ENDMS, ERROR, LDA, SETMS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 00362 M02S00002.t5679 ---|* MACROS ERROR, LDA. 00363 M01S00001.t5679 +++|* MACROS ERROR, LDA, SETMS. 00364 M01S00347.comptfm +++|* 00365 M01S00348.comptfm +++| 00366 M01S00349.comptfm +++| 00367 M01S00003.t5472 +++| VRR2 LDA CTSA,ABS RESTORE RANDOM ADDRESS 00368 M01S00004.t5472 +++| STD RI+1 00369 M01S00005.t5472 +++| SHN -14 00370 M01S00006.t5472 +++| STD RI 00371 M01S00007.t5472 +++| 00372 M01S00350.comptfm +++| VRR SUBR ENTRY/EXIT 00373 M01S00351.comptfm +++| LDD FO 00374 M01S00352.comptfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 00375 M01S00353.comptfm +++| CRD T5 00376 M01S00354.comptfm +++| LDA RI,ABS SAVE RANDOM ADDRESS 00377 M01S00355.comptfm +++| ZJN VRR1 IF NO RANDOM ADDRESS 00378 M01S00356.comptfm +++| STM CTSA+1 00379 M01S00357.comptfm +++| SHN -14 00380 M01S00358.comptfm +++| STM CTSA 00381 M01S00002.t5679 +++| SETMS STATUS
| Line S00359 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00382 M02S00359.t5472 ---| SETMS 00383 M01S00360.comptfm +++| RJM CRA CONVERT RANDOM ADDRESS 00384 M01S00361.comptfm +++| PJN VRR2 IF VALID ADDRESS
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00385 M02S00362.t5472 ---| ENDMS 00386 M01S00363.comptfm +++| VRR1 ERROR BAE *BUFFER ARGUMENT ERROR.*
| Line S00364 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00387 M02S00364.t5472 ---|
| Line S00365 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00388 M02S00365.t5472 ---| VRR2 ENDMS RELEASE CHANNEL
| Line S00366 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00389 M02S00366.t5472 ---| LDA CTSA,ABS RESTORE RANDOM ADDRESS
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00390 M02S00367.t5472 ---| STD RI+1
| Line S00368 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00391 M02S00368.t5472 ---| SHN -14
| Line S00369 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00392 M02S00369.t5472 ---| STD RI
| Line S00370 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00393 M02S00370.t5472 ---| LJM VRRX RETURN 00394 M01S00371.comptfm +++| VRR$ ENDIF 00395 M01S00372.comptfm +++| VSP$ IF DEF,VSP$ 00396 M01S00373.comptfm +++| VSP SPACE 4,10 00397 M01S00374.comptfm +++|** VSP - VERIFY/SET CATALOG POINTERS. 00398 M01S00375.comptfm +++|* 00399 M01S00376.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00400 M01S00377.comptfm +++|* (CI) = CATALOG INDEX. 00401 M01S00378.comptfm +++|* (VSPA) = MAXIMUM ENTRIES PER PRU. 00402 M01S00379.comptfm +++|* (VSPB) = ENTRY LENGTH IN CM WORDS. 00403 M01S00380.comptfm +++|*
| Line S00381 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00404 M02S00381.nos252 ---|* EXIT (A) = -0 IF POINTERS INVALID. 00405 M01S00002.nos252 +++|* EXIT (A) = -0 IF POINTERS INCORRECT. 00406 M01S00382.comptfm +++|* (BA) = BUFFER ADDRESS (UNCHANGED). 00407 M01S00383.comptfm +++|* (BP) = BUFFER POINTER (CALCULATED). 00408 M01S00384.comptfm +++|* (CI) = CATALOG INDEX (UNCHANGED). 00409 M01S00385.comptfm +++|* 00410 M01S00386.comptfm +++|* CALLS MLT. 00411 M01S00387.comptfm +++| 00412 M01S00388.comptfm +++| 00413 M01S00389.comptfm +++| VSP2 LDD CI SET BUFFER POINTER 00414 M01S00390.comptfm +++| SBN 1 00415 M01S00391.comptfm +++| SHN 14 00416 M01S00392.comptfm +++| LMN TCEL 00417 M01S00393.comptfm +++| VSPB EQU *-1 (TAEL IF ADMIT CONTINUATION) 00418 M01S00394.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 00419 M01S00395.comptfm +++| ADN TBHL 00420 M01S00396.comptfm +++| STD BP CONVERT TO BYTES 00421 M01S00397.comptfm +++| SHN 2 00422 M01S00398.comptfm +++| RAD BP 00423 M01S00399.comptfm +++| ADD BA BIAS BY BUFFER ADDRESS 00424 M01S00400.comptfm +++| ADN 2 00425 M01S00401.comptfm +++| STD BP 00426 M01S00402.comptfm +++| 00427 M01S00403.comptfm +++| VSP SUBR ENTRY/EXIT 00428 M01S00404.comptfm +++| LDD CI CHECK CATALOG INDEX 00429 M01S00405.comptfm +++| ZJN VSP1 IF OUT OF RANGE 00430 M01S00406.comptfm +++| SBN 60D/TCEL+1 00431 M01S00407.comptfm +++| VSPA EQU *-1 (60D/TAEL+1) 00432 M01S00408.comptfm +++| MJN VSP2 IF IN RANGE
| Line S00409 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00433 M02S00409.nos252 ---| VSP1 LCN 0 SET INVALID POINTERS 00434 M01S00003.nos252 +++| VSP1 LCN 0 SET INCORRECT POINTERS 00435 M01S00410.comptfm +++| UJN VSPX RETURN 00436 M01S00411.comptfm +++| 00437 M01S00412.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 00438 M01S00413.comptfm +++| VSP$ ENDIF 00439 M01S00414.comptfm +++| VUB$ IF DEF,VUB$ 00440 M01S00415.comptfm +++| VUB SPACE 4,10 00441 M01S00416.comptfm +++|** VUB - VERIFY USERS CATALOG/ADMIT BLOCK. 00442 M01S00417.comptfm +++|* 00443 M01S00418.comptfm +++|* COMPARES THE OWNERS USERNAME TO THE USERNAME 00444 M01S00419.comptfm +++|* IN THE BLOCK HEADER. 00445 M01S00420.comptfm +++|* 00446 M01S00421.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00447 M01S00422.comptfm +++|* (PBUN - PBUN+3) = USERNAME. 00448 M01S00423.comptfm +++|* 00449 M01S00424.comptfm +++|* EXIT (A) = 0 IF USERS BLOCK. 00450 M01S00425.comptfm +++|* (A) = -0 IF NOT USERS DATA BLOCK. 00451 M01S00426.comptfm +++|* 00452 M01S00427.comptfm +++|* USES T1, T2. 00453 M01S00428.comptfm +++|* 00454 M01S00429.comptfm +++|* CALLS CSS. 00455 M01S00430.comptfm +++| 00456 M01S00431.comptfm +++| 00457 M01S00432.comptfm +++| VUB1 LCN 0 SET DATA BLOCK ERROR 00458 M01S00433.comptfm +++| 00459 M01S00434.comptfm +++| VUB SUBR ENTRY/EXIT 00460 M01S00435.comptfm +++| LDC PBUN 00461 M01S00436.comptfm +++| STD T1 00462 M01S00437.comptfm +++| LDI T1 00463 M01S00438.comptfm +++| ZJN VUB1 IF DATA ERROR 00464 M01S00439.comptfm +++| COMPARE ,,CWUN,BA,UNKL 00465 M01S00440.comptfm +++| NJN VUB1 IF NOT USERS CATALOG/ADMIT BLOCK 00466 M01S00441.comptfm +++| UJN VUBX RETURN 00467 M01S00442.comptfm +++| VUB$ ENDIF
| Line S00443 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00468 M02S00443.274l797 ---| TITLE ".Y."/COMPTFM - DEPENDENCY SUBROUTINES. 00469 M01S00007.274l797 +++| TITLE COMPTFM - DEPENDENCY SUBROUTINES. 00470 M01S00444.comptfm +++| AUS$ IF DEF,AUS$ 00471 M01S00445.comptfm +++| AUS SPACE 4,10 00472 M01S00446.comptfm +++|** AUS - ALTERNATE USER SEARCH. 00473 M01S00447.comptfm +++|* 00474 M01S00448.comptfm +++|* *AUS* PERFORMS A INDEXED SEARCH OF THE 00475 M01S00449.comptfm +++|* ADMIT ENTRIES FOR THE USERNAME AT (KA). 00476 M01S00450.comptfm +++|* 00477 M01S00451.comptfm +++|* ENTRY (KA) = KEY ADDRESS. 00478 M01S00452.comptfm +++|* (RI - RI+1) = RANDOM ADDRESS OF 00479 M01S00453.comptfm +++|* FIRST ADMIT BLOCK. 00480 M01S00454.comptfm +++|* 00481 M01S00455.comptfm +++|* EXIT (A) = 0 IF FOUND. 00482 M01S00456.comptfm +++|* (A) = -0 IF END OF ADMIT ENTRIES. 00483 M01S00457.comptfm +++|* (A) .GT. 0 IF PREMATURE END OF SEARCH. 00484 M01S00458.comptfm +++|* (BA) = BUFFER ADDRESS. 00485 M01S00459.comptfm +++|* (BP) = BUFFER POINTER. 00486 M01S00460.comptfm +++|* 00487 M01S00461.comptfm +++|* USES CPAB - CPAB+4, BA, BP, KL. 00488 M01S00462.comptfm +++|* 00489 M01S00463.comptfm +++|* CALLS GIB, GNB, GNL, MBP, SIB. 00490 M01S00464.comptfm +++| 00491 M01S00465.comptfm +++| 00492 M01S00466.comptfm +++| AUS SUBR ENTRY/EXIT 00493 M01S00467.comptfm +++| CLEAR CPAB,,10D 00494 M01S00468.comptfm +++| LDN UNKL SET KEY LENGTH 00495 M01S00469.comptfm +++| STD KL 00496 M01S00470.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 00497 M01S00471.comptfm +++| RJM GIB GET INITIAL BLOCK 00498 M01S00472.comptfm +++| AUS1 LDM CWFE,BA 00499 M01S00473.comptfm +++| RJM MBP MOVE BUFFER POINTER 00500 M01S00474.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00501 M01S00475.comptfm +++| STM AUSA+1 SAVE EXIT CONDITION 00502 M01S00476.comptfm +++| SHN -14 00503 M01S00477.comptfm +++| LMC LDCI 00504 M01S00478.comptfm +++| STM AUSA 00505 M01S00479.comptfm +++| LDA AUSA,ABS 00506 M01S00480.comptfm +++| PJN AUS2 IF FOUND OR END OF SEARCH 00507 M01S00481.comptfm +++| RJM GNL GET NEXT LINK 00508 M01S00482.comptfm +++| ZJN AUS2 IF BLOCK NOT LINKED 00509 M01S00483.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 00510 M01S00484.comptfm +++| RJM GNB GET NEXT BLOCK 00511 M01S00485.comptfm +++| UJN AUS1 SEARCH ADMIT BUFFER 00512 M01S00486.comptfm +++| 00513 M01S00487.comptfm +++| AUS2 SAVEP CPAB SAVE ADMIT POINTERS 00514 M01S00488.comptfm +++| LDC ** 00515 M01S00489.comptfm +++| AUSA EQU *-2 (EXIT CONDITION) 00516 M01S00490.comptfm +++| LJM AUSX RETURN 00517 M01S00491.comptfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 00518 M01S00492.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 00519 M01S00493.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00520 M01S00494.comptfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 00521 M01S00495.comptfm +++| AUS$ ENDIF 00522 M01S00496.comptfm +++| CCB$ IF DEF,CCB$ 00523 M01S00497.comptfm +++| CCB SPACE 4,10 00524 M01S00498.comptfm +++|** CCB - CHECK CURRENT BUFFER. 00525 M01S00499.comptfm +++|* 00526 M01S00500.comptfm +++|* ENTRY (CPPI - CPPI+4) = PRIMARY INDEX POINTERS. 00527 M01S00501.comptfm +++|* (CPSI - CPSI+4) = SECONDARY INDEX POINTERS. 00528 M01S00502.comptfm +++|* 00529 M01S00503.comptfm +++|* 00530 M01S00504.comptfm +++|* USES BA - BA+4. 00531 M01S00505.comptfm +++|* 00532 M01S00506.comptfm +++|* CALLS BSE, MBP, SIB. 00533 M01S00507.comptfm +++|* 00534 M01S00508.comptfm +++|* MACROS LDA. 00535 M01S00509.comptfm +++| 00536 M01S00510.comptfm +++| 00537 M01S00511.comptfm +++| CCB3 LCN 0 SET BUFFERS NOT PRESENT 00538 M01S00512.comptfm +++| 00539 M01S00513.comptfm +++| CCB SUBR ENTRY/EXIT 00540 M01S00514.comptfm +++| RESTP CPPI RESTORE PRIMARY POINTERS 00541 M01S00515.comptfm +++| LDD BA 00542 M01S00516.comptfm +++| ADN 2 00543 M01S00517.comptfm +++| STD BP 00544 M01S00518.comptfm +++| LDM CWFE,BA 00545 M01S00519.comptfm +++| RJM MBP MOVE BUFFER POINTER 00546 M01S00520.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00547 M01S00521.comptfm +++| ZJN CCB1 IF KEY FOUND 00548 M01S00522.comptfm +++| MJN CCBX IF END OF INDEX 00549 M01S00523.comptfm +++| RJM BSE BACKWARD SKIP ONE ENTRY 00550 M01S00524.comptfm +++| ZJN CCB3 IF FIRST ENTRY 00551 M01S00525.comptfm +++| CCB1 SAVEP CPPI SAVE PRIMARY POINTERS 00552 M01S00526.comptfm +++| LDM 3,BP 00553 M01S00527.comptfm +++| LPN 77 00554 M01S00528.comptfm +++| LMC LMCI 00555 M01S00529.comptfm +++| STM CCBA 00556 M01S00530.comptfm +++| LDM 4,BP 00557 M01S00531.comptfm +++| STM CCBA+1 00558 M01S00532.comptfm +++| RESTP CPSI RESTORE SECONDARY POINTERS 00559 M01S00533.comptfm +++| LDD BA 00560 M01S00534.comptfm +++| ADN 2 00561 M01S00535.comptfm +++| STD BP 00562 M01S00536.comptfm +++| LDA CPSI+3,ABS 00563 M01S00537.comptfm +++| LMC ** 00564 M01S00538.comptfm +++| CCBA EQU *-2 (SECONDARY INDEX) 00565 M01S00539.comptfm +++| ZJN CCB2 IF SECONDARY INDEX LOADED 00566 M01S00540.comptfm +++| LJM CCB3 SET BUFFERS NOT PRESENT 00567 M01S00541.comptfm +++| 00568 M01S00542.comptfm +++| CCB2 LDM CWFE,BA FIND SECONDARY INDEX 00569 M01S00543.comptfm +++| RJM MBP MOVE BUFFER POINTER 00570 M01S00544.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00571 M01S00545.comptfm +++| STM CCBB+1 SAVE EXIT CONDITION 00572 M01S00546.comptfm +++| SHN -14 00573 M01S00547.comptfm +++| LMC LDCI 00574 M01S00548.comptfm +++| STM CCBB 00575 M01S00549.comptfm +++| SAVEP CPSI SAVE SECONDARY POINTERS 00576 M01S00550.comptfm +++| LDC ** 00577 M01S00551.comptfm +++| CCBB EQU *-2 (EXIT CONDITION) 00578 M01S00552.comptfm +++| LJM CCBX RETURN 00579 M01S00553.comptfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 00580 M01S00554.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00581 M01S00555.comptfm +++| CCB$ ENDIF 00582 M01S00556.comptfm +++| CIE$ IF DEF,CIE$ 00583 M01S00557.comptfm +++| CIE SPACE 4,10 00584 M01S00558.comptfm +++|** CIE - CREATE INDEX ENTRY. 00585 M01S00559.comptfm +++|* 00586 M01S00560.comptfm +++|* *CIE* IS USED TO CREATE TWO LEVEL INDEXED ENTRIES FOR 00587 M01S00561.comptfm +++|* USERNAME AND VSN INDICIES. ON EXIT THERE IS NO GUARANTEE 00588 M01S00562.comptfm +++|* THAT THE INDEX POINTERS HAVE NOT BEEN CHANGED DUE TO AN 00589 M01S00563.comptfm +++|* INSERT. 00590 M01S00564.comptfm +++|* 00591 M01S00565.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (SECONDARY INDEX) 00592 M01S00566.comptfm +++|* (BP) = BUFFER POINTER (SECONDARY INDEX) 00593 M01S00567.comptfm +++|* (PB) = ENTRY BUFFER ADDRESS. 00594 M01S00568.comptfm +++|* (KL) = KEY LENGTH. 00595 M01S00569.comptfm +++|* (CPPI - CPPI+4) = PRIMARY INDEX POINTERS. 00596 M01S00570.comptfm +++|* (CPSI - CPSI+4) = SECONDARY INDEX POINTERS. 00597 M01S00571.comptfm +++|* BUFA - ENTRY BUFFER ADDRESS. 00598 M01S00572.comptfm +++|* BUFB - OVERFLOW BUFFER ADDRESS. 00599 M01S00573.comptfm +++|* 00600 M01S00574.comptfm +++|* EXIT (CPPI - CPPI+4) = CURRENT PRIMARY INDEX POINTER. 00601 M01S00575.comptfm +++|* (CPSI - CPSI+4) = CURRENT SECONDARY INDEX POINTER. 00602 M01S00576.comptfm +++|* 00603 M01S00577.comptfm +++|* CALLS GIB, GNL, IIE, MBP, WRP. 00604 M01S00578.comptfm +++|* 00605 M01S00579.comptfm +++|* MACROS ERROR, MMOVE, RESTP, SAVEP. 00606 M01S00580.comptfm +++| 00607 M01S00581.comptfm +++| 00608 M01S00582.comptfm +++| CIE SUBR ENTRY/EXIT 00609 M01S00583.comptfm +++| LDC BUFB 00610 M01S00584.comptfm +++| STD T7 00611 M01S00585.comptfm +++| RJM IIE INSERT INDEX ENTRY (SECONDARY) 00612 M01S00586.comptfm +++| STM CIEA SAVE OVERFLOW BLOCK STATUS 00613 M01S00587.comptfm +++| SAVEP CPSI SAVE BUFFER POINTERS (SECONDARY) 00614 M01S00588.comptfm +++| LDM CWNE,BA 00615 M01S00589.comptfm +++| LMN 1 00616 M01S00590.comptfm +++| NJP CIE4 IF NEW BLOCK NOT CREATED 00617 M01S00591.comptfm +++| LDD KL 00618 M01S00592.comptfm +++| SBN VSKL 00619 M01S00593.comptfm +++| ZJN CIE1 IF VSN INDEX 00620 M01S00594.comptfm +++| LDM 3,PB 00621 M01S00595.comptfm +++| SCN 77 00622 M01S00596.comptfm +++| CIE1 LMD RI ENTER SECONDARY INDEX POINTER 00623 M01S00597.comptfm +++| STM 3,PB 00624 M01S00598.comptfm +++| LDM RI+1 00625 M01S00599.comptfm +++| STM 4,PB 00626 M01S00600.comptfm +++| RESTP CPPI RESTORE BUFFER POINTERS (PRIMARY) 00627 M01S00601.comptfm +++| LDC BUFA 00628 M01S00602.comptfm +++| STD T7 00629 M01S00603.comptfm +++| SBD PB 00630 M01S00604.comptfm +++| NJN CIE2 IF OVERFLOW BUFFER NOT ENTRY BUFFER 00631 M01S00605.comptfm +++| LDC BUFB 00632 M01S00606.comptfm +++| STD T7 00633 M01S00607.comptfm +++| CIE2 LDM CWEL,BA 00634 M01S00608.comptfm +++| RJM MBP MOVE BUFFER POINTER 00635 M01S00609.comptfm +++| RJM IIE INSERT INDEX ENTRY (PRIMARY) 00636 M01S00610.comptfm +++| SAVEP CPPI SAVE BUFFER POINTERS (PRIMARY) 00637 M01S00611.comptfm +++| CIE3 LJM CIEX RETURN 00638 M01S00612.comptfm +++| 00639 M01S00613.comptfm +++| CIE4 LDM CWFE,BA CHECK POSITIONING 00640 M01S00614.comptfm +++| STD T1 00641 M01S00615.comptfm +++| SHN 2 00642 M01S00616.comptfm +++| RAD T1 00643 M01S00617.comptfm +++| ADN 2 00644 M01S00618.comptfm +++| ADD BA 00645 M01S00619.comptfm +++| SBD BP 00646 M01S00620.comptfm +++| NJN CIE3 IF NOT POSITIONED AT FIRST INDEX 00647 M01S00621.comptfm +++| RESTP CPPI RESTORE BUFFER POINTERS (PRIMARY) 00648 M01S00622.comptfm +++| LDC 0 NO OVERFLOW BLOCK 00649 M01S00623.comptfm +++|* LDC IIEX (OVERFLOW BLOCK) 00650 M01S00624.comptfm +++| CIEA EQU *-1 00651 M01S00625.comptfm +++| ZJN CIE6 IF NOT OVERFLOW BLOCK 00652 M01S00626.comptfm +++| LDM CWEL,BA 00653 M01S00627.comptfm +++| RJM MBP MOVE BUFFER POINTER 00654 M01S00628.comptfm +++| MJN CIE5 IF MOVE OUTSIDE BUFFER 00655 M01S00629.comptfm +++| LDI BP 00656 M01S00630.comptfm +++| NJN CIE6 IF NOT END OF INDEX 00657 M01S00631.comptfm +++| CIE5 RJM WRP WRITE RANDOM PRU (PRIMARY) 00658 M01S00632.comptfm +++| RJM GNL GET NEXT LINK 00659 M01S00633.comptfm +++| ZJN CIE7 IF PRIMARY BLOCK NOT LINKED 00660 M01S00634.comptfm +++| RJM GIB GET INITIAL BLOCK 00661 M01S00635.comptfm +++| LDM CWFE,BA 00662 M01S00636.comptfm +++| RJM MBP MOVE BUFFER POINTER 00663 M01S00637.comptfm +++| CIE6 MMOVE ,PB,,BP,,KL 00664 M01S00638.comptfm +++| RJM WRP WRITE RANDOM PRU (PRIMARY) 00665 M01S00639.comptfm +++| LJM CIEX RETURN 00666 M01S00640.comptfm +++| 00667 M01S00641.comptfm +++| CIE7 ERROR CLE *CATALOG LINKAGE ERROR.* 00668 M01S00642.comptfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY 00669 M01S00643.comptfm +++| CIE$ ENDIF 00670 M01S00644.comptfm +++| DDE$ IF DEF,DDE$ 00671 M01S00645.comptfm +++| DDE SPACE 4,10 00672 M01S00646.comptfm +++|** DDE - DELETE DATA ENTRY. 00673 M01S00647.comptfm +++|* 00674 M01S00648.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00675 M01S00649.comptfm +++|* (BP) = BUFFER POINTER OF ENTRY TO DELETE. 00676 M01S00650.comptfm +++| 00677 M01S00651.comptfm +++| 00678 M01S00652.comptfm +++| DDE SUBR ENTRY/EXIT 00679 M01S00653.comptfm +++| LDM CWEL,BA MOVE ENTRIES UP 00680 M01S00654.comptfm +++| SHN 14 00681 M01S00655.comptfm +++| LMM CWNE,BA 00682 M01S00656.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 00683 M01S00657.comptfm +++| ADM CWFE,BA 00684 M01S00658.comptfm +++| STD T0 00685 M01S00659.comptfm +++| SHN 2 00686 M01S00660.comptfm +++| RAD T0 00687 M01S00661.comptfm +++| LDD BA BIAS BY BUFFER ADDRESS 00688 M01S00662.comptfm +++| ADN 2 00689 M01S00663.comptfm +++| RAD T0 00690 M01S00664.comptfm +++| LDM CWEL,BA SET FWA AND DESTINATION OF MOVE 00691 M01S00665.comptfm +++| STD T1 00692 M01S00666.comptfm +++| SHN 2 00693 M01S00667.comptfm +++| RAD T1 00694 M01S00668.comptfm +++| LDD BP 00695 M01S00669.comptfm +++| STD T2 00696 M01S00670.comptfm +++| RAD T1 00697 M01S00671.comptfm +++| LDD T0 SET MOVE COUNT 00698 M01S00672.comptfm +++| SBD T1 00699 M01S00673.comptfm +++| SHN 1 00700 M01S00674.comptfm +++| RJM MPM MOVE PP MEMORY 00701 M01S00675.comptfm +++| LDD T2 00702 M01S00676.comptfm +++| STD T1 00703 M01S00677.comptfm +++| LDM CWEL,BA 00704 M01S00678.comptfm +++| STD T0 00705 M01S00679.comptfm +++| SHN 2 00706 M01S00680.comptfm +++| RAD T0 00707 M01S00681.comptfm +++| SHN 1 00708 M01S00682.comptfm +++| RJM CPM CLEAR PP MEMORY 00709 M01S00683.comptfm +++| SOM CWNE,BA UPDATE CONTROL WORDS 00710 M01S00684.comptfm +++| LDM CWUW,BA 00711 M01S00685.comptfm +++| ADM CWEL,BA 00712 M01S00686.comptfm +++| STM CWUW,BA 00713 M01S00687.comptfm +++| LJM DDEX RETURN 00714 M01S00688.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 00715 M01S00689.comptfm +++| DDE$ ENDIF 00716 M01S00690.comptfm +++| DLB$ IF DEF,DLB$ 00717 M01S00691.comptfm +++| DLB SPACE 4,10 00718 M01S00692.comptfm +++|** DLB - DELINK BLOCK. 00719 M01S00693.comptfm +++|* 00720 M01S00694.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00721 M01S00695.comptfm +++|* (RI - RI+1) RANDOM INDEX OF BLOCK TO DELINK. 00722 M01S00696.comptfm +++| 00723 M01S00697.comptfm +++| 00724 M01S00698.comptfm +++| DLB SUBR ENTRY/EXIT
| Line S00699 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00725 M02S00699.ns2763 ---| LDA CPEB,ABS SET EMPTY PRU LINKAGE 00726 M01S00001.ns2763 +++| LDM CPEB+1 SET EMPTY PRU LINKAGE 00727 M01S00700.comptfm +++| STM DLBA+1
| Line S00701 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00728 M02S00701.ns2763 ---| SHN -14 00729 M01S00002.ns2763 +++| LDM CPEB 00730 M01S00003.ns2763 +++| LPN 77 00731 M01S00702.comptfm +++| LMC LDCI 00732 M01S00703.comptfm +++| STM DLBA 00733 M01S00704.comptfm +++| LDD RI UPDATE HOLE POINTER 00734 M01S00705.comptfm +++| STM CPEB 00735 M01S00706.comptfm +++| LDD RI+1 00736 M01S00707.comptfm +++| STM CPEB+1 00737 M01S00708.comptfm +++| LDM CWBI,BA SET PREVIOUS BLOCK INDEX 00738 M01S00709.comptfm +++| LPN 77 00739 M01S00710.comptfm +++| LMC LDCI 00740 M01S00711.comptfm +++| STM DLBB 00741 M01S00712.comptfm +++| LDM CWBI+1,BA 00742 M01S00713.comptfm +++| STM DLBB+1 00743 M01S00714.comptfm +++| LDM CWRI,BA SET NEXT BLOCK INDEX 00744 M01S00715.comptfm +++| LPN 77 00745 M01S00716.comptfm +++| LMC LDCI 00746 M01S00717.comptfm +++| STM DLBC 00747 M01S00718.comptfm +++| LDM CWRI+1,BA 00748 M01S00719.comptfm +++| STM DLBC+1 00749 M01S00720.comptfm +++| RJM GEP GENERATE EMPTY PRU 00750 M01S00721.comptfm +++| LDC ** 00751 M01S00722.comptfm +++| DLBA EQU *-2 (EMPTY BLOCK LINK) 00752 M01S00723.comptfm +++| STM CWRI+1,BA 00753 M01S00724.comptfm +++| SHN -14 00754 M01S00725.comptfm +++| STM CWRI,BA 00755 M01S00726.comptfm +++| RJM WRP WRITE RANDOM PRU 00756 M01S00727.comptfm +++| LDC ** 00757 M01S00728.comptfm +++| DLBB EQU *-2 (PREVIOUS BLOCK RANDOM INDEX) 00758 M01S00729.comptfm +++| ZJN DLB1 IF FIRST BLOCK OF CHAIN 00759 M01S00730.comptfm +++| STD RI+1 00760 M01S00731.comptfm +++| SHN -14 00761 M01S00732.comptfm +++| STD RI 00762 M01S00733.comptfm +++| RJM GIB GET INITIAL BLOCK 00763 M01S00734.comptfm +++| LDC ** 00764 M01S00735.comptfm +++| DLBC EQU *-2 (NEXT BLOCK RANDOM INDEX) 00765 M01S00736.comptfm +++| STM CWRI+1,BA 00766 M01S00737.comptfm +++| SHN -14 00767 M01S00738.comptfm +++| STM CWRI,BA 00768 M01S00739.comptfm +++| RJM WRP WRITE RANDOM PRU 00769 M01S00740.comptfm +++| DLB1 LDA DLBC,ABS 00770 M01S00741.comptfm +++| ZJN DLB2 IF LAST BLOCK OF CHAIN 00771 M01S00742.comptfm +++| STD RI+1 00772 M01S00743.comptfm +++| SHN -14 00773 M01S00744.comptfm +++| STD RI 00774 M01S00745.comptfm +++| RJM GIB GET INITIAL BLOCK
| Line S00746 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00775 M02S00746.ns2763 ---| LDA DLBB,ABS 00776 M01S00004.ns2763 +++| LDM DLBB+1 00777 M01S00747.comptfm +++| STM CWBI+1,BA
| Line S00748 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00778 M02S00748.ns2763 ---| SHN -14 00779 M01S00005.ns2763 +++| LDM DLBB 00780 M01S00006.ns2763 +++| LPN 77 00781 M01S00749.comptfm +++| STM CWBI,BA 00782 M01S00750.comptfm +++| RJM WRP WRITE RANDOM PRU 00783 M01S00751.comptfm +++| DLB2 LDN TMSB UPDATE SYSTEM BLOCK 00784 M01S00752.comptfm +++| STD RI+1 00785 M01S00753.comptfm +++| SHN -14 00786 M01S00754.comptfm +++| STD RI 00787 M01S00755.comptfm +++| RJM GIB GET INITIAL BLOCK (SYSTEM BLOCK) 00788 M01S00756.comptfm +++| LDM CWFE,BA 00789 M01S00757.comptfm +++| RJM MBP MOVE BUFFER POINTER
| Line S00758 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00790 M02S00758.ns2763 ---| LDA CPEB,ABS 00791 M01S00007.ns2763 +++| LDM CPEB+1 00792 M01S00759.comptfm +++| STM SBHP+1,BP
| Line S00760 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00793 M02S00760.ns2763 ---| SHN -14 00794 M01S00008.ns2763 +++| LDM CPEB 00795 M01S00009.ns2763 +++| LPN 77 00796 M01S00761.comptfm +++| STM SBHP,BP 00797 M01S00762.comptfm +++| RJM WRP WRITE RANDOM PRU 00798 M01S00763.comptfm +++| LJM DLBX RETURN 00799 M01S00764.comptfm +++| GEP$ EQU 1 DEFINE GEP - GENERATE EMPTY PRU 00800 M01S00765.comptfm +++| DLB$ ENDIF 00801 M01S00766.comptfm +++| FTC$ IF DEF,FTC$ 00802 M01S00767.comptfm +++| FTC SPACE 4,10 00803 M01S00768.comptfm +++|** FTC - FIND TAPE CATALOG. 00804 M01S00769.comptfm +++|* 00805 M01S00770.comptfm +++|* *FTC* IS USED TO LOCATE THE TAPE FILE CATALOG 00806 M01S00771.comptfm +++|* AND TO VALIDATE USER ACCESS. IF THE EXTERNAL 00807 M01S00772.comptfm +++|* VSN IS SUPPLIED, IT IS USED. IF THE EXTERNAL 00808 M01S00773.comptfm +++|* VSN IS NOT SUPPLIED AND THE FILE NAME IS, A 00809 M01S00774.comptfm +++|* SEARCH BY FILE NAME IS INITIATED. 00810 M01S00775.comptfm +++|* 00811 M01S00776.comptfm +++|* ENTRY (PESN - PESN+2) = EXTERNAL VSN. 00812 M01S00777.comptfm +++|* (PBUN - PBUN+3) = USERNAME. 00813 M01S00778.comptfm +++|* (POFI - POFI+10B) = FILE NAME. 00814 M01S00779.comptfm +++|* 00815 M01S00780.comptfm +++|* EXIT (A) = 0 IF CATALOG FOUND. 00816 M01S00781.comptfm +++|* (A) = ERROR CODE IF CATALOG NOT FOUND. 00817 M01S00782.comptfm +++|* 00818 M01S00783.comptfm +++|* USES CPCB - CPCB+4, KA, RI - RI+1, T1. 00819 M01S00784.comptfm +++|* 00820 M01S00785.comptfm +++|* CALLS GIB, SCB, UIS, VIS, VSP, VUB. 00821 M01S00786.comptfm +++|* 00822 M01S00787.comptfm +++|* MACROS ERROR, SAVEP. 00823 M01S00788.comptfm +++| 00824 M01S00789.comptfm +++| 00825 M01S00010.ns2763 +++| FTC6 LDC PBUN FILE IDENTIFIER SEARCH 00826 M01S00011.ns2763 +++| STD KA 00827 M01S00012.ns2763 +++| RJM UIS USERNAME INDEX SEARCH 00828 M01S00013.ns2763 +++| ZJN FTC9 IF USERNAME FOUND 00829 M01S00014.ns2763 +++| FTC7 LDN /EMSG/FNF *(FILENAME) NOT FOUND.* 00830 M01S00015.ns2763 +++| FTC8 UJN FTCX RETURN 00831 M01S00016.ns2763 +++| 00832 M01S00017.ns2763 +++| FTC9 LDC BUF2 SET CATALOG BUFFER ADDRESS 00833 M01S00018.ns2763 +++| STD BA 00834 M01S00019.ns2763 +++| LDM UBCI,BP SET CATALOG RANDOM INDEX 00835 M01S00020.ns2763 +++| LPN 77 00836 M01S00021.ns2763 +++| STD RI 00837 M01S00022.ns2763 +++| SHN 14 00838 M01S00023.ns2763 +++| LMM UBCI+1,BP 00839 M01S00024.ns2763 +++| STD RI+1 00840 M01S00025.ns2763 +++| ZJN FTC7 IF NO RANDOM ADDRESS 00841 M01S00026.ns2763 +++| LDC POFI SET SEARCH KEY ADDRESS 00842 M01S00027.ns2763 +++| STD KA 00843 M01S00028.ns2763 +++| RJM SCB SEARCH CATALOG BUFFER 00844 M01S00029.ns2763 +++| ZJN FTC7 IF FILE NOT FOUND 00845 M01S00030.ns2763 +++| PJN FTC10 IF NOT DUPLICATE FILENAME 00846 M01S00031.ns2763 +++| LDN /EMSG/FAR *(FILENAME) ALREADY RESERVED.* 00847 M01S00032.ns2763 +++| UJN FTCX RETURN WITH ERROR 00848 M01S00033.ns2763 +++| 00849 M01S00034.ns2763 +++| FTC10 LDN 0 SET CATALOG FOUND 00850 M01S00035.ns2763 +++| 00851 M01S00790.comptfm +++| FTC SUBR ENTRY/EXIT 00852 M01S00791.comptfm +++| LDC PESN 00853 M01S00792.comptfm +++| STD KA 00854 M01S00793.comptfm +++| LDI KA
| Line S00794 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00855 M02S00794.ns2763 ---| NJN FTC1 IF VSN SEARCH
| Line S00795 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00856 M02S00795.ns2763 ---| LJM FTC6 SEARCH BY USERNAME/FILE NAME
| Line S00796 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00857 M02S00796.ns2763 ---| 00858 M01S00036.ns2763 +++| ZJP FTC6 IF SEARCH BY USERNAME/FILE NAME 00859 M01S00797.comptfm +++| FTC1 RJM VIS VSN INDEX SEARCH 00860 M01S00798.comptfm +++| NJN FTC2 IF VSN NOT FOUND 00861 M01S00799.comptfm +++| LDM VBRD+1,BP 00862 M01S00800.comptfm +++| ZJN FTC3 IF NO RELEASE DATE 00863 M01S00801.comptfm +++| LDN CRDP 00864 M01S00802.comptfm +++| ZJN FTC3 IF CRDP DEFINED ZERO 00865 M01S00803.comptfm +++| LDD FC 00866 M01S00804.comptfm +++| LMN SSJF 00867 M01S00805.comptfm +++| ZJN FTC3 IF *TFSP* CALL 00868 M01S00806.comptfm +++| FTC2 LDN /EMSG/VNF *(VSN) NOT FOUND.*
| Line S00807 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00869 M02S00807.ns2763 ---| UJN FTCX RETURN 00870 M01S00037.ns2763 +++| FTC2.1 UJN FTCX RETURN 00871 M01S00808.comptfm +++| 00872 M01S00809.comptfm +++| FTC3 LDM VBCI,BP SET CATALOG ADDRESS 00873 M01S00810.comptfm +++| SHN 14 00874 M01S00811.comptfm +++| STD CI 00875 M01S00812.comptfm +++| SCN 77 00876 M01S00813.comptfm +++| LMM VBCI+1,BP
| Line S00814 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00877 M02S00814.ns2763 ---| ZJN FTC4 IF NOT ASSIGNED 00878 M01S00038.ns2763 +++| ZJN FTC2 IF NOT ASSIGNED 00879 M01S00815.comptfm +++| STD RI+1 SET RANDOM ADDRESS 00880 M01S00816.comptfm +++| SHN -14 00881 M01S00817.comptfm +++| STD RI 00882 M01S00818.comptfm +++| LDC BUF2 00883 M01S00819.comptfm +++| STD BA 00884 M01S00820.comptfm +++| RJM GIB GET INITIAL BLOCK 00885 M01S00821.comptfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
| Line S00822 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00886 M02S00822.nos252 ---| MJN FTC5 IF INVALID POINTERS 00887 M01S00004.nos252 +++| MJN FTC5 IF INCORRECT POINTERS 00888 M01S00823.comptfm +++| SAVEP CPCB SAVE BUFFER POINTERS (CATALOG) 00889 M01S00824.comptfm +++| RJM VUB VERIFY USER BLOCK
| Line S00825 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00890 M02S00825.ns2763 ---| ZJN FTC8 IF VSN RESERVED BY USER
| Line S00826 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00891 M02S00826.ns2763 ---| FTC4 LDN /EMSG/VNF *VSN (VSN) NOT FOUND.*
| Line S00827 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00892 M02S00827.ns2763 ---| UJN FTC8 RETURN 00893 M01S00039.ns2763 +++| NJN FTC2 IF NOT VSN RESERVED BY USER 00894 M01S00040.ns2763 +++| UJN FTC2.1 RETURN 00895 M01S00828.comptfm +++| 00896 M01S00829.comptfm +++| FTC5 ERROR EID *ERROR IN INDEX DATA.* 00897 M01S00830.comptfm +++|
| Line S00831 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00898 M02S00831.ns2763 ---| FTC6 LDC PBUN FILE IDENTIFIER SEARCH
| Line S00832 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00899 M02S00832.ns2763 ---| STD KA
| Line S00833 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00900 M02S00833.ns2763 ---| RJM UIS USERNAME INDEX SEARCH
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00901 M02S00834.ns2763 ---| ZJN FTC9 IF USERNAME FOUND
| Line S00835 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00902 M02S00835.ns2763 ---| FTC7 LDN /EMSG/FNF *(FILENAME) NOT FOUND.*
| Line S00836 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00836.ns2763 ---| FTC8 UJN FTC11 RETURN
| Line S00837 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00904 M02S00837.ns2763 ---|
| Line S00838 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00905 M02S00838.ns2763 ---| FTC9 LDC BUF2 SET CATALOG BUFFER ADDRESS
| Line S00839 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00906 M02S00839.ns2763 ---| STD BA
| Line S00840 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00907 M02S00840.ns2763 ---| LDM UBCI,BP SET CATALOG RANDOM INDEX
| Line S00841 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00908 M02S00841.ns2763 ---| LPN 77
| Line S00842 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00909 M02S00842.ns2763 ---| STD RI
| Line S00843 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00910 M02S00843.ns2763 ---| SHN 14
| Line S00844 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00911 M02S00844.ns2763 ---| LMM UBCI+1,BP
| Line S00845 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00912 M02S00845.ns2763 ---| STD RI+1
| Line S00846 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00913 M02S00846.ns2763 ---| ZJN FTC7 IF NO RANDOM ADDRESS
| Line S00847 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00914 M02S00847.ns2763 ---| LDC POFI SET SEARCH KEY ADDRESS
| Line S00848 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00915 M02S00848.ns2763 ---| STD KA
| Line S00849 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00916 M02S00849.ns2763 ---| RJM SCB SEARCH CATALOG BUFFER
| Line S00850 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00917 M02S00850.ns2763 ---| ZJN FTC7 IF FILE NOT FOUND
| Line S00851 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00918 M02S00851.ns2763 ---| PJN FTC10 IF NOT DUPLICATE FILENAME
| Line S00852 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00919 M02S00852.ns2763 ---| LDN /EMSG/FAR *(FILENAME) ALREADY RESERVED.*
| Line S00853 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00920 M02S00853.ns2763 ---| UJN FTC11 RETURN WITH ERROR
| Line S00854 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00921 M02S00854.ns2763 ---| FTC10 LDN 0 SET CATALOG FOUND
| Line S00855 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00922 M02S00855.ns2763 ---| FTC11 LJM FTCX RETURN 00923 M01S00041.ns2763 +++| 00924 M01S00856.comptfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 00925 M01S00857.comptfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS BLOCK LINK 00926 M01S00858.comptfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY 00927 M01S00859.comptfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 00928 M01S00860.comptfm +++| SCB$ EQU 1 DEFINE SCB - SEARCH CATALOG BUFFER 00929 M01S00861.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00930 M01S00862.comptfm +++| UIS$ EQU 1 DEFINE UIS - USERNAME INDEXED SEARCH 00931 M01S00863.comptfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 00932 M01S00864.comptfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 00933 M01S00865.comptfm +++| FTC$ ENDIF 00934 M01S00866.comptfm +++| CAA$ IF DEF,CAA$ 00935 M01S00867.comptfm +++| CAA SPACE 4,10 00936 M01S00868.comptfm +++|** CAA - CHECK ALTERNATE USER ACCESS. 00937 M01S00869.comptfm +++|* 00938 M01S00870.comptfm +++|* ENTRY (BA) = CATALOG BUFFER ADDRESS. 00939 M01S00871.comptfm +++|* (BP) = CATALOG BUFFER POINTER. 00940 M01S00872.comptfm +++|* 00941 M01S00873.comptfm +++|* EXIT (BA) = CATALOG BUFFER ADDRESS. 00942 M01S00874.comptfm +++|* (BP) = CATALOG BUFFER POINTER. 00943 M01S00875.comptfm +++|* (CT) = FILE CATEGORY TYPE. 00944 M01S00876.comptfm +++|* (MD) = FILE ACCESS MODE. 00945 M01S00877.comptfm +++|* 00946 M01S00878.comptfm +++|* USES CT, KA, MD, PB, RI - RI+1. 00947 M01S00879.comptfm +++|* 00948 M01S00880.comptfm +++|* CALLS AUS, IBC, IIE, MBP, TBA, WRP. 00949 M01S00881.comptfm +++|* 00950 M01S00882.comptfm +++|* MACROS CLEAR, COMPARE, ERROR, MMOVE, RESTP, 00951 M01S00883.comptfm +++|* SAVEP. 00952 M01S00884.comptfm +++| 00953 M01S00885.comptfm +++| 00954 M01S00886.comptfm +++| CAA SUBR ENTRY/EXIT 00955 M01S00887.comptfm +++| LDM PAUN 00956 M01S00888.comptfm +++| ZJN CAAX IF USERS CATALOG BLOCK 00957 M01S00889.comptfm +++| LDM CBCT,BP SET CATEGORY TYPE 00958 M01S00890.comptfm +++| SHN 14 00959 M01S00891.comptfm +++| STD CT 00960 M01S00892.comptfm +++| SHN -14 SET ACCESS MODE 00961 M01S00893.comptfm +++| STD MD 00962 M01S00894.comptfm +++| COMPARE PPWD,,CBPW,BP,PWKL 00963 M01S00895.comptfm +++| ZJN CAA3 IF COMPARE ON PASSWORD 00964 M01S00896.comptfm +++|* UJN CAA3 (SKIP PASSWORD CHECK IF *RESEX* *POSMF*) 00965 M01S00897.comptfm +++| CAAB EQU *-1 00966 M01S00898.comptfm +++| CAA1 LDM PESN 00967 M01S00899.comptfm +++| ZJN CAA2 IF VSN NOT SPECIFIED 00968 M01S00900.comptfm +++| LDN /EMSG/VNF&/EMSG/FNF 00969 M01S00901.comptfm +++| CAA2 LMN /EMSG/FNF *(FILENAME) NOT FOUND.* 00970 M01S00902.comptfm +++| ERROR 00971 M01S00903.comptfm +++| 00972 M01S00904.comptfm +++| CAA3 LDD CT CHECK FILE CATEGORY 00973 M01S00905.comptfm +++| LMN FCPU 00974 M01S00906.comptfm +++| ZJN CAA4 IF PUBLIC FILE 00975 M01S00907.comptfm +++| LDM CBAE,BP SET ADMIT INDEX 00976 M01S00908.comptfm +++| LPN 77 00977 M01S00909.comptfm +++| STD RI 00978 M01S00910.comptfm +++| SHN 14 00979 M01S00911.comptfm +++| LMM CBAE+1,BP 00980 M01S00912.comptfm +++| STD RI+1 00981 M01S00913.comptfm +++| NJN CAA6 IF ADMITS ASSIGNED TO FILE 00982 M01S00914.comptfm +++| LDD CT 00983 M01S00915.comptfm +++| LMN FCSP 00984 M01S00916.comptfm +++| NJN CAA1 IF NOT SEMI-PRIVATE 00985 M01S00917.comptfm +++| RJM CMD CHECK MODE
| Line S00918 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 00986 M02S00918.m1669 ---| LDN 0 IF ADMIT ENTRY UPDATE
| Line S00919 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 00987 M02S00919.m1669 ---|* LDN 1 IF NO ADMIT ENTRY UPDATE 00988 M01S00001.m1669 +++| LDC 0 IF ADMIT ENTRY UPDATE 00989 M01S00002.m1669 +++|* LDC 1 IF NO ADMIT ENTRY UPDATE 00990 M01S00920.comptfm +++| CAAC EQU *-1 00991 M01S00921.comptfm +++| NJN CAA5 IF NO ADMIT ENTRY UPDATE 00992 M01S00922.comptfm +++| LJM CAA11 ENTER ADMIT ENTRY 00993 M01S00923.comptfm +++| 00994 M01S00924.comptfm +++| CAA4 RJM CMD COMPARE MODES 00995 M01S00925.comptfm +++| CAA5 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 00996 M01S00926.comptfm +++| LJM CAAX RETURN 00997 M01S00927.comptfm +++| 00998 M01S00928.comptfm +++| CAA6 LDC PAUN CHECK FOR EXPLICIT PERMISSION 00999 M01S00929.comptfm +++| STD KA 01000 M01S00930.comptfm +++| RJM AUS ALTERNATE USERNAME SEARCH 01001 M01S00931.comptfm +++| NJN CAA7 IF ALTERNATE USER NOT FOUND 01002 M01S00932.comptfm +++| LDC WRP SET TO UPDATE EXISTING ENTRY 01003 M01S00933.comptfm +++| STM CAAA 01004 M01S00934.comptfm +++| LDD BP 01005 M01S00935.comptfm +++| UJN CAA8 UPDATE ADMIT ENTRY 01006 M01S00936.comptfm +++| 01007 M01S00937.comptfm +++| CAA7 LDD CT CHECK FOR PRIVATE FILE 01008 M01S00938.comptfm +++| LMN FCPR 01009 M01S00939.comptfm +++| ZJP CAA1 IF PRIVATE FILE 01010 M01S00940.comptfm +++| CLEAR BUFA,,2*10D ENTER ADMIT ENTRY 01011 M01S00941.comptfm +++| LDC BUFB 01012 M01S00942.comptfm +++| STD T7 01013 M01S00943.comptfm +++| LDC BUFA 01014 M01S00944.comptfm +++| CAA8 STD PB UPDATE INDEX 01015 M01S00945.comptfm +++| LDM ABAM,PB 01016 M01S00946.comptfm +++| LPN 77 01017 M01S00947.comptfm +++| ZJN CAA9 IF IMPLICIT USER 01018 M01S00948.comptfm +++| ERRNZ FMIU 01019 M01S00949.comptfm +++| STD MD 01020 M01S00950.comptfm +++| CAA9 RJM CMD CHECK MODE 01021 M01S00951.comptfm +++| LDM CAAC CHECK FOR ADMIT ENTRY UPDATE 01022 M01S00952.comptfm +++| NJN CAA10 IF NO UPDATE 01023 M01S00953.comptfm +++| MMOVE PAUN,,,PB,UNKL 01024 M01S00954.comptfm +++| LDD HN INCREMENT ACCESS COUNT 01025 M01S00955.comptfm +++| RAM ABAN+1,PB 01026 M01S00956.comptfm +++| SHN -14 01027 M01S00957.comptfm +++| RAM ABAN,PB 01028 M01S00958.comptfm +++| LIA ABDT,PB 01029 M01S00959.comptfm +++| RJM EDT ENTER PACKED DATE/TIME 01030 M01S00960.comptfm +++| RJM IIE INSERT INDEX ENTRY 01031 M01S00961.comptfm +++| CAAA EQU *-1 (RJM TO *WRP* IF INDEX FOUND) 01032 M01S00962.comptfm +++| CAA10 LJM CAA5 RESTORE CATALOG POINTERS 01033 M01S00963.comptfm +++| 01034 M01S00964.comptfm +++| CAA11 RJM TBA TOGGLE BUFFER ASSIGNMENT 01035 M01S00965.comptfm +++| RJM IBC INITIALIZE BLOCK CHAIN 01036 M01S00966.comptfm +++| LDC RTAB*100 01037 M01S00967.comptfm +++| STM CWRT,BA 01038 M01S00968.comptfm +++| LDN TAEL 01039 M01S00969.comptfm +++| STM CWEL,BA 01040 M01S00970.comptfm +++| MMOVE PBUN,,CWUN,BA,UNKL 01041 M01S00971.comptfm +++| LDM CWFE,BA 01042 M01S00972.comptfm +++| RJM MBP MOVE BUFFER POINTER 01043 M01S00973.comptfm +++| SAVEP CPAB SAVE ADMIT BUFFER POINTERS 01044 M01S00974.comptfm +++| RESTP CPCB RESTORE CATALOG POINTERS 01045 M01S00975.comptfm +++| LDM CPAB+3 SET ADMIT BUFFER POINTER 01046 M01S00976.comptfm +++| STM CBAE,BP 01047 M01S00977.comptfm +++| LDM CPAB+4 01048 M01S00978.comptfm +++| STM CBAE+1,BP 01049 M01S00979.comptfm +++| RJM WRP WRITE RANDOM PRU (CATALOG) 01050 M01S00980.comptfm +++| RESTP CPAB RESTORE ADMIT BUFFER POINTERS 01051 M01S00981.comptfm +++| LJM CAA7 ENTER IMPLICIT USER 01052 M01S00982.comptfm +++| CMD SPACE 4,10 01053 M01S00983.comptfm +++|** CMD - COMPARE MODE REQUESTED WITH MODE ALLOWED. 01054 M01S00984.comptfm +++|* 01055 M01S00985.comptfm +++|* ENTRY (MD) = MODE ALLOWED. 01056 M01S00986.comptfm +++|* (PFTD+1) = WRITE REQUESTED. 01057 M01S00987.comptfm +++|* 01058 M01S00988.comptfm +++|* EXIT TO CAA1 IF ACCESS DENIED. 01059 M01S00989.comptfm +++|* TO ERR IF WRITE REQUESTED ON READ-ONLY FILE. 01060 M01S00990.comptfm +++| 01061 M01S00991.comptfm +++| 01062 M01S00992.comptfm +++| CMD SUBR ENTRY/EXIT 01063 M01S00993.comptfm +++| LDD MD 01064 M01S00994.comptfm +++| LMN FMNA 01065 M01S00995.comptfm +++| ZJP CAA1 IF ACCESS DENIED 01066 M01S00996.comptfm +++| LMN FMWR&FMNA 01067 M01S00997.comptfm +++| ZJN CMDX IF WRITE ALLOWED 01068 M01S00998.comptfm +++| LDM PFTD+1 01069 M01S00999.comptfm +++| SHN 21-4 01070 M01S01000.comptfm +++| PJN CMDX IF READ REQUESTED 01071 M01S01001.comptfm +++| ERROR WRF *WRITE ON READ-ONLY FILE.* 01072 M01S01002.comptfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY 01073 M01S01003.comptfm +++| CAA$ ENDIF 01074 M01S01004.comptfm +++| IAM$ IF DEF,IAM$ 01075 M01S01005.comptfm +++| IAM SPACE 4,10 01076 M01S01006.comptfm +++|** IAM - ISSUE ACCOUNT FILE MESSAGE. 01077 M01S01007.comptfm +++|* 01078 M01S01008.comptfm +++|* ENTRY (A) = 0, IF RESERVE ACCOUNT MESSAGE. 01079 M01S01009.comptfm +++|* (A) = 1, IF RELEASE ACCOUNT MESSAGE. 01080 M01S01010.comptfm +++|* (CM - CM+4) = 0 IF UNCONDITIONAL RELEASE, 01081 M01S01011.comptfm +++|* = C* YY/MM/DD.* IF CONDITIONAL RELEASE. 01082 M01S01012.comptfm +++|* 01083 M01S01013.comptfm +++|* EXIT ACCOUNT FILE MESSAGE ISSUED. 01084 M01S01014.comptfm +++|* 01085 M01S01015.comptfm +++|* USES T0 - T4. 01086 M01S01016.comptfm +++|* 01087 M01S01017.comptfm +++|* CALLS FAM, IRS. 01088 M01S01018.comptfm +++| 01089 M01S01019.comptfm +++| 01090 M01S01020.comptfm +++| IAM SUBR ENTRY/EXIT
| Line S01021 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01091 M02S01021.t5472 ---| STD T4 RELEASE/RESERVE FLAG
| Line S01022 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01092 M02S01022.t5472 ---| LDM IAMB,T4 *A * OR *B *
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01093 M02S00008.nos252 ---| SHN 6
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01094 M02S00009.nos252 ---| ADC 2RA *A * OR *B * FOR MESSAGE 01095 M01S00005.nos252 +++| STD T0 01096 M01S00006.nos252 +++| ZJN IAM1 IF RESERVE ACCOUNT MESSAGE 01097 M01S00007.nos252 +++| LDC 2RCR&2RAU SET RELEASE ACCOUNT MESSAGE 01098 M01S00008.nos252 +++| IAM1 LMC 2RAU 01099 M01S01023.comptfm +++| STM IAMA+1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01100 M02S00010.nos252 ---| ADC -2RA 01101 M01S00009.nos252 +++| LDD T0 01102 M01S01024.comptfm +++| RJM FAM FORMAT ACCOUNT FILE MESSAGE 01103 M01S01025.comptfm +++| RJM IRS ISSUE ACCOUNT MESSAGE 01104 M01S01026.comptfm +++| UJP IAMX RETURN 01105 M01S01027.comptfm +++|
| Line S01028 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01106 M02S01028.nos252 ---| IAMA DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. *
| Line S01029 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01107 M02S01029.nos252 ---|* DATA C*SMA , FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.*
| Line S01030 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t2807 |
M03 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01108 M03S01030.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, .*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | t2807 |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01109 M02S00007.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF.*
| Line S01031 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01110 M02S01031.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.*
| Line S01032 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01111 M02S01032.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.*
| Line S01033 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01112 M02S01033.nos252 ---|* DATA C*SMH , FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.*
| Line S01034 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01113 M02S01034.nos252 ---|* DATA C*SMI , FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.* 01114 M01S00010.nos252 +++| IAMA DATA C*SDCR, FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. * 01115 M01S00011.nos252 +++|* DATA C*SDAU, FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.* 01116 M01S00012.nos252 +++|* DATA C*SDCR, FAMNAME/USERNAM/QNZZZ/VSNFFF.* 01117 M01S00013.nos252 +++|* DATA C*SDRA, FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.* 01118 M01S00014.nos252 +++|* DATA C*SDRA, FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.* 01119 M01S00015.nos252 +++|* DATA C*SDRB, FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.* 01120 M01S00016.nos252 +++|* DATA C*SDRC, FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.*
| Line S01035 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01121 M02S01035.t5472 ---| IAMB DATA 2HA
| Line S01036 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01122 M02S01036.t5472 ---| DATA 2HB 01123 M01S01037.comptfm +++| FAM$ EQU 1 DEFINE FAM - FORMAT ACCOUNT FILE MESSAGE 01124 M01S01038.comptfm +++| IRS$ EQU 1 DEFINE IRS - ISSUE RECOVERY MSG SUBROUTINE 01125 M01S01039.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 01126 M01S01040.comptfm +++| CSN$ EQU 1 DEFINE CSN - CONVERT SEQUENCE NUMBER 01127 M01S01041.comptfm +++| IAM$ ENDIF 01128 M01S01042.comptfm +++| IRM$ IF DEF,IRM$ 01129 M01S01043.comptfm +++| IRM SPACE 4,15 01130 M01S01044.comptfm +++|** IRM - ISSUE *TMS* RECOVERY MESSAGES. 01131 M01S01045.comptfm +++|* 01132 M01S01046.comptfm +++|* ENTRY (BP) = TAPE CATALOG ENTRY TO ISSUE MESSAGES FOR. 01133 M01S01047.comptfm +++|* (TFMC) = HAS DATA ATTACH MODE. 01134 M01S01048.comptfm +++|*
| Line S01049 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01135 M02S01049.nos252 ---|* EXIT RECOVERY MESSAGES *SMG*, *SMI* AND POSSIBLY
| Line S01050 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01136 M02S01050.nos252 ---|* *SMH* ISSUED TO THE ACCOUNT DAYFILE. 01137 M01S00017.nos252 +++|* EXIT RECOVERY MESSAGES *SDRA*, *SDRC* AND POSSIBLY 01138 M01S00018.nos252 +++|* *SDRB* ISSUED TO THE ACCOUNT DAYFILE. 01139 M01S01051.comptfm +++|* 01140 M01S01052.comptfm +++|* USES T0 - T4, CM - CM+4. 01141 M01S01053.comptfm +++|* 01142 M01S01054.comptfm +++|* CALLS CSN, FAM, IRS, RUC. 01143 M01S01055.comptfm +++|* 01144 M01S01056.comptfm +++|* MACROS MMOVE. 01145 M01S01057.comptfm +++| 01146 M01S01058.comptfm +++| 01147 M01S01059.comptfm +++| IRM SUBR ENTRY/EXIT 01148 M01S01060.comptfm +++| LDM TFMC 01149 M01S01061.comptfm +++| LPN 77 01150 M01S01062.comptfm +++| LMN /PFM/PTLM 01151 M01S01063.comptfm +++| ZJN IRMX IF CATALOG IS IN LOCAL FILE MODE 01152 M01S01064.comptfm +++| LDA CBQN,BP CONVERT SEQUENCE NUMBER TO DISPLAY CODE 01153 M01S01065.comptfm +++| RJM CSN
| Line S01066 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01154 M02S01066.nos252 ---| LDC 2RG 01155 M01S00019.nos252 +++| LDC 2RRA 01156 M01S01067.comptfm +++| STM IAMA+1 01157 M01S01068.comptfm +++| LDN 0 SET *RESERVE* FORMAT DESIRED
| Line S01069 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01158 M02S01069.t5472 ---| STD T4 01159 M01S01070.comptfm +++| RJM FAM FORMAT ACCOUNT FILE MESSAGE 01160 M01S01071.comptfm +++| LDC IAMA+22 RESET MESSAGE POINTER 01161 M01S01072.comptfm +++| STD T2 01162 M01S01073.comptfm +++| LDM CBFN,BP GET TAPE FORMAT DESCRIPTORS
| Line S01074 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5268 |
Seq # *Modification Id* Act ----------------------------+ 01163 M02S01074.t5268 ---| SHN 14
| Line S01075 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | t5268 |
Seq # *Modification Id* Act ----------------------------+ 01164 M02S01075.t5268 ---| SCN 77 01165 M01S00001.t5268 +++| SCN 77 ISOLATE LABEL FORMAT 01166 M01S00002.t5268 +++| SHN 6 01167 M01S01076.comptfm +++| ADM CBTD,BP ADD TAPE FORMAT DESCRIPTORS 01168 M01S01077.comptfm +++| ADC 10101 ENSURE NO COLON CHARACTERS 01169 M01S01078.comptfm +++| STI T2 01170 M01S01079.comptfm +++| SHN 14 01171 M01S01080.comptfm +++| SCN 77 01172 M01S01081.comptfm +++| ADN 1R/ 01173 M01S01082.comptfm +++| STM 1,T2 01174 M01S01083.comptfm +++| AOD T2 01175 M01S01084.comptfm +++| AOD T2 01176 M01S01085.comptfm +++| STD T3 SAVE START OF PASSWORD IN MESSAGE 01177 M01S01086.comptfm +++| MMOVE CBPW,BP,,,7 ADD PASSWORD 01178 M01S01087.comptfm +++| LDI T3 01179 M01S01088.comptfm +++| NJN IRM1 IF NON-NULL PASSWORD 01180 M01S01089.comptfm +++| SOD T3 BACKUP POINTER 01181 M01S01090.comptfm +++| STD T2 01182 M01S01091.comptfm +++| IRM1 RJM IRS ISSUE MESSAGE 01183 M01S01092.comptfm +++| LDM CBST,BP CHECK IF TAPE HAS SYMBOLIC ACCESS 01184 M01S01093.comptfm +++| LPN 1S2 01185 M01S01094.comptfm +++| ZJN IRM2 IF NOT SYMBOLIC ACCESS TAPE 01186 M01S01095.comptfm +++| LIA CBLI,BP SET FWA OF STRING TO TEST FOR COLONS 01187 M01S01096.comptfm +++| STD T1 01188 M01S01097.comptfm +++| LDN 22 NUMBER OF CHARACTERS TO TEST 01189 M01S01098.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01190 M01S01099.comptfm +++| LIA CBPI,BP SET FWA OF STRING TO TEST FOR COLONS 01191 M01S01100.comptfm +++| STD T1 01192 M01S01101.comptfm +++| LDN 21 NUMBER OF CHARACTERS TO TEST 01193 M01S01102.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01194 M01S01103.comptfm +++| LDM IAMA+6 SET SUBSTITUTION CHARACTER IN MESSAGE 01195 M01S01104.comptfm +++| SCN 77 01196 M01S01105.comptfm +++| ADD T3 01197 M01S01106.comptfm +++| STM IAMA+6 01198 M01S01107.comptfm +++| RJM IRS ISSUE MESSAGE 01199 M01S01108.comptfm +++| IRM2 LDM IAMA+6 RESET */* IN MESSAGE 01200 M01S01109.comptfm +++| SCN 77 01201 M01S01110.comptfm +++| ADN 1R/ 01202 M01S01111.comptfm +++| STM IAMA+6
| Line S01112 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01203 M02S01112.nos252 ---| LDC 2RI CHANGE TO *SMI ,* 01204 M01S00020.nos252 +++| LDC 2RRC CHANGE TO *SDRC,* 01205 M01S01113.comptfm +++| STM IAMA+1 01206 M01S01114.comptfm +++| LIA CBUC,BP SET FWA OF STRING TO TEST 01207 M01S01115.comptfm +++| STD T1 01208 M01S01116.comptfm +++| LDN 12 NUMBER OF CHARACTERS 01209 M01S01117.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01210 M01S01118.comptfm +++| LDD T3 SUBSTITUTION CHARACTER 01211 M01S01119.comptfm +++| SHN 6 01212 M01S01120.comptfm +++| ADN 1R/ 01213 M01S01121.comptfm +++| STI T2 01214 M01S01122.comptfm +++| AOD T2 01215 M01S01123.comptfm +++| MMOVE CBCN,BP,,,CNKL ADD CHARGE NUMBER 01216 M01S01124.comptfm +++| LDC 2R, 01217 M01S01125.comptfm +++| STI T2 01218 M01S01126.comptfm +++| AOD T2 01219 M01S01127.comptfm +++| LIA CBSI,BP SET FWA OF STRING TO TEST 01220 M01S01128.comptfm +++| STD T1 01221 M01S01129.comptfm +++| LDN 6 01222 M01S01130.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01223 M01S01131.comptfm +++| LDD T3 01224 M01S01132.comptfm +++| SHN 6 01225 M01S01133.comptfm +++| STI T2 01226 M01S01134.comptfm +++| RJM IRS ISSUE MESSAGE 01227 M01S01135.comptfm +++| LDM CBST,BP CLEAR *TMS* RECOVERY MESSAGES NEEDED FLAG 01228 M01S01136.comptfm +++| LPC 7377 01229 M01S01137.comptfm +++| STM CBST,BP 01230 M01S01138.comptfm +++| UJP IRMX RETURN 01231 M01S01139.comptfm +++| IAMA IF -DEF,IAMA
| Line S01140 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01232 M02S01140.nos252 ---| IAMA DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. *
| Line S01141 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01233 M02S01141.nos252 ---|* DATA C*SMA , FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.*
| Line S01142 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01234 M02S01142.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, .*
| Line S01143 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01235 M02S01143.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.*
| Line S01144 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01236 M02S01144.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.*
| Line S01145 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01237 M02S01145.nos252 ---|* DATA C*SMH , FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.*
| Line S01146 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01238 M02S01146.nos252 ---|* DATA C*SMI , FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.* 01239 M01S00021.nos252 +++| IAMA DATA C*SDCR, FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. * 01240 M01S00022.nos252 +++|* DATA C*SDAU, FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.* 01241 M01S00023.nos252 +++|* DATA C*SDCR, FAMNAME/USERNAM/QNZZZ/VSNFFF, .* 01242 M01S00024.nos252 +++|* DATA C*SDRA, FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.* 01243 M01S00025.nos252 +++|* DATA C*SDRA, FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.* 01244 M01S00026.nos252 +++|* DATA C*SDRB, FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.* 01245 M01S00027.nos252 +++|* DATA C*SDRC, FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.* 01246 M01S01147.comptfm +++| IAMA ENDIF 01247 M01S01148.comptfm +++| RUC SPACE 4,15 01248 M01S01149.comptfm +++|** RUC - REMOVE UNWANTED COLONS FROM MESSAGE. 01249 M01S01150.comptfm +++|* 01250 M01S01151.comptfm +++|* ENTRY (A) = NUMBER OF CHARACTERS IN STRING. 01251 M01S01152.comptfm +++|* (T1) = FWA OF STRING TO TEST. 01252 M01S01153.comptfm +++|* (T2) = FWA OF STRING DESTINATION. 01253 M01S01154.comptfm +++|* 01254 M01S01155.comptfm +++|* EXIT (T3) = SUBSTITUTION CHARACTER USED. 01255 M01S01156.comptfm +++|* 01256 M01S01157.comptfm +++|* USES T0 - T4. 01257 M01S01158.comptfm +++| 01258 M01S01159.comptfm +++| 01259 M01S01160.comptfm +++| RUC2 LDD T1 RESTORE T2 01260 M01S01161.comptfm +++| STD T2 01261 M01S01162.comptfm +++| 01262 M01S01163.comptfm +++| RUC SUBR ENTRY/EXIT 01263 M01S01164.comptfm +++| STD T0 01264 M01S01165.comptfm +++| LDD T2 01265 M01S01166.comptfm +++| STD T4 01266 M01S01167.comptfm +++| LDN 1R; SET FIRST SUBSTITUTION CHARACTER 01267 M01S01168.comptfm +++| STD T3 01268 M01S01169.comptfm +++| RUC1 LDD MA 01269 M01S01170.comptfm +++| CWD T0 01270 M01S01171.comptfm +++| LDD T0 01271 M01S01172.comptfm +++| RJM MPM MOVE CHARACTERS 01272 M01S01173.comptfm +++| LDD T2 01273 M01S01174.comptfm +++| STD T1 01274 M01S01175.comptfm +++| RJM SCC SUBSTITUTE FOR COLONS 01275 M01S01176.comptfm +++| NJP RUC2 IF SUBSTITUTION SUCCESSFUL 01276 M01S01177.comptfm +++| LDD MA RESTORE MOVE PARAMETERS 01277 M01S01178.comptfm +++| CRD T0 01278 M01S01179.comptfm +++| SOD T3 DECREMENT TO NEXT SUBSTITUTION CHARACTER 01279 M01S01180.comptfm +++| UJP RUC1 TRY AGAIN 01280 M01S01181.comptfm +++| CSN$ EQU 1 DEFINE CSN - CONVERT SEQUENCE NUMBER 01281 M01S01182.comptfm +++| FAM$ EQU 1 DEFINE FAM - FORMAT ACCOUNT FILE MESSAGE 01282 M01S01183.comptfm +++| IRS$ EQU 1 DEFINE IRS - ISSUE RECOVERY MSG SUBROUTINE 01283 M01S01184.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 01284 M01S01185.comptfm +++| IRM$ ENDIF 01285 M01S01186.comptfm +++| IIE$ IF DEF,IIE$ 01286 M01S01187.comptfm +++| IIE SPACE 4,10 01287 M01S01188.comptfm +++|** IIE - INSERT INDEXED ENTRY. 01288 M01S01189.comptfm +++|* 01289 M01S01190.comptfm +++|* *IIE* IS USED TO INSERT A VSN, USERNAME, OR ADMIT 01290 M01S01191.comptfm +++|* ENTRY INTO A INDEXED DATA BLOCK. IF THERE IS NOT 01291 M01S01192.comptfm +++|* ENOUGH ROOM IN THE INDEX BLOCK A NEW INDEX BLOCK 01292 M01S01193.comptfm +++|* WILL BE CREATED IN THE FOLLOWING WAY. 01293 M01S01194.comptfm +++|* 01294 M01S01195.comptfm +++|* 1. IF THE BLOCK IS NOT FULL THE NEW ENTRY IS 01295 M01S01196.comptfm +++|* INSERTED INTO THE CURRENT INDEX BLOCK. 01296 M01S01197.comptfm +++|* 01297 M01S01198.comptfm +++|* 2. IF INSERTING AT THE END OF A FULL INDEX BLOCK, 01298 M01S01199.comptfm +++|* THE NEW INDEX IS INSERTED INTO THE NEXT INDEX 01299 M01S01200.comptfm +++|* BLOCK. 01300 M01S01201.comptfm +++|* 01301 M01S01202.comptfm +++|* 3. IF INSERTING WITHIN A FULL INDEX BLOCK, THE 01302 M01S01203.comptfm +++|* LAST INDEX OF THE CURRENT BLOCK IS MOVED TO 01303 M01S01204.comptfm +++|* THE NEXT INDEX BLOCK, AND THE NEW INDEX IS 01304 M01S01205.comptfm +++|* INSERTED INTO THE CURRENT INDEX BLOCK. 01305 M01S01206.comptfm +++|* 01306 M01S01207.comptfm +++|* 4. IF THE CURRENT INDEX BLOCK IS FULL AND NOT 01307 M01S01208.comptfm +++|* LINKED, OR IT IS LINKED BUT THAT BLOCK IS FULL, 01308 M01S01209.comptfm +++|* A NEW INDEX BLOCK IS CREATED. 01309 M01S01210.comptfm +++|* 01310 M01S01211.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01311 M01S01212.comptfm +++|* (BP) = BUFFER POINTER FOR INSERT. 01312 M01S01213.comptfm +++|* (PB) = ENTRY BUFFER ADDRESS. 01313 M01S01214.comptfm +++|* (T7) = OVERFLOW BUFFER ADDRESS. 01314 M01S01215.comptfm +++|* 01315 M01S01216.comptfm +++|* EXIT (BA) = UNCHANGED. 01316 M01S01217.comptfm +++|* (BP) = BUFFER POINTER. 01317 M01S01218.comptfm +++|* (PB) = OVERFLOW BUFFER ADDRESS. 01318 M01S01219.comptfm +++|* (A) = 0 IF NO OVERFLOW INTO SUBSEQUENT BLOCK. 01319 M01S01220.comptfm +++|* 01320 M01S01221.comptfm +++|* USES T5 - T6. 01321 M01S01222.comptfm +++|* 01322 M01S01223.comptfm +++|* CALLS ABC, GIB, GNL, GPL, IDE, MBP, PLI, WRP. 01323 M01S01224.comptfm +++|* 01324 M01S01225.comptfm +++|* MACROS ERROR, MMOVE. 01325 M01S01226.comptfm +++| 01326 M01S01227.comptfm +++| 01327 M01S00042.ns2763 +++| IIE2 RJM WRP WRITE RANDOM PRU 01328 M01S00043.ns2763 +++| RJM GNL GET NEXT LINK 01329 M01S00044.ns2763 +++| ZJN IIE5 IF BLOCK NOT LINKED 01330 M01S00045.ns2763 +++| RJM GIB GET INITIAL BLOCK 01331 M01S00046.ns2763 +++| LDM CWUW,BA 01332 M01S00047.ns2763 +++| SBM CWEL,BA 01333 M01S00048.ns2763 +++| PJN IIE6 IF ROOM IN THIS BLOCK 01334 M01S00049.ns2763 +++| RJM GPL GET PREVIOUS LINK 01335 M01S00050.ns2763 +++| NJN IIE4 IF BLOCK LINKED 01336 M01S00051.ns2763 +++| IIE3 ERROR CLE *CATALOG LINKAGE ERROR.* 01337 M01S00052.ns2763 +++| 01338 M01S00053.ns2763 +++| IIE4 RJM GIB GET INITIAL BLOCK 01339 M01S00054.ns2763 +++| IIE5 LDM CWRT,BA SET RECORD TYPE/LEVEL 01340 M01S00055.ns2763 +++| STM IIEB 01341 M01S00056.ns2763 +++| LDM CWEL,BA SET ENTRY LENGTH 01342 M01S00057.ns2763 +++| STM IIEC 01343 M01S00058.ns2763 +++| LDN CWRI DECLARE LINKAGE BYTE 01344 M01S00059.ns2763 +++| RJM ABC ADD BLOCK TO CHAIN 01345 M01S00060.ns2763 +++| LDC ** 01346 M01S00061.ns2763 +++| IIEB EQU *-1 (RECORD TYPE/LEVEL) 01347 M01S00062.ns2763 +++| STM CWRT,BA 01348 M01S00063.ns2763 +++| LDC ** 01349 M01S00064.ns2763 +++| IIEC EQU *-1 (ENTRY LENGTH) 01350 M01S00065.ns2763 +++| STM CWEL,BA 01351 M01S00066.ns2763 +++| IIE6 LDM CWFE,BA POSITION TO FIRST INDEX 01352 M01S00067.ns2763 +++| RJM MBP MOVE BUFFER POINTER 01353 M01S00068.ns2763 +++| LDC ** 01354 M01S00069.ns2763 +++| IIED EQU *-1 (FWA OF BUFFER CONTAINING DATA) 01355 M01S00070.ns2763 +++| STD PB 01356 M01S00071.ns2763 +++| RJM IDE INSERT DATA ENTRY 01357 M01S00072.ns2763 +++| RJM WRP WRITE RANDOM PRU 01358 M01S00073.ns2763 +++| LDC IIEX 01359 M01S00074.ns2763 +++| STM IIEA 01360 M01S00075.ns2763 +++| 01361 M01S01228.comptfm +++| IIE SUBR ENTRY/EXIT 01362 M01S01229.comptfm +++| LDM CWUW,BA 01363 M01S01230.comptfm +++| SBM CWEL,BA 01364 M01S01231.comptfm +++| PJP IIE1 IF ROOM IN THIS BLOCK 01365 M01S01232.comptfm +++| LDD BP 01366 M01S01233.comptfm +++| STD T5 01367 M01S01234.comptfm +++| LDD PB 01368 M01S01235.comptfm +++| STM IIED 01369 M01S01236.comptfm +++| RJM PLI POSITION TO LAST INDEX 01370 M01S01237.comptfm +++| SBD T5 01371 M01S01238.comptfm +++| MJP IIE2 IF INSERT BEYOND LAST ENTRY 01372 M01S01239.comptfm +++| LDM CWEL,BA FILL OVERFLOW BUFFER 01373 M01S01240.comptfm +++| STD T6 01374 M01S01241.comptfm +++| SHN 2 01375 M01S01242.comptfm +++| RAD T6 01376 M01S01243.comptfm +++| SHN 1 01377 M01S01244.comptfm +++| STD T6 01378 M01S01245.comptfm +++| MMOVE ,BP,,T7,,T6 01379 M01S01246.comptfm +++| SOM CWNE,BA ADJUST HEADER CONTROL WORD 01380 M01S01247.comptfm +++| LDM CWEL,BA 01381 M01S01248.comptfm +++| RAM CWUW,BA 01382 M01S01249.comptfm +++| LDD T5 RESET BUFFER POINTER 01383 M01S01250.comptfm +++| STD BP 01384 M01S01251.comptfm +++| LDC IIE2 01385 M01S01252.comptfm +++| STM IIEA 01386 M01S01253.comptfm +++| LDD T7 01387 M01S01254.comptfm +++| STM IIED 01388 M01S01255.comptfm +++| IIE1 RJM IDE INSERT DATA ENTRY 01389 M01S01256.comptfm +++| RJM WRP WRITE RANDOM PRU 01390 M01S01257.comptfm +++| LDN 0 01391 M01S01258.comptfm +++| LJM IIEX RETURN 01392 M01S01259.comptfm +++| IIEA EQU *-1 (TO IIE2 IF GENERATING NEW INDEX BLOCKS) 01393 M01S01260.comptfm +++|
| Line S01261 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01394 M02S01261.ns2763 ---| IIE2 RJM WRP WRITE RANDOM PRU
| Line S01262 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01395 M02S01262.ns2763 ---| RJM GNL GET NEXT LINK
| Line S01263 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01396 M02S01263.ns2763 ---| ZJN IIE5 IF BLOCK NOT LINKED
| Line S01264 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01397 M02S01264.ns2763 ---| RJM GIB GET INITIAL BLOCK
| Line S01265 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01398 M02S01265.ns2763 ---| LDM CWUW,BA
| Line S01266 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01399 M02S01266.ns2763 ---| SBM CWEL,BA
| Line S01267 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01400 M02S01267.ns2763 ---| PJN IIE6 IF ROOM IN THIS BLOCK
| Line S01268 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01401 M02S01268.ns2763 ---| RJM GPL GET PREVIOUS LINK
| Line S01269 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01402 M02S01269.ns2763 ---| NJN IIE4 IF BLOCK LINKED
| Line S01270 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01403 M02S01270.ns2763 ---| IIE3 ERROR CLE *CATALOG LINKAGE ERROR.*
| Line S01271 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01404 M02S01271.ns2763 ---|
| Line S01272 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01405 M02S01272.ns2763 ---| IIE4 RJM GIB GET INITIAL BLOCK
| Line S01273 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01406 M02S01273.ns2763 ---| IIE5 LDM CWRT,BA SET RECORD TYPE/LEVEL
| Line S01274 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01407 M02S01274.ns2763 ---| STM IIEB
| Line S01275 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01408 M02S01275.ns2763 ---| LDM CWEL,BA SET ENTRY LENGTH
| Line S01276 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01409 M02S01276.ns2763 ---| STM IIEC
| Line S01277 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01410 M02S01277.ns2763 ---| LDN CWRI DECLARE LINKAGE BYTE
| Line S01278 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01411 M02S01278.ns2763 ---| RJM ABC ADD BLOCK TO CHAIN
| Line S01279 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01412 M02S01279.ns2763 ---| LDC **
| Line S01280 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01413 M02S01280.ns2763 ---| IIEB EQU *-1 (RECORD TYPE/LEVEL)
| Line S01281 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01414 M02S01281.ns2763 ---| STM CWRT,BA
| Line S01282 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01415 M02S01282.ns2763 ---| LDC **
| Line S01283 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01416 M02S01283.ns2763 ---| IIEC EQU *-1 (ENTRY LENGTH)
| Line S01284 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01417 M02S01284.ns2763 ---| STM CWEL,BA
| Line S01285 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01418 M02S01285.ns2763 ---| IIE6 LDM CWFE,BA POSITION TO FIRST INDEX
| Line S01286 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01419 M02S01286.ns2763 ---| RJM MBP MOVE BUFFER POINTER
| Line S01287 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01420 M02S01287.ns2763 ---| LDC **
| Line S01288 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01421 M02S01288.ns2763 ---| IIED EQU *-1 (FWA OF BUFFER CONTAINING DATA)
| Line S01289 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01422 M02S01289.ns2763 ---| STD PB
| Line S01290 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01423 M02S01290.ns2763 ---| RJM IDE INSERT DATA ENTRY
| Line S01291 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01424 M02S01291.ns2763 ---| RJM WRP WRITE RANDOM PRU
| Line S01292 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01425 M02S01292.ns2763 ---| LDC IIEX
| Line S01293 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01426 M02S01293.ns2763 ---| STM IIEA
| Line S01294 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01427 M02S01294.ns2763 ---| LJM IIEX RETURN 01428 M01S01295.comptfm +++| 01429 M01S01296.comptfm +++| ABC$ EQU 1 DEFINE ABC - ADD BLOCK TO CHAIN 01430 M01S01297.comptfm +++| GEP$ EQU 1 DEFINE GEP - GENERATE EMPTY PRU 01431 M01S01298.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT BLOCK LINK 01432 M01S01299.comptfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS BLOCK LINK 01433 M01S01300.comptfm +++| IDE$ EQU 1 DEFINE IDE - INSERT DATA ENTRY 01434 M01S01301.comptfm +++| LNB$ EQU 1 DEFINE LNB - LINK NEXT BLOCK 01435 M01S01302.comptfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 01436 M01S01303.comptfm +++| WES$ EQU 1 DEFINE WES - WRITE EOR/EOI SEQUENCE 01437 M01S01304.comptfm +++| IIE$ ENDIF 01438 M01S01305.comptfm +++| PCE$ IF DEF,PCE$ 01439 M01S01306.comptfm +++| PCE SPACE 4,10 01440 M01S01307.comptfm +++|** PCE - PURGE CATALOG/ADMIT ENTRIES. 01441 M01S01308.comptfm +++|* 01442 M01S01309.comptfm +++|* ENTRY (CPCB - CPCB+4) = CATALOG POINTERS. 01443 M01S01310.comptfm +++|* 01444 M01S01311.comptfm +++|* USES RI - RI+1. 01445 M01S01312.comptfm +++|*
| Line S01313 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01446 M02S01313.ns2763 ---|* CALLS DDE, DLB, EDT, RRP, TBA, UIS,
| Line S01314 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01447 M02S01314.ns2763 ---|* VSP, WRP. 01448 M01S00076.ns2763 +++|* CALLS DDE, DLB, RRP, UIS, VSP, WRP. 01449 M01S01315.comptfm +++|*
| Line S01316 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01450 M02S01316.ns2763 ---|* CLEAR, ERROR, LDA, RESTP. 01451 M01S00077.ns2763 +++|* MACROS CLEAR, ERROR, LDA, RESTP. 01452 M01S01317.comptfm +++| 01453 M01S01318.comptfm +++| 01454 M01S01319.comptfm +++| PCE SUBR ENTRY/EXIT 01455 M01S01320.comptfm +++| RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 01456 M01S01321.comptfm +++| PCE1 LDA CBAE,BP SET FIRST ADMIT BLOCK 01457 M01S01322.comptfm +++| ZJP PCE3 IF NO ADMIT BLOCKS 01458 M01S01323.comptfm +++| PCE2 STD RI+1 DELINK ADMIT BLOCK(S) 01459 M01S01324.comptfm +++| SHN -14 01460 M01S01325.comptfm +++| STD RI 01461 M01S01326.comptfm +++| LDC BUF0 01462 M01S01327.comptfm +++| STD BA 01463 M01S01328.comptfm +++| RJM RRP READ RANDOM PRU (ADMIT)
| Line S01329 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01464 M02S01329.ns2763 ---| LDA CWRI,BA 01465 M01S00078.ns2763 +++| LDM CWRI+1,BA 01466 M01S01330.comptfm +++| STM PCEA+1
| Line S01331 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01467 M02S01331.ns2763 ---| SHN -14 01468 M01S00079.ns2763 +++| LDM CWRI,BA 01469 M01S00080.ns2763 +++| LPN 77 01470 M01S01332.comptfm +++| LMC LDCI 01471 M01S01333.comptfm +++| STM PCEA 01472 M01S01334.comptfm +++| RJM DLB DELINK BLOCK 01473 M01S01335.comptfm +++| LDC ** 01474 M01S01336.comptfm +++| PCEA EQU *-2 (NEXT BLOCK RANDOM INDEX) 01475 M01S01337.comptfm +++| NJN PCE2 IF LINKED ADMIT BLOCK 01476 M01S01338.comptfm +++| RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 01477 M01S01339.comptfm +++| PCE3 LDM CBNC,BP SET NEXT CATALOG (MULTI-FILE) 01478 M01S01340.comptfm +++| SHN 14 01479 M01S01341.comptfm +++| STM CPCB+2 01480 M01S01342.comptfm +++| SHN -14 01481 M01S01343.comptfm +++| STM CPCB+3 01482 M01S01344.comptfm +++| LDM CBNC+1,BP 01483 M01S01345.comptfm +++| STM CPCB+4 01484 M01S01346.comptfm +++| CLEAR ,BP,TCEL*10D CLEAR ENTRY (CATALOG) 01485 M01S01347.comptfm +++| LDM CWEL,BA 01486 M01S01348.comptfm +++| RAM CWUW,BA 01487 M01S01349.comptfm +++| SOM CWNE,BA 01488 M01S01350.comptfm +++| ZJN PCE6 IF EMPTY CATALOG BLOCK 01489 M01S01351.comptfm +++| RJM WRP WRITE RANDOM PRU 01490 M01S01352.comptfm +++| PCE4 RESTP CPCB RESTORE CATALOG POINTERS (NEXT) 01491 M01S01353.comptfm +++| LDD CI 01492 M01S01354.comptfm +++| ZJP PCEX IF END OF SET 01493 M01S01355.comptfm +++| RJM RRP READ RANDOM PRU 01494 M01S01356.comptfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
| Line S01357 Modification History | |
|---|---|
M01 (Added by) | comptfm |
M02 (Updated by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01495 M02S01357.nos252 ---| MJN PCE5 IF INVALID POINTER 01496 M01S00028.nos252 +++| MJN PCE5 IF INCORRECT POINTER 01497 M01S01358.comptfm +++| LDD BP SAVE BUFFER POINTER 01498 M01S01359.comptfm +++| STM CPCB+1 01499 M01S01360.comptfm +++| LJM PCE1 CONTINUE CATALOG SET 01500 M01S01361.comptfm +++| 01501 M01S01362.comptfm +++| PCE5 ERROR ECD *ERROR IN CATALOG DATA.* 01502 M01S01363.comptfm +++| 01503 M01S01364.comptfm +++| PCE6 LDM CWBI,BA DELETE USERS CATALOG BLOCK 01504 M01S01365.comptfm +++| LPN 77 01505 M01S01366.comptfm +++| LMC LDCI 01506 M01S01367.comptfm +++| STM PCEC 01507 M01S01368.comptfm +++| LDM CWBI+1,BA
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comptfm.txt · Last modified: by 127.0.0.1