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