cdc:nos2.source:opl.opl871:deck:ims.001
Deck IMS Part 001
6 Modifications
Listing Sections
- Deck IMS Start
- Deck IMS Part 1 (Line 1931)
Source
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
Figure
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
02323 M00S02138.ims +++|*T, 60/ PFGL WORD OF MST
Figure
02324 M00S02139.ims +++|*T, 60/ PUGL WORD OF MST
Figure
02325 M00S02140.ims +++|*T, 60/ MDGL WORD OF MST
Figure
02326 M00S02141.ims +++|*T, 12/ NC, 12/ EQ, 12/ AI, 12/ CI, 12/ NE
Figure
02327 M00S02142.ims +++|*T, 12/ NP, 48/ UNIT LIST (*LDAM* DEVICES)
Figure
02328 M00S02143.ims +++|*T, 60/ REPLY WORD
Figure
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
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
Figure ADDR
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
Figure ADDR
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
Figure ADDR
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
Figure ADDR
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
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
cdc/nos2.source/opl.opl871/deck/ims.001.txt · Last modified: (external edit)