cdc:nos2.source:opl.opl871:deck:ims
Deck IMS
Library Member Format: MODIFY
Listing Sections
- Deck IMS Start
- Deck IMS Part 1 (Line 1931)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.ims +++| IDENT IMS,/IMS/IMS 00002 M00S00002.ims +++| PERIPH 00003 M00S00003.ims +++| BASE MIXED 00004 M00S00004.ims +++| SST 00005 M00S00005.ims +++|*COMMENT IMS - INITIALIZE MASS STORAGE.
| Line S00006 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M01S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1973.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M00S00007.ims +++| TITLE IMS - INITIALIZE MASS STORAGE. 00009 M00S00008.ims +++| SPACE 4 00010 M00S00009.ims +++|*** IMS - INITIALIZE MASS STORAGE. 00011 M00S00010.ims +++|* S. L. BETH 73/01/31. 00012 M00S00011.ims +++|* T. H. MACFARLAND. 74/04/25. 00013 M00S00012.ims +++|* P. D. HAAS. 87/03/31. 00014 M00S00013.ims +++| SPACE 4 00015 M00S00014.ims +++|*** IMS MAY BE CALLED TO DO THE FOLLOWING 00016 M00S00015.ims +++|* 00017 M00S00016.ims +++|* 00018 M00S00017.ims +++|* FUNCTION 1 INITIALIZE PERMANENT FILES. 00019 M00S00018.ims +++|* RELEASES ALL PF TRACKS AND REALOCATES 00020 M00S00019.ims +++|* THE CATALOG, PERMITS AND DATA TRACKS. 00021 M00S00020.ims +++|* 00022 M00S00021.ims +++|* FUNCTION 2 EDIT DIRECT ACCESS FILES. 00023 M00S00022.ims +++|* RELEASES DIRECT ACCESS FILES WHICH 00024 M00S00023.ims +++|* HAVE CATALOGS ON THE SPECIFIED DEVICE. 00025 M00S00024.ims +++|* 00026 M00S00025.ims +++|* FUNCTION 3 SET/CLEAR FLAWS ON THE EQUIPMENT. 00027 M00S00026.ims +++|* PROCESS FLAW LIST AND ENTER IN TRT. 00028 M00S00027.ims +++|* 00029 M00S00028.ims +++|* FUNCTION 4 CHECK SHARED DEVICE STATUS. 00030 M00S00029.ims +++|* CHECK IF SHARED DEVICE IS UNLOADED 00031 M00S00030.ims +++|* IN OTHER MACHINES. 00032 M00S00031.ims +++|* 00033 M00S00032.ims +++|* FUNCTION 5 INITIALIZE LOCAL AREAS. 00034 M00S00033.ims +++|* RELEASE SPACE WHICH IS PRESERVED BY 00035 M00S00034.ims +++|* INACTIVE LOCAL AREAS. 00036 M00S00035.ims +++|* 00037 M00S00036.ims +++|* FUNCTION 6 ALTER MST DATA. 00038 M00S00037.ims +++|* ENTER NEW DEVICE CHARACTERISTICS IN MST. 00039 M00S00038.ims +++|* 00040 M00S00039.ims +++|* FUNCTION 7 CLEAR INITIALIZE REQUESTS. 00041 M00S00040.ims +++|* CLEARS ALL INITIALIZE REQUESTS ON 00042 M00S00041.ims +++|* THE SPECIFIED DEVICE. 00043 M00S00042.ims +++|* 00044 M00S00043.ims +++|* FUNCTION 10 INITIALIZE INACTIVE DAYFILES. 00045 M00S00044.ims +++|* RELEASE SPACE ON SPECIFIED INACTIVE 00046 M00S00045.ims +++|* DAYFILE. 00047 M00S00046.ims +++|* 00048 M00S00047.ims +++|* FUNCTION 11 CLEAR CMS INTERLOCK. 00049 M00S00048.ims +++|* CLEAR DATI INTERLOCK AND BYTE 2 OF MMFL. 00050 M00S00049.ims +++|* 00051 M00S00050.ims +++|* FUNCTION 12 SET/CLEAR DEVICE INTERLOCK ON AN 00052 M00S00051.ims +++|* INDEPENDENT SHARED DEVICE. 00053 M00S00052.ims +++|* 00054 M00S00053.ims +++|* (THE CALLING JOB MUST HAVE SYSTEM PERMISSION) 00055 M00S00054.ims +++|* 00056 M00S00055.ims +++|*** CALL FORMATS 00057 M00S00056.ims +++|* 00058 M00S00057.ims +++|* 00059 M00S00058.ims +++|* INITIALIZE 18/IMS,6/20,18/100,18/EQ 00060 M00S00059.ims +++|* 00061 M00S00060.ims +++|* EDIT DA FILES 18/IMS,6/20,18/200,18/PARAM 00062 M00S00061.ims +++|* 00063 M00S00062.ims +++|* PARAM 12/MASK,12/EQ,36/0 00064 M00S00063.ims +++|* 00065 M00S00064.ims +++|* SET FLAWS 18/IMS,6/20,18/300,18/PARAM 00066 M00S00065.ims +++|* 00067 M00S00066.ims +++|* PARAM 12/TYPE,12/0,12/EQ,12/0,12/LOGICAL TRACK 00068 M00S00067.ims +++|* 00069 M00S00068.ims +++|* TYPE 0 = END TABLE 00070 M00S00069.ims +++|* 1 = SET FLAW 00071 M00S00070.ims +++|* 2 = CLEAR FLAW 00072 M00S00071.ims +++|* 00073 M00S00072.ims +++|* CHECK STATUS 18/IMS,6/20,18/400,18/ADDRESS 00074 M00S00073.ims +++|* 00075 M00S00074.ims +++|* ADDRESS 12/EQ,48/0 00076 M00S00075.ims +++|* 00077 M00S00076.ims +++|* INITIALIZE LOCAL 18/IMS,6/20,18/500,18/EQUIPMENT 00078 M00S00077.ims +++|* 00079 M00S00078.ims +++|* UPDATE MST 18/IMS,6/20,18/600,18/LIST 00080 M00S00079.ims +++|* 00081 M00S00080.ims +++|* CLEAR INI REQ 18/IMS,6/20,18/700,18/EQ 00082 M00S00081.ims +++|* 00083 M00S00082.ims +++|** INITIALIZE DAYFILES 18/IMS,6/20,18/100N,18/EQ 00084 M00S00083.ims +++|* 00085 M00S00084.ims +++|* N = 0 INITIALIZE SYSTEM DAYFILE. 00086 M00S00085.ims +++|* = 1 INITIALIZE ACCOUNT FILE. 00087 M00S00086.ims +++|* = 2 INITIALIZE ERRLOG FILE. 00088 M00S00087.ims +++|* = 3 INITIALIZE MAINTENANCE LOG FILE. 00089 M00S00088.ims +++|* 00090 M00S00089.ims +++|* CLEAR INTERLOCK 18/IMS,6/20,18/1100,18/0 00091 M00S00090.ims +++|* 00092 M00S00091.ims +++|* INTERLOCK DEVICE 18/IMS,6/20,18/1200,18/ADDRESS 00093 M00S00092.ims +++|* ADDRESS 12/EQ,47/0,1/F 00094 M00S00093.ims +++| SPACE 4 00095 M00S00094.ims +++|*** ENTRY CONDITIONS. 00096 M00S00095.ims +++|* 00097 M00S00096.ims +++|* (IR+2) = FUNCTION CODE. 00098 M00S00097.ims +++|* (IR+3) = PARAMETER ADDRESS IF REQUIRED 00099 M00S00098.ims +++|* (IR+4) = PARAMETER ADDRESS IF REQUIRED 00100 M00S00099.ims +++| SPACE 4 00101 M00S00100.ims +++|*** DAYFILE MESSAGES. 00102 M00S00101.ims +++|* 00103 M00S00102.ims +++|* * EQXXX, FILE ACTIVE - FILENAME.* 00104 M00S00103.ims +++|* 00105 M00S00104.ims +++|* * EQXXX, FILE BUSY - FILENAME.* 00106 M00S00105.ims +++|* 00107 M00S00106.ims +++|* * EQXXX, FLAWING INCOMPLETE.* 00108 M00S00107.ims +++|* 00109 M00S00108.ims +++|* * EQXXX, INITIALIZED - FILENAME.* 00110 M00S00109.ims +++|* 00111 M00S00110.ims +++|* * EQXXX, LABEL READ ERROR.* 00112 M00S00111.ims +++|* 00113 M00S00112.ims +++|* * EQXXX, LOCAL AREAS INITIALIZED.* 00114 M00S00113.ims +++|* 00115 M00S00114.ims +++|* * EQXXX, LOCAL AREA SECTOR RESET.* 00116 M00S00115.ims +++|* 00117 M00S00116.ims +++|* * EQXXX, NO INACTIVE DAYFILES FOUND.* 00118 M00S00117.ims +++|* 00119 M00S00118.ims +++|* * EQXXX, PF INITIALIZE COMPLETE.* 00120 M00S00119.ims +++|* 00121 M00S00120.ims +++|* * EQXXX, PROTECTED QUEUES IGNORED.*
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00122 M01S00001.ims6 +++|* 00123 M01S00002.ims6 +++|* * EQXXX, TKYYYY - TRACK FLAWED BY IMS. 00124 M00S00121.ims +++|* 00125 M00S00122.ims +++|* * EQXXX, YY FLAWS NOT PROCESSED. (WITH LIST).* 00126 M00S00123.ims +++|* 00127 M00S00124.ims +++|* * EQXXX, YY TRACKS FLAWED.* 00128 M00S00125.ims +++|* 00129 M00S00126.ims +++|* * ERROR ON LINK DEVICE.* 00130 M00S00127.ims +++|* 00131 M00S00128.ims +++|* * INCORRECT IMS REQUEST.* 00132 M00S00129.ims +++|* 00133 M00S00130.ims +++|* * IMS ABORTED.*
| Line S00131 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00134 M01S00131.ims6 ---|* 00135 M01S00132.ims6 ---|* * IMS - TRACK FLAWED, EQXXX, TKYYYY.* 00136 M00S00133.ims +++|* 00137 M00S00134.ims +++|* * LABEL TRACK CONFLICT.* 00138 M00S00135.ims +++| SPACE 4 00139 M00S00136.ims +++|*** ACCOUNT FILE MESSAGES. 00140 M00S00137.ims +++|* 00141 M00S00138.ims +++|* *ADDI, XXX, FFFFFFF, DD.* = EST ORDINAL XXX WITH FAMILY NAME 00142 M00S00139.ims +++|* FFFFFFF AND DEVICE NUMBER DD HAS BEEN INITIALIZED. 00143 M00S00140.ims +++|* 00144 M00S00141.ims +++|* *ADPI, XXX, PPPPPPP, UUUUUUU.* = EST ORDINAL XXX WITH PACKNAME 00145 M00S00142.ims +++|* PPPPPPP HAS BEEN INITIALIZED. IF PRESENT, UUUUUUU INDICATES 00146 M00S00143.ims +++|* THAT THE PACK IS A PRIVATE PACK BELONGING TO THAT USER. 00147 M00S00144.ims +++| SPACE 4 00148 M00S00145.ims +++|*** ERRLOG MESSAGES. 00149 M00S00146.ims +++|* 00150 M00S00147.ims +++|* * EQXXX, LOCAL AREA SECTOR ERROR.* 00151 M00S00148.ims +++|* 00152 M00S00149.ims +++|* * EQXXX, TKYYYY, SYSTEM SECTOR ERROR.*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00153 M01S00003.ims6 +++|* 00154 M01S00004.ims6 +++|* * EQXXX, TKYYYY - TRACK FLAWED BY IMS. 00155 M01S00005.ims6 +++|* 00156 M01S00006.ims6 +++|* * EQXXX, TKYYYY - VERIFICATION ERRORS. 00157 M00S00150.ims +++|* 00158 M00S00151.ims +++|* * EQXXX, YY TRACKS FLAWED.* 00159 M00S00152.ims +++|* 00160 M00S00153.ims +++|* * EQXXX, YY FLAWS NOT PROCESSED. (WITH LIST).* 00161 M00S00154.ims +++|* 00162 M00S00155.ims +++|* * IMS ABORTED.*
| Line S00156 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00163 M01S00156.ims6 ---|* 00164 M01S00157.ims6 ---|* * IMS - TRACK FLAWED, EQXXX, TKYYYY.* 00165 M00S00158.ims +++| SPACE 4 00166 M00S00159.ims +++|*** CONTROL POINT MESSAGES. 00167 M00S00160.ims +++|* * EQXXX, BUSY ON MID YY.* = SHARED EST ORDINAL XXX IS NOT 00168 M00S00161.ims +++|* UNLOADED ON MAINFRAME WITH MACHINE ID YY. 00169 M00S00162.ims +++|* 00170 M00S00163.ims +++|* * EQXXX, INTERLOCKED BY MID YY.* = INDEPENDENT SHARED EST 00171 M00S00164.ims +++|* ORDINAL XXX IS INTERLOCKED FOR INITIALIZATION BY THE MAINFRAME 00172 M00S00165.ims +++|* WITH MACHINE ID YY. 00173 M00S00166.ims +++|* 00174 M00S00167.ims +++|* *MSI ABORT.* = *MSI* ABORTED. IF THIS OCCURRED DURING THE 00175 M00S00168.ims +++|* DEADSTART SEQUENCING JOB, JOB SCHEDULING WILL REMAIN DISABLED. 00176 M00S00169.ims +++|* 00177 M00S00170.ims +++|* *READING TRACK-XXXX* = *IMS* IS READING THE SPECIFIED TRACK. 00178 M00S00171.ims +++|* 00179 M00S00172.ims +++|* *WAITING - RECOVERY INTERLOCK.* = *IMS* IS WAITING FOR THE 00180 M00S00173.ims +++|* DAT INTERLOCK TO BECOME FREE, TO ENSURE THAT *CMS* IS NOT 00181 M00S00174.ims +++|* IN ANY OTHER MACHINE IN THE MMF COMPLEX. 00182 M00S00175.ims +++| SPACE 4 00183 M00S00176.ims +++|** ROUTINES USED. 00184 M00S00177.ims +++|* 00185 M00S00178.ims +++|* 0PI - PRESET DRIVER TO READ/WRITE DEADSTART SECTOR. 00186 M00S00179.ims +++|* 0TI - SET TRACK FLAWS IN TRT. 00187 M00S00180.ims +++|* 1CK - CHECKPOINT DEVICE. 00188 M00S00181.ims +++| SPACE 4 00189 M00S00182.ims +++|*CALL COMPMAC 00190 M00S00183.ims +++|*CALL COMSCPS 00191 M00S00184.ims +++|*CALL COMSDSL 00192 M00S00185.ims +++| QUAL EVENT 00193 M00S00186.ims +++|*CALL COMSEVT 00194 M00S00187.ims +++| QUAL * 00195 M00S00188.ims +++|*CALL COMSHIO 00196 M00S00189.ims +++|*CALL COMSIOQ 00197 M00S00190.ims +++|*CALL COMSLSD 00198 M00S00191.ims +++|*CALL COMSMMF 00199 M00S00192.ims +++|*CALL COMSMSC 00200 M00S00193.ims +++|*CALL COMSMSI 00201 M00S00194.ims +++|*CALL COMSMSP 00202 M00S00195.ims +++|*CALL COMSMST 00203 M00S00196.ims +++|*CALL COMSPFM 00204 M00S00197.ims +++|*CALL COMSPIM 00205 M00S00198.ims +++|*CALL COMSSSD 00206 M00S00199.ims +++|*CALL COMSWEI 00207 M00S00200.ims +++| SPACE 4 00208 M00S00201.ims +++|**** DIRECT LOCATION ASSIGNMENTS. 00209 M00S00202.ims +++| 00210 M00S00203.ims +++|
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00211 M01S00007.ims6 +++| T9 EQU 17 SCRATCH CELL 00212 M00S00204.ims +++| CN EQU 20 - 24 CM WORD BUFFER (5 LOCATIONS) 00213 M00S00205.ims +++| TI EQU 25 TEMP INDEX 00214 M00S00206.ims +++| LD EQU 26 EST ORDINAL OF LINK DEVICE 00215 M00S00207.ims +++| MI EQU 27 MACHINE INDEX 00216 M00S00208.ims +++| ES EQU 30 - 34 EST ENTRY (5 LOCATIONS) 00217 M00S00209.ims +++| LT EQU 35 LABEL TRACK 00218 M00S00210.ims +++| TA EQU 36 TEMP COUNTER 00219 M00S00211.ims +++| TL EQU 37 TRT LENGTH 00220 M00S00212.ims +++| FN EQU 40 - 44 CM WORD BUFFER (5 WORDS). 00221 M00S00213.ims +++| DI EQU 45 DAT INDEX 00222 M00S00214.ims +++| BY EQU 46 BYTE COUNT 00223 M00S00215.ims +++| DE EQU 47 DAT ENTRY COUNT 00224 M00S00216.ims +++| AI EQU 57 ALGORITHM INDEX 00225 M00S00217.ims +++| WB EQU 60 - 64 CM WORD BUFFER (5 LOCATIONS) 00226 M00S00218.ims +++| PF EQU 65 PRESERVED FILE TRACK INTERLOCK STATUS 00227 M00S00219.ims +++| CA EQU 66 - 67 CENTRAL BUFFER (2 LOCATIONS) 00228 M00S00220.ims +++|**** 00229 M00S00221.ims +++| SPACE 4,10 00230 M00S00222.ims +++|* ASSEMBLY CONSTANTS. 00231 M00S00223.ims +++| 00232 M00S00224.ims +++| 00233 M00S00225.ims +++| BUF EQU BFMS-502 ALTERNATE SECTOR BUFFER 00234 M00S00226.ims +++| FPPA EQU BUF+5 FLAW PROCESSOR PARAMETER ADDRESS 00235 M00S00227.ims +++| FPLA EQU FPPA+1 FLAW PROCESSOR LOAD ADDRESS
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00236 M01S00008.ims6 +++| VERC EQU 2 VERIFICATION ERROR RETRY COUNT 00237 M00S00228.ims +++| SPACE 4 00238 M00S00229.ims +++|* EQUATES FOR FUNCTION 6 PARAMETER BUFFER 00239 M00S00230.ims +++| 00240 M00S00231.ims +++| 00241 M00S00232.ims +++| PMES EQU 5*0 EST ENTRY 00242 M00S00233.ims +++| PMPF EQU 5*1 PFGL WORD OF MST 00243 M00S00234.ims +++| PMPU EQU 5*2 PUGL WORD OF MST 00244 M00S00235.ims +++| PMMD EQU 5*3 MDGL WORD OF MST 00245 M00S00236.ims +++| PMNC EQU 5*4+0 NUMBER OF CATALOG TRACKS 00246 M00S00237.ims +++| PMEQ EQU 5*4+1 EST ORDINAL 00247 M00S00238.ims +++| PMAI EQU 5*4+2 ALGORITHM INDEX 00248 M00S00239.ims +++| PMCI EQU 5*4+3 CLEAR IN USE AS CHAINED DEVICE 00249 M00S00240.ims +++| PMNE EQU 5*4+4 NEXT EST ORDINAL IN CHAIN 00250 M00S00241.ims +++| PMAL EQU 5*5 EQUIPMENT ALLOCATION *DDLL* 00251 M00S00242.ims +++| PMRP EQU 5*6 REPLY WORD 00252 M00S00243.ims +++| PMMSL EQU 7 LENGTH OF PARAMETER BLOCK 00253 M00S00244.ims +++| SPACE 4 00254 M00S00245.ims +++|* FUNCTION EQUATES FOR SUBROUTINE *UEC*. 00255 M00S00246.ims +++| 00256 M00S00247.ims +++| 00257 M00S00248.ims +++| UPGA EQU 1 UPDATE GLOBAL AREA 00258 M00S00249.ims +++| UPDA EQU 2 UPDATE DAT INFORMATION 00259 M00S00250.ims +++| RDDA EQU 4 READ DAT INFORMATION 00260 M00S00251.ims +++| TITLE MACRO DEFINITIONS. 00261 M00S00252.ims +++| ENTRY SPACE 4,10 00262 M00S00253.ims +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00263 M00S00254.ims +++|* 00264 M00S00255.ims +++|* NAME ENTRY 00265 M00S00256.ims +++|* NAME = NAME OF ENTRY ADDRESS. 00266 M00S00257.ims +++| 00267 M00S00258.ims +++| 00268 M00S00259.ims +++| PURGMAC ENTRY 00269 M00S00260.ims +++| 00270 M00S00261.ims +++| MACRO ENTRY,NAME 00271 M00S00262.ims +++| MACREF ENTRY 00272 M00S00263.ims +++| QUAL 00273 M00S00264.ims +++| IF MIC,.M 00274 M00S00265.ims +++| NAME EQU *+1R".M"*10000B 00275 M00S00266.ims +++| ELSE 1 00276 M00S00267.ims +++| NAME EQU * 00277 M00S00268.ims +++| QUAL * 00278 M00S00269.ims +++| ENDM 00279 M00S00270.ims +++| FCN SPACE 4,10 00280 M00S00271.ims +++|** FCN - DEFINE FUNCTION PROCESSOR. 00281 M00S00272.ims +++|* 00282 M00S00273.ims +++|*TBLN FCN 00283 M00S00274.ims +++|* FCN CODE,NAME 00284 M00S00275.ims +++|* 00285 M00S00276.ims +++|* ENTRY *TBLN* = TABLE NAME (FIRST ENTRY ONLY). 00286 M00S00277.ims +++|* *CODE* = FUNCTION CODE. 00287 M00S00278.ims +++|* *NAME* = FUNCTION PROCESSING ROUTINE NAME. 00288 M00S00279.ims +++| 00289 M00S00280.ims +++| 00290 M00S00281.ims +++| MACRO FCN,T,C,N 00291 M00S00282.ims +++| IFC EQ,*N** 00292 M00S00283.ims +++| T INDEX C*2 00293 M00S00284.ims +++| ELSE 2 00294 M00S00285.ims +++| INDEX C*2,N-N/10000B*10000B 00295 M00S00286.ims +++| CON N/10000B 00296 M00S00287.ims +++| ENDM 00297 M00S00288.ims +++| OVERLAY SPACE 4,10 00298 M00S00289.ims +++|** OVERLAY - DEFINE SECONDARY OVERLAY(S). 00299 M00S00290.ims +++|* 00300 M00S00291.ims +++|* OVERLAY (TEXT),PRS 00301 M00S00292.ims +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00302 M00S00293.ims +++|* *PRS* = NAME OF OPTIONAL PRESET ROUTINE. 00303 M00S00294.ims +++| 00304 M00S00295.ims +++| 00305 M00S00296.ims +++| .N SET 0 00306 M00S00297.ims +++| OVLB MICRO 1,, 4D OVERLAY NAME 00307 M00S00298.ims +++| 00308 M00S00299.ims +++| 00309 M00S00300.ims +++| PURGMAC OVERLAY 00310 M00S00301.ims +++| 00311 M00S00302.ims +++| OVERLAY MACRO TEXT,PRS 00312 M00S00303.ims +++| MACREF OVERLAY 00313 M00S00304.ims +++| QUAL 00314 M00S00305.ims +++| .N SET .N+1 00315 M00S00306.ims +++| .M MICRO .N,1, 0123456789 00316 M00S00307.ims +++| .O MICRO 1,3, "OVLB"".M" 00317 M00S00308.ims +++| QUAL IMS 00318 M00S00309.ims +++| TTL IMS/".O" - TEXT 00319 M00S00310.ims +++| TITLE 00320 M00S00311.ims +++| IDENT ".O",OVLA TEXT 00321 M00S00312.ims +++|*COMMENT IMS - TEXT
| Line S00313 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00322 M01S00313.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00323 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00324 M00S00314.ims +++| ORG OVLA 00325 M00S00315.ims +++| OV".M"_X LJM * ENTRY/EXIT 00326 M00S00316.ims +++| IFC NE,*PRS**,1 00327 M00S00317.ims +++| RJM PRS 00328 M00S00318.ims +++| UJN OV".M"_X OVERLAY EXIT ADDRESS 00329 M00S00319.ims +++| ENDM 00330 M00S00320.ims +++| TBLM SPACE 4,10 00331 M00S00321.ims +++|** TBLM = GENERATE TABLE OF ALTERNATE LABEL SECTORS. 00332 M00S00322.ims +++|* 00333 M00S00323.ims +++|* TBLM EQ 00334 M00S00324.ims +++|* EQ = MASS STORAGE EQUIPMENT MNEMONIC. 00335 M00S00325.ims +++| 00336 M00S00326.ims +++| 00337 M00S00327.ims +++| PURGMAC TBLM 00338 M00S00328.ims +++| 00339 M00S00329.ims +++| TBLM MACRO EQ 00340 M00S00330.ims +++| CON 2R_EQ,LC_EQ 00341 M00S00331.ims +++| ENDM 00342 M00S00332.ims +++| TITLE MAIN PROGRAM. 00343 M00S00333.ims +++| IMS SPACE 4,10 00344 M00S00334.ims +++|** IMS - MAIN PROGRAM. 00345 M00S00335.ims +++| 00346 M00S00336.ims +++| 00347 M00S00337.ims +++| QUAL IMS 00348 M00S00338.ims +++| ORG PPFW 00349 M00S00339.ims +++| 00350 M00S00340.ims +++| IMS RJM PRS PRESET PROGRAM 00351 M00S00341.ims +++| LDM TFCN+1,T2 00352 M00S00342.ims +++| ZJN IMS1 IF PROCESSOR RESIDENT 00353 M00S00343.ims +++| LMC 2L"OVLB" 00354 M00S00344.ims +++| RJM EXR LOAD OVERLAY 00355 M00S00345.ims +++| 00356 M00S00346.ims +++| IMS1 LJM * PROCESS FUNCTION 00357 M00S00347.ims +++| IMSA EQU *-1 00358 M00S00348.ims +++| TITLE RESIDENT SUBROUTINES. 00359 M00S00349.ims +++| CLI SPACE 4,10 00360 M00S00350.ims +++|** CLI - CLEAR INTERLOCKS. 00361 M00S00351.ims +++|* 00362 M00S00352.ims +++|* EXIT (A) = 0. 00363 M00S00353.ims +++|* 00364 M00S00354.ims +++|* USES T5. 00365 M00S00355.ims +++|* 00366 M00S00356.ims +++|* MACROS CMSTF. 00367 M00S00357.ims +++| 00368 M00S00358.ims +++| 00369 M00S00359.ims +++| CLI SUBR ENTRY/EXIT 00370 M00S00360.ims +++| LDC 0 00371 M00S00361.ims +++| CLIA EQU *-1 00372 M00S00362.ims +++| ZJN CLIX IF INTERLOCK NOT SET 00373 M00S00363.ims +++| STD T5 00374 M00S00364.ims +++| CMSTF LUAI CLEAR LOCAL UTILITY INTERLOCK 00375 M00S00365.ims +++|* LDN 0 00376 M00S00366.ims +++| UJN CLIX RETURN 00377 M00S00367.ims +++| RDS SPACE 4,10 00378 M00S00368.ims +++|** RDS - READ SECTOR. 00379 M00S00369.ims +++|* 00380 M00S00370.ims +++|* ENTRY (A) = BUFFER ADDRESS. 00381 M00S00371.ims +++|* (T5 - T7) = MASS STORAGE DRIVER PARAMETERS. 00382 M00S00372.ims +++|* 00383 M00S00373.ims +++|* EXIT (A) .LT. 0 IF MEDIA ERROR. 00384 M00S00374.ims +++|* 00385 M00S00375.ims +++|* ERROR TO *ABT1* IF NON-MEDIA ERROR. 00386 M00S00376.ims +++|* 00387 M00S00377.ims +++|* CALLS RDS. 00388 M00S00378.ims +++| 00389 M00S00379.ims +++| 00390 M00S00380.ims +++| RDS1 LDC 1S17 RETURN WITH ERROR STATUS 00391 M00S00381.ims +++| RDSA EQU *-1 00392 M00S00382.ims +++| 00393 M00S00383.ims +++| RDS SUBR ENTRY/EXIT 00394 M00S00384.ims +++| RJM //RDS 00395 M00S00385.ims +++| PJN RDSX IF NO ERROR 00396 M00S00386.ims +++| STM RDSA 00397 M00S00387.ims +++| LPN 77 00398 M00S00388.ims +++| LMN PARE 00399 M00S00389.ims +++| ZJN RDS1 IF MEDIA ERROR
| Line S00390 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00400 M01S00390.ims6 ---| UJN ABT1 ABORT
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00401 M01S00009.ims6 +++| UJN ABT2 ABORT 00402 M00S00391.ims +++| WDS SPACE 4,15 00403 M00S00392.ims +++|** WDS - WRITE SECTOR. 00404 M00S00393.ims +++|* 00405 M00S00394.ims +++|* ENTRY (A) = BUFFER ADDRESS. 00406 M00S00395.ims +++|* (T5 - T7) = MASS STORAGE DRIVER PARAMETERS. 00407 M00S00396.ims +++|* 00408 M00S00397.ims +++|* EXIT (A) .LT. 0 IF MEDIA ERROR. 00409 M00S00398.ims +++|* IF RECOVERED ERROR ON PREVIOUS SECTOR. 00410 M00S00399.ims +++|* 00411 M00S00400.ims +++|* ERROR TO *ABT1* IF NON-MEDIA ERROR. 00412 M00S00401.ims +++|* 00413 M00S00402.ims +++|* CALLS WDS. 00414 M00S00403.ims +++| 00415 M00S00404.ims +++| 00416 M00S00405.ims +++| WDS1 LDC 1S17 RETURN WITH ERROR STATUS 00417 M00S00406.ims +++| WDSA EQU *-1 00418 M00S00407.ims +++| 00419 M00S00408.ims +++| WDS SUBR ENTRY/EXIT 00420 M00S00409.ims +++| RJM //WDS 00421 M00S00410.ims +++| PJN WDSX IF NO ERROR 00422 M00S00411.ims +++| STM WDSA 00423 M00S00412.ims +++| SHN 21-11 00424 M00S00413.ims +++| MJN WDS1 IF ERROR ON PREVIOUS SECTOR RECOVERED 00425 M00S00414.ims +++| SHN 12 00426 M00S00415.ims +++| LPN 77 00427 M00S00416.ims +++| LMN PARE 00428 M00S00417.ims +++| ZJN WDS1 IF MEDIA ERROR
| Line S00418 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00429 M01S00418.ims6 ---|* UJN ABT1 ABORT
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00430 M01S00010.ims6 +++|* UJN ABT2 ABORT 00431 M00S00419.ims +++| ABT SPACE 4,10 00432 M00S00420.ims +++|** ABT - ABORT OPERATION. 00433 M00S00421.ims +++|* 00434 M00S00422.ims +++|* ENTRY (A) = ERROR MESSAGE ADDRESS. 00435 M00S00423.ims +++|* 00436 M00S00424.ims +++|* CALLS CLI, DFM. 00437 M00S00425.ims +++|* 00438 M00S00426.ims +++|* MACROS MONITOR. 00439 M00S00427.ims +++| 00440 M00S00428.ims +++|
| Line S00429 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00441 M01S00429.ims6 ---| ABT1 LDC MESM * IMS ABORTED.*
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00430.ims +++| 00448 M00S00431.ims +++| ABT LMC ERLN ISSUE MESSAGE TO ERRLOG 00449 M00S00432.ims +++| RJM DFM 00450 M00S00433.ims +++| RJM CLI CLEAR INTERLOCKS 00451 M00S00434.ims +++| MONITOR ABTM
| Line S00435 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00452 M01S00435.ims6 ---| LJM PPR EXIT TO PP RESIDENT
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00436.ims +++| MSI SPACE 4,15 00462 M00S00437.ims +++|** MSI - ISSUE *MSI* REQUEST. 00463 M00S00438.ims +++|* 00464 M00S00439.ims +++|* ENTRY (A) = REQUEST CODE. 00465 M00S00440.ims +++|* 00466 M00S00441.ims +++|* EXIT TO DPP. 00467 M00S00442.ims +++|* 00468 M00S00443.ims +++|* USES CM - CM+5. 00469 M00S00444.ims +++| 00470 M00S00445.ims +++| 00471 M00S00446.ims +++| MSI STD CM+5 SET FUNCTION CODE 00472 M00S00447.ims +++| LDN ZERL 00473 M00S00448.ims +++| CRD CM 00474 M00S00449.ims +++| LDD RA STORE *MSI* REQUEST 00475 M00S00450.ims +++| SHN 6 00476 M00S00451.ims +++| ADN PREQ 00477 M00S00452.ims +++| CWD CM+1 00478 M00S00453.ims +++| UJN DPP DROP 00479 M00S00454.ims +++| 00480 M00S00455.ims +++| 00481 M00S00456.ims +++| DPP2 RJM IPF INITIALIZE PACK FLAWS 00482 M00S00457.ims +++| DPP1 SMSTF LCKP SET EQUIPMENT CHECKPOINT 00483 M00S00458.ims +++| 00484 M00S00459.ims +++| DPP RJM CLI CLEAR INTERLOCKS 00485 M00S00460.ims +++| MONITOR DPPM 00486 M00S00461.ims +++| LJM PPR EXIT TO PP RESIDENT 00487 M00S00462.ims +++| CKC SPACE 4,10 00488 M00S00463.ims +++|** CKC - CALL *1CK* TO PROCESS CHECKPOINT. 00489 M00S00464.ims +++|* 00490 M00S00465.ims +++|* ENTRY (A) = *1CK* FUNCTION CODE. 00491 M00S00466.ims +++|* (T5) = EST ORDINAL TO CHECKPOINT. 00492 M00S00467.ims +++|* 00493 M00S00468.ims +++|* EXIT TO *1CK*. 00494 M00S00469.ims +++|* 00495 M00S00470.ims +++|* CALLS CLI. 00496 M00S00471.ims +++|* 00497 M00S00472.ims +++|* MACROS EXECUTE. 00498 M00S00473.ims +++| 00499 M00S00474.ims +++| 00500 M00S00475.ims +++| CKC STM CKCA+2 00501 M00S00476.ims +++| RJM CLI CLEAR INTERLOCKS 00502 M00S00477.ims +++| LDD CP 00503 M00S00478.ims +++| SHN -7 SET CONTROL POINT 00504 M00S00479.ims +++| RAM CKCA+1 00505 M00S00480.ims +++| LDD IA SET UP CALL TO 1CK 00506 M00S00481.ims +++| CWM CKCA,ON 00507 M00S00482.ims +++| EXECUTE 1CK,= 00508 M00S00483.ims +++| LJM PPR RETURN TO PP RESIDENT 00509 M00S00484.ims +++| 00510 M00S00485.ims +++| 00511 M00S00486.ims +++| CKCA VFD 18/3L1CK,6/40,36/0 00512 M00S00487.ims +++| EQNO EQU CKCA+3 00513 M00S00488.ims +++| CAT SPACE 4,10 00514 M00S00489.ims +++|** CAT - CALCULATE ADDRESS OF TRT. 00515 M00S00490.ims +++|* 00516 M00S00491.ims +++|* ENTRY (A) = ADDRESS OF *TRLL* IN MST. 00517 M00S00492.ims +++|* 00518 M00S00493.ims +++|* EXIT (A) = ADDRESS OF TRT. 00519 M00S00494.ims +++|* 00520 M00S00495.ims +++|* USES CM - CM+4. 00521 M00S00496.ims +++| 00522 M00S00497.ims +++| 00523 M00S00498.ims +++| CAT SUBR ENTRY/EXIT 00524 M00S00499.ims +++| CRD CM GET FWA OF TRT 00525 M00S00500.ims +++| LDD CM+3 00526 M00S00501.ims +++| LPN 77 00527 M00S00502.ims +++| SHN 14 00528 M00S00503.ims +++| LMD CM+4 00529 M00S00504.ims +++| UJN CATX RETURN 00530 M00S00505.ims +++| CCS SPACE 4,10 00531 M00S00506.ims +++| CDE SPACE 4,10 00532 M00S00507.ims +++|** CDE - COMPARE DAT ENTRY. 00533 M00S00508.ims +++|* 00534 M00S00509.ims +++|* ENTRY (T2) = INDEX TO DAT SECTOR. 00535 M00S00510.ims +++|* (FN - FN+4) = CURRENT DEVICE DESCRIPTION. 00536 M00S00511.ims +++|* 00537 M00S00512.ims +++|* EXIT (A) = 0 IF DUPLICATE ENTRY. 00538 M00S00513.ims +++| 00539 M00S00514.ims +++| 00540 M00S00515.ims +++| CDE SUBR ENTRY/EXIT 00541 M00S00516.ims +++| LDD FN COMPARE ENTRY 00542 M00S00517.ims +++| LMM BFMS+2,T2 00543 M00S00518.ims +++| NJN CDEX IF NOT DUPLICATE 00544 M00S00519.ims +++| LDD FN+1 00545 M00S00520.ims +++| LMM BFMS+2+1,T2 00546 M00S00521.ims +++| NJN CDEX IF NOT DUPLICATE 00547 M00S00522.ims +++| LDD FN+2 00548 M00S00523.ims +++| LMM BFMS+2+2,T2 00549 M00S00524.ims +++| NJN CDEX IF NOT DUPLICATE 00550 M00S00525.ims +++| LDD FN+3 00551 M00S00526.ims +++| LMM BFMS+2+3,T2 00552 M00S00527.ims +++| UJN CDEX RETURN 00553 M00S00528.ims +++| CQF SPACE 4,20 00554 M00S00529.ims +++|** CQF - CHECK FOR QUEUED FILES. 00555 M00S00530.ims +++|* 00556 M00S00531.ims +++|* ENTRY (T5) = EQUIPMENT. 00557 M00S00532.ims +++|* (CN - CN+4) = TRT WORD. 00558 M00S00533.ims +++|* (TL) = TRT ORDINAL. 00559 M00S00534.ims +++|* (BY) = TRT BYTE NUMBER. 00560 M00S00535.ims +++|* DRIVER LOADED. 00561 M00S00536.ims +++|* 00562 M00S00537.ims +++|* EXIT (A) = 0 IF QUEUED FILE, DAYFILE, MRT, DAT OR 00563 M00S00538.ims +++|* USER EXTENDED MEMORY TRACK. 00564 M00S00539.ims +++|* (T6) = TRACK NUMBER. 00565 M00S00540.ims +++|* 00566 M00S00541.ims +++|* USES T1, T3, T6. 00567 M00S00542.ims +++|*
| Line S00543 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00568 M01S00543.ims6 ---|* CALLS CST, IMG, RSS, SSM.
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00569 M01S00024.ims6 +++|* CALLS CST, IMG, RSS, STM. 00570 M00S00544.ims +++|* 00571 M00S00545.ims +++|* MACROS ENDMS. 00572 M00S00546.ims +++| 00573 M00S00547.ims +++| 00574 M00S00548.ims +++| CQF5 LDN 1 SET NOT QUEUED FILE 00575 M00S00549.ims +++| 00576 M00S00550.ims +++| CQF SUBR ENTRY/EXIT 00577 M00S00551.ims +++| LDD TL WORD COUNT 00578 M00S00552.ims +++| SHN 2 00579 M00S00553.ims +++| LMD BY BYTE COUNT 00580 M00S00554.ims +++| LMC 4000 00581 M00S00555.ims +++| STD T6 00582 M00S00556.ims +++| RJM IMG ISSUE READING TRACK MESSAGE 00583 M00S00557.ims +++| RJM CST CHECK FOR SPECIAL TRACKS 00584 M00S00558.ims +++| ZJN CQF5 IF INDIRECT CHAIN OR PERMIT CHAIN 00585 M00S00559.ims +++| MJN CQF2 IF IQFT TRACK OR DAT TRACK 00586 M00S00560.ims +++| LDN 0 00587 M00S00561.ims +++| RJM RSS READ SYSTEM SECTOR 00588 M00S00562.ims +++| NJN CQF4 IF ERROR IN SYSTEM SECTOR 00589 M00S00563.ims +++| ENDMS 00590 M00S00564.ims +++| LDM FNSS+4 00591 M00S00565.ims +++| SHN -6 00592 M00S00566.ims +++| STD T1 FILE TYPE 00593 M00S00567.ims +++| LMN LIFT CHECK FOR DAYFILES OR MRT 00594 M00S00568.ims +++| ZJN CQF2 IF DAYFILE TRACK 00595 M00S00569.ims +++| LDN RDATL 00596 M00S00570.ims +++| STD T3 MAXIMUM TYPES 00597 M00S00571.ims +++| CQF1 SOD T3 00598 M00S00572.ims +++| MJN CQF3 IF NOT QUEUED FILE 00599 M00S00573.ims +++| LDM RDAT,T3 00600 M00S00574.ims +++| LMD T1 00601 M00S00575.ims +++| NJN CQF1 IF NOT QUEUED 00602 M00S00576.ims +++| AOM CQFA 00603 M00S00577.ims +++| CQF2 LDN 0 INDICATE QUEUED FILE, DAYFILE, MRT, OR ECS 00604 M00S00578.ims +++| CQF3 LJM CQFX RETURN 00605 M00S00579.ims +++|
| Line S00580 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00606 M01S00580.ims6 ---| CQF4 RJM SSM ISSUE SYSTEM SECTOR ERROR MESSAGE
| Line S00025 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 00607 M01S00025.ims6 +++| CQF4 LDC MESN ISSUE SYSTEM SECTOR ERROR MESSAGE 00608 M01S00026.ims6 +++| RJM STM 00609 M00S00581.ims +++| UJN CQF2 RETURN 00610 M00S00582.ims +++| 00611 M00S00583.ims +++| 00612 M00S00584.ims +++| CQFA CON 0 QUEUE FILE COUNT 00613 M00S00585.ims +++| 00614 M00S00586.ims +++| 00615 M00S00587.ims +++| FILEREC GENERATE PROTECTED TYPE TABLE (RDAT) 00616 M00S00588.ims +++| CST SPACE 4,10 00617 M00S00589.ims +++|** CST - CHECK SPECIAL TRACKS. 00618 M00S00590.ims +++|* 00619 M00S00591.ims +++|* ENTRY (T6) = TRACK. 00620 M00S00592.ims +++|* (ES - ES+4) = EST ENTRY. 00621 M00S00593.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 00622 M00S00594.ims +++|* 00623 M00S00595.ims +++|* EXIT (A) = 0 IF MATCH ON SPECIAL PF TRACKS. 00624 M00S00596.ims +++|* (A) .LT. 0 IF *IQFT*, DAT OR EXTENDED MEMORY TRACK. 00625 M00S00597.ims +++| 00626 M00S00598.ims +++| 00627 M00S00599.ims +++| CST SUBR ENTRY/EXIT 00628 M00S00600.ims +++| LDD ES+4 CHECK FOR PRESET NEEDED 00629 M00S00601.ims +++| LMC 7777 00630 M00S00602.ims +++| CSTB EQU *-1 00631 M00S00603.ims +++| ZJN CST1 IF NO PRESET NEEDED 00632 M00S00604.ims +++| LDD ES+4 00633 M00S00605.ims +++| STM CSTB 00634 M00S00606.ims +++| SHN 3 00635 M00S00607.ims +++| ADN ACGL 00636 M00S00608.ims +++| CRM CSTA+4,ON 00637 M00S00609.ims +++| ADN ALGL-ACGL-1 00638 M00S00610.ims +++| CRM CSTA,ON 00639 M00S00611.ims +++| CST1 LDD T6 CHECK FOR IAF TRACK 00640 M00S00612.ims +++| LMM CSTA 00641 M00S00613.ims +++| ZJN CSTX IF IAF TRACK 00642 M00S00614.ims +++| LDD T6 00643 M00S00615.ims +++| LMM CSTA+1 00644 M00S00616.ims +++| ZJN CSTX IF LABEL TRACK 00645 M00S00617.ims +++| LDD T6 00646 M00S00618.ims +++| LMM CSTA+2 00647 M00S00619.ims +++| ZJN CSTX IF PERMITS TRACK 00648 M00S00620.ims +++| LDD T6 00649 M00S00621.ims +++| LMM CSTA+4+3 00650 M00S00622.ims +++| ZJN CST3 IF MATCH ON IQFT FILE 00651 M00S00623.ims +++| LDD T6 CHECK FOR USER EXTENDED MEMORY TRACKS 00652 M00S00624.ims +++| LMM CSTA+4+1 00653 M00S00625.ims +++| ZJN CST3 IF USER EXTENDED MEMORY CHAIN 00654 M00S00626.ims +++| LDD T6 CHECK FOR DAT TRACK 00655 M00S00627.ims +++| LMM CSTA+4 00656 M00S00628.ims +++| NJN CST2 IF NO MATCH ON DAT TRACK 00657 M00S00629.ims +++| LDD LD CHECK FOR LINK DEVICE 00658 M00S00630.ims +++| ZJN CST2 IF NO LINK DEVICE 00659 M00S00631.ims +++| LMD T5 00660 M00S00632.ims +++| ZJN CST3 IF DAT TRACK 00661 M00S00633.ims +++| CST2 LDN 2 INDICATE SPECIAL TRACKS NOT FOUND 00662 M00S00634.ims +++| CST3 SBN 1 INDICATE *IQFT*, DAT OR ECS TRACK FOUND 00663 M00S00635.ims +++| LJM CSTX RETURN 00664 M00S00636.ims +++| 00665 M00S00637.ims +++| 00666 M00S00638.ims +++| CSTA BSSZ 5+4 00667 M00S00639.ims +++| CTB SPACE 4,15 00668 M00S00640.ims +++|** CTB - CHECK TRACK BITS. 00669 M00S00641.ims +++|* 00670 M00S00642.ims +++|* ENTRY (A) = TRACK NUMBER. 00671 M00S00643.ims +++|* (ES+4) = MST POINTER. 00672 M00S00644.ims +++|* 00673 M00S00645.ims +++|* EXIT (A) = (CM+4) = RESERVATION FLAG IN BIT 3. 00674 M00S00646.ims +++|* = PRESERVED FILE FLAG IN BIT 13. 00675 M00S00647.ims +++|* (T1) = TRT WORD INDEX. 00676 M00S00648.ims +++|* (T2) = TRT WORD NUMBER. 00677 M00S00649.ims +++|* (T6) = TRACK NUMBER. 00678 M00S00650.ims +++|* 00679 M00S00651.ims +++|* USES CM - CM+4. 00680 M00S00652.ims +++|* 00681 M00S00653.ims +++|* CALLS CAT. 00682 M00S00654.ims +++| 00683 M00S00655.ims +++| 00684 M00S00656.ims +++| CTB SUBR ENTRY/EXIT 00685 M00S00657.ims +++| STD T6 00686 M00S00658.ims +++| LPC 3777 SET TRT WORD NUMBER 00687 M00S00659.ims +++| SHN 21-1 00688 M00S00660.ims +++| STD T2 00689 M00S00661.ims +++| SHN 1-21 SET TRT WORD INDEX 00690 M00S00662.ims +++| STD T1 00691 M00S00663.ims +++| LMC SHNI+0 00692 M00S00664.ims +++| STM CTBA 00693 M00S00665.ims +++| LDD ES+4 READ TRT WORD 00694 M00S00666.ims +++| SHN 3 00695 M00S00667.ims +++| ADN TRLL 00696 M00S00668.ims +++| RJM CAT CALCULATE FWA OF TRT 00697 M00S00669.ims +++| ADD T2 00698 M00S00670.ims +++| CRD CM 00699 M00S00671.ims +++| LDD CM+4 SET TRACK BITS 00700 M00S00672.ims +++| CTBA SHN 0 00701 M00S00673.ims +++| LPC 4010 00702 M00S00674.ims +++| STD CM+4 00703 M00S00675.ims +++| UJN CTBX RETURN
| Line S00676 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00704 M01S00676.ns2776 ---| CTF SPACE 4,10 00705 M01S00677.ns2776 ---|** CTF - CHECK TRACK FLAWED IN TRT.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00706 M01S00001.ns2776 +++| FBT SPACE 4,10 00707 M01S00002.ns2776 +++|** FBT - FLAW BLOCK OF TRACKS IN TRT. 00708 M00S00678.ims +++|*
| Line S00679 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00709 M01S00679.ns2776 ---|* ENTRY (T3) = TRACK NUMBER (TRACK BIT NOT SET).
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00680.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 00714 M00S00681.ims +++|* 00715 M00S00682.ims +++|* EXIT (A) = 0 IF TRACK FLAWED. 00716 M00S00683.ims +++|* 00717 M00S00684.ims +++|* USES T1, CM - CM+4. 00718 M00S00685.ims +++|* 00719 M00S00686.ims +++|* CALLS CAT.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00720 M01S00006.ns2776 +++|* 00721 M01S00007.ns2776 +++|* MACROS MONITOR. 00722 M00S00687.ims +++| 00723 M00S00688.ims +++|
| Line S00689 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00724 M01S00689.ns2776 ---| CTF SUBR ENTRY/EXIT 00725 M01S00690.ns2776 ---| LDD T3 UNPACK TRACK
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00726 M01S00008.ns2776 +++| FBT SUBR ENTRY/EXIT 00727 M01S00009.ns2776 +++| FBT1 LDD T3 UNPACK TRACK 00728 M00S00691.ims +++| SHN 21-1 SET TRT WORD INDEX 00729 M00S00692.ims +++| STD T0 00730 M00S00693.ims +++| SHN 1-21 SET BYTE INDEX 00731 M00S00694.ims +++| STD T1 00732 M00S00695.ims +++| LDD ES+4 READ TRT WORD 00733 M00S00696.ims +++| SHN 3 00734 M00S00697.ims +++| ADN TRLL 00735 M00S00698.ims +++| RJM CAT CALCULATE FWA OF TRT 00736 M00S00699.ims +++| ADD T0 00737 M00S00700.ims +++| CRD CM 00738 M00S00701.ims +++| LDM CM,T1 CHECK TRACK 00739 M00S00702.ims +++| LMC 3777
| Line S00703 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00740 M01S00703.ns2776 ---| UJN CTFX RETURN
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00704.ims +++| GDS SPACE 4,15 00754 M00S00705.ims +++|** GDS - GET DAT SECTOR. 00755 M00S00706.ims +++|* 00756 M00S00707.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 00757 M00S00708.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 00758 M00S00709.ims +++|* 00759 M00S00710.ims +++|* EXIT DAT SECTOR AT BFMS. 00760 M00S00711.ims +++|* (TI) = INDEX TO DAT ENTRY. 00761 M00S00712.ims +++|* (A) = 0 IF DEVICE NOT DEFINED IN DAT. 00762 M00S00713.ims +++|* 00763 M00S00714.ims +++|* USES TI, T5 - T7, CM - CM+4, FN - FN+4. 00764 M00S00715.ims +++|* 00765 M00S00716.ims +++|* CALLS ABT, RDS. 00766 M00S00717.ims +++|* 00767 M00S00718.ims +++|* MACROS ENDMS, SETMS. 00768 M00S00719.ims +++| 00769 M00S00720.ims +++| 00770 M00S00721.ims +++| GDS SUBR ENTRY/EXIT 00771 M00S00722.ims +++| LDD LD SET EQUIPMENT 00772 M00S00723.ims +++| STD T5 00773 M00S00724.ims +++| SETMS IO 00774 M00S00725.ims +++| LDD CM+4 GET DAT POINTERS 00775 M00S00726.ims +++| SHN 3 00776 M00S00727.ims +++| ADN ALGL 00777 M00S00728.ims +++| CRD CM 00778 M00S00729.ims +++| LDD ES+4 READ DAT INDEX 00779 M00S00730.ims +++| SHN 3 00780 M00S00731.ims +++| ADN MDGL 00781 M00S00732.ims +++| CRD FN 00782 M00S00733.ims +++| LDD CM+4 SET DAT TRACK 00783 M00S00734.ims +++| STD T6 00784 M00S00735.ims +++| LDM EQNO 00785 M00S00736.ims +++| LMD LD 00786 M00S00737.ims +++| ZJN GDS1 IF LINK DEVICE 00787 M00S00738.ims +++| LDD FN SET DAT SECTOR 00788 M00S00739.ims +++| LPC 377 00789 M00S00740.ims +++| ZJN GDSX IF NO DAT INDEX 00790 M00S00741.ims +++| SHN 21-4 00791 M00S00742.ims +++| GDS1 STD T7 00792 M00S00743.ims +++| SHN -14 SET DAT SECTOR INDEX 00793 M00S00744.ims +++| STD TI 00794 M00S00745.ims +++| SHN 2 00795 M00S00746.ims +++| RAD TI INDEX*5 00796 M00S00747.ims +++| LDC BFMS READ SECTOR 00797 M00S00748.ims +++| RJM RDS 00798 M00S00749.ims +++| PJN GDS3 IF NO ERRORS 00799 M00S00750.ims +++| GDS2 LDC GDSA 00800 M00S00751.ims +++| LJM ABT ABORT *IMS* 00801 M00S00752.ims +++| 00802 M00S00753.ims +++| GDS3 ENDMS 00803 M00S00754.ims +++| LDN 1 00804 M00S00755.ims +++| LJM GDSX RETURN 00805 M00S00756.ims +++| 00806 M00S00757.ims +++| 00807 M00S00758.ims +++| GDSA DATA C* ERROR ON LINK DEVICE.* 00808 M00S00759.ims +++| GLA SPACE 4,15 00809 M00S00760.ims +++|** GLA - GET LOCAL AREA SECTOR. 00810 M00S00761.ims +++|* 00811 M00S00762.ims +++|* ENTRY (IR+4) = EST ORDINAL. 00812 M00S00763.ims +++|* 00813 M00S00764.ims +++|* EXIT (A) = RETURN FROM *COMPRLA*. 00814 M00S00765.ims +++|* LOCAL UTILITY INTERLOCK SET. 00815 M00S00766.ims +++|* 00816 M00S00767.ims +++|* EREXIT TO *ABT* IF READ ERRORS. 00817 M00S00768.ims +++|* 00818 M00S00769.ims +++|* CALLS RLA, SLI, SME. 00819 M00S00770.ims +++| 00820 M00S00771.ims +++| 00821 M00S00772.ims +++| GLA1 STM BFMS+1 CLEAR SECTOR WORD COUNT 00822 M00S00773.ims +++| 00823 M00S00774.ims +++| GLA SUBR ENTRY/EXIT 00824 M00S00775.ims +++| LDD IR+4 SET MASS STORAGE EQUIPMENT 00825 M00S00776.ims +++| RJM SME 00826 M00S00777.ims +++| RJM SLI SET LOCAL UTILITY INTERLOCK 00827 M00S00778.ims +++| RJM RLA READ SECTOR OF LOCAL AREAS 00828 M00S00779.ims +++| PJN GLAX IF NO READ ERRORS 00829 M00S00780.ims +++| LDM BFMS 00830 M00S00781.ims +++| ZJN GLA1 IF SECTOR NOT REFORMATTED 00831 M00S00782.ims +++| LDC GLAA * EQXXX, LOCAL AREA SECTOR ERROR.* 00832 M00S00783.ims +++| LJM ABT ABORT 00833 M00S00784.ims +++| 00834 M00S00785.ims +++| 00835 M00S00786.ims +++| GLAA DATA C* EQXXX, LOCAL AREA SECTOR ERROR.* 00836 M00S00787.ims +++| IMG SPACE 4,10 00837 M00S00788.ims +++|** IMG - ISSUE *READING* MESSAGE. 00838 M00S00789.ims +++|* 00839 M00S00790.ims +++|* ENTRY (T6) = TRACK NUMBER TO ISSUE. 00840 M00S00791.ims +++|* 00841 M00S00792.ims +++|* EXIT MESSAGE WRITTEN TO *MS2W*. 00842 M00S00793.ims +++|* 00843 M00S00794.ims +++|* CALLS C2D. 00844 M00S00795.ims +++| 00845 M00S00796.ims +++| 00846 M00S00797.ims +++| IMG SUBR 00847 M00S00798.ims +++| LDD T6 00848 M00S00799.ims +++| RJM C2D CONVERT LOWER 00849 M00S00800.ims +++| STM IMGA+10 00850 M00S00801.ims +++| LDD T6 00851 M00S00802.ims +++| SHN -6 00852 M00S00803.ims +++| RJM C2D CONVERT UPPER 00853 M00S00804.ims +++| STM IMGA+7 00854 M00S00805.ims +++| LDD CP STORE CONTROL POINT MESSAGE 00855 M00S00806.ims +++| ADN MS2W 00856 M00S00807.ims +++| CWM IMGA,TR 00857 M00S00808.ims +++| UJN IMGX RETURN 00858 M00S00809.ims +++| 00859 M00S00810.ims +++| 00860 M00S00811.ims +++| IMGA DATA C*READING TRACK-XXXX* 00861 M00S00812.ims +++| IPF SPACE 4,10 00862 M00S00813.ims +++|** IPF - INITIALIZE PACK FLAWS. 00863 M00S00814.ims +++|* 00864 M00S00815.ims +++|* ENTRY (T5) = EST ORDINAL. 00865 M00S00816.ims +++|* (ES - ES+4) = EST ENTRY. 00866 M00S00817.ims +++|* 00867 M00S00818.ims +++|* USES AI, T2, CM - CM+4, FN - FN+4. 00868 M00S00819.ims +++|* 00869 M00S00820.ims +++|* CALLS DFM, EXR, RCS, SDR, *0TI*, *0TJ*. 00870 M00S00821.ims +++|* 00871 M00S00822.ims +++|* MACROS EXECUTE. 00872 M00S00823.ims +++| 00873 M00S00824.ims +++| 00874 M00S00825.ims +++| IPF3 LDD ES+4 00875 M00S00826.ims +++| SHN 3 00876 M00S00827.ims +++| ADN DDLL 00877 M00S00828.ims +++| CRD CM 00878 M00S00829.ims +++| LDD CM SET NUMBER OF UNITS 00879 M00S00830.ims +++| LPN 7 00880 M00S00831.ims +++| STD T2 00881 M00S00832.ims +++| LDN PRFM SET TRACK FLAW REQUEST 00882 M00S00833.ims +++| RJM SDR 00883 M00S00834.ims +++| 00884 M00S00835.ims +++| IPF SUBR ENTRY/EXIT 00885 M00S00836.ims +++| IPFA LDN 0 00886 M00S00837.ims +++| NJN IPFX IF PACK FLAWS ALREADY PROCESSED 00887 M00S00838.ims +++| LDD ES 00888 M00S00839.ims +++| SHN 21-7 00889 M00S00840.ims +++| PJN IPFX IF NOT AN LDAM DEVICE 00890 M00S00841.ims +++| AOM IPFA 00891 M00S00842.ims +++| LDD ES+1 CHECK CONCURRENT CHANNEL FLAGS 00892 M00S00843.ims +++| SHN 21-5 00893 M00S00844.ims +++| PJN IPF1 IF NOT A CONCURRENT CHANNEL 00894 M00S00845.ims +++| LDD ES+2 00895 M00S00846.ims +++| ZJN IPF3 IF SECOND CHANNEL NOT DEFINED 00896 M00S00847.ims +++| SHN 21-5 00897 M00S00848.ims +++| MJN IPF3 IF BOTH CHANNELS CONCURRENT 00898 M00S00849.ims +++| IPF1 LDD ES+4 FETCH THE ALGORITHM INDEX 00899 M00S00850.ims +++| SHN 3 00900 M00S00851.ims +++| ADN DILL 00901 M00S00852.ims +++| CRD FN 00902 M00S00853.ims +++| LDD T5 SET EQUIPMENT PARAMETER 00903 M00S00854.ims +++| STM FPPA 00904 M00S00855.ims +++| 00905 M00S00856.ims +++|* EXECUTE FLAW PROCESSOR. 00906 M00S00857.ims +++| 00907 M00S00858.ims +++| LDD FN+4 SET ALGORITHM INDEX 00908 M00S00859.ims +++| LPN 77 00909 M00S00860.ims +++| STD AI 00910 M00S00861.ims +++| EXECUTE 0TI,FPLA EXECUTE FLAW PROCESSOR 00911 M00S00862.ims +++| ZJN IPF2 IF FLAWING COMPLETE 00912 M00S00863.ims +++| LDC MESL * EQXXX, FLAWING INCOMPLETE.* 00913 M00S00864.ims +++| RJM DFM 00914 M00S00865.ims +++| IPF2 RJM RCS RESERVE *CTI* SPACE 00915 M00S00866.ims +++| LJM IPFX RETURN 00916 M00S00867.ims +++| LDA SPACE 4,10 00917 M00S00868.ims +++|** LDA - LOAD CM ADDRESS. 00918 M00S00869.ims +++|* 00919 M00S00870.ims +++|* ENTRY (IR+3 - IR+4) = RELATIVE ADDRESS. 00920 M00S00871.ims +++|* 00921 M00S00872.ims +++|* EXIT (A) = ABSOLUTE ADDRESS. 00922 M00S00873.ims +++| 00923 M00S00874.ims +++| 00924 M00S00875.ims +++| LDA SUBR ENTRY/EXIT 00925 M00S00876.ims +++| LDD IR+3 00926 M00S00877.ims +++| LPN 77 00927 M00S00878.ims +++| SHN 6 00928 M00S00879.ims +++| ADD RA 00929 M00S00880.ims +++| SHN 6 00930 M00S00881.ims +++| ADD IR+4 00931 M00S00882.ims +++| UJN LDAX RETURN 00932 M00S00883.ims +++| RCS SPACE 4,15 00933 M00S00884.ims +++|** RCS - RESERVE *CTI* SPACE. 00934 M00S00885.ims +++|* 00935 M00S00886.ims +++|* ENTRY (T5) = EST ORDINAL. 00936 M00S00887.ims +++|* (AI) = ALGORITHM INDEX 00937 M00S00888.ims +++|* (ES - ES+4) = EST ENTRY. 00938 M00S00889.ims +++|* 00939 M00S00890.ims +++|* EXIT *CTI* SPACE FLAWED IN TRT. 00940 M00S00891.ims +++|*
| Line S00892 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00941 M01S00892.ns2776 ---|* USES TL, T3, CM - CM+4, FN - FN+4.
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00942 M01S00022.ns2776 +++|* USES FL, TL, T3, T9, CM - CM+4, FN - FN+4. 00943 M00S00893.ims +++|*
| Line S00894 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00944 M01S00894.ns2776 ---|* CALLS CTB, CTF, RDS, WDS, *0PI*.
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00945 M01S00023.ns2776 +++|* CALLS CTB, FBT, RDS, WDS, *0PI*. 00946 M00S00895.ims +++|* 00947 M00S00896.ims +++|* MACROS CMSTF, ENDMS, EXECUTE, MONITOR, SMSTF. 00948 M00S00897.ims +++| 00949 M00S00898.ims +++|
| Line S00899 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00950 M01S00899.ns2776 ---| RCS9 ENDMS RELEASE CHANNEL 00951 M01S00900.ns2776 ---| 00952 M00S00901.ims +++| RCS SUBR ENTRY/EXIT 00953 M00S00902.ims +++| LDD T5 SET PARAMETER WORD 00954 M00S00903.ims +++| LMC 4000 00955 M00S00904.ims +++| STM FPPA 00956 M00S00905.ims +++| EXECUTE 0PI,FPLA READ DEADSTART SECTOR
| Line S00906 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00957 M01S00906.ns2776 ---| NJN RCSX IF NOT A VALID DEADSTART SECTOR
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00958 M01S00024.ns2776 +++| NJN RCS0 IF NOT A VALID DEADSTART SECTOR 00959 M01S00025.ns2776 +++| STM RCSA PRESET FOR *CTI* PRESENT 00960 M00S00907.ims +++| ENDMS 00961 M00S00908.ims +++| LDM BFMS+MSLP 00962 M00S00909.ims +++| NJN RCS1 IF *MSL* INSTALLED 00963 M00S00910.ims +++| LDM BFMS+CDAP 00964 M00S00911.ims +++| NJN RCS1 IF COMMON DISK AREA INSTALLED 00965 M00S00912.ims +++| LDM BFMS+CTIP
| Line S00913 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00966 M01S00913.ns2776 ---| ZJN RCS9 IF *CTI* NOT INSTALLED
| Line S00026 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00914.ims +++| RCS1 SHN 1 CONVERT CYLINDER TO LOGICAL TRACK 00974 M00S00915.ims +++| STD T3 00975 M00S00916.ims +++| LDD ES+4 GET DEVICE LENGTH FROM MST 00976 M00S00917.ims +++| SHN 3 00977 M00S00918.ims +++| ADK TDGL 00978 M00S00919.ims +++| CRD TL 00979 M00S00920.ims +++| ERRNZ TL+1-FN READ DESTROYS DIRECT CELLS 00980 M00S00921.ims +++| 00981 M00S00922.ims +++| ADN ACGL-TDGL FETCH DEADSTART FILE STATUS 00982 M00S00923.ims +++| CRD FN 00983 M00S00924.ims +++| LDD AI 00984 M00S00925.ims +++| LMN AIDA 00985 M00S00926.ims +++| NJN RCS2 IF NOT 33502 00986 M00S00927.ims +++| LDD T3 COMPLETE CYLINDER TO TRACK CONVERSION 00987 M00S00928.ims +++| SHN -1 00988 M00S00929.ims +++| ADC NTDA/2 00989 M00S00930.ims +++| STD T3 00990 M00S00931.ims +++| UJN RCS4 FLAW TRACKS 00991 M00S00932.ims +++| 00992 M00S00933.ims +++| RCS2 LMN AIDI&AIDA 00993 M00S00934.ims +++| ZJN RCS3 IF 7X54/844-21 00994 M00S00935.ims +++| LMN AIDK&AIDI 00995 M00S00936.ims +++| ZJN RCS3 IF 7154/844-21 00996 M00S00937.ims +++| LMN AIDX&AIDK
| Line S00938 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 00997 M01S00938.ns2776 ---| NJN RCS4 IF NOT FSC 3330-1
| Line S00032 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00939.ims +++| RCS3 LDD T3 COMPLETE CYLINDER CONVERSION 01014 M00S00940.ims +++| RAD T3 01015 M00S00941.ims +++| RCS4 LDD T3 01016 M00S00942.ims +++| SBD TL 01017 M00S00943.ims +++| PJN RCS7 IF *CTI* BEYOND LOGICAL END OF DEVICE
| Line S00944 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01018 M01S00944.ns2776 ---| RCS5 RJM CTF CHECK TRACK FLAWED 01019 M01S00945.ns2776 ---| ZJN RCS6 IF TRACK FLAWED 01020 M01S00946.ns2776 ---| LDD T5 FLAW TRACK IN TRT 01021 M01S00947.ns2776 ---| STD CM+1 01022 M01S00948.ns2776 ---| LDD T3 01023 M01S00949.ns2776 ---| STD CM+2 01024 M01S00950.ns2776 ---| LDN STFS 01025 M01S00951.ns2776 ---| STD CM+3 01026 M01S00952.ns2776 ---| MONITOR STBM 01027 M01S00953.ns2776 ---| RCS6 AOD T3 ADVANCE TRACK NUMBER 01028 M01S00954.ns2776 ---| LMD TL 01029 M01S00955.ns2776 ---| NJN RCS5 IF NOT END OF LOGICAL DEVICE
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01030 M01S00047.ns2776 +++| RCS5 RJM FBT FLAW BLOCK OF TRACKS
| Line S00956 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01031 M01S00956.ns2776 ---| RCS7 SMSTF GCTI SET *CTI* PRESENT FLAG 01032 M01S00957.ns2776 ---| LDD IR+2 CHECK FOR FLAW FUNCTION
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00958.ims +++| LMN 3 01039 M00S00959.ims +++| ZJN RCS8 IF X.FLAW REQUEST 01040 M00S00960.ims +++| CMSTF GDSF 01041 M00S00961.ims +++| LDN ZERL CLEAR DEADSTART FILE INDICATOR 01042 M00S00962.ims +++| CRM BFMS+OSBP,ON 01043 M00S00963.ims +++| LDC BFMS+WLSF REWRITE DEADSTART SECTOR 01044 M00S00964.ims +++| RJM WDS 01045 M00S00965.ims +++| LDD FN 01046 M00S00966.ims +++| LPC MGDSF 01047 M00S00967.ims +++| ZJN RCS8 IF NO DEADSTART FILE 01048 M00S00968.ims +++| LDM BFMS+OSBP+5 01049 M00S00969.ims +++| RJM CTB 01050 M00S00970.ims +++| ZJN RCS8 IF TRACK CHAIN RELEASED 01051 M00S00971.ims +++| LDD T5 01052 M00S00972.ims +++| STD CM+1 01053 M00S00973.ims +++| LDD T6 DROP TRACK CHAIN 01054 M00S00974.ims +++| STD CM+2 01055 M00S00975.ims +++| MONITOR DTKM
| Line S00976 Modification History | |
|---|---|
M01 (Removed by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01056 M01S00976.ns2776 ---| RCS8 LJM RCS9 RETURN
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | ns2776 |
Seq # *Modification Id* Act ----------------------------+ 01057 M01S00053.ns2776 +++| RCS8 ENDMS RELEASE CHANNEL 01058 M01S00054.ns2776 +++| RCS9 LJM RCSX RETURN 01059 M00S00977.ims +++| RDT SPACE 4,10 01060 M00S00978.ims +++|*** RDT - READ DIT TO BUFFER. 01061 M00S00979.ims +++|* 01062 M00S00980.ims +++|* ENTRY (A) = BUFFER ADDRESS. 01063 M00S00981.ims +++|* (T5) = EST ORDINAL OF DEVICE. 01064 M00S00982.ims +++|* (ES - ES+4) = EST ENTRY. 01065 M00S00983.ims +++|*
| Line S00984 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01066 M01S00984.ims6 ---|* ERROR TO *ABT1* IF ERROR READING LABEL (DIT) SECTOR.
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01067 M01S00027.ims6 +++|* ERROR TO *ABT2* IF ERROR READING LABEL (DIT) SECTOR. 01068 M00S00985.ims +++|* 01069 M00S00986.ims +++|* USES T1, T6, T7, CM - CM+4. 01070 M00S00987.ims +++|* 01071 M00S00988.ims +++|* CALLS RDS, SDL. 01072 M00S00989.ims +++|* 01073 M00S00990.ims +++|* MACROS ENDMS, MONITOR, SETMS. 01074 M00S00991.ims +++| 01075 M00S00992.ims +++| 01076 M00S00993.ims +++| RDT SUBR ENTRY/EXIT 01077 M00S00994.ims +++| STM RDTB SAVE BUFFER ADDRESS 01078 M00S00995.ims +++| LDD ES+4 SET LABEL TRACK 01079 M00S00996.ims +++| SHN 3 01080 M00S00997.ims +++| ADN ALGL 01081 M00S00998.ims +++| CRD CM 01082 M00S00999.ims +++| LDD CM+1 01083 M00S01000.ims +++| STD T6 01084 M00S01001.ims +++| LDN 0 01085 M00S01002.ims +++| STD T7 01086 M00S01003.ims +++| SETMS IO,(DF,NS) 01087 M00S01004.ims +++| LDC BFMS READ LABEL 01088 M00S01005.ims +++| RJM RDS 01089 M00S01006.ims +++| PJN RDT1 IF NO ERROR 01090 M00S01007.ims +++|* LDC MESM
| Line S01008 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01091 M01S01008.ims6 ---| LJM ABT1 ABORT
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01092 M01S00028.ims6 +++| LJM ABT2 ABORT 01093 M00S01009.ims +++| 01094 M00S01010.ims +++| RDT1 ENDMS 01095 M00S01011.ims +++| LDN MISD 01096 M00S01012.ims +++| STD T1 01097 M00S01013.ims +++| RJM SDL 01098 M00S01014.ims +++| CWM DISS,T1 01099 M00S01015.ims +++| SBN MISD 01100 M00S01016.ims +++| CRM **,T1 READ DIT TO BUFFER 01101 M00S01017.ims +++| RDTB EQU *-1 01102 M00S01018.ims +++| LJM RDTX RETURN 01103 M00S01019.ims +++| SDL SPACE 4,10 01104 M00S01020.ims +++|** SDL - SET DIT LOCATION. 01105 M00S01021.ims +++|* 01106 M00S01022.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 01107 M00S01023.ims +++|* 01108 M00S01024.ims +++|* EXIT (A) = DIT ADDRESS. 01109 M00S01025.ims +++|* 01110 M00S01026.ims +++|* USES T2, T3, CM - CM+4. 01111 M00S01027.ims +++|* 01112 M00S01028.ims +++|* CALLS CAT. 01113 M00S01029.ims +++| 01114 M00S01030.ims +++| 01115 M00S01031.ims +++| SDL SUBR ENTRY/EXIT 01116 M00S01032.ims +++| LDD ES+4 01117 M00S01033.ims +++| SHN 3 01118 M00S01034.ims +++| ADK TDGL 01119 M00S01035.ims +++| CRD CM 01120 M00S01036.ims +++| LDD CM+2 SET MRT LENGTH 01121 M00S01037.ims +++| STD T2 01122 M00S01038.ims +++| ADN 7 01123 M00S01039.ims +++| SHN -3 01124 M00S01040.ims +++| STD T3 01125 M00S01041.ims +++| LDD ES+4 01126 M00S01042.ims +++| SHN 3 01127 M00S01043.ims +++| ADN TRLL 01128 M00S01044.ims +++| RJM CAT CALCULATE FWA OF TRT 01129 M00S01045.ims +++| ADD T2 ADD TRT LENGTH 01130 M00S01046.ims +++| ADD T3 ADD MRT LENGTH 01131 M00S01047.ims +++| UJN SDLX RETURN 01132 M00S01048.ims +++| SDT SPACE 4,10 01133 M00S01049.ims +++|** SDT - SEARCH DAT TABLES. 01134 M00S01050.ims +++|* 01135 M00S01051.ims +++|* ENTRY DAT INTERLOCK SET. 01136 M00S01052.ims +++|* (ES - ES+4) = EST ENTRY. 01137 M00S01053.ims +++|* (CN - CN+4) = SDGL WORD. 01138 M00S01054.ims +++|* (LD) = LINK DEVICE. 01139 M00S01055.ims +++|* (DI) = DAT INDEX. 01140 M00S01056.ims +++|* (DE) = DAT ENTRY COUNT. 01141 M00S01057.ims +++|* 01142 M00S01058.ims +++|* EXIT (A) = 0 IF DUPLICATE ENTRY. 01143 M00S01059.ims +++|* 01144 M00S01060.ims +++|* USES T1 - T7, CM - CM+4, FN - FN+4, DC. 01145 M00S01061.ims +++|* 01146 M00S01062.ims +++|* CALLS CDE, RDS. 01147 M00S01063.ims +++|* 01148 M00S01064.ims +++|* MACROS ENDMS, SETMS. 01149 M00S01065.ims +++| 01150 M00S01066.ims +++| 01151 M00S01067.ims +++| SDT SUBR ENTRY/EXIT 01152 M00S01068.ims +++| LDD ES+4 READ DEVICE DESCRIPTION 01153 M00S01069.ims +++| SHN 3 01154 M00S01070.ims +++| ADN PFGL 01155 M00S01071.ims +++| CRD FN 01156 M00S01072.ims +++| LDD FN+4 CHECK IF 1 OF N 01157 M00S01073.ims +++| LPN 70 01158 M00S01074.ims +++| NJN SDTX IF NOT 1 OF N 01159 M00S01075.ims +++| STD T7 01160 M00S01076.ims +++| LDD LD SET LINK DEVICE 01161 M00S01077.ims +++| STD T5 01162 M00S01078.ims +++| SETMS IO 01163 M00S01079.ims +++| LDD CM+4 GET DAT POINTER 01164 M00S01080.ims +++| SHN 3 01165 M00S01081.ims +++| ADN ALGL 01166 M00S01082.ims +++| CRD CM 01167 M00S01083.ims +++| LDD CM+4 SET DAT TRACK 01168 M00S01084.ims +++| STD T6 01169 M00S01085.ims +++| SDT1 LDC BFMS READ DAT SECTOR 01170 M00S01086.ims +++| RJM RDS 01171 M00S01087.ims +++| MJN SDT6 IF READ ERROR 01172 M00S01088.ims +++| ENDMS 01173 M00S01089.ims +++|* LDN 0 01174 M00S01090.ims +++| STD T1 01175 M00S01091.ims +++| STD T2 01176 M00S01092.ims +++| SDT3 RJM CDE COMPARE ENTRIES 01177 M00S01093.ims +++| ZJN SDT7 IF DUPLICATE ENTRY 01178 M00S01094.ims +++| SDT4 AOM SDTA BUMP DAT INDEX 01179 M00S01095.ims +++| LDN 5*2 BUMP SEARCH INDEX 01180 M00S01096.ims +++| RAD T2 01181 M00S01097.ims +++| SOD DE DECREMENT ENTRY COUNT 01182 M00S01098.ims +++| ZJN SDT8 IF END OF ENTRIES 01183 M00S01099.ims +++| LDN 2 BUMP WORD COUNT 01184 M00S01100.ims +++| RAD T1 01185 M00S01101.ims +++| LMD HN 01186 M00S01102.ims +++| NJN SDT3 IF NOT END OF SECTOR 01187 M00S01103.ims +++| AOD T7 BUMP SECTOR COUNT 01188 M00S01104.ims +++| UJN SDT1 PROCESS NEXT SECTOR 01189 M00S01105.ims +++| 01190 M00S01106.ims +++| SDT6 LJM GDS2 ABORT 01191 M00S01107.ims +++| 01192 M00S01108.ims +++| SDT7 LDD DI CHECK IF THIS DEVICE 01193 M00S01109.ims +++| LMC ** 01194 M00S01110.ims +++| SDTA EQU *-1 01195 M00S01111.ims +++| ZJN SDT4 IF THIS DEVICE 01196 M00S01112.ims +++| AOM BUF+PMRP+4 FLAG DUPLICATE *DAT* ENTRY 01197 M00S01113.ims +++| LDN 1 01198 M00S01114.ims +++| SDT8 LMN 1 01199 M00S01115.ims +++| LJM SDTX RETURN 01200 M00S01116.ims +++| SLI SPACE 4,10 01201 M00S01117.ims +++|** SLI - SET LOCAL UTILITY INTERLOCK. 01202 M00S01118.ims +++|* 01203 M00S01119.ims +++|* ENTRY (T5) = EST ORDINAL. 01204 M00S01120.ims +++|*
| Line S01121 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01205 M01S01121.ims6 ---|* ERROR TO *ABT1* IF INTERLOCK NOT SET.
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01206 M01S00029.ims6 +++|* ERROR TO *ABT2* IF INTERLOCK NOT SET. 01207 M00S01122.ims +++|* 01208 M00S01123.ims +++|* CALLS SDI. 01209 M00S01124.ims +++| 01210 M00S01125.ims +++| 01211 M00S01126.ims +++| SLI1 LDD T5 SET INTERLOCK HELD 01212 M00S01127.ims +++| STM CLIA 01213 M00S01128.ims +++| 01214 M00S01129.ims +++| SLI SUBR ENTRY/EXIT 01215 M00S01130.ims +++| RJM SDI SET INTERLOCK 01216 M00S01131.ims +++| NJN SLI1 IF INTERLOCK SET 01217 M00S01132.ims +++|* LDC MESM
| Line S01133 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01218 M01S01133.ims6 ---| LJM ABT1 ABORT
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01219 M01S00030.ims6 +++| LJM ABT2 ABORT 01220 M00S01134.ims +++| SME SPACE 4,10 01221 M00S01135.ims +++|** SME - SET MASS STORAGE EQUIPMENT. 01222 M00S01136.ims +++|* 01223 M00S01137.ims +++|* ENTRY (A) = EST ORDINAL. 01224 M00S01138.ims +++|* 01225 M00S01139.ims +++|* EXIT (T5) = EST ORDINAL. 01226 M00S01140.ims +++|* (ES - ES+4) = EST ENTRY. 01227 M00S01141.ims +++|* EQUIPMENT MNEMONIC AND NUMBER SET IN MESSAGES. 01228 M00S01142.ims +++|* 01229 M00S01143.ims +++|* USES T0, T1, T2, T3, T4, T5, ES - ES+4. 01230 M00S01144.ims +++|* 01231 M00S01145.ims +++|* CALLS C2D. 01232 M00S01146.ims +++|* 01233 M00S01147.ims +++|* MACROS SFA. 01234 M00S01148.ims +++| 01235 M00S01149.ims +++| 01236 M00S01150.ims +++| SME SUBR ENTRY/EXIT 01237 M00S01151.ims +++| STD T5 01238 M00S01152.ims +++| STM EQNO 01239 M00S01153.ims +++| SFA EST READ EST ENTRY 01240 M00S01154.ims +++| ADK EQDE 01241 M00S01155.ims +++| CRD ES 01242 M00S01156.ims +++| 01243 M00S01157.ims +++|* SET (T0 - T2) = * EQXXX*, WHERE EQ = EQUIPMENT MNEMONIC AND 01244 M00S01158.ims +++|* XXX = EST ORDINAL. 01245 M00S01159.ims +++| 01246 M00S01160.ims +++| LDD T5 CONVERT UPPER DIGIT OF EST ORDINAL 01247 M00S01161.ims +++| SHN -6 01248 M00S01162.ims +++| ADN 1R0 01249 M00S01163.ims +++| STD T1 01250 M00S01164.ims +++| LDD T5 CONVERT LOWER TWO DIGITS OF EST ORDINAL 01251 M00S01165.ims +++| RJM C2D 01252 M00S01166.ims +++| STD T2 01253 M00S01167.ims +++| LDD ES+3 PROCESS DEVICE MNEMONIC 01254 M00S01168.ims +++| LMC 1L 01255 M00S01169.ims +++| SHN 14 01256 M00S01170.ims +++| STD T0 01257 M00S01171.ims +++| SHN -6 01258 M00S01172.ims +++| SCN 77 01259 M00S01173.ims +++| RAD T1 01260 M00S01174.ims +++| LDN TSMEL INITIALIZE MESSAGE MODIFICATION LOOP 01261 M00S01175.ims +++| STD T3 01262 M00S01176.ims +++| SME1 SOD T3 DECREMENT MESSAGE INDEX 01263 M00S01177.ims +++| MJN SMEX IF ALL MESSAGES MODIFIED 01264 M00S01178.ims +++| LDM TSME,T3 SET MESSAGE ADDRESS 01265 M00S01179.ims +++| STD T4 01266 M00S01180.ims +++| LDD T0 TRANSFER * EQXXX* INTO DESTINATION BUFFER 01267 M00S01181.ims +++| STI T4 01268 M00S01182.ims +++| LDD T1 01269 M00S01183.ims +++| STM 1,T4 01270 M00S01184.ims +++| LDD T2 01271 M00S01185.ims +++| STM 2,T4 01272 M00S01186.ims +++| UJN SME1 LOOP FOR NEXT MESSAGE 01273 M00S01187.ims +++| 01274 M00S01188.ims +++| 01275 M00S01189.ims +++|** TSME - TABLE OF MESSAGES REQUIRING EQUIPMENT MNEMONICS AND 01276 M00S01190.ims +++|* EST ORDINALS. 01277 M00S01191.ims +++| 01278 M00S01192.ims +++| TSME BSS 0 01279 M00S01193.ims +++| CON GLAA 01280 M00S01194.ims +++| CON MESA 01281 M00S01195.ims +++| CON MESB 01282 M00S01196.ims +++| CON MESC 01283 M00S01197.ims +++| CON MESD 01284 M00S01198.ims +++| CON MESE 01285 M00S01199.ims +++| CON MESG 01286 M00S01200.ims +++| CON MESH 01287 M00S01201.ims +++| CON MESI 01288 M00S01202.ims +++| CON MESJ 01289 M00S01203.ims +++| CON MESK 01290 M00S01204.ims +++| CON MESL 01291 M00S01205.ims +++| CON MESN
| Line S01206 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01292 M01S01206.ims6 ---| CON MESO+12 01293 M01S01207.ims6 ---| TSMEL EQU *-TSME 01294 M01S01208.ims6 ---| SSM SPACE 4,10 01295 M01S01209.ims6 ---|** SSM - ISSUE SYSTEM SECTOR ERROR MESSAGE. 01296 M01S01210.ims6 ---|* 01297 M01S01211.ims6 ---|* ENTRY (T4 - T6) = MASS STORAGE PARAMETERS. 01298 M01S01212.ims6 ---|* (ES - ES+4) = EST ENTRY. 01299 M01S01213.ims6 ---|* 01300 M01S01214.ims6 ---|* CALLS C2D, DFM. 01301 M01S01215.ims6 ---| 01302 M01S01216.ims6 ---| 01303 M01S01217.ims6 ---| SSM SUBR ENTRY/EXIT 01304 M01S01218.ims6 ---| LDD T6 SET TRACK 01305 M01S01219.ims6 ---| SHN -6 01306 M01S01220.ims6 ---| RJM C2D 01307 M01S01221.ims6 ---| STM MESN+5 01308 M01S01222.ims6 ---| LDD T6 01309 M01S01223.ims6 ---| RJM C2D 01310 M01S01224.ims6 ---| STM MESN+6 01311 M01S01225.ims6 ---| LDC ERLN+MESN * EQXXX, TKYYYY, SYSTEM SECTOR ERROR.* 01312 M01S01226.ims6 ---| RJM DFM 01313 M01S01227.ims6 ---| UJN SSMX RETURN
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01314 M01S00031.ims6 +++| CON MESO 01315 M01S00032.ims6 +++| CON MESP 01316 M01S00033.ims6 +++| TSMEL EQU *-TSME 01317 M00S01228.ims +++| STB SPACE 4,15 01318 M00S01229.ims +++|** STB - SET TRACK BIT. 01319 M00S01230.ims +++|* 01320 M00S01231.ims +++|* ENTRY (A) = *STBM* SUBFUNCTION CODE. 01321 M00S01232.ims +++|* (T5) = EST ORDINAL. 01322 M00S01233.ims +++|* (T6) = TRACK NUMBER. 01323 M00S01234.ims +++|* 01324 M00S01235.ims +++|* EXIT (A) = MONITOR RESPONSE. 01325 M00S01236.ims +++|* 01326 M00S01237.ims +++|* USES CM - CM+4. 01327 M00S01238.ims +++|* 01328 M00S01239.ims +++|* MACROS MONITOR. 01329 M00S01240.ims +++| 01330 M00S01241.ims +++| 01331 M00S01242.ims +++| STB SUBR ENTRY/EXIT 01332 M00S01243.ims +++| STD CM+3 SET SUBFUNCTION CODE 01333 M00S01244.ims +++| LDD T6 SET TRACK 01334 M00S01245.ims +++| STD CM+2 01335 M00S01246.ims +++| LDD T5 SET EST ORDINAL 01336 M00S01247.ims +++| LMC 1S10 01337 M00S01248.ims +++| STD CM+1 01338 M00S01249.ims +++| MONITOR STBM ISSUE REQUEST 01339 M00S01250.ims +++| LDD CM+1 01340 M00S01251.ims +++| UJN STBX RETURN 01341 M00S01252.ims +++| STI SPACE 4,15 01342 M00S01253.ims +++|** STI - SET TRACK INTERLOCK. 01343 M00S01254.ims +++|* 01344 M00S01255.ims +++|* ENTRY (T5) = EST ORDINAL. 01345 M00S01256.ims +++|* (T6) = TRACK. 01346 M00S01257.ims +++|* 01347 M00S01258.ims +++|* EXIT (A) = 0 IF TRACK INTERLOCKED. 01348 M00S01259.ims +++|* = (T6) IF TRACK NOT RESERVED. 01349 M00S01260.ims +++|* (PF) = (T6) IF TRACK INTERLOCKED. 01350 M00S01261.ims +++|*
| Line S01262 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01351 M01S01262.ims6 ---|* ERROR TO *ABT1* IF *ORET* ERROR FLAG DETECTED.
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01352 M01S00034.ims6 +++|* ERROR TO *ABT3* IF *ORET* ERROR FLAG DETECTED. 01353 M00S01263.ims +++|* 01354 M00S01264.ims +++|* CALLS STB. 01355 M00S01265.ims +++|* 01356 M00S01266.ims +++|* MACROS DELAY, PAUSE. 01357 M00S01267.ims +++| 01358 M00S01268.ims +++| 01359 M00S01269.ims +++| STI2 LDD T6 FLAG TRACK INTERLOCKED 01360 M00S01270.ims +++| STD PF 01361 M00S01271.ims +++| STI3 LMD T6 RETURN INTERLOCK STATUS 01362 M00S01272.ims +++| 01363 M00S01273.ims +++| STI SUBR ENTRY/EXIT 01364 M00S01274.ims +++| STI1 LDN STIS ATTEMPT TRACK INTERLOCK 01365 M00S01275.ims +++| RJM STB 01366 M00S01276.ims +++| ZJN STI2 IF INTERLOCK SET 01367 M00S01277.ims +++| LMN 2 01368 M00S01278.ims +++| ZJN STI3 IF TRACK NOT RESERVED 01369 M00S01279.ims +++| DELAY 250D*10 01370 M00S01280.ims +++| PAUSE 01371 M00S01281.ims +++| LDD CM+1 CHECK ERROR FLAG 01372 M00S01282.ims +++| LMN ORET 01373 M00S01283.ims +++| NJN STI1 IF NOT OPERATOR OVERRIDE 01374 M00S01284.ims +++|* LDC MESM
| Line S01285 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01375 M01S01285.ims6 ---| LJM ABT1 PROCESS ERROR FLAG TERMINATION
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01286.ims +++| TED SPACE 4,10 01402 M00S01287.ims +++|** TED - TRANSFER DAT ENVIRONMENT DATA. 01403 M00S01288.ims +++|* 01404 M00S01289.ims +++|* ENTRY (A) = ECSM FUNCTION. 01405 M00S01290.ims +++|* (T6 - T7) = LINK DEVICE ADDRESS. 01406 M00S01291.ims +++|* 01407 M00S01292.ims +++|* EXIT (A) = ECSM FUNCTION REPLY. 01408 M00S01293.ims +++|* 01409 M00S01294.ims +++|* USES CM - CM+4, BY. 01410 M00S01295.ims +++|* 01411 M00S01296.ims +++|* CALLS CEA. 01412 M00S01297.ims +++|* 01413 M00S01298.ims +++|* MACROS MONITOR. 01414 M00S01299.ims +++| 01415 M00S01300.ims +++| 01416 M00S01301.ims +++| TED SUBR ENTRY/EXIT 01417 M00S01302.ims +++| SHN 11 01418 M00S01303.ims +++| STD BY 01419 M00S01304.ims +++| RJM CEA CONVERT EXTENDED MEMORY ADDRESS 01420 M00S01305.ims +++| LDN DAET SET DAT ENTRY 01421 M00S01306.ims +++| RAD CM+4 01422 M00S01307.ims +++| SHN -14 01423 M00S01308.ims +++| LMD BY MERGE FUNCTION 01424 M00S01309.ims +++| RAD CM+3 01425 M00S01310.ims +++| LDN 0 SET WORD COUNT TO 1 01426 M00S01311.ims +++| STD CM+1 01427 M00S01312.ims +++| LDD MA SET CM ADDRESS 01428 M00S01313.ims +++| STD CM+2 01429 M00S01314.ims +++| MONITOR ECSM 01430 M00S01315.ims +++| LDD CM+1 01431 M00S01316.ims +++| UJN TEDX RETURN 01432 M00S01317.ims +++| TRT SPACE 4,10 01433 M00S01318.ims +++|** TRT - UPDATE TRT. 01434 M00S01319.ims +++|* 01435 M00S01320.ims +++|* ENTRY (ES - ES+4) = EST ENTRY. 01436 M00S01321.ims +++|* (T5) = EQUIPMENT. 01437 M00S01322.ims +++|* 01438 M00S01323.ims +++|* EXIT TRT UPDATED IF DEVICE IS SHARED. 01439 M00S01324.ims +++|* 01440 M00S01325.ims +++|* USES CM - CM+4. 01441 M00S01326.ims +++|* 01442 M00S01327.ims +++|* CALLS STB. 01443 M00S01328.ims +++|* 01444 M00S01329.ims +++|* MACROS MONITOR. 01445 M00S01330.ims +++| 01446 M00S01331.ims +++| 01447 M00S01332.ims +++| TRT SUBR ENTRY/EXIT 01448 M00S01333.ims +++| LDD ES CHECK IF SHARED 01449 M00S01334.ims +++| SHN 21-11 01450 M00S01335.ims +++| PJN TRTX IF DEVICE NOT SHARED 01451 M00S01336.ims +++| LDN UTRS ENSURE TRT CURRENT 01452 M00S01337.ims +++| RJM STB 01453 M00S01338.ims +++| UJN TRTX RETURN 01454 M00S01339.ims +++| UDA SPACE 4,15 01455 M00S01340.ims +++|** UDA - UPDATE DAT ENTRY. 01456 M00S01341.ims +++|* 01457 M00S01342.ims +++|* ENTRY (TA) = EXTENDED MEMORY ACCESS OPTIONS. 01458 M00S01343.ims +++|* (DI) = DAT INDEX. 01459 M00S01344.ims +++|* (CN - CN+4) = *SDGL* WORD OF MST. 01460 M00S01345.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01461 M00S01346.ims +++|* 01462 M00S01347.ims +++|* USES T1, T2, T5, CM - CM+4, CN - CN+4. 01463 M00S01348.ims +++|* 01464 M00S01349.ims +++|* CALLS GDS, SDT, WDS. 01465 M00S01350.ims +++|* 01466 M00S01351.ims +++|* MACROS ENDMS, SETMS. 01467 M00S01352.ims +++| 01468 M00S01353.ims +++| 01469 M00S01354.ims +++| UDA5 LDM EQNO RESET EST ORDINAL 01470 M00S01355.ims +++| STD T5 01471 M00S01356.ims +++| 01472 M00S01357.ims +++| UDA SUBR ENTRY/EXIT 01473 M00S01358.ims +++| LDD TA CHECK REQUEST 01474 M00S01359.ims +++| LPN RDDA 01475 M00S01360.ims +++| NJN UDA1 IF READ DAT ONLY 01476 M00S01361.ims +++| RJM SDT SEARCH DAT TABLES 01477 M00S01362.ims +++| ZJN UDA5 IF DUPLICATE ENTRY 01478 M00S01363.ims +++| UDA1 RJM GDS GET DAT SECTOR 01479 M00S01364.ims +++| ZJN UDA5 IF NO DAT ENTRY OR LINK DEVICE 01480 M00S01365.ims +++| LDD TI 01481 M00S01366.ims +++| ADC BFMS+2 01482 M00S01367.ims +++| STM UDAB 01483 M00S01368.ims +++| STD TI 01484 M00S01369.ims +++| ADN 11 01485 M00S01370.ims +++| STD T2 01486 M00S01371.ims +++| LDI T2 SET ACCESS STATUS IN CHECKPOINT REQUEST 01487 M00S01372.ims +++| LPC 0 01488 M00S01373.ims +++| UDAA EQU *-1 01489 M00S01374.ims +++| STM CKCA+4 01490 M00S01375.ims +++| SETMS IO,RW 01491 M00S01376.ims +++| LDD TA RECHECK REQUEST 01492 M00S01377.ims +++| LPN RDDA 01493 M00S01378.ims +++| NJN UDA4 IF NOT DAT UPDATE 01494 M00S01379.ims +++| LDD ES+4 01495 M00S01380.ims +++| SHN 3 01496 M00S01381.ims +++| ADN PFGL READ DAT INFORMATION 01497 M00S01382.ims +++| CRD CM 01498 M00S01383.ims +++| LDN 3 01499 M00S01384.ims +++| STD T2 01500 M00S01385.ims +++| UDA2 LDM CM,T2 COPY DATA TO DAT SECTOR 01501 M00S01386.ims +++| STM **,T2 01502 M00S01387.ims +++| UDAB EQU *-1 01503 M00S01388.ims +++| SOD T2 01504 M00S01389.ims +++| PJN UDA2 IF NOT END OF DATA 01505 M00S01390.ims +++| LDD CM+4 01506 M00S01391.ims +++| LPN 70 01507 M00S01392.ims +++| ZJN UDA3 IF PACK IS 1 OF N 01508 M00S01393.ims +++| LDN 0 01509 M00S01394.ims +++| STI TI CLEAR DAT ENTRY 01510 M00S01395.ims +++| STD CN 01511 M00S01396.ims +++| STD CN+1 CLEAR EXTENDED MEMORY ADDRESS 01512 M00S01397.ims +++| LDD ES+4 01513 M00S01398.ims +++| SHN 3 01514 M00S01399.ims +++| ADN SDGL UPDATE THE MST 01515 M00S01400.ims +++| CWD CN 01516 M00S01401.ims +++| LDD DI 01517 M00S01402.ims +++| ZJN UDA4 IF DAT INDEX NOT SET 01518 M00S01403.ims +++| UDA3 LDC BFMS+WLSF 01519 M00S01404.ims +++| RJM WDS REWRITE DAT SECTOR 01520 M00S01405.ims +++| UDA4 ENDMS 01521 M00S01406.ims +++| LJM UDA5 RETURN 01522 M00S01407.ims +++| UEC SPACE 4,15 01523 M00S01408.ims +++|** UEC - UPDATE EXTENDED MEMORY MST DATA. 01524 M00S01409.ims +++|* 01525 M00S01410.ims +++|* ENTRY (A) = UPDATE OPTIONS. 01526 M00S01411.ims +++|* (LD) = LINK DEVICE EST ORDINAL. 01527 M00S01412.ims +++|* (MI) = MACHINE INDEX. 01528 M00S01413.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01529 M00S01414.ims +++|* 01530 M00S01415.ims +++|* ERROR TO *GDS2* IF ERROR ON LINK DEVICE. 01531 M00S01416.ims +++|* 01532 M00S01417.ims +++|* USES TA, CM - CM+4, CN - CN+4. 01533 M00S01418.ims +++|* 01534 M00S01419.ims +++|* CALLS UDA. 01535 M00S01420.ims +++|* 01536 M00S01421.ims +++|* MACROS MONITOR. 01537 M00S01422.ims +++| 01538 M00S01423.ims +++| 01539 M00S01424.ims +++| UEC SUBR ENTRY/EXIT 01540 M00S01425.ims +++| STD TA 01541 M00S01426.ims +++| LDD LD 01542 M00S01427.ims +++| ZJN UECX IF NOT MMF MODE 01543 M00S01428.ims +++| LDD ES+4 01544 M00S01429.ims +++| SHN 3 01545 M00S01430.ims +++| ADN SDGL FETCH MST ADDRESS INFORMATION 01546 M00S01431.ims +++| CRD CN 01547 M00S01432.ims +++| LDD TA 01548 M00S01433.ims +++| LPN RDDA+UPDA 01549 M00S01434.ims +++| ZJN UEC1 IF NOT DAT ACCESS 01550 M00S01435.ims +++| RJM UDA 01551 M00S01436.ims +++| 01552 M00S01437.ims +++|* UPDATE GLOBAL AREA. 01553 M00S01438.ims +++| 01554 M00S01439.ims +++| UEC1 LDD CN CHECK EXTENDED MEMORY ADDRESS 01555 M00S01440.ims +++| ADD CN+1 01556 M00S01441.ims +++| ZJN UECX IF MST/TRT NOT EXTENDED MEMORY RESIDENT 01557 M00S01442.ims +++| LDD TA 01558 M00S01443.ims +++| LPN UPGA 01559 M00S01444.ims +++| UEC2 ZJN UECX IF NOT GLOBAL AREA UPDATE 01560 M00S01445.ims +++| LDD CN+1 01561 M00S01446.ims +++| ADN ALGL 01562 M00S01447.ims +++| STD CM+4 FORM EXTENDED MEMORY ADDRESS 01563 M00S01448.ims +++| SHN -14 01564 M00S01449.ims +++| ADD CN 01565 M00S01450.ims +++| LMC WECS*1000 MERGE SUBFUNCTION 01566 M00S01451.ims +++| STD CM+3 01567 M00S01452.ims +++| LDD ES+4 COMPUTE CM ADDRESS 01568 M00S01453.ims +++| SHN 3 01569 M00S01454.ims +++| ADN ALGL 01570 M00S01455.ims +++| STD CM+2 01571 M00S01456.ims +++| SHN -14 01572 M00S01457.ims +++| LMC 300 MERGE WORD COUNT 01573 M00S01458.ims +++| STD CM+1 01574 M00S01459.ims +++| MONITOR ECSM 01575 M00S01460.ims +++| LDD CM+1 01576 M00S01461.ims +++| ZJN UEC2 IF NO ERRORS 01577 M00S01462.ims +++| LJM GDS2 ABORT 01578 M00S01463.ims +++| SPACE 4 01579 M00S01464.ims +++|* COMMON DECKS. 01580 M00S01465.ims +++| 01581 M00S01466.ims +++| 01582 M00S01467.ims +++| QUAL$ EQU 1 01583 M00S01468.ims +++|*CALL COMPRLA 01584 M00S01469.ims +++|*CALL COMPRSS 01585 M00S01470.ims +++| WCS$ EQU 1 CONSECUTIVE SECTORS AFTER SYSTEM SECTOR 01586 M00S01471.ims +++|*CALL COMPWSS 01587 M00S01472.ims +++| 01588 M00S01473.ims +++| QUAL 01589 M00S01474.ims +++|*CALL COMPCEA 01590 M00S01475.ims +++|*CALL COMPC2D 01591 M00S01476.ims +++|*CALL COMPIFR 01592 M00S01477.ims +++|*CALL COMPSDI 01593 M00S01478.ims +++|*CALL COMPSDR 01594 M00S01479.ims +++| STI EQU /IMS/STI 01595 M00S01480.ims +++|*CALL COMPTGB 01596 M00S01481.ims +++|*CALL COMPTLB 01597 M00S01482.ims +++| 01598 M00S01483.ims +++| QUAL IMS 01599 M00S01484.ims +++| SPACE 4,10 01600 M00S01485.ims +++|** DAYFILE MESSAGES. 01601 M00S01486.ims +++| 01602 M00S01487.ims +++| 01603 M00S01488.ims +++| MESA DATA C* EQXXX, YY TRACKS FLAWED.* 01604 M00S01489.ims +++| MESB DATA C* EQXXX, YY FLAWS NOT PROCESSED.* 01605 M00S01490.ims +++| MESBL EQU * FLAW MESSAGE BUFFER 01606 M00S01491.ims +++| MESC DATA C* EQXXX, LOCAL AREAS INITIALIZED.* 01607 M00S01492.ims +++| MESD DATA C* EQXXX, LOCAL AREA SECTOR RESET.* 01608 M00S01493.ims +++| MESE DATA C* EQXXX, PF INITIALIZE COMPLETE.* 01609 M00S01494.ims +++| MESF DATA C* LABEL TRACK CONFLICT.* 01610 M00S01495.ims +++| MESG DATA C* EQXXX, NO INACTIVE DAYFILES FOUND.* 01611 M00S01496.ims +++| MENM EQU 13 FILENAME OFFSET FOR MESSAGES 01612 M00S01497.ims +++| MESH DATA C* EQXXX, INITIALIZED - . * 01613 M00S01498.ims +++| MESI DATA C* EQXXX, FILE ACTIVE - . * 01614 M00S01499.ims +++| MESJ DATA C* EQXXX, FILE BUSY - . * 01615 M00S01500.ims +++| MESK DATA C* EQXXX, PROTECTED QUEUES IGNORED.* 01616 M00S01501.ims +++| MESL DATA C* EQXXX, FLAWING INCOMPLETE.* 01617 M00S01502.ims +++| MESM DATA C* IMS ABORTED.* 01618 M00S01503.ims +++| MESN DATA C* EQXXX, TKYYYY, SYSTEM SECTOR ERROR.*
| Line S01504 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01619 M01S01504.ims6 ---| MESO DATA C* IMS - TRACK FLAWED, EQXXX, TKYYYY.*
| Line S00060 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01620 M01S00060.ims6 +++| MESO DATA C* EQXXX, TKYYYY - TRACK FLAWED BY IMS.* 01621 M01S00061.ims6 +++| MESP DATA C* EQXXX, TKYYYY - VERIFICATION ERRORS.* 01622 M00S01505.ims +++| SPACE 4,10 01623 M00S01506.ims +++| OVLA EQU *+5 OVERLAY LOAD ADDRESS 01624 M00S01507.ims +++| TITLE RESIDENT PROCESSORS. 01625 M00S01508.ims +++| IND SPACE 4,10 01626 M00S01509.ims +++|*** FUNCTION *INDF* - INITIALIZE MASS STORAGE DEVICE. 01627 M00S01510.ims +++|* 01628 M00S01511.ims +++|* ENTRY (IR+4) = EST ORDINAL. 01629 M00S01512.ims +++| 01630 M00S01513.ims +++| 01631 M00S01514.ims +++| IND ENTRY 01632 M00S01515.ims +++| LDD IR+4 SET DEVICE PARAMETERS 01633 M00S01516.ims +++| RJM SMD 01634 M00S01517.ims +++| LDD WB CHECK INITIALIZE OPTIONS 01635 M00S01518.ims +++| SHN 21-LIAL+LIAL/12D*12D 01636 M00S01519.ims +++| MJN IND1 IF DEADSTART INITIALIZE 01637 M00S01520.ims +++| RJM TRT UPDATE TRT 01638 M00S01521.ims +++| RJM RPC RELEASE PERMANENT FILE CHAINS 01639 M00S01522.ims +++| RJM IPF INITIALIZE PACK FLAWS 01640 M00S01523.ims +++| IND1 LDD ES+4 01641 M00S01524.ims +++| SHN 3 01642 M00S01525.ims +++| ADN ALGL READ DEVICE ALLOCATION WORD FROM MST 01643 M00S01526.ims +++| CRD CN 01644 M00S01527.ims +++| ADN PUGL-ALGL GET DEVICE MASKS 01645 M00S01528.ims +++| CRD FN 01646 M00S01529.ims +++| ADN MDGL-PUGL GET DRIVER WORD 01647 M00S01530.ims +++| CRD CM 01648 M00S01531.ims +++| ADN STLL-MDGL UPDATE DEVICE STATUS 01649 M00S01532.ims +++| CWD WB 01650 M00S01533.ims +++| LDN 0 CLEAR ID DATA TRACK 01651 M00S01534.ims +++| STD CN 01652 M00S01535.ims +++| LDD CM 01653 M00S01536.ims +++| SHN 21-12 01654 M00S01537.ims +++| MJN IND2 IF AUXILIARY DEVICE 01655 M00S01538.ims +++| LDD FN+4 01656 M00S01539.ims +++| LPC 377 01657 M00S01540.ims +++| NJN IND2 IF MASTER DEVICE 01658 M00S01541.ims +++|* LDN 0 01659 M00S01542.ims +++| LJM IND5 PROCESS NON-MASTER DEVICE 01660 M00S01543.ims +++| 01661 M00S01544.ims +++| IND2 LDD FN+3 SET CONTIGUOUS CATALOG TRACKS 01662 M00S01545.ims +++| SCN 60 01663 M00S01546.ims +++| LMN 40 01664 M00S01547.ims +++| STD FN+3 01665 M00S01548.ims +++| LDD FN 01666 M00S01549.ims +++| ZJN IND3 IF NOT PRIVATE DEVICE 01667 M00S01550.ims +++| LDN 1 SET CATALOG COUNT TO 1 01668 M00S01551.ims +++| STD CN+3 01669 M00S01552.ims +++| IND3 LDD CN+3 SET NUMBER OF CATALOG TRACKS 01670 M00S01553.ims +++| ADN 1 01671 M00S01554.ims +++| STD CA RESERVE CATALOG CHAIN 01672 M00S01555.ims +++| RJM RCC 01673 M00S01556.ims +++| ZJN IND4 IF ALL TRACKS NOT ASSIGNED 01674 M00S01557.ims +++| LDC NDAT RESERVE DATA TRACK 01675 M00S01558.ims +++| RJM RPT 01676 M00S01559.ims +++| ZJN IND4 IF TRACK NOT ASSIGNED 01677 M00S01560.ims +++| STD CN 01678 M00S01561.ims +++| LDC NPER RESERVE PERMITS TRACK 01679 M00S01562.ims +++| RJM RPT 01680 M00S01563.ims +++| NJN IND5 IF TRACK ASSIGNED 01681 M00S01564.ims +++| IND4 LDN PTKL 01682 M00S01565.ims +++| LJM MSI PASS ERROR TO *MSI* 01683 M00S01566.ims +++| 01684 M00S01567.ims +++| IND5 STD CN+2 SET PERMIT TRACK 01685 M00S01568.ims +++| LDD ES+4 01686 M00S01569.ims +++| SHN 3 01687 M00S01570.ims +++| ADN ALGL UPDATE DEVICE LAYOUT WORD 01688 M00S01571.ims +++| CWD CN 01689 M00S01572.ims +++| ADN PUGL-ALGL UPDATE CATALOG CHAIN STATUS 01690 M00S01573.ims +++| CWD FN 01691 M00S01574.ims +++| LDN 0 CLEAR ERROR STATUS 01692 M00S01575.ims +++| RJM SES 01693 M00S01576.ims +++| CMSTF GDEI CLEAR ERROR IDLE STATUS 01694 M00S01577.ims +++| CMSTF GCTO CLEAR CATALOG TRACK OVERFLOW 01695 M00S01578.ims +++| LDM CQFA 01696 M00S01579.ims +++| ZJN IND7 IF NO QUEUES IGNORED 01697 M00S01580.ims +++| LDC MESK * EQXXX, PROTECTED QUEUES IGNORED.* 01698 M00S01581.ims +++| RJM DFM 01699 M00S01582.ims +++| IND7 LDC MESE * EQXXX, PF INITIALIZE COMPLETE.* 01700 M00S01583.ims +++| RJM DFM 01701 M00S01584.ims +++| LDN RDDA+UPGA READ DAT / UPDATE GLOBAL MST 01702 M00S01585.ims +++| RJM UEC 01703 M00S01586.ims +++| RJM IAM PROCESS ACCOUNTING MESSAGE 01704 M00S01587.ims +++| LDN 5 01705 M00S01588.ims +++| LJM CKC SET CHECKPOINT REQUEST 01706 M00S01589.ims +++| SPACE 4,10 01707 M00S01590.ims +++|** SYSTEM SECTOR FILE NAMES. 01708 M00S01591.ims +++| 01709 M00S01592.ims +++| 01710 M00S01593.ims +++| NDAT VFD 42/0LDATA,6/1,6/SYFT,6/0 01711 M00S01594.ims +++| NLAB VFD 42/0LLABEL,6/1,6/SYFT,6/0 01712 M00S01595.ims +++| NPER VFD 42/0LPERMIT,6/1,6/SYFT,6/0 01713 M00S01596.ims +++| DFT SPACE 4,20 01714 M00S01597.ims +++|** DFT - DROP AND FLAW TRACK. 01715 M00S01598.ims +++|* 01716 M00S01599.ims +++|* ENTRY (A) = 1/0,11/FT. ALL TRACKS AFTER *FT* ARE DROPPED 01717 M00S01600.ims +++|* AND THE EOI IS SET IN SECTOR ZERO OF *FT*. 01718 M00S01601.ims +++|* = 1/1,11/FT. ALL TRACKS FROM *FT* TO END OF 01719 M00S01602.ims +++|* CHAIN ARE DROPPED.
| Line S01603 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01720 M01S01603.ims6 ---|* (T5) = EST ORDINAL. 01721 M01S01604.ims6 ---|* (T6) = TRACK ON WHICH ERROR OCCURED. 01722 M01S01605.ims6 ---|* 01723 M01S01606.ims6 ---|* ERROR TO *ABT1* IF NOT MEDIA ERROR.
| Line S00062 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01607.ims +++|* 01732 M00S01608.ims +++|* USES CM - CM+4. 01733 M00S01609.ims +++|*
| Line S01610 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01734 M01S01610.ims6 ---|* CALLS C2D, DFM.
| Line S00069 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01735 M01S00069.ims6 +++|* CALLS DFM, SES, STM. 01736 M00S01611.ims +++|* 01737 M00S01612.ims +++|* MACROS MONITOR. 01738 M00S01613.ims +++| 01739 M00S01614.ims +++|
| Line S00070 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01615.ims +++| DFT SUBR ENTRY/EXIT 01751 M00S01616.ims +++| STD CM+2 SET FIRST TRACK TO DROP 01752 M00S01617.ims +++| LDM RDCT 01753 M00S01618.ims +++| LPN 77 CHECK MASS STORAGE ERROR TYPE 01754 M00S01619.ims +++| LMN PARE 01755 M00S01620.ims +++| ZJN DFT1 IF MEDIA PROBLEM
| Line S01621 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01756 M01S01621.ims6 ---| LJM ABT1 ABORT - MAINTENANCE REQUIRED 01757 M01S01622.ims6 ---| 01758 M01S01623.ims6 ---| DFT1 STD CM+3 01759 M01S01624.ims6 ---| LDD T5 SET EST ORDINAL 01760 M01S01625.ims6 ---| STD CM+1 01761 M01S01626.ims6 ---| MONITOR DTKM DROP TRACK CHAIN 01762 M01S01627.ims6 ---| LDD T6 01763 M01S01628.ims6 ---| SHN -6 PUT TRACK NUMBER IN MESSAGE 01764 M01S01629.ims6 ---| RJM C2D 01765 M01S01630.ims6 ---| STM MESO+17 01766 M01S01631.ims6 ---| LDD T6 01767 M01S01632.ims6 ---| RJM C2D 01768 M01S01633.ims6 ---| STM MESO+20 01769 M01S01634.ims6 ---| LDC ERLN+MESO * IMS - TRACK FLAWED, EQXXX, TKYYYY.* 01770 M01S01635.ims6 ---| RJM DFM 01771 M01S01636.ims6 ---| LDC MESO ISSUE SAME MESSAGE TO SYSTEM DAYFILE 01772 M01S01637.ims6 ---| RJM DFM 01773 M01S01638.ims6 ---| LJM DFTX RETURN
| Line S00080 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01639.ims +++| IAM SPACE 4,15 01783 M00S01640.ims +++|** IAM - ISSUE ACCOUNTING MESSAGE. 01784 M00S01641.ims +++|* 01785 M00S01642.ims +++|* ENTRY (T5) = EST ORDINAL. 01786 M00S01643.ims +++|* (ES - ES+4) = *EQDE* WORD OF EST ENTRY. 01787 M00S01644.ims +++|* 01788 M00S01645.ims +++|* EXIT MESSAGE ISSUED TO ACCOUNTING DAYFILE. 01789 M00S01646.ims +++|* EVENT SET FOR AUXILIARY DEVICE. 01790 M00S01647.ims +++|* 01791 M00S01648.ims +++|* USES T1, CM - CM+4, CN - CN+4. 01792 M00S01649.ims +++|* 01793 M00S01650.ims +++|* CALLS ACS, C2D, DFM. 01794 M00S01651.ims +++|* 01795 M00S01652.ims +++|* MACROS MONITOR. 01796 M00S01653.ims +++| 01797 M00S01654.ims +++| 01798 M00S01655.ims +++| IAM SUBR ENTRY/EXIT 01799 M00S01656.ims +++| LDC IAMB SET ADDRESS OF ASSEMBLY BUFFER 01800 M00S01657.ims +++| STD T1 01801 M00S01658.ims +++| LDD T5 CONVERT UPPER TWO DIGITS OF EST ORDINAL 01802 M00S01659.ims +++| SHN -3 01803 M00S01660.ims +++| RJM C2D 01804 M00S01661.ims +++| STD CM 01805 M00S01662.ims +++| LDD T5 CONVERT LOWER DIGIT OF EST ORDINAL 01806 M00S01663.ims +++| LPN 7 01807 M00S01664.ims +++| ADN 1R0 01808 M00S01665.ims +++| SHN 6 01809 M00S01666.ims +++| STD CM+1 01810 M00S01667.ims +++| LDN CM ADD EST ORDINAL TO MESSAGE 01811 M00S01668.ims +++| RJM ACS 01812 M00S01669.ims +++| LDC =C*, * ADD SEPARATOR TO MESSAGE 01813 M00S01670.ims +++| RJM ACS 01814 M00S01671.ims +++| LDD ES+4 GET DEVICE DESCRIPTION 01815 M00S01672.ims +++| SHN 3 01816 M00S01673.ims +++| ADN PFGL 01817 M00S01674.ims +++| CRD CM 01818 M00S01675.ims +++| ADN PUGL-PFGL READ USER NAME 01819 M00S01676.ims +++| CRD CN 01820 M00S01677.ims +++| LDD CM+3 EXTRACT DEVICE NUMBER 01821 M00S01678.ims +++| LPN 77 01822 M00S01679.ims +++| NJN IAM1 IF NOT AUXILIARY DEVICE 01823 M00S01680.ims +++| LDD CM+3 01824 M00S01681.ims +++| ADD CM+2 BUILD PACKNAME EVENT HASH 01825 M00S01682.ims +++| ADD CM+1 01826 M00S01683.ims +++| ADD CM SAVE PACKNAME HASH 01827 M00S01684.ims +++| STD CN+4 01828 M00S01685.ims +++| UJN IAM2 FORMAT MESSAGE 01829 M00S01686.ims +++| 01830 M00S01687.ims +++| IAM1 RJM C2D CONVERT TO DISPLAY CODE 01831 M00S01688.ims +++| STD CN 01832 M00S01689.ims +++| LDC 2RDI CHANGE MESSAGE PREFIX TO *ADDI* 01833 M00S01690.ims +++| STM IAMA+1 01834 M00S01691.ims +++| LDD CM+3 SET END OF FAMILY NAME 01835 M00S01692.ims +++| SCN 77 01836 M00S01693.ims +++| STD CM+3 01837 M00S01694.ims +++| IAM2 LDN CM ADD FAMILY/PACKNAME TO MESSAGE 01838 M00S01695.ims +++| RJM ACS 01839 M00S01696.ims +++| LDD CN 01840 M00S01697.ims +++| ZJN IAM3 IF NO USER/DEVICE NUMBER 01841 M00S01698.ims +++| LDC =C*, * 01842 M00S01699.ims +++| RJM ACS 01843 M00S01700.ims +++| LDD CN+3 SET END OF USER NAME 01844 M00S01701.ims +++| SCN 77 01845 M00S01702.ims +++| STD CN+3 01846 M00S01703.ims +++| LDN CN ADD USER/DEVICE NUMBER TO MESSAGE 01847 M00S01704.ims +++| RJM ACS 01848 M00S01705.ims +++| IAM3 LDC =C*.* SET MESSAGE TERMINATOR 01849 M00S01706.ims +++| RJM ACS 01850 M00S01707.ims +++| LDC IAMA+ACFN ISSUE MESSAGE TO ACCOUNT FILE 01851 M00S01708.ims +++| RJM DFM 01852 M00S01709.ims +++| LDM IAMA+1 ISSUE EVENT 01853 M00S01710.ims +++| LMC 2RPI 01854 M00S01711.ims +++| NJN IAM4 IF NOT AUXILIARY DEVICE 01855 M00S01712.ims +++| LDN ZERL 01856 M00S01713.ims +++| CRD CM 01857 M00S01714.ims +++| LDN /EVENT/VSNE/10000 SET EVENT 01858 M00S01715.ims +++| STD CM+3 01859 M00S01716.ims +++| LDD CN+4 SET PACKNAME HASH 01860 M00S01717.ims +++| STD CM+4 01861 M00S01718.ims +++| MONITOR EATM 01862 M00S01719.ims +++| IAM4 LJM IAMX RETURN 01863 M00S01720.ims +++| 01864 M00S01721.ims +++| 01865 M00S01722.ims +++| IAMA DATA 6HADPI, 01866 M00S01723.ims +++| IAMB BSSZ 15 ASSEMBLY BUFFER 01867 M00S01724.ims +++| RCC SPACE 4,20 01868 M00S01725.ims +++|** RCC - RESERVE CATALOG CHAIN. 01869 M00S01726.ims +++|* 01870 M00S01727.ims +++|* ENTRY (CA) = CATALOG COUNT. 01871 M00S01728.ims +++|* (LT) = LABEL TRACK. 01872 M00S01729.ims +++|* (T5) = EST ORDINAL (DRIVER PRESET). 01873 M00S01730.ims +++|* (CN - CN+4) = DEVICE LAYOUT WORD OF MST 01874 M00S01731.ims +++|* (FN - FN+4) = PUGL WORD OF THE MST. 01875 M00S01732.ims +++|* 01876 M00S01733.ims +++|* EXIT (A) = 0 IF TRACKS NOT AVAILABLE. 01877 M00S01734.ims +++|* = .LT. 0 IF ALL CATALOG TRACKS RESERVED. 01878 M00S01735.ims +++|* (FN+3) = CONTIGUOUS TRACKS FLAG CLEARED IF NECESSARY. 01879 M00S01736.ims +++|*
| Line S01737 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01880 M01S01737.ims6 ---|* USES T2, T6, T7, CA - CA+1, CM - CM+4.
| Line S00088 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01881 M01S00088.ims6 +++|* USES TA, T2, T6, T7, CA - CA+1, CM - CM+4. 01882 M00S01738.ims +++|* 01883 M00S01739.ims +++|* CALLS DFT, WVE. 01884 M00S01740.ims +++|* 01885 M00S01741.ims +++|* MACROS MONITOR. 01886 M00S01742.ims +++| 01887 M00S01743.ims +++| 01888 M00S01744.ims +++| RCC SUBR ENTRY/EXIT 01889 M00S01745.ims +++| LDD LT 01890 M00S01746.ims +++| STD T6 FIRST TRACK = LABEL TRACK 01891 M00S01747.ims +++| RCC1 SOD CA 01892 M00S01748.ims +++| MJN RCCX IF ALL CATALOG TRACKS RESERVED 01893 M00S01749.ims +++| LDN ZERL 01894 M00S01750.ims +++| CRD CM 01895 M00S01751.ims +++| LDD T5 SET EQUIPMENT 01896 M00S01752.ims +++| STD CM+1 01897 M00S01753.ims +++| LDD T6 SET CURRENT TRACK 01898 M00S01754.ims +++| STD CM+2 01899 M00S01755.ims +++| STD CA+1 01900 M00S01756.ims +++| MONITOR RTCM RESERVE TRACK 01901 M00S01757.ims +++|* LDN 0 01902 M00S01758.ims +++| STD T7 SET SECTOR 01903 M00S01759.ims +++| LDD CM+4 01904 M00S01760.ims +++| ZJN RCCX IF TRACK NOT ASSIGNED 01905 M00S01761.ims +++| SBN 1 01906 M00S01762.ims +++| SBD T6 01907 M00S01763.ims +++| ZJN RCC2 IF CONSECUTIVE 01908 M00S01764.ims +++| RAD T6 01909 M00S01765.ims +++| LDD FN+3 CLEAR CONTIGUOUS CATALOG TRACKS 01910 M00S01766.ims +++| SCN 40 01911 M00S01767.ims +++| STD FN+3 01912 M00S01768.ims +++| RCC2 AOD T6 SET NEXT TRACK
| Line S01769 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01913 M01S01769.ims6 ---| LDD LT SET FIRST TRACK OF CHAIN
| Line S00089 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01914 M01S00089.ims6 +++| LDN VERC 01915 M01S00090.ims6 +++| STD TA 01916 M01S00091.ims6 +++| RCC3 LDD LT SET FIRST TRACK OF CHAIN 01917 M00S01770.ims +++| STD T2 01918 M00S01771.ims +++| LDC BFMS WRITE AND VERIFY WITH EOI SECTORS 01919 M00S01772.ims +++| RJM WVE
| Line S01773 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01920 M01S01773.ims6 ---| ZJN RCC3 IF WRITE AND VERIFY GOOD
| Line S00092 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01921 M01S00092.ims6 +++| ZJN RCC4 IF WRITE AND VERIFY GOOD 01922 M00S01774.ims +++| LDD CA+1 01923 M00S01775.ims +++| LPC 3777 DROP AND FLAW TRACK 01924 M00S01776.ims +++| RJM DFT
| Line S00093 Modification History | |
|---|---|
M01 (Added by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01925 M01S00093.ims6 +++| NJN RCC3 IF RETRY DUE TO VERIFICATION ERRORS 01926 M01S00094.ims6 +++| AOD CA 01927 M00S01777.ims +++| LDD CA+1 RESTORE CURRENT TRACK 01928 M00S01778.ims +++| STD T6
| Line S01779 Modification History | |
|---|---|
M01 (Removed by) | ims6 |
Seq # *Modification Id* Act ----------------------------+ 01929 M01S01779.ims6 ---| AOD CA RESET CATALOG TRACK COUNT 01930 M01S01780.ims6 ---| RCC3 LJM RCC1 ALLOCATE NEXT CATALOG TRACK
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/ims.txt · Last modified: by 127.0.0.1