Seq # *Modification Id* Act
----------------------------+
Line S00095 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
01931 M01S00095.ims6 +++| RCC4 LJM RCC1 ALLOCATE NEXT CATALOG TRACK
01932 M00S01781.ims +++| RPC SPACE 4,15
01933 M00S01782.ims +++|** RPC - RELEASE PERMANENT FILE CHAINS.
01934 M00S01783.ims +++|*
01935 M00S01784.ims +++|* ENTRY (T5) = EST ORDINAL.
01936 M00S01785.ims +++|* (LT) = LABEL TRACK.
01937 M00S01786.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
01938 M00S01787.ims +++|* (WB - WB+4) = *STLL* WORD OF MST.
01939 M00S01788.ims +++|*
01940 M00S01789.ims +++|* USES BY, TL, T5, T6, CM - CM+4, CN - CN+4.
01941 M00S01790.ims +++|*
01942 M00S01791.ims +++|* USES CAT, CQF.
01943 M00S01792.ims +++|*
01944 M00S01793.ims +++|* MACROS MONITOR, SETMS.
01945 M00S01794.ims +++|
01946 M00S01795.ims +++|
01947 M00S01796.ims +++| RPC5 LDN 0 CLEAR USER COUNT
01948 M00S01797.ims +++| STD WB+3
01949 M00S01798.ims +++| LDD CP CLEAR MESSAGE AT CP
01950 M00S01799.ims +++| ADN MS2W
01951 M00S01800.ims +++| CWD WB+3
01952 M00S01801.ims +++|
01953 M00S01802.ims +++| RPC SUBR ENTRY/EXIT
01954 M00S01803.ims +++| LDD ES+4
01955 M00S01804.ims +++| SHN 3
01956 M00S01805.ims +++| ADK TDGL
01957 M00S01806.ims +++| CRD CN
01958 M00S01807.ims +++| ADN TRLL-TDGL
01959 M00S01808.ims +++| RJM CAT CALCULATE FWA OF TRT
01960 M00S01809.ims +++| STM RPCA+1
01961 M00S01810.ims +++| SHN -14
01962 M00S01811.ims +++| RAM RPCA
01963 M00S01812.ims +++| LDD CN+2 SET TRT LENGTH
01964 M00S01813.ims +++| STD TL
01965 M00S01814.ims +++| SETMS IO,(DF,NS)
01966 M00S01815.ims +++| LDN 0
01967 M00S01816.ims +++| RPC1 STD BY CLEAR BYTE COUNT
01968 M00S01817.ims +++| SOD TL
01969 M00S01818.ims +++| MJN RPC5 IF END OF TRT
01970 M00S01819.ims +++|
01971 M00S01820.ims +++| RPCA ADC *
01972 M00S01821.ims +++| CRD CN READ TRT WORD
01973 M00S01822.ims +++| RPC2 LDD CN+4
01974 M00S01823.ims +++| LPC 7400 EXTRACT PRESERVED FILE FLAGS
01975 M00S01824.ims +++| SHN 1
01976 M00S01825.ims +++| STD CN+4
01977 M00S01826.ims +++| ZJN RPC1 IF NONE SET
01978 M00S01827.ims +++| SHN 5
01979 M00S01828.ims +++| PJN RPC4 IF NOT PRESERVED FILE CHAIN
01980 M00S01829.ims +++| RJM CQF CHECK FOR QUEUED FILES
01981 M00S01830.ims +++| ZJN RPC4 IF QUEUE, DAYFILE, MRT OR DAT TRACK
01982 M00S01831.ims +++| LDD T5
01983 M00S01832.ims +++| STD CM+1 SET EST ORDINAL
01984 M00S01833.ims +++| LDD T6
01985 M00S01834.ims +++| STD CM+2 TRACK NUMBER
01986 M00S01835.ims +++| LMD LT
01987 M00S01836.ims +++| NJN RPC3 IF NOT LABEL TRACK
01988 M00S01837.ims +++| STD CM+3
01989 M00S01838.ims +++| LDD LT DROP ALL TRACKS AFTER LABEL TRACK
01990 M00S01839.ims +++| LPC 3777
01991 M00S01840.ims +++| STD CM+2
01992 M00S01841.ims +++| RPC3 MONITOR DTKM
01993 M00S01842.ims +++| RPC4 AOD BY ADVANCE BYTE COUNT
01994 M00S01843.ims +++| UJN RPC2 LOOP FOR ALL BYTES
01995 M00S01844.ims +++| RPT SPACE 4,15
01996 M00S01845.ims +++|** RPT - RESERVE PRESERVED FILE TRACK.
01997 M00S01846.ims +++|*
01998 M00S01847.ims +++|* ENTRY (A) = ADDRESS OF SYSTEM SECTOR NAME.
01999 M00S01848.ims +++|*
02000 M00S01849.ims +++|* EXIT (A) = TRACK RESERVED.
02001 M00S01850.ims +++|*
Line S01851 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02002 M01S01851.ims6 ---|* USES T1, T2, T6, CM - CM+4.
Line S00096 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02003 M01S00096.ims6 +++|* USES TA, T1, T2, T6, CM - CM+4.
02004 M00S01852.ims +++|*
02005 M00S01853.ims +++|* CALLS DFT, STB, WSS, WVE.
02006 M00S01854.ims +++|*
02007 M00S01855.ims +++|* MACROS ENDMS, MONITOR, SETMS.
02008 M00S01856.ims +++|
02009 M00S01857.ims +++|
02010 M00S01858.ims +++| RPT SUBR ENTRY/EXIT
02011 M00S01859.ims +++| STM RPTA
02012 M00S01860.ims +++| RPT1 LDC 500 PRESET INDEX
02013 M00S01861.ims +++| STD T1
02014 M00S01862.ims +++| RPT2 LDN 0 CLEAR SYSTEM SECTOR
02015 M00S01863.ims +++| STM BFMS+1,T1
02016 M00S01864.ims +++| SOD T1
02017 M00S01865.ims +++| NJN RPT2 IF NOT END OF SECTOR
02018 M00S01866.ims +++| LDD MA
02019 M00S01867.ims +++| CWM *,ON
02020 M00S01868.ims +++| RPTA EQU *-1
02021 M00S01869.ims +++| SBN 1 MOVE SYSTEM SECTOR NAME TO BUFFER
02022 M00S01870.ims +++| CRM FNSS,ON
02023 M00S01871.ims +++| LDN ZERL REQUEST TRACK
02024 M00S01872.ims +++| CRD CM
02025 M00S01873.ims +++| LDD T5 SET EST ORDINAL IN REQUEST
02026 M00S01874.ims +++| STD CM+1
02027 M00S01875.ims +++| MONITOR RTCM
02028 M00S01876.ims +++| LDD CM+4 SET TRACK
02029 M00S01877.ims +++| STD T6
02030 M00S01878.ims +++| ZJN RPTX IF TRACK NOT ASSIGNED
02031 M00S01879.ims +++| SETMS IO,NS
02032 M00S01880.ims +++| RJM WSS WRITE SYSTEM SECTOR
Line S01881 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02033 M01S01881.ims6 ---| MJN RPT3 IF PARITY ERROR
02034 M01S01882.ims6 ---| LDD T6 SET FIRST TRACK OF CHAIN
Line S00097 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02035 M01S00097.ims6 +++| MJN RPT4 IF PARITY ERROR
02036 M01S00098.ims6 +++| LDN VERC
02037 M01S00099.ims6 +++| STD TA
02038 M01S00100.ims6 +++| RPT3 LDD T6 SET FIRST TRACK
02039 M00S01883.ims +++| STD T2
02040 M00S01884.ims +++| LDC BFMS WRITE AND VERIFY WITH EOI SECTORS
02041 M00S01885.ims +++| RJM WVE
Line S01886 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02042 M01S01886.ims6 ---| NJN RPT3 IF WRITE / VERIFY ERRORS
Line S00101 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02043 M01S00101.ims6 +++| NJN RPT4 IF WRITE / VERIFY ERRORS
02044 M00S01887.ims +++| LDD T5
02045 M00S01888.ims +++| STD CM+1 SET EST ORDINAL
02046 M00S01889.ims +++| LDD T6
02047 M00S01890.ims +++| LPC 3777 SET TRACK
02048 M00S01891.ims +++| STD CM+2
02049 M00S01892.ims +++| LDN FSMS SET SECTOR
02050 M00S01893.ims +++| STD CM+3
02051 M00S01894.ims +++| MONITOR DTKM SET EOI IN TRT
02052 M00S01895.ims +++| LDN SPFS
02053 M00S01896.ims +++| RJM STB SET FILE PRESERVED
02054 M00S01897.ims +++| LDD T6
02055 M00S01898.ims +++| LJM RPTX RETURN
02056 M00S01899.ims +++|
02057 M00S01900.ims +++|* PROCESS BAD TRACK.
02058 M00S01901.ims +++|
Line S01902 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02059 M01S01902.ims6 ---| RPT3 LDD T6 DROP AND FLAW TRACK
02060 M01S01903.ims6 ---| RJM DFT
Line S00102 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02061 M01S00102.ims6 +++| RPT4 LDD T6 DROP AND FLAW TRACK
02062 M01S00103.ims6 +++| RJM DFT
02063 M01S00104.ims6 +++| NJN RPT3 IF RETRY DUE TO VERIFICATION ERRORS
02064 M00S01904.ims +++| LJM RPT1 RESERVE ANOTHER TRACK
02065 M00S01905.ims +++| SMD SPACE 4,15
02066 M00S01906.ims +++|** SMD - SET MASS STORAGE DEVICE.
02067 M00S01907.ims +++|*
02068 M00S01908.ims +++|* ENTRY (A) = EST ORDINAL.
02069 M00S01909.ims +++|*
02070 M00S01910.ims +++|* EXIT (T5) = EST ORDINAL.
02071 M00S01911.ims +++|* (LT) = LABEL TRACK.
02072 M00S01912.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02073 M00S01913.ims +++|* (WB - WB+4) = *STLL* WORD OF MST.
02074 M00S01914.ims +++|*
02075 M00S01915.ims +++|* USES CM - CM+4, CN - CN+4, FN - FN+4.
02076 M00S01916.ims +++|*
02077 M00S01917.ims +++|* CALLS ABT, CAT, IPF, RPT, SLI, SME, WDS, WSS.
02078 M00S01918.ims +++|*
02079 M00S01919.ims +++|* MACROS ENDMS, MONITOR, SETMS.
02080 M00S01920.ims +++|
02081 M00S01921.ims +++|
02082 M00S01922.ims +++| SMD SUBR ENTRY/EXIT
02083 M00S01923.ims +++| RJM SME SET MASS STORAGE EQUIPMENT
02084 M00S01924.ims +++| RJM SLI SET LOCAL UTILITY INTERLOCK
02085 M00S01925.ims +++| LDD ES+4
02086 M00S01926.ims +++| SHN 3
02087 M00S01927.ims +++| ADN ALGL
02088 M00S01928.ims +++| CRD CN
02089 M00S01929.ims +++| ADN MDGL-ALGL
02090 M00S01930.ims +++| CRD FN
02091 M00S01931.ims +++| ADN STLL-MDGL READ MST STATUS WORD
02092 M00S01932.ims +++| CRD WB
02093 M00S01933.ims +++| LDD FN SET DAT INDEX
02094 M00S01934.ims +++| LPC 377
02095 M00S01935.ims +++| STD DI
02096 M00S01936.ims +++| LDD CN+1 CHECK LABEL TRACK
02097 M00S01937.ims +++| STD LT
02098 M00S01938.ims +++| NJN SMDX IF DEFINED
02099 M00S01939.ims +++| RJM IPF INITIALIZE PACK FLAWS
02100 M00S01940.ims +++| LDC NLAB
02101 M00S01941.ims +++| RJM RPT RESERVE LABEL TRACK
02102 M00S01942.ims +++| STD CN+1
02103 M00S01943.ims +++| STD LT SAVE LABEL TRACK
02104 M00S01944.ims +++| LDD ES+4
02105 M00S01945.ims +++| SHN 3
02106 M00S01946.ims +++| ADN ALGL
02107 M00S01947.ims +++| CWD CN UPDATE MST
02108 M00S01948.ims +++| LDD LT
02109 M00S01949.ims +++| ZJN SMD4 IF LABEL TRACK NOT ASSIGNED
02110 M00S01950.ims +++| LMC 4000
02111 M00S01951.ims +++| ZJN SMD3 IF LABEL ON TRACK ZERO
02112 M00S01952.ims +++| LDN ZERL
02113 M00S01953.ims +++| CRD CN
02114 M00S01954.ims +++| SETMS IO,(DF,NS,SM)
02115 M00S01955.ims +++| SMD1 LDD ES+4
02116 M00S01956.ims +++| SHN 3
02117 M00S01957.ims +++| ADN TRLL
02118 M00S01958.ims +++| RJM CAT CALCULATE FWA OF TRT
02119 M00S01959.ims +++| ADD CN+1
02120 M00S01960.ims +++| CRD FN
02121 M00S01961.ims +++| SMD2 LDM FN,CN CHECK TRACK BYTE
02122 M00S01962.ims +++| LMC 3777
02123 M00S01963.ims +++| ZJN SMD5 IF TRACK FLAWED
02124 M00S01964.ims +++| LDD CN+2
02125 M00S01965.ims +++| LMD LT
02126 M00S01966.ims +++| LPN 77
02127 M00S01967.ims +++| NJN SMD4 IF NOT LABEL TRACK
02128 M00S01968.ims +++| SMD3 LJM SMDX RETURN
02129 M00S01969.ims +++|
02130 M00S01970.ims +++| SMD4 LDC MESF
02131 M00S01971.ims +++| LJM ABT ABORT OPERATION
02132 M00S01972.ims +++|
02133 M00S01973.ims +++|* FLAG FLAWED TRACK IN SYSTEM SECTOR.
02134 M00S01974.ims +++|
02135 M00S01975.ims +++| SMD5 LDD CN+2 SET TRACK NUMBER
02136 M00S01976.ims +++| LMC 4000
02137 M00S01977.ims +++| STD T6
02138 M00S01978.ims +++| LDC 3777 FLAWED TRACK INDICATOR
02139 M00S01979.ims +++| STM FNSS
02140 M00S01980.ims +++| RJM WSS WRITE SYSTEM SECTOR
02141 M00S01981.ims +++| SMD6 LDC BFMS+WCSF
02142 M00S01982.ims +++| RJM WDS WRITE FLAW DATA TO ALL SECTORS
02143 M00S01983.ims +++| AOD T7
02144 M00S01984.ims +++| SBM SLM
02145 M00S01985.ims +++| NJN SMD6 IF NOT END OF TRACK
02146 M00S01986.ims +++| ENDMS
02147 M00S01987.ims +++| AOD CN+2 BUMP TRACK COUNT
02148 M00S01988.ims +++| AOD CN BUMP BYTE COUNT
02149 M00S01989.ims +++| LMN 4
02150 M00S01990.ims +++| ZJN SMD7 IF END OF TRT WORD
02151 M00S01991.ims +++| LJM SMD2 PROCESS NEXT TRACK
02152 M00S01992.ims +++|
02153 M00S01993.ims +++| SMD7 STD CN
02154 M00S01994.ims +++| AOD CN+1 BUMP WORD INDEX
02155 M00S01995.ims +++| LJM SMD1 GET NEXT TRT WORD
02156 M00S01996.ims +++| SPACE 4,10
02157 M00S01997.ims +++|* COMMON DECKS.
02158 M00S01998.ims +++|
02159 M00S01999.ims +++|
02160 M00S02000.ims +++|*CALL COMPACS
02161 M00S02001.ims +++|*CALL COMPSES
02162 M00S02002.ims +++| LIST X
02163 M00S02003.ims +++|*CALL COMPWVE
02164 M00S02004.ims +++| LIST *
02165 M00S02005.ims +++| SPACE 4,10
02166 M00S02006.ims +++| USE LITERALS
02167 M00S02007.ims +++| OVERFLOW OVLA,BUF
02168 M00S02008.ims +++| TITLE PRESET.
02169 M00S02009.ims +++| PRS SPACE 4,10
02170 M00S02010.ims +++|** PRS - PRESET PROGRAM.
02171 M00S02011.ims +++|*
02172 M00S02012.ims +++|* EXIT (PF) = 0.
02173 M00S02013.ims +++|* (LD) = MMF LINK DEVICE.
02174 M00S02014.ims +++|* (MI) = MACHINE INDEX.
02175 M00S02015.ims +++|* (DE) = DAT ENTRY COUNT.
02176 M00S02016.ims +++|* (T2) = FUNCTION TABLE INDEX.
02177 M00S02017.ims +++|* (CA - CA+1) = 0.
02178 M00S02018.ims +++|* (CN - CN+4) = *MMFL* WORD.
02179 M00S02019.ims +++|
02180 M00S02020.ims +++|
02181 M00S02021.ims +++| PRS SUBR ENTRY/EXIT
02182 M00S02022.ims +++| LDD CP
02183 M00S02023.ims +++| ADN STSW FETCH CP ERROR STATUS
02184 M00S02024.ims +++| CRD CM
02185 M00S02025.ims +++| LDD CM+1
Line S02026 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02186 M01S02026.ims6 ---| NJP ABT1 IF ERROR FLAG SET
Line S00105 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02187 M01S00105.ims6 +++| NJP ABT3 IF ERROR FLAG SET
02188 M00S02027.ims +++|* LDN 0
02189 M00S02028.ims +++| STD CA CLEAR DIRECT CELLS
02190 M00S02029.ims +++| STD CA+1
02191 M00S02030.ims +++| STD PF
02192 M00S02031.ims +++|
02193 M00S02032.ims +++|* SET LINK DEVICE PARAMETERS.
02194 M00S02033.ims +++|
02195 M00S02034.ims +++| LDC MMFL
02196 M00S02035.ims +++| CRD CN
02197 M00S02036.ims +++| LDD CN+1 SET LINK EQUIPMENT
02198 M00S02037.ims +++| LPC 777
02199 M00S02038.ims +++| STD LD
02200 M00S02039.ims +++| LDD CN+4 SET MACHINE INDEX
02201 M00S02040.ims +++| STD MI
02202 M00S02041.ims +++| LDD CN+3 SET MACHINE MASK
02203 M00S02042.ims +++| STM UDAA
02204 M00S02043.ims +++| LDD IR+2 CHECK REQUEST
02205 M00S02044.ims +++| LMN MMSF
02206 M00S02045.ims +++| NJN PRS2 IF NOT TO MODIFY MST-S
02207 M00S02046.ims +++| LDD LD
02208 M00S02047.ims +++| ZJN PRS2 IF NOT MMF ENVIRONMENT
02209 M00S02048.ims +++| SFA EST
02210 M00S02049.ims +++| ADK EQDE FETCH LINK DEVICE EST ENTRY
02211 M00S02050.ims +++| CRD CM
02212 M00S02051.ims +++| LDD CM+4 GET LABEL TRACK
02213 M00S02052.ims +++| SHN 3
02214 M00S02053.ims +++| ADN ALGL
02215 M00S02054.ims +++| CRD CM
02216 M00S02055.ims +++| LDD CM+1 SAVE LINK DEVICE LABEL TRACK
02217 M00S02056.ims +++| STD T6
02218 M00S02057.ims +++| LDN ETLT
02219 M00S02058.ims +++| STD T7
02220 M00S02059.ims +++| LDN RECS GET DAT ENTRY COUNT
02221 M00S02060.ims +++| RJM TED
02222 M00S02061.ims +++| ZJN PRS1 IF NO ERRORS
02223 M00S02062.ims +++| LJM GDS2 ABORT
02224 M00S02063.ims +++|
02225 M00S02064.ims +++| PRS1 LDD MA
02226 M00S02065.ims +++| CRD CM
02227 M00S02066.ims +++| LDD CM+4 SET DAT ENTRY COUNT
02228 M00S02067.ims +++| SHN -1
02229 M00S02068.ims +++| STD DE
02230 M00S02069.ims +++|
02231 M00S02070.ims +++|* CHECK ORIGIN TYPE.
02232 M00S02071.ims +++|
02233 M00S02072.ims +++| PRS2 LDD CP FETCH EJT ORDINAL
02234 M00S02073.ims +++| ADN TFSW
02235 M00S02074.ims +++| CRD CM
Line S00106 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02236 M01S00106.ims6 +++| SBN TFSW-JCIW GET SUBSYSTEM ID
02237 M01S00107.ims6 +++| CRD WB
02238 M00S02075.ims +++| SFA EJT,CM READ EJT
02239 M00S02076.ims +++| ADN SCLE
02240 M00S02077.ims +++| CRD CM
02241 M00S02078.ims +++| LDD CM CHECK ORIGIN TYPE
02242 M00S02079.ims +++| LPN 17
02243 M00S02080.ims +++| LMK SYOT
Line S02081 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02244 M01S02081.ims6 ---| NJN PRS3 IF NOT SYSTEM ORIGIN
02245 M01S02082.ims6 ---|
02246 M01S02083.ims6 ---|* PROCESS FUNCTION
02247 M01S02084.ims6 ---|
02248 M01S02085.ims6 ---| LDD IR+2
Line S00108 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02249 M01S00108.ims6 +++| NJN PRS4 IF NOT SYSTEM ORIGIN
02250 M01S00109.ims6 +++|
02251 M01S00110.ims6 +++|* SET ABORT CONDITIONS.
02252 M01S00111.ims6 +++|
02253 M01S00112.ims6 +++| LDD WB+2 CHECK SUBSYSTEM ID
02254 M01S00113.ims6 +++| LMC DSSI
02255 M01S00114.ims6 +++| NJN PRS3 IF NOT DEADSTART SEQUENCING JOB
02256 M01S00115.ims6 +++| LDC *
02257 M01S00116.ims6 +++| ORG *-1
02258 M01S00117.ims6 +++| LOC ABTB
02259 M01S00118.ims6 +++| UJN ABT1 CHECK DEVICE TYPE
02260 M01S00119.ims6 +++| LOC *O
02261 M01S00120.ims6 +++| STM ABTB SET DEADSTART SEQUENCING PATH
02262 M01S00121.ims6 +++| LDC ABTA
02263 M01S00122.ims6 +++| STM ABTA+1 FORCE PP HANG
02264 M01S00123.ims6 +++|
02265 M01S00124.ims6 +++|* PROCESS FUNCTION.
02266 M01S00125.ims6 +++|
02267 M01S00126.ims6 +++| PRS3 LDD IR+2
02268 M00S02086.ims +++| SHN 1 SET FUNCTION TABLE INDEX
02269 M00S02087.ims +++| STD T2
02270 M00S02088.ims +++| ERRNZ TFCNS-2 CODE DEPENDS ON VALUE
02271 M00S02089.ims +++| SBN TFCNL
Line S02090 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02272 M01S02090.ims6 ---| PJN PRS3 IF INCORRECT REQUEST
Line S00127 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02273 M01S00127.ims6 +++| PJN PRS4 IF INCORRECT REQUEST
02274 M00S02091.ims +++| LDM TFCN,T2
02275 M00S02092.ims +++| STM IMSA
02276 M00S02093.ims +++| LJM PRSX RETURN
02277 M00S02094.ims +++|
Line S02095 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02278 M01S02095.ims6 ---| PRS3 LDC PRSB * INCORRECT IMS REQUEST.*
Line S00128 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02279 M01S00128.ims6 +++| PRS4 LDC PRSB * INCORRECT IMS REQUEST.*
02280 M00S02096.ims +++| RJM DFM
02281 M00S02097.ims +++| LJM DPP DROP PP
02282 M00S02098.ims +++| SPACE 4,10
02283 M00S02099.ims +++| EJT$ EQU 0 DEFINE *COMPGFP* ACCESS TO EJT
02284 M00S02100.ims +++|*CALL COMPGFP
02285 M00S02101.ims +++|
02286 M00S02102.ims +++|
02287 M00S02103.ims +++| PRSB DATA C* INCORRECT IMS REQUEST.*
02288 M00S02104.ims +++| TFCN SPACE 4
02289 M00S02105.ims +++|** TFCN - FUNCTION PROCESSOR TABLE.
02290 M00S02106.ims +++|* ENTRY = 2 BYTES.
02291 M00S02107.ims +++|* INDEXED BY FUNCTION NUMBER * 2.
02292 M00S02108.ims +++|*
02293 M00S02109.ims +++|*T, 12/ ADDR, 12/ OVLN
02294 M00S02110.ims +++|* ADDR ADDRESS OF FUNCTION PROCESSOR.
02295 M00S02111.ims +++|* OVLN LAST CHARACTER OF OVERLAY NAME.
02296 M00S02112.ims +++|
02297 M00S02113.ims +++|
02298 M00S02114.ims +++| TFCN FCN
Line S02115 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02299 M01S02115.ims6 ---| FCN 0,PRS3 INCORRECT REQUEST
Line S00129 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02300 M01S00129.ims6 +++| FCN 0,PRS4 INCORRECT REQUEST
02301 M00S02116.ims +++| TFCNS EQU *O-TFCN
02302 M00S02117.ims +++| FCN INDF,IND INITIALIZE DEVICE
02303 M00S02118.ims +++| FCN EDTF,EDT EDIT DIRECT ACCESS FILES
02304 M00S02119.ims +++| FCN SFLF,SFL SET / CLEAR FLAWS
02305 M00S02120.ims +++| FCN CSDF,CSD CHECK SHARED DEVICE STATUS
02306 M00S02121.ims +++| FCN ILAF,ILA INITIALIZE LOCAL AREAS
02307 M00S02122.ims +++| FCN MMSF,MMS MODIFY MST-S
02308 M00S02123.ims +++| FCN CINF,CIN CLEAR INITIALIZE REQUESTS
02309 M00S02124.ims +++| FCN IDFF,IDF INITIALIZE DAYFILES
02310 M00S02125.ims +++| FCN CITF,CIT CLEAR *CMS* INTERLOCK
02311 M00S02126.ims +++| FCN ISDF,ISD INTERLOCK ISD-S
02312 M00S02127.ims +++| FCN IFMXF
02313 M00S02128.ims +++| TFCNL EQU *-TFCN LENGTH OF TABLE
02314 M00S02129.ims +++| SPACE 4,10
02315 M00S02130.ims +++| OVERFLOW
02316 M00S02131.ims +++| OVERLAY (MODIFY MASS STORAGE TABLES.)
02317 M00S02132.ims +++| MMS SPACE 4,20
02318 M00S02133.ims +++|*** FUNCTION *MMSF* - MODIFY MASS STORAGE TABLES.
02319 M00S02134.ims +++|*
02320 M00S02135.ims +++|* ENTRY (IR+3 - IR+4) = ADDRESS (ADDR) OF PARAMETERS.
02321 M00S02136.ims +++|*
02322 M00S02137.ims +++|*T, ADDR 60/ EST ENTRY
Figure
ADDR
0 29 EST ENTRY 30 59 EST ENTRY
02323 M00S02138.ims +++|*T, 60/ PFGL WORD OF MST
Figure
0 29 PFGL WORD OF MST 30 59 PFGL WORD OF MST
02324 M00S02139.ims +++|*T, 60/ PUGL WORD OF MST
Figure
0 29 PUGL WORD OF MST 30 59 PUGL WORD OF MST
02325 M00S02140.ims +++|*T, 60/ MDGL WORD OF MST
Figure
0 29 MDGL WORD OF MST 30 59 MDGL WORD OF MST
02326 M00S02141.ims +++|*T, 12/ NC, 12/ EQ, 12/ AI, 12/ CI, 12/ NE
Figure
0 11 12 23 24 29 NE CI AI 30 35 36 47 48 59 AI EQ NC
02327 M00S02142.ims +++|*T, 12/ NP, 48/ UNIT LIST (*LDAM* DEVICES)
Figure
0 29 UNIT LIST (*LDAM* DEVICES) 30 47 48 59 UNIT LIST (*LDAM* DEVICES) NP
02328 M00S02143.ims +++|*T, 60/ REPLY WORD
Figure
0 29 REPLY WORD 30 59 REPLY WORD
02329 M00S02144.ims +++|* NC = NUMBER OF CATALOG TRACKS.
02330 M00S02145.ims +++|* EQ = EST ORDINAL.
02331 M00S02146.ims +++|* AI = *LDAM* ALGORITHM INDEX.
02332 M00S02147.ims +++|* CI = CLEAR IN USE AS CHAINED DEVICE.
02333 M00S02148.ims +++|* NE = NEXT EQUIPMENT IN CHAIN.
02334 M00S02149.ims +++|
02335 M00S02150.ims +++|
02336 M00S02151.ims +++| MMS ENTRY
02337 M00S02152.ims +++| LDN PMMSL READ PARAMETER BLOCK
02338 M00S02153.ims +++| STD TI
02339 M00S02154.ims +++| RJM LDA READ EST ENTRY
02340 M00S02155.ims +++| CRD ES
02341 M00S02156.ims +++| CRM BUF,TI
02342 M00S02157.ims +++| LDM BUF+PMEQ SET EST ORDINAL
02343 M00S02158.ims +++| STD T5
02344 M00S02159.ims +++| STM EQNO
02345 M00S02160.ims +++| LDD LD
02346 M00S02161.ims +++| ZJN MMS1 IF NOT MMF ENVIRONMENT
02347 M00S02162.ims +++| LMD T5
02348 M00S02163.ims +++| NJN MMS1 IF NOT LINK DEVICE
02349 M00S02164.ims +++| LDD ES+4
02350 M00S02165.ims +++| SHN 3
02351 M00S02166.ims +++| ADN PFGL RETAIN ORIGINAL PF DESCRIPTION
02352 M00S02167.ims +++| CRM BUF+PMPF,TR
02353 M00S02168.ims +++| MMS1 RJM SLI SET LOCAL UTILITY INTERLOCK
02354 M00S02169.ims +++| LDD ES
02355 M00S02170.ims +++| SHN 21-10
02356 M00S02171.ims +++| PJN MMS2 IF NOT REMOVABLE
Line S00001 Modification History
M01 (Added by) ims8
Seq # *Modification Id* Act
----------------------------+
02357 M01S00001.ims8 +++| LDD ES+4 CHECK INITIALIZE OPTION
02358 M01S00002.ims8 +++| SHN 3
02359 M01S00003.ims8 +++| ADN STLL
02360 M01S00004.ims8 +++| CRD CM
02361 M01S00005.ims8 +++| LDD CM
02362 M01S00006.ims8 +++| SHN 21-LIAL+LIAL/12D*12D
02363 M01S00007.ims8 +++| MJN MMS2 IF DEADSTART INITIALIZE
02364 M00S02172.ims +++| RJM CTR CLEAR TRT
02365 M00S02173.ims +++|
02366 M00S02174.ims +++|* PROCESS CATALOG TRACK COUNT.
02367 M00S02175.ims +++|
02368 M00S02176.ims +++| MMS2 LDD ES+4
02369 M00S02177.ims +++| SHN 3
02370 M00S02178.ims +++| ADN ALGL
02371 M00S02179.ims +++| CRD CM
02372 M00S02180.ims +++| LDM BUF+PMNC
02373 M00S02181.ims +++| STD CM+3
02374 M00S02182.ims +++| LDD ES+4 UPDATE MST WORDS
02375 M00S02183.ims +++| SHN 3
02376 M00S02184.ims +++| ADN ALGL
02377 M00S02185.ims +++| CWD CM
02378 M00S02186.ims +++| ADN PFGL-ALGL STORE *PFGL* AND *PUGL*
02379 M00S02187.ims +++| CWM BUF+PMPF,TR
02380 M00S02188.ims +++| ADN DILL-PFGL-3
02381 M00S02189.ims +++| CRD CN
02382 M00S02190.ims +++| LDD CN+4 CLEAR ALGORITHM INDEX
02383 M00S02191.ims +++| SCN 77
02384 M00S02192.ims +++| STD CN+4
02385 M00S02193.ims +++| LDM BUF+PMMD SET DAT INDEX
02386 M00S02194.ims +++| LPC 377
02387 M00S02195.ims +++| STD DI
02388 M00S02196.ims +++| LDM BUF+PMAI
02389 M00S02197.ims +++| ZJN MMS4 IF NOT CHANGING ALGORITHM INDEX
02390 M00S02198.ims +++| RAD CN+4
02391 M00S02199.ims +++| LDD ES+4 UPDATE MST
02392 M00S02200.ims +++| SHN 3
02393 M00S02201.ims +++| ADN DILL
02394 M00S02202.ims +++| CWD CN
02395 M00S02203.ims +++| LDD ES+3 SET NEW MNEMONIC
02396 M00S02204.ims +++| STD CM+3
02397 M00S02205.ims +++| LDN SMNS SET MNEMONIC SUBFUNCTION
02398 M00S02206.ims +++| STD CM+2
02399 M00S02207.ims +++| LDD T5 SET EST ORDINAL
02400 M00S02208.ims +++| STD CM+1
02401 M00S02209.ims +++| MONITOR SEQM CHANGE EQUIPMENT MNEMONIC
02402 M00S02210.ims +++| LDD CN+4
02403 M00S02211.ims +++| LPN 77 EXTRACT ALGORITHM INDEX
02404 M00S02212.ims +++| SBN AIHT+1
02405 M00S02213.ims +++| SHN 0-21 CALCULATE *SCSM* SUBFUNCTION
02406 M00S02214.ims +++| ADN DAPS
02407 M00S02215.ims +++| ERRNZ DAPS+1-EAPS CODE DEPENDS ON VALUE
02408 M00S02216.ims +++| STD CM+3
02409 M00S02217.ims +++| SBN DAPS
02410 M00S02218.ims +++| SHN 3 APPEND CHANNEL PRESENT STATUS
02411 M00S02219.ims +++| LMN 11
02412 M00S02220.ims +++| RJM CCS
02413 M00S02221.ims +++| ZJN MMS4 IF NO ACCESS PATH CHANGE
02414 M00S02222.ims +++|* LDD T5
02415 M00S02223.ims +++|* STD CM+1
02416 M00S02224.ims +++| MONITOR SCSM SET CHANNELS FOR ACCESS
02417 M00S02225.ims +++|
02418 M00S02226.ims +++|* PROCESS REMOVABLE DEVICE.
02419 M00S02227.ims +++|
02420 M00S02228.ims +++| MMS4 LDD ES
02421 M00S02229.ims +++| SHN 21-10
02422 M00S02230.ims +++| PJN MMS6 IF NOT REMOVABLE
02423 M00S02231.ims +++| LDM BUF+PMCI
02424 M00S02232.ims +++| ZJN MMS5 IF SETTING DEVICE IN USE
02425 M00S02233.ims +++| LCN 0
02426 M00S02234.ims +++| MMS5 LMN LDIU SET/CLEAR DEVICE IN USE
02427 M00S02235.ims +++| RJM TLB
02428 M00S02236.ims +++| MMS6 LDN UPGA+UPDA
02429 M00S02237.ims +++| RJM UEC UPDATE EXTENDED MEMORY DATA
02430 M00S02238.ims +++|
02431 M00S02239.ims +++|* UPDATE MST.
02432 M00S02240.ims +++|
02433 M00S02241.ims +++| LDD ES+4
02434 M00S02242.ims +++| SHN 3
02435 M00S02243.ims +++| ADN DULL GET DEVICE USAGE WORD
02436 M00S02244.ims +++| CRD CN
02437 M00S02245.ims +++| ADN STLL-DULL GET STATUS WORD
02438 M00S02246.ims +++| CRD CM
02439 M00S02247.ims +++| ADN DDLL-STLL STORE UNIT LIST
02440 M00S02248.ims +++| CWM BUF+PMAL,ON
02441 M00S02249.ims +++| LDD CM+4 SET NEXT EST ORDINAL IN CHAIN
02442 M00S02250.ims +++| LPN 7
02443 M00S02251.ims +++| SHN 22-3
02444 M00S02252.ims +++| ADM BUF+PMNE
02445 M00S02253.ims +++| SHN 3
02446 M00S02254.ims +++| STD CM+4
02447 M00S02255.ims +++| RJM GAS SET ALTERNATE LABEL SECTOR
02448 M00S02256.ims +++| STD CN
02449 M00S02257.ims +++| LDD ES+4
02450 M00S02258.ims +++| SHN 3
02451 M00S02259.ims +++| ADN STLL UPDATE DEVICE STATUS
02452 M00S02260.ims +++| CWD CM
02453 M00S02261.ims +++| SBN STLL-DULL STORE ALTERNATE LABEL SECTOR IN MST
02454 M00S02262.ims +++| CWD CN
02455 M00S02263.ims +++| LDD ES
02456 M00S02264.ims +++| SHN 21-4
02457 M00S02265.ims +++| PJN MMS9 IF NOT INDEPENDENT SHARED DEVICE
02458 M00S02266.ims +++| LDD CM+1
02459 M00S02267.ims +++| LPN 77
02460 M00S02268.ims +++| LMN STLE
02461 M00S02269.ims +++| ZJN MMS7 IF LABEL ERROR ON DEVICE
02462 M00S02270.ims +++| LDD CM
02463 M00S02271.ims +++| LPN MLPTU
02464 M00S02272.ims +++| ZJN MMS9 IF *LPTU* INTERLOCK NOT SET
02465 M00S02273.ims +++| MMS7 LDN ZERL
02466 M00S02274.ims +++| CRD CN
02467 M00S02275.ims +++| LDN 0
02468 M00S02276.ims +++| STD T1
02469 M00S02277.ims +++| LDC MMFL
02470 M00S02278.ims +++| CRD CM
02471 M00S02279.ims +++| LDD CM SET MACHINE ID IN DIT
02472 M00S02280.ims +++| STD CN+4
02473 M00S02281.ims +++| MMS8 RJM SDL
02474 M00S02282.ims +++| ADD T1 ADD OFFSET
02475 M00S02283.ims +++| CWD CN
02476 M00S02284.ims +++| LDN 0 CLEAR REMAINDER OF DIT
02477 M00S02285.ims +++| STD CN+4
02478 M00S02286.ims +++| AOD T1
02479 M00S02287.ims +++| LMN MISD
02480 M00S02288.ims +++| NJN MMS8 IF NOT END OF DIT
02481 M00S02289.ims +++| MMS9 RJM LDA
02482 M00S02290.ims +++| ADN PMRP/5 REWRITE REPLY WORD
02483 M00S02291.ims +++| CWM BUF+PMRP,ON
02484 M00S02292.ims +++| LJM DPP EXIT
02485 M00S02293.ims +++| CCS SPACE 4,10
02486 M00S02294.ims +++|** CCS - CHECK CHANNEL STATUS.
02487 M00S02295.ims +++|*
02488 M00S02296.ims +++|* ENTRY (A) = REQUESTED STATUS.
02489 M00S02297.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02490 M00S02298.ims +++|*
02491 M00S02299.ims +++|* EXIT (A) = (CM+2).
02492 M00S02300.ims +++|* = 0 IF REQUESTED STATUS NOT PRESENT.
02493 M00S02301.ims +++|* = CHANNEL DESCRIPTOR IF STATUS FOUND.
02494 M00S02302.ims +++|*
02495 M00S02303.ims +++|* USES T2.
02496 M00S02304.ims +++|
02497 M00S02305.ims +++|
02498 M00S02306.ims +++| CCS2 LDI CM+3 SET CHANNEL DESCRIPTOR
02499 M00S02307.ims +++| CCS3 STD CM+2
02500 M00S02308.ims +++|
02501 M00S02309.ims +++| CCS SUBR ENTRY/EXIT
02502 M00S02310.ims +++| STD T2
02503 M00S02311.ims +++| LDN ES+1 INITIALIZE FOR SCAN
02504 M00S02312.ims +++| STD CM+3
02505 M00S02313.ims +++| CCS1 LDI CM+3 CHECK CHANNEL
02506 M00S02314.ims +++| SHN 0-10
02507 M00S02315.ims +++| SCN 6 REMOVE STATE FIELD
02508 M00S02316.ims +++| LMD T2
02509 M00S02317.ims +++| ZJN CCS2 IF REQUESTED STATUS PRESENT
02510 M00S02318.ims +++| AOD CM+3
02511 M00S02319.ims +++| LMN ES+3
02512 M00S02320.ims +++| NJN CCS1 IF ANOTHER CHANNEL TO CHECK
02513 M00S02321.ims +++|* LDN 0
02514 M00S02322.ims +++| UJN CCS3 RETURN
02515 M00S02323.ims +++| CTR SPACE 4,15
02516 M00S02324.ims +++|** CTR - CLEAR TRT AND MST.
02517 M00S02325.ims +++|*
02518 M00S02326.ims +++|* ENTRY (T5) = EST ORDINAL (REMOVABLE DEVICE).
02519 M00S02327.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02520 M00S02328.ims +++|*
02521 M00S02329.ims +++|* EXIT MST UPDATED.
02522 M00S02330.ims +++|* TRT CLEARED.
02523 M00S02331.ims +++|*
02524 M00S02332.ims +++|* USES T6, CM - CM+4, CN - CN+4, WB - WB+4.
02525 M00S02333.ims +++|*
02526 M00S02334.ims +++|* CALLS CAT, STB.
02527 M00S02335.ims +++|*
02528 M00S02336.ims +++|* MACROS MONITOR.
02529 M00S02337.ims +++|
02530 M00S02338.ims +++|
02531 M00S02339.ims +++| CTR SUBR ENTRY/EXIT
02532 M00S02340.ims +++| LDD ES
02533 M00S02341.ims +++| SHN 21-4
02534 M00S02342.ims +++| PJN CTR1 IF NOT INDEPENDENT SHARED DEVICE
02535 M00S02343.ims +++| LDN PSNI
02536 M00S02344.ims +++| STM CTRA
02537 M00S02345.ims +++| CTR1 LDN SDIS SET DEVICE INTERLOCK
02538 M00S02346.ims +++| RJM STB
02539 M00S02347.ims +++| LDN ZERL
02540 M00S02348.ims +++| CRD CM
02541 M00S02349.ims +++| LDD ES+4
02542 M00S02350.ims +++| SHN 3
02543 M00S02351.ims +++| ADK TDGL
02544 M00S02352.ims +++| CRD CN
02545 M00S02353.ims +++| ADN ACGL-TDGL CLEAR DEVICE ACTIVITY WORD
02546 M00S02354.ims +++| CWD CM
02547 M00S02355.ims +++| ADN ALGL-ACGL CLEAR ALLOCATION WORD
02548 M00S02356.ims +++| CWD CM
02549 M00S02357.ims +++| ADN STLL-ALGL READ STATUS WORD
02550 M00S02358.ims +++| CRD WB
02551 M00S02359.ims +++| ADN TRLL-STLL
02552 M00S02360.ims +++| RJM CAT CALCULATE FWA OF TRT
02553 M00S02361.ims +++| STD CM+4
02554 M00S02362.ims +++| SHN -14
02555 M00S02363.ims +++| STD CM+3
02556 M00S02364.ims +++| LDD CN+2 SET TRT LENGTH
02557 M00S02365.ims +++| STD CM+2
02558 M00S02366.ims +++| SHN 2
02559 M00S02367.ims +++| STD CN+4 TRACK COUNT
02560 M00S02368.ims +++| LDC 4000
02561 M00S02369.ims +++| STD CN+3
02562 M00S02370.ims +++| CTRA UJN CTR2 CLEAR TRT/MRT/DIT
02563 M00S02371.ims +++|* PSN (INDEPENDENT SHARED DEVICE)
02564 M00S02372.ims +++| LDD CN+2
02565 M00S02373.ims +++| ADN 7
02566 M00S02374.ims +++| SHN -3 SET MRT LENGTH
02567 M00S02375.ims +++| ADN MISD
02568 M00S02376.ims +++| RAD CM+2 CLEAR TRT
02569 M00S02377.ims +++| CTR2 LDN 0
02570 M00S02378.ims +++| STD CM+1
02571 M00S02379.ims +++| MONITOR CSTM
02572 M00S02380.ims +++|* LDN 0 CLEAR USER COUNTS
02573 M00S02381.ims +++| STD WB+3
02574 M00S02382.ims +++| STD WB+1 CLEAR ERROR STATUS
02575 M00S02383.ims +++| LDD ES
02576 M00S02384.ims +++| SHN 21-6
02577 M00S02385.ims +++| PJN CTR3 IF DEVICE AVAILABLE
02578 M00S02386.ims +++| LDN MLPTU
02579 M00S02387.ims +++| STD WB CLEAR STATUS FLAGS
02580 M00S02388.ims +++| CTR3 LDD ES+4
02581 M00S02389.ims +++| SHN 3
02582 M00S02390.ims +++| ADK TDGL
02583 M00S02391.ims +++| CWD CN
02584 M00S02392.ims +++| ADN STLL-TDGL STORE STATUS WORD
02585 M00S02393.ims +++| CWD WB
02586 M00S02394.ims +++| LDN CDIS CLEAR DEVICE INTERLOCK
02587 M00S02395.ims +++| RJM STB
02588 M00S02396.ims +++| LDD CN FLAW ODD TRACKS OFF END OF TRT
02589 M00S02397.ims +++| STD T6
02590 M00S02398.ims +++| CTR4 LPN 3
02591 M00S02399.ims +++| NJN CTR5 IF ODD TRACK COUNT
02592 M00S02400.ims +++| LJM CTRX RETURN
02593 M00S02401.ims +++|
02594 M00S02402.ims +++| CTR5 LDN STFS SET TRACK FLAWED
02595 M00S02403.ims +++| RJM STB
02596 M00S02404.ims +++| AOD T6
02597 M00S02405.ims +++| UJN CTR4 CHECK NEXT TRACK
02598 M00S02406.ims +++| GAS SPACE 4,10
02599 M00S02407.ims +++|** GAS - GET ALTERNATE LABEL SECTOR.
02600 M00S02408.ims +++|*
02601 M00S02409.ims +++|* ENTRY (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02602 M00S02410.ims +++|*
02603 M00S02411.ims +++|* EXIT (A) = ALTERNATE LABEL SECTOR.
02604 M00S02412.ims +++|*
02605 M00S02413.ims +++|* USES T1.
02606 M00S02414.ims +++|
02607 M00S02415.ims +++|
02608 M00S02416.ims +++| GAS1 LDN 2 ADVANCE TABLE ADDRESS
02609 M00S02417.ims +++| RAD T1
02610 M00S02418.ims +++| GAS2 LDI T1
02611 M00S02419.ims +++| ZJN GASX IF END OF TABLE
02612 M00S02420.ims +++| LMD ES+3
02613 M00S02421.ims +++| NJN GAS1 IF NOT MATCHING DEVICE MNEMONIC
02614 M00S02422.ims +++| LDM 1,T1
02615 M00S02423.ims +++|
02616 M00S02424.ims +++| GAS SUBR ENTRY/EXIT
02617 M00S02425.ims +++| LDC TALS
02618 M00S02426.ims +++| STD T1
02619 M00S02427.ims +++| UJN GAS2 ENTER SEARCH LOOP
02620 M00S02428.ims +++|
02621 M00S02429.ims +++|
02622 M00S02430.ims +++| TALS BSS 0
02623 M00S02431.ims +++| LIST G
02624 M00S02432.ims +++| TBL "MSEQ"
02625 M00S02433.ims +++| LIST *
02626 M00S02434.ims +++| PURGMAC TBLM
02627 M00S02435.ims +++| CON 0 END OF TABLE
02628 M00S02436.ims +++| SPACE 4,10
02629 M00S02437.ims +++| OVERFLOW OVLA,BUF
02630 M00S02438.ims +++| OVERLAY (EDIT TRT / INITIALIZE LOCAL AREAS.)
02631 M00S02439.ims +++| EDT SPACE 4,10
02632 M00S02440.ims +++|*** FUNCTION *EDTF* - EDIT DEVICE TRT.
02633 M00S02441.ims +++|*
02634 M00S02442.ims +++|* ENTRY (IR+3 - IR+4) = ADDRESS (ADDR) 0F PARAMETERS.
02635 M00S02443.ims +++|*
02636 M00S02444.ims +++|*T, ADDR 12/ MASK, 12/ ESTO, 36/ 0
Figure
ADDR
0 29 0 30 35 36 47 48 59 0 ESTO MASK
02637 M00S02445.ims +++|
02638 M00S02446.ims +++|
02639 M00S02447.ims +++| EDT ENTRY
02640 M00S02448.ims +++| RJM LDA READ PARAMETER WORD
02641 M00S02449.ims +++| CRD CN
02642 M00S02450.ims +++| LDC BUF-1 INITIALIZE BUFFER INDEX
02643 M00S02451.ims +++| STD TI
02644 M00S02452.ims +++| EDT1 AOD TI ADVANCE BUFFER INDEX
02645 M00S02453.ims +++| LDD CN
02646 M00S02454.ims +++| LPC 1 UNPACK MASK BITS
02647 M00S02455.ims +++| EDTA EQU *-1
02648 M00S02456.ims +++| STI TI SET IN MASK TABLE
02649 M00S02457.ims +++| LDM EDTA
02650 M00S02458.ims +++| RAM EDTA SHIFT BIT
02651 M00S02459.ims +++| SHN -10
02652 M00S02460.ims +++| ZJN EDT1 IF NOT END OF MASK
02653 M00S02461.ims +++|
02654 M00S02462.ims +++|* SET UP TRT SEARCH FOR SELECTED FILES.
02655 M00S02463.ims +++|
02656 M00S02464.ims +++| LDD CN+1 SET MASS STORAGE EQUIPMENT
02657 M00S02465.ims +++| RJM SME
02658 M00S02466.ims +++| RJM TRT UPDATE TRT
02659 M00S02467.ims +++| LDD ES+4
02660 M00S02468.ims +++| SHN 3
02661 M00S02469.ims +++| ADK TDGL GET TRACK COUNT FROM MST
02662 M00S02470.ims +++| CRD CN
02663 M00S02471.ims +++| SETMS IO,(DF,NS,RW)
02664 M00S02472.ims +++| LDD CN SET NUMBER OF TRACKS
02665 M00S02473.ims +++| STD CN+2
02666 M00S02474.ims +++| UJN EDT5 ENTER LOOP
02667 M00S02475.ims +++|
Line S02476 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
02668 M01S02476.ims6 ---| EDT2 RJM SSM ISSUE SYSTEM SECTOR ERROR MESSAGE
Line S00130 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
02669 M01S00130.ims6 +++| EDT2 LDC MESN ISSUE SYSTEM SECTOR ERROR MESSAGE
02670 M01S00131.ims6 +++| RJM STM
02671 M00S02477.ims +++|
02672 M00S02478.ims +++| EDT3 LDD PF
02673 M00S02479.ims +++| ZJN EDT5 IF TRACK NOT INTERLOCKED
02674 M00S02480.ims +++| LDN CTIS
02675 M00S02481.ims +++| RJM STB CLEAR TRACK INTERLOCK
02676 M00S02482.ims +++|* LDN 0
02677 M00S02483.ims +++| EDT4 STD PF CLEAR TRACK INTERLOCKED STATUS
02678 M00S02484.ims +++|
02679 M00S02485.ims +++|* SCAN TRT FOR PRESERVED FILES.
02680 M00S02486.ims +++|
02681 M00S02487.ims +++| EDT5 SOD CN+2
02682 M00S02488.ims +++| PJN EDT7 IF NOT END OF TRACKS
02683 M00S02489.ims +++| EDT6 LJM DPP1 SET CHECKPOINT AND DROP
02684 M00S02490.ims +++|
02685 M00S02491.ims +++| EDT7 LMC 4000 SET TRACK BIT
02686 M00S02492.ims +++| RJM CTB CHECK TRACK IN TRT
02687 M00S02493.ims +++| SHN -4
02688 M00S02494.ims +++| ZJN EDT5 IF PRESERVED FILE BIT NOT SET
02689 M00S02495.ims +++| RJM CST CHECK SPECIAL TRACKS
02690 M00S02496.ims +++| ZJN EDT5 IF SPECIAL PF TRACK
02691 M00S02497.ims +++| MJN EDT5 IF DAT OR IQFT TRACK
02692 M00S02498.ims +++| LDN 0 READ SYSTEM SECTOR
02693 M00S02499.ims +++| RJM RSS
02694 M00S02500.ims +++| NJN EDT2 IF SYSTEM SECTOR ERROR
02695 M00S02501.ims +++| LDM FNSS+4
02696 M00S02502.ims +++| SHN -6
02697 M00S02503.ims +++| LMN PMFT
02698 M00S02504.ims +++| ZJN EDT9 IF DIRECT ACCESS FILE
02699 M00S02505.ims +++| LMN FAFT&PMFT
Line S02506 Modification History
M01 (Removed by) ims7
Seq # *Modification Id* Act
----------------------------+
02700 M01S02506.ims7 ---| NJN EDT10 IF NOT FAST ATTACH FILE
Line S00001 Modification History
M01 (Added by) ims7
Seq # *Modification Id* Act
----------------------------+
02701 M01S00001.ims7 +++| NJP EDT10 IF NOT FAST ATTACH FILE
02702 M00S02507.ims +++| EDT9 LDM CTSS+FCUI+1
02703 M00S02508.ims +++| LPN 7 SET USER INDEX
02704 M00S02509.ims +++| STD TI
02705 M00S02510.ims +++| LDM BUF,TI
02706 M00S02511.ims +++| ZJN EDT10 IF MASK DOES NOT MATCH
02707 M00S02512.ims +++| RJM RRS
02708 M00S02513.ims +++|
02709 M00S02514.ims +++|* IF FILE HAS ACTIVE USERS, SET *PURGE* BIT IN SYSTEM SECTOR.
02710 M00S02515.ims +++|
02711 M00S02516.ims +++| LDM CASS CHECK FOR ACTIVE USERS
Line S00002 Modification History
M01 (Added by) ims7
Seq # *Modification Id* Act
----------------------------+
02712 M01S00002.ims7 +++| LPN 32
02713 M01S00003.ims7 +++| ADM UCSS+1
02714 M00S02517.ims +++| ADM UCSS+2
02715 M00S02518.ims +++| ADM UCSS+3
02716 M00S02519.ims +++| ADM UCSS+4
Line S00004 Modification History
M01 (Added by) ims7
Seq # *Modification Id* Act
----------------------------+
02717 M01S00004.ims7 +++| ADM FISS
02718 M00S02520.ims +++| ZJN EDT11 IF NO USERS
02719 M00S02521.ims +++| LDM CASS
02720 M00S02522.ims +++| SCN 40
02721 M00S02523.ims +++| LMN 40 SET PURGE BIT
02722 M00S02524.ims +++| STM CASS
02723 M00S02525.ims +++| RJM WSS UPDATE SYSTEM SECTOR
02724 M00S02526.ims +++| EDT10 ENDMS
02725 M00S02527.ims +++| LJM EDT3 PROCESS NEXT TRACK
02726 M00S02528.ims +++|
02727 M00S02529.ims +++|* FILES WHICH MATCH WITH THE MASK BELONG TO MASTER DEVICE
02728 M00S02530.ims +++|* WHICH HAS BEEN INITIALIZED AND MUST BE DROPPED.
02729 M00S02531.ims +++|
02730 M00S02532.ims +++| EDT11 ENDMS
02731 M00S02533.ims +++| LDD T5 RELEASE TRACKS
02732 M00S02534.ims +++| STD CM+1
02733 M00S02535.ims +++| LDD T6
02734 M00S02536.ims +++| STD CM+2
02735 M00S02537.ims +++| MONITOR DTKM
02736 M00S02538.ims +++|* LDN 0
02737 M00S02539.ims +++| LJM EDT4 CLEAR TRACK INTERLOCKED STATUS
02738 M00S02540.ims +++| ILA SPACE 4,10
02739 M00S02541.ims +++|*** FUNCTION *ILAF* - INITIALIZE INACTIVE LOCAL AREAS.
02740 M00S02542.ims +++|*
02741 M00S02543.ims +++|* ENTRY (IR+4) = EST ORDINAL.
02742 M00S02544.ims +++|
02743 M00S02545.ims +++|
02744 M00S02546.ims +++| ILA ENTRY
02745 M00S02547.ims +++| LDC MMFL GET MACHINE ID CODE
02746 M00S02548.ims +++| CRM BUF,ON
02747 M00S02549.ims +++| LDD LD SET LINK EQUIPMENT
02748 M00S02550.ims +++| STD T5
02749 M00S02551.ims +++| ZJN ILA2 IF NOT MMF ENVIRONMENT
02750 M00S02552.ims +++| LDN 5*MXMF
02751 M00S02553.ims +++| STM PLAA
02752 M00S02554.ims +++| SETMS IO
02753 M00S02555.ims +++| LDD CM+4 GET LINK DEVICE LABEL TRACK
02754 M00S02556.ims +++| SHN 3
02755 M00S02557.ims +++| ADN ALGL
02756 M00S02558.ims +++| CRD CM
02757 M00S02559.ims +++| LDD CM+1
02758 M00S02560.ims +++| STD T6
02759 M00S02561.ims +++| LDN ETLT SET SECTOR ADDRESS
02760 M00S02562.ims +++| STD T7
02761 M00S02563.ims +++| LDC BUF-2 READ MACHINE ID CODES
02762 M00S02564.ims +++| RJM RDS
02763 M00S02565.ims +++| PJN ILA1 IF NO READ ERRORS
02764 M00S02566.ims +++| LJM GDS2 ABORT
02765 M00S02567.ims +++|
02766 M00S02568.ims +++| ILA1 ENDMS RELEASE CHANNEL
02767 M00S02569.ims +++|
02768 M00S02570.ims +++|* GET LOCAL AREA SECTOR.
02769 M00S02571.ims +++|
02770 M00S02572.ims +++| ILA2 LDD IR+4 SET MASS STORAGE EQUIPMENT
02771 M00S02573.ims +++| RJM SME
02772 M00S02574.ims +++| LDD ES CHECK DEVICE USAGE
02773 M00S02575.ims +++| SHN 21-4
02774 M00S02576.ims +++| PJN ILA3 IF NOT INDEPENDENT SHARED DEVICE
02775 M00S02577.ims +++| LDC BUF-4 READ DIT TO BUFFER
02776 M00S02578.ims +++| RJM RDT
02777 M00S02579.ims +++| LDC MISD*5 SET TABLE LENGTH
02778 M00S02580.ims +++| STM PLAA
02779 M00S02581.ims +++| ILA3 LDD ES+4
02780 M00S02582.ims +++| SHN 3
02781 M00S02583.ims +++| ADN STLL GET STATUS WORD FROM MST
02782 M00S02584.ims +++| CRD CM
02783 M00S02585.ims +++| LDD CM+1 CHECK ERROR FIELD
02784 M00S02586.ims +++| LPN 77
02785 M00S02587.ims +++| LMN STLE
02786 M00S02588.ims +++| ZJN ILA4 IF LABEL ERROR
02787 M00S02589.ims +++| RJM GLA GET LOCAL AREA SECTOR
02788 M00S02590.ims +++| ZJN ILA4 IF NO SLA OR THIS MACHINE NOT PRESENT
02789 M00S02591.ims +++| LDN 0
02790 M00S02592.ims +++| STD TI CLEAR INDEX LOCATIONS
02791 M00S02593.ims +++| STD TA
02792 M00S02594.ims +++|
02793 M00S02595.ims +++|* INITIALIZE INACTIVE LOCAL AREAS.
02794 M00S02596.ims +++|
02795 M00S02597.ims +++| LDM BFMS+1 CHECK SECTOR WORD COUNT
02796 M00S02598.ims +++| ZJN ILA4 IF EMPTY SECTOR
02797 M00S02599.ims +++| ADC -101
02798 M00S02600.ims +++| MJN ILA5 IF LEGAL WORD COUNT
02799 M00S02601.ims +++| ILA4 CMSTF GLAP CLEAR SECTOR OF LOCAL AREAS FLAG
02800 M00S02602.ims +++| LDC MESD * EQXXX, LOCAL AREA SECTOR RESET.*
02801 M00S02603.ims +++| UJN ILA7 COMPLETE PROCESSING
02802 M00S02604.ims +++|
02803 M00S02605.ims +++| ILA5 RJM PLA PROCESS LOCAL AREA
02804 M00S02606.ims +++| LDN 2*5
02805 M00S02607.ims +++| RAD TI ADVANCE SLA INDEX
02806 M00S02608.ims +++| LDN 2
02807 M00S02609.ims +++| RAD TA ADVANCE SECTOR INDEX
02808 M00S02610.ims +++| SBM BFMS+1
02809 M00S02611.ims +++| MJN ILA5 IF NOT END OF SECTOR DATA
02810 M00S02612.ims +++|
02811 M00S02613.ims +++|* REFORMAT SECTOR AND UPDATE DEVICE.
02812 M00S02614.ims +++|
02813 M00S02615.ims +++| RJM RFS REFORMAT SECTOR
02814 M00S02616.ims +++| ZJN ILA6 IF EMPTY SECTOR
02815 M00S02617.ims +++| SETMS IO,(DF,NS,RW)
02816 M00S02618.ims +++| LDC BFMS+WLSF REWRITE SECTOR
02817 M00S02619.ims +++| RJM WDS
02818 M00S02620.ims +++| ENDMS
02819 M00S02621.ims +++| ILA6 LDC MESC * EQXXX, LOCAL AREAS INITIALIZED.*
02820 M00S02622.ims +++| ILA7 RJM DFM
02821 M00S02623.ims +++| SMSTF LCKP SET EQUIPMENT CHECKPOINT
02822 M00S02624.ims +++| LDN 2
02823 M00S02625.ims +++| LJM CKC SET CHECKPOINT REQUEST
02824 M00S02626.ims +++| PLA SPACE 4,10
02825 M00S02627.ims +++|** PLA - PROCESS LOCAL AREAS.
02826 M00S02628.ims +++|*
02827 M00S02629.ims +++|* ENTRY (TI) = INDEX TO LOCAL AREA.
02828 M00S02630.ims +++|* (BUF) = LIST OF ACTIVE MACHINE ID CODES.
02829 M00S02631.ims +++|*
02830 M00S02632.ims +++|* EXIT TRACKS DROPPED FOR INACTIVE AREAS.
02831 M00S02633.ims +++|*
02832 M00S02634.ims +++|* USES T1, T2, CM - CM+4.
02833 M00S02635.ims +++|*
02834 M00S02636.ims +++|* MACROS MONITOR.
02835 M00S02637.ims +++|
02836 M00S02638.ims +++|
02837 M00S02639.ims +++| PLA SUBR ENTRY/EXIT
02838 M00S02640.ims +++| LDN 0
02839 M00S02641.ims +++| STD T2
02840 M00S02642.ims +++| PLA1 LDM BUF,T2 COMPARE ID CODES
02841 M00S02643.ims +++| LMM BFMS+2,TI
02842 M00S02644.ims +++| ZJN PLAX IF ACTIVE AREA
02843 M00S02645.ims +++| LDN 5
02844 M00S02646.ims +++| RAD T2 ADVANCE INDEX
02845 M00S02647.ims +++| LMC 5
02846 M00S02648.ims +++| PLAA EQU *-1
02847 M00S02649.ims +++|* LMC 5*MXMF (MMF ENVIRONMENT)
02848 M00S02650.ims +++| NJN PLA1 IF NOT END OF ID CODES
02849 M00S02651.ims +++|
02850 M00S02652.ims +++|* DROP INACTIVE DAYFILE TRACKS.
02851 M00S02653.ims +++|
02852 M00S02654.ims +++| LDN 5 SET DAYFILE INDEX
02853 M00S02655.ims +++| STD T2
02854 M00S02656.ims +++| LDC BFMS+2
02855 M00S02657.ims +++| ADD TI
02856 M00S02658.ims +++| STM PLAB SET LOCAL AREA ADDRESS
02857 M00S02659.ims +++| STM PLAC
02858 M00S02660.ims +++| STD T1
02859 M00S02661.ims +++| PLA2 LDM **,T2 CHECK FOR DAYFILE TRACK
02860 M00S02662.ims +++| PLAB EQU *-1
02861 M00S02663.ims +++| ZJN PLA3 IF TRACK NOT RESERVED
02862 M00S02664.ims +++| STD CM+2
02863 M00S02665.ims +++| LDD T5 SET EQUIPMENT
02864 M00S02666.ims +++| STD CM+1
02865 M00S02667.ims +++| MONITOR DTKM
02866 M00S02668.ims +++| PLA3 AOD T2 BUMP INDEX
02867 M00S02669.ims +++| LMN EXDF+5
02868 M00S02670.ims +++| NJN PLA2 IF NOT END OF DAYFILES
02869 M00S02671.ims +++| STD T2
02870 M00S02672.ims +++| PLA4 LDN 0 CLEAR LOCAL AREA
02871 M00S02673.ims +++| STM **,T2
02872 M00S02674.ims +++| PLAC EQU *-1
02873 M00S02675.ims +++| AOD T2
02874 M00S02676.ims +++| LMN 2*5
02875 M00S02677.ims +++| NJN PLA4 IF NOT END OF CLEAR
02876 M00S02678.ims +++| LJM PLAX RETURN
02877 M00S02679.ims +++| RFS SPACE 4,10
02878 M00S02680.ims +++|** RFS - REFORMAT SECTOR.
02879 M00S02681.ims +++|*
02880 M00S02682.ims +++|* ENTRY (BFMS) = REMAINING LOCAL AREAS.
02881 M00S02683.ims +++|*
02882 M00S02684.ims +++|* EXIT (A) = 0 IF SECTOR EMPTY.
02883 M00S02685.ims +++|*
02884 M00S02686.ims +++|* USES T1 - T3, TI.
02885 M00S02687.ims +++|*
02886 M00S02688.ims +++|* MACROS CMSTF.
02887 M00S02689.ims +++|
02888 M00S02690.ims +++|
02889 M00S02691.ims +++| RFS SUBR ENTRY/EXIT
02890 M00S02692.ims +++| LDN 0
02891 M00S02693.ims +++| STD T1 CLEAR INDICES
02892 M00S02694.ims +++| STD T2
02893 M00S02695.ims +++| STD TI CLEAR SECTOR WORD COUNT
02894 M00S02696.ims +++| STD T3
02895 M00S02697.ims +++| RFS1 LDM BFMS+2,T2
02896 M00S02698.ims +++| ZJN RFS4 IF EMPTY LOCAL AREA
02897 M00S02699.ims +++| LDD T2
02898 M00S02700.ims +++| LMD T3
02899 M00S02701.ims +++| ZJN RFS3 IF LOCAL AREA SECTOR MOVE NOT REQUIRED
02900 M00S02702.ims +++| RFS2 LDM BFMS+2,T2
02901 M00S02703.ims +++| STM BFMS+2,T3 MOVE DATA
02902 M00S02704.ims +++| AOD T3
02903 M00S02705.ims +++| LDN 0 CLEAR ENTRY
02904 M00S02706.ims +++| STM BFMS+2,T2
02905 M00S02707.ims +++| AOD T2 ADVANCE INDICES
02906 M00S02708.ims +++| AOD T1
02907 M00S02709.ims +++| LMN 2*5
02908 M00S02710.ims +++| NJN RFS2 IF NOT END OF MOVE
02909 M00S02711.ims +++| STD T1
02910 M00S02712.ims +++| RFS3 LDN 2 ADVANCE SECTOR WORD COUNT
02911 M00S02713.ims +++| RAD TI
02912 M00S02714.ims +++| UJN RFS5 CONTINUE REFORMAT
02913 M00S02715.ims +++|
02914 M00S02716.ims +++| RFS4 LDN 2*5 ADVANCE SEARCH INDEX
02915 M00S02717.ims +++| RAD T2
02916 M00S02718.ims +++| RFS5 LCN 2 DECREMENT WORD COUNT
02917 M00S02719.ims +++| RAM BFMS+1
02918 M00S02720.ims +++| NJN RFS1 IF NOT END OF SECTOR
02919 M00S02721.ims +++| LDD TI SET SECTOR WORD COUNT
02920 M00S02722.ims +++| STM BFMS+1
02921 M00S02723.ims +++| NJN RFS6 IF NOT EMPTY SECTOR
02922 M00S02724.ims +++|
02923 M00S02725.ims +++|* CLEAR LOCAL AREA SECTOR BIT.
02924 M00S02726.ims +++|
02925 M00S02727.ims +++| CMSTF GLAP
02926 M00S02728.ims +++| RFS6 LJM RFSX RETURN
02927 M00S02729.ims +++| RRS SPACE 4,15
02928 M00S02730.ims +++|** RRS - REREAD SYSTEM SECTOR IF TRACK INTERLOCK NOT SET.
02929 M00S02731.ims +++|*
02930 M00S02732.ims +++|* ENTRY (PF) = TRACK INTERLOCK STATUS.
02931 M00S02733.ims +++|*
02932 M00S02734.ims +++|* EXIT TO CALLER IF TRACK INTERLOCKED ON ENTRY.
02933 M00S02735.ims +++|*
02934 M00S02736.ims +++|* EXIT (A) = (T6) IF TRACK NO LONGER RESERVED.
02935 M00S02737.ims +++|* = RESPONSE FROM *RSS*.
02936 M00S02738.ims +++|* TO PREVIOUS *RSS* CALLER.
02937 M00S02739.ims +++|*
02938 M00S02740.ims +++|* CALLS RSS, STI.
02939 M00S02741.ims +++|*
02940 M00S02742.ims +++|* MACROS ENDMS.
02941 M00S02743.ims +++|
02942 M00S02744.ims +++|
02943 M00S02745.ims +++| RRS SUBR ENTRY/EXIT
02944 M00S02746.ims +++| LDD PF
02945 M00S02747.ims +++| NJN RRSX IF FIRST TRACK INTERLOCKED
02946 M00S02748.ims +++| ENDMS
02947 M00S02749.ims +++| LDM RSS CHANGE RETURN TO LAST *RSS* CALLER
02948 M00S02750.ims +++| STM RRS
02949 M00S02751.ims +++| RJM STI SET TRACK INTERLOCK
02950 M00S02752.ims +++| NJN RRSX IF TRACK NO LONGER RESERVED
02951 M00S02753.ims +++|* LDN 0 REREAD SYSTEM SECTOR
02952 M00S02754.ims +++| RJM RSS
02953 M00S02755.ims +++| UJN RRSX RETURN
02954 M00S02756.ims +++| SPACE 4,10
02955 M00S02757.ims +++| OVERFLOW OVLA,BUF
02956 M00S02758.ims +++| OVERLAY (SHARED MASS STORAGE FUNCTIONS.),INT
02957 M00S02759.ims +++| CSD SPACE 4,15
02958 M00S02760.ims +++|*** FUNCTION *CSDF* - CHECK SHARED DEVICE STATUS.
02959 M00S02761.ims +++|*
02960 M00S02762.ims +++|* ENTRY (IR+3 - IR+4) = ADDRESS (ADDR) OF PARAMETERS.
02961 M00S02763.ims +++|* (T5) = EST ORDINAL.
02962 M00S02764.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
02963 M00S02765.ims +++|* (WB - WB+4) = PARAMETER WORD AT ADDR.
02964 M00S02766.ims +++|*
02965 M00S02767.ims +++|*T, ADDR 12/ ESTO, 48/ 0
02966 M00S02768.ims +++|*
02967 M00S02769.ims +++|* EXIT WHEN DEVICE UNLOADED ON OTHER MACHINES -
02968 M00S02770.ims +++|*
02969 M00S02771.ims +++|*T, ADDR 12/ 7777, 48/ 0
02970 M00S02772.ims +++|
02971 M00S02773.ims +++|
02972 M00S02774.ims +++| CSD ENTRY
02973 M00S02775.ims +++| LDD LD
02974 M00S02776.ims +++| ZJP CSD7 IF INDEPENDENT SHARED DEVICE
02975 M00S02777.ims +++| RJM CRI CHECK RECOVERY INTERLOCK
02976 M00S02778.ims +++| RJM GDS GET DAT TRACK
02977 M00S02779.ims +++| ZJN CSD2 IF NOT DEFINED IN DAT
02978 M00S02780.ims +++| LDM BFMS+2+4,TI GET MST SECTOR
02979 M00S02781.ims +++| STD T6
02980 M00S02782.ims +++| LDN 0 SET SECTOR
02981 M00S02783.ims +++| STD T7
02982 M00S02784.ims +++| LDM BFMS+2+5+4,TI GET DAT STATUS
02983 M00S02785.ims +++| STD WB
02984 M00S02786.ims +++| SETMS IO,(DF,NS)
02985 M00S02787.ims +++| LDC BFMS READ MST FROM LINK DEVICE
02986 M00S02788.ims +++| RJM RDS
02987 M00S02789.ims +++| MJP GDS2 IF READ ERROR
02988 M00S02790.ims +++| ENDMS
02989 M00S02791.ims +++| STD T2 INITIALIZE MACHINE INDEX
02990 M00S02792.ims +++|
02991 M00S02793.ims +++|* CHECK UNLOAD STATUS IN OTHER MACHINES.
02992 M00S02794.ims +++|
02993 M00S02795.ims +++| LDC BFMS+2+STLL*5
02994 M00S02796.ims +++| STD TI
02995 M00S02797.ims +++| CSD1 AOD T2 INCREMENT DEVICE INDEX
02996 M00S02798.ims +++| LMN MXMF+1
02997 M00S02799.ims +++| CSD2 ZJN CSD5 IF END OF LOCAL AREAS
02998 M00S02800.ims +++| LDI TI
02999 M00S02801.ims +++| LPN MLDUL
03000 M00S02802.ims +++| NJN CSD4 IF UNLOADED
03001 M00S02803.ims +++| LDD T2
03002 M00S02804.ims +++| LMD MI
03003 M00S02805.ims +++| ZJN CSD3 IF THIS MACHINE
03004 M00S02806.ims +++| LDD WB
03005 M00S02807.ims +++| CSDA SHN 21-0
03006 M00S02808.ims +++| MJN CSD6 IF DEVICE ACTIVE ON ANOTHER MACHINE
03007 M00S02809.ims +++| UJN CSD4 ADVANCE SEARCH
03008 M00S02810.ims +++|
03009 M00S02811.ims +++| CSD3 LDI TI CHECK THIS MACHINE STATUS
03010 M00S02812.ims +++| SHN 21-LIAL+LIAL/12D*12D
03011 M00S02813.ims +++| MJN CSD4 IF DEADSTART INITIALIZE
03012 M00S02814.ims +++| LDM 1,TI
03013 M00S02815.ims +++| LPN 77 CHECK ERROR CONDITION
03014 M00S02816.ims +++| LMN STLE
03015 M00S02817.ims +++| ZJN CSD4 IF LABEL ERROR
03016 M00S02818.ims +++| LDM 3,TI
03017 M00S02819.ims +++| NJN CSD6 IF ACTIVE USERS ON DEVICE
03018 M00S02820.ims +++| CSD4 LDN LLLL*5
03019 M00S02821.ims +++| RAD TI ADVANCE SEARCH INDEX
03020 M00S02822.ims +++| SOM CSDA
03021 M00S02823.ims +++| UJN CSD1 LOOP
03022 M00S02824.ims +++|
03023 M00S02825.ims +++| CSD5 LCN 0
03024 M00S02826.ims +++| STD WB
03025 M00S02827.ims +++| RJM LDA SET ADDRESS OF PARAMETER BLOCK
03026 M00S02828.ims +++| CWD WB
03027 M00S02829.ims +++| LJM DPP EXIT
03028 M00S02830.ims +++|
03029 M00S02831.ims +++| CSD6 LDM 2,TI SET MACHINE ID IN MESSAGE
03030 M00S02832.ims +++| STM CSDD
03031 M00S02833.ims +++| LDC CSDC SET MESSAGE ADDRESS
03032 M00S02834.ims +++| LJM RCL RECALL *IMS*
03033 M00S02835.ims +++|
03034 M00S02836.ims +++| CSD7 LDD ES+4 CHECK ERROR STATUS
03035 M00S02837.ims +++| SHN 3
03036 M00S02838.ims +++| ADN STLL
03037 M00S02839.ims +++| CRD CM
03038 M00S02840.ims +++| LDD CM+1
03039 M00S02841.ims +++| LPN 77
03040 M00S02842.ims +++| LMN STLE
03041 M00S02843.ims +++| ZJN CSD5 IF LABEL ERROR
03042 M00S02844.ims +++| LDD CM
03043 M00S02845.ims +++| SHN 21-LIAL+LIAL/12D*12D
03044 M00S02846.ims +++| MJN CSD10 IF DEADSTART INITIALIZE
03045 M00S02847.ims +++| LDC BFMS READ DIT TO BUFFER
03046 M00S02848.ims +++| RJM RDT
03047 M00S02849.ims +++| LDC MMFL GET MACHINE ID
03048 M00S02850.ims +++| CRD T7
03049 M00S02851.ims +++| LDC BFMS+2 SET SEARCH INDEX
03050 M00S02852.ims +++| STD TI
03051 M00S02853.ims +++| CSD8 LDM 2,TI
03052 M00S02854.ims +++| ZJN CSD9 IF SLOT NOT ASSIGNED
03053 M00S02855.ims +++| LDM 1,TI
03054 M00S02856.ims +++| LPN 2
03055 M00S02857.ims +++| NJN CSD9 IF NON-REMOVABLE DEVICE UNLOADED
03056 M00S02858.ims +++| LDM 2,TI
03057 M00S02859.ims +++| LMD T7
03058 M00S02860.ims +++| NJN CSD11 IF NOT THIS MACHINE
03059 M00S02861.ims +++| CSD9 LDN 5
03060 M00S02862.ims +++| RAD TI
03061 M00S02863.ims +++| LMC BFMS+2+5*MISD
03062 M00S02864.ims +++| NJN CSD8 IF NOT END OF SEARCH
03063 M00S02865.ims +++| CSD10 LJM CSD5 SET RESPONSE
03064 M00S02866.ims +++|
03065 M00S02867.ims +++| CSD11 LJM CSD6 SET BUSY RESPONSE
03066 M00S02868.ims +++|
03067 M00S02869.ims +++| CSDC DATA H* EQXXX, BUSY ON MID *
03068 M00S02870.ims +++| CSDD DATA C*XX.*
03069 M00S02871.ims +++| ISD SPACE 4,15
03070 M00S02872.ims +++|*** FUNCTION *ISDF* - INTERLOCK INDEPENDENT SHARED DEVICE.
03071 M00S02873.ims +++|*
03072 M00S02874.ims +++|* ENTRY (IR+3 - IR+4) = ADDRESS (ADDR) OF PARAMETERS.
03073 M00S02875.ims +++|* (T5) = EST ORDINAL.
03074 M00S02876.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY.
03075 M00S02877.ims +++|* (WB - WB+4) = PARAMETER WORD AT ADDR.
03076 M00S02878.ims +++|*
03077 M00S02879.ims +++|*T, ADDR 12/ ESTO, 47/ 0, 1/ F
03078 M00S02880.ims +++|* F = 0 TO CLEAR INTERLOCK.
03079 M00S02881.ims +++|* = 1 TO SET INTERLOCK.
03080 M00S02882.ims +++|*
03081 M00S02883.ims +++|* EXIT
03082 M00S02884.ims +++|*
03083 M00S02885.ims +++|*T, ADDR 12/ 7777, 48/ 0
03084 M00S02886.ims +++|
03085 M00S02887.ims +++|
03086 M00S02888.ims +++| ISD11 LDC ISDD ISSUE MESSAGE TO DAYFILE
03087 M00S02889.ims +++| RJM DFM
03088 M00S02890.ims +++| LJM DPP EXIT
03089 M00S02891.ims +++|
03090 M00S02892.ims +++| ISD ENTRY
03091 M00S02893.ims +++| LDD ES+4 FETCH LABEL TRACK WORD FROM MST
03092 M00S02894.ims +++| SHN 3
03093 M00S02895.ims +++| ADN ALGL
03094 M00S02896.ims +++| CRD CN
03095 M00S02897.ims +++| LDC MMFL GET MACHINE ID
03096 M00S02898.ims +++| CRD FN
03097 M00S02899.ims +++| LDD CN+1 SET LABEL TRACK
03098 M00S02900.ims +++| STD T6
03099 M00S02901.ims +++| LDN 0
03100 M00S02902.ims +++| STD T7
03101 M00S02903.ims +++| SETMS IO,(DE,DF,NS,RW)
03102 M00S02904.ims +++| LDC BFMS READ LABEL SECTOR
03103 M00S02905.ims +++| RJM RDS
03104 M00S02906.ims +++| MJN ISD11 IF READ ERROR
03105 M00S02907.ims +++| LDC DISS
03106 M00S02908.ims +++| STD TI
03107 M00S02909.ims +++| ISD1 LDM 3,TI CHECK INITIALIZE INTERLOCK
03108 M00S02910.ims +++| LPN 1
03109 M00S02911.ims +++| ZJN ISD2 IF INTERLOCK NOT SET
03110 M00S02912.ims +++| LJM ISD7 PROCESS INTERLOCK SET
03111 M00S02913.ims +++|
03112 M00S02914.ims +++| ISD2 LDM 4,TI
03113 M00S02915.ims +++| LMD FN
03114 M00S02916.ims +++| NJN ISD3 IF NOT THIS MACHINE
03115 M00S02917.ims +++| LDD TI SAVE ADDRESS FOR THIS MACHINE
03116 M00S02918.ims +++| ADN 3
03117 M00S02919.ims +++| STM ISDA
03118 M00S02920.ims +++| ISD3 LDN 5 INCREMENT ADDRESS
03119 M00S02921.ims +++| RAD TI
03120 M00S02922.ims +++| LMC DISS+5*MISD
03121 M00S02923.ims +++| NJN ISD1 IF NOT END OF SEARCH
03122 M00S02924.ims +++| LDD WB+4 CHECK FUNCTION
03123 M00S02925.ims +++| ZJN ISD5 IF CLEARING INTERLOCK
03124 M00S02926.ims +++| AOM ** SET INTERLOCK
03125 M00S02927.ims +++| ISDA EQU *-1
Line S02928 Modification History
M01 (Removed by) ns2547
Seq # *Modification Id* Act
----------------------------+
03126 M01S02928.ns2547 ---| ISD4 LDC BFMS+WLSF REWRITE SECTOR
Line S00001 Modification History
M01 (Added by) ns2547
Seq # *Modification Id* Act
----------------------------+
03127 M01S00001.ns2547 +++| ISD4 RJM CDC COMPUTE LABEL CHECKSUM
03128 M01S00002.ns2547 +++| STM CKSS
03129 M01S00003.ns2547 +++| LDC BFMS+WLSF REWRITE LABEL SECTOR
03130 M00S02929.ims +++| RJM WDS
03131 M00S02930.ims +++| ISD5 ENDMS
03132 M00S02931.ims +++| LCN 0 SET RESPONSE
03133 M00S02932.ims +++| STD WB
03134 M00S02933.ims +++| RJM LDA
03135 M00S02934.ims +++| CWD WB
03136 M00S02935.ims +++| LDD WB+4
03137 M00S02936.ims +++| ZJN ISD6 IF CLEARING INTERLOCK
03138 M00S02937.ims +++| SMSTF LPTU SET TRT IN CM FLAG
03139 M00S02938.ims +++| ISD6 LJM DPP EXIT
03140 M00S02939.ims +++|
03141 M00S02940.ims +++| ISD7 LDM 4,TI
03142 M00S02941.ims +++| LMD FN
03143 M00S02942.ims +++| NJN ISD8 IF NOT THIS MACHINE
03144 M00S02943.ims +++| LDD WB+4
03145 M00S02944.ims +++| NJN ISD5 IF SETTING THE INTERLOCK
03146 M00S02945.ims +++| SOM 3,TI
03147 M00S02946.ims +++| UJP ISD4 REWRITE SECTOR
03148 M00S02947.ims +++|
03149 M00S02948.ims +++| ISD8 LDD ES+4 FETCH MST ERROR STATUS
03150 M00S02949.ims +++| SHN 3
03151 M00S02950.ims +++| ADN STLL
03152 M00S02951.ims +++| CRD CM
03153 M00S02952.ims +++| LDD CM+1 CHECK ERROR STATUS
03154 M00S02953.ims +++| LPN 77
03155 M00S02954.ims +++| LMN STLE
03156 M00S02955.ims +++| ZJN ISD9 IF LABEL ERROR
03157 M00S02956.ims +++| LDD CM
03158 M00S02957.ims +++| SHN 21-LIAL+LIAL/12D*12D
03159 M00S02958.ims +++| PJN ISD10 IF NOT DEADSTART INITIALIZE
03160 M00S02959.ims +++| ISD9 LJM ISD5 SET INTERLOCK COMPLETE
03161 M00S02960.ims +++|
03162 M00S02961.ims +++| ISD10 LDM 4,TI SET MACHINE ID IN MESSAGE
03163 M00S02962.ims +++| STM ISDC
03164 M00S02963.ims +++| ENDMS
03165 M00S02964.ims +++| LDC ISDB DISPLAY MESSAGE
03166 M00S02965.ims +++| LJM RCL RECALL *IMS*
03167 M00S02966.ims +++|
03168 M00S02967.ims +++|
03169 M00S02968.ims +++| ISDB DATA H* EQXXX, INTERLOCKED BY MID *
03170 M00S02969.ims +++| ISDC DATA C*XX.*
03171 M00S02970.ims +++| ISDD DATA C* EQXXX, LABEL READ ERROR.*
03172 M00S02971.ims +++| CRI TITLE SUBROUTINES.
03173 M00S02972.ims +++|** CRI - CHECK RECOVERY INTERLOCK.
03174 M00S02973.ims +++|*
03175 M00S02974.ims +++|* EXIT TO *RCL* IF INTERLOCK NOT SET.
03176 M00S02975.ims +++|*
03177 M00S02976.ims +++|* USES CN - CN+4.
03178 M00S02977.ims +++|*
03179 M00S02978.ims +++|* CALLS IFR, RCL.
03180 M00S02979.ims +++|
03181 M00S02980.ims +++|
03182 M00S02981.ims +++| CRI1 LDC 4000 SET INTERLOCK FLAG
03183 M00S02982.ims +++| RAD CN+2
03184 M00S02983.ims +++| LDC MMFL STORE DAT INTERLOCK STATUS
03185 M00S02984.ims +++| CWD CN
03186 M00S02985.ims +++| CRI2 AOM RCLB FLAG DAT INTERLOCK SET
03187 M00S02986.ims +++|
03188 M00S02987.ims +++| CRI SUBR ENTRY/EXIT
03189 M00S02988.ims +++| LDC MMFL
03190 M00S02989.ims +++| CRD CN
03191 M00S02990.ims +++| LDD CN+2 CHECK DAT INTERLOCKED
03192 M00S02991.ims +++| SHN 21-13
03193 M00S02992.ims +++| MJN CRI2 IF INTERLOCKED BY THIS MACHINE
03194 M00S02993.ims +++| LDN DATI GET DAT INTERLOCK
03195 M00S02994.ims +++| RJM IFR
03196 M00S02995.ims +++| ZJN CRI1 IF INTERLOCK SET
03197 M00S02996.ims +++| LDC CRIA RECALL WAITING FOR INTERLOCK
03198 M00S02997.ims +++| UJN RCL RECALL *IMS*
03199 M00S02998.ims +++|
03200 M00S02999.ims +++| CRIA DATA C*$WAITING - RECOVERY INTERLOCK.*
03201 M00S03000.ims +++| RCL SPACE 4,10
03202 M00S03001.ims +++|** RCL - RECALL *IMS*.
03203 M00S03002.ims +++|*
03204 M00S03003.ims +++|* ENTRY (A) = MESSAGE ADDRESS.
03205 M00S03004.ims +++|* (IR - IR+4) = *IMS* CALL.
03206 M00S03005.ims +++|
03207 M00S03006.ims +++|
03208 M00S03007.ims +++| RCL STM RCLA WRITE MESSAGE TO CP
03209 M00S03008.ims +++| LDD CP
03210 M00S03009.ims +++| ADN MS2W
03211 M00S03010.ims +++| CWM **,TR
03212 M00S03011.ims +++| RCLA EQU *-1
03213 M00S03012.ims +++| RCLB LDN 0
03214 M00S03013.ims +++|* LDN 1 (DAT INTERLOCK SET)
03215 M00S03014.ims +++| ZJN RCL1 IF DAT NOT INTERLOCKED
03216 M00S03015.ims +++| LCN DATI
03217 M00S03016.ims +++| RJM IFR
03218 M00S03017.ims +++| LDC MMFL CLEAR DAT INTERLOCK FLAG
03219 M00S03018.ims +++| CRD CM
03220 M00S03019.ims +++| LDC 4000
03221 M00S03020.ims +++| RAD CM+2
03222 M00S03021.ims +++| LDC MMFL
03223 M00S03022.ims +++| CWD CM
03224 M00S03023.ims +++| RCL1 LDN ZERL
03225 M00S03024.ims +++| CRD CM
03226 M00S03025.ims +++| LDD MA RECALL REQUEST
03227 M00S03026.ims +++| CWM IR,ON
03228 M00S03027.ims +++| CWD CM
03229 M00S03028.ims +++| MONITOR RECM
03230 M00S03029.ims +++| LJM PPR EXIT
Line S00132 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
03231 M01S00132.ims6 +++| SPACE 4,10
Line S00004 Modification History
M01 (Added by) ns2547
Seq # *Modification Id* Act
----------------------------+
03232 M01S00004.ns2547 +++|** COMMON DECKS.
03233 M01S00005.ns2547 +++|
03234 M01S00006.ns2547 +++|
03235 M01S00007.ns2547 +++|*CALL COMPCLC
03236 M00S03030.ims +++| SPACE 4
03237 M00S03031.ims +++| OVERFLOW OVLA,BFMS
03238 M00S03032.ims +++| INT SPACE 4,10
03239 M00S03033.ims +++|** INT - INITIALIZE OVERLAY.
03240 M00S03034.ims +++|*
03241 M00S03035.ims +++|* ENTRY (IR - IR+4) = *IMS* CALL.
03242 M00S03036.ims +++|*
03243 M00S03037.ims +++|* EXIT (ES - RS+4) = EST ENTRY.
03244 M00S03038.ims +++|* (WB - WB+4) = PARAMETER WORD FOR *IMS* CALL.
03245 M00S03039.ims +++|* (T5) = EST ORDINAL FROM THE PARAMETER WORD.
03246 M00S03040.ims +++|*
03247 M00S03041.ims +++|* CALLS C2D, LDA.
03248 M00S03042.ims +++|*
03249 M00S03043.ims +++|* MACROS SFA.
03250 M00S03044.ims +++|
03251 M00S03045.ims +++|
03252 M00S03046.ims +++| INT SUBR ENTRY/EXIT
03253 M00S03047.ims +++| RJM LDA READ PARAMETER WORD
03254 M00S03048.ims +++| CRD WB
03255 M00S03049.ims +++| SFA EST,WB GET EST ENTRY
03256 M00S03050.ims +++| ADK EQDE
03257 M00S03051.ims +++| CRD ES
03258 M00S03052.ims +++| LDD WB SET EST ORDINAL
03259 M00S03053.ims +++| STD T5
03260 M00S03054.ims +++| STM EQNO
03261 M00S03055.ims +++| RJM C2D
03262 M00S03056.ims +++| STM CSDC+2
03263 M00S03057.ims +++| STM ISDB+2
03264 M00S03058.ims +++| STM ISDD+2
03265 M00S03059.ims +++| LDD WB
03266 M00S03060.ims +++| SHN -6
03267 M00S03061.ims +++| ADC 2RQ0
03268 M00S03062.ims +++| STM CSDC+1
03269 M00S03063.ims +++| STM ISDB+1
03270 M00S03064.ims +++| STM ISDD+1
03271 M00S03065.ims +++| UJP INTX RETURN
03272 M00S03066.ims +++| OVERLAY (MISCELLANEOUS FUNCTIONS.)
03273 M00S03067.ims +++| SFL SPACE 4,10
03274 M00S03068.ims +++|*** FUNCTION *SFLF* - SET FLAWS.
03275 M00S03069.ims +++|*
03276 M00S03070.ims +++|* ENTRY (IR+3 - IR+4) = ADDRESS (ADDR) OF PARAMETERS.
03277 M00S03071.ims +++|*
03278 M00S03072.ims +++|*T, ADDR 12/ TYPE, 12/ 0, 12/ ESTO, 12/ 0, 12/ TRACK
Figure
ADDR
0 11 12 23 24 29 TRACK 0 ESTO 30 35 36 47 48 59 ESTO 0 TYPE
03279 M00S03073.ims +++|*
03280 M00S03074.ims +++|* TYPE 0 = END OF TABLE.
03281 M00S03075.ims +++|* 1 = SET FLAW.
03282 M00S03076.ims +++|* 2 = CLEAR FLAW.
03283 M00S03077.ims +++|
03284 M00S03078.ims +++|
03285 M00S03079.ims +++| SFL ENTRY
03286 M00S03080.ims +++| LDN PNFE PARAMETER BLOCK WORD COUNT
03287 M00S03081.ims +++| STD TI
03288 M00S03082.ims +++| RJM LDA READ FLAW LIST
03289 M00S03083.ims +++| CRM BUF,TI
03290 M00S03084.ims +++| LDN 0 SET END OF BUFFER
03291 M00S03085.ims +++| STM BUF+PNFE*5
03292 M00S03086.ims +++| LDM BUF+2 SET MASS STORAGE EQUIPMENT
03293 M00S03087.ims +++| RJM SME
03294 M00S03088.ims +++| LDD ES+4
03295 M00S03089.ims +++| SHN 3
03296 M00S03090.ims +++| ADK TDGL FETCH TRT LENGTH FROM MST
03297 M00S03091.ims +++| CRD CN
03298 M00S03092.ims +++| RJM TRT UPDATE TRT
03299 M00S03093.ims +++| LDN 0
03300 M00S03094.ims +++| STD CA CLEAR FLAW REQUESTS PROCESSED
03301 M00S03095.ims +++| STD T4
03302 M00S03096.ims +++| STD CA+1 CLEAR FLAWS NOT PROCESSED
03303 M00S03097.ims +++| STD TI
03304 M00S03098.ims +++| LDC MESBL-1 SET MESSAGE BUFFER ADDRESS FOR FLAWS
03305 M00S03099.ims +++| STD TA
03306 M00S03100.ims +++| LDN 5+1 NUMBER OF TRACKS + 1 PRINTED PER LINE
03307 M00S03101.ims +++| STD T3
03308 M00S03102.ims +++| UJN SFL4 ENTER LOOP
03309 M00S03103.ims +++|
03310 M00S03104.ims +++|* ENTER FLAW NOT PROCESSED IN MESSAGE.
03311 M00S03105.ims +++|
03312 M00S03106.ims +++| SFL1 SOD T3
03313 M00S03107.ims +++| NJN SFL2 IF NOT YET A FULL LINE
03314 M00S03108.ims +++| STI TA COMPLETE PREVIOUS LINE
03315 M00S03109.ims +++| AOD T4 INCREMENT LINE COUNT
03316 M00S03110.ims +++| LDN 5 NUMBER OF TRACKS PRINTED PER LINE
03317 M00S03111.ims +++| STD T3
03318 M00S03112.ims +++| SFL2 AOD CA+1 COUNT FLAWS NOT PROCESSED
03319 M00S03113.ims +++| AOD TA
03320 M00S03114.ims +++| LDD T6 PLACE TRACK IN MESSAGE
03321 M00S03115.ims +++| SHN -6
03322 M00S03116.ims +++| RJM C2D
03323 M00S03117.ims +++| STI TA
03324 M00S03118.ims +++| AOD TA
03325 M00S03119.ims +++| LDD T6
03326 M00S03120.ims +++| RJM C2D
03327 M00S03121.ims +++| STI TA
03328 M00S03122.ims +++| AOD TA
03329 M00S03123.ims +++| LDC 2R,
03330 M00S03124.ims +++| STI TA
03331 M00S03125.ims +++|
03332 M00S03126.ims +++|* INCREMENT TO NEXT FLAW REQUEST.
03333 M00S03127.ims +++|
03334 M00S03128.ims +++| SFL3 AOD CA INCREMENT REQUEST COUNTER
03335 M00S03129.ims +++| LDN 5
03336 M00S03130.ims +++| RAD TI ADVANCE TO NEXT REQUEST
03337 M00S03131.ims +++|
03338 M00S03132.ims +++|* CHECK FLAW REQUEST.
03339 M00S03133.ims +++|
03340 M00S03134.ims +++| SFL4 LDM BUF+4,TI CHECK TRACK BIT
03341 M00S03135.ims +++| RJM CTB
03342 M00S03136.ims +++| LDM BUF,TI
03343 M00S03137.ims +++| ZJN SFL9 IF END OF LIST
03344 M00S03138.ims +++| LDD T2
03345 M00S03139.ims +++| SBD CN+2
03346 M00S03140.ims +++| PJN SFL8 IF OUT OF TRT
03347 M00S03141.ims +++| LDM CM,T1 CHECK LINKAGE BYTE
03348 M00S03142.ims +++| LMC 3777
03349 M00S03143.ims +++| NJN SFL7 IF TRACK NOT PREVIOUSLY FLAWED
03350 M00S03144.ims +++| LDM BUF,TI CHECK REQUEST TYPE
03351 M00S03145.ims +++| SBN 1
03352 M00S03146.ims +++| SFL5 ZJN SFL3 IF SET REQUEST
03353 M00S03147.ims +++| LDN CTFS&STFS
03354 M00S03148.ims +++| SFL6 LMK STFS SET FLAW REQUEST
03355 M00S03149.ims +++| RJM STB
03356 M00S03150.ims +++| ZJN SFL5 IF NO REJECT
03357 M00S03151.ims +++| UJN SFL8 SET FLAW NOT PROCESSED
03358 M00S03152.ims +++|
03359 M00S03153.ims +++| SFL7 LDM BUF,TI
03360 M00S03154.ims +++| LMN 2
03361 M00S03155.ims +++| ZJN SFL5 IF CLEAR REQUEST
03362 M00S03156.ims +++| LDD CM+4
03363 M00S03157.ims +++| ZJN SFL6 IF TRACK NOT RESERVED
03364 M00S03158.ims +++| SFL8 LJM SFL1 SET FLAW NOT PROCESSED
03365 M00S03159.ims +++|
03366 M00S03160.ims +++| SFL9 LDD CA COMPUTE FLAWS PROCESSED
03367 M00S03161.ims +++| SBD CA+1
03368 M00S03162.ims +++| RJM C2D CONVERT TO DISPLAY CODE
03369 M00S03163.ims +++| STM MESA+4
03370 M00S03164.ims +++| LDC MESA * EQXXX, YY TRACKS FLAWED.*
03371 M00S03165.ims +++| RJM DFM
03372 M00S03166.ims +++| LDC ERLN+MESA ISSUE MESSAGE TO ERRLOG
03373 M00S03167.ims +++| RJM DFM
03374 M00S03168.ims +++| LDD CA+1
03375 M00S03169.ims +++| ZJN SFL11 IF ALL FLAWS PROCESSED
03376 M00S03170.ims +++| RJM C2D
03377 M00S03171.ims +++| STM MESB+4 INSERT COUNT IN MESSAGE
03378 M00S03172.ims +++| LDC MESB
03379 M00S03173.ims +++| RJM DFM * EQXXX, YY FLAWS NOT PROCESSED.*
03380 M00S03174.ims +++| LDC ERLN+MESB
03381 M00S03175.ims +++| RJM DFM
03382 M00S03176.ims +++| LDN 0
03383 M00S03177.ims +++| STI TA COMPLETE LAST PARTIAL LINE
03384 M00S03178.ims +++| LDC MESBL-3*5
03385 M00S03179.ims +++| STD T3
03386 M00S03180.ims +++| SFL10 LDN 3*5 ADVANCE TO NEXT LINE
03387 M00S03181.ims +++| RAD T3
03388 M00S03182.ims +++| RJM DFM ISSUE A BUFFER OF FLAWS MESSAGE
03389 M00S03183.ims +++| LDD T3
03390 M00S03184.ims +++| LMC ERLN ISSUE MESSAGE TO ERRLOG
03391 M00S03185.ims +++| RJM DFM
03392 M00S03186.ims +++| SOD T4
03393 M00S03187.ims +++| PJN SFL10 IF MORE BUFFERS TO ISSUE
03394 M00S03188.ims +++| SFL11 LJM DPP2 INITIALIZE PACK FLAWS
03395 M00S03189.ims +++| IDF SPACE 4,15
03396 M00S03190.ims +++|*** FUNCTION *IDFF* - INITIALIZE INACTIVE DAYFILES.
03397 M00S03191.ims +++|*
03398 M00S03192.ims +++|* ENTRY (IR+3) = 6/ N, 6/ 0
03399 M00S03193.ims +++|* (IR+4) = EST ORDINAL.
03400 M00S03194.ims +++|*
03401 M00S03195.ims +++|* N = 0 TO INITIALIZE SYSTEM DAYFILE.
03402 M00S03196.ims +++|* = 1 TO INITIALIZE ACCOUNT FILE.
03403 M00S03197.ims +++|* = 2 TO INITIALIZE ERRLOG FILE.
03404 M00S03198.ims +++|* = 3 TO INITIALIZE MAINTENANCE LOG FILE.
03405 M00S03199.ims +++|*
03406 M00S03200.ims +++|* EXIT INACTIVE DAYFILE TRACK CHAINS RELEASED.
03407 M00S03201.ims +++|
03408 M00S03202.ims +++|
03409 M00S03203.ims +++| IDF ENTRY
03410 M00S03204.ims +++| RJM GLA GET LOCAL AREA SECTOR
03411 M00S03205.ims +++| ZJN IDF1 IF NO DAYFILES ON DEVICE
03412 M00S03206.ims +++| STM IDFA
03413 M00S03207.ims +++| LDD IR+3 PICKUP FILE POINTER
03414 M00S03208.ims +++| SHN -6
03415 M00S03209.ims +++| STD TI
03416 M00S03210.ims +++| ADN 1 SET POINTER FOR CHECKPOINT REQUEST
03417 M00S03211.ims +++| STM CKCA+4
03418 M00S03212.ims +++| LDM IDFA,TI
03419 M00S03213.ims +++| IDFA EQU *-1
03420 M00S03214.ims +++| NJN IDF2 IF FILE ON THIS EQUIPMENT
03421 M00S03215.ims +++| IDF1 LDC MESG * EQXXX, NO INACTIVE DAYFILES FOUND.*
03422 M00S03216.ims +++| LJM IDF8 CLEAR INTERLOCK AND EXIT
03423 M00S03217.ims +++|
03424 M00S03218.ims +++|* SET DAYFILE EQUIPMENTS FOR ACTIVE FILES.
03425 M00S03219.ims +++|
03426 M00S03220.ims +++| IDF2 STD T6 SET FIRST TRACK
03427 M00S03221.ims +++| LDN DFPP
03428 M00S03222.ims +++| CRD FN DAYFILE POINTER (FN)
03429 M00S03223.ims +++| LDD TI
03430 M00S03224.ims +++| SHN 1
03431 M00S03225.ims +++| ADD TI
03432 M00S03226.ims +++| SHN 6
03433 M00S03227.ims +++| ADD FN SET FWA OF DAYFILE POINTERS
03434 M00S03228.ims +++| SHN 14
03435 M00S03229.ims +++| ADD FN+1
03436 M00S03230.ims +++| ADN 2
03437 M00S03231.ims +++| CRD CN READ DAYFILE FST
03438 M00S03232.ims +++| LDD CN
03439 M00S03233.ims +++| LPN 77
03440 M00S03234.ims +++| LMD T5
03441 M00S03235.ims +++| NJN IDF4 IF NOT ACTIVE DAYFILE
03442 M00S03236.ims +++| LDC MESI * EQXXX, FILE ACTIVE - (NAME)*
03443 M00S03237.ims +++| UJN IDF7 CLEAR INTERLOCK AND ISSUE MESSAGE
03444 M00S03238.ims +++|
03445 M00S03239.ims +++| IDF4 RJM DTS CHECK IF INTERLOCKED
03446 M00S03240.ims +++| PJN IDF5 IF FILE FREE
03447 M00S03241.ims +++| LDC MESJ * EQXXX, FILE BUSY - (NAME)*
03448 M00S03242.ims +++| UJN IDF7 CLEAR INTERLOCK AND ISSUE MESSAGE
03449 M00S03243.ims +++|
03450 M00S03244.ims +++|* RELEASE FILE FROM SYSTEM.
03451 M00S03245.ims +++|
03452 M00S03246.ims +++| IDF5 RJM STI INTERLOCK FILE
03453 M00S03247.ims +++| LMD T6
03454 M00S03248.ims +++| ZJN IDF6 IF TRACK NOT RESERVED
03455 M00S03249.ims +++| STD CM+2
03456 M00S03250.ims +++| LDD T5 RELEASE FILE
03457 M00S03251.ims +++| STD CM+1
03458 M00S03252.ims +++| MONITOR DTKM
03459 M00S03253.ims +++|* LDN 0 INDICATE LOCAL AREA UPDATE
03460 M00S03254.ims +++| IDF6 STM IDFD
03461 M00S03255.ims +++| UJN IDF10 ISSUE MESSAGES
03462 M00S03256.ims +++|
03463 M00S03257.ims +++| IDF7 STD CM SET MESSAGE ADDRESS
03464 M00S03258.ims +++| ADN MENM
03465 M00S03259.ims +++| STM IDFC SET FILE TYPE ADDRESS
03466 M00S03260.ims +++| LDM DFTY,TI
03467 M00S03261.ims +++| STM IDFB SET FILE NAME
03468 M00S03262.ims +++| LDD MA
03469 M00S03263.ims +++| CWM **,ON
03470 M00S03264.ims +++| IDFB EQU *-1 FILE NAME ADDRESS
03471 M00S03265.ims +++| SBN 1
03472 M00S03266.ims +++| CRM **,ON READ FILE NAME INTO MESSAGE
03473 M00S03267.ims +++| IDFC EQU *-1
03474 M00S03268.ims +++| LDD CM ISSUE DAYFILE MESSAGE
03475 M00S03269.ims +++| ADC NMSN
03476 M00S03270.ims +++| IDF8 RJM DFM
03477 M00S03271.ims +++| LDC * CHECK FOR LOCAL AREA UPDATE
03478 M00S03272.ims +++| IDFD EQU *-1
03479 M00S03273.ims +++| ZJN IDF9 IF LOCAL AREA UPDATE REQUIRED
03480 M00S03274.ims +++| LJM DPP DROP PP
03481 M00S03275.ims +++|
03482 M00S03276.ims +++| IDF9 LDN 4
03483 M00S03277.ims +++| LJM CKC CHECKPOINT LOCAL AREA
03484 M00S03278.ims +++|
03485 M00S03279.ims +++|* ISSUE NORMAL COMPLETION MESSAGES.
03486 M00S03280.ims +++|
03487 M00S03281.ims +++| IDF10 LDM DFTY,TI SET FILE NAME ADDRESS
03488 M00S03282.ims +++| STM IDFE
03489 M00S03283.ims +++| LDD MA MOVE FILE NAME TO MESSAGE
03490 M00S03284.ims +++| CWM **,ON
03491 M00S03285.ims +++| IDFE EQU *-1 (FILE NAME ADDRESS)
03492 M00S03286.ims +++| SBN 1
03493 M00S03287.ims +++| CRM MESH+MENM,ON
03494 M00S03288.ims +++| LDC MESH+NMSN ISSUE DAYFILES ONLY MESSAGE
03495 M00S03289.ims +++| UJN IDF8
03496 M00S03290.ims +++|
03497 M00S03291.ims +++|
03498 M00S03292.ims +++|* DAYFILE NAME POINTERS.
03499 M00S03293.ims +++|
03500 M00S03294.ims +++| DFTY CON DFDF
03501 M00S03295.ims +++| CON DFAF
03502 M00S03296.ims +++| CON DFEL
03503 M00S03297.ims +++| CON DFML
03504 M00S03298.ims +++|
03505 M00S03299.ims +++|* DAYFILE NAMES.
03506 M00S03300.ims +++|
03507 M00S03301.ims +++| DFDF DATA 10HDAYFILE.
03508 M00S03302.ims +++| DFAF DATA 10HACCOUNT.
03509 M00S03303.ims +++| DFEL DATA 10HERRLOG.
03510 M00S03304.ims +++| DFML DATA 10HMAINLOG.
03511 M00S03305.ims +++| CIN SPACE 4,10
03512 M00S03306.ims +++|*** FUNCTION *CINF* - CLEAR INITIALIZE REQUEST.
03513 M00S03307.ims +++|*
03514 M00S03308.ims +++|* ENTRY (IR+4) = EST ORDINAL.
03515 M00S03309.ims +++|
03516 M00S03310.ims +++|
03517 M00S03311.ims +++| CIN ENTRY
03518 M00S03312.ims +++| LDD IR+4
03519 M00S03313.ims +++| STD T5
03520 M00S03314.ims +++| SFA EST READ EST ENTRY
03521 M00S03315.ims +++| ADK EQDE
03522 M00S03316.ims +++| CRD ES
03523 M00S03317.ims +++| LDD ES+4 GET MST STATUS WORD
03524 M00S03318.ims +++| SHN 3
03525 M00S03319.ims +++| ADN STLL
03526 M00S03320.ims +++| CRD WB
03527 M00S03321.ims +++| LDD WB CLEAR INITIALIZE FLAGS
03528 M00S03322.ims +++| STD T1
03529 M00S03323.ims +++| LPN MLCKP+MRASD+MLUNL+MLDUL
03530 M00S03324.ims +++| STD WB
03531 M00S03325.ims +++| LDD WB+1
03532 M00S03326.ims +++| LPN 77
03533 M00S03327.ims +++| STD WB+1
03534 M00S03328.ims +++| CIN1 LDD ES+4 STORE DEVICE STATUS WORD
03535 M00S03329.ims +++| SHN 3
03536 M00S03330.ims +++| ADN STLL
03537 M00S03331.ims +++| CWD WB
03538 M00S03332.ims +++| CMSTF LIAL FORCE MST UPDATE ON LINK DEVICE
03539 M00S03333.ims +++| LDD T1
03540 M00S03334.ims +++| LPC MLIAL+MLIHD+MLIFD+MLIPF
03541 M00S03335.ims +++| ZJN CIT3 IF NOT PF/FULL INITIALIZE
03542 M00S03336.ims +++| SOD CN+2
03543 M00S03337.ims +++| MJN CIT3 IF NOT MMF ENVIRONMENT
03544 M00S03338.ims +++| LPN 77
03545 M00S03339.ims +++| NJN CIT2 IF NOT LAST INITIALIZE REQUEST
03546 M00S03340.ims +++|* UJN CIT
03547 M00S03341.ims +++| CIT SPACE 4,10
03548 M00S03342.ims +++|*** FUNCTION *CITF* - CLEAR *CMS* INTERLOCK.
03549 M00S03343.ims +++|*
03550 M00S03344.ims +++|* ENTRY (IR+4) = *MSI* ABORT FLAG.
03551 M00S03345.ims +++|
03552 M00S03346.ims +++|
03553 M00S03347.ims +++| CIT ENTRY
03554 M00S03348.ims +++| LDD IR+4
03555 M00S03349.ims +++| NJN CIT4 IF *MSI* ABORT
03556 M00S03350.ims +++| CIT1 LDD CN+2 CHECK DAT INTERLOCKED
03557 M00S03351.ims +++| SHN 0-13
03558 M00S03352.ims +++| ZJN CIT3 IF INTERLOCK NOT SET
03559 M00S03353.ims +++| LCN DATI CLEAR DATI INTERLOCK
03560 M00S03354.ims +++| RJM IFR
03561 M00S03355.ims +++| STD CN+2 CLEAR INITIALIZE COUNT
03562 M00S03356.ims +++| CIT2 LDC MMFL
03563 M00S03357.ims +++| CWD CN
03564 M00S03358.ims +++| CIT3 LJM DPP DROP PP
03565 M00S03359.ims +++|
Line S03360 Modification History
M01 (Removed by) ims6
Seq # *Modification Id* Act
----------------------------+
03566 M01S03360.ims6 ---| CIT4 LDD CP READ JOB CONTROL INFORMATION
03567 M01S03361.ims6 ---| ADN JCIW
03568 M01S03362.ims6 ---| CRD CM
03569 M01S03363.ims6 ---| LDD CM+2 CHECK SUBSYSTEM ID
03570 M01S03364.ims6 ---| LMC DSSI
Line S00133 Modification History
M01 (Added by) ims6
Seq # *Modification Id* Act
----------------------------+
03571 M01S00133.ims6 +++| CIT4 LDM ABTB
03572 M00S03365.ims +++| NJN CIT5 IF NOT DEADSTART SEQUENCING
03573 M00S03366.ims +++| LDD MA STORE *UADM* PARAMETERS
03574 M00S03367.ims +++| CWM CITA,ON
03575 M00S03368.ims +++| LDN 1 SET WORD COUNT / NO DROP PP
03576 M00S03369.ims +++| STD CM+1
03577 M00S03370.ims +++| STD CM+2 DISABLE JOB SCHEDULER
03578 M00S03371.ims +++| MONITOR UADM
03579 M00S03372.ims +++| CIT5 LDN NCPL READ NUMBER OF CONTROL POINTS
03580 M00S03373.ims +++| CRD CM
03581 M00S03374.ims +++| AOD CM+1 SET SYSTEM CONTROL POINT
03582 M00S03375.ims +++| SHN 7
03583 M00S03376.ims +++| ADN MS2W STORE CONTROL POINT MESSAGE
03584 M00S03377.ims +++| CWM CITB,TR
03585 M00S03378.ims +++| LJM CIT1 CHECK DAT INTERLOCKED
03586 M00S03379.ims +++|
03587 M00S03380.ims +++|
03588 M00S03381.ims +++| CITA CON LIOS INCREMENT BY ONE
03589 M00S03382.ims +++| CON INWL WORD ADDRESS
03590 M00S03383.ims +++| CON 13DS6+1 BIT POSITION + FIELD WIDTH
03591 M00S03384.ims +++| CON 0,0
03592 M00S03385.ims +++|
03593 M00S03386.ims +++| CITB DATA C*MSI ABORT.*
03594 M00S03387.ims +++| SPACE 4,10
03595 M00S03388.ims +++|* COMMON DECKS.
03596 M00S03389.ims +++|
03597 M00S03390.ims +++|
03598 M00S03391.ims +++|*CALL COMPDTS
03599 M00S03392.ims +++| SPACE 4,10
03600 M00S03393.ims +++| OVERFLOW OVLA,BUF
03601 M00S03394.ims +++| SPACE 4
03602 M00S03395.ims +++| TTL IMS - INITIALIZE MASS STORAGE.
03603 M00S03396.ims +++| END