Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.1ds +++| IDENT 1DS,IDS
00002 M00S00002.1ds +++| PERIPH
00003 M00S00003.1ds +++| BASE MIXED
00004 M00S00004.1ds +++| SST
00005 M00S00005.1ds +++|*COMMENT 1DS - DSD REQUEST PROCESSOR.
00006 M00S00006.1ds +++| EQV$ EQU 1 DO NOT VERIFY EQUIPMENT IN *COMPRSS*
Line S00007 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.1ds +++| TITLE 1DS - DSD REQUEST PROCESSOR.
00010 M00S00009.1ds +++| SPACE 4,10
00011 M00S00010.1ds +++|*** 1DS - DSD REQUEST PROCESSOR.
00012 M00S00011.1ds +++|* G. R. MANSFIELD. 70/10/24.
00013 M00S00012.1ds +++|* R. E. DENNIS. 74/10/15.
00014 M00S00013.1ds +++|* C. B. LOSCHEIDER. 78/09/11.
00015 M00S00014.1ds +++| SPACE 4,10
00016 M00S00015.1ds +++|*** *1DS* PROCESSES FUNCTIONS FOR *DSD* WHICH ARE NOT
00017 M00S00016.1ds +++|* POSSIBLE FOR *DSD* TO PROCESS. *1DS* IS CALLED BY
00018 M00S00017.1ds +++|* *1SJ* TO INITIATE THE JOB *CMS*. *1DS* IS CALLED
00019 M00S00018.1ds +++|* BY *6DI* TO INITIATE THE *LBC* JOB.
00020 M00S00019.1ds +++| SPACE 4,10
00021 M00S00020.1ds +++|*** PROGRAMMING CONSIDERATIONS.
00022 M00S00021.1ds +++|*
00023 M00S00022.1ds +++|** FOR A DETAILED EXPLAINATION OF THE *DSD*/*1DS*
00024 M00S00023.1ds +++|* INTERFACE, SEE COMMON DECK *COMS1DS*.
00025 M00S00024.1ds +++| SPACE 4,15
00026 M00S00025.1ds +++|*** CALL.
00027 M00S00026.1ds +++|*
Line S00027 Modification History
M01 (Removed by) ns2765
Seq # *Modification Id* Act
----------------------------+
00028 M01S00027.ns2765 ---|*T 18/1DS, 6/SC, 2/CP, 1/LK, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure
0 11 12 23 24 29 P2 P1 REQ 30 32 33 34 35 36 41 42 59 LOG LK CP SC 1DS
Line S00001 Modification History
M01 (Added by) ns2765
Seq # *Modification Id* Act
----------------------------+
00029 M01S00001.ns2765 +++|*T 18/1DS, 6/SC, 1/C, 1/L, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure
0 11 12 23 24 29 P2 P1 REQ 30 32 33 34 35 40 41 58 LOG L C SC 1DS
00030 M00S00028.1ds +++|*
00031 M00S00029.1ds +++|* SC SYSTEM CONTROL POINT.
Line S00030 Modification History
M01 (Removed by) ns2765
Seq # *Modification Id* Act
----------------------------+
00032 M01S00030.ns2765 ---|* CP NON-ZERO CONTROL POINT MOVE REQUIRED.
00033 M01S00031.ns2765 ---|* LK LOCKED BUFFER.
Line S00002 Modification History
M01 (Added by) ns2765
Seq # *Modification Id* Act
----------------------------+
00034 M01S00002.ns2765 +++|* C CONTROL POINT CHANGE REQUIRED (CP NUMBER IN P2).
00035 M01S00003.ns2765 +++|* L LOCKED BUFFER.
00036 M00S00032.1ds +++|* LOG LOGGING CONTROL BITS.
00037 M00S00033.1ds +++|* REQ FUNCTION CODE.
00038 M00S00034.1ds +++|* P1 PARAMETER 1.
00039 M00S00035.1ds +++|* P2 PARAMETER 2.
00040 M00S00036.1ds +++| SPACE 4,10
00041 M00S00037.1ds +++|*** DAYFILE MESSAGES.
00042 M00S00038.1ds +++|*
00043 M00S00039.1ds +++|*
00044 M00S00040.1ds +++|* *DEADSTART SEQUENCING FAILED.*
00045 M00S00041.1ds +++|* THE DEADSTART SEQUENCING JOB COULD NOT BE INITIATED
00046 M00S00042.1ds +++|* AFTER SEVERAL RETRIES BECAUSE OF AN I/O ERROR
00047 M00S00043.1ds +++|* ENCOUNTERED ON A MASS STORAGE DEVICE.
00048 M00S00044.1ds +++| SPACE 4,15
00049 M00S00045.1ds +++|*** ACCOUNT DAYFILE MESSAGES.
00050 M00S00046.1ds +++|*
00051 M00S00047.1ds +++|*
00052 M00S00048.1ds +++|* *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.*
00053 M00S00049.1ds +++|* *ABLQ, C2, XXXXXX.XXXKUNS.*
00054 M00S00050.1ds +++|* QUEUED FILE WITH JOB SEQUENCE NAME JSN AND
00055 M00S00051.1ds +++|* DISPOSITION CODE DC HAS BEEN ROUTED TO THE
00056 M00S00052.1ds +++|* QUEUE ON DATE YYMMDD AT TIME HHMMSS.
00057 M00S00053.1ds +++|* THE FILE HAS A DISPOSITION CODE OF DC AND IS
00058 M00S00054.1ds +++|* XXXXXX.XXX THOUSAND PRU-S IN LENGTH.
00059 M00S00055.1ds +++|*
00060 M00S00056.1ds +++|* *ACDT, DATE YY/MM/DD.*
00061 M00S00057.1ds +++|* WHERE YY=YEAR, MM=MONTH, DD=DAY OF THE NEW
00062 M00S00058.1ds +++|* DATE ENTERED BY THE OPERATOR.
00063 M00S00059.1ds +++|*
00064 M00S00060.1ds +++|* *ACDT, TIME HH.MM.SS.*
00065 M00S00061.1ds +++|* WHERE HH=HOURS, MM=MINUTES, SS=SECONDS OF THE
00066 M00S00062.1ds +++|* NEW TIME ENTERED BY THE OPERATOR.
00067 M00S00063.1ds +++|*
00068 M00S00064.1ds +++|* *MSEQ, NNN, LEVEL1, LEVEL2.*
00069 M00S00065.1ds +++|* WHERE NNN=EST ORDINAL, LEVEL1=LOWER ACCESS LEVEL,
00070 M00S00066.1ds +++|* LEVEL2=UPPER ACCESS LEVEL ENTERED BY THE OPERATOR
00071 M00S00067.1ds +++|* VIA THE *SECUREQ* COMMAND.
00072 M00S00068.1ds +++|*
00073 M00S00069.1ds +++|* *MSOT, OT, LEVEL1, LEVEL2.*
00074 M00S00070.1ds +++|* WHERE OT=ORIGIN TYPE (IN DISPLAY CODE),
00075 M00S00071.1ds +++|* LEVEL1=LOWER ACCESS LEVEL, LEVEL2=UPPER ACCESS LEVEL
00076 M00S00072.1ds +++|* ENTERED BY THE OPERATOR VIA THE *SECURES* COMMAND.
00077 M00S00073.1ds +++|*
00078 M00S00074.1ds +++|* *MSSA, USERNAME.*
00079 M00S00075.1ds +++|* WHERE USERNAME=VALID USER NAME (I.E., A USER WITH
00080 M00S00076.1ds +++|* SECURITY ADMINISTRATOR PRIVILEGES) ENTERED BY THE
00081 M00S00077.1ds +++|* OPERATOR VIA THE *SECURITY-UNLOCK* COMMAND.
00082 M00S00078.1ds +++|*
00083 M00S00079.1ds +++|* *MSSI, USERNAME.*
00084 M00S00080.1ds +++|* WHERE USERNAME=INCORRECT USER NAME (I.E., A USER WHO
00085 M00S00081.1ds +++|* DOES NOT HAVE SECURITY ADMINISTRATOR PRIVILEGES)
00086 M00S00082.1ds +++|* ENTERED BY THE OPERATOR VIA THE
00087 M00S00083.1ds +++|* *SECURITY-UNLOCK* COMMAND.
00088 M00S00084.1ds +++| SPACE 4,20
00089 M00S00085.1ds +++|**** DIRECT LOCATION ASSIGNMENTS.
00090 M00S00086.1ds +++|
00091 M00S00087.1ds +++|
Line S00001 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
00092 M01S00001.271l716 +++| PP EQU LA POT POINTER
00093 M00S00088.1ds +++| S1 EQU 16 SCRATCH CELL
00094 M00S00089.1ds +++| S2 EQU 17 SCRATCH CELL
Line S00002 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
00095 M01S00002.271l716 +++| PA EQU S1 - S2 POT ADDRESS (2 LOCATIONS)
00096 M00S00090.1ds +++| FS EQU 20 - 24 FST ENTRY (5 LOCATIONS)
00097 M00S00091.1ds +++| MS EQU FS+5 MST POINTER
00098 M00S00092.1ds +++| QA EQU 26 FNT ORDINAL
00099 M00S00093.1ds +++| CA EQU 27 COMMAND ADDRESS
00100 M00S00094.1ds +++| CN EQU 30 - 34 CM WORD BUFFER (5 LOCATIONS)
00101 M00S00095.1ds +++| JF EQU 35 JOB FIELD LENGTH
00102 M00S00096.1ds +++| TN EQU 36 TABLE NUMBER
00103 M00S00097.1ds +++| FG EQU 37 CPU FLAGS
00104 M00S00098.1ds +++| AB EQU 40 - 44 CM WORD BUFFER (5 LOCATIONS)
Line S00099 Modification History
M01 (Removed by) 271l716
Seq # *Modification Id* Act
----------------------------+
00105 M01S00099.271l716 ---| PP EQU 45 POT POINTER
00106 M01S00100.271l716 ---| PA EQU 46 - 47 POT ADDRESS (2 LOCATIONS)
Line S00003 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
00107 M01S00003.271l716 +++| NC EQU 45 SYSTEM CP NUMBER
00108 M00S00101.1ds +++| JS EQU 57 JOB SERVICE CLASS
00109 M00S00102.1ds +++| FN EQU 60 - 64 CM WORD BUFFER (5 LOCATIONS)
00110 M00S00103.1ds +++| SR EQU FN SCRATCH (5 LOCATIONS)
00111 M00S00104.1ds +++| FV EQU 65 CONSTANT FIVE
00112 M00S00105.1ds +++| JC EQU 66 JOB COUNTER
00113 M00S00106.1ds +++| BA EQU 67 SECTOR BUFFER ADDRESS
00114 M00S00107.1ds +++|****
00115 M00S00108.1ds +++| SPACE 4,10
00116 M00S00109.1ds +++|* ASSEMBLY CONSTANTS.
00117 M00S00110.1ds +++|
00118 M00S00111.1ds +++|
00119 M00S00112.1ds +++| CPMR EQU 10D CONTROL POINT MOVE RETRY COUNT
00120 M00S00113.1ds +++| DFFL EQU 60000 DEFAULT FIELD LENGTH
00121 M00S00114.1ds +++| DFTL EQU 777777 DEFAULT JOB STEP TIME LIMIT
00122 M00S00115.1ds +++| SPACE 4,10
00123 M00S00116.1ds +++|*CALL COMPMAC
00124 M00S00117.1ds +++|*CALL COMSACC
00125 M00S00118.1ds +++| QUAL BIO
00126 M00S00119.1ds +++|*CALL COMSBIO
00127 M00S00120.1ds +++| QUAL *
00128 M00S00121.1ds +++|*CALL COMSCPS
00129 M00S00122.1ds +++|*CALL COMSDFS
00130 M00S00123.1ds +++| QUAL DSL
00131 M00S00124.1ds +++|*CALL COMSDSL
00132 M00S00125.1ds +++| QUAL *
00133 M00S00126.1ds +++|*CALL COMSDSP
00134 M00S00127.1ds +++|*CALL COMSEJT
00135 M00S00128.1ds +++| QUAL EVENT
00136 M00S00129.1ds +++|*CALL COMSEVT
00137 M00S00130.1ds +++| QUAL *
00138 M00S00131.1ds +++|*CALL COMSHIO
00139 M00S00132.1ds +++|*CALL COMSJIO
00140 M00S00133.1ds +++| QUAL LSD
00141 M00S00134.1ds +++|*CALL COMSLSD
00142 M00S00135.1ds +++| QUAL *
00143 M00S00136.1ds +++|*CALL COMSMLS
00144 M00S00137.1ds +++| QUAL MMF
00145 M00S00138.1ds +++|*CALL COMSMMF
00146 M00S00139.1ds +++| QUAL *
00147 M00S00140.1ds +++| QUAL MTX
00148 M00S00141.1ds +++|*CALL COMSMTX
00149 M00S00142.1ds +++| QUAL *
00150 M00S00143.1ds +++|*CALL COMSMSP
00151 M00S00144.1ds +++|*CALL COMSMST
00152 M00S00145.1ds +++|*CALL COMSPFM
00153 M00S00146.1ds +++| QUAL REM
00154 M00S00147.1ds +++|*CALL COMSREM
00155 M00S00148.1ds +++| QUAL *
Line S00004 Modification History
M01 (Added by) ns2765
Seq # *Modification Id* Act
----------------------------+
00156 M01S00004.ns2765 +++| QUAL RSX
00157 M01S00005.ns2765 +++|*CALL COMSRSX
00158 M01S00006.ns2765 +++| QUAL *
00159 M00S00149.1ds +++|*CALL COMSSCD
00160 M00S00150.1ds +++|*CALL COMSSSD
00161 M00S00151.1ds +++|*CALL COMSSSE
00162 M00S00152.1ds +++|*CALL COMSPIM
00163 M00S00153.1ds +++|*CALL COMSPRD
00164 M00S00154.1ds +++|*CALL COMSTCM
00165 M00S00155.1ds +++|*CALL COMSWEI
00166 M00S00156.1ds +++|*CALL COMSZOL
00167 M00S00157.1ds +++| QUAL 1DS
00168 M00S00158.1ds +++| LIST X
00169 M00S00159.1ds +++|*CALL COMS1DS
00170 M00S00160.1ds +++| LIST *
00171 M00S00161.1ds +++| QUAL *
00172 M00S00162.1ds +++|*CALL COMS1MV
00173 M00S00163.1ds +++| TITLE MACRO DEFINITIONS.
00174 M00S00164.1ds +++| BIODF SPACE 4,20
00175 M00S00165.1ds +++|** BIODF - DEFINE *BIO* DEVICE/FUNCTIONS.
00176 M00S00166.1ds +++|*
00177 M00S00167.1ds +++|* BIODF FUNC,(DV,DV,...DV)
00178 M00S00168.1ds +++|*
00179 M00S00169.1ds +++|* ENTRY *FUNC* = *BIO* REQUEST FUNCTION.
00180 M00S00170.1ds +++|* *DV* = DEVICE TYPE.
00181 M00S00171.1ds +++|*
00182 M00S00172.1ds +++|* THIS MACRO WORKS LIKE THE *INDEX* MACRO DEFINED IN *COMPMAC*.
00183 M00S00173.1ds +++|* IT IS USED TO GENERATE A TABLE OF ALLOWABLE DEVICES FOR
00184 M00S00174.1ds +++|* REQUESTS TO *BIO*. ENTRIES IN THE TABLE ARE PLACED
00185 M00S00175.1ds +++|* BETWEEN THE FIRST *BIODF* AND LAST *BIODF* SHOWN BELOW.
00186 M00S00176.1ds +++|*
00187 M00S00177.1ds +++|*TAG BIODF
00188 M00S00178.1ds +++|* .
00189 M00S00179.1ds +++|* .
00190 M00S00180.1ds +++|* BIODF MAXFUNC
00191 M00S00181.1ds +++|*
00192 M00S00182.1ds +++|* MACROS .1.
00193 M00S00183.1ds +++|
00194 M00S00184.1ds +++|
00195 M00S00185.1ds +++| PURGMAC BIODF
00196 M00S00186.1ds +++|
00197 M00S00187.1ds +++| MACRO BIODF,A,B,C
00198 M00S00188.1ds +++| MACREF BIODF
00199 M00S00189.1ds +++| IFC NE,$A$$
00200 M00S00190.1ds +++| A BSS 0
00201 M00S00191.1ds +++| .3 SET A
00202 M00S00192.1ds +++| ELSE 8
00203 M00S00193.1ds +++| ORG .3+/BIO/_B
00204 M00S00194.1ds +++| IFC NE,$C$$,5
00205 M00S00195.1ds +++| QUAL BIO
00206 M00S00196.1ds +++| LOC B
00207 M00S00197.1ds +++| .1 (C)
00208 M00S00198.1ds +++| CON .1
00209 M00S00199.1ds +++| QUAL *
00210 M00S00200.1ds +++| BSS 0
00211 M00S00201.1ds +++| BIODF ENDM
Line S00001 Modification History
M01 (Added by) ns2680
Seq # *Modification Id* Act
----------------------------+
00212 M01S00001.ns2680 +++| CHKERR SPACE 4,10
00213 M01S00002.ns2680 +++|** CHKERR - CHECK ERROR FLAG.
00214 M01S00003.ns2680 +++|*
00215 M01S00004.ns2680 +++|* RETURNS BYTE ONE OF *STSW*.
00216 M01S00005.ns2680 +++|
00217 M01S00006.ns2680 +++|
00218 M01S00007.ns2680 +++| PURGMAC CHKERR
00219 M01S00008.ns2680 +++|
00220 M01S00009.ns2680 +++| CHKERR MACRO
00221 M01S00010.ns2680 +++| MACREF CHKERR
00222 M01S00011.ns2680 +++| LDD CP
00223 M01S00012.ns2680 +++| ADK STSW
00224 M01S00013.ns2680 +++| CRD CM
00225 M01S00014.ns2680 +++| LDD CM+1
00226 M01S00015.ns2680 +++| ENDM
00227 M00S00202.1ds +++| FCN SPACE 4,10
00228 M00S00203.1ds +++|** FCN - DEFINE FUNCTION PROCESSOR.
00229 M00S00204.1ds +++|*
00230 M00S00205.1ds +++|* FCN CODE,NAME
00231 M00S00206.1ds +++|*
00232 M00S00207.1ds +++|* ENTRY *CODE* = FUNCTION CODE.
00233 M00S00208.1ds +++|* *NAME* = FUNCTION PROCESSING ROUTINE NAME.
00234 M00S00209.1ds +++|
00235 M00S00210.1ds +++|
00236 M00S00211.1ds +++| FCN MACRO C,N
00237 M00S00212.1ds +++| INDEX C*2,N-N/10000B*10000B
00238 M00S00213.1ds +++| CON N/10000B
00239 M00S00214.1ds +++| ENDM
00240 M00S00215.1ds +++| OVERLAY SPACE 4,10
00241 M00S00216.1ds +++|** OVERLAY - DEFINE THE SECONDARY OVERLAY(S).
00242 M00S00217.1ds +++|*
00243 M00S00218.1ds +++|* OVERLAY (TEXT)
00244 M00S00219.1ds +++|* ENTRY *TEXT* = TEXT OF SUBTITLE.
00245 M00S00220.1ds +++|
00246 M00S00221.1ds +++|
00247 M00S00222.1ds +++| .N SET 0
00248 M00S00223.1ds +++| OVLB MICRO 1,, 2D OVERLAY NAME
00249 M00S00224.1ds +++|
00250 M00S00225.1ds +++|
00251 M00S00226.1ds +++| PURGMAC OVERLAY
00252 M00S00227.1ds +++|
00253 M00S00228.1ds +++| OVERLAY MACRO TEXT
00254 M00S00229.1ds +++| MACREF OVERLAY
00255 M00S00230.1ds +++| QUAL
00256 M00S00231.1ds +++| .N SET .N+1
00257 M00S00232.1ds +++| .M MICRO .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789
00258 M00S00233.1ds +++| .O MICRO 1,3, "OVLB"".M"
00259 M00S00234.1ds +++| QUAL ".O"
00260 M00S00235.1ds +++| TTL 1DS/".O" - TEXT
00261 M00S00236.1ds +++| TITLE
00262 M00S00237.1ds +++| IDENT ".O",OVLA TEXT
00263 M00S00238.1ds +++|*COMMENT 1DS - TEXT
Line S00239 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00264 M01S00239.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00002 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00265 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00266 M00S00240.1ds +++| ORG OVLA
00267 M00S00241.1ds +++| LJM * ENTRY/EXIT
00268 M00S00242.1ds +++| UJN *-2 OVERLAY EXIT ADDRESS
00269 M00S00243.1ds +++| ENDM
00270 M00S00244.1ds +++| SUBSYST SPACE 4,10
00271 M00S00245.1ds +++|** SUBSYST - GENERATE SUBSYSTEM TABLE.
00272 M00S00246.1ds +++|*
00273 M00S00247.1ds +++|* SUBSYST NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT
00274 M00S00248.1ds +++|*
00275 M00S00249.1ds +++|* ENTRY *NAME* = 3 CHARACTER SUBSYSTEM NAME.
00276 M00S00250.1ds +++|* *ID* = SUBSYSTEM ID.
00277 M00S00251.1ds +++|* *PP* = NAME OF PP, IF PP INITIATED SUBSYSTEM.
00278 M00S00252.1ds +++|* *AUTO* = *AUTO* IF *AUTO* ENABLED SUBSYSTEM.
00279 M00S00253.1ds +++|
00280 M00S00254.1ds +++| PURGMAC SUBSYST
00281 M00S00255.1ds +++|
00282 M00S00256.1ds +++| SUBSYST MACRO NM,ID,PT,PP,AU,DF,DC,CP,PR,AB
00283 M00S00257.1ds +++| .SUB RMT
00284 M00S00258.1ds +++| IAS.NM EQU * TAG FOR TABLE ENTRY
00285 M00S00259.1ds +++| VFD 18/3L_NM NAME
00286 M00S00260.1ds +++| .A IFC EQ,$PP$$
00287 M00S00261.1ds +++| VFD 1/0 PPU FLAG
00288 M00S00262.1ds +++| .A ELSE
00289 M00S00263.1ds +++| VFD 1/1 PPU FLAG
00290 M00S00264.1ds +++| .A ENDIF
00291 M00S00265.1ds +++| .B IFC EQ,$AU$AUTO$
00292 M00S00266.1ds +++| VFD 1/1 AUTO FLAG
00293 M00S00267.1ds +++| .B ELSE
00294 M00S00268.1ds +++| VFD 1/0 AUTO FLAG
00295 M00S00269.1ds +++| .B ENDIF
00296 M00S00270.1ds +++| .1 SET MXSI-ID
00297 M00S00271.1ds +++| .2 SET .1/12D
00298 M00S00272.1ds +++| .3 SET 4-.2
00299 M00S00273.1ds +++| .4 DECMIC .1-12D*.2
00300 M00S00274.1ds +++| .5 SET 1S".4"
00301 M00S00275.1ds +++| VFD 4/.3 *SSSL* BYTE
00302 M00S00276.1ds +++| VFD 12/ID SSID
00303 M00S00277.1ds +++| VFD 12/.5 *SSSL* MASK
00304 M00S00278.1ds +++| .C IFC EQ,$NM$CMS$
00305 M00S00279.1ds +++| VFD 12/NOQF*100+7
00306 M00S00280.1ds +++| .C ELSE
00307 M00S00281.1ds +++| VFD 12/0
00308 M00S00282.1ds +++| .C ENDIF
00309 M00S00283.1ds +++| IASBE EQU *-IAS.NM
00310 M00S00284.1ds +++| .SUB RMT
00311 M00S00285.1ds +++| SUBSYST ENDM
00312 M00S00286.1ds +++| ENTRY SPACE 4,10
00313 M00S00287.1ds +++|** ENTRY - DEFINE OVERLAY ENTRY POINT.
00314 M00S00288.1ds +++|*
00315 M00S00289.1ds +++|* NAME ENTRY
00316 M00S00290.1ds +++|* NAME = NAME OF ENTRY ADDRESS.
00317 M00S00291.1ds +++|
00318 M00S00292.1ds +++|
00319 M00S00293.1ds +++| PURGMAC ENTRY
00320 M00S00294.1ds +++|
00321 M00S00295.1ds +++| MACRO ENTRY,NAME
00322 M00S00296.1ds +++| MACREF ENTRY
00323 M00S00297.1ds +++| QUAL
00324 M00S00298.1ds +++| NAME_X LJM * EXIT ADDRESS
00325 M00S00299.1ds +++| NAME EQU *-1+.N*10000B
00326 M00S00300.1ds +++| .NAME EQU NAME-.N*10000B ENTRY ADDRESS WITHIN OVERLAY
00327 M00S00301.1ds +++| QUAL *
00328 M00S00302.1ds +++| ENDM
00329 M00S00303.1ds +++| TITLE MAIN PROGRAM.
00330 M00S00304.1ds +++|** IDS - MAIN PROGRAM.
00331 M00S00305.1ds +++|
00332 M00S00306.1ds +++|
00333 M00S00307.1ds +++| ORG PPFW
Line S00308 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00334 M01S00308.1ds21 ---| IDS RJM PRS PRESET PROGRAM
00335 M01S00309.1ds21 ---| LDM TRQP+1,CM CHECK OVERLAY LOAD
Line S00001 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00336 M01S00001.1ds21 +++| IDS RJM /PRESET/PRS PRESET PROGRAM
00337 M01S00002.1ds21 +++| LDM /PRESET/TRQP+1,CM CHECK OVERLAY LOAD
00338 M00S00310.1ds +++| ZJN IDS1 IF OVERLAY NOT NEEDED
00339 M00S00311.1ds +++| LMC 2L"OVLB" LOAD OVERLAY
00340 M00S00312.1ds +++| RJM EXR
00341 M00S00313.1ds +++| IDS1 RJM * PROCESS FUNCTION
00342 M00S00314.1ds +++| IDSA EQU *-1
00343 M00S00315.1ds +++| IDS2 RJM LKC LOG COMMAND
00344 M00S00316.1ds +++| LDC 0
00345 M00S00317.1ds +++| IDSB EQU *-1
00346 M00S00318.1ds +++| ZJN IDS3 IF NO JOBS ENTERED
00347 M00S00319.1ds +++| LDC INWL CHECK CHECKPOINT IN PROGRESS FLAG
00348 M00S00320.1ds +++| CRD CN
00349 M00S00321.1ds +++| LDD CN+4
00350 M00S00322.1ds +++| LPN 20
00351 M00S00323.1ds +++| NJN IDS3 IF CHECKPOINT IN PROGRESS
00352 M00S00324.1ds +++| LDN 1
00353 M00S00325.1ds +++| STD CM+2
00354 M00S00326.1ds +++| MONITOR RSJM REQUEST SCHEDULER
00355 M00S00327.1ds +++| LDN **
00356 M00S00328.1ds +++| IDSE EQU *-1
00357 M00S00329.1ds +++| NJN IDS4 IF PP NOT TO BE DROPPED
00358 M00S00330.1ds +++| IDS3 MONITOR DPPM DROP PP
00359 M00S00331.1ds +++| IDS4 LJM PPR EXIT TO PP RESIDENT
00360 M00S00332.1ds +++|
00361 M00S00333.1ds +++|
00362 M00S00334.1ds +++| IDSC CON 0 ORIGINAL (IR+2)
00363 M00S00335.1ds +++| IDSD CON 0 *DSD* REPLY STATUS
00364 M00S00336.1ds +++| TITLE RESIDENT SUBROUTINES.
Line S00003 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00365 M01S00003.1ds21 +++| CSS SPACE 4,10
00366 M01S00004.1ds21 +++|** CSS - CHECK SUBSYSTEM STATUS.
00367 M01S00005.1ds21 +++|*
00368 M01S00006.1ds21 +++|* ENTRY (A) = SUBSYSTEM ID.
00369 M01S00007.1ds21 +++|* (CP) = SUBSYSTEM CPA ADDRESS.
00370 M01S00008.1ds21 +++|*
Line S00009 Modification History
M01 (Added by) 1ds21
M02 (Removed by) ns2748a
Seq # *Modification Id* Act
----------------------------+
00371 M02S00009.ns2748a ---|* ERROR TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
Line S00001 Modification History
M01 (Added by) ns2748a
Seq # *Modification Id* Act
----------------------------+
00372 M01S00001.ns2748a +++|* EXIT (A) = 0, IF SUBSYSTEM ACTIVE.
00373 M01S00002.ns2748a +++|* TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
Line S00010 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00374 M01S00010.1ds21 +++|*
00375 M01S00011.1ds21 +++|* USES T7, CM - CM+4.
00376 M01S00012.1ds21 +++|
00377 M01S00013.1ds21 +++|
00378 M01S00014.1ds21 +++| CSS SUBR ENTRY/EXIT
00379 M01S00015.1ds21 +++| STD T7
00380 M01S00016.1ds21 +++| LDD CP
00381 M01S00017.1ds21 +++| ADN JCIW
00382 M01S00018.1ds21 +++| CRD CM
00383 M01S00019.1ds21 +++| LDD CM+2
00384 M01S00020.1ds21 +++| LMD T7
00385 M01S00021.1ds21 +++| ZJN CSSX IF CORRECT SUBSYSTEM
00386 M01S00022.1ds21 +++| LJM IDS2 DROP PP
00387 M00S00337.1ds +++| FAS SPACE 4,10
00388 M00S00338.1ds +++|** FAS - FORMAT AND SEND ACCOUNT FILE MESSAGE.
00389 M00S00339.1ds +++|*
00390 M00S00340.1ds +++|* FORMAT AND SEND *DSD* MESSAGE TO ACCOUNT DAYFILE
00391 M00S00341.1ds +++|* AND/OR ERROR LOG AND/OR SYSTEM DAYFILE.
00392 M00S00342.1ds +++|*
00393 M00S00343.1ds +++|* ENTRY (IDSC) = LOGGING CONTROL BITS.
00394 M00S00344.1ds +++|* (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ .
00395 M00S00345.1ds +++|* (BUF+2 - BUF+61) = DSD KEYBOARD DATA.
00396 M00S00346.1ds +++|*
00397 M00S00347.1ds +++|* CALLS DFM, RPK.
00398 M00S00348.1ds +++|
00399 M00S00349.1ds +++|
00400 M00S00350.1ds +++| FAS SUBR ENTRY/EXIT
Line S00351 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00401 M01S00351.1ds21 ---| LDC BUF+2 READ AND PACK KEYBOARD BUFFER
Line S00023 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00402 M01S00023.1ds21 +++| LDC /OVERLAY/BUF+2 READ AND PACK KEYBOARD BUFFER
00403 M00S00352.1ds +++| RJM RPK
00404 M00S00353.1ds +++| LDN ZERL CLEAR LAST WORD
Line S00354 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00405 M01S00354.1ds21 ---| CRM BUF+31,ON
Line S00024 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00406 M01S00024.1ds21 +++| CRM /OVERLAY/BUF+31,ON
00407 M00S00355.1ds +++| LDC 2RDS PLACE HEADER ON MESSAGE
Line S00356 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00408 M01S00356.1ds21 ---| STM BUF
Line S00025 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00409 M01S00025.1ds21 +++| STM /OVERLAY/BUF
00410 M00S00357.1ds +++| LDC 2R,
Line S00358 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00411 M01S00358.1ds21 ---| STM BUF+1
Line S00026 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00412 M01S00026.1ds21 +++| STM /OVERLAY/BUF+1
00413 M00S00359.1ds +++| LDM IDSC
00414 M00S00360.1ds +++| SHN 21-6
00415 M00S00361.1ds +++| PJN FAS1 IF ERROR LOG NOT SELECTED
Line S00362 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00416 M01S00362.1ds21 ---| LDC BUF+ERLN SEND TO ERROR LOG
Line S00027 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00417 M01S00027.1ds21 +++| LDC /OVERLAY/BUF+ERLN SEND TO ERROR LOG
00418 M00S00363.1ds +++| RJM DFM
00419 M00S00364.1ds +++| FAS1 LDM IDSC
00420 M00S00365.1ds +++| SHN 21-7
00421 M00S00366.1ds +++| PJN FAS2 IF SYSTEM DAYFILE NOT SELECTED
Line S00367 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00422 M01S00367.1ds21 ---| LDC BUF+NMSN
Line S00028 Modification History
M01 (Added by) 1ds21
M02 (Removed by) 1ds31
Seq # *Modification Id* Act
----------------------------+
00423 M02S00028.1ds31 ---| LDC /OVERLAY/BUF+NMSN
Line S00001 Modification History
M01 (Added by) 1ds31
Seq # *Modification Id* Act
----------------------------+
00424 M01S00001.1ds31 +++| LDC /OVERLAY/BUF+MDON
00425 M00S00368.1ds +++| RJM DFM
00426 M00S00369.1ds +++| FAS2 LDM IDSC
00427 M00S00370.1ds +++| SHN 21-10
00428 M00S00371.1ds +++| PJN FAS3 IF ACCOUNT FILE NOT SELECTED
00429 M00S00372.1ds +++| LDN ZERL CLEAR LAST WORD
Line S00373 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00430 M01S00373.1ds21 ---| CRM BUFB+31,ON
00431 M01S00374.1ds21 ---| LDC BUFB+ACFN
Line S00029 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00432 M01S00029.1ds21 +++| CRM /OVERLAY/BUFB+31,ON
00433 M01S00030.1ds21 +++| LDC /OVERLAY/BUFB+ACFN
00434 M00S00375.1ds +++| RJM DFM
00435 M00S00376.1ds +++| FAS3 LJM FASX EXIT
00436 M00S00377.1ds +++| LKC SPACE 4,10
00437 M00S00378.1ds +++|** LKC - LOG KEYBOARD COMMAND.
00438 M00S00379.1ds +++|*
00439 M00S00380.1ds +++|* ENTRY (IDSC) = ORIGINAL IR+2.
00440 M00S00381.1ds +++|*
00441 M00S00382.1ds +++|* EXIT (IR+4) = 0.
00442 M00S00383.1ds +++|*
00443 M00S00384.1ds +++|* USES IR+4, CM - CM+4.
00444 M00S00385.1ds +++|*
00445 M00S00386.1ds +++|* CALLS FAS.
00446 M00S00387.1ds +++|
00447 M00S00388.1ds +++|
00448 M00S00389.1ds +++| LKC SUBR ENTRY/EXIT
00449 M00S00390.1ds +++| LDM IDSC SET LOGGING PARAMETER
00450 M00S00391.1ds +++| LPC 700
00451 M00S00392.1ds +++| ZJN LKC1 IF NO LOGGING REQUIRED
00452 M00S00393.1ds +++| LDN 0
00453 M00S00394.1ds +++| STD IR+4
00454 M00S00395.1ds +++| RJM FAS PROCESS LOGGING
00455 M00S00396.1ds +++| LKC1 LDM IDSC
00456 M00S00397.1ds +++| LPC 1700
00457 M00S00398.1ds +++| ZJN LKCX IF INTERLOCK NOT SET
00458 M00S00399.1ds +++| LMM IDSC
00459 M00S00400.1ds +++| STM IDSC
00460 M00S00401.1ds +++| LDM IDSD *DSD* REPLY
00461 M00S00402.1ds +++| STD T7
00462 M00S00403.1ds +++| LDN ZERL CLEAR INTERLOCK
00463 M00S00404.1ds +++| CRD CM
00464 M00S00405.1ds +++| ADN /1DS/DSDL+1-ZERL
00465 M00S00406.1ds +++| CWD T7
00466 M00S00407.1ds +++| SBN 1
00467 M00S00408.1ds +++| CWD CM
00468 M00S00409.1ds +++| UJN LKCX RETURN
00469 M00S00410.1ds +++| RPK SPACE 4,10
00470 M00S00411.1ds +++|** RPK - READ AND PACK KEYBOARD BUFFER.
00471 M00S00412.1ds +++|*
00472 M00S00413.1ds +++|* ENTRY (A) = DESTINATION ADDRESS.
00473 M00S00414.1ds +++|* (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ .
00474 M00S00415.1ds +++|*
00475 M00S00416.1ds +++|* USES S1, S2, T0.
00476 M00S00417.1ds +++|
00477 M00S00418.1ds +++|
00478 M00S00419.1ds +++| RPK SUBR ENTRY/EXIT
00479 M00S00420.1ds +++| STD S1 SAVE ADDRESS
00480 M00S00421.1ds +++| LDN /1DS/KBCML
00481 M00S00422.1ds +++| STD S2
00482 M00S00423.1ds +++| LDC /1DS/DSDL
00483 M00S00424.1ds +++| CRM BFMS+100D,S2
00484 M00S00425.1ds +++| LDN ZERL
00485 M00S00426.1ds +++| CRM BFMS+100D+/1DS/KBCML*5,ON
00486 M00S00427.1ds +++| LDD IR+4 SET KEYBOARD ADDRESS
00487 M00S00428.1ds +++| SHN -6
00488 M00S00429.1ds +++| ADC BFMS+100D
00489 M00S00430.1ds +++| STD S2
00490 M00S00431.1ds +++| LDN /1DS/KBCML*5/2
00491 M00S00432.1ds +++| STD T0
00492 M00S00433.1ds +++| RPK1 LDI S2 PACK NEXT TWO CHARACTERS
00493 M00S00434.1ds +++| SHN 6
00494 M00S00435.1ds +++| LMM 1,S2
00495 M00S00436.1ds +++| STI S1
00496 M00S00437.1ds +++| ZJN RPK2 IF END OF MESSAGE
00497 M00S00438.1ds +++| LDN 2
00498 M00S00439.1ds +++| RAD S2
00499 M00S00440.1ds +++| RPK2 AOD S1
00500 M00S00441.1ds +++| SOD T0
00501 M00S00442.1ds +++| PJN RPK1 IF MORE DATA TO PACK
00502 M00S00443.1ds +++| LDD S1 READ ONE CM WORD OF ZERO
00503 M00S00444.1ds +++| STM RPKA
00504 M00S00445.1ds +++| LDN ZERL
00505 M00S00446.1ds +++| CRM *,ON
00506 M00S00447.1ds +++| RPKA EQU *-1
00507 M00S00448.1ds +++| LJM RPKX EXIT
Line S00004 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
00508 M01S00004.271l716 +++| SCP SPACE 4,10
00509 M01S00005.271l716 +++|** SCP - SET CP/PCP AREA ADDRESS.
00510 M01S00006.271l716 +++|*
00511 M01S00007.271l716 +++|* ENTRY (A) = CP/PCP NUMBER.
00512 M01S00008.271l716 +++|* (NC) = SYSTEM CP NUMBER.
00513 M01S00009.271l716 +++|*
00514 M01S00010.271l716 +++|* EXIT (A) = CPA/PCPA ADDRESS.
00515 M01S00011.271l716 +++|
00516 M01S00012.271l716 +++|
00517 M01S00013.271l716 +++| SCP1 ADD NC SET REAL CP AREA ADDRESS
00518 M01S00014.271l716 +++| SHN 7
00519 M01S00015.271l716 +++|
00520 M01S00016.271l716 +++| SCP SUBR ENTRY/EXIT
00521 M01S00017.271l716 +++| SBD NC
00522 M01S00018.271l716 +++| MJN SCP1 IF REAL CP
00523 M01S00019.271l716 +++| ZJN SCP1 IF SYSTEM CP
00524 M01S00020.271l716 +++| SBN 1 SET PCP AREA ORDINAL
00525 M01S00021.271l716 +++| SHN 7
00526 M01S00022.271l716 +++| ADC 0 ADD BASE PCPA ADDRESS
00527 M01S00023.271l716 +++| SCPA EQU *-1
00528 M01S00024.271l716 +++| UJN SCPX RETURN
00529 M00S00449.1ds +++| SRD SPACE 4,10
00530 M00S00450.1ds +++|** SRD - SAVE REPLY TO *DSD*.
00531 M00S00451.1ds +++|*
00532 M00S00452.1ds +++|* ENTRY (A) = 0 IF POSITIVE REPLY TO *DSD*.
00533 M00S00453.1ds +++|*
00534 M00S00454.1ds +++|* EXIT (IDSD) = *DSD* REPLY.
00535 M00S00455.1ds +++|* (IDSC) LOGGING BITS (6-8) CLEARED IF ERROR RESPONSE.
00536 M00S00456.1ds +++|
00537 M00S00457.1ds +++|
00538 M00S00458.1ds +++| SRD SUBR ENTRY/EXIT
00539 M00S00459.1ds +++| STM IDSD SAVE REPLY
00540 M00S00460.1ds +++| ZJN SRDX IF NO ERROR
00541 M00S00461.1ds +++| LDM IDSC
00542 M00S00462.1ds +++| LPC -700 CLEAR LOGGING
00543 M00S00463.1ds +++| STM IDSC
00544 M00S00464.1ds +++| UJN SRDX RETURN
00545 M00S00465.1ds +++| SPACE 4,10
00546 M00S00466.1ds +++|** COMMON DECKS.
00547 M00S00467.1ds +++|
00548 M00S00468.1ds +++|
00549 M00S00469.1ds +++| QUAL ACS
Line S00470 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00550 M01S00470.1ds21 ---| QUAL$ EQU 0
Line S00031 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00551 M01S00031.1ds21 +++| QUAL$ EQU 0 DO NOT FURTHER QUALIFY *ACS*
00552 M00S00471.1ds +++| T2 EQU LA
00553 M00S00472.1ds +++|*CALL COMPACS
00554 M00S00473.1ds +++| QUAL *
00555 M00S00474.1ds +++| ACS EQU /ACS/ACS
00556 M00S00475.1ds +++|*CALL COMPCLD
00557 M00S00476.1ds +++|*CALL COMPC2D
00558 M00S00477.1ds +++|*CALL COMPCTI
00559 M00S00478.1ds +++| RND$ EQU 1 SELECT ROUNDING FOR *COMPDV5*
00560 M00S00479.1ds +++|*CALL COMPDV5
Line S00032 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00561 M01S00032.1ds21 +++| EJT$ EQU 1 EJT SEARCH
00562 M01S00033.1ds21 +++| FNT$ EQU 1 FNT SEARCH
00563 M01S00034.1ds21 +++| IFP$ EQU 1 *COMPGFP* REMOTE ASSEMBLY
Line S00001 Modification History
M01 (Added by) 271l750
Seq # *Modification Id* Act
----------------------------+
00564 M01S00001.271l750 +++| JCB$ EQU 1 JCB SEARCH
Line S00035 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00565 M01S00035.1ds21 +++| QFT$ EQU 1 QFT SEARCH
00566 M01S00036.1ds21 +++|*CALL COMPGFP
Line S00001 Modification History
M01 (Added by) ns2684
Seq # *Modification Id* Act
----------------------------+
00567 M01S00001.ns2684 +++| SFI$ EQU 1 SELECT CALLER DELAY PROCESSING
00568 M01S00002.ns2684 +++|*CALL COMPSFI TABLE INTERLOCK
00569 M00S00480.1ds +++|*CALL COMPSTI
00570 M00S00481.1ds +++|*CALL COMPTGB
00571 M00S00482.1ds +++|*CALL COMPTLB
Line S00483 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
00572 M01S00483.ns2663 ---|*CALL COMPWEI
00573 M00S00484.1ds +++| WCS$ EQU 1 CONSECUTIVE SECTORS AFTER SYSTEM SECTOR
00574 M00S00485.1ds +++|*CALL COMPWSS
Line S00037 Modification History
M01 (Added by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00575 M01S00037.1ds21 +++| SPACE 4,10
00576 M01S00038.1ds21 +++| OVLA EQU *+5 ORIGIN OF OVERLAY AREA
00577 M01S00039.1ds21 +++| TITLE OVERLAYABLE SUBROUTINES.
00578 M01S00040.1ds21 +++| QUAL OVERLAY
00579 M00S00486.1ds +++| CCF SPACE 4,15
00580 M00S00487.1ds +++|** CCF - CLEAR CHECKPOINT FLAGS.
00581 M00S00488.1ds +++|*
00582 M00S00489.1ds +++|* THIS ROUTINE CLEARS THE *VALID CHECKPOINT
00583 M00S00490.1ds +++|* FILE* FLAG IN THE SECTOR OF LOCAL AREAS FOR
00584 M00S00491.1ds +++|* EACH CHECKPOINT DEVICE. THIS PREVENTS
00585 M00S00492.1ds +++|* LEVEL 1 AND 2 RECOVERY DEADSTART FROM
00586 M00S00493.1ds +++|* AN OBSOLETE CHECKPOINT FILE.
00587 M00S00494.1ds +++|*
00588 M00S00495.1ds +++|* USES T6, AB - AB+4, CM - CM+4, CN - CN+4,
00589 M00S00496.1ds +++|* FN - FN+4, FS - FS+4.
00590 M00S00497.1ds +++|*
00591 M00S00498.1ds +++|* CALLS CSB, LKC.
00592 M00S00499.1ds +++|*
00593 M00S00500.1ds +++|* MACROS SFA.
00594 M00S00501.1ds +++|
00595 M00S00502.1ds +++|
00596 M00S00503.1ds +++| CCF SUBR ENTRY/EXIT
00597 M00S00504.1ds +++| RJM LKC LOG KEYBOARD COMMAND
00598 M00S00505.1ds +++| CCF1 LDN JSCL READ SCHEDULER CONTROL WORD
00599 M00S00506.1ds +++| CRD AB
00600 M00S00507.1ds +++| LDD AB
00601 M00S00508.1ds +++| SHN 21-13
00602 M00S00509.1ds +++| PJN CCF2 IF SCHEDULER ACTIVE
00603 M00S00510.1ds +++| DELAY
00604 M00S00511.1ds +++| UJN CCF1 WAIT UNTIL SCHEDULER ACTIVE
00605 M00S00512.1ds +++|
00606 M00S00513.1ds +++| CCF2 LDK ESTP GET LAST MASS STORAGE EST ORDNAL+1
00607 M00S00514.1ds +++| CRD AB
00608 M00S00515.1ds +++| ADK MMFL-ESTP
00609 M00S00516.1ds +++| CRD FN
00610 M00S00517.1ds +++| LDN NOPE-1 INITIALIZE EST ORDINAL
00611 M00S00518.1ds +++| STD S1
00612 M00S00519.1ds +++| CCF3 AOD S1 ADVANCE EST ORDINAL
00613 M00S00520.1ds +++| STD T5
00614 M00S00521.1ds +++| LMD AB+3
00615 M00S00522.1ds +++| ZJN CCFX IF END OF MASS STORAGE DEVICES
00616 M00S00523.1ds +++| SFA EST,S1 READ EST ENTRY
00617 M00S00524.1ds +++| ADK EQDE
00618 M00S00525.1ds +++| CRD FS
00619 M00S00526.1ds +++| LDD FS
00620 M00S00527.1ds +++| SHN 21-13
00621 M00S00528.1ds +++| PJN CCF3 IF NOT MASS STORAGE DEVICE
00622 M00S00529.1ds +++| SHN 13-2
00623 M00S00530.1ds +++| PJN CCF3 IF NOT CHECKPOINT DEVICE
00624 M00S00531.1ds +++| LDD FS+4
00625 M00S00532.1ds +++| SHN 3
00626 M00S00533.1ds +++| ADK ACGL
00627 M00S00534.1ds +++| CRD CN
00628 M00S00535.1ds +++| ADK ALGL-ACGL
00629 M00S00536.1ds +++| CRD CM
00630 M00S00537.1ds +++| LDD CM+1 SET LABEL TRACK FOR *CSB*
00631 M00S00538.1ds +++| STD T6
00632 M00S00539.1ds +++| RJM CSB CLEAR SLA BIT
00633 M00S00540.1ds +++| UJN CCF3 PROCESS NEXT DEVICE
00634 M00S00541.1ds +++| CCI SPACE 4,15
00635 M00S00542.1ds +++|** CCI - COMPLETE COMMAND IMAGE.
00636 M00S00543.1ds +++|*
00637 M00S00544.1ds +++|* ENTRY (A) = ADDRESS OF COMMAND COMPLETION IN *C* FORMAT.
00638 M00S00545.1ds +++|* (CA) = FWA OF COMMAND BUFFER.
00639 M00S00546.1ds +++|*
00640 M00S00547.1ds +++|* EXIT (T1) = BUFFER ADDRESS FOR NEXT COMMAND.
00641 M00S00548.1ds +++|*
00642 M00S00549.1ds +++|* ERROR TO *IDS2* IF FULL SECTOR.
00643 M00S00550.1ds +++|*
00644 M00S00551.1ds +++|* USES T1.
00645 M00S00552.1ds +++|*
00646 M00S00553.1ds +++|* CALLS ACS, DV5.
00647 M00S00554.1ds +++|
00648 M00S00555.1ds +++|
00649 M00S00556.1ds +++| CCI2 ADD HN SET ADDRESS FOR NEXT COMMAND
00650 M00S00557.1ds +++| STD T1
00651 M00S00558.1ds +++| SHN 2
00652 M00S00559.1ds +++| ADD CA
00653 M00S00560.1ds +++| RAD T1
00654 M00S00561.1ds +++|
00655 M00S00562.1ds +++| CCI SUBR ENTRY/EXIT
00656 M00S00563.1ds +++| RJM ACS ASSEMBLE CHARACTER STRING
00657 M00S00564.1ds +++| LDI T1
00658 M00S00565.1ds +++| ZJN CCI1 IF ASSEMBLY ON BYTE BOUNDARY
00659 M00S00566.1ds +++| AOD T1
00660 M00S00567.1ds +++| CCI1 AOD T1 CALCULATE CM WORD COUNT
00661 M00S00568.1ds +++| SBD CA
00662 M00S00569.1ds +++| RJM DV5
00663 M00S00570.1ds +++| STM -1,CA SET WORD COUNT IN LINKAGE
00664 M00S00571.1ds +++| SBD HN
00665 M00S00572.1ds +++| MJN CCI2 IF NOT FULL SECTOR
00666 M00S00573.1ds +++| LJM IDS2 DROP PP
00667 M00S00574.1ds +++| CSB SPACE 4,15
00668 M00S00575.1ds +++|** CSB - CLEAR SLA BIT.
00669 M00S00576.1ds +++|*
00670 M00S00577.1ds +++|* ENTRY (T5) = CHECKPOINT DEVICE EST ORDINAL.
00671 M00S00578.1ds +++|* (T6) = LABEL TRACK.
00672 M00S00579.1ds +++|* (CN - CN+4) = *ACGL* WORD OF MST.
00673 M00S00580.1ds +++|* (FN - FN+4) = *MMFL*.
00674 M00S00581.1ds +++|*
00675 M00S00582.1ds +++|* USES T1, T2, T7.
00676 M00S00583.1ds +++|*
00677 M00S00584.1ds +++|* CALLS CTI, RDS, STI, WDS.
00678 M00S00585.1ds +++|*
00679 M00S00586.1ds +++|* MACROS ENDMS, SETMS.
00680 M00S00587.1ds +++|
00681 M00S00588.1ds +++|
00682 M00S00589.1ds +++| CSB3 ENDMS
00683 M00S00590.1ds +++| CSB4 LDD T6 CLEAR TRACK INTERLOCK
00684 M00S00591.1ds +++| RJM CTI
00685 M00S00592.1ds +++|
00686 M00S00593.1ds +++| CSB SUBR ENTRY/EXIT
00687 M00S00594.1ds +++| LDD CN+4
00688 M00S00595.1ds +++| LPC MGLAP
00689 M00S00596.1ds +++| ZJN CSBX IF NO SECTOR OF LOCAL AREAS
00690 M00S00597.1ds +++| RJM STI SET LABEL TRACK INTERLOCK
00691 M00S00598.1ds +++| NJN CSBX IF ERROR
00692 M00S00599.1ds +++| LDN /MMF/LMLT SET LOCAL AREA SECTOR
00693 M00S00600.1ds +++| STD T7
00694 M00S00601.1ds +++| SETMS IO,RW
00695 M00S00602.1ds +++| LDC BFMS
00696 M00S00603.1ds +++| RJM RDS
00697 M00S00604.1ds +++| MJN CSB4 IF ERROR
00698 M00S00605.1ds +++| LDM BFMS
00699 M00S00606.1ds +++| ZJN CSB3 IF UNFORMATTED SECTOR
00700 M00S00607.1ds +++| LCN 2*5-1 INITIALIZE ENTRY OFFSET
00701 M00S00608.1ds +++| STD T2
00702 M00S00609.1ds +++| LCN 2-1 INITIALIZE WORD COUNT
00703 M00S00610.1ds +++| STD T1
00704 M00S00611.1ds +++| CSB1 LDN 2*5 ADVANCE ENTRY OFFSET
00705 M00S00612.1ds +++| RAD T2
00706 M00S00613.1ds +++| LDN 2 INCREMENT WORD COUNT
00707 M00S00614.1ds +++| RAD T1
00708 M00S00615.1ds +++| LDD T1
00709 M00S00616.1ds +++| SBM BFMS+1
00710 M00S00617.1ds +++| PJN CSB2 IF NO ENTRY FOR THIS MF
00711 M00S00618.1ds +++| LDM BFMS+2,T2
00712 M00S00619.1ds +++| LMD FN
00713 M00S00620.1ds +++| NJN CSB1 IF ENTRY NOT FOR THIS MF
00714 M00S00621.1ds +++| LDM BFMS+2+1,T2 CLEAR *VALID CHECKPOINT FILE* FLAG
00715 M00S00622.1ds +++| LPC 3777
00716 M00S00623.1ds +++| STM BFMS+2+1,T2
00717 M00S00624.1ds +++| LDC BFMS+WLSF REWRITE SECTOR
00718 M00S00625.1ds +++| RJM WDS
00719 M00S00626.1ds +++| CSB2 LJM CSB3 CLEAR TRACK INTERLOCK
Line S00627 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
00720 M01S00627.1ds21 ---| CSS SPACE 4,10
00721 M01S00628.1ds21 ---|** CSS - CHECK SUBSYSTEM STATUS.
00722 M01S00629.1ds21 ---|*
00723 M01S00630.1ds21 ---|* ENTRY (A) = SUBSYSTEM ID.
00724 M01S00631.1ds21 ---|* (CP) = SUBSYSTEM CPA ADDRESS.
00725 M01S00632.1ds21 ---|*
00726 M01S00633.1ds21 ---|* ERROR TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
00727 M01S00634.1ds21 ---|*
00728 M01S00635.1ds21 ---|* USES T7, CM - CM+4.
00729 M01S00636.1ds21 ---|
00730 M01S00637.1ds21 ---|
00731 M01S00638.1ds21 ---| CSS SUBR ENTRY/EXIT
00732 M01S00639.1ds21 ---| STD T7
00733 M01S00640.1ds21 ---| LDD CP
00734 M01S00641.1ds21 ---| ADN JCIW
00735 M01S00642.1ds21 ---| CRD CM
00736 M01S00643.1ds21 ---| LDD CM+2
00737 M01S00644.1ds21 ---| LMD T7
00738 M01S00645.1ds21 ---| ZJN CSSX IF CORRECT SUBSYSTEM
00739 M01S00646.1ds21 ---| LJM IDS2 DROP PP
Line S00647 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
00740 M01S00647.ns2663 ---| EJB SPACE 4,20
Line S00001 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
00741 M01S00001.ns2663 +++| EJB SPACE 4,25
00742 M00S00648.1ds +++|** EJB - ENTER JOB.
00743 M00S00649.1ds +++|*
00744 M00S00650.1ds +++|* ENTRY (BUFA - BUFA+4) = UJN, ZERO-FILLED.
00745 M00S00651.1ds +++|* (BA) = FWA OF COMMAND SECTOR.
00746 M00S00652.1ds +++|* (JS) = JOB SERVICE CLASS.
00747 M00S00653.1ds +++|* (FN - FN+4) = SUBSYSTEM NAME, SPACE-FILLED.
00748 M00S00654.1ds +++|* (EJBC) = FILE TYPE AND STATUS, IF FILE TYPE .NE.
00749 M00S00655.1ds +++|* *INQF*.
00750 M00S00656.1ds +++|* (EJBE) = SUBSYSTEM ID.
00751 M00S00657.1ds +++|* (EJBF - EJBG) = PROCEDURE FILE NAME.
00752 M00S00658.1ds +++|*
00753 M00S00659.1ds +++|* EXIT (A) = 0 IF JOB ENTERED.
00754 M00S00660.1ds +++|* (A) .LT. 0 FOR - QFT FULL / TRACK LIMIT / DISK ERROR.
00755 M00S00661.1ds +++|* (QA) = QFT ORDINAL.
00756 M00S00662.1ds +++|* = 0, IF NO QFT ENTRY WAS ASSIGNED.
00757 M00S00663.1ds +++|* (FN - FN+4) = FIRST WORD OF QFT ENTRY.
00758 M00S00664.1ds +++|*
Line S00665 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
00759 M01S00665.ns2663 ---|* USES QA, CM - CM+4, T1 - T7.
Line S00002 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
00760 M01S00002.ns2663 +++|* USES QA, CM - CM+4, FN - FN+4, T1 - T7.
00761 M00S00666.1ds +++|*
Line S00667 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
00762 M01S00667.ns2663 ---|* CALLS CTE, IAM, RFI, WDS, WEI, WSS.
Line S00003 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
00763 M01S00003.ns2663 +++|* CALLS CTE, RFI, WDS, WEI, WSS, *0QM*.
00764 M00S00668.1ds +++|*
Line S00669 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
00765 M01S00669.ns2663 ---|* MACROS ENDMS, MONITOR, SETMS, SFA.
Line S00004 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
00766 M01S00004.ns2663 +++|* MACROS ENDMS, EXECUTE, MONITOR, SETMS, SFA.
00767 M01S00005.ns2663 +++|*
00768 M01S00006.ns2663 +++|* NOTE THAT THE CONTENTS OF *BUF* STARTING AT *BUFA* WILL BE
00769 M01S00007.ns2663 +++|* OVERLAYED BY THE EOI BUFFER AND *0QM* ON EXIT.
00770 M00S00670.1ds +++|
00771 M00S00671.1ds +++|
00772 M00S00672.1ds +++| EJB SUBR ENTRY/EXIT
00773 M00S00673.1ds +++| LDC 501
00774 M00S00674.1ds +++| STD T7
00775 M00S00675.1ds +++| EJB1 LDN 0 CLEAR SYSTEM SECTOR BUFFER
00776 M00S00676.1ds +++| STM BFMS,T7
00777 M00S00677.1ds +++| SOD T7
00778 M00S00678.1ds +++| NJN EJB1 IF NOT START OF BUFFER
Line S00001 Modification History
M01 (Added by) 1ds26
Seq # *Modification Id* Act
----------------------------+
00779 M01S00001.1ds26 +++| STD QA INITIALIZE QFT ORDINAL
00780 M00S00679.1ds +++| LDN PDTL ENTER CREATION DATE
00781 M00S00680.1ds +++| CRM CDSS,ON
00782 M00S00681.1ds +++| ADN RTCL-PDTL-1 SET ENTRY TIME
00783 M00S00682.1ds +++| CRM IOSS+5*ENTQ+3,ON
00784 M00S00683.1ds +++|
00785 M00S00684.1ds +++|* SET JOB ACCESS LEVEL LIMITS AND ACCESS LEVEL VALIDATION
00786 M00S00685.1ds +++|* BITS TO ALL LEVELS VALID FOR THE SYSTEM. FOR THE
00787 M00S00686.1ds +++|* DEADSTART SEQUENCING JOB, SET ALL LEVELS AND VALIDATIONS,
00788 M00S00687.1ds +++|* REGARDLESS OF SYSTEM LIMITS. A NULL CATEGORY SET WILL BE
00789 M00S00688.1ds +++|* SET FOR ALL JOBS.
00790 M00S00689.1ds +++|
00791 M00S00690.1ds +++| LDN ZERL SET UP *VSAM* FUNCTION
00792 M00S00691.1ds +++| CRD CM
00793 M00S00692.1ds +++| ERRNZ SYOT CODE DEPENDS ON VALUE
00794 M00S00693.1ds +++| CRM IOSS+5*ENTQ+5,ON
00795 M00S00694.1ds +++| LDN 7 REQUEST ALL VALID ACCESS LEVELS
00796 M00S00695.1ds +++| STD CM+3
00797 M00S00696.1ds +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS
00798 M00S00697.1ds +++| STD CM+1
00799 M00S00698.1ds +++| LDD MA SET ALL LEVELS AND VALIDATIONS
00800 M00S00699.1ds +++| CWM EJBL,ON
00801 M00S00700.1ds +++| SBN 1
00802 M00S00701.1ds +++| CRM VASS+5*ASVW,ON
00803 M00S00702.1ds +++| MONITOR VSAM REQUEST VALID LEVELS AND CATEGORIES
00804 M00S00703.1ds +++| LDM EJBE
00805 M00S00704.1ds +++| LMC DSSI
00806 M00S00705.1ds +++| ZJN EJB1.0 IF DEADSTART SEQUENCING JOB
00807 M00S00706.1ds +++| LDD MA SET ONLY VALID LEVELS
00808 M00S00707.1ds +++| CRM VASS+5*ASVW,ON
00809 M00S00708.1ds +++| LDN 0 CLEAR VALIDATION BITS
00810 M00S00709.1ds +++| STM VASS+5*ASVW
00811 M00S00710.1ds +++|
00812 M00S00711.1ds +++|* SET JOB ACCESS LEVEL LIMITS INTO QFT.
00813 M00S00712.1ds +++|
00814 M00S00713.1ds +++| EJB1.0 LDD CM+4 LOWER ACCESS LEVEL LIMIT
00815 M00S00714.1ds +++| SHN 3
00816 M00S00715.1ds +++| LMD CM+2 INITIAL JOB ACCESS LEVEL
00817 M00S00716.1ds +++| SHN 3
00818 M00S00717.1ds +++| LMD CM+3 UPPER ACCESS LEVEL LIMIT
00819 M00S00718.1ds +++| STM IOSS+5*INSQ+3
00820 M00S00719.1ds +++|
00821 M00S00720.1ds +++|* ASSIGN MASS STORAGE FOR FILE.
00822 M00S00721.1ds +++|
00823 M00S00722.1ds +++| LDN ZERL
00824 M00S00723.1ds +++| CRD CM
00825 M00S00724.1ds +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT
00826 M00S00725.1ds +++| SHN -6
00827 M00S00726.1ds +++| ADN 40 SET ACCESS LEVEL SELECTION BIT
00828 M00S00727.1ds +++| SHN 6
00829 M00S00728.1ds +++| STD CM+3
00830 M00S00729.1ds +++| EJBF LDN TNDS SELECT TEMPORARY - NONSHARED DEVICE
00831 M00S00730.1ds +++|* LDN TSDS (SELECT SYSTEM DEVICE)
00832 M00S00731.1ds +++| STD CM+2
00833 M00S00732.1ds +++| MONITOR RTCM REQUEST TRACK CHAIN
00834 M00S00733.1ds +++| LDD CM+4
00835 M00S00734.1ds +++| STM IOSS+5*ENTQ+1
00836 M00S00735.1ds +++| NJN EJB1.1 IF TRACK ASSIGNED
00837 M00S00736.1ds +++| LDD CP ISSUE B-DISPLAY MESSAGE
00838 M00S00737.1ds +++| ADK MS2W
00839 M00S00738.1ds +++| CWM EJBN,TR
00840 M00S00739.1ds +++| LJM EJB2.1 SET QUEUED STATUS
00841 M00S00740.1ds +++|
00842 M00S00741.1ds +++| EJB1.1 STD T6
00843 M00S00742.1ds +++| LDD CM+1 SAVE EQUIPMENT
00844 M00S00743.1ds +++| STD T5
00845 M00S00744.1ds +++| STM IOSS+5*ENTQ
00846 M00S00745.1ds +++| LDC 7777 SET UI=377777
00847 M00S00746.1ds +++|* LDC 0 (SET BY *ICJ*)
00848 M00S00747.1ds +++| EJBA EQU *-1
00849 M00S00748.1ds +++| STD FN+3
00850 M00S00749.1ds +++| LDC 100+37 SET FAMILY ORDINAL=1
00851 M00S00750.1ds +++|* LDC 0 (SET BY *ICJ*)
00852 M00S00751.1ds +++| EJBB EQU *-1
00853 M00S00752.1ds +++| STD FN+2
00854 M00S00753.1ds +++| LDC INQF*100+7 SET FILE TYPE AND STATUS
00855 M00S00754.1ds +++| EJBC EQU *-1
00856 M00S00755.1ds +++| STD FN+4
00857 M00S00756.1ds +++| LDD MA
00858 M00S00757.1ds +++| CWD FN
00859 M00S00758.1ds +++| CRD CM+3
00860 M00S00759.1ds +++| LDD JS
00861 M00S00760.1ds +++| LMN SYSC
00862 M00S00761.1ds +++| ZJN EJB2 IF SYSTEM JOB
00863 M00S00762.1ds +++| LMN SYSC&DSSC
00864 M00S00763.1ds +++| ZJN EJB2 IF DEADSTART SEQUENCING JOB
00865 M00S00764.1ds +++| LMN DSSC&SSSC
00866 M00S00765.1ds +++| ZJN EJB2 IF SUBSYSTEM
00867 M00S00766.1ds +++| LDC -4000
00868 M00S00767.1ds +++| EJB2 ADC 4000 SET SYSTEM JOB FLAG
00869 M00S00768.1ds +++| EJBD ADC PQFT REQUEST QFT ENTRY
00870 M00S00769.1ds +++|* ADC 10000B+PQFT (DISABLE JSN ACQUISITION)
00871 M00S00770.1ds +++| RJM CTE
00872 M00S00771.1ds +++| NJN EJB3 IF ENTRY CREATED
Line S00772 Modification History
M01 (Removed by) 1ds26
Seq # *Modification Id* Act
----------------------------+
00873 M01S00772.1ds26 ---| STD QA INDICATE NO ENTRY WAS ASSIGNED
00874 M00S00773.1ds +++| EJB2.0 LDD T6 SET TRACK
00875 M00S00774.1ds +++| STD CM+2
00876 M00S00775.1ds +++| LDD T5 SET EQUIPMENT
00877 M00S00776.1ds +++| STD CM+1
00878 M00S00777.1ds +++| MONITOR DTKM DROP ALL TRACKS
00879 M00S00778.1ds +++| EJB2.1 LCN 0 SET JOB NOT QUEUED STATUS
00880 M00S00779.1ds +++| LJM EJBX RETURN
00881 M00S00780.1ds +++|
00882 M00S00781.1ds +++| EJB3 CRD FN FIRST WORD OF QFT ENTRY
00883 M00S00782.1ds +++| CRM IOSS,ON
00884 M00S00783.1ds +++| LDM IOSS+JSNQ*5+4 CLEAN UP STATUS FIELD
00885 M00S00784.1ds +++| SCN 17
00886 M00S00785.1ds +++| STM IOSS+JSNQ*5+4
00887 M00S00786.1ds +++| LDD CM+1 SAVE QFT ORDINAL
00888 M00S00787.1ds +++| STD QA
00889 M00S00788.1ds +++| STM GQSS
00890 M00S00789.1ds +++| LDD FN SET JSN
00891 M00S00790.1ds +++| STM OJSS
00892 M00S00791.1ds +++| LDD FN+1
00893 M00S00792.1ds +++| STM OJSS+1
00894 M00S00793.1ds +++| LDD JS SET SERVICE CLASS/JOB ORIGIN TYPE
00895 M00S00794.1ds +++| SHN 6
00896 M00S00795.1ds +++| LMK SYOT
00897 M00S00796.1ds +++| STM IOSS+SCLQ*5
00898 M00S00797.1ds +++| LCN 0 INDICATE NO JOB COMMAND FL
00899 M00S00798.1ds +++| STM JCSS
00900 M00S00799.1ds +++| STM JESS
00901 M00S00800.1ds +++|
00902 M00S00801.1ds +++|* SET SYSTEM SECTOR FIELDS FOR *SYSTEMX* JOB.
00903 M00S00802.1ds +++|
00904 M00S00803.1ds +++| LDD MA SET UN, UI, AND UNLIMITED VALIDATIONS
00905 M00S00804.1ds +++| CWM EJBJ,ON
00906 M00S00805.1ds +++| CWM EJBM,ON
00907 M00S00806.1ds +++| SBN 2
00908 M00S00807.1ds +++| CRM VASS+ACCN*5,ON
00909 M00S00808.1ds +++| CRM VASS+AHMT*5,ON
00910 M00S00809.1ds +++| SBN 1
00911 M00S00810.1ds +++| CRM VASS+AHDS*5,ON
00912 M00S00811.1ds +++| SBN 1
00913 M00S00812.1ds +++| CRM VASS+AAWC*5,ON
00914 M00S00813.1ds +++| LDN IPRL SET DEFAULT KEYPUNCH MODE
00915 M00S00814.1ds +++| CRD CM
00916 M00S00815.1ds +++| LDD CM+2
00917 M00S00816.1ds +++| SHN -13
00918 M00S00817.1ds +++| STM JFSS
00919 M00S00818.1ds +++| LDC DFTL SET DEFAULT TIME LIMIT
00920 M00S00819.1ds +++| STM JTSS+1
00921 M00S00820.1ds +++| SHN -14
00922 M00S00821.1ds +++| STM JTSS
00923 M00S00822.1ds +++| LDC 0 SET SUBSYSTEM ID
00924 M00S00823.1ds +++| EJBE EQU *-1 (SUBSYSTEM ID)
00925 M00S00824.1ds +++| STM SISS
00926 M00S00825.1ds +++| LDN 3 SET FLAGS
00927 M00S00826.1ds +++| STM FGSS
00928 M00S00827.1ds +++| LDC MMFL SET MACHINE ID
00929 M00S00828.1ds +++| CRD CM
00930 M00S00829.1ds +++| LDD CM
00931 M00S00830.1ds +++| STM RMSS
00932 M00S00831.1ds +++| STM CMSS
00933 M00S00832.1ds +++| LDM EJBA CHECK IF UI WAS SPECIFIED
00934 M00S00833.1ds +++| ZJN EJB5 IF NO UI SPECIFIED
00935 M00S00834.1ds +++|
00936 M00S00835.1ds +++|* SET INFORMATION IN SYSTEM SECTOR TO MATCH QFT
00937 M00S00836.1ds +++|* FAMILY ORDINAL AND UI INFORMATION.
00938 M00S00837.1ds +++|
00939 M00S00838.1ds +++| LDD MA SET CREATION USER NAME
00940 M00S00839.1ds +++| CWM EJBJ,ON
00941 M00S00840.1ds +++| SBN 1
00942 M00S00841.1ds +++| CRM OASS,ON
00943 M00S00842.1ds +++| SBN 1
00944 M00S00843.1ds +++| CRM ACSS,ON
00945 M00S00844.1ds +++| LDK FOTP SET CREATION FAMILY
00946 M00S00845.1ds +++| CRD CM
00947 M00S00846.1ds +++| LDD CM
00948 M00S00847.1ds +++| SHN 14
00949 M00S00848.1ds +++| LMD CM+1
00950 M00S00849.1ds +++| ADN 1
00951 M00S00850.1ds +++| CRD CM
00952 M00S00851.1ds +++| LDD CM+3
00953 M00S00852.1ds +++| SCN 77
00954 M00S00853.1ds +++| STD CM+3
00955 M00S00854.1ds +++| LDN 0
00956 M00S00855.1ds +++| STD CM+4
00957 M00S00856.1ds +++| LDD MA MOVE FAMILY NAME TO SYSTEM SECTOR
00958 M00S00857.1ds +++| CWD CM
00959 M00S00858.1ds +++| CRM FOSS,ON
00960 M00S00859.1ds +++| SBN 1
00961 M00S00860.1ds +++| CRM FMSS,ON
00962 M00S00861.1ds +++| EJB5 LDN 0 SET CREATION JSN
00963 M00S00862.1ds +++| SFA QFT
00964 M00S00863.1ds +++| CRM CJSS,ON
00965 M00S00864.1ds +++| LDD MA
00966 M00S00865.1ds +++| CWM BUFA,ON
00967 M00S00866.1ds +++| CWM EJBH,ON SET FNT
00968 M00S00867.1ds +++| LDD MA
00969 M00S00868.1ds +++| CRM JNSS,ON
00970 M00S00869.1ds +++| CRM FNSS,ON
00971 M00S00870.1ds +++| LDC 2RIN SET DISPOSITION CODE
00972 M00S00871.1ds +++| STM DCSS
00973 M00S00872.1ds +++| LDD BA
00974 M00S00873.1ds +++| ZJN EJB9 IF NO COMMAND SECTOR
00975 M00S00874.1ds +++| AOM FLSS+1
00976 M00S00875.1ds +++| LDC JNSS REMOVE *.* FROM UJN
00977 M00S00876.1ds +++| STD T1
00978 M00S00877.1ds +++| ADN 3
00979 M00S00878.1ds +++| STD T2
00980 M00S00879.1ds +++| EJB6 LDI T1
00981 M00S00880.1ds +++| LPN 77
00982 M00S00881.1ds +++| LMN 1R.
00983 M00S00882.1ds +++| ZJN EJB7 IF *.* FOUND
00984 M00S00883.1ds +++| LDM 1,T1
00985 M00S00884.1ds +++| SHN -6
00986 M00S00885.1ds +++| LMN 1R.
00987 M00S00886.1ds +++| ZJN EJB8 IF *.* FOUND
00988 M00S00887.1ds +++| AOD T1
00989 M00S00888.1ds +++| LMD T2
00990 M00S00889.1ds +++| NJN EJB6 IF NOT END OF UJN
00991 M00S00890.1ds +++| EJB7 LDI T1
00992 M00S00891.1ds +++| SCN 77 REMOVE *.*
00993 M00S00892.1ds +++| STI T1
00994 M00S00893.1ds +++| LDN 0
00995 M00S00894.1ds +++| EJB8 STM 1,T1
00996 M00S00895.1ds +++| EJB9 AOM FLSS+1 SET FILE LENGTH
00997 M00S00896.1ds +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH
00998 M00S00897.1ds +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY
00999 M00S00898.1ds +++|
01000 M00S00899.1ds +++|* WRITE FILE.
01001 M00S00900.1ds +++|
Line S00901 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01002 M01S00901.ns2663 ---| LDC 3RBLQ ISSUE *ABLQ* ACCOUNT FILE MESSAGE
01003 M01S00902.ns2663 ---| RJM IAM
01004 M00S00903.1ds +++| SETMS IO
01005 M00S00904.1ds +++| RJM WSS WRITE SYSTEM SECTOR
Line S00905 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01006 M01S00905.ns2663 ---| PJN EJB9.2 IF NO DISK ERROR
01007 M01S00906.ns2663 ---| EJB9.1 LJM EJB2.0 PROCESS ERROR
01008 M01S00907.ns2663 ---|
01009 M01S00908.ns2663 ---| EJB9.2 LDD BA
Line S00008 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01010 M01S00008.ns2663 +++| EJB9.1 MJP EJB2.0 IF DISK ERROR
01011 M01S00009.ns2663 +++| LDD BA
01012 M00S00909.1ds +++| ZJN EJB10 IF NO COMMANDS
01013 M00S00910.1ds +++| LMC WCSF
01014 M00S00911.1ds +++| RJM WDS WRITE COMMAND SECTOR
Line S00912 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01015 M01S00912.ns2663 ---| MJN EJB9.1 IF DISK ERROR
Line S00010 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01016 M01S00010.ns2663 +++| EJB9.2 MJN EJB9.1 IF DISK ERROR
01017 M00S00913.1ds +++| AOD T7 ADVANCE SECTOR
01018 M00S00914.1ds +++| EJB10 LDN QFTE*5-5-1 SAVE QFT ENTRY
01019 M00S00915.1ds +++| STD T2
01020 M00S00916.1ds +++| EJB10.1 LDM IOSS+5,T2
01021 M00S00917.1ds +++| STM EJBK,T2
01022 M00S00918.1ds +++| SOD T2
01023 M00S00919.1ds +++| PJN EJB10.1 IF MORE TO MOVE
Line S00920 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01024 M01S00920.ns2663 ---| LDC 501-DTEI CLEAR END OF EOI BUFFER
Line S00011 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01025 M01S00011.ns2663 +++| LDD MA SET FNT/FST INFORMATION IN EOI SECTOR
01026 M01S00012.ns2663 +++| CWM FNSS,TR
01027 M01S00013.ns2663 +++| SBN 3
01028 M01S00014.ns2663 +++| CRM BUFA+FNEI,TR
01029 M01S00015.ns2663 +++| LDC 501-DTEI-5 CLEAR END OF EOI BUFFER
01030 M00S00921.1ds +++| STD T2
01031 M00S00922.1ds +++| EJB11 LDN 0
Line S00923 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01032 M01S00923.ns2663 ---| STM BFMS+DTEI,T2
Line S00016 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01033 M01S00016.ns2663 +++| STM BUFA+DTEI+5,T2
01034 M00S00924.1ds +++| SOD T2
01035 M00S00925.1ds +++| PJN EJB11 IF MORE TO CLEAR
Line S00017 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01036 M01S00017.ns2663 +++| LDC BUFA SET EOI BUFFER ADDRESS
01037 M00S00926.1ds +++| RJM WEI WRITE EOI
Line S00927 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01038 M01S00927.ns2663 ---| MJN EJB9.1 IF DISK ERROR
Line S00018 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01039 M01S00018.ns2663 +++| MJN EJB9.2 IF DISK ERROR
01040 M00S00928.1ds +++| ENDMS
01041 M00S00929.1ds +++| LDD T5 SET EQUIPMENT
01042 M00S00930.1ds +++| STD CM+1
01043 M00S00931.1ds +++| LDD T7 SET LAST SECTOR
01044 M00S00932.1ds +++| STD CM+3
01045 M00S00933.1ds +++| LDD T6 SET TRACK
01046 M00S00934.1ds +++| LPC 3777
01047 M00S00935.1ds +++| STD CM+2
01048 M00S00936.1ds +++| MONITOR DTKM DROP TRACKS
01049 M00S00937.1ds +++|
01050 M00S00938.1ds +++|* QUEUE FILE.
01051 M00S00939.1ds +++|
Line S00019 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01052 M01S00019.ns2663 +++| LDC 2RAB SET *ABLQ* ACCOUNT FILE MESSAGE
01053 M01S00020.ns2663 +++| STM OVL0-2
01054 M01S00021.ns2663 +++| LDC 2RLQ
01055 M01S00022.ns2663 +++| STM OVL0-1
01056 M01S00023.ns2663 +++| EXECUTE 0QM,OVL0 ISSUE MESSAGE TO ACCOUNT FILE
01057 M00S00940.1ds +++| LCN 7 CLEAR ENTRY INTERLOCK
01058 M00S00941.1ds +++| RAD FN+4
01059 M00S00942.1ds +++| LDN QFTE-1
01060 M00S00943.1ds +++| STD T2
Line S00944 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01061 M01S00944.ns2663 ---| SFA QFT,QA STORE QFT ENTRY
Line S00024 Modification History
M01 (Added by) ns2663
Seq # *Modification Id* Act
----------------------------+
01062 M01S00024.ns2663 +++| SFA QFT,QA SET QFT ADDRESS
01063 M01S00025.ns2663 +++| ADN 1 WRITE QFT DATA
01064 M01S00026.ns2663 +++| CWM EJBK,T2
01065 M01S00027.ns2663 +++| SBN QFTE-JSNQ WRITE INTERLOCK WORD
01066 M00S00945.1ds +++| CWD FN
Line S00946 Modification History
M01 (Removed by) ns2663
Seq # *Modification Id* Act
----------------------------+
01067 M01S00946.ns2663 ---| ADN 1
01068 M01S00947.ns2663 ---| CWM EJBK,T2
01069 M00S00948.1ds +++| AOM IDSB ADVANCE JOB ENTRY COUNT
01070 M00S00949.1ds +++| LDK INQF*100+7 SET DEFAULT FILE TYPE AND STATUS
01071 M00S00950.1ds +++| STM EJBC
01072 M00S00951.1ds +++|
01073 M00S00952.1ds +++|* REINITIALIZE *EJB*.
01074 M00S00953.1ds +++|
01075 M00S00954.1ds +++| LDN 0 CLEAR PARAMETERS
01076 M00S00955.1ds +++| STM EJBE
01077 M00S00956.1ds +++| LJM EJBX RETURN
01078 M00S00957.1ds +++|
01079 M00S00958.1ds +++|
01080 M00S00959.1ds +++| EJBH VFD 42/0LINPUT,6/0,6/INFT,6/0
01081 M00S00960.1ds +++| EJBK BSS QFTE*5-5 BUFFER FOR QFT ENTRY
01082 M00S00961.1ds +++| EJBJ VFD 42/0,18/SYUI
01083 M00S00962.1ds +++| EJBL VFD 12/7777,12/377,36/0
01084 M00S00963.1ds +++| EJBM VFD 60/-0
01085 M00S00964.1ds +++| EJBN DATA C* NO INPUT FILE SPACE AVAILABLE.*
01086 M00S00965.1ds +++| GAC SPACE 4,10
01087 M00S00966.1ds +++|** GAC - GENERATE ASSIGN COMMAND.
01088 M00S00967.1ds +++|*
01089 M00S00968.1ds +++|* ENTRY (A) = ADDRESS OF STRING *XXX,LOAD)*.
01090 M00S00969.1ds +++|* (IR+3) = EST ORDINAL.
01091 M00S00970.1ds +++|*
01092 M00S00971.1ds +++|* USES T3.
01093 M00S00972.1ds +++|*
01094 M00S00973.1ds +++|* CALLS ACS, C2D, CCI.
01095 M00S00974.1ds +++|
01096 M00S00975.1ds +++|
01097 M00S00976.1ds +++| GAC SUBR ENTRY/EXIT
01098 M00S00977.1ds +++| STD T3 SAVE ADDRESS OF FILE NAME
01099 M00S00978.1ds +++| LDC =C*ASSIGN(*
01100 M00S00979.1ds +++| RJM ACS
01101 M00S00980.1ds +++| LDD IR+3 CONVERT UPPER TWO DIGITS OF EST ORDINAL
01102 M00S00981.1ds +++| SHN -3
01103 M00S00982.1ds +++| RJM C2D
01104 M00S00983.1ds +++| STI T3
01105 M00S00984.1ds +++| LDD IR+3 CONVERT LOWER DIGIT OF EST ORDINAL
01106 M00S00985.1ds +++| LPN 7
01107 M00S00986.1ds +++| SHN 6
01108 M00S00987.1ds +++| ADC 2R0,
01109 M00S00988.1ds +++| STM 1,T3
01110 M00S00989.1ds +++| LDD T3 COMPLETE COMMAND IMAGE
01111 M00S00990.1ds +++| RJM CCI
01112 M00S00991.1ds +++| UJN GACX RETURN
01113 M00S00992.1ds +++| GJC SPACE 4,10
01114 M00S00993.1ds +++|** GJC - GENERATE JOB COMMAND.
01115 M00S00994.1ds +++|*
01116 M00S00995.1ds +++|* ENTRY (A) = ADDRESS OF LEFT JUSTIFIED NAME.
01117 M00S00996.1ds +++|*
01118 M00S00997.1ds +++|* EXIT (BUFA - BUFA+4) = JOB COMMAND.
01119 M00S00998.1ds +++|*
01120 M00S00999.1ds +++|* USES T1, T3.
01121 M00S01000.1ds +++|*
01122 M00S01001.1ds +++|* CALLS ACS, CCI.
01123 M00S01002.1ds +++|
01124 M00S01003.1ds +++|
01125 M00S01004.1ds +++| GJC SUBR ENTRY/EXIT
01126 M00S01005.1ds +++| STD T3 SAVE JOB COMMAND ADDRESS
01127 M00S01006.1ds +++| LDD CA
01128 M00S01007.1ds +++| ADC 477
01129 M00S01008.1ds +++| STD T1
01130 M00S01009.1ds +++| GJC1 LDN 0 CLEAR COMMAND BUFFER
01131 M00S01010.1ds +++| STI T1
01132 M00S01011.1ds +++| SOD T1
01133 M00S01012.1ds +++| LMD CA
01134 M00S01013.1ds +++| NJN GJC1 IF NOT END OF BUFFER
01135 M00S01014.1ds +++| STI T1
01136 M00S01015.1ds +++| LDD T3 COPY JOB COMMAND TO BUFFER
01137 M00S01016.1ds +++| RJM ACS
01138 M00S01017.1ds +++| LDC =C*.* COMPLETE JOB COMMAND
01139 M00S01018.1ds +++| RJM CCI
01140 M00S01019.1ds +++| UJN GJCX RETURN
01141 M00S01020.1ds +++| ISJ SPACE 4,10
01142 M00S01021.1ds +++|** ISJ - INITIATE SUBSYSTEM JOB.
01143 M00S01022.1ds +++|*
01144 M00S01023.1ds +++|* ENTRY (A) = SUBSYSTEM ID.
01145 M00S01024.1ds +++|* (TN) = ADDRESS OF SUBSYSTEM TABLE ENTRY.
01146 M00S01025.1ds +++|*
01147 M00S01026.1ds +++|* EXIT (A) = 0, IF SUBSYSTEM INITIATED.
01148 M00S01027.1ds +++|*
01149 M00S01028.1ds +++|* USES BA, JS, FN - FN+4.
01150 M00S01029.1ds +++|*
01151 M00S01030.1ds +++|* CALLS AST, EJB.
01152 M00S01031.1ds +++|
01153 M00S01032.1ds +++|
01154 M00S01033.1ds +++| ISJ SUBR ENTRY/EXIT
01155 M00S01034.1ds +++| STM EJBE SET SUBSYSTEM ID
01156 M00S01035.1ds +++| LMC DSSI
01157 M00S01036.1ds +++| ZJN ISJ0 IF DEADSTART SEQUENCING JOB
01158 M00S01037.1ds +++| LMC FEAF*10000&DSSI FETCH *SSAT* ENTRY
01159 M00S01038.1ds +++| RJM AST
01160 M00S01039.1ds +++| NJN ISJX IF SUBSYSTEM ACTIVE
01161 M00S01040.1ds +++| ISJ0 STD BA
01162 M00S01041.1ds +++| LDN ZERL ZERO FILL BUFFER
01163 M00S01042.1ds +++| CRM BUFA,ON
01164 M00S01043.1ds +++| LDI TN SET JSN AND UJN = SUBSYSTEM NAME
01165 M00S01044.1ds +++| STD FN
01166 M00S01045.1ds +++| STM BUFA
01167 M00S01046.1ds +++| LDM 1,TN
01168 M00S01047.1ds +++| SCN 77
01169 M00S01048.1ds +++| STM BUFA+1
01170 M00S01049.1ds +++| LMN 1R SPACE-FILL JSN
01171 M00S01050.1ds +++| STD FN+1
01172 M00S01051.1ds +++| LDC ADCI+1 DISABLE JSN ACQUISITION
01173 M00S01052.1ds +++| STM EJBD
01174 M00S01053.1ds +++| ISJA LDN SSSC SET SERVICE CLASS
01175 M00S01054.1ds +++|* LDN DSSC (DEADSTART SEQUENCING JOB)
01176 M00S01055.1ds +++| STD JS
01177 M00S01056.1ds +++| LDM 4,TN SET FILE TYPE AND STATUS
01178 M00S01057.1ds +++| ZJN ISJ1 IF NOT SPECIFIED
01179 M00S01058.1ds +++| STM EJBC
01180 M00S01059.1ds +++| ISJ1 LDM 1,TN
01181 M00S01060.1ds +++| SHN 21-5
01182 M00S01061.1ds +++| MJP ISJ2 IF PP-INITIATED SUBSYSTEM
01183 M00S01062.1ds +++|
01184 M00S01063.1ds +++|* FOR NON-PP-INITIATED SUBSYSTEMS, GENERATE A JOB INPUT FILE
01185 M00S01064.1ds +++|* WITH THE FOLLOWING FORMAT -
01186 M00S01065.1ds +++|* SUBPROC.
01187 M00S01066.1ds +++|* GET,SUBPROC/NA.
01188 M00S01067.1ds +++|* SUBPROC.
01189 M00S01068.1ds +++|
01190 M00S01069.1ds +++| LDC BUF INDICATE COMMAND RECORD PRESENT
01191 M00S01070.1ds +++| STD BA
01192 M00S01071.1ds +++| LDN ZERL BUILD SUBSYSTEM PROCEDURE FILE NAME
01193 M00S01072.1ds +++| CRD AB
01194 M00S01073.1ds +++| LDI TN SUBSYSTEM NAME
01195 M00S01074.1ds +++| STD AB
01196 M00S01075.1ds +++| LDM 1,TN
01197 M00S01076.1ds +++| SCN 77
01198 M00S01077.1ds +++| SHN 6
01199 M00S01078.1ds +++| LMC ** (FIRST BYTE OF PROCEDURE NAME SUFFIX)
01200 M00S01079.1ds +++| ISJB EQU *-1
01201 M00S01080.1ds +++| SHN -6+22
01202 M00S01081.1ds +++| STD AB+1
01203 M00S01082.1ds +++| LPC 770000
01204 M00S01083.1ds +++| LMC ** (SECOND BYTE OF PROCEDURE NAME SUFFIX)
01205 M00S01084.1ds +++| ISJC EQU *-1
01206 M00S01085.1ds +++| SHN -6+22
01207 M00S01086.1ds +++| STD AB+2
01208 M00S01087.1ds +++| SHN -6
01209 M00S01088.1ds +++| SCN 77
01210 M00S01089.1ds +++| STD AB+3
01211 M00S01090.1ds +++| LDN AB GENERATE JOB COMMAND
01212 M00S01091.1ds +++| RJM GJC
01213 M00S01092.1ds +++| LDC =C*GET,* GENERATE *GET,SUBPROC/NA.*
01214 M00S01093.1ds +++| RJM ACS
01215 M00S01094.1ds +++| LDN AB
01216 M00S01095.1ds +++| RJM ACS
01217 M00S01096.1ds +++| LDC =C*/NA.*
01218 M00S01097.1ds +++| RJM CCI
01219 M00S01098.1ds +++| LDN AB GENERATE NAME CALL TO PROCEDURE
01220 M00S01099.1ds +++| RJM ACS
01221 M00S01100.1ds +++| LDC =C*.*
01222 M00S01101.1ds +++| RJM CCI
01223 M00S01102.1ds +++| LDN 0 CLEAR SUFFIX FOR NEXT CALL
01224 M00S01103.1ds +++| STM ISJB
01225 M00S01104.1ds +++| STM ISJC
01226 M00S01105.1ds +++| ISJ2 RJM EJB ENTER JOB
01227 M00S01106.1ds +++| LJM ISJX RETURN
01228 M00S01107.1ds +++| SJF SPACE 4,10
01229 M00S01108.1ds +++|** SJF - SET JOB FIELD LENGTH.
01230 M00S01109.1ds +++|*
01231 M00S01110.1ds +++|* ENTRY (AB - AB+4) = ENTRY POINT NAME.
01232 M00S01111.1ds +++|*
01233 M00S01112.1ds +++|* EXIT (JF) = FIELD LENGTH.
01234 M00S01113.1ds +++|*
01235 M00S01114.1ds +++|* USES JF, CM - CM+4.
01236 M00S01115.1ds +++|*
01237 M00S01116.1ds +++|* CALLS CLD.
01238 M00S01117.1ds +++|
01239 M00S01118.1ds +++|
01240 M00S01119.1ds +++| SJF1 LDC DFFL/100 SET DEFAULT FIELD LENGTH
01241 M00S01120.1ds +++| SJF2 STD JF
01242 M00S01121.1ds +++|
01243 M00S01122.1ds +++| SJF SUBR ENTRY/EXIT
01244 M00S01123.1ds +++| RJM CLD SEARCH FOR PROGRAM
01245 M00S01124.1ds +++| CRD CM
01246 M00S01125.1ds +++| LDD CM CHECK FOR MFL=/RFL= ENTRY POINT
01247 M00S01126.1ds +++| ZJN SJF1 IF NO FILE LENGTH SPECIFIED
01248 M00S01127.1ds +++| STD JF
01249 M00S01128.1ds +++| SHN 6
01250 M00S01129.1ds +++| PJN SJFX IF NOT MFL= ENTRY POINT
01251 M00S01130.1ds +++| SHN 2
01252 M00S01131.1ds +++| SHN -8D
01253 M00S01132.1ds +++| UJN SJF2 SET FIELD LENGTH
01254 M00S01133.1ds +++| SSC SPACE 4,10
01255 M00S01134.1ds +++|** SSC - SET SERVICE CLASS.
01256 M00S01135.1ds +++|*
01257 M00S01136.1ds +++|* ENTRY (AB - AB+1) = COMMAND.
01258 M00S01137.1ds +++|*
01259 M00S01138.1ds +++|* EXIT (JS) = *MASC* IF MAINTENANCE JOB.
01260 M00S01139.1ds +++|* = *SYSC* IF NOT MAINTENANCE JOB.
01261 M00S01140.1ds +++|*
01262 M00S01141.1ds +++|* USES JC, TN.
01263 M00S01142.1ds +++|
01264 M00S01143.1ds +++|
01265 M00S01144.1ds +++| SSC2 LMD AB FIND COMMAND
01266 M00S01145.1ds +++| NJN SSC3 IF NO MATCH
01267 M00S01146.1ds +++| LDM 1,JC
01268 M00S01147.1ds +++| LMD AB+1
01269 M00S01148.1ds +++| ZJN SSC5 IF MAINTENANCE JOB
01270 M00S01149.1ds +++| SSC3 LDN 2 ADVANCE TABLE ADDRESS
01271 M00S01150.1ds +++| RAD JC
01272 M00S01151.1ds +++| SSC4 LDI JC
01273 M00S01152.1ds +++| NJN SSC2 IF NOT END OF TABLE
01274 M00S01153.1ds +++| AOD TN ADVANCE LIST ADDRESS
01275 M00S01154.1ds +++| LMN ITJAL
01276 M00S01155.1ds +++| NJN SSC1 IF NOT END OF TABLES
01277 M00S01156.1ds +++| LDN SYSC&MASC
01278 M00S01157.1ds +++| SSC5 LMN MASC SET SERVICE CLASS
01279 M00S01158.1ds +++| STD JS
01280 M00S01159.1ds +++|
01281 M00S01160.1ds +++| SSC SUBR ENTRY/EXIT
01282 M00S01161.1ds +++| LDN 0
01283 M00S01162.1ds +++| STD TN
01284 M00S01163.1ds +++| SSC1 LDM ITJA,TN SET TABLE ADDRESS
01285 M00S01164.1ds +++| STD JC
01286 M00S01165.1ds +++| UJN SSC4 ENTER LOOP
Line S01166 Modification History
M01 (Removed by) 1ds21
Seq # *Modification Id* Act
----------------------------+
01287 M01S01166.1ds21 ---| SPACE 4,10
01288 M01S01167.1ds21 ---| OVLA EQU * ORIGIN OF OVERLAY AREA
01289 M01S01168.1ds21 ---| SPACE 4,10
01290 M01S01169.1ds21 ---|* COMMON DECKS.
01291 M01S01170.1ds21 ---|
01292 M01S01171.1ds21 ---|
01293 M01S01172.1ds21 ---|*CALL COMPRFI
01294 M01S01173.1ds21 ---| SUB$ EQU 1 ASSEMBLE *SUBSYST* MACRO
01295 M01S01174.1ds21 ---|*CALL COMSSSD
01296 M00S01175.1ds +++| TITLE REQUEST PROCESSORS.
01297 M00S01176.1ds +++| ICJ SPACE 4,10
01298 M00S01177.1ds +++|*** FUNCTION ICJF - INITIATE COMMAND JOB.
01299 M00S01178.1ds +++|*
01300 M00S01179.1ds +++|* ENTRY (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/.
01301 M00S01180.1ds +++|* (IJCA) = FIELD LENGTH SPECIFIED BY CALLER (*IJCF*
01302 M00S01181.1ds +++|* FUNCTION ONLY. ZERO, OTHERWISE.)
01303 M00S01182.1ds +++|
01304 M00S01183.1ds +++|
01305 M00S01184.1ds +++| ICJ ENTRY ENTRY/EXIT
01306 M00S01185.1ds +++| LDC BFMS GET COMMAND
01307 M00S01186.1ds +++| RJM RPK
01308 M00S01187.1ds +++| LDC /1DS/DSDL+/1DS/KBCML GET SPECIAL PARAMETER
01309 M00S01188.1ds +++| CRD AB
01310 M00S01189.1ds +++| LDN 0
01311 M00S01190.1ds +++| STM BFMS+/1DS/KBCML/2*5
01312 M00S01191.1ds +++| RJM SJF SET JOB FIELD LENGTH
01313 M00S01192.1ds +++| LDM IJCA
01314 M00S01193.1ds +++| ZJN ICJ1 IF NO FIELD LENGTH SPECIFIED
01315 M00S01194.1ds +++| STD JF
01316 M00S01195.1ds +++| ICJ1 LDD JF CONVERT INITIAL RFL
01317 M00S01196.1ds +++| SHN -6
01318 M00S01197.1ds +++| RJM C2D
01319 M00S01198.1ds +++| STM ICJH+2
01320 M00S01199.1ds +++| LDD JF
01321 M00S01200.1ds +++| RJM C2D
01322 M00S01201.1ds +++| STM ICJH+3
01323 M00S01202.1ds +++| LDN AB GENERATE JOB COMMAND
01324 M00S01203.1ds +++| RJM GJC
01325 M00S01204.1ds +++| LDC ICJF
01326 M00S01205.1ds +++| RJM CCI CREATE COMMAND IMAGE
01327 M00S01206.1ds +++| LDC TSJN
01328 M00S01207.1ds +++| STD T3
01329 M00S01208.1ds +++| UJN ICJ3 CHECK SPECIAL JOB NAME
01330 M00S01209.1ds +++|
01331 M00S01210.1ds +++| ICJ2 LDI T3 ADVANCE TO NEXT ENTRY
01332 M00S01211.1ds +++| ADN 1
01333 M00S01212.1ds +++| RAD T3
01334 M00S01213.1ds +++| STM ICJA
01335 M00S01214.1ds +++| ICJ3 LDI T3 SET ENTRY LENGTH
01336 M00S01215.1ds +++| ZJN ICJ5 IF END OF TABLE
01337 M00S01216.1ds +++| STD T2
01338 M00S01217.1ds +++| ICJ4 LDM TSJN,T2 COMPARE JOB NAMES
01339 M00S01218.1ds +++| ICJA EQU *-1
01340 M00S01219.1ds +++| LMM AB-1,T2
01341 M00S01220.1ds +++| NJN ICJ2 IF NO COMPARE
01342 M00S01221.1ds +++| SOD T2
01343 M00S01222.1ds +++| NJN ICJ4 IF NOT END OF NAME
01344 M00S01223.1ds +++| STM EJBA
01345 M00S01224.1ds +++| STM EJBB
01346 M00S01225.1ds +++| LCN ICJGL
01347 M00S01226.1ds +++| ICJ5 ADN ICJGL+1 ADJUST POINTER FOR NEXT COMMAND
01348 M00S01227.1ds +++| RAD LA
01349 M00S01228.1ds +++| ICJ6 LDD LA CREATE COMMAND IMAGE
01350 M00S01229.1ds +++| RJM CCI
01351 M00S01230.1ds +++| AOD LA ADVANCE COMMAND POINTER
01352 M00S01231.1ds +++| LDI LA
01353 M00S01232.1ds +++| NJN ICJ6 IF NOT END OF COMMAND STREAM
01354 M00S01233.1ds +++| LDC BFMS COPY COMMAND (OR JOB COMMAND)
01355 M00S01234.1ds +++|* LDC BUFA (INITIATE JOB CALL)
01356 M00S01235.1ds +++| ICJB EQU *-1
01357 M00S01236.1ds +++| RJM CCI
01358 M00S01237.1ds +++| RJM SSC SET SERVICE CLASS
01359 M00S01238.1ds +++| LDC UJSI SET *SISS* FIELD
01360 M00S01239.1ds +++|* LDC IRSI (SET INHIBIT ROLLOUT ID)
01361 M00S01240.1ds +++| ICJC EQU *-1
01362 M00S01241.1ds +++| STM EJBE
01363 M00S01242.1ds +++| LDC INQF*100+7 GENERATE OUTPUT
01364 M00S01243.1ds +++|* LDC NOQF*100+7 (DO NOT GENERATE OUTPUT)
01365 M00S01244.1ds +++| ICJD EQU *-1
01366 M00S01245.1ds +++| STM EJBC
01367 M00S01246.1ds +++| RJM EJB ENTER JOB
01368 M00S01247.1ds +++| LJM ICJX RETURN
01369 M00S01248.1ds +++|
01370 M00S01249.1ds +++|
01371 M00S01250.1ds +++| ICJF DATA Z*MODE(0)*
01372 M00S01251.1ds +++|* DATA Z*MODE(1)* (CYBER 176)
01373 M00S01252.1ds +++| ICJG DATA Z*SUI(0)*
01374 M00S01253.1ds +++| ICJGL EQU *-ICJG
01375 M00S01254.1ds +++| DATA Z*RETURN(INPUT)*
01376 M00S01255.1ds +++| DATA Z*NORERUN.*
01377 M00S01256.1ds +++| ICJH DATA Z*RFL(XXXX00)*
01378 M00S01257.1ds +++| CON 0 END OF COMMANDS
01379 M00S01258.1ds +++| TSJN SPACE 4,10
01380 M00S01259.1ds +++|** TSJN - TABLE OF SPECIAL JOB NAMES.
01381 M00S01260.1ds +++|*
01382 M00S01261.1ds +++|* JOBS LISTED IN THIS TABLE WILL HAVE A *SUI(0)*
01383 M00S01262.1ds +++|* COMMAND INCLUDED IN THEIR JOB STREAM.
01384 M00S01263.1ds +++|*
01385 M00S01264.1ds +++|* 12/ L, 12*L/ NAME
01386 M00S01265.1ds +++|* L = LENGTH OF JOB NAME IN PP WORDS.
01387 M00S01266.1ds +++|* NAME = JOB NAME TO COMPARE.
01388 M00S01267.1ds +++|
01389 M00S01268.1ds +++|
01390 M00S01269.1ds +++| TSJN BSS 0
Line S00001 Modification History
M01 (Added by) 1ds23
Seq # *Modification Id* Act
----------------------------+
01391 M01S00001.1ds23 +++| VFD 12/2,24/0LDDF
01392 M00S01270.1ds +++| VFD 12/2,24/0LDIS
01393 M00S01271.1ds +++| VFD 12/2,24/0LO26
01394 M00S01272.1ds +++| VFD 12/0 END OF TABLE
01395 M00S01273.1ds +++| ISC SPACE 4,10
01396 M00S01274.1ds +++|*** FUNCTION ISCF - INITIATE SYSTEM COMMAND JOB.
01397 M00S01275.1ds +++|*
01398 M00S01276.1ds +++|* ENTRY (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01399 M00S01277.1ds +++|*
01400 M00S01278.1ds +++|* NOTE FLAGS SET IN ROUTINE *ICJ* TO SET
01401 M00S01279.1ds +++|* *SISS* FIELD IN THE SYSTEM SECTOR AND
01402 M00S01280.1ds +++|* TO NOT DISPOSE OUTPUT AT END OF JOB TIME.
01403 M00S01281.1ds +++|
01404 M00S01282.1ds +++|
01405 M00S01283.1ds +++| ISC ENTRY ENTRY/EXIT
01406 M00S01284.1ds +++| LDN IRSI SET INHIBIT ROLLOUT IN *SISS*
01407 M00S01285.1ds +++| STM ICJC
01408 M00S01286.1ds +++| LDC NOQF*100+7 SET NO OUTPUT
01409 M00S01287.1ds +++| STM ICJD
01410 M00S01288.1ds +++| RJM ICJ INITIATE COMMAND JOB
01411 M00S01289.1ds +++| UJN ISCX RETURN
01412 M00S01290.1ds +++| ITJ SPACE 4,10
01413 M00S01291.1ds +++|*** FUNCTION ITJF.
01414 M00S01292.1ds +++|*
01415 M00S01293.1ds +++|* INITIATE JOBS FROM TABLE.
01416 M00S01294.1ds +++|* INITIATE ALL ENABLED SUB-SYSTEMS.
01417 M00S01295.1ds +++|
01418 M00S01296.1ds +++|
01419 M00S01297.1ds +++|* CALCULATE NEXT TABLE NUMBER FROM CPU TYPE.
01420 M00S01298.1ds +++|
01421 M00S01299.1ds +++| ITJ8 LDD FG CALCULATE NEXT TABLE NUMBER
01422 M00S01300.1ds +++| SHN 0-4
01423 M00S01301.1ds +++| LPN 1 ZERO IF INSTRUCTION STACK PRESENT
01424 M00S01302.1ds +++| STD T1
01425 M00S01303.1ds +++| LDD FG
01426 M00S01304.1ds +++| SHN 1-6
01427 M00S01305.1ds +++| LPN 2 ZERO IF CYBER 170 MAINFRAME
01428 M00S01306.1ds +++| RAD T1
01429 M00S01307.1ds +++| LDN 4
01430 M00S01308.1ds +++| SBD T1
01431 M00S01309.1ds +++| UJN ITJ11 CONTINUE PROCESSING
01432 M00S01310.1ds +++|
01433 M00S01311.1ds +++|* CHECK FOR 6700 OR CYBER 74-2X MAINFRAME TYPE.
01434 M00S01312.1ds +++|
01435 M00S01313.1ds +++| ITJ9 LDD FG CHECK DUAL CPU BIT
01436 M00S01314.1ds +++| LPN 2
01437 M00S01315.1ds +++| NJN ITJ13 IF NOT DUAL CPU
01438 M00S01316.1ds +++| LDN 1 SET TABLE 1
01439 M00S01317.1ds +++| UJN ITJ1 PROCESS TABLE 1 JOBS
01440 M00S01318.1ds +++|
01441 M00S01319.1ds +++|* CHECK FOR CMU.
01442 M00S01320.1ds +++|
01443 M00S01321.1ds +++| ITJ10 LDD FG CHECK CMU BIT
01444 M00S01322.1ds +++| SHN 21-3
01445 M00S01323.1ds +++| MJN ITJ13 IF NO CMU
01446 M00S01324.1ds +++| LDN 5 SET TABLE 5
01447 M00S01325.1ds +++| ITJ11 UJN ITJ1 PROCESS TABLE
01448 M00S01326.1ds +++|
01449 M00S01327.1ds +++|* CHECK IF ALL TABLES PROCESSED.
01450 M00S01328.1ds +++|
01451 M00S01329.1ds +++| ITJ12 LDD TN CHECK CURRENT TABLE NUMBER
01452 M00S01330.1ds +++| ZJN ITJ8 IF TABLE 0
01453 M00S01331.1ds +++| LMN 2
01454 M00S01332.1ds +++| ZJN ITJ9 IF TABLE 2
01455 M00S01333.1ds +++| LMN 5&2
01456 M00S01334.1ds +++| NJN ITJ10 IF NOT TABLE 5
01457 M00S01335.1ds +++| ITJ13 RJM IAS INITIATE ALL ENABLED SUBSYSTEMS
01458 M00S01336.1ds +++|
01459 M00S01337.1ds +++| ITJ ENTRY ENTRY/EXIT
01460 M00S01338.1ds +++| LDD FG
01461 M00S01339.1ds +++| SHN -6
01462 M00S01340.1ds +++| LPN 71
01463 M00S01341.1ds +++| ZJN ITJ0 IF CYBER 170-865/875
01464 M00S01342.1ds +++| LMN 70
01465 M00S01343.1ds +++| ZJN ITJ0.1 IF CYBER 176
01466 M00S01344.1ds +++| SHN -5
01467 M00S01345.1ds +++| ZJN ITJ1 IF NOT CYBER 170-815/825/835/855
01468 M00S01346.1ds +++| LDN 0 SPIN UP ISMD DEVICES
01469 M00S01347.1ds +++| RJM SUD
01470 M00S01348.1ds +++| LDN 7&10 SET TABLE FOR CYBER 170-815/825/835/855
01471 M00S01349.1ds +++| ITJ0 LMN 10&6 SET TABLE FOR CYBER 170-865/875
01472 M00S01350.1ds +++| ITJ0.1 LMN 6 SET TABLE FOR CYBER 176
01473 M00S01351.1ds +++| ITJ1 STD TN SET TABLE NUMBER
01474 M00S01352.1ds +++| LDM ITJA,TN SET JOB TABLE ADDRESS
01475 M00S01353.1ds +++| STD JC
01476 M00S01354.1ds +++| LDN 0 CLEAR SECOND PASS FLAG
01477 M00S01355.1ds +++| STM ITJD
01478 M00S01356.1ds +++| ITJ2 LDN ZERL
01479 M00S01357.1ds +++| CRD AB
01480 M00S01358.1ds +++| LDI JC SET JOB NAME
01481 M00S01359.1ds +++| NJN ITJ2.2 IF NOT END OF TABLE
01482 M00S01360.1ds +++| LDC *
01483 M00S01361.1ds +++| ITJC EQU *-1
01484 M00S01362.1ds +++| ITJ2.1 NJP ITJ12 IF NOT A DUAL CPU MACHINE
01485 M00S01363.1ds +++| LDC **
01486 M00S01364.1ds +++| ITJD EQU *-1
01487 M00S01365.1ds +++| NJN ITJ2.1 IF END OF SECOND PASS
01488 M00S01366.1ds +++| AOM ITJD FLAG SECOND PASS
01489 M00S01367.1ds +++| LDM ITJA,TN RESET TABLE POINTER
01490 M00S01368.1ds +++| STD JC
01491 M00S01369.1ds +++| LDI JC
01492 M00S01370.1ds +++| ITJ2.2 STD AB
01493 M00S01371.1ds +++| LDM 1,JC
01494 M00S01372.1ds +++| STD AB+1
01495 M00S01373.1ds +++| RJM SJF SET JOB FIELD LENGTH
01496 M00S01374.1ds +++| LDN AB GENERATE JOB COMMAND
01497 M00S01375.1ds +++| RJM GJC
01498 M00S01376.1ds +++| LDC ICJF
01499 M00S01377.1ds +++| RJM CCI CREATE COMMAND IMAGE
01500 M00S01378.1ds +++|
01501 M00S01379.1ds +++|* ISSUE USECPU COMMAND IF ON 6700 OR CYBER 74-2X.
01502 M00S01380.1ds +++|
01503 M00S01381.1ds +++| LDD FG CHECK DUAL AND STACK CPU BITS
01504 M00S01382.1ds +++| LPC 4122
01505 M00S01383.1ds +++| LMC 4100 PREVENT SELECTION FOR CYBER 170 AND 8X5
01506 M00S01384.1ds +++| NJN ITJ2.4 IF NOT DUAL AND STACK CPU ON 6000 OR C70
01507 M00S01385.1ds +++| LDD TN CHECK TABLE NUMBER
01508 M00S01386.1ds +++| ZJN ITJ5 IF TABLE 0
01509 M00S01387.1ds +++| LMN 1
01510 M00S01388.1ds +++| ZJN ITJ3 IF TABLE 1
01511 M00S01389.1ds +++| ITJ2.3 LDC =C*USECPU(1)* CPU0
01512 M00S01390.1ds +++| UJN ITJ4 CREATE COMMAND IMAGE
01513 M00S01391.1ds +++|
01514 M00S01392.1ds +++| ITJ2.4 LDD FG
01515 M00S01393.1ds +++| LPN 2
01516 M00S01394.1ds +++| STM ITJC
01517 M00S01395.1ds +++| NJN ITJ5 IF NOT A DUAL CPU MACHINE
01518 M00S01396.1ds +++| LDM ITJD
01519 M00S01397.1ds +++| NJN ITJ3 IF PASS 2
01520 M00S01398.1ds +++| UJN ITJ2.3 CREATE COMMAND IMAGE
01521 M00S01399.1ds +++|
01522 M00S01400.1ds +++| ITJ3 LDC =C*USECPU(2)* CPU1
01523 M00S01401.1ds +++| ITJ4 RJM CCI CREATE COMMAND IMAGE
01524 M00S01402.1ds +++| ITJ5 LDD TN
01525 M00S01403.1ds +++| LMN 6
01526 M00S01404.1ds +++| NJN ITJ6 IF NOT CYBER 176 STACK
01527 M00S01405.1ds +++| LDC TSBJA
01528 M00S01406.1ds +++| LMD JC
01529 M00S01407.1ds +++| NJN ITJ6 IF NOT JOB *LCM*
01530 M00S01408.1ds +++| LDC =C*RFL,EC=10.*
01531 M00S01409.1ds +++| RJM CCI CREATE COMMAND IMAGE
01532 M00S01410.1ds +++| ITJ6 LDD CA
01533 M00S01411.1ds +++| RJM CCI CREATE COMMAND IMAGE
01534 M00S01412.1ds +++| LDC =C*EXIT.*
01535 M00S01413.1ds +++| RJM CCI CREATE COMMAND IMAGE
01536 M00S01414.1ds +++| LDC =C*DMP.*
01537 M00S01415.1ds +++| RJM CCI CREATE COMMAND IMAGE
01538 M00S01416.1ds +++| LDD JF CONVERT FIELD LENGTH
01539 M00S01417.1ds +++| SHN -6
01540 M00S01418.1ds +++| RJM C2D
01541 M00S01419.1ds +++| STM ITJB+2
01542 M00S01420.1ds +++| LDD JF
01543 M00S01421.1ds +++| RJM C2D
01544 M00S01422.1ds +++| STM ITJB+3
01545 M00S01423.1ds +++| LDC ITJB
01546 M00S01424.1ds +++| RJM CCI CREATE COMMAND IMAGE
01547 M00S01425.1ds +++| LDC =C*IFE(EF.EQ.ODE,NOLIST)*
01548 M00S01426.1ds +++| RJM CCI CREATE COMMAND IMAGE
01549 M00S01427.1ds +++| LDC =C*RETURN(OUTPUT)*
01550 M00S01428.1ds +++| RJM CCI CREATE COMMAND IMAGE
01551 M00S01429.1ds +++| LDC =C*ENDIF(NOLIST)*
01552 M00S01430.1ds +++| RJM CCI CREATE COMMAND IMAGE
01553 M00S01431.1ds +++| LDN MASC SET SERVICE CLASS
01554 M00S01432.1ds +++| STD JS
01555 M00S01433.1ds +++| RJM EJB ENTER JOB
01556 M00S01434.1ds +++| PJN ITJ7 IF JOB QUEUED
01557 M00S01435.1ds +++| LJM ITJ13 ENABLE JOB SCHEDULING
01558 M00S01436.1ds +++|
01559 M00S01437.1ds +++| ITJ7 LDN 2 ADVANCE JOB COUNTER
01560 M00S01438.1ds +++| RAD JC
01561 M00S01439.1ds +++| LJM ITJ2 LOOP
01562 M00S01440.1ds +++|
01563 M00S01441.1ds +++|
01564 M00S01442.1ds +++| ITJA BSS 0
01565 M00S01443.1ds +++| LOC 0
01566 M00S01444.1ds +++| CON TCMJ COMMON MAINTENANCE JOBS
01567 M00S01445.1ds +++| CON TNSJ CYBER 70 NO STACK MAINTENANCE JOBS
01568 M00S01446.1ds +++| CON TSSJ CYBER 70 WITH STACK MAINTENANCE JOBS
01569 M00S01447.1ds +++| CON TNOJ CYBER 170 NO STACK MAINTENANCE JOBS
01570 M00S01448.1ds +++| CON TSOJ CYBER 170 WITH STACK MAINTENANCE JOBS
01571 M00S01449.1ds +++| CON TMUJ MAINFRAMES WITH CMU MAINTENANCE JOBS
01572 M00S01450.1ds +++| CON TSBJ CYBER 176 MAINTENANCE JOBS
01573 M00S01451.1ds +++| CON TSAJ CYBER 170-815/825/835/855 MAINTENANCE JOBS
01574 M00S01452.1ds +++| CON TSCJ CYBER 170-865/875 MAINTENANCE JOBS
01575 M00S01453.1ds +++| ITJAL BSS 0 LENGTH OF LIST
01576 M00S01454.1ds +++| LOC *O
01577 M00S01455.1ds +++|
01578 M00S01456.1ds +++| ITJB DATA C*DMP(XXXX00)*
01579 M00S01457.1ds +++| TCMJ SPACE 4,10
01580 M00S01458.1ds +++|** JOB TABLE 0.
01581 M00S01459.1ds +++|* COMMON MAINTENANCE JOBS.
01582 M00S01460.1ds +++|* JOBS RUN ON ALL MAINFRAME TYPES.
01583 M00S01461.1ds +++|
01584 M00S01462.1ds +++|
01585 M00S01463.1ds +++| TCMJ BSS 0
01586 M00S01464.1ds +++| VFD 24/0LALX
01587 M00S01465.1ds +++| VFD 24/0LCU1
01588 M00S01466.1ds +++| VFD 24/0LFST
01589 M00S01467.1ds +++| DATA 0
01590 M00S01468.1ds +++| TNSJ SPACE 4,10
01591 M00S01469.1ds +++|** JOB TABLE 1.
01592 M00S01470.1ds +++|*
01593 M00S01471.1ds +++|* NO STACK CYBER 70 MAINTENANCE JOBS.
01594 M00S01472.1ds +++|* JOBS RUN ON MAINFRAME TYPES 6400, 6500, CYBER 72, CYBER
01595 M00S01473.1ds +++|* 73, CPU1 OF 6700 AND CPU1 OF CYBER 74-2X.
01596 M00S01474.1ds +++|*
01597 M00S01475.1ds +++|* NOTE JOB TABLE 1 STARTS IN THE
01598 M00S01476.1ds +++|* MIDDLE OF JOB TABLE 2.
01599 M00S01477.1ds +++| TSSJ SPACE 4,10
01600 M00S01478.1ds +++|** JOB TABLE 2.
01601 M00S01479.1ds +++|*
01602 M00S01480.1ds +++|* WITH STACK CYBER 70 MAINTENANCE JOBS.
01603 M00S01481.1ds +++|* JOBS RUN ON MAINFRAME TYPES 6600, CYBER 74-1X, CPU0 OF
01604 M00S01482.1ds +++|* 6700 AND CPU0 OF CYBER 74-2X.
01605 M00S01483.1ds +++|
01606 M00S01484.1ds +++|
01607 M00S01485.1ds +++| TSSJ BSS 0
01608 M00S01486.1ds +++| VFD 24/0LFM2
01609 M00S01487.1ds +++| VFD 24/0LIWS
01610 M00S01488.1ds +++| TNSJ BSS 0 START OF JOB TABLE 1
01611 M00S01489.1ds +++| VFD 24/0LCT3
01612 M00S01490.1ds +++| VFD 24/0LMRG
01613 M00S01491.1ds +++| VFD 24/0LMY1
01614 M00S01492.1ds +++| VFD 24/0LRAN
01615 M00S01493.1ds +++| DATA 0
01616 M00S01494.1ds +++| TNOJ SPACE 4,10
01617 M00S01495.1ds +++|** JOB TABLE 3.
01618 M00S01496.1ds +++|*
01619 M00S01497.1ds +++|* NO STACK CYBER 170 MAINTENANCE JOBS.
01620 M00S01498.1ds +++|* JOBS RUN ON MAINFRAME TYPES CYBER 172, 173 AND 174.
01621 M00S01499.1ds +++|
01622 M00S01500.1ds +++|
01623 M00S01501.1ds +++| TNOJ BSS 0
01624 M00S01502.1ds +++| VFD 24/0LCSU
01625 M00S01503.1ds +++| VFD 24/0LCT3
01626 M00S01504.1ds +++| VFD 24/0LMRG
01627 M00S01505.1ds +++| VFD 24/0LRAN
01628 M00S01506.1ds +++| DATA 0
01629 M00S01507.1ds +++| TSOJ SPACE 4,10
01630 M00S01508.1ds +++|** JOB TABLE 4.
01631 M00S01509.1ds +++|*
01632 M00S01510.1ds +++|* WITH STACK CYBER 170 MAINTENANCE JOBS.
01633 M00S01511.1ds +++|* JOBS RUN ON MAINFRAME TYPE CYBER 175.
01634 M00S01512.1ds +++|
01635 M00S01513.1ds +++|
01636 M00S01514.1ds +++| TSOJ BSS 0
01637 M00S01515.1ds +++| VFD 24/0LCSU
01638 M00S01516.1ds +++| VFD 24/0LCT7
01639 M00S01517.1ds +++| VFD 24/0LRAN
01640 M00S01518.1ds +++| DATA 0
01641 M00S01519.1ds +++| TMUJ SPACE 4,10
01642 M00S01520.1ds +++|** JOB TABLE 5.
01643 M00S01521.1ds +++|*
01644 M00S01522.1ds +++|* JOBS RUN ON MAINFRAMES WITH CMU.
01645 M00S01523.1ds +++|
01646 M00S01524.1ds +++|
01647 M00S01525.1ds +++| TMUJ BSS 0
01648 M00S01526.1ds +++| VFD 24/0LCMU
01649 M00S01527.1ds +++| DATA 0
01650 M00S01528.1ds +++| TSBJ SPACE 4,10
01651 M00S01529.1ds +++|** JOB TABLE 6.
01652 M00S01530.1ds +++|*
01653 M00S01531.1ds +++|* CYBER 176 MAINTENANCE JOBS.
01654 M00S01532.1ds +++|
01655 M00S01533.1ds +++|
01656 M00S01534.1ds +++| TSBJ BSS 0
01657 M00S01535.1ds +++| VFD 24/0LRAN
01658 M00S01536.1ds +++| VFD 24/0LFST
01659 M00S01537.1ds +++| VFD 24/0LCTB
01660 M00S01538.1ds +++| TSBJA VFD 24/0LLCM
01661 M00S01539.1ds +++| VFD 24/0LMEM
01662 M00S01540.1ds +++| DATA 0
01663 M00S01541.1ds +++| TSAJ SPACE 4,10
01664 M00S01542.1ds +++|** JOB TABLE 7.
01665 M00S01543.1ds +++|*
01666 M00S01544.1ds +++|*
01667 M00S01545.1ds +++|* CYBER 170 - 815/825/835/855 MAINTENANCE JOBS.
01668 M00S01546.1ds +++|
01669 M00S01547.1ds +++|
01670 M00S01548.1ds +++| TSAJ VFD 24/0LALX
01671 M00S01549.1ds +++| VFD 24/0LCSU
01672 M00S01550.1ds +++| VFD 24/0LCT8
01673 M00S01551.1ds +++| VFD 24/0LCU8
01674 M00S01552.1ds +++| VFD 24/0LFS8
01675 M00S01553.1ds +++| VFD 24/0LMRG
01676 M00S01554.1ds +++| VFD 24/0LRA8
01677 M00S01555.1ds +++| DATA 0
01678 M00S01556.1ds +++| TSCJ SPACE 4,10
01679 M00S01557.1ds +++|** JOB TABLE 8.
01680 M00S01558.1ds +++|*
01681 M00S01559.1ds +++|* CYBER 170 - 865/875 MAINTENANCE JOBS.
01682 M00S01560.1ds +++|
01683 M00S01561.1ds +++|
01684 M00S01562.1ds +++| TSCJ VFD 24/0LALX
01685 M00S01563.1ds +++| VFD 24/0LCSU
01686 M00S01564.1ds +++| VFD 24/0LCT6
01687 M00S01565.1ds +++| VFD 24/0LCU8
01688 M00S01566.1ds +++| VFD 24/0LFS8
01689 M00S01567.1ds +++| VFD 24/0LRA8
01690 M00S01568.1ds +++| DATA 0
01691 M00S01569.1ds +++| IJC SPACE 4,10
01692 M00S01570.1ds +++|*** FUNCTION IJCF - INITIATE JOB CALL.
01693 M00S01571.1ds +++|*
01694 M00S01572.1ds +++|* ENTRY (IR+3) = FIELD LENGTH, IF SPECIFIED BY CALLER.
01695 M00S01573.1ds +++|* = 0, OTHERWISE.
01696 M00S01574.1ds +++|* (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01697 M00S01575.1ds +++|
01698 M00S01576.1ds +++|
01699 M00S01577.1ds +++| IJC ENTRY ENTRY/EXIT
01700 M00S01578.1ds +++| LDC BUFA SET JOB COMMAND ADDRESS
01701 M00S01579.1ds +++| STM ICJB
01702 M00S01580.1ds +++| LDD IR+3 SAVE FIELD LENGTH
01703 M00S01581.1ds +++| STM IJCA
01704 M00S01582.1ds +++| RJM ICJ
01705 M00S01583.1ds +++| UJN IJCX RETURN
01706 M00S01584.1ds +++|
01707 M00S01585.1ds +++| IJCA CON 0 FIELD LENGTH SPECIFIED BY CALLER
01708 M00S01586.1ds +++| ILJ SPACE 4,10
01709 M00S01587.1ds +++|*** FUNCTION ILJF - INITIATE *LBC* JOB.
01710 M00S01588.1ds +++|*
01711 M00S01589.1ds +++|* CALLED BY *6DI* AND *1DS* FUNCTIONS *UPCF* AND *OCMF* TO
01712 M00S01590.1ds +++|* INITIATE SYSTEM JOB TO RELOAD CONTROLWARE.
01713 M00S01591.1ds +++|*
01714 M00S01592.1ds +++|* ENTRY (IR+4) = 1/,2/F,9/EQ.
01715 M00S01593.1ds +++|* F 0 IF NO RECALL OF CALLER REQUIRED.
01716 M00S01594.1ds +++|* 1 IF *UPCF* *1DS* FUNCTION TO BE
01717 M00S01595.1ds +++|* RECALLED.
01718 M00S01596.1ds +++|* 2 IF *OCMF* *1DS* FUNCTION TO BE
01719 M00S01597.1ds +++|* RECALLED.
01720 M00S01598.1ds +++|* EQ INDICATES CONTROL MODULE RELOAD IF VALUE
01721 M00S01599.1ds +++|* IS EITHER 1 OR A CONTROL MODULE EST
01722 M00S01600.1ds +++|* ORDINAL.
01723 M00S01601.1ds +++|
01724 M00S01602.1ds +++|
01725 M00S01603.1ds +++| ILJ ENTRY ENTRY/EXIT
01726 M00S01604.1ds +++| LDC =Z*LBC*
01727 M00S01605.1ds +++| RJM GJC GENERATE JOB COMMAND
01728 M00S01606.1ds +++| LDD IR+4
01729 M00S01607.1ds +++| SHN 0-11
01730 M00S01608.1ds +++| LPN 3
01731 M00S01609.1ds +++| STD MS
Line S01610 Modification History
M01 (Removed by) 1ds20
Seq # *Modification Id* Act
----------------------------+
01732 M01S01610.1ds20 ---| NJN ILJ1 IF NOT *6DI* CALL
Line S00001 Modification History
M01 (Added by) 1ds20
Seq # *Modification Id* Act
----------------------------+
01733 M01S00001.1ds20 +++| SHN 14
01734 M01S00002.1ds20 +++| NJN ILJ2 IF NOT *6DI* CALL
01735 M00S01611.1ds +++| LDD IR+4
01736 M00S01612.1ds +++| LPC 777
01737 M00S01613.1ds +++| STD CM
01738 M00S01614.1ds +++| SBN 1
01739 M00S01615.1ds +++| MJN ILJ1 IF NOT CONTROL MODULE
01740 M00S01616.1ds +++| ZJN ILJ2 IF CONTROL MODULE
01741 M00S01617.1ds +++| SFA EST,CM
01742 M00S01618.1ds +++| ADK EQDE
01743 M00S01619.1ds +++| CRD CM
01744 M00S01620.1ds +++| LDD CM+3
01745 M00S01621.1ds +++| LMC 2RCM
01746 M00S01622.1ds +++| ZJN ILJ2 IF CONTROL MODULE
01747 M00S01623.1ds +++| ILJ1 LDC ILJA&ILJB
01748 M00S01624.1ds +++| ILJ2 LMC ILJB
01749 M00S01625.1ds +++| STD LA
01750 M00S01626.1ds +++| ILJ3 LDD LA COMPLETE COMMAND IMAGE
01751 M00S01627.1ds +++| RJM CCI
01752 M00S01628.1ds +++| AOD LA ADVANCE COMMAND POINTER
01753 M00S01629.1ds +++| LDI LA
01754 M00S01630.1ds +++| NJN ILJ3 IF NOT END OF COMMAND STREAM
01755 M00S01631.1ds +++| LDN SYSC SET SYSTEM SERVICE CLASS
01756 M00S01632.1ds +++| STD JS
01757 M00S01633.1ds +++| LCN TNDS-TSDS SELECT SYSTEM DEVICE FOR JOB FILE
01758 M00S01634.1ds +++| RAM EJBF
01759 M00S01635.1ds +++| RJM EJB ENTER JOB
01760 M00S01636.1ds +++| LDD MS
01761 M00S01637.1ds +++| ZJN ILJ4 IF NO *1DS* CALL REQUIRED
01762 M00S01638.1ds +++| LDM IDSC SET FUNCTION CODE
01763 M00S01639.1ds +++| SCN 77 PRESERVE BUFFER LOCK/LOGGING CONTROL BITS
01764 M00S01640.1ds +++| LMM ILJC-1,MS
01765 M00S01641.1ds +++| STD IR+2
01766 M00S01642.1ds +++| LDN 0 DISABLE LOGGING/INTERLOCK CLEARING
01767 M00S01643.1ds +++| STM IDSC
01768 M00S01644.1ds +++| LDD IR+4
01769 M00S01645.1ds +++| LPC -3000
01770 M00S01646.1ds +++| STD IR+4
01771 M00S01647.1ds +++| LDD IA REWRITE PP INPUT REGISTER
01772 M00S01648.1ds +++| CWD IR
01773 M00S01649.1ds +++| AOM IDSE SET *NO DROP* FLAG
01774 M00S01650.1ds +++| EXECUTE 1DS,=
01775 M00S01651.1ds +++| ILJ4 LJM ILJX RECALL *1DS* FUNCTION
01776 M00S01652.1ds +++|
01777 M00S01653.1ds +++|
01778 M00S01654.1ds +++| ILJA DATA Z*LOADBC,D=DUMP.*
01779 M00S01655.1ds +++|
01780 M00S01656.1ds +++|* THE FOLLOWING COMMANDS SHOULD BE ACTIVATED IF THE NEED EVER
01781 M00S01657.1ds +++|* ARISES AGAIN TO DUMP THE MEMORY OF A FAILING CONTROLLER.
01782 M00S01658.1ds +++|* THE DUMP CAPABILITY WAS ADDED TO DETERMINE WHY 7155
01783 M00S01659.1ds +++|* CONTROLLERS WERE FAILING. SINCE THE CAUSE OF THIS PROBLEM
01784 M00S01660.1ds +++|* IS NOW UNDERSTOOD, THERE IS NO LONGER A NEED TO DUMP
01785 M00S01661.1ds +++|* CONTROLLERS DURING THE RELOAD PROCESS.
01786 M00S01662.1ds +++|
01787 M00S01663.1ds +++|* DATA Z*DSDI,DMB,Z.+BCDUMP/V.*
01788 M00S01664.1ds +++|* DATA Z*ATTACH,LBCDUMP/M=W,NA.*
01789 M00S01665.1ds +++|* DATA Z*IF,.NOT.FILE(LBCDUMP,PM).DEFINE,LBCDUMP.*
01790 M00S01666.1ds +++|* DATA Z*SKIPEI,LBCDUMP.*
01791 M00S01667.1ds +++|* DATA Z*REWIND,DUMP.*
01792 M00S01668.1ds +++|* DATA Z*COPY,DUMP,LBCDUMP.*
01793 M00S01669.1ds +++|
01794 M00S01670.1ds +++| CON 0 END OF STATEMENTS
01795 M00S01671.1ds +++|
01796 M00S01672.1ds +++|
01797 M00S01673.1ds +++| ILJB DATA Z*LOADBC.*
01798 M00S01674.1ds +++| CON 0 END OF STATEMENTS
01799 M00S01675.1ds +++|
01800 M00S01676.1ds +++|
01801 M00S01677.1ds +++| ILJC CON /1DS/UPCF
01802 M00S01678.1ds +++| CON /1DS/OCMF
01803 M00S01679.1ds +++| DSP SPACE 4,10
01804 M00S01680.1ds +++|*** FUNCTION DSPF - INITIATE *L* DISPLAY JOB.
01805 M00S01681.1ds +++|*
01806 M00S01682.1ds +++|* ENTRY (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/.
01807 M00S01683.1ds +++|
01808 M00S01684.1ds +++|
01809 M00S01685.1ds +++| DSP ENTRY ENTRY/EXIT
Line S00001 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01810 M01S00001.ns2686 +++| LDC LDSP GET *L* DISPLAY CONTROL WORD
01811 M01S00002.ns2686 +++| CRD CM+1
01812 M01S00003.ns2686 +++| LDN 0
01813 M01S00004.ns2686 +++| STD CM+2
01814 M01S00005.ns2686 +++| LDN 2 SET WORD COUNT OF OPTIONS TO PROCESS
01815 M01S00006.ns2686 +++| STD CM+1
01816 M01S00007.ns2686 +++| LDD MA
01817 M01S00008.ns2686 +++| CWM DSPA,CM+1
01818 M01S00009.ns2686 +++| MONITOR UTEM INTERLOCK JSN FIELD IF .EQ. 0
01819 M01S00010.ns2686 +++| LDD CM+1
01820 M01S00011.ns2686 +++| NJP DSP2 IF VERIFICATION FALIED, RETURN ERROR
01821 M00S01686.1ds +++| LDC NOQF*100+7 DO NOT GENERATE OUTPUT
01822 M00S01687.1ds +++| STM ICJD
01823 M00S01688.1ds +++| RJM ICJ INITIATE COMMAND JOB
Line S01689 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01824 M01S01689.ns2686 ---| LDC LDSP *L* DISPLAY POINTER
Line S00012 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01825 M01S00012.ns2686 +++| SHN -21 SAVE REPLY
01826 M01S00013.ns2686 +++| STD T1
01827 M01S00014.ns2686 +++| ZJN DSP1 IF *L* DISPLAY JOB SUBMITTED
01828 M01S00015.ns2686 +++| LDN 0 CLEAR JSN
01829 M01S00016.ns2686 +++| STD FN
01830 M01S00017.ns2686 +++| STD FN+1
01831 M01S00018.ns2686 +++| DSP1 LDC LDSP *L* DISPLAY POINTER
01832 M00S01690.1ds +++| CRD CM+1
01833 M00S01691.1ds +++| LDN 0
01834 M00S01692.1ds +++| STD CM+2
01835 M00S01693.1ds +++| LDN 2
01836 M00S01694.1ds +++| STD CM+1 STORE WORD COUNT OF OPTIONS
01837 M00S01695.1ds +++| LDD FN SET JSN
Line S01696 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01838 M01S01696.ns2686 ---| STM DSPA+1*5+3
Line S00019 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01839 M01S00019.ns2686 +++| STM DSPB+1*5+3
01840 M00S01697.1ds +++| LDD FN+1
Line S01698 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01841 M01S01698.ns2686 ---| STM DSPA+1*5+4 STORE *JSN*
Line S00020 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01842 M01S00020.ns2686 +++| STM DSPB+1*5+4 STORE *JSN*
01843 M00S01699.1ds +++| LDD MA
Line S01700 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01844 M01S01700.ns2686 ---| CWM DSPA,CM+1
Line S00021 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01845 M01S00021.ns2686 +++| CWM DSPB,CM+1
01846 M00S01701.1ds +++| MONITOR UTEM STORE *JSN* IN FWA *L* BUFFER ZERO FILLED
Line S01702 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01847 M01S01702.ns2686 ---| UJN DSPX RETURN
Line S00022 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01848 M01S00022.ns2686 +++| LDD T1 SET DSD RESPONSE
01849 M01S00023.ns2686 +++| DSP2 RJM SRD
01850 M01S00024.ns2686 +++| LJM DSPX EXIT
01851 M00S01703.1ds +++|
01852 M00S01704.1ds +++|
01853 M00S01705.1ds +++|* *UTEM* MONITOR FUNCTION BUFFER.
01854 M00S01706.1ds +++|
Line S01707 Modification History
M01 (Removed by) ns2686
Seq # *Modification Id* Act
----------------------------+
01855 M01S01707.ns2686 ---| DSPA VFD 1/0,5/0,6/36D,6/0,6/0 CLEAR CONTROL WORD STATUS BITS
Line S00025 Modification History
M01 (Added by) ns2686
Seq # *Modification Id* Act
----------------------------+
01856 M01S00025.ns2686 +++| DSPA VFD 1/1,5/0,6/24D,6/36D,42/0 VERIFY *JSN* .EQ. 0
01857 M01S00026.ns2686 +++| VFD 1/0,5/0,6/24D,6/36D,42/-1 INTERLOCK JSN FIELD
01858 M01S00027.ns2686 +++|
01859 M01S00028.ns2686 +++| DSPB VFD 1/0,5/0,6/36D,6/0,6/0 CLEAR CONTROL WORD STATUS BITS
01860 M00S01708.1ds +++| CON 0,0,0
01861 M00S01709.1ds +++| VFD 1/0,5/0,6/24D,6/36D,6/0 STORE *JSN*
01862 M00S01710.1ds +++| CON 0,0,0
01863 M00S01711.1ds +++| DSS SPACE 4,10
01864 M00S01712.1ds +++|*** FUNCTION DSSF - INITIATE DEADSTART SEQUENCING JOB.
01865 M00S01713.1ds +++|*
01866 M00S01714.1ds +++|* ENTRY (IR+3 - IR+4) = 18/*CMS*, 6/0.
01867 M00S01715.1ds +++|
01868 M00S01716.1ds +++|
01869 M00S01717.1ds +++| DSS ENTRY ENTRY/EXIT