cdc:nos2.source:opl.opl871:deck:ims
Deck IMS
6 Modifications
Listing Sections
- Deck IMS Start
- Deck IMS Part 1 (Line 1792)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.ims +++| IDENT IMS,/IMS/IMS 00002 M01S00002.ims +++| PERIPH 00003 M01S00003.ims +++| BASE MIXED 00004 M01S00004.ims +++| SST 00005 M01S00005.ims +++|*COMMENT IMS - INITIALIZE MASS STORAGE.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.ims +++| TITLE IMS - INITIALIZE MASS STORAGE. 00009 M01S00008.ims +++| SPACE 4 00010 M01S00009.ims +++|*** IMS - INITIALIZE MASS STORAGE. 00011 M01S00010.ims +++|* S. L. BETH 73/01/31. 00012 M01S00011.ims +++|* T. H. MACFARLAND. 74/04/25. 00013 M01S00012.ims +++|* P. D. HAAS. 87/03/31. 00014 M01S00013.ims +++| SPACE 4 00015 M01S00014.ims +++|*** IMS MAY BE CALLED TO DO THE FOLLOWING 00016 M01S00015.ims +++|* 00017 M01S00016.ims +++|* 00018 M01S00017.ims +++|* FUNCTION 1 INITIALIZE PERMANENT FILES. 00019 M01S00018.ims +++|* RELEASES ALL PF TRACKS AND REALOCATES 00020 M01S00019.ims +++|* THE CATALOG, PERMITS AND DATA TRACKS. 00021 M01S00020.ims +++|* 00022 M01S00021.ims +++|* FUNCTION 2 EDIT DIRECT ACCESS FILES. 00023 M01S00022.ims +++|* RELEASES DIRECT ACCESS FILES WHICH 00024 M01S00023.ims +++|* HAVE CATALOGS ON THE SPECIFIED DEVICE. 00025 M01S00024.ims +++|* 00026 M01S00025.ims +++|* FUNCTION 3 SET/CLEAR FLAWS ON THE EQUIPMENT. 00027 M01S00026.ims +++|* PROCESS FLAW LIST AND ENTER IN TRT. 00028 M01S00027.ims +++|* 00029 M01S00028.ims +++|* FUNCTION 4 CHECK SHARED DEVICE STATUS. 00030 M01S00029.ims +++|* CHECK IF SHARED DEVICE IS UNLOADED 00031 M01S00030.ims +++|* IN OTHER MACHINES. 00032 M01S00031.ims +++|* 00033 M01S00032.ims +++|* FUNCTION 5 INITIALIZE LOCAL AREAS. 00034 M01S00033.ims +++|* RELEASE SPACE WHICH IS PRESERVED BY 00035 M01S00034.ims +++|* INACTIVE LOCAL AREAS. 00036 M01S00035.ims +++|* 00037 M01S00036.ims +++|* FUNCTION 6 ALTER MST DATA. 00038 M01S00037.ims +++|* ENTER NEW DEVICE CHARACTERISTICS IN MST. 00039 M01S00038.ims +++|* 00040 M01S00039.ims +++|* FUNCTION 7 CLEAR INITIALIZE REQUESTS. 00041 M01S00040.ims +++|* CLEARS ALL INITIALIZE REQUESTS ON 00042 M01S00041.ims +++|* THE SPECIFIED DEVICE. 00043 M01S00042.ims +++|* 00044 M01S00043.ims +++|* FUNCTION 10 INITIALIZE INACTIVE DAYFILES. 00045 M01S00044.ims +++|* RELEASE SPACE ON SPECIFIED INACTIVE 00046 M01S00045.ims +++|* DAYFILE. 00047 M01S00046.ims +++|* 00048 M01S00047.ims +++|* FUNCTION 11 CLEAR CMS INTERLOCK. 00049 M01S00048.ims +++|* CLEAR DATI INTERLOCK AND BYTE 2 OF MMFL. 00050 M01S00049.ims +++|* 00051 M01S00050.ims +++|* FUNCTION 12 SET/CLEAR DEVICE INTERLOCK ON AN 00052 M01S00051.ims +++|* INDEPENDENT SHARED DEVICE. 00053 M01S00052.ims +++|* 00054 M01S00053.ims +++|* (THE CALLING JOB MUST HAVE SYSTEM PERMISSION) 00055 M01S00054.ims +++|* 00056 M01S00055.ims +++|*** CALL FORMATS 00057 M01S00056.ims +++|* 00058 M01S00057.ims +++|* 00059 M01S00058.ims +++|* INITIALIZE 18/IMS,6/20,18/100,18/EQ 00060 M01S00059.ims +++|* 00061 M01S00060.ims +++|* EDIT DA FILES 18/IMS,6/20,18/200,18/PARAM 00062 M01S00061.ims +++|* 00063 M01S00062.ims +++|* PARAM 12/MASK,12/EQ,36/0 00064 M01S00063.ims +++|* 00065 M01S00064.ims +++|* SET FLAWS 18/IMS,6/20,18/300,18/PARAM 00066 M01S00065.ims +++|* 00067 M01S00066.ims +++|* PARAM 12/TYPE,12/0,12/EQ,12/0,12/LOGICAL TRACK 00068 M01S00067.ims +++|* 00069 M01S00068.ims +++|* TYPE 0 = END TABLE 00070 M01S00069.ims +++|* 1 = SET FLAW 00071 M01S00070.ims +++|* 2 = CLEAR FLAW 00072 M01S00071.ims +++|* 00073 M01S00072.ims +++|* CHECK STATUS 18/IMS,6/20,18/400,18/ADDRESS 00074 M01S00073.ims +++|* 00075 M01S00074.ims +++|* ADDRESS 12/EQ,48/0 00076 M01S00075.ims +++|* 00077 M01S00076.ims +++|* INITIALIZE LOCAL 18/IMS,6/20,18/500,18/EQUIPMENT 00078 M01S00077.ims +++|* 00079 M01S00078.ims +++|* UPDATE MST 18/IMS,6/20,18/600,18/LIST 00080 M01S00079.ims +++|* 00081 M01S00080.ims +++|* CLEAR INI REQ 18/IMS,6/20,18/700,18/EQ 00082 M01S00081.ims +++|* 00083 M01S00082.ims +++|** INITIALIZE DAYFILES 18/IMS,6/20,18/100N,18/EQ 00084 M01S00083.ims +++|* 00085 M01S00084.ims +++|* N = 0 INITIALIZE SYSTEM DAYFILE. 00086 M01S00085.ims +++|* = 1 INITIALIZE ACCOUNT FILE. 00087 M01S00086.ims +++|* = 2 INITIALIZE ERRLOG FILE. 00088 M01S00087.ims +++|* = 3 INITIALIZE MAINTENANCE LOG FILE. 00089 M01S00088.ims +++|* 00090 M01S00089.ims +++|* CLEAR INTERLOCK 18/IMS,6/20,18/1100,18/0 00091 M01S00090.ims +++|* 00092 M01S00091.ims +++|* INTERLOCK DEVICE 18/IMS,6/20,18/1200,18/ADDRESS 00093 M01S00092.ims +++|* ADDRESS 12/EQ,47/0,1/F 00094 M01S00093.ims +++| SPACE 4 00095 M01S00094.ims +++|*** ENTRY CONDITIONS. 00096 M01S00095.ims +++|* 00097 M01S00096.ims +++|* (IR+2) = FUNCTION CODE. 00098 M01S00097.ims +++|* (IR+3) = PARAMETER ADDRESS IF REQUIRED 00099 M01S00098.ims +++|* (IR+4) = PARAMETER ADDRESS IF REQUIRED 00100 M01S00099.ims +++| SPACE 4 00101 M01S00100.ims +++|*** DAYFILE MESSAGES. 00102 M01S00101.ims +++|* 00103 M01S00102.ims +++|* * EQXXX, FILE ACTIVE - FILENAME.* 00104 M01S00103.ims +++|* 00105 M01S00104.ims +++|* * EQXXX, FILE BUSY - FILENAME.* 00106 M01S00105.ims +++|* 00107 M01S00106.ims +++|* * EQXXX, FLAWING INCOMPLETE.* 00108 M01S00107.ims +++|* 00109 M01S00108.ims +++|* * EQXXX, INITIALIZED - FILENAME.* 00110 M01S00109.ims +++|* 00111 M01S00110.ims +++|* * EQXXX, LABEL READ ERROR.* 00112 M01S00111.ims +++|* 00113 M01S00112.ims +++|* * EQXXX, LOCAL AREAS INITIALIZED.* 00114 M01S00113.ims +++|* 00115 M01S00114.ims +++|* * EQXXX, LOCAL AREA SECTOR RESET.* 00116 M01S00115.ims +++|* 00117 M01S00116.ims +++|* * EQXXX, NO INACTIVE DAYFILES FOUND.* 00118 M01S00117.ims +++|* 00119 M01S00118.ims +++|* * EQXXX, PF INITIALIZE COMPLETE.* 00120 M01S00119.ims +++|* 00121 M01S00120.ims +++|* * EQXXX, PROTECTED QUEUES IGNORED.* 00122 M01S00001.ims6 +++|* 00123 M01S00002.ims6 +++|* * EQXXX, TKYYYY - TRACK FLAWED BY IMS. 00124 M01S00121.ims +++|* 00125 M01S00122.ims +++|* * EQXXX, YY FLAWS NOT PROCESSED. (WITH LIST).* 00126 M01S00123.ims +++|* 00127 M01S00124.ims +++|* * EQXXX, YY TRACKS FLAWED.* 00128 M01S00125.ims +++|* 00129 M01S00126.ims +++|* * ERROR ON LINK DEVICE.* 00130 M01S00127.ims +++|* 00131 M01S00128.ims +++|* * INCORRECT IMS REQUEST.* 00132 M01S00129.ims +++|* 00133 M01S00130.ims +++|* * IMS ABORTED.*
| Line S00131 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00134 M02S00131.ims6 ---|*
| Line S00132 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00135 M02S00132.ims6 ---|* * IMS - TRACK FLAWED, EQXXX, TKYYYY.* 00136 M01S00133.ims +++|* 00137 M01S00134.ims +++|* * LABEL TRACK CONFLICT.* 00138 M01S00135.ims +++| SPACE 4 00139 M01S00136.ims +++|*** ACCOUNT FILE MESSAGES. 00140 M01S00137.ims +++|* 00141 M01S00138.ims +++|* *ADDI, XXX, FFFFFFF, DD.* = EST ORDINAL XXX WITH FAMILY NAME 00142 M01S00139.ims +++|* FFFFFFF AND DEVICE NUMBER DD HAS BEEN INITIALIZED. 00143 M01S00140.ims +++|* 00144 M01S00141.ims +++|* *ADPI, XXX, PPPPPPP, UUUUUUU.* = EST ORDINAL XXX WITH PACKNAME 00145 M01S00142.ims +++|* PPPPPPP HAS BEEN INITIALIZED. IF PRESENT, UUUUUUU INDICATES 00146 M01S00143.ims +++|* THAT THE PACK IS A PRIVATE PACK BELONGING TO THAT USER. 00147 M01S00144.ims +++| SPACE 4 00148 M01S00145.ims +++|*** ERRLOG MESSAGES. 00149 M01S00146.ims +++|* 00150 M01S00147.ims +++|* * EQXXX, LOCAL AREA SECTOR ERROR.* 00151 M01S00148.ims +++|* 00152 M01S00149.ims +++|* * EQXXX, TKYYYY, SYSTEM SECTOR ERROR.* 00153 M01S00003.ims6 +++|* 00154 M01S00004.ims6 +++|* * EQXXX, TKYYYY - TRACK FLAWED BY IMS. 00155 M01S00005.ims6 +++|* 00156 M01S00006.ims6 +++|* * EQXXX, TKYYYY - VERIFICATION ERRORS. 00157 M01S00150.ims +++|* 00158 M01S00151.ims +++|* * EQXXX, YY TRACKS FLAWED.* 00159 M01S00152.ims +++|* 00160 M01S00153.ims +++|* * EQXXX, YY FLAWS NOT PROCESSED. (WITH LIST).* 00161 M01S00154.ims +++|* 00162 M01S00155.ims +++|* * IMS ABORTED.*
| Line S00156 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00163 M02S00156.ims6 ---|*
| Line S00157 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00164 M02S00157.ims6 ---|* * IMS - TRACK FLAWED, EQXXX, TKYYYY.* 00165 M01S00158.ims +++| SPACE 4 00166 M01S00159.ims +++|*** CONTROL POINT MESSAGES. 00167 M01S00160.ims +++|* * EQXXX, BUSY ON MID YY.* = SHARED EST ORDINAL XXX IS NOT 00168 M01S00161.ims +++|* UNLOADED ON MAINFRAME WITH MACHINE ID YY. 00169 M01S00162.ims +++|* 00170 M01S00163.ims +++|* * EQXXX, INTERLOCKED BY MID YY.* = INDEPENDENT SHARED EST 00171 M01S00164.ims +++|* ORDINAL XXX IS INTERLOCKED FOR INITIALIZATION BY THE MAINFRAME 00172 M01S00165.ims +++|* WITH MACHINE ID YY. 00173 M01S00166.ims +++|* 00174 M01S00167.ims +++|* *MSI ABORT.* = *MSI* ABORTED. IF THIS OCCURRED DURING THE 00175 M01S00168.ims +++|* DEADSTART SEQUENCING JOB, JOB SCHEDULING WILL REMAIN DISABLED. 00176 M01S00169.ims +++|* 00177 M01S00170.ims +++|* *READING TRACK-XXXX* = *IMS* IS READING THE SPECIFIED TRACK. 00178 M01S00171.ims +++|* 00179 M01S00172.ims +++|* *WAITING - RECOVERY INTERLOCK.* = *IMS* IS WAITING FOR THE 00180 M01S00173.ims +++|* DAT INTERLOCK TO BECOME FREE, TO ENSURE THAT *CMS* IS NOT 00181 M01S00174.ims +++|* IN ANY OTHER MACHINE IN THE MMF COMPLEX. 00182 M01S00175.ims +++| SPACE 4 00183 M01S00176.ims +++|** ROUTINES USED. 00184 M01S00177.ims +++|* 00185 M01S00178.ims +++|* 0PI - PRESET DRIVER TO READ/WRITE DEADSTART SECTOR. 00186 M01S00179.ims +++|* 0TI - SET TRACK FLAWS IN TRT. 00187 M01S00180.ims +++|* 1CK - CHECKPOINT DEVICE. 00188 M01S00181.ims +++| SPACE 4 00189 M01S00182.ims +++|*CALL COMPMAC 00190 M01S00183.ims +++|*CALL COMSCPS 00191 M01S00184.ims +++|*CALL COMSDSL 00192 M01S00185.ims +++| QUAL EVENT 00193 M01S00186.ims +++|*CALL COMSEVT 00194 M01S00187.ims +++| QUAL * 00195 M01S00188.ims +++|*CALL COMSHIO 00196 M01S00189.ims +++|*CALL COMSIOQ 00197 M01S00190.ims +++|*CALL COMSLSD 00198 M01S00191.ims +++|*CALL COMSMMF 00199 M01S00192.ims +++|*CALL COMSMSC 00200 M01S00193.ims +++|*CALL COMSMSI 00201 M01S00194.ims +++|*CALL COMSMSP 00202 M01S00195.ims +++|*CALL COMSMST 00203 M01S00196.ims +++|*CALL COMSPFM 00204 M01S00197.ims +++|*CALL COMSPIM 00205 M01S00198.ims +++|*CALL COMSSSD 00206 M01S00199.ims +++|*CALL COMSWEI 00207 M01S00200.ims +++| SPACE 4 00208 M01S00201.ims +++|**** DIRECT LOCATION ASSIGNMENTS. 00209 M01S00202.ims +++| 00210 M01S00203.ims +++| 00211 M01S00007.ims6 +++| T9 EQU 17 SCRATCH CELL 00212 M01S00204.ims +++| CN EQU 20 - 24 CM WORD BUFFER (5 LOCATIONS) 00213 M01S00205.ims +++| TI EQU 25 TEMP INDEX 00214 M01S00206.ims +++| LD EQU 26 EST ORDINAL OF LINK DEVICE 00215 M01S00207.ims +++| MI EQU 27 MACHINE INDEX 00216 M01S00208.ims +++| ES EQU 30 - 34 EST ENTRY (5 LOCATIONS) 00217 M01S00209.ims +++| LT EQU 35 LABEL TRACK 00218 M01S00210.ims +++| TA EQU 36 TEMP COUNTER 00219 M01S00211.ims +++| TL EQU 37 TRT LENGTH 00220 M01S00212.ims +++| FN EQU 40 - 44 CM WORD BUFFER (5 WORDS). 00221 M01S00213.ims +++| DI EQU 45 DAT INDEX 00222 M01S00214.ims +++| BY EQU 46 BYTE COUNT 00223 M01S00215.ims +++| DE EQU 47 DAT ENTRY COUNT 00224 M01S00216.ims +++| AI EQU 57 ALGORITHM INDEX 00225 M01S00217.ims +++| WB EQU 60 - 64 CM WORD BUFFER (5 LOCATIONS) 00226 M01S00218.ims +++| PF EQU 65 PRESERVED FILE TRACK INTERLOCK STATUS 00227 M01S00219.ims +++| CA EQU 66 - 67 CENTRAL BUFFER (2 LOCATIONS) 00228 M01S00220.ims +++|**** 00229 M01S00221.ims +++| SPACE 4,10 00230 M01S00222.ims +++|* ASSEMBLY CONSTANTS. 00231 M01S00223.ims +++| 00232 M01S00224.ims +++| 00233 M01S00225.ims +++| BUF EQU BFMS-502 ALTERNATE SECTOR BUFFER 00234 M01S00226.ims +++| FPPA EQU BUF+5 FLAW PROCESSOR PARAMETER ADDRESS 00235 M01S00227.ims +++| FPLA EQU FPPA+1 FLAW PROCESSOR LOAD ADDRESS 00236 M01S00008.ims6 +++| VERC EQU 2 VERIFICATION ERROR RETRY COUNT 00237 M01S00228.ims +++| SPACE 4 00238 M01S00229.ims +++|* EQUATES FOR FUNCTION 6 PARAMETER BUFFER 00239 M01S00230.ims +++| 00240 M01S00231.ims +++| 00241 M01S00232.ims +++| PMES EQU 5*0 EST ENTRY 00242 M01S00233.ims +++| PMPF EQU 5*1 PFGL WORD OF MST 00243 M01S00234.ims +++| PMPU EQU 5*2 PUGL WORD OF MST 00244 M01S00235.ims +++| PMMD EQU 5*3 MDGL WORD OF MST 00245 M01S00236.ims +++| PMNC EQU 5*4+0 NUMBER OF CATALOG TRACKS 00246 M01S00237.ims +++| PMEQ EQU 5*4+1 EST ORDINAL 00247 M01S00238.ims +++| PMAI EQU 5*4+2 ALGORITHM INDEX 00248 M01S00239.ims +++| PMCI EQU 5*4+3 CLEAR IN USE AS CHAINED DEVICE 00249 M01S00240.ims +++| PMNE EQU 5*4+4 NEXT EST ORDINAL IN CHAIN 00250 M01S00241.ims +++| PMAL EQU 5*5 EQUIPMENT ALLOCATION *DDLL* 00251 M01S00242.ims +++| PMRP EQU 5*6 REPLY WORD 00252 M01S00243.ims +++| PMMSL EQU 7 LENGTH OF PARAMETER BLOCK 00253 M01S00244.ims +++| SPACE 4 00254 M01S00245.ims +++|* FUNCTION EQUATES FOR SUBROUTINE *UEC*. 00255 M01S00246.ims +++| 00256 M01S00247.ims +++| 00257 M01S00248.ims +++| UPGA EQU 1 UPDATE GLOBAL AREA 00258 M01S00249.ims +++| UPDA EQU 2 UPDATE DAT INFORMATION 00259 M01S00250.ims +++| RDDA EQU 4 READ DAT INFORMATION 00260 M01S00251.ims +++| TITLE MACRO DEFINITIONS. 00261 M01S00252.ims +++| ENTRY SPACE 4,10 00262 M01S00253.ims +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00263 M01S00254.ims +++|* 00264 M01S00255.ims +++|* NAME ENTRY 00265 M01S00256.ims +++|* NAME = NAME OF ENTRY ADDRESS. 00266 M01S00257.ims +++| 00267 M01S00258.ims +++| 00268 M01S00259.ims +++| PURGMAC ENTRY 00269 M01S00260.ims +++| 00270 M01S00261.ims +++| MACRO ENTRY,NAME 00271 M01S00262.ims +++| MACREF ENTRY 00272 M01S00263.ims +++| QUAL 00273 M01S00264.ims +++| IF MIC,.M 00274 M01S00265.ims +++| NAME EQU *+1R".M"*10000B 00275 M01S00266.ims +++| ELSE 1 00276 M01S00267.ims +++| NAME EQU * 00277 M01S00268.ims +++| QUAL * 00278 M01S00269.ims +++| ENDM 00279 M01S00270.ims +++| FCN SPACE 4,10 00280 M01S00271.ims +++|** FCN - DEFINE FUNCTION PROCESSOR. 00281 M01S00272.ims +++|* 00282 M01S00273.ims +++|*TBLN FCN 00283 M01S00274.ims +++|* FCN CODE,NAME 00284 M01S00275.ims +++|* 00285 M01S00276.ims +++|* ENTRY *TBLN* = TABLE NAME (FIRST ENTRY ONLY). 00286 M01S00277.ims +++|* *CODE* = FUNCTION CODE. 00287 M01S00278.ims +++|* *NAME* = FUNCTION PROCESSING ROUTINE NAME. 00288 M01S00279.ims +++| 00289 M01S00280.ims +++| 00290 M01S00281.ims +++| MACRO FCN,T,C,N 00291 M01S00282.ims +++| IFC EQ,*N** 00292 M01S00283.ims +++| T INDEX C*2 00293 M01S00284.ims +++| ELSE 2 00294 M01S00285.ims +++| INDEX C*2,N-N/10000B*10000B 00295 M01S00286.ims +++| CON N/10000B 00296 M01S00287.ims +++| ENDM 00297 M01S00288.ims +++| OVERLAY SPACE 4,10 00298 M01S00289.ims +++|** OVERLAY - DEFINE SECONDARY OVERLAY(S). 00299 M01S00290.ims +++|* 00300 M01S00291.ims +++|* OVERLAY (TEXT),PRS 00301 M01S00292.ims +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00302 M01S00293.ims +++|* *PRS* = NAME OF OPTIONAL PRESET ROUTINE. 00303 M01S00294.ims +++| 00304 M01S00295.ims +++| 00305 M01S00296.ims +++| .N SET 0 00306 M01S00297.ims +++| OVLB MICRO 1,, 4D OVERLAY NAME 00307 M01S00298.ims +++| 00308 M01S00299.ims +++| 00309 M01S00300.ims +++| PURGMAC OVERLAY 00310 M01S00301.ims +++| 00311 M01S00302.ims +++| OVERLAY MACRO TEXT,PRS 00312 M01S00303.ims +++| MACREF OVERLAY 00313 M01S00304.ims +++| QUAL 00314 M01S00305.ims +++| .N SET .N+1 00315 M01S00306.ims +++| .M MICRO .N,1, 0123456789 00316 M01S00307.ims +++| .O MICRO 1,3, "OVLB"".M" 00317 M01S00308.ims +++| QUAL IMS 00318 M01S00309.ims +++| TTL IMS/".O" - TEXT 00319 M01S00310.ims +++| TITLE 00320 M01S00311.ims +++| IDENT ".O",OVLA TEXT 00321 M01S00312.ims +++|*COMMENT IMS - TEXT
| Line S00313 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00322 M02S00313.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00323 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00324 M01S00314.ims +++| ORG OVLA 00325 M01S00315.ims +++| OV".M"_X LJM * ENTRY/EXIT 00326 M01S00316.ims +++| IFC NE,*PRS**,1 00327 M01S00317.ims +++| RJM PRS 00328 M01S00318.ims +++| UJN OV".M"_X OVERLAY EXIT ADDRESS 00329 M01S00319.ims +++| ENDM 00330 M01S00320.ims +++| TBLM SPACE 4,10 00331 M01S00321.ims +++|** TBLM = GENERATE TABLE OF ALTERNATE LABEL SECTORS. 00332 M01S00322.ims +++|* 00333 M01S00323.ims +++|* TBLM EQ 00334 M01S00324.ims +++|* EQ = MASS STORAGE EQUIPMENT MNEMONIC. 00335 M01S00325.ims +++| 00336 M01S00326.ims +++| 00337 M01S00327.ims +++| PURGMAC TBLM 00338 M01S00328.ims +++| 00339 M01S00329.ims +++| TBLM MACRO EQ 00340 M01S00330.ims +++| CON 2R_EQ,LC_EQ 00341 M01S00331.ims +++| ENDM 00342 M01S00332.ims +++| TITLE MAIN PROGRAM. 00343 M01S00333.ims +++| IMS SPACE 4,10 00344 M01S00334.ims +++|** IMS - MAIN PROGRAM. 00345 M01S00335.ims +++| 00346 M01S00336.ims +++| 00347 M01S00337.ims +++| QUAL IMS 00348 M01S00338.ims +++| ORG PPFW 00349 M01S00339.ims +++| 00350 M01S00340.ims +++| IMS RJM PRS PRESET PROGRAM 00351 M01S00341.ims +++| LDM TFCN+1,T2 00352 M01S00342.ims +++| ZJN IMS1 IF PROCESSOR RESIDENT 00353 M01S00343.ims +++| LMC 2L"OVLB" 00354 M01S00344.ims +++| RJM EXR LOAD OVERLAY 00355 M01S00345.ims +++| 00356 M01S00346.ims +++| IMS1 LJM * PROCESS FUNCTION 00357 M01S00347.ims +++| IMSA EQU *-1 00358 M01S00348.ims +++| TITLE RESIDENT SUBROUTINES. 00359 M01S00349.ims +++| CLI SPACE 4,10 00360 M01S00350.ims +++|** CLI - CLEAR INTERLOCKS. 00361 M01S00351.ims +++|* 00362 M01S00352.ims +++|* EXIT (A) = 0. 00363 M01S00353.ims +++|* 00364 M01S00354.ims +++|* USES T5. 00365 M01S00355.ims +++|* 00366 M01S00356.ims +++|* MACROS CMSTF. 00367 M01S00357.ims +++| 00368 M01S00358.ims +++| 00369 M01S00359.ims +++| CLI SUBR ENTRY/EXIT 00370 M01S00360.ims +++| LDC 0 00371 M01S00361.ims +++| CLIA EQU *-1 00372 M01S00362.ims +++| ZJN CLIX IF INTERLOCK NOT SET 00373 M01S00363.ims +++| STD T5 00374 M01S00364.ims +++| CMSTF LUAI CLEAR LOCAL UTILITY INTERLOCK 00375 M01S00365.ims +++|* LDN 0 00376 M01S00366.ims +++| UJN CLIX RETURN 00377 M01S00367.ims +++| RDS SPACE 4,10 00378 M01S00368.ims +++|** RDS - READ SECTOR. 00379 M01S00369.ims +++|* 00380 M01S00370.ims +++|* ENTRY (A) = BUFFER ADDRESS. 00381 M01S00371.ims +++|* (T5 - T7) = MASS STORAGE DRIVER PARAMETERS. 00382 M01S00372.ims +++|* 00383 M01S00373.ims +++|* EXIT (A) .LT. 0 IF MEDIA ERROR. 00384 M01S00374.ims +++|* 00385 M01S00375.ims +++|* ERROR TO *ABT1* IF NON-MEDIA ERROR. 00386 M01S00376.ims +++|* 00387 M01S00377.ims +++|* CALLS RDS. 00388 M01S00378.ims +++| 00389 M01S00379.ims +++| 00390 M01S00380.ims +++| RDS1 LDC 1S17 RETURN WITH ERROR STATUS 00391 M01S00381.ims +++| RDSA EQU *-1 00392 M01S00382.ims +++| 00393 M01S00383.ims +++| RDS SUBR ENTRY/EXIT 00394 M01S00384.ims +++| RJM //RDS 00395 M01S00385.ims +++| PJN RDSX IF NO ERROR 00396 M01S00386.ims +++| STM RDSA 00397 M01S00387.ims +++| LPN 77 00398 M01S00388.ims +++| LMN PARE 00399 M01S00389.ims +++| ZJN RDS1 IF MEDIA ERROR
| Line S00390 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00400 M02S00390.ims6 ---| UJN ABT1 ABORT 00401 M01S00009.ims6 +++| UJN ABT2 ABORT 00402 M01S00391.ims +++| WDS SPACE 4,15 00403 M01S00392.ims +++|** WDS - WRITE SECTOR. 00404 M01S00393.ims +++|* 00405 M01S00394.ims +++|* ENTRY (A) = BUFFER ADDRESS. 00406 M01S00395.ims +++|* (T5 - T7) = MASS STORAGE DRIVER PARAMETERS. 00407 M01S00396.ims +++|* 00408 M01S00397.ims +++|* EXIT (A) .LT. 0 IF MEDIA ERROR. 00409 M01S00398.ims +++|* IF RECOVERED ERROR ON PREVIOUS SECTOR. 00410 M01S00399.ims +++|* 00411 M01S00400.ims +++|* ERROR TO *ABT1* IF NON-MEDIA ERROR. 00412 M01S00401.ims +++|* 00413 M01S00402.ims +++|* CALLS WDS. 00414 M01S00403.ims +++| 00415 M01S00404.ims +++| 00416 M01S00405.ims +++| WDS1 LDC 1S17 RETURN WITH ERROR STATUS 00417 M01S00406.ims +++| WDSA EQU *-1 00418 M01S00407.ims +++| 00419 M01S00408.ims +++| WDS SUBR ENTRY/EXIT 00420 M01S00409.ims +++| RJM //WDS 00421 M01S00410.ims +++| PJN WDSX IF NO ERROR 00422 M01S00411.ims +++| STM WDSA 00423 M01S00412.ims +++| SHN 21-11 00424 M01S00413.ims +++| MJN WDS1 IF ERROR ON PREVIOUS SECTOR RECOVERED 00425 M01S00414.ims +++| SHN 12 00426 M01S00415.ims +++| LPN 77 00427 M01S00416.ims +++| LMN PARE 00428 M01S00417.ims +++| ZJN WDS1 IF MEDIA ERROR
| Line S00418 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00429 M02S00418.ims6 ---|* UJN ABT1 ABORT 00430 M01S00010.ims6 +++|* UJN ABT2 ABORT 00431 M01S00419.ims +++| ABT SPACE 4,10 00432 M01S00420.ims +++|** ABT - ABORT OPERATION. 00433 M01S00421.ims +++|* 00434 M01S00422.ims +++|* ENTRY (A) = ERROR MESSAGE ADDRESS. 00435 M01S00423.ims +++|* 00436 M01S00424.ims +++|* CALLS CLI, DFM. 00437 M01S00425.ims +++|* 00438 M01S00426.ims +++|* MACROS MONITOR. 00439 M01S00427.ims +++| 00440 M01S00428.ims +++|
| Line S00429 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00441 M02S00429.ims6 ---| ABT1 LDC MESM * IMS ABORTED.* 00442 M01S00011.ims6 +++| ABT2 CON 0 PASS INSTRUCTION 00443 M01S00012.ims6 +++| ABTB EQU ABT2 00444 M01S00013.ims6 +++|* UJN ABT1 (DEADSTART SEQUENCING JOB) 00445 M01S00014.ims6 +++| 00446 M01S00015.ims6 +++| ABT3 LDC MESM * IMS ABORTED.* 00447 M01S00430.ims +++| 00448 M01S00431.ims +++| ABT LMC ERLN ISSUE MESSAGE TO ERRLOG 00449 M01S00432.ims +++| RJM DFM 00450 M01S00433.ims +++| RJM CLI CLEAR INTERLOCKS 00451 M01S00434.ims +++| MONITOR ABTM
| Line S00435 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00452 M02S00435.ims6 ---| LJM PPR EXIT TO PP RESIDENT 00453 M01S00016.ims6 +++| ABTA LJM PPR EXIT TO PP RESIDENT 00454 M01S00017.ims6 +++|* LJM * (DEADSTART SEQUENCING) 00455 M01S00018.ims6 +++| 00456 M01S00019.ims6 +++| ABT1 LDD ES CHECK DEVICE TYPE 00457 M01S00020.ims6 +++| SHN 21-10 00458 M01S00021.ims6 +++| PJN ABT3 IF NON-REMOVABLE 00459 M01S00022.ims6 +++| LDN PCLR 00460 M01S00023.ims6 +++|* UJN MSI CLEAR INITIALIZE REQUEST 00461 M01S00436.ims +++| MSI SPACE 4,15 00462 M01S00437.ims +++|** MSI - ISSUE *MSI* REQUEST. 00463 M01S00438.ims +++|* 00464 M01S00439.ims +++|* ENTRY (A) = REQUEST CODE. 00465 M01S00440.ims +++|* 00466 M01S00441.ims +++|* EXIT TO DPP. 00467 M01S00442.ims +++|* 00468 M01S00443.ims +++|* USES CM - CM+5. 00469 M01S00444.ims +++| 00470 M01S00445.ims +++| 00471 M01S00446.ims +++| MSI STD CM+5 SET FUNCTION CODE 00472 M01S00447.ims +++| LDN ZERL 00473 M01S00448.ims +++| CRD CM 00474 M01S00449.ims +++| LDD RA STORE *MSI* REQUEST 00475 M01S00450.ims +++| SHN 6 00476 M01S00451.ims +++| ADN PREQ 00477 M01S00452.ims +++| CWD CM+1 00478 M01S00453.ims +++| UJN DPP DROP 00479 M01S00454.ims +++| 00480 M01S00455.ims +++| 00481 M01S00456.ims +++| DPP2 RJM IPF INITIALIZE PACK FLAWS 00482 M01S00457.ims +++| DPP1 SMSTF LCKP SET EQUIPMENT CHECKPOINT 00483 M01S00458.ims +++| 00484 M01S00459.ims +++| DPP RJM CLI CLEAR INTERLOCKS 00485 M01S00460.ims +++| MONITOR DPPM 00486 M01S00461.ims +++| LJM PPR EXIT TO PP RESIDENT 00487 M01S00462.ims +++| CKC SPACE 4,10 00488 M01S00463.ims +++|** CKC - CALL *1CK* TO PROCESS CHECKPOINT. 00489 M01S00464.ims +++|* 00490 M01S00465.ims +++|* ENTRY (A) = *1CK* FUNCTION CODE. 00491 M01S00466.ims +++|* (T5) = EST ORDINAL TO CHECKPOINT. 00492 M01S00467.ims +++|* 00493 M01S00468.ims +++|* EXIT TO *1CK*. 00494 M01S00469.ims +++|* 00495 M01S00470.ims +++|* CALLS CLI. 00496 M01S00471.ims +++|* 00497 M01S00472.ims +++|* MACROS EXECUTE. 00498 M01S00473.ims +++| 00499 M01S00474.ims +++| 00500 M01S00475.ims +++| CKC STM CKCA+2 00501 M01S00476.ims +++| RJM CLI CLEAR INTERLOCKS 00502 M01S00477.ims +++| LDD CP 00503 M01S00478.ims +++| SHN -7 SET CONTROL POINT 00504 M01S00479.ims +++| RAM CKCA+1 00505 M01S00480.ims +++| LDD IA SET UP CALL TO 1CK 00506 M01S00481.ims +++| CWM CKCA,ON 00507 M01S00482.ims +++| EXECUTE 1CK,= 00508 M01S00483.ims +++| LJM PPR RETURN TO PP RESIDENT 00509 M01S00484.ims +++| 00510 M01S00485.ims +++| 00511 M01S00486.ims +++| CKCA VFD 18/3L1CK,6/40,36/0 00512 M01S00487.ims +++| EQNO EQU CKCA+3 00513 M01S00488.ims +++| CAT SPACE 4,10 00514 M01S00489.ims +++|** CAT - CALCULATE ADDRESS OF TRT. 00515 M01S00490.ims +++|* 00516 M01S00491.ims +++|* ENTRY (A) = ADDRESS OF *TRLL* IN MST. 00517 M01S00492.ims +++|* 00518 M01S00493.ims +++|* EXIT (A) = ADDRESS OF TRT. 00519 M01S00494.ims +++|* 00520 M01S00495.ims +++|* USES CM - CM+4. 00521 M01S00496.ims +++| 00522 M01S00497.ims +++| 00523 M01S00498.ims +++| CAT SUBR ENTRY/EXIT 00524 M01S00499.ims +++| CRD CM GET FWA OF TRT 00525 M01S00500.ims +++| LDD CM+3 00526 M01S00501.ims +++| LPN 77 00527 M01S00502.ims +++| SHN 14 00528 M01S00503.ims +++| LMD CM+4 00529 M01S00504.ims +++| UJN CATX RETURN 00530 M01S00505.ims +++| CCS SPACE 4,10 00531 M01S00506.ims +++| CDE SPACE 4,10 00532 M01S00507.ims +++|** CDE - COMPARE DAT ENTRY. 00533 M01S00508.ims +++|* 00534 M01S00509.ims +++|* ENTRY (T2) = INDEX TO DAT SECTOR. 00535 M01S00510.ims +++|* (FN - FN+4) = CURRENT DEVICE DESCRIPTION. 00536 M01S00511.ims +++|* 00537 M01S00512.ims +++|* EXIT (A) = 0 IF DUPLICATE ENTRY. 00538 M01S00513.ims +++| 00539 M01S00514.ims +++| 00540 M01S00515.ims +++| CDE SUBR ENTRY/EXIT 00541 M01S00516.ims +++| LDD FN COMPARE ENTRY 00542 M01S00517.ims +++| LMM BFMS+2,T2 00543 M01S00518.ims +++| NJN CDEX IF NOT DUPLICATE 00544 M01S00519.ims +++| LDD FN+1 00545 M01S00520.ims +++| LMM BFMS+2+1,T2 00546 M01S00521.ims +++| NJN CDEX IF NOT DUPLICATE 00547 M01S00522.ims +++| LDD FN+2 00548 M01S00523.ims +++| LMM BFMS+2+2,T2 00549 M01S00524.ims +++| NJN CDEX IF NOT DUPLICATE 00550 M01S00525.ims +++| LDD FN+3 00551 M01S00526.ims +++| LMM BFMS+2+3,T2 00552 M01S00527.ims +++| UJN CDEX RETURN 00553 M01S00528.ims +++| CQF SPACE 4,20 00554 M01S00529.ims +++|** CQF - CHECK FOR QUEUED FILES. 00555 M01S00530.ims +++|* 00556 M01S00531.ims +++|* ENTRY (T5) = EQUIPMENT. 00557 M01S00532.ims +++|* (CN - CN+4) = TRT WORD. 00558 M01S00533.ims +++|* (TL) = TRT ORDINAL. 00559 M01S00534.ims +++|* (BY) = TRT BYTE NUMBER. 00560 M01S00535.ims +++|* DRIVER LOADED. 00561 M01S00536.ims +++|* 00562 M01S00537.ims +++|* EXIT (A) = 0 IF QUEUED FILE, DAYFILE, MRT, DAT OR 00563 M01S00538.ims +++|* USER EXTENDED MEMORY TRACK. 00564 M01S00539.ims +++|* (T6) = TRACK NUMBER. 00565 M01S00540.ims +++|* 00566 M01S00541.ims +++|* USES T1, T3, T6. 00567 M01S00542.ims +++|*
| Line S00543 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00568 M02S00543.ims6 ---|* CALLS CST, IMG, RSS, SSM. 00569 M01S00024.ims6 +++|* CALLS CST, IMG, RSS, STM. 00570 M01S00544.ims +++|* 00571 M01S00545.ims +++|* MACROS ENDMS. 00572 M01S00546.ims +++| 00573 M01S00547.ims +++| 00574 M01S00548.ims +++| CQF5 LDN 1 SET NOT QUEUED FILE 00575 M01S00549.ims +++| 00576 M01S00550.ims +++| CQF SUBR ENTRY/EXIT 00577 M01S00551.ims +++| LDD TL WORD COUNT 00578 M01S00552.ims +++| SHN 2 00579 M01S00553.ims +++| LMD BY BYTE COUNT 00580 M01S00554.ims +++| LMC 4000 00581 M01S00555.ims +++| STD T6 00582 M01S00556.ims +++| RJM IMG ISSUE READING TRACK MESSAGE 00583 M01S00557.ims +++| RJM CST CHECK FOR SPECIAL TRACKS 00584 M01S00558.ims +++| ZJN CQF5 IF INDIRECT CHAIN OR PERMIT CHAIN 00585 M01S00559.ims +++| MJN CQF2 IF IQFT TRACK OR DAT TRACK 00586 M01S00560.ims +++| LDN 0 00587 M01S00561.ims +++| RJM RSS READ SYSTEM SECTOR 00588 M01S00562.ims +++| NJN CQF4 IF ERROR IN SYSTEM SECTOR 00589 M01S00563.ims +++| ENDMS 00590 M01S00564.ims +++| LDM FNSS+4 00591 M01S00565.ims +++| SHN -6 00592 M01S00566.ims +++| STD T1 FILE TYPE 00593 M01S00567.ims +++| LMN LIFT CHECK FOR DAYFILES OR MRT 00594 M01S00568.ims +++| ZJN CQF2 IF DAYFILE TRACK 00595 M01S00569.ims +++| LDN RDATL 00596 M01S00570.ims +++| STD T3 MAXIMUM TYPES 00597 M01S00571.ims +++| CQF1 SOD T3 00598 M01S00572.ims +++| MJN CQF3 IF NOT QUEUED FILE 00599 M01S00573.ims +++| LDM RDAT,T3 00600 M01S00574.ims +++| LMD T1 00601 M01S00575.ims +++| NJN CQF1 IF NOT QUEUED 00602 M01S00576.ims +++| AOM CQFA 00603 M01S00577.ims +++| CQF2 LDN 0 INDICATE QUEUED FILE, DAYFILE, MRT, OR ECS 00604 M01S00578.ims +++| CQF3 LJM CQFX RETURN 00605 M01S00579.ims +++|
| Line S00580 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00606 M02S00580.ims6 ---| CQF4 RJM SSM ISSUE SYSTEM SECTOR ERROR MESSAGE 00607 M01S00025.ims6 +++| CQF4 LDC MESN ISSUE SYSTEM SECTOR ERROR MESSAGE 00608 M01S00026.ims6 +++| RJM STM 00609 M01S00581.ims +++| UJN CQF2 RETURN 00610 M01S00582.ims +++| 00611 M01S00583.ims +++| 00612 M01S00584.ims +++| CQFA CON 0 QUEUE FILE COUNT 00613 M01S00585.ims +++| 00614 M01S00586.ims +++| 00615 M01S00587.ims +++| FILEREC GENERATE PROTECTED TYPE TABLE (RDAT) 00616 M01S00588.ims +++| CST SPACE 4,10 00617 M01S00589.ims +++|** CST - CHECK SPECIAL TRACKS. 00618 M01S00590.ims +++|* 00619 M01S00591.ims +++|* ENTRY (T6) = TRACK. 00620 M01S00592.ims +++|* (ES - ES+4) = EST ENTRY. 00621 M01S00593.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 00622 M01S00594.ims +++|* 00623 M01S00595.ims +++|* EXIT (A) = 0 IF MATCH ON SPECIAL PF TRACKS. 00624 M01S00596.ims +++|* (A) .LT. 0 IF *IQFT*, DAT OR EXTENDED MEMORY TRACK. 00625 M01S00597.ims +++| 00626 M01S00598.ims +++| 00627 M01S00599.ims +++| CST SUBR ENTRY/EXIT 00628 M01S00600.ims +++| LDD ES+4 CHECK FOR PRESET NEEDED 00629 M01S00601.ims +++| LMC 7777 00630 M01S00602.ims +++| CSTB EQU *-1 00631 M01S00603.ims +++| ZJN CST1 IF NO PRESET NEEDED 00632 M01S00604.ims +++| LDD ES+4 00633 M01S00605.ims +++| STM CSTB 00634 M01S00606.ims +++| SHN 3 00635 M01S00607.ims +++| ADN ACGL 00636 M01S00608.ims +++| CRM CSTA+4,ON 00637 M01S00609.ims +++| ADN ALGL-ACGL-1 00638 M01S00610.ims +++| CRM CSTA,ON 00639 M01S00611.ims +++| CST1 LDD T6 CHECK FOR IAF TRACK 00640 M01S00612.ims +++| LMM CSTA 00641 M01S00613.ims +++| ZJN CSTX IF IAF TRACK 00642 M01S00614.ims +++| LDD T6 00643 M01S00615.ims +++| LMM CSTA+1 00644 M01S00616.ims +++| ZJN CSTX IF LABEL TRACK 00645 M01S00617.ims +++| LDD T6 00646 M01S00618.ims +++| LMM CSTA+2 00647 M01S00619.ims +++| ZJN CSTX IF PERMITS TRACK 00648 M01S00620.ims +++| LDD T6 00649 M01S00621.ims +++| LMM CSTA+4+3 00650 M01S00622.ims +++| ZJN CST3 IF MATCH ON IQFT FILE 00651 M01S00623.ims +++| LDD T6 CHECK FOR USER EXTENDED MEMORY TRACKS 00652 M01S00624.ims +++| LMM CSTA+4+1 00653 M01S00625.ims +++| ZJN CST3 IF USER EXTENDED MEMORY CHAIN 00654 M01S00626.ims +++| LDD T6 CHECK FOR DAT TRACK 00655 M01S00627.ims +++| LMM CSTA+4 00656 M01S00628.ims +++| NJN CST2 IF NO MATCH ON DAT TRACK 00657 M01S00629.ims +++| LDD LD CHECK FOR LINK DEVICE 00658 M01S00630.ims +++| ZJN CST2 IF NO LINK DEVICE 00659 M01S00631.ims +++| LMD T5 00660 M01S00632.ims +++| ZJN CST3 IF DAT TRACK 00661 M01S00633.ims +++| CST2 LDN 2 INDICATE SPECIAL TRACKS NOT FOUND 00662 M01S00634.ims +++| CST3 SBN 1 INDICATE *IQFT*, DAT OR ECS TRACK FOUND 00663 M01S00635.ims +++| LJM CSTX RETURN 00664 M01S00636.ims +++| 00665 M01S00637.ims +++| 00666 M01S00638.ims +++| CSTA BSSZ 5+4 00667 M01S00639.ims +++| CTB SPACE 4,15 00668 M01S00640.ims +++|** CTB - CHECK TRACK BITS. 00669 M01S00641.ims +++|* 00670 M01S00642.ims +++|* ENTRY (A) = TRACK NUMBER. 00671 M01S00643.ims +++|* (ES+4) = MST POINTER. 00672 M01S00644.ims +++|* 00673 M01S00645.ims +++|* EXIT (A) = (CM+4) = RESERVATION FLAG IN BIT 3. 00674 M01S00646.ims +++|* = PRESERVED FILE FLAG IN BIT 13. 00675 M01S00647.ims +++|* (T1) = TRT WORD INDEX. 00676 M01S00648.ims +++|* (T2) = TRT WORD NUMBER. 00677 M01S00649.ims +++|* (T6) = TRACK NUMBER. 00678 M01S00650.ims +++|* 00679 M01S00651.ims +++|* USES CM - CM+4. 00680 M01S00652.ims +++|* 00681 M01S00653.ims +++|* CALLS CAT. 00682 M01S00654.ims +++| 00683 M01S00655.ims +++| 00684 M01S00656.ims +++| CTB SUBR ENTRY/EXIT 00685 M01S00657.ims +++| STD T6 00686 M01S00658.ims +++| LPC 3777 SET TRT WORD NUMBER 00687 M01S00659.ims +++| SHN 21-1 00688 M01S00660.ims +++| STD T2 00689 M01S00661.ims +++| SHN 1-21 SET TRT WORD INDEX 00690 M01S00662.ims +++| STD T1 00691 M01S00663.ims +++| LMC SHNI+0 00692 M01S00664.ims +++| STM CTBA 00693 M01S00665.ims +++| LDD ES+4 READ TRT WORD 00694 M01S00666.ims +++| SHN 3 00695 M01S00667.ims +++| ADN TRLL 00696 M01S00668.ims +++| RJM CAT CALCULATE FWA OF TRT 00697 M01S00669.ims +++| ADD T2 00698 M01S00670.ims +++| CRD CM 00699 M01S00671.ims +++| LDD CM+4 SET TRACK BITS 00700 M01S00672.ims +++| CTBA SHN 0 00701 M01S00673.ims +++| LPC 4010 00702 M01S00674.ims +++| STD CM+4 00703 M01S00675.ims +++| UJN CTBX RETURN
| Line S00676 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00704 M02S00676.ns2776 ---| CTF SPACE 4,10
| Line S00677 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00705 M02S00677.ns2776 ---|** CTF - CHECK TRACK FLAWED IN TRT. 00706 M01S00001.ns2776 +++| FBT SPACE 4,10 00707 M01S00002.ns2776 +++|** FBT - FLAW BLOCK OF TRACKS IN TRT. 00708 M01S00678.ims +++|*
| Line S00679 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00709 M02S00679.ns2776 ---|* ENTRY (T3) = TRACK NUMBER (TRACK BIT NOT SET). 00710 M01S00003.ns2776 +++|* ENTRY (T3) = STARTING TRACK NUMBER (TRACK BIT NOT SET). 00711 M01S00004.ns2776 +++|* (TL) = ENDING TRACK NUMBER + 1 (TRACK BIT NOT SET). 00712 M01S00005.ns2776 +++|* (T5) = EST ORDINAL. 00713 M01S00680.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 00714 M01S00681.ims +++|* 00715 M01S00682.ims +++|* EXIT (A) = 0 IF TRACK FLAWED. 00716 M01S00683.ims +++|* 00717 M01S00684.ims +++|* USES T1, CM - CM+4. 00718 M01S00685.ims +++|* 00719 M01S00686.ims +++|* CALLS CAT. 00720 M01S00006.ns2776 +++|* 00721 M01S00007.ns2776 +++|* MACROS MONITOR. 00722 M01S00687.ims +++| 00723 M01S00688.ims +++|
| Line S00689 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00689.ns2776 ---| CTF SUBR ENTRY/EXIT
| Line S00690 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00725 M02S00690.ns2776 ---| LDD T3 UNPACK TRACK 00726 M01S00008.ns2776 +++| FBT SUBR ENTRY/EXIT 00727 M01S00009.ns2776 +++| FBT1 LDD T3 UNPACK TRACK 00728 M01S00691.ims +++| SHN 21-1 SET TRT WORD INDEX 00729 M01S00692.ims +++| STD T0 00730 M01S00693.ims +++| SHN 1-21 SET BYTE INDEX 00731 M01S00694.ims +++| STD T1 00732 M01S00695.ims +++| LDD ES+4 READ TRT WORD 00733 M01S00696.ims +++| SHN 3 00734 M01S00697.ims +++| ADN TRLL 00735 M01S00698.ims +++| RJM CAT CALCULATE FWA OF TRT 00736 M01S00699.ims +++| ADD T0 00737 M01S00700.ims +++| CRD CM 00738 M01S00701.ims +++| LDM CM,T1 CHECK TRACK 00739 M01S00702.ims +++| LMC 3777
| Line S00703 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00740 M02S00703.ns2776 ---| UJN CTFX RETURN 00741 M01S00010.ns2776 +++| ZJN FBT2 IF TRACK ALREADY FLAWED 00742 M01S00011.ns2776 +++| LDD T5 FLAW TRACK IN TRT 00743 M01S00012.ns2776 +++| STD CM+1 00744 M01S00013.ns2776 +++| LDD T3 00745 M01S00014.ns2776 +++| STD CM+2 00746 M01S00015.ns2776 +++| LDN STFS 00747 M01S00016.ns2776 +++| STD CM+3 00748 M01S00017.ns2776 +++| MONITOR STBM 00749 M01S00018.ns2776 +++| FBT2 AOD T3 ADVANCE TRACK NUMBER 00750 M01S00019.ns2776 +++| LMD TL 00751 M01S00020.ns2776 +++| NJN FBT1 IF NOT END OF TRACKS TO FLAW 00752 M01S00021.ns2776 +++| UJN FBTX RETURN 00753 M01S00704.ims +++| GDS SPACE 4,15 00754 M01S00705.ims +++|** GDS - GET DAT SECTOR. 00755 M01S00706.ims +++|* 00756 M01S00707.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 00757 M01S00708.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 00758 M01S00709.ims +++|* 00759 M01S00710.ims +++|* EXIT DAT SECTOR AT BFMS. 00760 M01S00711.ims +++|* (TI) = INDEX TO DAT ENTRY. 00761 M01S00712.ims +++|* (A) = 0 IF DEVICE NOT DEFINED IN DAT. 00762 M01S00713.ims +++|* 00763 M01S00714.ims +++|* USES TI, T5 - T7, CM - CM+4, FN - FN+4. 00764 M01S00715.ims +++|* 00765 M01S00716.ims +++|* CALLS ABT, RDS. 00766 M01S00717.ims +++|* 00767 M01S00718.ims +++|* MACROS ENDMS, SETMS. 00768 M01S00719.ims +++| 00769 M01S00720.ims +++| 00770 M01S00721.ims +++| GDS SUBR ENTRY/EXIT 00771 M01S00722.ims +++| LDD LD SET EQUIPMENT 00772 M01S00723.ims +++| STD T5 00773 M01S00724.ims +++| SETMS IO 00774 M01S00725.ims +++| LDD CM+4 GET DAT POINTERS 00775 M01S00726.ims +++| SHN 3 00776 M01S00727.ims +++| ADN ALGL 00777 M01S00728.ims +++| CRD CM 00778 M01S00729.ims +++| LDD ES+4 READ DAT INDEX 00779 M01S00730.ims +++| SHN 3 00780 M01S00731.ims +++| ADN MDGL 00781 M01S00732.ims +++| CRD FN 00782 M01S00733.ims +++| LDD CM+4 SET DAT TRACK 00783 M01S00734.ims +++| STD T6 00784 M01S00735.ims +++| LDM EQNO 00785 M01S00736.ims +++| LMD LD 00786 M01S00737.ims +++| ZJN GDS1 IF LINK DEVICE 00787 M01S00738.ims +++| LDD FN SET DAT SECTOR 00788 M01S00739.ims +++| LPC 377 00789 M01S00740.ims +++| ZJN GDSX IF NO DAT INDEX 00790 M01S00741.ims +++| SHN 21-4 00791 M01S00742.ims +++| GDS1 STD T7 00792 M01S00743.ims +++| SHN -14 SET DAT SECTOR INDEX 00793 M01S00744.ims +++| STD TI 00794 M01S00745.ims +++| SHN 2 00795 M01S00746.ims +++| RAD TI INDEX*5 00796 M01S00747.ims +++| LDC BFMS READ SECTOR 00797 M01S00748.ims +++| RJM RDS 00798 M01S00749.ims +++| PJN GDS3 IF NO ERRORS 00799 M01S00750.ims +++| GDS2 LDC GDSA 00800 M01S00751.ims +++| LJM ABT ABORT *IMS* 00801 M01S00752.ims +++| 00802 M01S00753.ims +++| GDS3 ENDMS 00803 M01S00754.ims +++| LDN 1 00804 M01S00755.ims +++| LJM GDSX RETURN 00805 M01S00756.ims +++| 00806 M01S00757.ims +++| 00807 M01S00758.ims +++| GDSA DATA C* ERROR ON LINK DEVICE.* 00808 M01S00759.ims +++| GLA SPACE 4,15 00809 M01S00760.ims +++|** GLA - GET LOCAL AREA SECTOR. 00810 M01S00761.ims +++|* 00811 M01S00762.ims +++|* ENTRY (IR+4) = EST ORDINAL. 00812 M01S00763.ims +++|* 00813 M01S00764.ims +++|* EXIT (A) = RETURN FROM *COMPRLA*. 00814 M01S00765.ims +++|* LOCAL UTILITY INTERLOCK SET. 00815 M01S00766.ims +++|* 00816 M01S00767.ims +++|* EREXIT TO *ABT* IF READ ERRORS. 00817 M01S00768.ims +++|* 00818 M01S00769.ims +++|* CALLS RLA, SLI, SME. 00819 M01S00770.ims +++| 00820 M01S00771.ims +++| 00821 M01S00772.ims +++| GLA1 STM BFMS+1 CLEAR SECTOR WORD COUNT 00822 M01S00773.ims +++| 00823 M01S00774.ims +++| GLA SUBR ENTRY/EXIT 00824 M01S00775.ims +++| LDD IR+4 SET MASS STORAGE EQUIPMENT 00825 M01S00776.ims +++| RJM SME 00826 M01S00777.ims +++| RJM SLI SET LOCAL UTILITY INTERLOCK 00827 M01S00778.ims +++| RJM RLA READ SECTOR OF LOCAL AREAS 00828 M01S00779.ims +++| PJN GLAX IF NO READ ERRORS 00829 M01S00780.ims +++| LDM BFMS 00830 M01S00781.ims +++| ZJN GLA1 IF SECTOR NOT REFORMATTED 00831 M01S00782.ims +++| LDC GLAA * EQXXX, LOCAL AREA SECTOR ERROR.* 00832 M01S00783.ims +++| LJM ABT ABORT 00833 M01S00784.ims +++| 00834 M01S00785.ims +++| 00835 M01S00786.ims +++| GLAA DATA C* EQXXX, LOCAL AREA SECTOR ERROR.* 00836 M01S00787.ims +++| IMG SPACE 4,10 00837 M01S00788.ims +++|** IMG - ISSUE *READING* MESSAGE. 00838 M01S00789.ims +++|* 00839 M01S00790.ims +++|* ENTRY (T6) = TRACK NUMBER TO ISSUE. 00840 M01S00791.ims +++|* 00841 M01S00792.ims +++|* EXIT MESSAGE WRITTEN TO *MS2W*. 00842 M01S00793.ims +++|* 00843 M01S00794.ims +++|* CALLS C2D. 00844 M01S00795.ims +++| 00845 M01S00796.ims +++| 00846 M01S00797.ims +++| IMG SUBR 00847 M01S00798.ims +++| LDD T6 00848 M01S00799.ims +++| RJM C2D CONVERT LOWER 00849 M01S00800.ims +++| STM IMGA+10 00850 M01S00801.ims +++| LDD T6 00851 M01S00802.ims +++| SHN -6 00852 M01S00803.ims +++| RJM C2D CONVERT UPPER 00853 M01S00804.ims +++| STM IMGA+7 00854 M01S00805.ims +++| LDD CP STORE CONTROL POINT MESSAGE 00855 M01S00806.ims +++| ADN MS2W 00856 M01S00807.ims +++| CWM IMGA,TR 00857 M01S00808.ims +++| UJN IMGX RETURN 00858 M01S00809.ims +++| 00859 M01S00810.ims +++| 00860 M01S00811.ims +++| IMGA DATA C*READING TRACK-XXXX* 00861 M01S00812.ims +++| IPF SPACE 4,10 00862 M01S00813.ims +++|** IPF - INITIALIZE PACK FLAWS. 00863 M01S00814.ims +++|* 00864 M01S00815.ims +++|* ENTRY (T5) = EST ORDINAL. 00865 M01S00816.ims +++|* (ES - ES+4) = EST ENTRY. 00866 M01S00817.ims +++|* 00867 M01S00818.ims +++|* USES AI, T2, CM - CM+4, FN - FN+4. 00868 M01S00819.ims +++|* 00869 M01S00820.ims +++|* CALLS DFM, EXR, RCS, SDR, *0TI*, *0TJ*. 00870 M01S00821.ims +++|* 00871 M01S00822.ims +++|* MACROS EXECUTE. 00872 M01S00823.ims +++| 00873 M01S00824.ims +++| 00874 M01S00825.ims +++| IPF3 LDD ES+4 00875 M01S00826.ims +++| SHN 3 00876 M01S00827.ims +++| ADN DDLL 00877 M01S00828.ims +++| CRD CM 00878 M01S00829.ims +++| LDD CM SET NUMBER OF UNITS 00879 M01S00830.ims +++| LPN 7 00880 M01S00831.ims +++| STD T2 00881 M01S00832.ims +++| LDN PRFM SET TRACK FLAW REQUEST 00882 M01S00833.ims +++| RJM SDR 00883 M01S00834.ims +++| 00884 M01S00835.ims +++| IPF SUBR ENTRY/EXIT 00885 M01S00836.ims +++| IPFA LDN 0 00886 M01S00837.ims +++| NJN IPFX IF PACK FLAWS ALREADY PROCESSED 00887 M01S00838.ims +++| LDD ES 00888 M01S00839.ims +++| SHN 21-7 00889 M01S00840.ims +++| PJN IPFX IF NOT AN LDAM DEVICE 00890 M01S00841.ims +++| AOM IPFA 00891 M01S00842.ims +++| LDD ES+1 CHECK CONCURRENT CHANNEL FLAGS 00892 M01S00843.ims +++| SHN 21-5 00893 M01S00844.ims +++| PJN IPF1 IF NOT A CONCURRENT CHANNEL 00894 M01S00845.ims +++| LDD ES+2 00895 M01S00846.ims +++| ZJN IPF3 IF SECOND CHANNEL NOT DEFINED 00896 M01S00847.ims +++| SHN 21-5 00897 M01S00848.ims +++| MJN IPF3 IF BOTH CHANNELS CONCURRENT 00898 M01S00849.ims +++| IPF1 LDD ES+4 FETCH THE ALGORITHM INDEX 00899 M01S00850.ims +++| SHN 3 00900 M01S00851.ims +++| ADN DILL 00901 M01S00852.ims +++| CRD FN 00902 M01S00853.ims +++| LDD T5 SET EQUIPMENT PARAMETER 00903 M01S00854.ims +++| STM FPPA 00904 M01S00855.ims +++| 00905 M01S00856.ims +++|* EXECUTE FLAW PROCESSOR. 00906 M01S00857.ims +++| 00907 M01S00858.ims +++| LDD FN+4 SET ALGORITHM INDEX 00908 M01S00859.ims +++| LPN 77 00909 M01S00860.ims +++| STD AI 00910 M01S00861.ims +++| EXECUTE 0TI,FPLA EXECUTE FLAW PROCESSOR 00911 M01S00862.ims +++| ZJN IPF2 IF FLAWING COMPLETE 00912 M01S00863.ims +++| LDC MESL * EQXXX, FLAWING INCOMPLETE.* 00913 M01S00864.ims +++| RJM DFM 00914 M01S00865.ims +++| IPF2 RJM RCS RESERVE *CTI* SPACE 00915 M01S00866.ims +++| LJM IPFX RETURN 00916 M01S00867.ims +++| LDA SPACE 4,10 00917 M01S00868.ims +++|** LDA - LOAD CM ADDRESS. 00918 M01S00869.ims +++|* 00919 M01S00870.ims +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS. 00920 M01S00871.ims +++|* 00921 M01S00872.ims +++|* EXIT (A) = ABSOLUTE ADDRESS. 00922 M01S00873.ims +++| 00923 M01S00874.ims +++| 00924 M01S00875.ims +++| LDA SUBR ENTRY/EXIT 00925 M01S00876.ims +++| LDD IR+3 00926 M01S00877.ims +++| LPN 77 00927 M01S00878.ims +++| SHN 6 00928 M01S00879.ims +++| ADD RA 00929 M01S00880.ims +++| SHN 6 00930 M01S00881.ims +++| ADD IR+4 00931 M01S00882.ims +++| UJN LDAX RETURN 00932 M01S00883.ims +++| RCS SPACE 4,15 00933 M01S00884.ims +++|** RCS - RESERVE *CTI* SPACE. 00934 M01S00885.ims +++|* 00935 M01S00886.ims +++|* ENTRY (T5) = EST ORDINAL. 00936 M01S00887.ims +++|* (AI) = ALGORITHM INDEX 00937 M01S00888.ims +++|* (ES - ES+4) = EST ENTRY. 00938 M01S00889.ims +++|* 00939 M01S00890.ims +++|* EXIT *CTI* SPACE FLAWED IN TRT. 00940 M01S00891.ims +++|*
| Line S00892 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00941 M02S00892.ns2776 ---|* USES TL, T3, CM - CM+4, FN - FN+4. 00942 M01S00022.ns2776 +++|* USES FL, TL, T3, T9, CM - CM+4, FN - FN+4. 00943 M01S00893.ims +++|*
| Line S00894 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00944 M02S00894.ns2776 ---|* CALLS CTB, CTF, RDS, WDS, *0PI*. 00945 M01S00023.ns2776 +++|* CALLS CTB, FBT, RDS, WDS, *0PI*. 00946 M01S00895.ims +++|* 00947 M01S00896.ims +++|* MACROS CMSTF, ENDMS, EXECUTE, MONITOR, SMSTF. 00948 M01S00897.ims +++| 00949 M01S00898.ims +++|
| Line S00899 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00950 M02S00899.ns2776 ---| RCS9 ENDMS RELEASE CHANNEL
| Line S00900 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00951 M02S00900.ns2776 ---| 00952 M01S00901.ims +++| RCS SUBR ENTRY/EXIT 00953 M01S00902.ims +++| LDD T5 SET PARAMETER WORD 00954 M01S00903.ims +++| LMC 4000 00955 M01S00904.ims +++| STM FPPA 00956 M01S00905.ims +++| EXECUTE 0PI,FPLA READ DEADSTART SECTOR
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00957 M02S00906.ns2776 ---| NJN RCSX IF NOT A VALID DEADSTART SECTOR 00958 M01S00024.ns2776 +++| NJN RCS0 IF NOT A VALID DEADSTART SECTOR 00959 M01S00025.ns2776 +++| STM RCSA PRESET FOR *CTI* PRESENT 00960 M01S00907.ims +++| ENDMS 00961 M01S00908.ims +++| LDM BFMS+MSLP 00962 M01S00909.ims +++| NJN RCS1 IF *MSL* INSTALLED 00963 M01S00910.ims +++| LDM BFMS+CDAP 00964 M01S00911.ims +++| NJN RCS1 IF COMMON DISK AREA INSTALLED 00965 M01S00912.ims +++| LDM BFMS+CTIP
| Line S00913 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00966 M02S00913.ns2776 ---| ZJN RCS9 IF *CTI* NOT INSTALLED 00967 M01S00026.ns2776 +++| NJN RCS1 IF *CTI* INSTALLED 00968 M01S00027.ns2776 +++| RCS0 LDD AI 00969 M01S00028.ns2776 +++| LMN AIDR 00970 M01S00029.ns2776 +++| NJN RCSX IF NOT CDSS II 00971 M01S00030.ns2776 +++| LDC 840D FIRST CYLINDER OF AREA TO BE FLAWED 00972 M01S00031.ns2776 +++| STM RCSA INDICATE *CTI* NOT PRESENT 00973 M01S00914.ims +++| RCS1 SHN 1 CONVERT CYLINDER TO LOGICAL TRACK 00974 M01S00915.ims +++| STD T3 00975 M01S00916.ims +++| LDD ES+4 GET DEVICE LENGTH FROM MST 00976 M01S00917.ims +++| SHN 3 00977 M01S00918.ims +++| ADK TDGL 00978 M01S00919.ims +++| CRD TL 00979 M01S00920.ims +++| ERRNZ TL+1-FN READ DESTROYS DIRECT CELLS 00980 M01S00921.ims +++| 00981 M01S00922.ims +++| ADN ACGL-TDGL FETCH DEADSTART FILE STATUS 00982 M01S00923.ims +++| CRD FN 00983 M01S00924.ims +++| LDD AI 00984 M01S00925.ims +++| LMN AIDA 00985 M01S00926.ims +++| NJN RCS2 IF NOT 33502 00986 M01S00927.ims +++| LDD T3 COMPLETE CYLINDER TO TRACK CONVERSION 00987 M01S00928.ims +++| SHN -1 00988 M01S00929.ims +++| ADC NTDA/2 00989 M01S00930.ims +++| STD T3 00990 M01S00931.ims +++| UJN RCS4 FLAW TRACKS 00991 M01S00932.ims +++| 00992 M01S00933.ims +++| RCS2 LMN AIDI&AIDA 00993 M01S00934.ims +++| ZJN RCS3 IF 7X54/844-21 00994 M01S00935.ims +++| LMN AIDK&AIDI 00995 M01S00936.ims +++| ZJN RCS3 IF 7154/844-21 00996 M01S00937.ims +++| LMN AIDX&AIDK
| Line S00938 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00997 M02S00938.ns2776 ---| NJN RCS4 IF NOT FSC 3330-1 00998 M01S00032.ns2776 +++| ZJN RCS3 IF FSC 3330-1 00999 M01S00033.ns2776 +++| LMN AIDR&AIDX 01000 M01S00034.ns2776 +++| NJN RCS4 IF NOT CDSS II 01001 M01S00035.ns2776 +++| LDD T3 INITIALIZE TRACK CALCULATION 01002 M01S00036.ns2776 +++| STD T9 01003 M01S00037.ns2776 +++| LDN 0 01004 M01S00038.ns2776 +++| STD T3 01005 M01S00039.ns2776 +++| LDC 1062 SET FLAW LIMIT FOR CDSS II 01006 M01S00040.ns2776 +++| STD TL 01007 M01S00041.ns2776 +++| RCS2.1 LCN 3 FOR THIS PURPOSE, TRACK = CYLINDER*2/3 01008 M01S00042.ns2776 +++| RAD T9 01009 M01S00043.ns2776 +++| MJN RCS5 IF CONVERSION COMPLETE 01010 M01S00044.ns2776 +++| AOD T3 INCREMENT TRACK NUMBER 01011 M01S00045.ns2776 +++| UJN RCS2.1 CONTINUE DIVISION 01012 M01S00046.ns2776 +++| 01013 M01S00939.ims +++| RCS3 LDD T3 COMPLETE CYLINDER CONVERSION 01014 M01S00940.ims +++| RAD T3 01015 M01S00941.ims +++| RCS4 LDD T3 01016 M01S00942.ims +++| SBD TL 01017 M01S00943.ims +++| PJN RCS7 IF *CTI* BEYOND LOGICAL END OF DEVICE
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01018 M02S00944.ns2776 ---| RCS5 RJM CTF CHECK TRACK FLAWED
| Line S00945 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01019 M02S00945.ns2776 ---| ZJN RCS6 IF TRACK FLAWED
| Line S00946 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01020 M02S00946.ns2776 ---| LDD T5 FLAW TRACK IN TRT
| Line S00947 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01021 M02S00947.ns2776 ---| STD CM+1
| Line S00948 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01022 M02S00948.ns2776 ---| LDD T3
| Line S00949 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01023 M02S00949.ns2776 ---| STD CM+2
| Line S00950 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01024 M02S00950.ns2776 ---| LDN STFS
| Line S00951 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01025 M02S00951.ns2776 ---| STD CM+3
| Line S00952 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01026 M02S00952.ns2776 ---| MONITOR STBM
| Line S00953 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01027 M02S00953.ns2776 ---| RCS6 AOD T3 ADVANCE TRACK NUMBER
| Line S00954 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01028 M02S00954.ns2776 ---| LMD TL
| Line S00955 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01029 M02S00955.ns2776 ---| NJN RCS5 IF NOT END OF LOGICAL DEVICE 01030 M01S00047.ns2776 +++| RCS5 RJM FBT FLAW BLOCK OF TRACKS
| Line S00956 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01031 M02S00956.ns2776 ---| RCS7 SMSTF GCTI SET *CTI* PRESENT FLAG
| Line S00957 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01032 M02S00957.ns2776 ---| LDD IR+2 CHECK FOR FLAW FUNCTION 01033 M01S00048.ns2776 +++| RCS7 LDC ** ZERO IF *CTI* PRESENT 01034 M01S00049.ns2776 +++| RCSA EQU *-1 01035 M01S00050.ns2776 +++| NJP RCS9 IF *CTI* NOT PRESENT 01036 M01S00051.ns2776 +++| SMSTF GCTI SET *CTI* PRESENT FLAG 01037 M01S00052.ns2776 +++| LDD IR+2 CHECK FOR FLAW FUNCTION 01038 M01S00958.ims +++| LMN 3 01039 M01S00959.ims +++| ZJN RCS8 IF X.FLAW REQUEST 01040 M01S00960.ims +++| CMSTF GDSF 01041 M01S00961.ims +++| LDN ZERL CLEAR DEADSTART FILE INDICATOR 01042 M01S00962.ims +++| CRM BFMS+OSBP,ON 01043 M01S00963.ims +++| LDC BFMS+WLSF REWRITE DEADSTART SECTOR 01044 M01S00964.ims +++| RJM WDS 01045 M01S00965.ims +++| LDD FN 01046 M01S00966.ims +++| LPC MGDSF 01047 M01S00967.ims +++| ZJN RCS8 IF NO DEADSTART FILE 01048 M01S00968.ims +++| LDM BFMS+OSBP+5 01049 M01S00969.ims +++| RJM CTB 01050 M01S00970.ims +++| ZJN RCS8 IF TRACK CHAIN RELEASED 01051 M01S00971.ims +++| LDD T5 01052 M01S00972.ims +++| STD CM+1 01053 M01S00973.ims +++| LDD T6 DROP TRACK CHAIN 01054 M01S00974.ims +++| STD CM+2 01055 M01S00975.ims +++| MONITOR DTKM
| Line S00976 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01056 M02S00976.ns2776 ---| RCS8 LJM RCS9 RETURN 01057 M01S00053.ns2776 +++| RCS8 ENDMS RELEASE CHANNEL 01058 M01S00054.ns2776 +++| RCS9 LJM RCSX RETURN 01059 M01S00977.ims +++| RDT SPACE 4,10 01060 M01S00978.ims +++|*** RDT - READ DIT TO BUFFER. 01061 M01S00979.ims +++|* 01062 M01S00980.ims +++|* ENTRY (A) = BUFFER ADDRESS. 01063 M01S00981.ims +++|* (T5) = EST ORDINAL OF DEVICE. 01064 M01S00982.ims +++|* (ES - ES+4) = EST ENTRY. 01065 M01S00983.ims +++|*
| Line S00984 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01066 M02S00984.ims6 ---|* ERROR TO *ABT1* IF ERROR READING LABEL (DIT) SECTOR. 01067 M01S00027.ims6 +++|* ERROR TO *ABT2* IF ERROR READING LABEL (DIT) SECTOR. 01068 M01S00985.ims +++|* 01069 M01S00986.ims +++|* USES T1, T6, T7, CM - CM+4. 01070 M01S00987.ims +++|* 01071 M01S00988.ims +++|* CALLS RDS, SDL. 01072 M01S00989.ims +++|* 01073 M01S00990.ims +++|* MACROS ENDMS, MONITOR, SETMS. 01074 M01S00991.ims +++| 01075 M01S00992.ims +++| 01076 M01S00993.ims +++| RDT SUBR ENTRY/EXIT 01077 M01S00994.ims +++| STM RDTB SAVE BUFFER ADDRESS 01078 M01S00995.ims +++| LDD ES+4 SET LABEL TRACK 01079 M01S00996.ims +++| SHN 3 01080 M01S00997.ims +++| ADN ALGL 01081 M01S00998.ims +++| CRD CM 01082 M01S00999.ims +++| LDD CM+1 01083 M01S01000.ims +++| STD T6 01084 M01S01001.ims +++| LDN 0 01085 M01S01002.ims +++| STD T7 01086 M01S01003.ims +++| SETMS IO,(DF,NS) 01087 M01S01004.ims +++| LDC BFMS READ LABEL 01088 M01S01005.ims +++| RJM RDS 01089 M01S01006.ims +++| PJN RDT1 IF NO ERROR 01090 M01S01007.ims +++|* LDC MESM
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01091 M02S01008.ims6 ---| LJM ABT1 ABORT 01092 M01S00028.ims6 +++| LJM ABT2 ABORT 01093 M01S01009.ims +++| 01094 M01S01010.ims +++| RDT1 ENDMS 01095 M01S01011.ims +++| LDN MISD 01096 M01S01012.ims +++| STD T1 01097 M01S01013.ims +++| RJM SDL 01098 M01S01014.ims +++| CWM DISS,T1 01099 M01S01015.ims +++| SBN MISD 01100 M01S01016.ims +++| CRM **,T1 READ DIT TO BUFFER 01101 M01S01017.ims +++| RDTB EQU *-1 01102 M01S01018.ims +++| LJM RDTX RETURN 01103 M01S01019.ims +++| SDL SPACE 4,10 01104 M01S01020.ims +++|** SDL - SET DIT LOCATION. 01105 M01S01021.ims +++|* 01106 M01S01022.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 01107 M01S01023.ims +++|* 01108 M01S01024.ims +++|* EXIT (A) = DIT ADDRESS. 01109 M01S01025.ims +++|* 01110 M01S01026.ims +++|* USES T2, T3, CM - CM+4. 01111 M01S01027.ims +++|* 01112 M01S01028.ims +++|* CALLS CAT. 01113 M01S01029.ims +++| 01114 M01S01030.ims +++| 01115 M01S01031.ims +++| SDL SUBR ENTRY/EXIT 01116 M01S01032.ims +++| LDD ES+4 01117 M01S01033.ims +++| SHN 3 01118 M01S01034.ims +++| ADK TDGL 01119 M01S01035.ims +++| CRD CM 01120 M01S01036.ims +++| LDD CM+2 SET MRT LENGTH 01121 M01S01037.ims +++| STD T2 01122 M01S01038.ims +++| ADN 7 01123 M01S01039.ims +++| SHN -3 01124 M01S01040.ims +++| STD T3 01125 M01S01041.ims +++| LDD ES+4 01126 M01S01042.ims +++| SHN 3 01127 M01S01043.ims +++| ADN TRLL 01128 M01S01044.ims +++| RJM CAT CALCULATE FWA OF TRT 01129 M01S01045.ims +++| ADD T2 ADD TRT LENGTH 01130 M01S01046.ims +++| ADD T3 ADD MRT LENGTH 01131 M01S01047.ims +++| UJN SDLX RETURN 01132 M01S01048.ims +++| SDT SPACE 4,10 01133 M01S01049.ims +++|** SDT - SEARCH DAT TABLES. 01134 M01S01050.ims +++|* 01135 M01S01051.ims +++|* ENTRY DAT INTERLOCK SET. 01136 M01S01052.ims +++|* (ES - ES+4) = EST ENTRY. 01137 M01S01053.ims +++|* (CN - CN+4) = SDGL WORD. 01138 M01S01054.ims +++|* (LD) = LINK DEVICE. 01139 M01S01055.ims +++|* (DI) = DAT INDEX. 01140 M01S01056.ims +++|* (DE) = DAT ENTRY COUNT. 01141 M01S01057.ims +++|* 01142 M01S01058.ims +++|* EXIT (A) = 0 IF DUPLICATE ENTRY. 01143 M01S01059.ims +++|* 01144 M01S01060.ims +++|* USES T1 - T7, CM - CM+4, FN - FN+4, DC. 01145 M01S01061.ims +++|* 01146 M01S01062.ims +++|* CALLS CDE, RDS. 01147 M01S01063.ims +++|* 01148 M01S01064.ims +++|* MACROS ENDMS, SETMS. 01149 M01S01065.ims +++| 01150 M01S01066.ims +++| 01151 M01S01067.ims +++| SDT SUBR ENTRY/EXIT 01152 M01S01068.ims +++| LDD ES+4 READ DEVICE DESCRIPTION 01153 M01S01069.ims +++| SHN 3 01154 M01S01070.ims +++| ADN PFGL 01155 M01S01071.ims +++| CRD FN 01156 M01S01072.ims +++| LDD FN+4 CHECK IF 1 OF N 01157 M01S01073.ims +++| LPN 70 01158 M01S01074.ims +++| NJN SDTX IF NOT 1 OF N 01159 M01S01075.ims +++| STD T7 01160 M01S01076.ims +++| LDD LD SET LINK DEVICE 01161 M01S01077.ims +++| STD T5 01162 M01S01078.ims +++| SETMS IO 01163 M01S01079.ims +++| LDD CM+4 GET DAT POINTER 01164 M01S01080.ims +++| SHN 3 01165 M01S01081.ims +++| ADN ALGL 01166 M01S01082.ims +++| CRD CM 01167 M01S01083.ims +++| LDD CM+4 SET DAT TRACK 01168 M01S01084.ims +++| STD T6 01169 M01S01085.ims +++| SDT1 LDC BFMS READ DAT SECTOR 01170 M01S01086.ims +++| RJM RDS 01171 M01S01087.ims +++| MJN SDT6 IF READ ERROR 01172 M01S01088.ims +++| ENDMS 01173 M01S01089.ims +++|* LDN 0 01174 M01S01090.ims +++| STD T1 01175 M01S01091.ims +++| STD T2 01176 M01S01092.ims +++| SDT3 RJM CDE COMPARE ENTRIES 01177 M01S01093.ims +++| ZJN SDT7 IF DUPLICATE ENTRY 01178 M01S01094.ims +++| SDT4 AOM SDTA BUMP DAT INDEX 01179 M01S01095.ims +++| LDN 5*2 BUMP SEARCH INDEX 01180 M01S01096.ims +++| RAD T2 01181 M01S01097.ims +++| SOD DE DECREMENT ENTRY COUNT 01182 M01S01098.ims +++| ZJN SDT8 IF END OF ENTRIES 01183 M01S01099.ims +++| LDN 2 BUMP WORD COUNT 01184 M01S01100.ims +++| RAD T1 01185 M01S01101.ims +++| LMD HN 01186 M01S01102.ims +++| NJN SDT3 IF NOT END OF SECTOR 01187 M01S01103.ims +++| AOD T7 BUMP SECTOR COUNT 01188 M01S01104.ims +++| UJN SDT1 PROCESS NEXT SECTOR 01189 M01S01105.ims +++| 01190 M01S01106.ims +++| SDT6 LJM GDS2 ABORT 01191 M01S01107.ims +++| 01192 M01S01108.ims +++| SDT7 LDD DI CHECK IF THIS DEVICE 01193 M01S01109.ims +++| LMC ** 01194 M01S01110.ims +++| SDTA EQU *-1 01195 M01S01111.ims +++| ZJN SDT4 IF THIS DEVICE 01196 M01S01112.ims +++| AOM BUF+PMRP+4 FLAG DUPLICATE *DAT* ENTRY 01197 M01S01113.ims +++| LDN 1 01198 M01S01114.ims +++| SDT8 LMN 1 01199 M01S01115.ims +++| LJM SDTX RETURN 01200 M01S01116.ims +++| SLI SPACE 4,10 01201 M01S01117.ims +++|** SLI - SET LOCAL UTILITY INTERLOCK. 01202 M01S01118.ims +++|* 01203 M01S01119.ims +++|* ENTRY (T5) = EST ORDINAL. 01204 M01S01120.ims +++|*
| Line S01121 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01205 M02S01121.ims6 ---|* ERROR TO *ABT1* IF INTERLOCK NOT SET. 01206 M01S00029.ims6 +++|* ERROR TO *ABT2* IF INTERLOCK NOT SET. 01207 M01S01122.ims +++|* 01208 M01S01123.ims +++|* CALLS SDI. 01209 M01S01124.ims +++| 01210 M01S01125.ims +++| 01211 M01S01126.ims +++| SLI1 LDD T5 SET INTERLOCK HELD 01212 M01S01127.ims +++| STM CLIA 01213 M01S01128.ims +++| 01214 M01S01129.ims +++| SLI SUBR ENTRY/EXIT 01215 M01S01130.ims +++| RJM SDI SET INTERLOCK 01216 M01S01131.ims +++| NJN SLI1 IF INTERLOCK SET 01217 M01S01132.ims +++|* LDC MESM
| Line S01133 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01218 M02S01133.ims6 ---| LJM ABT1 ABORT 01219 M01S00030.ims6 +++| LJM ABT2 ABORT 01220 M01S01134.ims +++| SME SPACE 4,10 01221 M01S01135.ims +++|** SME - SET MASS STORAGE EQUIPMENT. 01222 M01S01136.ims +++|* 01223 M01S01137.ims +++|* ENTRY (A) = EST ORDINAL. 01224 M01S01138.ims +++|* 01225 M01S01139.ims +++|* EXIT (T5) = EST ORDINAL. 01226 M01S01140.ims +++|* (ES - ES+4) = EST ENTRY. 01227 M01S01141.ims +++|* EQUIPMENT MNEMONIC AND NUMBER SET IN MESSAGES. 01228 M01S01142.ims +++|* 01229 M01S01143.ims +++|* USES T0, T1, T2, T3, T4, T5, ES - ES+4. 01230 M01S01144.ims +++|* 01231 M01S01145.ims +++|* CALLS C2D. 01232 M01S01146.ims +++|* 01233 M01S01147.ims +++|* MACROS SFA. 01234 M01S01148.ims +++| 01235 M01S01149.ims +++| 01236 M01S01150.ims +++| SME SUBR ENTRY/EXIT 01237 M01S01151.ims +++| STD T5 01238 M01S01152.ims +++| STM EQNO 01239 M01S01153.ims +++| SFA EST READ EST ENTRY 01240 M01S01154.ims +++| ADK EQDE 01241 M01S01155.ims +++| CRD ES 01242 M01S01156.ims +++| 01243 M01S01157.ims +++|* SET (T0 - T2) = * EQXXX*, WHERE EQ = EQUIPMENT MNEMONIC AND 01244 M01S01158.ims +++|* XXX = EST ORDINAL. 01245 M01S01159.ims +++| 01246 M01S01160.ims +++| LDD T5 CONVERT UPPER DIGIT OF EST ORDINAL 01247 M01S01161.ims +++| SHN -6 01248 M01S01162.ims +++| ADN 1R0 01249 M01S01163.ims +++| STD T1 01250 M01S01164.ims +++| LDD T5 CONVERT LOWER TWO DIGITS OF EST ORDINAL 01251 M01S01165.ims +++| RJM C2D 01252 M01S01166.ims +++| STD T2 01253 M01S01167.ims +++| LDD ES+3 PROCESS DEVICE MNEMONIC 01254 M01S01168.ims +++| LMC 1L 01255 M01S01169.ims +++| SHN 14 01256 M01S01170.ims +++| STD T0 01257 M01S01171.ims +++| SHN -6 01258 M01S01172.ims +++| SCN 77 01259 M01S01173.ims +++| RAD T1 01260 M01S01174.ims +++| LDN TSMEL INITIALIZE MESSAGE MODIFICATION LOOP 01261 M01S01175.ims +++| STD T3 01262 M01S01176.ims +++| SME1 SOD T3 DECREMENT MESSAGE INDEX 01263 M01S01177.ims +++| MJN SMEX IF ALL MESSAGES MODIFIED 01264 M01S01178.ims +++| LDM TSME,T3 SET MESSAGE ADDRESS 01265 M01S01179.ims +++| STD T4 01266 M01S01180.ims +++| LDD T0 TRANSFER * EQXXX* INTO DESTINATION BUFFER 01267 M01S01181.ims +++| STI T4 01268 M01S01182.ims +++| LDD T1 01269 M01S01183.ims +++| STM 1,T4 01270 M01S01184.ims +++| LDD T2 01271 M01S01185.ims +++| STM 2,T4 01272 M01S01186.ims +++| UJN SME1 LOOP FOR NEXT MESSAGE 01273 M01S01187.ims +++| 01274 M01S01188.ims +++| 01275 M01S01189.ims +++|** TSME - TABLE OF MESSAGES REQUIRING EQUIPMENT MNEMONICS AND 01276 M01S01190.ims +++|* EST ORDINALS. 01277 M01S01191.ims +++| 01278 M01S01192.ims +++| TSME BSS 0 01279 M01S01193.ims +++| CON GLAA 01280 M01S01194.ims +++| CON MESA 01281 M01S01195.ims +++| CON MESB 01282 M01S01196.ims +++| CON MESC 01283 M01S01197.ims +++| CON MESD 01284 M01S01198.ims +++| CON MESE 01285 M01S01199.ims +++| CON MESG 01286 M01S01200.ims +++| CON MESH 01287 M01S01201.ims +++| CON MESI 01288 M01S01202.ims +++| CON MESJ 01289 M01S01203.ims +++| CON MESK 01290 M01S01204.ims +++| CON MESL 01291 M01S01205.ims +++| CON MESN
| Line S01206 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S01206.ims6 ---| CON MESO+12
| Line S01207 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01293 M02S01207.ims6 ---| TSMEL EQU *-TSME
| Line S01208 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01208.ims6 ---| SSM SPACE 4,10
| Line S01209 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01295 M02S01209.ims6 ---|** SSM - ISSUE SYSTEM SECTOR ERROR MESSAGE.
| Line S01210 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01296 M02S01210.ims6 ---|*
| Line S01211 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01297 M02S01211.ims6 ---|* ENTRY (T4 - T6) = MASS STORAGE PARAMETERS.
| Line S01212 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01298 M02S01212.ims6 ---|* (ES - ES+4) = EST ENTRY.
| Line S01213 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01299 M02S01213.ims6 ---|*
| Line S01214 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01300 M02S01214.ims6 ---|* CALLS C2D, DFM.
| Line S01215 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01301 M02S01215.ims6 ---|
| Line S01216 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01302 M02S01216.ims6 ---|
| Line S01217 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01303 M02S01217.ims6 ---| SSM SUBR ENTRY/EXIT
| Line S01218 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01304 M02S01218.ims6 ---| LDD T6 SET TRACK
| Line S01219 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01305 M02S01219.ims6 ---| SHN -6
| Line S01220 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01306 M02S01220.ims6 ---| RJM C2D
| Line S01221 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01307 M02S01221.ims6 ---| STM MESN+5
| Line S01222 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01308 M02S01222.ims6 ---| LDD T6
| Line S01223 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01309 M02S01223.ims6 ---| RJM C2D
| Line S01224 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01310 M02S01224.ims6 ---| STM MESN+6
| Line S01225 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01311 M02S01225.ims6 ---| LDC ERLN+MESN * EQXXX, TKYYYY, SYSTEM SECTOR ERROR.*
| Line S01226 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01312 M02S01226.ims6 ---| RJM DFM
| Line S01227 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01313 M02S01227.ims6 ---| UJN SSMX RETURN 01314 M01S00031.ims6 +++| CON MESO 01315 M01S00032.ims6 +++| CON MESP 01316 M01S00033.ims6 +++| TSMEL EQU *-TSME 01317 M01S01228.ims +++| STB SPACE 4,15 01318 M01S01229.ims +++|** STB - SET TRACK BIT. 01319 M01S01230.ims +++|* 01320 M01S01231.ims +++|* ENTRY (A) = *STBM* SUBFUNCTION CODE. 01321 M01S01232.ims +++|* (T5) = EST ORDINAL. 01322 M01S01233.ims +++|* (T6) = TRACK NUMBER. 01323 M01S01234.ims +++|* 01324 M01S01235.ims +++|* EXIT (A) = MONITOR RESPONSE. 01325 M01S01236.ims +++|* 01326 M01S01237.ims +++|* USES CM - CM+4. 01327 M01S01238.ims +++|* 01328 M01S01239.ims +++|* MACROS MONITOR. 01329 M01S01240.ims +++| 01330 M01S01241.ims +++| 01331 M01S01242.ims +++| STB SUBR ENTRY/EXIT 01332 M01S01243.ims +++| STD CM+3 SET SUBFUNCTION CODE 01333 M01S01244.ims +++| LDD T6 SET TRACK 01334 M01S01245.ims +++| STD CM+2 01335 M01S01246.ims +++| LDD T5 SET EST ORDINAL 01336 M01S01247.ims +++| LMC 1S10 01337 M01S01248.ims +++| STD CM+1 01338 M01S01249.ims +++| MONITOR STBM ISSUE REQUEST 01339 M01S01250.ims +++| LDD CM+1 01340 M01S01251.ims +++| UJN STBX RETURN 01341 M01S01252.ims +++| STI SPACE 4,15 01342 M01S01253.ims +++|** STI - SET TRACK INTERLOCK. 01343 M01S01254.ims +++|* 01344 M01S01255.ims +++|* ENTRY (T5) = EST ORDINAL. 01345 M01S01256.ims +++|* (T6) = TRACK. 01346 M01S01257.ims +++|* 01347 M01S01258.ims +++|* EXIT (A) = 0 IF TRACK INTERLOCKED. 01348 M01S01259.ims +++|* = (T6) IF TRACK NOT RESERVED. 01349 M01S01260.ims +++|* (PF) = (T6) IF TRACK INTERLOCKED. 01350 M01S01261.ims +++|*
| Line S01262 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01351 M02S01262.ims6 ---|* ERROR TO *ABT1* IF *ORET* ERROR FLAG DETECTED. 01352 M01S00034.ims6 +++|* ERROR TO *ABT3* IF *ORET* ERROR FLAG DETECTED. 01353 M01S01263.ims +++|* 01354 M01S01264.ims +++|* CALLS STB. 01355 M01S01265.ims +++|* 01356 M01S01266.ims +++|* MACROS DELAY, PAUSE. 01357 M01S01267.ims +++| 01358 M01S01268.ims +++| 01359 M01S01269.ims +++| STI2 LDD T6 FLAG TRACK INTERLOCKED 01360 M01S01270.ims +++| STD PF 01361 M01S01271.ims +++| STI3 LMD T6 RETURN INTERLOCK STATUS 01362 M01S01272.ims +++| 01363 M01S01273.ims +++| STI SUBR ENTRY/EXIT 01364 M01S01274.ims +++| STI1 LDN STIS ATTEMPT TRACK INTERLOCK 01365 M01S01275.ims +++| RJM STB 01366 M01S01276.ims +++| ZJN STI2 IF INTERLOCK SET 01367 M01S01277.ims +++| LMN 2 01368 M01S01278.ims +++| ZJN STI3 IF TRACK NOT RESERVED 01369 M01S01279.ims +++| DELAY 250D*10 01370 M01S01280.ims +++| PAUSE 01371 M01S01281.ims +++| LDD CM+1 CHECK ERROR FLAG 01372 M01S01282.ims +++| LMN ORET 01373 M01S01283.ims +++| NJN STI1 IF NOT OPERATOR OVERRIDE 01374 M01S01284.ims +++|* LDC MESM
| Line S01285 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01375 M02S01285.ims6 ---| LJM ABT1 PROCESS ERROR FLAG TERMINATION 01376 M01S00035.ims6 +++| LJM ABT3 ABORT 01377 M01S00036.ims6 +++| STM SPACE 4,10 01378 M01S00037.ims6 +++|** STM - SET TRACK NUMBER IN MESSAGE. 01379 M01S00038.ims6 +++|* 01380 M01S00039.ims6 +++|* ENTRY (A) = MESSAGE ADDRESS. 01381 M01S00040.ims6 +++|* (T6) = TRACK NUMBER. 01382 M01S00041.ims6 +++|* 01383 M01S00042.ims6 +++|* EXIT (T9) = MESSAGE ADDRESS. 01384 M01S00043.ims6 +++|* 01385 M01S00044.ims6 +++|* CALLS C2D, DFM. 01386 M01S00045.ims6 +++| 01387 M01S00046.ims6 +++| 01388 M01S00047.ims6 +++| STM SUBR ENTRY/EXIT 01389 M01S00048.ims6 +++| STD T9 01390 M01S00049.ims6 +++| LDD T6 CONVERT TRACK NUMBER 01391 M01S00050.ims6 +++| SHN -6 01392 M01S00051.ims6 +++| RJM C2D 01393 M01S00052.ims6 +++| STM 5,T9 SET CONVERSION IN MESSAGE 01394 M01S00053.ims6 +++| LDD T6 01395 M01S00054.ims6 +++| RJM C2D 01396 M01S00055.ims6 +++| STM 6,T9 01397 M01S00056.ims6 +++| LDC ERLN ISSUE MESSAGE TO ERRLOG 01398 M01S00057.ims6 +++| LMD T9 01399 M01S00058.ims6 +++| RJM DFM 01400 M01S00059.ims6 +++| UJN STMX RETURN 01401 M01S01286.ims +++| TED SPACE 4,10 01402 M01S01287.ims +++|** TED - TRANSFER DAT ENVIRONMENT DATA. 01403 M01S01288.ims +++|* 01404 M01S01289.ims +++|* ENTRY (A) = ECSM FUNCTION. 01405 M01S01290.ims +++|* (T6 - T7) = LINK DEVICE ADDRESS. 01406 M01S01291.ims +++|* 01407 M01S01292.ims +++|* EXIT (A) = ECSM FUNCTION REPLY. 01408 M01S01293.ims +++|* 01409 M01S01294.ims +++|* USES CM - CM+4, BY. 01410 M01S01295.ims +++|* 01411 M01S01296.ims +++|* CALLS CEA. 01412 M01S01297.ims +++|* 01413 M01S01298.ims +++|* MACROS MONITOR. 01414 M01S01299.ims +++| 01415 M01S01300.ims +++| 01416 M01S01301.ims +++| TED SUBR ENTRY/EXIT 01417 M01S01302.ims +++| SHN 11 01418 M01S01303.ims +++| STD BY 01419 M01S01304.ims +++| RJM CEA CONVERT EXTENDED MEMORY ADDRESS 01420 M01S01305.ims +++| LDN DAET SET DAT ENTRY 01421 M01S01306.ims +++| RAD CM+4 01422 M01S01307.ims +++| SHN -14 01423 M01S01308.ims +++| LMD BY MERGE FUNCTION 01424 M01S01309.ims +++| RAD CM+3 01425 M01S01310.ims +++| LDN 0 SET WORD COUNT TO 1 01426 M01S01311.ims +++| STD CM+1 01427 M01S01312.ims +++| LDD MA SET CM ADDRESS 01428 M01S01313.ims +++| STD CM+2 01429 M01S01314.ims +++| MONITOR ECSM 01430 M01S01315.ims +++| LDD CM+1 01431 M01S01316.ims +++| UJN TEDX RETURN 01432 M01S01317.ims +++| TRT SPACE 4,10 01433 M01S01318.ims +++|** TRT - UPDATE TRT. 01434 M01S01319.ims +++|* 01435 M01S01320.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 01436 M01S01321.ims +++|* (T5) = EQUIPMENT. 01437 M01S01322.ims +++|* 01438 M01S01323.ims +++|* EXIT TRT UPDATED IF DEVICE IS SHARED. 01439 M01S01324.ims +++|* 01440 M01S01325.ims +++|* USES CM - CM+4. 01441 M01S01326.ims +++|* 01442 M01S01327.ims +++|* CALLS STB. 01443 M01S01328.ims +++|* 01444 M01S01329.ims +++|* MACROS MONITOR. 01445 M01S01330.ims +++| 01446 M01S01331.ims +++| 01447 M01S01332.ims +++| TRT SUBR ENTRY/EXIT 01448 M01S01333.ims +++| LDD ES CHECK IF SHARED 01449 M01S01334.ims +++| SHN 21-11 01450 M01S01335.ims +++| PJN TRTX IF DEVICE NOT SHARED 01451 M01S01336.ims +++| LDN UTRS ENSURE TRT CURRENT 01452 M01S01337.ims +++| RJM STB 01453 M01S01338.ims +++| UJN TRTX RETURN 01454 M01S01339.ims +++| UDA SPACE 4,15 01455 M01S01340.ims +++|** UDA - UPDATE DAT ENTRY. 01456 M01S01341.ims +++|* 01457 M01S01342.ims +++|* ENTRY (TA) = EXTENDED MEMORY ACCESS OPTIONS. 01458 M01S01343.ims +++|* (DI) = DAT INDEX. 01459 M01S01344.ims +++|* (CN - CN+4) = *SDGL* WORD OF MST. 01460 M01S01345.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01461 M01S01346.ims +++|* 01462 M01S01347.ims +++|* USES T1, T2, T5, CM - CM+4, CN - CN+4. 01463 M01S01348.ims +++|* 01464 M01S01349.ims +++|* CALLS GDS, SDT, WDS. 01465 M01S01350.ims +++|* 01466 M01S01351.ims +++|* MACROS ENDMS, SETMS. 01467 M01S01352.ims +++| 01468 M01S01353.ims +++| 01469 M01S01354.ims +++| UDA5 LDM EQNO RESET EST ORDINAL 01470 M01S01355.ims +++| STD T5 01471 M01S01356.ims +++| 01472 M01S01357.ims +++| UDA SUBR ENTRY/EXIT 01473 M01S01358.ims +++| LDD TA CHECK REQUEST 01474 M01S01359.ims +++| LPN RDDA 01475 M01S01360.ims +++| NJN UDA1 IF READ DAT ONLY 01476 M01S01361.ims +++| RJM SDT SEARCH DAT TABLES 01477 M01S01362.ims +++| ZJN UDA5 IF DUPLICATE ENTRY 01478 M01S01363.ims +++| UDA1 RJM GDS GET DAT SECTOR 01479 M01S01364.ims +++| ZJN UDA5 IF NO DAT ENTRY OR LINK DEVICE 01480 M01S01365.ims +++| LDD TI 01481 M01S01366.ims +++| ADC BFMS+2 01482 M01S01367.ims +++| STM UDAB 01483 M01S01368.ims +++| STD TI 01484 M01S01369.ims +++| ADN 11 01485 M01S01370.ims +++| STD T2 01486 M01S01371.ims +++| LDI T2 SET ACCESS STATUS IN CHECKPOINT REQUEST 01487 M01S01372.ims +++| LPC 0 01488 M01S01373.ims +++| UDAA EQU *-1 01489 M01S01374.ims +++| STM CKCA+4 01490 M01S01375.ims +++| SETMS IO,RW 01491 M01S01376.ims +++| LDD TA RECHECK REQUEST 01492 M01S01377.ims +++| LPN RDDA 01493 M01S01378.ims +++| NJN UDA4 IF NOT DAT UPDATE 01494 M01S01379.ims +++| LDD ES+4 01495 M01S01380.ims +++| SHN 3 01496 M01S01381.ims +++| ADN PFGL READ DAT INFORMATION 01497 M01S01382.ims +++| CRD CM 01498 M01S01383.ims +++| LDN 3 01499 M01S01384.ims +++| STD T2 01500 M01S01385.ims +++| UDA2 LDM CM,T2 COPY DATA TO DAT SECTOR 01501 M01S01386.ims +++| STM **,T2 01502 M01S01387.ims +++| UDAB EQU *-1 01503 M01S01388.ims +++| SOD T2 01504 M01S01389.ims +++| PJN UDA2 IF NOT END OF DATA 01505 M01S01390.ims +++| LDD CM+4 01506 M01S01391.ims +++| LPN 70 01507 M01S01392.ims +++| ZJN UDA3 IF PACK IS 1 OF N 01508 M01S01393.ims +++| LDN 0 01509 M01S01394.ims +++| STI TI CLEAR DAT ENTRY 01510 M01S01395.ims +++| STD CN 01511 M01S01396.ims +++| STD CN+1 CLEAR EXTENDED MEMORY ADDRESS 01512 M01S01397.ims +++| LDD ES+4 01513 M01S01398.ims +++| SHN 3 01514 M01S01399.ims +++| ADN SDGL UPDATE THE MST 01515 M01S01400.ims +++| CWD CN 01516 M01S01401.ims +++| LDD DI 01517 M01S01402.ims +++| ZJN UDA4 IF DAT INDEX NOT SET 01518 M01S01403.ims +++| UDA3 LDC BFMS+WLSF 01519 M01S01404.ims +++| RJM WDS REWRITE DAT SECTOR 01520 M01S01405.ims +++| UDA4 ENDMS 01521 M01S01406.ims +++| LJM UDA5 RETURN 01522 M01S01407.ims +++| UEC SPACE 4,15 01523 M01S01408.ims +++|** UEC - UPDATE EXTENDED MEMORY MST DATA. 01524 M01S01409.ims +++|* 01525 M01S01410.ims +++|* ENTRY (A) = UPDATE OPTIONS. 01526 M01S01411.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 01527 M01S01412.ims +++|* (MI) = MACHINE INDEX. 01528 M01S01413.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01529 M01S01414.ims +++|* 01530 M01S01415.ims +++|* ERROR TO *GDS2* IF ERROR ON LINK DEVICE. 01531 M01S01416.ims +++|* 01532 M01S01417.ims +++|* USES TA, CM - CM+4, CN - CN+4. 01533 M01S01418.ims +++|* 01534 M01S01419.ims +++|* CALLS UDA. 01535 M01S01420.ims +++|* 01536 M01S01421.ims +++|* MACROS MONITOR. 01537 M01S01422.ims +++| 01538 M01S01423.ims +++| 01539 M01S01424.ims +++| UEC SUBR ENTRY/EXIT 01540 M01S01425.ims +++| STD TA 01541 M01S01426.ims +++| LDD LD 01542 M01S01427.ims +++| ZJN UECX IF NOT MMF MODE 01543 M01S01428.ims +++| LDD ES+4 01544 M01S01429.ims +++| SHN 3 01545 M01S01430.ims +++| ADN SDGL FETCH MST ADDRESS INFORMATION 01546 M01S01431.ims +++| CRD CN 01547 M01S01432.ims +++| LDD TA 01548 M01S01433.ims +++| LPN RDDA+UPDA 01549 M01S01434.ims +++| ZJN UEC1 IF NOT DAT ACCESS 01550 M01S01435.ims +++| RJM UDA 01551 M01S01436.ims +++| 01552 M01S01437.ims +++|* UPDATE GLOBAL AREA. 01553 M01S01438.ims +++| 01554 M01S01439.ims +++| UEC1 LDD CN CHECK EXTENDED MEMORY ADDRESS 01555 M01S01440.ims +++| ADD CN+1 01556 M01S01441.ims +++| ZJN UECX IF MST/TRT NOT EXTENDED MEMORY RESIDENT 01557 M01S01442.ims +++| LDD TA 01558 M01S01443.ims +++| LPN UPGA 01559 M01S01444.ims +++| UEC2 ZJN UECX IF NOT GLOBAL AREA UPDATE 01560 M01S01445.ims +++| LDD CN+1 01561 M01S01446.ims +++| ADN ALGL 01562 M01S01447.ims +++| STD CM+4 FORM EXTENDED MEMORY ADDRESS 01563 M01S01448.ims +++| SHN -14 01564 M01S01449.ims +++| ADD CN 01565 M01S01450.ims +++| LMC WECS*1000 MERGE SUBFUNCTION 01566 M01S01451.ims +++| STD CM+3 01567 M01S01452.ims +++| LDD ES+4 COMPUTE CM ADDRESS 01568 M01S01453.ims +++| SHN 3 01569 M01S01454.ims +++| ADN ALGL 01570 M01S01455.ims +++| STD CM+2 01571 M01S01456.ims +++| SHN -14 01572 M01S01457.ims +++| LMC 300 MERGE WORD COUNT 01573 M01S01458.ims +++| STD CM+1 01574 M01S01459.ims +++| MONITOR ECSM 01575 M01S01460.ims +++| LDD CM+1 01576 M01S01461.ims +++| ZJN UEC2 IF NO ERRORS 01577 M01S01462.ims +++| LJM GDS2 ABORT 01578 M01S01463.ims +++| SPACE 4 01579 M01S01464.ims +++|* COMMON DECKS. 01580 M01S01465.ims +++| 01581 M01S01466.ims +++| 01582 M01S01467.ims +++| QUAL$ EQU 1 01583 M01S01468.ims +++|*CALL COMPRLA 01584 M01S01469.ims +++|*CALL COMPRSS 01585 M01S01470.ims +++| WCS$ EQU 1 CONSECUTIVE SECTORS AFTER SYSTEM SECTOR 01586 M01S01471.ims +++|*CALL COMPWSS 01587 M01S01472.ims +++| 01588 M01S01473.ims +++| QUAL 01589 M01S01474.ims +++|*CALL COMPCEA 01590 M01S01475.ims +++|*CALL COMPC2D 01591 M01S01476.ims +++|*CALL COMPIFR 01592 M01S01477.ims +++|*CALL COMPSDI 01593 M01S01478.ims +++|*CALL COMPSDR 01594 M01S01479.ims +++| STI EQU /IMS/STI 01595 M01S01480.ims +++|*CALL COMPTGB 01596 M01S01481.ims +++|*CALL COMPTLB 01597 M01S01482.ims +++| 01598 M01S01483.ims +++| QUAL IMS 01599 M01S01484.ims +++| SPACE 4,10 01600 M01S01485.ims +++|** DAYFILE MESSAGES. 01601 M01S01486.ims +++| 01602 M01S01487.ims +++| 01603 M01S01488.ims +++| MESA DATA C* EQXXX, YY TRACKS FLAWED.* 01604 M01S01489.ims +++| MESB DATA C* EQXXX, YY FLAWS NOT PROCESSED.* 01605 M01S01490.ims +++| MESBL EQU * FLAW MESSAGE BUFFER 01606 M01S01491.ims +++| MESC DATA C* EQXXX, LOCAL AREAS INITIALIZED.* 01607 M01S01492.ims +++| MESD DATA C* EQXXX, LOCAL AREA SECTOR RESET.* 01608 M01S01493.ims +++| MESE DATA C* EQXXX, PF INITIALIZE COMPLETE.* 01609 M01S01494.ims +++| MESF DATA C* LABEL TRACK CONFLICT.* 01610 M01S01495.ims +++| MESG DATA C* EQXXX, NO INACTIVE DAYFILES FOUND.* 01611 M01S01496.ims +++| MENM EQU 13 FILENAME OFFSET FOR MESSAGES 01612 M01S01497.ims +++| MESH DATA C* EQXXX, INITIALIZED - . * 01613 M01S01498.ims +++| MESI DATA C* EQXXX, FILE ACTIVE - . * 01614 M01S01499.ims +++| MESJ DATA C* EQXXX, FILE BUSY - . * 01615 M01S01500.ims +++| MESK DATA C* EQXXX, PROTECTED QUEUES IGNORED.* 01616 M01S01501.ims +++| MESL DATA C* EQXXX, FLAWING INCOMPLETE.* 01617 M01S01502.ims +++| MESM DATA C* IMS ABORTED.* 01618 M01S01503.ims +++| MESN DATA C* EQXXX, TKYYYY, SYSTEM SECTOR ERROR.*
| Line S01504 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01619 M02S01504.ims6 ---| MESO DATA C* IMS - TRACK FLAWED, EQXXX, TKYYYY.* 01620 M01S00060.ims6 +++| MESO DATA C* EQXXX, TKYYYY - TRACK FLAWED BY IMS.* 01621 M01S00061.ims6 +++| MESP DATA C* EQXXX, TKYYYY - VERIFICATION ERRORS.* 01622 M01S01505.ims +++| SPACE 4,10 01623 M01S01506.ims +++| OVLA EQU *+5 OVERLAY LOAD ADDRESS 01624 M01S01507.ims +++| TITLE RESIDENT PROCESSORS. 01625 M01S01508.ims +++| IND SPACE 4,10 01626 M01S01509.ims +++|*** FUNCTION *INDF* - INITIALIZE MASS STORAGE DEVICE. 01627 M01S01510.ims +++|* 01628 M01S01511.ims +++|* ENTRY (IR+4) = EST ORDINAL. 01629 M01S01512.ims +++| 01630 M01S01513.ims +++| 01631 M01S01514.ims +++| IND ENTRY 01632 M01S01515.ims +++| LDD IR+4 SET DEVICE PARAMETERS 01633 M01S01516.ims +++| RJM SMD 01634 M01S01517.ims +++| LDD WB CHECK INITIALIZE OPTIONS 01635 M01S01518.ims +++| SHN 21-LIAL+LIAL/12D*12D 01636 M01S01519.ims +++| MJN IND1 IF DEADSTART INITIALIZE 01637 M01S01520.ims +++| RJM TRT UPDATE TRT 01638 M01S01521.ims +++| RJM RPC RELEASE PERMANENT FILE CHAINS 01639 M01S01522.ims +++| RJM IPF INITIALIZE PACK FLAWS 01640 M01S01523.ims +++| IND1 LDD ES+4 01641 M01S01524.ims +++| SHN 3 01642 M01S01525.ims +++| ADN ALGL READ DEVICE ALLOCATION WORD FROM MST 01643 M01S01526.ims +++| CRD CN 01644 M01S01527.ims +++| ADN PUGL-ALGL GET DEVICE MASKS 01645 M01S01528.ims +++| CRD FN 01646 M01S01529.ims +++| ADN MDGL-PUGL GET DRIVER WORD 01647 M01S01530.ims +++| CRD CM 01648 M01S01531.ims +++| ADN STLL-MDGL UPDATE DEVICE STATUS 01649 M01S01532.ims +++| CWD WB 01650 M01S01533.ims +++| LDN 0 CLEAR ID DATA TRACK 01651 M01S01534.ims +++| STD CN 01652 M01S01535.ims +++| LDD CM 01653 M01S01536.ims +++| SHN 21-12 01654 M01S01537.ims +++| MJN IND2 IF AUXILIARY DEVICE 01655 M01S01538.ims +++| LDD FN+4 01656 M01S01539.ims +++| LPC 377 01657 M01S01540.ims +++| NJN IND2 IF MASTER DEVICE 01658 M01S01541.ims +++|* LDN 0 01659 M01S01542.ims +++| LJM IND5 PROCESS NON-MASTER DEVICE 01660 M01S01543.ims +++| 01661 M01S01544.ims +++| IND2 LDD FN+3 SET CONTIGUOUS CATALOG TRACKS 01662 M01S01545.ims +++| SCN 60 01663 M01S01546.ims +++| LMN 40 01664 M01S01547.ims +++| STD FN+3 01665 M01S01548.ims +++| LDD FN 01666 M01S01549.ims +++| ZJN IND3 IF NOT PRIVATE DEVICE 01667 M01S01550.ims +++| LDN 1 SET CATALOG COUNT TO 1 01668 M01S01551.ims +++| STD CN+3 01669 M01S01552.ims +++| IND3 LDD CN+3 SET NUMBER OF CATALOG TRACKS 01670 M01S01553.ims +++| ADN 1 01671 M01S01554.ims +++| STD CA RESERVE CATALOG CHAIN 01672 M01S01555.ims +++| RJM RCC 01673 M01S01556.ims +++| ZJN IND4 IF ALL TRACKS NOT ASSIGNED 01674 M01S01557.ims +++| LDC NDAT RESERVE DATA TRACK 01675 M01S01558.ims +++| RJM RPT 01676 M01S01559.ims +++| ZJN IND4 IF TRACK NOT ASSIGNED 01677 M01S01560.ims +++| STD CN 01678 M01S01561.ims +++| LDC NPER RESERVE PERMITS TRACK 01679 M01S01562.ims +++| RJM RPT 01680 M01S01563.ims +++| NJN IND5 IF TRACK ASSIGNED 01681 M01S01564.ims +++| IND4 LDN PTKL 01682 M01S01565.ims +++| LJM MSI PASS ERROR TO *MSI* 01683 M01S01566.ims +++| 01684 M01S01567.ims +++| IND5 STD CN+2 SET PERMIT TRACK 01685 M01S01568.ims +++| LDD ES+4 01686 M01S01569.ims +++| SHN 3 01687 M01S01570.ims +++| ADN ALGL UPDATE DEVICE LAYOUT WORD 01688 M01S01571.ims +++| CWD CN 01689 M01S01572.ims +++| ADN PUGL-ALGL UPDATE CATALOG CHAIN STATUS 01690 M01S01573.ims +++| CWD FN 01691 M01S01574.ims +++| LDN 0 CLEAR ERROR STATUS 01692 M01S01575.ims +++| RJM SES 01693 M01S01576.ims +++| CMSTF GDEI CLEAR ERROR IDLE STATUS 01694 M01S01577.ims +++| CMSTF GCTO CLEAR CATALOG TRACK OVERFLOW 01695 M01S01578.ims +++| LDM CQFA 01696 M01S01579.ims +++| ZJN IND7 IF NO QUEUES IGNORED 01697 M01S01580.ims +++| LDC MESK * EQXXX, PROTECTED QUEUES IGNORED.* 01698 M01S01581.ims +++| RJM DFM 01699 M01S01582.ims +++| IND7 LDC MESE * EQXXX, PF INITIALIZE COMPLETE.* 01700 M01S01583.ims +++| RJM DFM 01701 M01S01584.ims +++| LDN RDDA+UPGA READ DAT / UPDATE GLOBAL MST 01702 M01S01585.ims +++| RJM UEC 01703 M01S01586.ims +++| RJM IAM PROCESS ACCOUNTING MESSAGE 01704 M01S01587.ims +++| LDN 5 01705 M01S01588.ims +++| LJM CKC SET CHECKPOINT REQUEST 01706 M01S01589.ims +++| SPACE 4,10 01707 M01S01590.ims +++|** SYSTEM SECTOR FILE NAMES. 01708 M01S01591.ims +++| 01709 M01S01592.ims +++| 01710 M01S01593.ims +++| NDAT VFD 42/0LDATA,6/1,6/SYFT,6/0 01711 M01S01594.ims +++| NLAB VFD 42/0LLABEL,6/1,6/SYFT,6/0 01712 M01S01595.ims +++| NPER VFD 42/0LPERMIT,6/1,6/SYFT,6/0 01713 M01S01596.ims +++| DFT SPACE 4,20 01714 M01S01597.ims +++|** DFT - DROP AND FLAW TRACK. 01715 M01S01598.ims +++|* 01716 M01S01599.ims +++|* ENTRY (A) = 1/0,11/FT. ALL TRACKS AFTER *FT* ARE DROPPED 01717 M01S01600.ims +++|* AND THE EOI IS SET IN SECTOR ZERO OF *FT*. 01718 M01S01601.ims +++|* = 1/1,11/FT. ALL TRACKS FROM *FT* TO END OF 01719 M01S01602.ims +++|* CHAIN ARE DROPPED.
| Line S01603 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01720 M02S01603.ims6 ---|* (T5) = EST ORDINAL.
| Line S01604 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01721 M02S01604.ims6 ---|* (T6) = TRACK ON WHICH ERROR OCCURED.
| Line S01605 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01722 M02S01605.ims6 ---|*
| Line S01606 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01723 M02S01606.ims6 ---|* ERROR TO *ABT1* IF NOT MEDIA ERROR. 01724 M01S00062.ims6 +++|* (T5) = EST ORDINAL. 01725 M01S00063.ims6 +++|* (T6) = TRACK ON WHICH ERROR OCCURED. 01726 M01S00064.ims6 +++|* (TA) = VERIFICATION ERROR RETRY COUNT. 01727 M01S00065.ims6 +++|* 01728 M01S00066.ims6 +++|* EXIT (A) = 0 IF TRACK CHAIN DROPPED. 01729 M01S00067.ims6 +++|* 01730 M01S00068.ims6 +++|* ERROR TO *ABT2* IF RETRY COUNT EXHAUSTED. 01731 M01S01607.ims +++|* 01732 M01S01608.ims +++|* USES CM - CM+4. 01733 M01S01609.ims +++|*
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01734 M02S01610.ims6 ---|* CALLS C2D, DFM. 01735 M01S00069.ims6 +++|* CALLS DFM, SES, STM. 01736 M01S01611.ims +++|* 01737 M01S01612.ims +++|* MACROS MONITOR. 01738 M01S01613.ims +++| 01739 M01S01614.ims +++| 01740 M01S00070.ims6 +++| DFT1 STD CM+3 CLEAR SECTOR NUMBER FIELD 01741 M01S00071.ims6 +++| LDD T5 01742 M01S00072.ims6 +++| STD CM+1 DROP CURRENT TRACK 01743 M01S00073.ims6 +++| MONITOR DTKM 01744 M01S00074.ims6 +++| LDC MESO ISSUE TRACK FLAWED MESSAGE TO ERRLOG 01745 M01S00075.ims6 +++| RJM STM 01746 M01S00076.ims6 +++| LDD T9 ISSUE SAME MESSAGE TO SYSTEM DAYFILE 01747 M01S00077.ims6 +++| RJM DFM 01748 M01S00078.ims6 +++|* LDN 0 01749 M01S00079.ims6 +++| 01750 M01S01615.ims +++| DFT SUBR ENTRY/EXIT 01751 M01S01616.ims +++| STD CM+2 SET FIRST TRACK TO DROP 01752 M01S01617.ims +++| LDM RDCT 01753 M01S01618.ims +++| LPN 77 CHECK MASS STORAGE ERROR TYPE 01754 M01S01619.ims +++| LMN PARE 01755 M01S01620.ims +++| ZJN DFT1 IF MEDIA PROBLEM
| Line S01621 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01756 M02S01621.ims6 ---| LJM ABT1 ABORT - MAINTENANCE REQUIRED
| Line S01622 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01757 M02S01622.ims6 ---|
| Line S01623 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01758 M02S01623.ims6 ---| DFT1 STD CM+3
| Line S01624 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01759 M02S01624.ims6 ---| LDD T5 SET EST ORDINAL
| Line S01625 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01760 M02S01625.ims6 ---| STD CM+1
| Line S01626 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01761 M02S01626.ims6 ---| MONITOR DTKM DROP TRACK CHAIN
| Line S01627 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01762 M02S01627.ims6 ---| LDD T6
| Line S01628 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01763 M02S01628.ims6 ---| SHN -6 PUT TRACK NUMBER IN MESSAGE
| Line S01629 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01764 M02S01629.ims6 ---| RJM C2D
| Line S01630 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01765 M02S01630.ims6 ---| STM MESO+17
| Line S01631 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01766 M02S01631.ims6 ---| LDD T6
| Line S01632 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01767 M02S01632.ims6 ---| RJM C2D
| Line S01633 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01768 M02S01633.ims6 ---| STM MESO+20
| Line S01634 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01769 M02S01634.ims6 ---| LDC ERLN+MESO * IMS - TRACK FLAWED, EQXXX, TKYYYY.*
| Line S01635 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01770 M02S01635.ims6 ---| RJM DFM
| Line S01636 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01771 M02S01636.ims6 ---| LDC MESO ISSUE SAME MESSAGE TO SYSTEM DAYFILE
| Line S01637 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01772 M02S01637.ims6 ---| RJM DFM
| Line S01638 Modification History | |
|---|---|
M01 (Added by) | ims |
M02 (Updated by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01773 M02S01638.ims6 ---| LJM DFTX RETURN 01774 M01S00080.ims6 +++| LDC MESP 01775 M01S00081.ims6 +++| RJM STM ISSUE VERIFICATION ERROR MESSAGE 01776 M01S00082.ims6 +++| SOD TA 01777 M01S00083.ims6 +++| NJN DFTX IF VERIFICATION RETRY IN ORDER 01778 M01S00084.ims6 +++| LDN STVE 01779 M01S00085.ims6 +++| RJM SES SET *VE* ERROR STATUS IN MST 01780 M01S00086.ims6 +++|* LDC MESM 01781 M01S00087.ims6 +++| LJM ABT2 ABORT - MAINTENANCE REQUIRED 01782 M01S01639.ims +++| IAM SPACE 4,15 01783 M01S01640.ims +++|** IAM - ISSUE ACCOUNTING MESSAGE. 01784 M01S01641.ims +++|* 01785 M01S01642.ims +++|* ENTRY (T5) = EST ORDINAL. 01786 M01S01643.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01787 M01S01644.ims +++|* 01788 M01S01645.ims +++|* EXIT MESSAGE ISSUED TO ACCOUNTING DAYFILE. 01789 M01S01646.ims +++|* EVENT SET FOR AUXILIARY DEVICE. 01790 M01S01647.ims +++|* 01791 M01S01648.ims +++|* USES T1, CM - CM+4, CN - CN+4.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/ims.txt · Last modified: by 127.0.0.1