cdc:nos2.source:opl.opl871:common:comptfm
Common COMPTFM
Library Member Format: MODIFY
Listing Sections
- Common COMPTFM Start
- Common COMPTFM Part 1 (Line 1667)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.comptfm +++| CTEXT COMPTFM - COMMON TFM ROUTINES. 00002 M00S00002.comptfm +++| IF DEF,LST$,1
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00003 M01S00001.274l797 +++| SPACE 4,10 00004 M00S00003.comptfm +++| LIST X
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00005 M02S00002.281l803 ---|* COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1981.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00001.281l803 +++|* COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00003.274l797 +++| SPACE 4,10 00008 M01S00004.274l797 +++|*** COMPTFM - COMMON TFM SUBROUTINES. 00009 M01S00005.274l797 +++|* J.P. MOORE. 81/04/01. 00010 M00S00004.comptfm +++| SPACE 4,10 00011 M00S00005.comptfm +++|*** COMPTFM - COMMON TFM SUBROUTINES. 00012 M00S00006.comptfm +++|* 00013 M00S00007.comptfm +++|* COMPTFM IS A COLLECTION OF SUBROUTINES REQUIRED 00014 M00S00008.comptfm +++|* TO ASSEMBLE AND EXECUTE TFM. EACH SUBROUTINE IS 00015 M00S00009.comptfm +++|* CONDITIONALLY ASSEMBLED BY DEFINING THE SUB- 00016 M00S00010.comptfm +++|* ROUTINE NAME IN THE FORMAT- 00017 M00S00011.comptfm +++|* 00018 M00S00012.comptfm +++|* XXX$ EQU 1 DEFINE XXX - YYYYY. 00019 M00S00013.comptfm +++|* 00020 M00S00014.comptfm +++|* XXX = SUBROUTINE NAME. 00021 M00S00015.comptfm +++|* YYYYY = SUBROUTINE TITLE. 00022 M00S00016.comptfm +++|* 00023 M00S00017.comptfm +++|* WARNING - IF THE DOLLAR SIGN ($) IS NOT INCLUDED 00024 M00S00018.comptfm +++|* IT WILL RESULT IN A RETURN JUMP TO ADDRESS 1 00025 M00S00019.comptfm +++|* DESTROYING PP RESIDENT. 00026 M00S00020.comptfm +++|* 00027 M00S00021.comptfm +++|* IN THE CASES WHERE A SUBROUTINE IS DEFINED THAT 00028 M00S00022.comptfm +++|* DEPENDS ON OTHER COMPTFM SUBROUTINES TO EXECUTE 00029 M00S00023.comptfm +++|* THE SYMBOLS NECESSARY TO ASSEMBLE THE DEPENDENT 00030 M00S00024.comptfm +++|* SUBROUTINES WILL BE AUTOMATICALLY DEFINED.
| Line S00025 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00031 M01S00025.274l797 ---| TITLE ".Y."/COMPTFM - STAND ALONE SUBROUTINES.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00032 M01S00006.274l797 +++| TITLE COMPTFM - STAND ALONE SUBROUTINES. 00033 M00S00026.comptfm +++| CVA$ IF DEF,CVA$ 00034 M00S00027.comptfm +++| CVA SPACE 4,10 00035 M00S00028.comptfm +++|** CVA - CLEAR VOLUME ASSIGNMENT. 00036 M00S00029.comptfm +++|* 00037 M00S00030.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (VSN INDEX). 00038 M00S00031.comptfm +++|* (BP) = BUFFER POINTER (VSN INDEX). 00039 M00S00032.comptfm +++|* 00040 M00S00033.comptfm +++|* EXIT 1. VSN SET NOT BUSY. 00041 M00S00034.comptfm +++|* 2. JOB ASSIGNMENT CLEARED. 00042 M00S00035.comptfm +++|* 3. SYSTEM EVENT ENTERED. 00043 M00S00036.comptfm +++|* 00044 M00S00037.comptfm +++|* USES CM - CM+4. 00045 M00S00038.comptfm +++|* 00046 M00S00039.comptfm +++|* MACROS MONITOR. 00047 M00S00040.comptfm +++| 00048 M00S00041.comptfm +++| 00049 M00S00042.comptfm +++| CVA SUBR ENTRY/EXIT 00050 M00S00043.comptfm +++| LDM VBST+1,BP CLEAR VOLUME BUSY 00051 M00S00044.comptfm +++| SCN VIVS 00052 M00S00045.comptfm +++| STM VBST+1,BP 00053 M00S00046.comptfm +++| LDN 0 CLEAR JOB ASSIGNMENT 00054 M00S00047.comptfm +++| STM VBJS,BP 00055 M00S00048.comptfm +++| LDN ZERL ENTER TMS EVENT 00056 M00S00049.comptfm +++| CRD CM 00057 M00S00050.comptfm +++| LDN ESVB 00058 M00S00051.comptfm +++| STD CM+4 00059 M00S00052.comptfm +++| MONITOR EATM ENTER SYSTEM EVENT 00060 M00S00053.comptfm +++| UJN CVAX RETURN 00061 M00S00054.comptfm +++| CVA$ ENDIF 00062 M00S00055.comptfm +++| EOI$ IF DEF,EOI$ 00063 M00S00056.comptfm +++| EOI SPACE 4,10 00064 M00S00057.comptfm +++|** EOI - SET END OF INFORMATION. 00065 M00S00058.comptfm +++|* 00066 M00S00059.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00067 M00S00060.comptfm +++|* 00068 M00S00061.comptfm +++|* EXIT THE EOI BIT (2**1) IS SET IN 00069 M00S00062.comptfm +++|* WORD 0 OF THE FET. 00070 M00S00063.comptfm +++|* 00071 M00S00064.comptfm +++|* USES CM - CM+4. 00072 M00S00065.comptfm +++|* 00073 M00S00066.comptfm +++|* MACROS LDA. 00074 M00S00067.comptfm +++| 00075 M00S00068.comptfm +++| 00076 M00S00069.comptfm +++| EOI SUBR ENTRY/EXIT 00077 M00S00070.comptfm +++| LDA IR+3,REL 00078 M00S00071.comptfm +++| CRD CM 00079 M00S00072.comptfm +++| LDD CM+4 00080 M00S00073.comptfm +++| SCN 2 00081 M00S00074.comptfm +++| LMN 2 00082 M00S00075.comptfm +++| STD CM+4 00083 M00S00076.comptfm +++| LDA IR+3,REL 00084 M00S00077.comptfm +++| CWD CM 00085 M00S00078.comptfm +++| UJN EOIX RETURN 00086 M00S00079.comptfm +++| 00087 M00S00080.comptfm +++| EOI$ ENDIF 00088 M00S00081.comptfm +++| LTC$ IF DEF,LTC$ 00089 M00S00082.comptfm +++| LTC SPACE 4,10 00090 M00S00083.comptfm +++|** LTC LOCATE TAPE CATALOG ON CURRENT VSN. 00091 M00S00084.comptfm +++|* 00092 M00S00085.comptfm +++|* ENTRY (BA - RI+1) = POINTERS TO FIRST CATALOG ENTRY. 00093 M00S00086.comptfm +++|* (POFI - POFI+8) = FILE IDENTIFIER. 00094 M00S00087.comptfm +++|* (PBQN) = FILE SEQUENCE NUMBER. 00095 M00S00088.comptfm +++|* 00096 M00S00089.comptfm +++|* EXIT (A) = 0 IF NOT FOUND. 00097 M00S00090.comptfm +++|* (CPCB) = POINTER TO CATALOG ENTRY. 00098 M00S00091.comptfm +++|* 00099 M00S00092.comptfm +++|* USES CI, RI - RI+1. 00100 M00S00093.comptfm +++|* 00101 M00S00094.comptfm +++|* CALLS RRP, VSP. 00102 M00S00095.comptfm +++|* 00103 M00S00096.comptfm +++|* MACROS COMPARE, ERROR, SAVEP. 00104 M00S00097.comptfm +++| 00105 M00S00098.comptfm +++| 00106 M00S00099.comptfm +++| LTC SUBR ENTRY/EXIT 00107 M00S00100.comptfm +++| LTC1 LDA PBQN,ABS 00108 M00S00101.comptfm +++| ZJN LTC4 IF SEQUENCE NUMBER NOT SPECIFIED 00109 M00S00102.comptfm +++| LMM CBQN+1,BP COMPARE WITH CATALOG SEQUENCE NUMBER 00110 M00S00103.comptfm +++| STD T0 00111 M00S00104.comptfm +++| SHN -14 00112 M00S00105.comptfm +++| LMM CBQN,BP 00113 M00S00106.comptfm +++| LPN 77 00114 M00S00107.comptfm +++| ADD T0 00115 M00S00108.comptfm +++| NJN LTC5 IF NOT CORRECT ENTRY 00116 M00S00109.comptfm +++| LTC2 SAVEP CPCB 00117 M00S00110.comptfm +++| LTC3 UJN LTCX RETURN 00118 M00S00111.comptfm +++| 00119 M00S00112.comptfm +++| LTC4 LDC CBPI COMPARE PHYSICAL FILE IDENTIFIER 00120 M00S00113.comptfm +++|* LDC CPLI (COMPARE LOGICAL FILE IDENTIFIER) 00121 M00S00114.comptfm +++| LTCA EQU *-1 00122 M00S00115.comptfm +++| ADD BP 00123 M00S00116.comptfm +++| STD T1 00124 M00S00117.comptfm +++| COMPARE ,,POFI,,FIKL 00125 M00S00118.comptfm +++| ZJN LTC2 IF FILE FOUND 00126 M00S00119.comptfm +++| LTC5 LDM CBNC,BP 00127 M00S00120.comptfm +++| ZJN LTC3 IF NO ENTRY FOUND 00128 M00S00121.comptfm +++| SHN 14 00129 M00S00122.comptfm +++| STD CI 00130 M00S00123.comptfm +++| SHN -14 00131 M00S00124.comptfm +++| LMD RI 00132 M00S00125.comptfm +++| NJN LTC6 IF NOT SAME PRU 00133 M00S00126.comptfm +++| LDM CBNC+1,BP 00134 M00S00127.comptfm +++| LMD RI+1 00135 M00S00128.comptfm +++| ZJN LTC7 IF SAME PRU 00136 M00S00129.comptfm +++| LTC6 LDM CBNC,BP SET RANDOM INDEX 00137 M00S00130.comptfm +++| LPN 77 00138 M00S00131.comptfm +++| STD RI 00139 M00S00132.comptfm +++| LDM CBNC+1,BP 00140 M00S00133.comptfm +++| STD RI+1 00141 M00S00134.comptfm +++| RJM RRP READ RANDOM PRU 00142 M00S00135.comptfm +++| LTC7 RJM VSP VALIDATE/SET CATALOG POINTERS 00143 M00S00136.comptfm +++| PJP LTC1 00144 M00S00137.comptfm +++| ERROR ECD *ERROR IN CATALOG DATA.* 00145 M00S00138.comptfm +++| LTC$ ENDIF 00146 M00S00139.comptfm +++| RCL$ IF DEF,RCL$ 00147 M00S00140.comptfm +++| RCL SPACE 4,10 00148 M00S00141.comptfm +++|** RCL - RECALL *TFM*. 00149 M00S00142.comptfm +++|* 00150 M00S00143.comptfm +++|* ENTRY (UTMS - UTMS+4) = *TMS* *UDT* WORD FOR *MAGF*. 00151 M00S00144.comptfm +++|* 00152 M00S00145.comptfm +++|* EXIT *TFM* PLACED IN RECALL STACK. 00153 M00S00146.comptfm +++|* *UTMS* WORD OF *UDT* REWRITTEN FOR *MAGF*. 00154 M00S00147.comptfm +++|* TO *PPR*. 00155 M00S00148.comptfm +++|* 00156 M00S00149.comptfm +++|* MACROS MONITOR. 00157 M00S00150.comptfm +++| 00158 M00S00151.comptfm +++| 00159 M00S00152.comptfm +++| RCL BSS 0 ENTRY 00160 M00S00153.comptfm +++| LDD FC 00161 M00S00154.comptfm +++| LMN MAGF 00162 M00S00155.comptfm +++| NJN RCL1 IF NOT MAGNET FUNCTION 00163 M00S00156.comptfm +++| UDTWT UTMS,/MTX/UTMS,1 REWRITE *UDT* 00164 M00S00157.comptfm +++| RCL1 LDN ZERL 00165 M00S00158.comptfm +++| CRD CM 00166 M00S00159.comptfm +++| LDD MA SET INPUT REGISTER 00167 M00S00160.comptfm +++| CWD IR 00168 M00S00161.comptfm +++| ADN 1 CLEAR RECALL PARAMETER 00169 M00S00162.comptfm +++| CWD CM
| Line S00163 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00170 M01S00163.t2807 ---| LDK PTMF SET TIMED RECALL AND DROP PP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00171 M01S00001.t2807 +++| LDK /COMSCPS/PTMF SET TIMED RECALL AND DROP PP 00172 M00S00164.comptfm +++| STD CM+1 00173 M00S00165.comptfm +++| LDC 4000D SET RECALL INTERVAL 00174 M00S00166.comptfm +++| STD CM+4 00175 M00S00167.comptfm +++| MONITOR RECM RECALL PP 00176 M00S00168.comptfm +++| LJM PPR EXIT TO PP RESIDENT 00177 M00S00169.comptfm +++| RCL$ ENDIF 00178 M00S00170.comptfm +++| SBP$ IF DEF,SBP$ 00179 M00S00171.comptfm +++| SBP SPACE 4,10 00180 M00S00172.comptfm +++|** SBP - SET FET BUFFER POINTERS. 00181 M00S00173.comptfm +++|* 00182 M00S00174.comptfm +++|* READS THE FIRST, IN, OUT, AND LIMIT POINTERS 00183 M00S00175.comptfm +++|* FROM THE FET AND STORES THEM IN 8 CONSECUTIVE 00184 M00S00176.comptfm +++|* DIRECT CELLS. NO OTHER LOCATIONS ARE DESTROYED. 00185 M00S00177.comptfm +++|* 00186 M00S00178.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00187 M00S00179.comptfm +++|* 00188 M00S00180.comptfm +++|* EXIT (FT - FT+1) = FIRST. 00189 M00S00181.comptfm +++|* (IN - IN+1) = IN. 00190 M00S00182.comptfm +++|* (OT - OT+1) = OUT. 00191 M00S00183.comptfm +++|* (LM - LM+1) = LIMIT. 00192 M00S00184.comptfm +++|* 00193 M00S00185.comptfm +++|* USES T0 - T5. 00194 M00S00186.comptfm +++|* 00195 M00S00187.comptfm +++|* MACROS LDA. 00196 M00S00188.comptfm +++| 00197 M00S00189.comptfm +++| 00198 M00S00190.comptfm +++| SBP SUBR ENTRY/EXIT 00199 M00S00191.comptfm +++| LDD IN-3 SAVE OVERLAP WORD 00200 M00S00192.comptfm +++| STD T0 00201 M00S00193.comptfm +++| LDA IR+3,REL 00202 M00S00194.comptfm +++| ADN 4 READ LIMIT 00203 M00S00195.comptfm +++| CRD LM-3 00204 M00S00196.comptfm +++| SBN 1 READ OUT 00205 M00S00197.comptfm +++| CRD OT-3 00206 M00S00198.comptfm +++| SBN 1 READ IN 00207 M00S00199.comptfm +++| CRD IN-3 00208 M00S00200.comptfm +++| SBN 1 READ FIRST 00209 M00S00201.comptfm +++| CRD T1 00210 M00S00202.comptfm +++| LDD T1+3 SET FIRST 00211 M00S00203.comptfm +++| LPN 77 00212 M00S00204.comptfm +++| STD FT 00213 M00S00205.comptfm +++| LDD T1+4 00214 M00S00206.comptfm +++| STD FT+1 00215 M00S00207.comptfm +++| LDD T0 RESTORE OVERLAP WORD 00216 M00S00208.comptfm +++| STD IN-3 00217 M00S00209.comptfm +++| UJN SBPX RETURN 00218 M00S00210.comptfm +++| SBP$ ENDIF 00219 M00S00211.comptfm +++| SVB$ IF DEF,SVB$ 00220 M00S00212.comptfm +++| SVB SPACE 4,10 00221 M00S00213.comptfm +++|** SVB - SET VSN BUSY. 00222 M00S00214.comptfm +++|* 00223 M00S00215.comptfm +++|* ENTRY NONE. 00224 M00S00216.comptfm +++|* 00225 M00S00217.comptfm +++|* EXIT VSN SET BUSY AND EJT ORDINAL SET IF NOT BUSY. 00226 M00S00218.comptfm +++|* TO ERROR PROCESSING IF BUSY. 00227 M00S00219.comptfm +++|* 00228 M00S00220.comptfm +++|* THE CALLER OF SVB IS RESPONSIBLE FOR SETTING THE CORRECT EJT 00229 M00S00221.comptfm +++|* ORDINAL IF *TFM* IS NOT ASSIGNED TO THE USER JOB-S CONTROL 00230 M00S00222.comptfm +++|* POINT. 00231 M00S00223.comptfm +++|* 00232 M00S00224.comptfm +++|* USES CM - CM+4. 00233 M00S00225.comptfm +++|* 00234 M00S00226.comptfm +++|* MACROS ERROR. 00235 M00S00227.comptfm +++| 00236 M00S00228.comptfm +++| 00237 M00S00229.comptfm +++| SVB2 LDN VIVS SET VSN BUSY 00238 M00S00230.comptfm +++| RAM VBST+1,BP 00239 M00S00231.comptfm +++| LDM VBMX,BP SET CATALOG MACHINE INDEX-1 00240 M00S00232.comptfm +++| SCN 17 00241 M00S00233.comptfm +++| LMM CDMX 00242 M00S00234.comptfm +++| STM VBMX,BP
| Line S00235 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00243 M01S00235.t2807 ---| LDD CP SET EJT ORDINAL 00244 M01S00236.t2807 ---| ADN TFSW 00245 M01S00237.t2807 ---| CRD CM 00246 M00S00238.comptfm +++| LDD CM 00247 M00S00239.comptfm +++| STM VBJS,BP 00248 M00S00240.comptfm +++| 00249 M00S00241.comptfm +++| SVB SUBR ENTRY/EXIT
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00250 M01S00002.t2807 +++| LDD CP GET EJT ORDINAL 00251 M01S00003.t2807 +++| ADN TFSW 00252 M01S00004.t2807 +++| CRD CM 00253 M00S00242.comptfm +++| LDM VBST+1,BP 00254 M00S00243.comptfm +++| LPN VIVS 00255 M00S00244.comptfm +++| ZJN SVB2 IF VSN NOT BUSY 00256 M00S00245.comptfm +++| LDM VBMX,BP CHECK MACHINE INDEX 00257 M00S00246.comptfm +++| LPN 17 00258 M00S00247.comptfm +++| LMM CDMX 00259 M00S00248.comptfm +++| NJN SVB1 IF NOT BUSY ON THIS MACHINE 00260 M00S00249.comptfm +++| LDM VBJS,BP CHECK EJT ORDINAL
| Line S00250 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00261 M01S00250.t2807 ---| LMD CM+4
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00262 M01S00005.t2807 +++| LMD CM+0 00263 M00S00251.comptfm +++| NJN SVB1 IF NOT ASSIGNED TO THIS JOB 00264 M00S00252.comptfm +++| ERROR DLK *DEADLOCK.* 00265 M00S00253.comptfm +++| 00266 M00S00254.comptfm +++| SVB1 ERROR VBS *(VSN) BUSY.* 00267 M00S00255.comptfm +++| SVB$ ENDIF 00268 M00S00256.comptfm +++| IUC$ IF DEF,IUC$ 00269 M00S00257.comptfm +++| IUC SPACE 4,10 00270 M00S00258.comptfm +++|** IUC - INCREMENT USAGE COUNTER. 00271 M00S00259.comptfm +++|* 00272 M00S00260.comptfm +++|* ENTRY NONE. 00273 M00S00261.comptfm +++|* 00274 M00S00262.comptfm +++|* EXIT THE USAGE COUNTER WILL BE INCREMENTED AND IF 00275 M00S00263.comptfm +++|* THRESHOLD EXCEEDED, THE MAINTENANCE FLAG 00276 M00S00264.comptfm +++|* WILL BE SET. 00277 M00S00265.comptfm +++| 00278 M00S00266.comptfm +++| 00279 M00S00267.comptfm +++| IUC SUBR ENTRY/EXIT
| Line S00268 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00280 M01S00268.t5472 ---| LDC 1S6
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00281 M01S00001.t5472 +++| LDD HN 1S6 00282 M00S00269.comptfm +++| RAM VBUC,BP 00283 M00S00270.comptfm +++| SHN 21-14 00284 M00S00271.comptfm +++| PJN IUC1 IF LT 63 USES 00285 M00S00272.comptfm +++| LDC 77S6 00286 M00S00273.comptfm +++| RAM VBUC,BP 00287 M00S00274.comptfm +++| SHN 21-14 00288 M00S00275.comptfm +++| IUC1 SHN 14-21-6 00289 M00S00276.comptfm +++| SBN VUMT 00290 M00S00277.comptfm +++| MJN IUCX IF THRESHOLD NOT EXCEEDED 00291 M00S00278.comptfm +++| LDN VUMT 00292 M00S00279.comptfm +++| ZJN IUCX IF THRESHOLD DISABLED 00293 M00S00280.comptfm +++| LDM VBST,BP SET MAINTENANCE FLAG 00294 M00S00281.comptfm +++| SCN HMVS/10000 00295 M00S00282.comptfm +++| LMN HMVS/10000 00296 M00S00283.comptfm +++| STM VBST,BP 00297 M00S00284.comptfm +++| UJN IUCX RETURN 00298 M00S00285.comptfm +++| IUC$ ENDIF 00299 M00S00286.comptfm +++| UOP$ IF DEF,UOP$ 00300 M00S00287.comptfm +++| UOP SPACE 4,10 00301 M00S00288.comptfm +++|** UOP - UPDATE OUT POINTER. 00302 M00S00289.comptfm +++|* 00303 M00S00290.comptfm +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS. 00304 M00S00291.comptfm +++|* (OT - OT+1) = OUT POINTER. 00305 M00S00292.comptfm +++|* 00306 M00S00293.comptfm +++|* EXIT FET+3 UPDATED. 00307 M00S00294.comptfm +++|* 00308 M00S00295.comptfm +++|* USES CM - CM+4. 00309 M00S00296.comptfm +++|* 00310 M00S00297.comptfm +++|* MACROS LDA. 00311 M00S00298.comptfm +++| 00312 M00S00299.comptfm +++| 00313 M00S00300.comptfm +++| UOP SUBR ENTRY/EXIT 00314 M00S00301.comptfm +++| LDN ZERL 00315 M00S00302.comptfm +++| CRD CM 00316 M00S00303.comptfm +++| LDD OT CURRENT POSITION OF OUT 00317 M00S00304.comptfm +++| STD CM+3 00318 M00S00305.comptfm +++| LDD OT+1 00319 M00S00306.comptfm +++| STD CM+4 00320 M00S00307.comptfm +++| LDA IR+3,REL UPDATE FET 00321 M00S00308.comptfm +++| ADN 3 00322 M00S00309.comptfm +++| CWD CM 00323 M00S00310.comptfm +++| UJN UOPX RETURN 00324 M00S00311.comptfm +++| UOP$ ENDIF 00325 M00S00312.comptfm +++| UTR$ IF DEF,UTR$ 00326 M00S00313.comptfm +++| UTR SPACE 4,10 00327 M00S00314.comptfm +++|** UTR - UPDATE TRT. 00328 M00S00315.comptfm +++|* 00329 M00S00316.comptfm +++|* ENTRY (FS - FS+4) = FST ENTRY OF FAST ATTACH FILE. 00330 M00S00317.comptfm +++|* 00331 M00S00318.comptfm +++|* EXIT TRT UPDATED IF SHARED DEVICE. 00332 M00S00319.comptfm +++|* 00333 M00S00320.comptfm +++|* USES CM - CM+4. 00334 M00S00321.comptfm +++|* 00335 M00S00322.comptfm +++|* MACROS MONITOR. 00336 M00S00323.comptfm +++| 00337 M00S00324.comptfm +++| 00338 M00S00325.comptfm +++| UTR SUBR ENTRY/EXIT 00339 M00S00326.comptfm +++| LDD FS SET EST ORDINAL 00340 M00S00327.comptfm +++| LPC 777 00341 M00S00328.comptfm +++| STD CM+1
| Line S00329 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00342 M01S00329.t2807 ---| LDN UTRS UPDATE TRT
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | t2807 |
Seq # *Modification Id* Act ----------------------------+ 00343 M01S00006.t2807 +++| LDN /COMSCPS/UTRS UPDATE TRT 00344 M00S00330.comptfm +++| STD CM+3 00345 M00S00331.comptfm +++| MONITOR STBM 00346 M00S00332.comptfm +++| UJN UTRX RETURN 00347 M00S00333.comptfm +++| UTR$ ENDIF 00348 M00S00334.comptfm +++| VRR$ IF DEF,VRR$ 00349 M00S00335.comptfm +++| VRR SPACE 4,10 00350 M00S00336.comptfm +++|** VRR - VERIFY RANDOM REQUEST. 00351 M00S00337.comptfm +++|* 00352 M00S00338.comptfm +++|* ENTRY (RI - RI+1) = RANDOM INDEX. 00353 M00S00339.comptfm +++|*
| Line S00340 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00354 M01S00340.nos252 ---|* EXIT TO ERROR PROCESSING IF INVALID ADDRESS.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00355 M01S00001.nos252 +++|* EXIT TO ERROR PROCESSING IF INCORRECT ADDRESS. 00356 M00S00341.comptfm +++|* 00357 M00S00342.comptfm +++|* USES T5 - T5+4. 00358 M00S00343.comptfm +++|* 00359 M00S00344.comptfm +++|* CALLS AFA, CRA. 00360 M00S00345.comptfm +++|*
| Line S00346 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00361 M01S00346.t5472 ---|* MACROS ENDMS, ERROR, LDA, SETMS.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 00362 M02S00002.t5679 ---|* MACROS ERROR, LDA.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 00363 M01S00001.t5679 +++|* MACROS ERROR, LDA, SETMS. 00364 M00S00347.comptfm +++|* 00365 M00S00348.comptfm +++| 00366 M00S00349.comptfm +++|
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00350.comptfm +++| VRR SUBR ENTRY/EXIT 00373 M00S00351.comptfm +++| LDD FO 00374 M00S00352.comptfm +++| RJM AFA GET ABSOLUTE FST ADDRESS 00375 M00S00353.comptfm +++| CRD T5 00376 M00S00354.comptfm +++| LDA RI,ABS SAVE RANDOM ADDRESS 00377 M00S00355.comptfm +++| ZJN VRR1 IF NO RANDOM ADDRESS 00378 M00S00356.comptfm +++| STM CTSA+1 00379 M00S00357.comptfm +++| SHN -14 00380 M00S00358.comptfm +++| STM CTSA
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | t5679 |
Seq # *Modification Id* Act ----------------------------+ 00381 M01S00002.t5679 +++| SETMS STATUS
| Line S00359 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00382 M01S00359.t5472 ---| SETMS 00383 M00S00360.comptfm +++| RJM CRA CONVERT RANDOM ADDRESS 00384 M00S00361.comptfm +++| PJN VRR2 IF VALID ADDRESS
| Line S00362 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00385 M01S00362.t5472 ---| ENDMS 00386 M00S00363.comptfm +++| VRR1 ERROR BAE *BUFFER ARGUMENT ERROR.*
| Line S00364 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 00387 M01S00364.t5472 ---| 00388 M01S00365.t5472 ---| VRR2 ENDMS RELEASE CHANNEL 00389 M01S00366.t5472 ---| LDA CTSA,ABS RESTORE RANDOM ADDRESS 00390 M01S00367.t5472 ---| STD RI+1 00391 M01S00368.t5472 ---| SHN -14 00392 M01S00369.t5472 ---| STD RI 00393 M01S00370.t5472 ---| LJM VRRX RETURN 00394 M00S00371.comptfm +++| VRR$ ENDIF 00395 M00S00372.comptfm +++| VSP$ IF DEF,VSP$ 00396 M00S00373.comptfm +++| VSP SPACE 4,10 00397 M00S00374.comptfm +++|** VSP - VERIFY/SET CATALOG POINTERS. 00398 M00S00375.comptfm +++|* 00399 M00S00376.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00400 M00S00377.comptfm +++|* (CI) = CATALOG INDEX. 00401 M00S00378.comptfm +++|* (VSPA) = MAXIMUM ENTRIES PER PRU. 00402 M00S00379.comptfm +++|* (VSPB) = ENTRY LENGTH IN CM WORDS. 00403 M00S00380.comptfm +++|*
| Line S00381 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00404 M01S00381.nos252 ---|* EXIT (A) = -0 IF POINTERS INVALID.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00405 M01S00002.nos252 +++|* EXIT (A) = -0 IF POINTERS INCORRECT. 00406 M00S00382.comptfm +++|* (BA) = BUFFER ADDRESS (UNCHANGED). 00407 M00S00383.comptfm +++|* (BP) = BUFFER POINTER (CALCULATED). 00408 M00S00384.comptfm +++|* (CI) = CATALOG INDEX (UNCHANGED). 00409 M00S00385.comptfm +++|* 00410 M00S00386.comptfm +++|* CALLS MLT. 00411 M00S00387.comptfm +++| 00412 M00S00388.comptfm +++| 00413 M00S00389.comptfm +++| VSP2 LDD CI SET BUFFER POINTER 00414 M00S00390.comptfm +++| SBN 1 00415 M00S00391.comptfm +++| SHN 14 00416 M00S00392.comptfm +++| LMN TCEL 00417 M00S00393.comptfm +++| VSPB EQU *-1 (TAEL IF ADMIT CONTINUATION) 00418 M00S00394.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 00419 M00S00395.comptfm +++| ADN TBHL 00420 M00S00396.comptfm +++| STD BP CONVERT TO BYTES 00421 M00S00397.comptfm +++| SHN 2 00422 M00S00398.comptfm +++| RAD BP 00423 M00S00399.comptfm +++| ADD BA BIAS BY BUFFER ADDRESS 00424 M00S00400.comptfm +++| ADN 2 00425 M00S00401.comptfm +++| STD BP 00426 M00S00402.comptfm +++| 00427 M00S00403.comptfm +++| VSP SUBR ENTRY/EXIT 00428 M00S00404.comptfm +++| LDD CI CHECK CATALOG INDEX 00429 M00S00405.comptfm +++| ZJN VSP1 IF OUT OF RANGE 00430 M00S00406.comptfm +++| SBN 60D/TCEL+1 00431 M00S00407.comptfm +++| VSPA EQU *-1 (60D/TAEL+1) 00432 M00S00408.comptfm +++| MJN VSP2 IF IN RANGE
| Line S00409 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00433 M01S00409.nos252 ---| VSP1 LCN 0 SET INVALID POINTERS
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00434 M01S00003.nos252 +++| VSP1 LCN 0 SET INCORRECT POINTERS 00435 M00S00410.comptfm +++| UJN VSPX RETURN 00436 M00S00411.comptfm +++| 00437 M00S00412.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 00438 M00S00413.comptfm +++| VSP$ ENDIF 00439 M00S00414.comptfm +++| VUB$ IF DEF,VUB$ 00440 M00S00415.comptfm +++| VUB SPACE 4,10 00441 M00S00416.comptfm +++|** VUB - VERIFY USERS CATALOG/ADMIT BLOCK. 00442 M00S00417.comptfm +++|* 00443 M00S00418.comptfm +++|* COMPARES THE OWNERS USERNAME TO THE USERNAME 00444 M00S00419.comptfm +++|* IN THE BLOCK HEADER. 00445 M00S00420.comptfm +++|* 00446 M00S00421.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00447 M00S00422.comptfm +++|* (PBUN - PBUN+3) = USERNAME. 00448 M00S00423.comptfm +++|* 00449 M00S00424.comptfm +++|* EXIT (A) = 0 IF USERS BLOCK. 00450 M00S00425.comptfm +++|* (A) = -0 IF NOT USERS DATA BLOCK. 00451 M00S00426.comptfm +++|* 00452 M00S00427.comptfm +++|* USES T1, T2. 00453 M00S00428.comptfm +++|* 00454 M00S00429.comptfm +++|* CALLS CSS. 00455 M00S00430.comptfm +++| 00456 M00S00431.comptfm +++| 00457 M00S00432.comptfm +++| VUB1 LCN 0 SET DATA BLOCK ERROR 00458 M00S00433.comptfm +++| 00459 M00S00434.comptfm +++| VUB SUBR ENTRY/EXIT 00460 M00S00435.comptfm +++| LDC PBUN 00461 M00S00436.comptfm +++| STD T1 00462 M00S00437.comptfm +++| LDI T1 00463 M00S00438.comptfm +++| ZJN VUB1 IF DATA ERROR 00464 M00S00439.comptfm +++| COMPARE ,,CWUN,BA,UNKL 00465 M00S00440.comptfm +++| NJN VUB1 IF NOT USERS CATALOG/ADMIT BLOCK 00466 M00S00441.comptfm +++| UJN VUBX RETURN 00467 M00S00442.comptfm +++| VUB$ ENDIF
| Line S00443 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00468 M01S00443.274l797 ---| TITLE ".Y."/COMPTFM - DEPENDENCY SUBROUTINES.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 00469 M01S00007.274l797 +++| TITLE COMPTFM - DEPENDENCY SUBROUTINES. 00470 M00S00444.comptfm +++| AUS$ IF DEF,AUS$ 00471 M00S00445.comptfm +++| AUS SPACE 4,10 00472 M00S00446.comptfm +++|** AUS - ALTERNATE USER SEARCH. 00473 M00S00447.comptfm +++|* 00474 M00S00448.comptfm +++|* *AUS* PERFORMS A INDEXED SEARCH OF THE 00475 M00S00449.comptfm +++|* ADMIT ENTRIES FOR THE USERNAME AT (KA). 00476 M00S00450.comptfm +++|* 00477 M00S00451.comptfm +++|* ENTRY (KA) = KEY ADDRESS. 00478 M00S00452.comptfm +++|* (RI - RI+1) = RANDOM ADDRESS OF 00479 M00S00453.comptfm +++|* FIRST ADMIT BLOCK. 00480 M00S00454.comptfm +++|* 00481 M00S00455.comptfm +++|* EXIT (A) = 0 IF FOUND. 00482 M00S00456.comptfm +++|* (A) = -0 IF END OF ADMIT ENTRIES. 00483 M00S00457.comptfm +++|* (A) .GT. 0 IF PREMATURE END OF SEARCH. 00484 M00S00458.comptfm +++|* (BA) = BUFFER ADDRESS. 00485 M00S00459.comptfm +++|* (BP) = BUFFER POINTER. 00486 M00S00460.comptfm +++|* 00487 M00S00461.comptfm +++|* USES CPAB - CPAB+4, BA, BP, KL. 00488 M00S00462.comptfm +++|* 00489 M00S00463.comptfm +++|* CALLS GIB, GNB, GNL, MBP, SIB. 00490 M00S00464.comptfm +++| 00491 M00S00465.comptfm +++| 00492 M00S00466.comptfm +++| AUS SUBR ENTRY/EXIT 00493 M00S00467.comptfm +++| CLEAR CPAB,,10D 00494 M00S00468.comptfm +++| LDN UNKL SET KEY LENGTH 00495 M00S00469.comptfm +++| STD KL 00496 M00S00470.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 00497 M00S00471.comptfm +++| RJM GIB GET INITIAL BLOCK 00498 M00S00472.comptfm +++| AUS1 LDM CWFE,BA 00499 M00S00473.comptfm +++| RJM MBP MOVE BUFFER POINTER 00500 M00S00474.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00501 M00S00475.comptfm +++| STM AUSA+1 SAVE EXIT CONDITION 00502 M00S00476.comptfm +++| SHN -14 00503 M00S00477.comptfm +++| LMC LDCI 00504 M00S00478.comptfm +++| STM AUSA 00505 M00S00479.comptfm +++| LDA AUSA,ABS 00506 M00S00480.comptfm +++| PJN AUS2 IF FOUND OR END OF SEARCH 00507 M00S00481.comptfm +++| RJM GNL GET NEXT LINK 00508 M00S00482.comptfm +++| ZJN AUS2 IF BLOCK NOT LINKED 00509 M00S00483.comptfm +++| RJM TBA TOGGLE BUFFER ASSIGNMENT 00510 M00S00484.comptfm +++| RJM GNB GET NEXT BLOCK 00511 M00S00485.comptfm +++| UJN AUS1 SEARCH ADMIT BUFFER 00512 M00S00486.comptfm +++| 00513 M00S00487.comptfm +++| AUS2 SAVEP CPAB SAVE ADMIT POINTERS 00514 M00S00488.comptfm +++| LDC ** 00515 M00S00489.comptfm +++| AUSA EQU *-2 (EXIT CONDITION) 00516 M00S00490.comptfm +++| LJM AUSX RETURN 00517 M00S00491.comptfm +++| GNB$ EQU 1 DEFINE GNB - GET NEXT BLOCK 00518 M00S00492.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT LINK 00519 M00S00493.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00520 M00S00494.comptfm +++| TBA$ EQU 1 DEFINE TBA - TOGGLE BUFFER ASSIGNMENT 00521 M00S00495.comptfm +++| AUS$ ENDIF 00522 M00S00496.comptfm +++| CCB$ IF DEF,CCB$ 00523 M00S00497.comptfm +++| CCB SPACE 4,10 00524 M00S00498.comptfm +++|** CCB - CHECK CURRENT BUFFER. 00525 M00S00499.comptfm +++|* 00526 M00S00500.comptfm +++|* ENTRY (CPPI - CPPI+4) = PRIMARY INDEX POINTERS. 00527 M00S00501.comptfm +++|* (CPSI - CPSI+4) = SECONDARY INDEX POINTERS. 00528 M00S00502.comptfm +++|* 00529 M00S00503.comptfm +++|* 00530 M00S00504.comptfm +++|* USES BA - BA+4. 00531 M00S00505.comptfm +++|* 00532 M00S00506.comptfm +++|* CALLS BSE, MBP, SIB. 00533 M00S00507.comptfm +++|* 00534 M00S00508.comptfm +++|* MACROS LDA. 00535 M00S00509.comptfm +++| 00536 M00S00510.comptfm +++| 00537 M00S00511.comptfm +++| CCB3 LCN 0 SET BUFFERS NOT PRESENT 00538 M00S00512.comptfm +++| 00539 M00S00513.comptfm +++| CCB SUBR ENTRY/EXIT 00540 M00S00514.comptfm +++| RESTP CPPI RESTORE PRIMARY POINTERS 00541 M00S00515.comptfm +++| LDD BA 00542 M00S00516.comptfm +++| ADN 2 00543 M00S00517.comptfm +++| STD BP 00544 M00S00518.comptfm +++| LDM CWFE,BA 00545 M00S00519.comptfm +++| RJM MBP MOVE BUFFER POINTER 00546 M00S00520.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00547 M00S00521.comptfm +++| ZJN CCB1 IF KEY FOUND 00548 M00S00522.comptfm +++| MJN CCBX IF END OF INDEX 00549 M00S00523.comptfm +++| RJM BSE BACKWARD SKIP ONE ENTRY 00550 M00S00524.comptfm +++| ZJN CCB3 IF FIRST ENTRY 00551 M00S00525.comptfm +++| CCB1 SAVEP CPPI SAVE PRIMARY POINTERS 00552 M00S00526.comptfm +++| LDM 3,BP 00553 M00S00527.comptfm +++| LPN 77 00554 M00S00528.comptfm +++| LMC LMCI 00555 M00S00529.comptfm +++| STM CCBA 00556 M00S00530.comptfm +++| LDM 4,BP 00557 M00S00531.comptfm +++| STM CCBA+1 00558 M00S00532.comptfm +++| RESTP CPSI RESTORE SECONDARY POINTERS 00559 M00S00533.comptfm +++| LDD BA 00560 M00S00534.comptfm +++| ADN 2 00561 M00S00535.comptfm +++| STD BP 00562 M00S00536.comptfm +++| LDA CPSI+3,ABS 00563 M00S00537.comptfm +++| LMC ** 00564 M00S00538.comptfm +++| CCBA EQU *-2 (SECONDARY INDEX) 00565 M00S00539.comptfm +++| ZJN CCB2 IF SECONDARY INDEX LOADED 00566 M00S00540.comptfm +++| LJM CCB3 SET BUFFERS NOT PRESENT 00567 M00S00541.comptfm +++| 00568 M00S00542.comptfm +++| CCB2 LDM CWFE,BA FIND SECONDARY INDEX 00569 M00S00543.comptfm +++| RJM MBP MOVE BUFFER POINTER 00570 M00S00544.comptfm +++| RJM SIB SEARCH INDEX BUFFER 00571 M00S00545.comptfm +++| STM CCBB+1 SAVE EXIT CONDITION 00572 M00S00546.comptfm +++| SHN -14 00573 M00S00547.comptfm +++| LMC LDCI 00574 M00S00548.comptfm +++| STM CCBB 00575 M00S00549.comptfm +++| SAVEP CPSI SAVE SECONDARY POINTERS 00576 M00S00550.comptfm +++| LDC ** 00577 M00S00551.comptfm +++| CCBB EQU *-2 (EXIT CONDITION) 00578 M00S00552.comptfm +++| LJM CCBX RETURN 00579 M00S00553.comptfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 00580 M00S00554.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00581 M00S00555.comptfm +++| CCB$ ENDIF 00582 M00S00556.comptfm +++| CIE$ IF DEF,CIE$ 00583 M00S00557.comptfm +++| CIE SPACE 4,10 00584 M00S00558.comptfm +++|** CIE - CREATE INDEX ENTRY. 00585 M00S00559.comptfm +++|* 00586 M00S00560.comptfm +++|* *CIE* IS USED TO CREATE TWO LEVEL INDEXED ENTRIES FOR 00587 M00S00561.comptfm +++|* USERNAME AND VSN INDICIES. ON EXIT THERE IS NO GUARANTEE 00588 M00S00562.comptfm +++|* THAT THE INDEX POINTERS HAVE NOT BEEN CHANGED DUE TO AN 00589 M00S00563.comptfm +++|* INSERT. 00590 M00S00564.comptfm +++|* 00591 M00S00565.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS (SECONDARY INDEX) 00592 M00S00566.comptfm +++|* (BP) = BUFFER POINTER (SECONDARY INDEX) 00593 M00S00567.comptfm +++|* (PB) = ENTRY BUFFER ADDRESS. 00594 M00S00568.comptfm +++|* (KL) = KEY LENGTH. 00595 M00S00569.comptfm +++|* (CPPI - CPPI+4) = PRIMARY INDEX POINTERS. 00596 M00S00570.comptfm +++|* (CPSI - CPSI+4) = SECONDARY INDEX POINTERS. 00597 M00S00571.comptfm +++|* BUFA - ENTRY BUFFER ADDRESS. 00598 M00S00572.comptfm +++|* BUFB - OVERFLOW BUFFER ADDRESS. 00599 M00S00573.comptfm +++|* 00600 M00S00574.comptfm +++|* EXIT (CPPI - CPPI+4) = CURRENT PRIMARY INDEX POINTER. 00601 M00S00575.comptfm +++|* (CPSI - CPSI+4) = CURRENT SECONDARY INDEX POINTER. 00602 M00S00576.comptfm +++|* 00603 M00S00577.comptfm +++|* CALLS GIB, GNL, IIE, MBP, WRP. 00604 M00S00578.comptfm +++|* 00605 M00S00579.comptfm +++|* MACROS ERROR, MMOVE, RESTP, SAVEP. 00606 M00S00580.comptfm +++| 00607 M00S00581.comptfm +++| 00608 M00S00582.comptfm +++| CIE SUBR ENTRY/EXIT 00609 M00S00583.comptfm +++| LDC BUFB 00610 M00S00584.comptfm +++| STD T7 00611 M00S00585.comptfm +++| RJM IIE INSERT INDEX ENTRY (SECONDARY) 00612 M00S00586.comptfm +++| STM CIEA SAVE OVERFLOW BLOCK STATUS 00613 M00S00587.comptfm +++| SAVEP CPSI SAVE BUFFER POINTERS (SECONDARY) 00614 M00S00588.comptfm +++| LDM CWNE,BA 00615 M00S00589.comptfm +++| LMN 1 00616 M00S00590.comptfm +++| NJP CIE4 IF NEW BLOCK NOT CREATED 00617 M00S00591.comptfm +++| LDD KL 00618 M00S00592.comptfm +++| SBN VSKL 00619 M00S00593.comptfm +++| ZJN CIE1 IF VSN INDEX 00620 M00S00594.comptfm +++| LDM 3,PB 00621 M00S00595.comptfm +++| SCN 77 00622 M00S00596.comptfm +++| CIE1 LMD RI ENTER SECONDARY INDEX POINTER 00623 M00S00597.comptfm +++| STM 3,PB 00624 M00S00598.comptfm +++| LDM RI+1 00625 M00S00599.comptfm +++| STM 4,PB 00626 M00S00600.comptfm +++| RESTP CPPI RESTORE BUFFER POINTERS (PRIMARY) 00627 M00S00601.comptfm +++| LDC BUFA 00628 M00S00602.comptfm +++| STD T7 00629 M00S00603.comptfm +++| SBD PB 00630 M00S00604.comptfm +++| NJN CIE2 IF OVERFLOW BUFFER NOT ENTRY BUFFER 00631 M00S00605.comptfm +++| LDC BUFB 00632 M00S00606.comptfm +++| STD T7 00633 M00S00607.comptfm +++| CIE2 LDM CWEL,BA 00634 M00S00608.comptfm +++| RJM MBP MOVE BUFFER POINTER 00635 M00S00609.comptfm +++| RJM IIE INSERT INDEX ENTRY (PRIMARY) 00636 M00S00610.comptfm +++| SAVEP CPPI SAVE BUFFER POINTERS (PRIMARY) 00637 M00S00611.comptfm +++| CIE3 LJM CIEX RETURN 00638 M00S00612.comptfm +++| 00639 M00S00613.comptfm +++| CIE4 LDM CWFE,BA CHECK POSITIONING 00640 M00S00614.comptfm +++| STD T1 00641 M00S00615.comptfm +++| SHN 2 00642 M00S00616.comptfm +++| RAD T1 00643 M00S00617.comptfm +++| ADN 2 00644 M00S00618.comptfm +++| ADD BA 00645 M00S00619.comptfm +++| SBD BP 00646 M00S00620.comptfm +++| NJN CIE3 IF NOT POSITIONED AT FIRST INDEX 00647 M00S00621.comptfm +++| RESTP CPPI RESTORE BUFFER POINTERS (PRIMARY) 00648 M00S00622.comptfm +++| LDC 0 NO OVERFLOW BLOCK 00649 M00S00623.comptfm +++|* LDC IIEX (OVERFLOW BLOCK) 00650 M00S00624.comptfm +++| CIEA EQU *-1 00651 M00S00625.comptfm +++| ZJN CIE6 IF NOT OVERFLOW BLOCK 00652 M00S00626.comptfm +++| LDM CWEL,BA 00653 M00S00627.comptfm +++| RJM MBP MOVE BUFFER POINTER 00654 M00S00628.comptfm +++| MJN CIE5 IF MOVE OUTSIDE BUFFER 00655 M00S00629.comptfm +++| LDI BP 00656 M00S00630.comptfm +++| NJN CIE6 IF NOT END OF INDEX 00657 M00S00631.comptfm +++| CIE5 RJM WRP WRITE RANDOM PRU (PRIMARY) 00658 M00S00632.comptfm +++| RJM GNL GET NEXT LINK 00659 M00S00633.comptfm +++| ZJN CIE7 IF PRIMARY BLOCK NOT LINKED 00660 M00S00634.comptfm +++| RJM GIB GET INITIAL BLOCK 00661 M00S00635.comptfm +++| LDM CWFE,BA 00662 M00S00636.comptfm +++| RJM MBP MOVE BUFFER POINTER 00663 M00S00637.comptfm +++| CIE6 MMOVE ,PB,,BP,,KL 00664 M00S00638.comptfm +++| RJM WRP WRITE RANDOM PRU (PRIMARY) 00665 M00S00639.comptfm +++| LJM CIEX RETURN 00666 M00S00640.comptfm +++| 00667 M00S00641.comptfm +++| CIE7 ERROR CLE *CATALOG LINKAGE ERROR.* 00668 M00S00642.comptfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY 00669 M00S00643.comptfm +++| CIE$ ENDIF 00670 M00S00644.comptfm +++| DDE$ IF DEF,DDE$ 00671 M00S00645.comptfm +++| DDE SPACE 4,10 00672 M00S00646.comptfm +++|** DDE - DELETE DATA ENTRY. 00673 M00S00647.comptfm +++|* 00674 M00S00648.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00675 M00S00649.comptfm +++|* (BP) = BUFFER POINTER OF ENTRY TO DELETE. 00676 M00S00650.comptfm +++| 00677 M00S00651.comptfm +++| 00678 M00S00652.comptfm +++| DDE SUBR ENTRY/EXIT 00679 M00S00653.comptfm +++| LDM CWEL,BA MOVE ENTRIES UP 00680 M00S00654.comptfm +++| SHN 14 00681 M00S00655.comptfm +++| LMM CWNE,BA 00682 M00S00656.comptfm +++| RJM MLT (A) REGISTER MULTIPLY 00683 M00S00657.comptfm +++| ADM CWFE,BA 00684 M00S00658.comptfm +++| STD T0 00685 M00S00659.comptfm +++| SHN 2 00686 M00S00660.comptfm +++| RAD T0 00687 M00S00661.comptfm +++| LDD BA BIAS BY BUFFER ADDRESS 00688 M00S00662.comptfm +++| ADN 2 00689 M00S00663.comptfm +++| RAD T0 00690 M00S00664.comptfm +++| LDM CWEL,BA SET FWA AND DESTINATION OF MOVE 00691 M00S00665.comptfm +++| STD T1 00692 M00S00666.comptfm +++| SHN 2 00693 M00S00667.comptfm +++| RAD T1 00694 M00S00668.comptfm +++| LDD BP 00695 M00S00669.comptfm +++| STD T2 00696 M00S00670.comptfm +++| RAD T1 00697 M00S00671.comptfm +++| LDD T0 SET MOVE COUNT 00698 M00S00672.comptfm +++| SBD T1 00699 M00S00673.comptfm +++| SHN 1 00700 M00S00674.comptfm +++| RJM MPM MOVE PP MEMORY 00701 M00S00675.comptfm +++| LDD T2 00702 M00S00676.comptfm +++| STD T1 00703 M00S00677.comptfm +++| LDM CWEL,BA 00704 M00S00678.comptfm +++| STD T0 00705 M00S00679.comptfm +++| SHN 2 00706 M00S00680.comptfm +++| RAD T0 00707 M00S00681.comptfm +++| SHN 1 00708 M00S00682.comptfm +++| RJM CPM CLEAR PP MEMORY 00709 M00S00683.comptfm +++| SOM CWNE,BA UPDATE CONTROL WORDS 00710 M00S00684.comptfm +++| LDM CWUW,BA 00711 M00S00685.comptfm +++| ADM CWEL,BA 00712 M00S00686.comptfm +++| STM CWUW,BA 00713 M00S00687.comptfm +++| LJM DDEX RETURN 00714 M00S00688.comptfm +++| MLT$ EQU 1 DEFINE MLT - (A) REGISTER MULTIPLY 00715 M00S00689.comptfm +++| DDE$ ENDIF 00716 M00S00690.comptfm +++| DLB$ IF DEF,DLB$ 00717 M00S00691.comptfm +++| DLB SPACE 4,10 00718 M00S00692.comptfm +++|** DLB - DELINK BLOCK. 00719 M00S00693.comptfm +++|* 00720 M00S00694.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 00721 M00S00695.comptfm +++|* (RI - RI+1) RANDOM INDEX OF BLOCK TO DELINK. 00722 M00S00696.comptfm +++| 00723 M00S00697.comptfm +++| 00724 M00S00698.comptfm +++| DLB SUBR ENTRY/EXIT
| Line S00699 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00725 M01S00699.ns2763 ---| LDA CPEB,ABS SET EMPTY PRU LINKAGE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00726 M01S00001.ns2763 +++| LDM CPEB+1 SET EMPTY PRU LINKAGE 00727 M00S00700.comptfm +++| STM DLBA+1
| Line S00701 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00728 M01S00701.ns2763 ---| SHN -14
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00729 M01S00002.ns2763 +++| LDM CPEB 00730 M01S00003.ns2763 +++| LPN 77 00731 M00S00702.comptfm +++| LMC LDCI 00732 M00S00703.comptfm +++| STM DLBA 00733 M00S00704.comptfm +++| LDD RI UPDATE HOLE POINTER 00734 M00S00705.comptfm +++| STM CPEB 00735 M00S00706.comptfm +++| LDD RI+1 00736 M00S00707.comptfm +++| STM CPEB+1 00737 M00S00708.comptfm +++| LDM CWBI,BA SET PREVIOUS BLOCK INDEX 00738 M00S00709.comptfm +++| LPN 77 00739 M00S00710.comptfm +++| LMC LDCI 00740 M00S00711.comptfm +++| STM DLBB 00741 M00S00712.comptfm +++| LDM CWBI+1,BA 00742 M00S00713.comptfm +++| STM DLBB+1 00743 M00S00714.comptfm +++| LDM CWRI,BA SET NEXT BLOCK INDEX 00744 M00S00715.comptfm +++| LPN 77 00745 M00S00716.comptfm +++| LMC LDCI 00746 M00S00717.comptfm +++| STM DLBC 00747 M00S00718.comptfm +++| LDM CWRI+1,BA 00748 M00S00719.comptfm +++| STM DLBC+1 00749 M00S00720.comptfm +++| RJM GEP GENERATE EMPTY PRU 00750 M00S00721.comptfm +++| LDC ** 00751 M00S00722.comptfm +++| DLBA EQU *-2 (EMPTY BLOCK LINK) 00752 M00S00723.comptfm +++| STM CWRI+1,BA 00753 M00S00724.comptfm +++| SHN -14 00754 M00S00725.comptfm +++| STM CWRI,BA 00755 M00S00726.comptfm +++| RJM WRP WRITE RANDOM PRU 00756 M00S00727.comptfm +++| LDC ** 00757 M00S00728.comptfm +++| DLBB EQU *-2 (PREVIOUS BLOCK RANDOM INDEX) 00758 M00S00729.comptfm +++| ZJN DLB1 IF FIRST BLOCK OF CHAIN 00759 M00S00730.comptfm +++| STD RI+1 00760 M00S00731.comptfm +++| SHN -14 00761 M00S00732.comptfm +++| STD RI 00762 M00S00733.comptfm +++| RJM GIB GET INITIAL BLOCK 00763 M00S00734.comptfm +++| LDC ** 00764 M00S00735.comptfm +++| DLBC EQU *-2 (NEXT BLOCK RANDOM INDEX) 00765 M00S00736.comptfm +++| STM CWRI+1,BA 00766 M00S00737.comptfm +++| SHN -14 00767 M00S00738.comptfm +++| STM CWRI,BA 00768 M00S00739.comptfm +++| RJM WRP WRITE RANDOM PRU 00769 M00S00740.comptfm +++| DLB1 LDA DLBC,ABS 00770 M00S00741.comptfm +++| ZJN DLB2 IF LAST BLOCK OF CHAIN 00771 M00S00742.comptfm +++| STD RI+1 00772 M00S00743.comptfm +++| SHN -14 00773 M00S00744.comptfm +++| STD RI 00774 M00S00745.comptfm +++| RJM GIB GET INITIAL BLOCK
| Line S00746 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00775 M01S00746.ns2763 ---| LDA DLBB,ABS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00776 M01S00004.ns2763 +++| LDM DLBB+1 00777 M00S00747.comptfm +++| STM CWBI+1,BA
| Line S00748 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00778 M01S00748.ns2763 ---| SHN -14
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00779 M01S00005.ns2763 +++| LDM DLBB 00780 M01S00006.ns2763 +++| LPN 77 00781 M00S00749.comptfm +++| STM CWBI,BA 00782 M00S00750.comptfm +++| RJM WRP WRITE RANDOM PRU 00783 M00S00751.comptfm +++| DLB2 LDN TMSB UPDATE SYSTEM BLOCK 00784 M00S00752.comptfm +++| STD RI+1 00785 M00S00753.comptfm +++| SHN -14 00786 M00S00754.comptfm +++| STD RI 00787 M00S00755.comptfm +++| RJM GIB GET INITIAL BLOCK (SYSTEM BLOCK) 00788 M00S00756.comptfm +++| LDM CWFE,BA 00789 M00S00757.comptfm +++| RJM MBP MOVE BUFFER POINTER
| Line S00758 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00790 M01S00758.ns2763 ---| LDA CPEB,ABS
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00791 M01S00007.ns2763 +++| LDM CPEB+1 00792 M00S00759.comptfm +++| STM SBHP+1,BP
| Line S00760 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00793 M01S00760.ns2763 ---| SHN -14
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00794 M01S00008.ns2763 +++| LDM CPEB 00795 M01S00009.ns2763 +++| LPN 77 00796 M00S00761.comptfm +++| STM SBHP,BP 00797 M00S00762.comptfm +++| RJM WRP WRITE RANDOM PRU 00798 M00S00763.comptfm +++| LJM DLBX RETURN 00799 M00S00764.comptfm +++| GEP$ EQU 1 DEFINE GEP - GENERATE EMPTY PRU 00800 M00S00765.comptfm +++| DLB$ ENDIF 00801 M00S00766.comptfm +++| FTC$ IF DEF,FTC$ 00802 M00S00767.comptfm +++| FTC SPACE 4,10 00803 M00S00768.comptfm +++|** FTC - FIND TAPE CATALOG. 00804 M00S00769.comptfm +++|* 00805 M00S00770.comptfm +++|* *FTC* IS USED TO LOCATE THE TAPE FILE CATALOG 00806 M00S00771.comptfm +++|* AND TO VALIDATE USER ACCESS. IF THE EXTERNAL 00807 M00S00772.comptfm +++|* VSN IS SUPPLIED, IT IS USED. IF THE EXTERNAL 00808 M00S00773.comptfm +++|* VSN IS NOT SUPPLIED AND THE FILE NAME IS, A 00809 M00S00774.comptfm +++|* SEARCH BY FILE NAME IS INITIATED. 00810 M00S00775.comptfm +++|* 00811 M00S00776.comptfm +++|* ENTRY (PESN - PESN+2) = EXTERNAL VSN. 00812 M00S00777.comptfm +++|* (PBUN - PBUN+3) = USERNAME. 00813 M00S00778.comptfm +++|* (POFI - POFI+10B) = FILE NAME. 00814 M00S00779.comptfm +++|* 00815 M00S00780.comptfm +++|* EXIT (A) = 0 IF CATALOG FOUND. 00816 M00S00781.comptfm +++|* (A) = ERROR CODE IF CATALOG NOT FOUND. 00817 M00S00782.comptfm +++|* 00818 M00S00783.comptfm +++|* USES CPCB - CPCB+4, KA, RI - RI+1, T1. 00819 M00S00784.comptfm +++|* 00820 M00S00785.comptfm +++|* CALLS GIB, SCB, UIS, VIS, VSP, VUB. 00821 M00S00786.comptfm +++|* 00822 M00S00787.comptfm +++|* MACROS ERROR, SAVEP. 00823 M00S00788.comptfm +++| 00824 M00S00789.comptfm +++|
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00790.comptfm +++| FTC SUBR ENTRY/EXIT 00852 M00S00791.comptfm +++| LDC PESN 00853 M00S00792.comptfm +++| STD KA 00854 M00S00793.comptfm +++| LDI KA
| Line S00794 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00855 M01S00794.ns2763 ---| NJN FTC1 IF VSN SEARCH 00856 M01S00795.ns2763 ---| LJM FTC6 SEARCH BY USERNAME/FILE NAME 00857 M01S00796.ns2763 ---|
| Line S00036 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00858 M01S00036.ns2763 +++| ZJP FTC6 IF SEARCH BY USERNAME/FILE NAME 00859 M00S00797.comptfm +++| FTC1 RJM VIS VSN INDEX SEARCH 00860 M00S00798.comptfm +++| NJN FTC2 IF VSN NOT FOUND 00861 M00S00799.comptfm +++| LDM VBRD+1,BP 00862 M00S00800.comptfm +++| ZJN FTC3 IF NO RELEASE DATE 00863 M00S00801.comptfm +++| LDN CRDP 00864 M00S00802.comptfm +++| ZJN FTC3 IF CRDP DEFINED ZERO 00865 M00S00803.comptfm +++| LDD FC 00866 M00S00804.comptfm +++| LMN SSJF 00867 M00S00805.comptfm +++| ZJN FTC3 IF *TFSP* CALL 00868 M00S00806.comptfm +++| FTC2 LDN /EMSG/VNF *(VSN) NOT FOUND.*
| Line S00807 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00869 M01S00807.ns2763 ---| UJN FTCX RETURN
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00870 M01S00037.ns2763 +++| FTC2.1 UJN FTCX RETURN 00871 M00S00808.comptfm +++| 00872 M00S00809.comptfm +++| FTC3 LDM VBCI,BP SET CATALOG ADDRESS 00873 M00S00810.comptfm +++| SHN 14 00874 M00S00811.comptfm +++| STD CI 00875 M00S00812.comptfm +++| SCN 77 00876 M00S00813.comptfm +++| LMM VBCI+1,BP
| Line S00814 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00877 M01S00814.ns2763 ---| ZJN FTC4 IF NOT ASSIGNED
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00878 M01S00038.ns2763 +++| ZJN FTC2 IF NOT ASSIGNED 00879 M00S00815.comptfm +++| STD RI+1 SET RANDOM ADDRESS 00880 M00S00816.comptfm +++| SHN -14 00881 M00S00817.comptfm +++| STD RI 00882 M00S00818.comptfm +++| LDC BUF2 00883 M00S00819.comptfm +++| STD BA 00884 M00S00820.comptfm +++| RJM GIB GET INITIAL BLOCK 00885 M00S00821.comptfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
| Line S00822 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00886 M01S00822.nos252 ---| MJN FTC5 IF INVALID POINTERS
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 00887 M01S00004.nos252 +++| MJN FTC5 IF INCORRECT POINTERS 00888 M00S00823.comptfm +++| SAVEP CPCB SAVE BUFFER POINTERS (CATALOG) 00889 M00S00824.comptfm +++| RJM VUB VERIFY USER BLOCK
| Line S00825 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00890 M01S00825.ns2763 ---| ZJN FTC8 IF VSN RESERVED BY USER 00891 M01S00826.ns2763 ---| FTC4 LDN /EMSG/VNF *VSN (VSN) NOT FOUND.* 00892 M01S00827.ns2763 ---| UJN FTC8 RETURN
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00893 M01S00039.ns2763 +++| NJN FTC2 IF NOT VSN RESERVED BY USER 00894 M01S00040.ns2763 +++| UJN FTC2.1 RETURN 00895 M00S00828.comptfm +++| 00896 M00S00829.comptfm +++| FTC5 ERROR EID *ERROR IN INDEX DATA.* 00897 M00S00830.comptfm +++|
| Line S00831 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00898 M01S00831.ns2763 ---| FTC6 LDC PBUN FILE IDENTIFIER SEARCH 00899 M01S00832.ns2763 ---| STD KA 00900 M01S00833.ns2763 ---| RJM UIS USERNAME INDEX SEARCH 00901 M01S00834.ns2763 ---| ZJN FTC9 IF USERNAME FOUND 00902 M01S00835.ns2763 ---| FTC7 LDN /EMSG/FNF *(FILENAME) NOT FOUND.* 00903 M01S00836.ns2763 ---| FTC8 UJN FTC11 RETURN 00904 M01S00837.ns2763 ---| 00905 M01S00838.ns2763 ---| FTC9 LDC BUF2 SET CATALOG BUFFER ADDRESS 00906 M01S00839.ns2763 ---| STD BA 00907 M01S00840.ns2763 ---| LDM UBCI,BP SET CATALOG RANDOM INDEX 00908 M01S00841.ns2763 ---| LPN 77 00909 M01S00842.ns2763 ---| STD RI 00910 M01S00843.ns2763 ---| SHN 14 00911 M01S00844.ns2763 ---| LMM UBCI+1,BP 00912 M01S00845.ns2763 ---| STD RI+1 00913 M01S00846.ns2763 ---| ZJN FTC7 IF NO RANDOM ADDRESS 00914 M01S00847.ns2763 ---| LDC POFI SET SEARCH KEY ADDRESS 00915 M01S00848.ns2763 ---| STD KA 00916 M01S00849.ns2763 ---| RJM SCB SEARCH CATALOG BUFFER 00917 M01S00850.ns2763 ---| ZJN FTC7 IF FILE NOT FOUND 00918 M01S00851.ns2763 ---| PJN FTC10 IF NOT DUPLICATE FILENAME 00919 M01S00852.ns2763 ---| LDN /EMSG/FAR *(FILENAME) ALREADY RESERVED.* 00920 M01S00853.ns2763 ---| UJN FTC11 RETURN WITH ERROR 00921 M01S00854.ns2763 ---| FTC10 LDN 0 SET CATALOG FOUND 00922 M01S00855.ns2763 ---| FTC11 LJM FTCX RETURN
| Line S00041 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 00923 M01S00041.ns2763 +++| 00924 M00S00856.comptfm +++| BSE$ EQU 1 DEFINE BSE - BACKSPACE ONE ENTRY 00925 M00S00857.comptfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS BLOCK LINK 00926 M00S00858.comptfm +++| ISK$ EQU 1 DEFINE ISK - INDEXED SEARCH FOR KEY 00927 M00S00859.comptfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 00928 M00S00860.comptfm +++| SCB$ EQU 1 DEFINE SCB - SEARCH CATALOG BUFFER 00929 M00S00861.comptfm +++| SIB$ EQU 1 DEFINE SIB - SEARCH INDEX BLOCK 00930 M00S00862.comptfm +++| UIS$ EQU 1 DEFINE UIS - USERNAME INDEXED SEARCH 00931 M00S00863.comptfm +++| VIS$ EQU 1 DEFINE VIS - VSN INDEXED SEARCH 00932 M00S00864.comptfm +++| VSP$ EQU 1 DEFINE VSP - VERIFY/SET CATALOG POINTERS 00933 M00S00865.comptfm +++| FTC$ ENDIF 00934 M00S00866.comptfm +++| CAA$ IF DEF,CAA$ 00935 M00S00867.comptfm +++| CAA SPACE 4,10 00936 M00S00868.comptfm +++|** CAA - CHECK ALTERNATE USER ACCESS. 00937 M00S00869.comptfm +++|* 00938 M00S00870.comptfm +++|* ENTRY (BA) = CATALOG BUFFER ADDRESS. 00939 M00S00871.comptfm +++|* (BP) = CATALOG BUFFER POINTER. 00940 M00S00872.comptfm +++|* 00941 M00S00873.comptfm +++|* EXIT (BA) = CATALOG BUFFER ADDRESS. 00942 M00S00874.comptfm +++|* (BP) = CATALOG BUFFER POINTER. 00943 M00S00875.comptfm +++|* (CT) = FILE CATEGORY TYPE. 00944 M00S00876.comptfm +++|* (MD) = FILE ACCESS MODE. 00945 M00S00877.comptfm +++|* 00946 M00S00878.comptfm +++|* USES CT, KA, MD, PB, RI - RI+1. 00947 M00S00879.comptfm +++|* 00948 M00S00880.comptfm +++|* CALLS AUS, IBC, IIE, MBP, TBA, WRP. 00949 M00S00881.comptfm +++|* 00950 M00S00882.comptfm +++|* MACROS CLEAR, COMPARE, ERROR, MMOVE, RESTP, 00951 M00S00883.comptfm +++|* SAVEP. 00952 M00S00884.comptfm +++| 00953 M00S00885.comptfm +++| 00954 M00S00886.comptfm +++| CAA SUBR ENTRY/EXIT 00955 M00S00887.comptfm +++| LDM PAUN 00956 M00S00888.comptfm +++| ZJN CAAX IF USERS CATALOG BLOCK 00957 M00S00889.comptfm +++| LDM CBCT,BP SET CATEGORY TYPE 00958 M00S00890.comptfm +++| SHN 14 00959 M00S00891.comptfm +++| STD CT 00960 M00S00892.comptfm +++| SHN -14 SET ACCESS MODE 00961 M00S00893.comptfm +++| STD MD 00962 M00S00894.comptfm +++| COMPARE PPWD,,CBPW,BP,PWKL 00963 M00S00895.comptfm +++| ZJN CAA3 IF COMPARE ON PASSWORD 00964 M00S00896.comptfm +++|* UJN CAA3 (SKIP PASSWORD CHECK IF *RESEX* *POSMF*) 00965 M00S00897.comptfm +++| CAAB EQU *-1 00966 M00S00898.comptfm +++| CAA1 LDM PESN 00967 M00S00899.comptfm +++| ZJN CAA2 IF VSN NOT SPECIFIED 00968 M00S00900.comptfm +++| LDN /EMSG/VNF&/EMSG/FNF 00969 M00S00901.comptfm +++| CAA2 LMN /EMSG/FNF *(FILENAME) NOT FOUND.* 00970 M00S00902.comptfm +++| ERROR 00971 M00S00903.comptfm +++| 00972 M00S00904.comptfm +++| CAA3 LDD CT CHECK FILE CATEGORY 00973 M00S00905.comptfm +++| LMN FCPU 00974 M00S00906.comptfm +++| ZJN CAA4 IF PUBLIC FILE 00975 M00S00907.comptfm +++| LDM CBAE,BP SET ADMIT INDEX 00976 M00S00908.comptfm +++| LPN 77 00977 M00S00909.comptfm +++| STD RI 00978 M00S00910.comptfm +++| SHN 14 00979 M00S00911.comptfm +++| LMM CBAE+1,BP 00980 M00S00912.comptfm +++| STD RI+1 00981 M00S00913.comptfm +++| NJN CAA6 IF ADMITS ASSIGNED TO FILE 00982 M00S00914.comptfm +++| LDD CT 00983 M00S00915.comptfm +++| LMN FCSP 00984 M00S00916.comptfm +++| NJN CAA1 IF NOT SEMI-PRIVATE 00985 M00S00917.comptfm +++| RJM CMD CHECK MODE
| Line S00918 Modification History | |
|---|---|
M01 (Removed by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 00986 M01S00918.m1669 ---| LDN 0 IF ADMIT ENTRY UPDATE 00987 M01S00919.m1669 ---|* LDN 1 IF NO ADMIT ENTRY UPDATE
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | m1669 |
Seq # *Modification Id* Act ----------------------------+ 00988 M01S00001.m1669 +++| LDC 0 IF ADMIT ENTRY UPDATE 00989 M01S00002.m1669 +++|* LDC 1 IF NO ADMIT ENTRY UPDATE 00990 M00S00920.comptfm +++| CAAC EQU *-1 00991 M00S00921.comptfm +++| NJN CAA5 IF NO ADMIT ENTRY UPDATE 00992 M00S00922.comptfm +++| LJM CAA11 ENTER ADMIT ENTRY 00993 M00S00923.comptfm +++| 00994 M00S00924.comptfm +++| CAA4 RJM CMD COMPARE MODES 00995 M00S00925.comptfm +++| CAA5 RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 00996 M00S00926.comptfm +++| LJM CAAX RETURN 00997 M00S00927.comptfm +++| 00998 M00S00928.comptfm +++| CAA6 LDC PAUN CHECK FOR EXPLICIT PERMISSION 00999 M00S00929.comptfm +++| STD KA 01000 M00S00930.comptfm +++| RJM AUS ALTERNATE USERNAME SEARCH 01001 M00S00931.comptfm +++| NJN CAA7 IF ALTERNATE USER NOT FOUND 01002 M00S00932.comptfm +++| LDC WRP SET TO UPDATE EXISTING ENTRY 01003 M00S00933.comptfm +++| STM CAAA 01004 M00S00934.comptfm +++| LDD BP 01005 M00S00935.comptfm +++| UJN CAA8 UPDATE ADMIT ENTRY 01006 M00S00936.comptfm +++| 01007 M00S00937.comptfm +++| CAA7 LDD CT CHECK FOR PRIVATE FILE 01008 M00S00938.comptfm +++| LMN FCPR 01009 M00S00939.comptfm +++| ZJP CAA1 IF PRIVATE FILE 01010 M00S00940.comptfm +++| CLEAR BUFA,,2*10D ENTER ADMIT ENTRY 01011 M00S00941.comptfm +++| LDC BUFB 01012 M00S00942.comptfm +++| STD T7 01013 M00S00943.comptfm +++| LDC BUFA 01014 M00S00944.comptfm +++| CAA8 STD PB UPDATE INDEX 01015 M00S00945.comptfm +++| LDM ABAM,PB 01016 M00S00946.comptfm +++| LPN 77 01017 M00S00947.comptfm +++| ZJN CAA9 IF IMPLICIT USER 01018 M00S00948.comptfm +++| ERRNZ FMIU 01019 M00S00949.comptfm +++| STD MD 01020 M00S00950.comptfm +++| CAA9 RJM CMD CHECK MODE 01021 M00S00951.comptfm +++| LDM CAAC CHECK FOR ADMIT ENTRY UPDATE 01022 M00S00952.comptfm +++| NJN CAA10 IF NO UPDATE 01023 M00S00953.comptfm +++| MMOVE PAUN,,,PB,UNKL 01024 M00S00954.comptfm +++| LDD HN INCREMENT ACCESS COUNT 01025 M00S00955.comptfm +++| RAM ABAN+1,PB 01026 M00S00956.comptfm +++| SHN -14 01027 M00S00957.comptfm +++| RAM ABAN,PB 01028 M00S00958.comptfm +++| LIA ABDT,PB 01029 M00S00959.comptfm +++| RJM EDT ENTER PACKED DATE/TIME 01030 M00S00960.comptfm +++| RJM IIE INSERT INDEX ENTRY 01031 M00S00961.comptfm +++| CAAA EQU *-1 (RJM TO *WRP* IF INDEX FOUND) 01032 M00S00962.comptfm +++| CAA10 LJM CAA5 RESTORE CATALOG POINTERS 01033 M00S00963.comptfm +++| 01034 M00S00964.comptfm +++| CAA11 RJM TBA TOGGLE BUFFER ASSIGNMENT 01035 M00S00965.comptfm +++| RJM IBC INITIALIZE BLOCK CHAIN 01036 M00S00966.comptfm +++| LDC RTAB*100 01037 M00S00967.comptfm +++| STM CWRT,BA 01038 M00S00968.comptfm +++| LDN TAEL 01039 M00S00969.comptfm +++| STM CWEL,BA 01040 M00S00970.comptfm +++| MMOVE PBUN,,CWUN,BA,UNKL 01041 M00S00971.comptfm +++| LDM CWFE,BA 01042 M00S00972.comptfm +++| RJM MBP MOVE BUFFER POINTER 01043 M00S00973.comptfm +++| SAVEP CPAB SAVE ADMIT BUFFER POINTERS 01044 M00S00974.comptfm +++| RESTP CPCB RESTORE CATALOG POINTERS 01045 M00S00975.comptfm +++| LDM CPAB+3 SET ADMIT BUFFER POINTER 01046 M00S00976.comptfm +++| STM CBAE,BP 01047 M00S00977.comptfm +++| LDM CPAB+4 01048 M00S00978.comptfm +++| STM CBAE+1,BP 01049 M00S00979.comptfm +++| RJM WRP WRITE RANDOM PRU (CATALOG) 01050 M00S00980.comptfm +++| RESTP CPAB RESTORE ADMIT BUFFER POINTERS 01051 M00S00981.comptfm +++| LJM CAA7 ENTER IMPLICIT USER 01052 M00S00982.comptfm +++| CMD SPACE 4,10 01053 M00S00983.comptfm +++|** CMD - COMPARE MODE REQUESTED WITH MODE ALLOWED. 01054 M00S00984.comptfm +++|* 01055 M00S00985.comptfm +++|* ENTRY (MD) = MODE ALLOWED. 01056 M00S00986.comptfm +++|* (PFTD+1) = WRITE REQUESTED. 01057 M00S00987.comptfm +++|* 01058 M00S00988.comptfm +++|* EXIT TO CAA1 IF ACCESS DENIED. 01059 M00S00989.comptfm +++|* TO ERR IF WRITE REQUESTED ON READ-ONLY FILE. 01060 M00S00990.comptfm +++| 01061 M00S00991.comptfm +++| 01062 M00S00992.comptfm +++| CMD SUBR ENTRY/EXIT 01063 M00S00993.comptfm +++| LDD MD 01064 M00S00994.comptfm +++| LMN FMNA 01065 M00S00995.comptfm +++| ZJP CAA1 IF ACCESS DENIED 01066 M00S00996.comptfm +++| LMN FMWR&FMNA 01067 M00S00997.comptfm +++| ZJN CMDX IF WRITE ALLOWED 01068 M00S00998.comptfm +++| LDM PFTD+1 01069 M00S00999.comptfm +++| SHN 21-4 01070 M00S01000.comptfm +++| PJN CMDX IF READ REQUESTED 01071 M00S01001.comptfm +++| ERROR WRF *WRITE ON READ-ONLY FILE.* 01072 M00S01002.comptfm +++| IIE$ EQU 1 DEFINE IIE - INSERT INDEX ENTRY 01073 M00S01003.comptfm +++| CAA$ ENDIF 01074 M00S01004.comptfm +++| IAM$ IF DEF,IAM$ 01075 M00S01005.comptfm +++| IAM SPACE 4,10 01076 M00S01006.comptfm +++|** IAM - ISSUE ACCOUNT FILE MESSAGE. 01077 M00S01007.comptfm +++|* 01078 M00S01008.comptfm +++|* ENTRY (A) = 0, IF RESERVE ACCOUNT MESSAGE. 01079 M00S01009.comptfm +++|* (A) = 1, IF RELEASE ACCOUNT MESSAGE. 01080 M00S01010.comptfm +++|* (CM - CM+4) = 0 IF UNCONDITIONAL RELEASE, 01081 M00S01011.comptfm +++|* = C* YY/MM/DD.* IF CONDITIONAL RELEASE. 01082 M00S01012.comptfm +++|* 01083 M00S01013.comptfm +++|* EXIT ACCOUNT FILE MESSAGE ISSUED. 01084 M00S01014.comptfm +++|* 01085 M00S01015.comptfm +++|* USES T0 - T4. 01086 M00S01016.comptfm +++|* 01087 M00S01017.comptfm +++|* CALLS FAM, IRS. 01088 M00S01018.comptfm +++| 01089 M00S01019.comptfm +++| 01090 M00S01020.comptfm +++| IAM SUBR ENTRY/EXIT
| Line S01021 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01091 M01S01021.t5472 ---| STD T4 RELEASE/RESERVE FLAG 01092 M01S01022.t5472 ---| LDM IAMB,T4 *A * OR *B *
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01093 M02S00008.nos252 ---| SHN 6 01094 M02S00009.nos252 ---| ADC 2RA *A * OR *B * FOR MESSAGE
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01023.comptfm +++| STM IAMA+1
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | t5472 |
M02 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01100 M02S00010.nos252 ---| ADC -2RA
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01101 M01S00009.nos252 +++| LDD T0 01102 M00S01024.comptfm +++| RJM FAM FORMAT ACCOUNT FILE MESSAGE 01103 M00S01025.comptfm +++| RJM IRS ISSUE ACCOUNT MESSAGE 01104 M00S01026.comptfm +++| UJP IAMX RETURN 01105 M00S01027.comptfm +++|
| Line S01028 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01106 M01S01028.nos252 ---| IAMA DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. * 01107 M01S01029.nos252 ---|* DATA C*SMA , FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.*
| Line S01030 Modification History | |
|---|---|
M01 (Removed by) | t2807 |
M02 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01108 M02S01030.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, .*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | t2807 |
M02 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01109 M02S00007.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF.*
| Line S01031 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01110 M01S01031.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.* 01111 M01S01032.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.* 01112 M01S01033.nos252 ---|* DATA C*SMH , FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.* 01113 M01S01034.nos252 ---|* DATA C*SMI , FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.*
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01121 M01S01035.t5472 ---| IAMB DATA 2HA 01122 M01S01036.t5472 ---| DATA 2HB 01123 M00S01037.comptfm +++| FAM$ EQU 1 DEFINE FAM - FORMAT ACCOUNT FILE MESSAGE 01124 M00S01038.comptfm +++| IRS$ EQU 1 DEFINE IRS - ISSUE RECOVERY MSG SUBROUTINE 01125 M00S01039.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 01126 M00S01040.comptfm +++| CSN$ EQU 1 DEFINE CSN - CONVERT SEQUENCE NUMBER 01127 M00S01041.comptfm +++| IAM$ ENDIF 01128 M00S01042.comptfm +++| IRM$ IF DEF,IRM$ 01129 M00S01043.comptfm +++| IRM SPACE 4,15 01130 M00S01044.comptfm +++|** IRM - ISSUE *TMS* RECOVERY MESSAGES. 01131 M00S01045.comptfm +++|* 01132 M00S01046.comptfm +++|* ENTRY (BP) = TAPE CATALOG ENTRY TO ISSUE MESSAGES FOR. 01133 M00S01047.comptfm +++|* (TFMC) = HAS DATA ATTACH MODE. 01134 M00S01048.comptfm +++|*
| Line S01049 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01135 M01S01049.nos252 ---|* EXIT RECOVERY MESSAGES *SMG*, *SMI* AND POSSIBLY 01136 M01S01050.nos252 ---|* *SMH* ISSUED TO THE ACCOUNT DAYFILE.
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01137 M01S00017.nos252 +++|* EXIT RECOVERY MESSAGES *SDRA*, *SDRC* AND POSSIBLY 01138 M01S00018.nos252 +++|* *SDRB* ISSUED TO THE ACCOUNT DAYFILE. 01139 M00S01051.comptfm +++|* 01140 M00S01052.comptfm +++|* USES T0 - T4, CM - CM+4. 01141 M00S01053.comptfm +++|* 01142 M00S01054.comptfm +++|* CALLS CSN, FAM, IRS, RUC. 01143 M00S01055.comptfm +++|* 01144 M00S01056.comptfm +++|* MACROS MMOVE. 01145 M00S01057.comptfm +++| 01146 M00S01058.comptfm +++| 01147 M00S01059.comptfm +++| IRM SUBR ENTRY/EXIT 01148 M00S01060.comptfm +++| LDM TFMC 01149 M00S01061.comptfm +++| LPN 77 01150 M00S01062.comptfm +++| LMN /PFM/PTLM 01151 M00S01063.comptfm +++| ZJN IRMX IF CATALOG IS IN LOCAL FILE MODE 01152 M00S01064.comptfm +++| LDA CBQN,BP CONVERT SEQUENCE NUMBER TO DISPLAY CODE 01153 M00S01065.comptfm +++| RJM CSN
| Line S01066 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01154 M01S01066.nos252 ---| LDC 2RG
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01155 M01S00019.nos252 +++| LDC 2RRA 01156 M00S01067.comptfm +++| STM IAMA+1 01157 M00S01068.comptfm +++| LDN 0 SET *RESERVE* FORMAT DESIRED
| Line S01069 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01158 M01S01069.t5472 ---| STD T4 01159 M00S01070.comptfm +++| RJM FAM FORMAT ACCOUNT FILE MESSAGE 01160 M00S01071.comptfm +++| LDC IAMA+22 RESET MESSAGE POINTER 01161 M00S01072.comptfm +++| STD T2 01162 M00S01073.comptfm +++| LDM CBFN,BP GET TAPE FORMAT DESCRIPTORS
| Line S01074 Modification History | |
|---|---|
M01 (Removed by) | t5268 |
Seq # *Modification Id* Act ----------------------------+ 01163 M01S01074.t5268 ---| SHN 14 01164 M01S01075.t5268 ---| SCN 77
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | t5268 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00001.t5268 +++| SCN 77 ISOLATE LABEL FORMAT 01166 M01S00002.t5268 +++| SHN 6 01167 M00S01076.comptfm +++| ADM CBTD,BP ADD TAPE FORMAT DESCRIPTORS 01168 M00S01077.comptfm +++| ADC 10101 ENSURE NO COLON CHARACTERS 01169 M00S01078.comptfm +++| STI T2 01170 M00S01079.comptfm +++| SHN 14 01171 M00S01080.comptfm +++| SCN 77 01172 M00S01081.comptfm +++| ADN 1R/ 01173 M00S01082.comptfm +++| STM 1,T2 01174 M00S01083.comptfm +++| AOD T2 01175 M00S01084.comptfm +++| AOD T2 01176 M00S01085.comptfm +++| STD T3 SAVE START OF PASSWORD IN MESSAGE 01177 M00S01086.comptfm +++| MMOVE CBPW,BP,,,7 ADD PASSWORD 01178 M00S01087.comptfm +++| LDI T3 01179 M00S01088.comptfm +++| NJN IRM1 IF NON-NULL PASSWORD 01180 M00S01089.comptfm +++| SOD T3 BACKUP POINTER 01181 M00S01090.comptfm +++| STD T2 01182 M00S01091.comptfm +++| IRM1 RJM IRS ISSUE MESSAGE 01183 M00S01092.comptfm +++| LDM CBST,BP CHECK IF TAPE HAS SYMBOLIC ACCESS 01184 M00S01093.comptfm +++| LPN 1S2 01185 M00S01094.comptfm +++| ZJN IRM2 IF NOT SYMBOLIC ACCESS TAPE 01186 M00S01095.comptfm +++| LIA CBLI,BP SET FWA OF STRING TO TEST FOR COLONS 01187 M00S01096.comptfm +++| STD T1 01188 M00S01097.comptfm +++| LDN 22 NUMBER OF CHARACTERS TO TEST 01189 M00S01098.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01190 M00S01099.comptfm +++| LIA CBPI,BP SET FWA OF STRING TO TEST FOR COLONS 01191 M00S01100.comptfm +++| STD T1 01192 M00S01101.comptfm +++| LDN 21 NUMBER OF CHARACTERS TO TEST 01193 M00S01102.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01194 M00S01103.comptfm +++| LDM IAMA+6 SET SUBSTITUTION CHARACTER IN MESSAGE 01195 M00S01104.comptfm +++| SCN 77 01196 M00S01105.comptfm +++| ADD T3 01197 M00S01106.comptfm +++| STM IAMA+6 01198 M00S01107.comptfm +++| RJM IRS ISSUE MESSAGE 01199 M00S01108.comptfm +++| IRM2 LDM IAMA+6 RESET */* IN MESSAGE 01200 M00S01109.comptfm +++| SCN 77 01201 M00S01110.comptfm +++| ADN 1R/ 01202 M00S01111.comptfm +++| STM IAMA+6
| Line S01112 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01203 M01S01112.nos252 ---| LDC 2RI CHANGE TO *SMI ,*
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01204 M01S00020.nos252 +++| LDC 2RRC CHANGE TO *SDRC,* 01205 M00S01113.comptfm +++| STM IAMA+1 01206 M00S01114.comptfm +++| LIA CBUC,BP SET FWA OF STRING TO TEST 01207 M00S01115.comptfm +++| STD T1 01208 M00S01116.comptfm +++| LDN 12 NUMBER OF CHARACTERS 01209 M00S01117.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01210 M00S01118.comptfm +++| LDD T3 SUBSTITUTION CHARACTER 01211 M00S01119.comptfm +++| SHN 6 01212 M00S01120.comptfm +++| ADN 1R/ 01213 M00S01121.comptfm +++| STI T2 01214 M00S01122.comptfm +++| AOD T2 01215 M00S01123.comptfm +++| MMOVE CBCN,BP,,,CNKL ADD CHARGE NUMBER 01216 M00S01124.comptfm +++| LDC 2R, 01217 M00S01125.comptfm +++| STI T2 01218 M00S01126.comptfm +++| AOD T2 01219 M00S01127.comptfm +++| LIA CBSI,BP SET FWA OF STRING TO TEST 01220 M00S01128.comptfm +++| STD T1 01221 M00S01129.comptfm +++| LDN 6 01222 M00S01130.comptfm +++| RJM RUC REMOVE UNWANTED COLONS 01223 M00S01131.comptfm +++| LDD T3 01224 M00S01132.comptfm +++| SHN 6 01225 M00S01133.comptfm +++| STI T2 01226 M00S01134.comptfm +++| RJM IRS ISSUE MESSAGE 01227 M00S01135.comptfm +++| LDM CBST,BP CLEAR *TMS* RECOVERY MESSAGES NEEDED FLAG 01228 M00S01136.comptfm +++| LPC 7377 01229 M00S01137.comptfm +++| STM CBST,BP 01230 M00S01138.comptfm +++| UJP IRMX RETURN 01231 M00S01139.comptfm +++| IAMA IF -DEF,IAMA
| Line S01140 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01232 M01S01140.nos252 ---| IAMA DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, YY/MM/DD. * 01233 M01S01141.nos252 ---|* DATA C*SMA , FAMNAME/USERNAM/QNZZZ/VSNFFF, VSNCCC.* 01234 M01S01142.nos252 ---|* DATA C*SMB , FAMNAME/USERNAM/QNZZZ/VSNFFF, .* 01235 M01S01143.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD/PASSWRD.* 01236 M01S01144.nos252 ---|* DATA C*SMG , FAMNAME/USERNAM/QNZZZ/VSNFFF, TFD.* 01237 M01S01145.nos252 ---|* DATA C*SMH , FAMNAMEXLOGICAL*FILE*IDNTYPHYSICAL*FILE*IDT.* 01238 M01S01146.nos252 ---|* DATA C*SMI , FAMNAME/CONTROLWRDX/CHRGNUMBER, MULSIDY.*
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01147.comptfm +++| IAMA ENDIF 01247 M00S01148.comptfm +++| RUC SPACE 4,15 01248 M00S01149.comptfm +++|** RUC - REMOVE UNWANTED COLONS FROM MESSAGE. 01249 M00S01150.comptfm +++|* 01250 M00S01151.comptfm +++|* ENTRY (A) = NUMBER OF CHARACTERS IN STRING. 01251 M00S01152.comptfm +++|* (T1) = FWA OF STRING TO TEST. 01252 M00S01153.comptfm +++|* (T2) = FWA OF STRING DESTINATION. 01253 M00S01154.comptfm +++|* 01254 M00S01155.comptfm +++|* EXIT (T3) = SUBSTITUTION CHARACTER USED. 01255 M00S01156.comptfm +++|* 01256 M00S01157.comptfm +++|* USES T0 - T4. 01257 M00S01158.comptfm +++| 01258 M00S01159.comptfm +++| 01259 M00S01160.comptfm +++| RUC2 LDD T1 RESTORE T2 01260 M00S01161.comptfm +++| STD T2 01261 M00S01162.comptfm +++| 01262 M00S01163.comptfm +++| RUC SUBR ENTRY/EXIT 01263 M00S01164.comptfm +++| STD T0 01264 M00S01165.comptfm +++| LDD T2 01265 M00S01166.comptfm +++| STD T4 01266 M00S01167.comptfm +++| LDN 1R; SET FIRST SUBSTITUTION CHARACTER 01267 M00S01168.comptfm +++| STD T3 01268 M00S01169.comptfm +++| RUC1 LDD MA 01269 M00S01170.comptfm +++| CWD T0 01270 M00S01171.comptfm +++| LDD T0 01271 M00S01172.comptfm +++| RJM MPM MOVE CHARACTERS 01272 M00S01173.comptfm +++| LDD T2 01273 M00S01174.comptfm +++| STD T1 01274 M00S01175.comptfm +++| RJM SCC SUBSTITUTE FOR COLONS 01275 M00S01176.comptfm +++| NJP RUC2 IF SUBSTITUTION SUCCESSFUL 01276 M00S01177.comptfm +++| LDD MA RESTORE MOVE PARAMETERS 01277 M00S01178.comptfm +++| CRD T0 01278 M00S01179.comptfm +++| SOD T3 DECREMENT TO NEXT SUBSTITUTION CHARACTER 01279 M00S01180.comptfm +++| UJP RUC1 TRY AGAIN 01280 M00S01181.comptfm +++| CSN$ EQU 1 DEFINE CSN - CONVERT SEQUENCE NUMBER 01281 M00S01182.comptfm +++| FAM$ EQU 1 DEFINE FAM - FORMAT ACCOUNT FILE MESSAGE 01282 M00S01183.comptfm +++| IRS$ EQU 1 DEFINE IRS - ISSUE RECOVERY MSG SUBROUTINE 01283 M00S01184.comptfm +++| SCC$ EQU 1 DEFINE SCC - SUBSTITUTE CHAR. FOR COLON 01284 M00S01185.comptfm +++| IRM$ ENDIF 01285 M00S01186.comptfm +++| IIE$ IF DEF,IIE$ 01286 M00S01187.comptfm +++| IIE SPACE 4,10 01287 M00S01188.comptfm +++|** IIE - INSERT INDEXED ENTRY. 01288 M00S01189.comptfm +++|* 01289 M00S01190.comptfm +++|* *IIE* IS USED TO INSERT A VSN, USERNAME, OR ADMIT 01290 M00S01191.comptfm +++|* ENTRY INTO A INDEXED DATA BLOCK. IF THERE IS NOT 01291 M00S01192.comptfm +++|* ENOUGH ROOM IN THE INDEX BLOCK A NEW INDEX BLOCK 01292 M00S01193.comptfm +++|* WILL BE CREATED IN THE FOLLOWING WAY. 01293 M00S01194.comptfm +++|* 01294 M00S01195.comptfm +++|* 1. IF THE BLOCK IS NOT FULL THE NEW ENTRY IS 01295 M00S01196.comptfm +++|* INSERTED INTO THE CURRENT INDEX BLOCK. 01296 M00S01197.comptfm +++|* 01297 M00S01198.comptfm +++|* 2. IF INSERTING AT THE END OF A FULL INDEX BLOCK, 01298 M00S01199.comptfm +++|* THE NEW INDEX IS INSERTED INTO THE NEXT INDEX 01299 M00S01200.comptfm +++|* BLOCK. 01300 M00S01201.comptfm +++|* 01301 M00S01202.comptfm +++|* 3. IF INSERTING WITHIN A FULL INDEX BLOCK, THE 01302 M00S01203.comptfm +++|* LAST INDEX OF THE CURRENT BLOCK IS MOVED TO 01303 M00S01204.comptfm +++|* THE NEXT INDEX BLOCK, AND THE NEW INDEX IS 01304 M00S01205.comptfm +++|* INSERTED INTO THE CURRENT INDEX BLOCK. 01305 M00S01206.comptfm +++|* 01306 M00S01207.comptfm +++|* 4. IF THE CURRENT INDEX BLOCK IS FULL AND NOT 01307 M00S01208.comptfm +++|* LINKED, OR IT IS LINKED BUT THAT BLOCK IS FULL, 01308 M00S01209.comptfm +++|* A NEW INDEX BLOCK IS CREATED. 01309 M00S01210.comptfm +++|* 01310 M00S01211.comptfm +++|* ENTRY (BA) = BUFFER ADDRESS. 01311 M00S01212.comptfm +++|* (BP) = BUFFER POINTER FOR INSERT. 01312 M00S01213.comptfm +++|* (PB) = ENTRY BUFFER ADDRESS. 01313 M00S01214.comptfm +++|* (T7) = OVERFLOW BUFFER ADDRESS. 01314 M00S01215.comptfm +++|* 01315 M00S01216.comptfm +++|* EXIT (BA) = UNCHANGED. 01316 M00S01217.comptfm +++|* (BP) = BUFFER POINTER. 01317 M00S01218.comptfm +++|* (PB) = OVERFLOW BUFFER ADDRESS. 01318 M00S01219.comptfm +++|* (A) = 0 IF NO OVERFLOW INTO SUBSEQUENT BLOCK. 01319 M00S01220.comptfm +++|* 01320 M00S01221.comptfm +++|* USES T5 - T6. 01321 M00S01222.comptfm +++|* 01322 M00S01223.comptfm +++|* CALLS ABC, GIB, GNL, GPL, IDE, MBP, PLI, WRP. 01323 M00S01224.comptfm +++|* 01324 M00S01225.comptfm +++|* MACROS ERROR, MMOVE. 01325 M00S01226.comptfm +++| 01326 M00S01227.comptfm +++|
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01228.comptfm +++| IIE SUBR ENTRY/EXIT 01362 M00S01229.comptfm +++| LDM CWUW,BA 01363 M00S01230.comptfm +++| SBM CWEL,BA 01364 M00S01231.comptfm +++| PJP IIE1 IF ROOM IN THIS BLOCK 01365 M00S01232.comptfm +++| LDD BP 01366 M00S01233.comptfm +++| STD T5 01367 M00S01234.comptfm +++| LDD PB 01368 M00S01235.comptfm +++| STM IIED 01369 M00S01236.comptfm +++| RJM PLI POSITION TO LAST INDEX 01370 M00S01237.comptfm +++| SBD T5 01371 M00S01238.comptfm +++| MJP IIE2 IF INSERT BEYOND LAST ENTRY 01372 M00S01239.comptfm +++| LDM CWEL,BA FILL OVERFLOW BUFFER 01373 M00S01240.comptfm +++| STD T6 01374 M00S01241.comptfm +++| SHN 2 01375 M00S01242.comptfm +++| RAD T6 01376 M00S01243.comptfm +++| SHN 1 01377 M00S01244.comptfm +++| STD T6 01378 M00S01245.comptfm +++| MMOVE ,BP,,T7,,T6 01379 M00S01246.comptfm +++| SOM CWNE,BA ADJUST HEADER CONTROL WORD 01380 M00S01247.comptfm +++| LDM CWEL,BA 01381 M00S01248.comptfm +++| RAM CWUW,BA 01382 M00S01249.comptfm +++| LDD T5 RESET BUFFER POINTER 01383 M00S01250.comptfm +++| STD BP 01384 M00S01251.comptfm +++| LDC IIE2 01385 M00S01252.comptfm +++| STM IIEA 01386 M00S01253.comptfm +++| LDD T7 01387 M00S01254.comptfm +++| STM IIED 01388 M00S01255.comptfm +++| IIE1 RJM IDE INSERT DATA ENTRY 01389 M00S01256.comptfm +++| RJM WRP WRITE RANDOM PRU 01390 M00S01257.comptfm +++| LDN 0 01391 M00S01258.comptfm +++| LJM IIEX RETURN 01392 M00S01259.comptfm +++| IIEA EQU *-1 (TO IIE2 IF GENERATING NEW INDEX BLOCKS) 01393 M00S01260.comptfm +++|
| Line S01261 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01394 M01S01261.ns2763 ---| IIE2 RJM WRP WRITE RANDOM PRU 01395 M01S01262.ns2763 ---| RJM GNL GET NEXT LINK 01396 M01S01263.ns2763 ---| ZJN IIE5 IF BLOCK NOT LINKED 01397 M01S01264.ns2763 ---| RJM GIB GET INITIAL BLOCK 01398 M01S01265.ns2763 ---| LDM CWUW,BA 01399 M01S01266.ns2763 ---| SBM CWEL,BA 01400 M01S01267.ns2763 ---| PJN IIE6 IF ROOM IN THIS BLOCK 01401 M01S01268.ns2763 ---| RJM GPL GET PREVIOUS LINK 01402 M01S01269.ns2763 ---| NJN IIE4 IF BLOCK LINKED 01403 M01S01270.ns2763 ---| IIE3 ERROR CLE *CATALOG LINKAGE ERROR.* 01404 M01S01271.ns2763 ---| 01405 M01S01272.ns2763 ---| IIE4 RJM GIB GET INITIAL BLOCK 01406 M01S01273.ns2763 ---| IIE5 LDM CWRT,BA SET RECORD TYPE/LEVEL 01407 M01S01274.ns2763 ---| STM IIEB 01408 M01S01275.ns2763 ---| LDM CWEL,BA SET ENTRY LENGTH 01409 M01S01276.ns2763 ---| STM IIEC 01410 M01S01277.ns2763 ---| LDN CWRI DECLARE LINKAGE BYTE 01411 M01S01278.ns2763 ---| RJM ABC ADD BLOCK TO CHAIN 01412 M01S01279.ns2763 ---| LDC ** 01413 M01S01280.ns2763 ---| IIEB EQU *-1 (RECORD TYPE/LEVEL) 01414 M01S01281.ns2763 ---| STM CWRT,BA 01415 M01S01282.ns2763 ---| LDC ** 01416 M01S01283.ns2763 ---| IIEC EQU *-1 (ENTRY LENGTH) 01417 M01S01284.ns2763 ---| STM CWEL,BA 01418 M01S01285.ns2763 ---| IIE6 LDM CWFE,BA POSITION TO FIRST INDEX 01419 M01S01286.ns2763 ---| RJM MBP MOVE BUFFER POINTER 01420 M01S01287.ns2763 ---| LDC ** 01421 M01S01288.ns2763 ---| IIED EQU *-1 (FWA OF BUFFER CONTAINING DATA) 01422 M01S01289.ns2763 ---| STD PB 01423 M01S01290.ns2763 ---| RJM IDE INSERT DATA ENTRY 01424 M01S01291.ns2763 ---| RJM WRP WRITE RANDOM PRU 01425 M01S01292.ns2763 ---| LDC IIEX 01426 M01S01293.ns2763 ---| STM IIEA 01427 M01S01294.ns2763 ---| LJM IIEX RETURN 01428 M00S01295.comptfm +++| 01429 M00S01296.comptfm +++| ABC$ EQU 1 DEFINE ABC - ADD BLOCK TO CHAIN 01430 M00S01297.comptfm +++| GEP$ EQU 1 DEFINE GEP - GENERATE EMPTY PRU 01431 M00S01298.comptfm +++| GNL$ EQU 1 DEFINE GNL - GET NEXT BLOCK LINK 01432 M00S01299.comptfm +++| GPL$ EQU 1 DEFINE GPL - GET PREVIOUS BLOCK LINK 01433 M00S01300.comptfm +++| IDE$ EQU 1 DEFINE IDE - INSERT DATA ENTRY 01434 M00S01301.comptfm +++| LNB$ EQU 1 DEFINE LNB - LINK NEXT BLOCK 01435 M00S01302.comptfm +++| PLI$ EQU 1 DEFINE PLI - POSITION TO LAST INDEX 01436 M00S01303.comptfm +++| WES$ EQU 1 DEFINE WES - WRITE EOR/EOI SEQUENCE 01437 M00S01304.comptfm +++| IIE$ ENDIF 01438 M00S01305.comptfm +++| PCE$ IF DEF,PCE$ 01439 M00S01306.comptfm +++| PCE SPACE 4,10 01440 M00S01307.comptfm +++|** PCE - PURGE CATALOG/ADMIT ENTRIES. 01441 M00S01308.comptfm +++|* 01442 M00S01309.comptfm +++|* ENTRY (CPCB - CPCB+4) = CATALOG POINTERS. 01443 M00S01310.comptfm +++|* 01444 M00S01311.comptfm +++|* USES RI - RI+1. 01445 M00S01312.comptfm +++|*
| Line S01313 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01446 M01S01313.ns2763 ---|* CALLS DDE, DLB, EDT, RRP, TBA, UIS, 01447 M01S01314.ns2763 ---|* VSP, WRP.
| Line S00076 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01448 M01S00076.ns2763 +++|* CALLS DDE, DLB, RRP, UIS, VSP, WRP. 01449 M00S01315.comptfm +++|*
| Line S01316 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01450 M01S01316.ns2763 ---|* CLEAR, ERROR, LDA, RESTP.
| Line S00077 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01451 M01S00077.ns2763 +++|* MACROS CLEAR, ERROR, LDA, RESTP. 01452 M00S01317.comptfm +++| 01453 M00S01318.comptfm +++| 01454 M00S01319.comptfm +++| PCE SUBR ENTRY/EXIT 01455 M00S01320.comptfm +++| RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 01456 M00S01321.comptfm +++| PCE1 LDA CBAE,BP SET FIRST ADMIT BLOCK 01457 M00S01322.comptfm +++| ZJP PCE3 IF NO ADMIT BLOCKS 01458 M00S01323.comptfm +++| PCE2 STD RI+1 DELINK ADMIT BLOCK(S) 01459 M00S01324.comptfm +++| SHN -14 01460 M00S01325.comptfm +++| STD RI 01461 M00S01326.comptfm +++| LDC BUF0 01462 M00S01327.comptfm +++| STD BA 01463 M00S01328.comptfm +++| RJM RRP READ RANDOM PRU (ADMIT)
| Line S01329 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01464 M01S01329.ns2763 ---| LDA CWRI,BA
| Line S00078 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01465 M01S00078.ns2763 +++| LDM CWRI+1,BA 01466 M00S01330.comptfm +++| STM PCEA+1
| Line S01331 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01467 M01S01331.ns2763 ---| SHN -14
| Line S00079 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01468 M01S00079.ns2763 +++| LDM CWRI,BA 01469 M01S00080.ns2763 +++| LPN 77 01470 M00S01332.comptfm +++| LMC LDCI 01471 M00S01333.comptfm +++| STM PCEA 01472 M00S01334.comptfm +++| RJM DLB DELINK BLOCK 01473 M00S01335.comptfm +++| LDC ** 01474 M00S01336.comptfm +++| PCEA EQU *-2 (NEXT BLOCK RANDOM INDEX) 01475 M00S01337.comptfm +++| NJN PCE2 IF LINKED ADMIT BLOCK 01476 M00S01338.comptfm +++| RESTP CPCB RESTORE BUFFER POINTERS (CATALOG) 01477 M00S01339.comptfm +++| PCE3 LDM CBNC,BP SET NEXT CATALOG (MULTI-FILE) 01478 M00S01340.comptfm +++| SHN 14 01479 M00S01341.comptfm +++| STM CPCB+2 01480 M00S01342.comptfm +++| SHN -14 01481 M00S01343.comptfm +++| STM CPCB+3 01482 M00S01344.comptfm +++| LDM CBNC+1,BP 01483 M00S01345.comptfm +++| STM CPCB+4 01484 M00S01346.comptfm +++| CLEAR ,BP,TCEL*10D CLEAR ENTRY (CATALOG) 01485 M00S01347.comptfm +++| LDM CWEL,BA 01486 M00S01348.comptfm +++| RAM CWUW,BA 01487 M00S01349.comptfm +++| SOM CWNE,BA 01488 M00S01350.comptfm +++| ZJN PCE6 IF EMPTY CATALOG BLOCK 01489 M00S01351.comptfm +++| RJM WRP WRITE RANDOM PRU 01490 M00S01352.comptfm +++| PCE4 RESTP CPCB RESTORE CATALOG POINTERS (NEXT) 01491 M00S01353.comptfm +++| LDD CI 01492 M00S01354.comptfm +++| ZJP PCEX IF END OF SET 01493 M00S01355.comptfm +++| RJM RRP READ RANDOM PRU 01494 M00S01356.comptfm +++| RJM VSP VERIFY/SET CATALOG POINTERS
| Line S01357 Modification History | |
|---|---|
M01 (Removed by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01495 M01S01357.nos252 ---| MJN PCE5 IF INVALID POINTER
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | nos252 |
Seq # *Modification Id* Act ----------------------------+ 01496 M01S00028.nos252 +++| MJN PCE5 IF INCORRECT POINTER 01497 M00S01358.comptfm +++| LDD BP SAVE BUFFER POINTER 01498 M00S01359.comptfm +++| STM CPCB+1 01499 M00S01360.comptfm +++| LJM PCE1 CONTINUE CATALOG SET 01500 M00S01361.comptfm +++| 01501 M00S01362.comptfm +++| PCE5 ERROR ECD *ERROR IN CATALOG DATA.* 01502 M00S01363.comptfm +++| 01503 M00S01364.comptfm +++| PCE6 LDM CWBI,BA DELETE USERS CATALOG BLOCK 01504 M00S01365.comptfm +++| LPN 77 01505 M00S01366.comptfm +++| LMC LDCI 01506 M00S01367.comptfm +++| STM PCEC 01507 M00S01368.comptfm +++| LDM CWBI+1,BA 01508 M00S01369.comptfm +++| STM PCEC+1 01509 M00S01370.comptfm +++| LDM CWRI,BA 01510 M00S01371.comptfm +++| LPN 77 01511 M00S01372.comptfm +++| LMC LDCI 01512 M00S01373.comptfm +++| STM PCED 01513 M00S01374.comptfm +++| LDM CWRI+1,BA 01514 M00S01375.comptfm +++| STM PCED+1 01515 M00S01376.comptfm +++| RJM DLB DELINK BLOCK 01516 M00S01377.comptfm +++| LDC ** 01517 M00S01378.comptfm +++| PCEC EQU *-2 01518 M00S01379.comptfm +++| NJP PCE4 IF NOT FIRST BLOCK OF CHAIN 01519 M00S01380.comptfm +++| LDC PBUN SET KEY ADDRESS 01520 M00S01381.comptfm +++| STD KA 01521 M00S01382.comptfm +++| RJM UIS USERNAME INDEX SEARCH 01522 M00S01383.comptfm +++| ZJN PCE7 IF USERNAME FOUND 01523 M00S01384.comptfm +++| ERROR EID *ERROR IN INDEX DATA.* 01524 M00S01385.comptfm +++| 01525 M00S01386.comptfm +++| PCE7 LDM UBCI,BP CLEAR CATALOG POINTER 01526 M00S01387.comptfm +++| SCN 77 01527 M00S01388.comptfm +++| STM UBCI,BP 01528 M00S01389.comptfm +++| LDN 0 01529 M00S01390.comptfm +++| STM UBCI+1,BP 01530 M00S01391.comptfm +++| LDC ** CHECK FOR INDEX UPDATE 01531 M00S01392.comptfm +++| PCED EQU *-2 (RANDOM INDEX TO NEXT CATALOG BLOCK) 01532 M00S01393.comptfm +++| ZJN PCE9 IF LAST CATALOG BLOCK 01533 M00S01394.comptfm +++| STM UBCI+1,BP 01534 M00S01395.comptfm +++| SHN -14 01535 M00S01396.comptfm +++| RAM UBCI,BP 01536 M00S01397.comptfm +++| PCE8 RJM WRP WRITE RANDOM PRU 01537 M00S01398.comptfm +++| LJM PCE4 CHECK FOR MULTI-FILE 01538 M00S01399.comptfm +++| 01539 M00S01400.comptfm +++| PCE9 RJM DDE DELETE DATA ENTRY 01540 M00S01401.comptfm +++| LDM CWNE,BA 01541 M00S01402.comptfm +++| NJN PCE8 IF SECONDARY INDEX NOT EMPTY 01542 M00S01403.comptfm +++| RJM DLB DELINK BLOCK 01543 M00S01404.comptfm +++| RESTP CPPI SWAP TO PRIMARY INDEX BUFFER 01544 M00S01405.comptfm +++| RJM DDE DELETE DATA ENTRY 01545 M00S01406.comptfm +++| LDM CWNE,BA 01546 M00S01407.comptfm +++| NJN PCE8 IF PRIMARY INDEX NOT EMPTY 01547 M00S01408.comptfm +++| RJM DLB DELETE DATA BLOCK 01548 M00S01409.comptfm +++| LJM PCEX RETURN 01549 M00S01410.comptfm +++| DDE$ EQU 1 DEFINE DDE - DELETE DATA ENTRY 01550 M00S01411.comptfm +++| DLB$ EQU 1 DEFINE DLB - DELINK BLOCK 01551 M00S01412.comptfm +++| UIS$ EQU 1 DEFINE UIS - USERNAME INDEX SEARCH 01552 M00S01413.comptfm +++| PCE$ ENDIF 01553 M00S01414.comptfm +++| RSP$ IF DEF,RSP$ 01554 M00S01415.comptfm +++| RSP SPACE 4,10 01555 M00S01416.comptfm +++|** RSP - RELEASE VSN(S) TO SCRATCH POOL. 01556 M00S01417.comptfm +++|* 01557 M00S01418.comptfm +++|* ENTRY (CPSB - CPSB+4) = *TMST* POINTERS. 01558 M00S01419.comptfm +++|* (CPSI - CPSI+4) = VSN INDEX BUFFER POINTERS. 01559 M00S01420.comptfm +++|* 01560 M00S01421.comptfm +++|* USES KA, RI - RI+1. 01561 M00S01422.comptfm +++|*
| Line S01423 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01562 M01S01423.274l797 ---|* CALLS MBP, RRP, VIS, VSP, WRP.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01563 M02S00008.ns2763 ---|* CALLS MBP, RRP, SSP, VIS, VSP, WRP.
| Line S00081 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01564 M01S00081.ns2763 +++|* CALLS RRP, SSP, VIS, WRP. 01565 M00S01424.comptfm +++|*
| Line S01425 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01566 M01S01425.ns2763 ---|* MACROS ERROR, LDA, MMOVE, RESTP, SAVEP.
| Line S00082 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01567 M01S00082.ns2763 +++|* MACROS CLEAR, ERROR, MMOVE, MONITOR, RESTP, SAVEP. 01568 M00S01426.comptfm +++| 01569 M00S01427.comptfm +++| 01570 M00S01428.comptfm +++| RSP SUBR ENTRY/EXIT 01571 M00S01429.comptfm +++| RESTP CPSI RESTORE BUFFER POINTERS (VSN INDEX)
| Line S01430 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01572 M01S01430.ns2763 ---| MMOVE ,BP,PVSN,,VSKL
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01573 M01S00009.274l797 +++| LDM VBST+1,BP GET STATUS 01574 M01S00010.274l797 +++| SHN -5 01575 M01S00011.274l797 +++| LPN ACVS/40+CTVS/40 DETERMINE TAPE TYPE 01576 M01S00012.274l797 +++| RJM SSP SET SCRATCH POOL ADDRESS 01577 M01S00013.274l797 +++| LDM RSPB,T3 SET ADDRESS OF COPY OF SCRATCH POOL WORD 01578 M01S00014.274l797 +++| STM RSPA 01579 M01S00015.274l797 +++| STD T2 01580 M01S00016.274l797 +++| LDM 3,T2 SAVE SCRATCH COUNT 01581 M01S00017.274l797 +++| STM PVSN+3 01582 M01S00018.274l797 +++| LDM 4,T2 01583 M01S00019.274l797 +++| STM PVSN+4
| Line S01431 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01584 M01S01431.ns2763 ---| RSP1 AOM PVSN+4 INCREMENT SCRATCH COUNT 01585 M01S01432.ns2763 ---| SHN -14 01586 M01S01433.ns2763 ---| RAM PVSN+3 01587 M01S01434.ns2763 ---| LDC PESN
| Line S00083 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01588 M01S00083.ns2763 +++| RSP0 LDM VBST+1,BP 01589 M01S00084.ns2763 +++| LPC SVVS 01590 M01S00085.ns2763 +++| STM RSPF 01591 M01S00086.ns2763 +++| MMOVE VBES,BP,PVSN,,VSKL 01592 M01S00087.ns2763 +++| RSP1 LDC PESN 01593 M00S01435.comptfm +++| STD KA
| Line S01436 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01594 M01S01436.ns2763 ---| MMOVE VBNV,BP,,KA,VSKL
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01595 M01S00088.ns2763 +++| MMOVE VBNV,BP,,KA,VSKL SAVE NEXT VSN 01596 M00S01437.comptfm +++| LDN 0 RELEASE VSN(S) 01597 M00S01438.comptfm +++| STM VBCI,BP 01598 M00S01439.comptfm +++| STM VBCI+1,BP
| Line S01440 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01599 M01S01440.ns2763 ---| CLEAR VBFV,BP,10D
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01600 M01S00089.ns2763 +++| CLEAR VBFV,BP,2*10D 01601 M00S01441.comptfm +++| LDA VBST,BP 01602 M00S01442.comptfm +++| LPC 777777&RTVS&ASVS&EOIV&VIVS
| Line S01443 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01603 M01S01443.ns2763 ---| LMC ASVS 01604 M00S01444.comptfm +++| STM VBST+1,BP 01605 M00S01445.comptfm +++| SHN -14 01606 M00S01446.comptfm +++| STM VBST,BP 01607 M00S01447.comptfm +++| LDM VBRD,BP CLEAR RELEASE DATE 01608 M00S01448.comptfm +++| SCN 77 01609 M00S01449.comptfm +++| STM VBRD,BP
| Line S01450 Modification History | |
|---|---|
M01 (Removed by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01610 M01S01450.t5472 ---| LDC 0
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | t5472 |
Seq # *Modification Id* Act ----------------------------+ 01611 M01S00011.t5472 +++| LDN 0 01612 M00S01451.comptfm +++| STM VBRD+1,BP
| Line S01452 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01613 M01S01452.ns2763 ---| LDI KA
| Line S00090 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01614 M01S00090.ns2763 +++| LDC ** 01615 M01S00091.ns2763 +++| RSPF EQU *-1 (SYSTEM TAPE FLAG) 01616 M01S00092.ns2763 +++| NJN RSP1.1 IF SYSTEM TAPE 01617 M01S00093.ns2763 +++| MMOVE ,KA,VBNV,BP,VSKL RESTORE NEXT VSN 01618 M01S00094.ns2763 +++| LDN ASVS/1S12 SET AVAILABLE SCRATCH 01619 M01S00095.ns2763 +++| RAM VBST,BP 01620 M01S00096.ns2763 +++| AOM PVSN+4 INCREMENT SCRATCH COUNT 01621 M01S00097.ns2763 +++| SHN -14 01622 M01S00098.ns2763 +++| RAM PVSN+3 01623 M01S00099.ns2763 +++| RSP1.1 LDI KA 01624 M00S01453.comptfm +++| ZJN RSP2 IF END OF SET 01625 M00S01454.comptfm +++| RJM WRP WRITE RANDOM PRU 01626 M00S01455.comptfm +++| RJM VIS VSN INDEXED SEARCH
| Line S01456 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01627 M01S01456.ns2763 ---| ZJP RSP1 IF VSN FOUND 01628 M01S01457.ns2763 ---| ERROR EID *ERROR IN INDEX DATA.*
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01629 M01S00100.ns2763 +++| NJN RSP1.2 IF VSN NOT FOUND 01630 M01S00101.ns2763 +++| LDM RSPF 01631 M01S00102.ns2763 +++| ZJP RSP1 IF SCRATCH TAPE PROCESSED 01632 M01S00103.ns2763 +++| UJP RSP0 SET SYSTEM/SCRATCH FLAG 01633 M00S01458.comptfm +++|
| Line S01459 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01634 M01S01459.274l797 ---| RSP2 MMOVE RSPA,,VBNV,BP,VSKL
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
M02 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01635 M02S00020.ns2763 ---| RSP2 LDC ** ADDRESS OF FIRST SCRATCH VSN FOR TAPE TYPE
| Line S00104 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01636 M01S00104.ns2763 +++| RSP1.2 ERROR EID *ERROR IN INDEX DATA.* 01637 M01S00105.ns2763 +++| 01638 M01S00106.ns2763 +++| RSP2 LDM RSPF 01639 M01S00107.ns2763 +++| NJN RSP2.1 IF SYSTEM TAPE ONLY - NO SCRATCH 01640 M01S00108.ns2763 +++| LDC ** ADDRESS OF FIRST SCRATCH VSN FOR TAPE TYPE
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01641 M01S00021.274l797 +++| RSPA EQU *-1 01642 M01S00022.274l797 +++| STD T1 01643 M01S00023.274l797 +++| MMOVE ,,VBNV,BP,VSKL
| Line S01460 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01644 M01S01460.ns2763 ---| RJM WRP WRITE RANDOM PRU
| Line S00109 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01645 M01S00109.ns2763 +++| RSP2.1 RJM WRP WRITE RANDOM PRU 01646 M00S01461.comptfm +++| RESTP CPSB RESTORE *TMST* POINTERS 01647 M00S01462.comptfm +++| RJM RRP READ RANDOM PRU (TMST)
| Line S00110 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01648 M01S00110.ns2763 +++| LDM RSPF 01649 M01S00111.ns2763 +++| NJN RSP3 IF SYSTEM TAPE ONLY
| Line S01463 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01650 M01S01463.274l797 ---| MMOVE PVSN,,SBSV,BP,10D
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01651 M01S00024.274l797 +++| LDM SCRP ADDRESS OF TMST SCRATCH WORD FOR TAPE TYPE 01652 M01S00025.274l797 +++| ADD BP 01653 M01S00026.274l797 +++| STD T2 01654 M01S00027.274l797 +++| MMOVE PVSN,,,,10D 01655 M00S01464.comptfm +++| RJM WRP WRITE RANDOM PRU 01656 M00S01465.comptfm +++| LDN ZERL ENTER TMS EVENT (SCRATCH) 01657 M00S01466.comptfm +++| CRD CM 01658 M00S01467.comptfm +++| LDN ESVB 01659 M00S01468.comptfm +++| STD CM+4 01660 M00S01469.comptfm +++| MONITOR EATM
| Line S01470 Modification History | |
|---|---|
M01 (Removed by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01661 M01S01470.ns2763 ---| LJM RSPX RETURN
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | ns2763 |
Seq # *Modification Id* Act ----------------------------+ 01662 M01S00112.ns2763 +++| RSP3 LJM RSPX RETURN 01663 M00S01471.comptfm +++|
| Line S01472 Modification History | |
|---|---|
M01 (Removed by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01664 M01S01472.274l797 ---| RSPA BSSZ VSKL/2 LINK VSN FOR SCRATCH CHAIN
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 274l797 |
Seq # *Modification Id* Act ----------------------------+ 01665 M01S00028.274l797 +++| 01666 M01S00029.274l797 +++| RSPB BSS 0 ADDRESSES OF COPIES OF SCRATCH POOL WORDS
Proceed to Part 1
cdc/nos2.source/opl.opl871/common/comptfm.txt · Last modified: by 127.0.0.1