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.