cdc:nos2.source:opl.opl871:deck:1ds
Deck 1DS
41 Modifications
Listing Sections
- Deck 1DS Start
- Deck 1DS Part 1 (Line 1845)
- Deck 1DS Part 2 (Line 2762)
- Deck 1DS Part 3 (Line 4367)
- Deck 1DS Part 4 (Line 5629)
- Deck 1DS Part 5 (Line 6676)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1ds +++| IDENT 1DS,IDS 00002 M01S00002.1ds +++| PERIPH 00003 M01S00003.1ds +++| BASE MIXED 00004 M01S00004.1ds +++| SST 00005 M01S00005.1ds +++|*COMMENT 1DS - DSD REQUEST PROCESSOR. 00006 M01S00006.1ds +++| EQV$ EQU 1 DO NOT VERIFY EQUIPMENT IN *COMPRSS*
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.1ds +++| TITLE 1DS - DSD REQUEST PROCESSOR. 00010 M01S00009.1ds +++| SPACE 4,10 00011 M01S00010.1ds +++|*** 1DS - DSD REQUEST PROCESSOR. 00012 M01S00011.1ds +++|* G. R. MANSFIELD. 70/10/24. 00013 M01S00012.1ds +++|* R. E. DENNIS. 74/10/15. 00014 M01S00013.1ds +++|* C. B. LOSCHEIDER. 78/09/11. 00015 M01S00014.1ds +++| SPACE 4,10 00016 M01S00015.1ds +++|*** *1DS* PROCESSES FUNCTIONS FOR *DSD* WHICH ARE NOT 00017 M01S00016.1ds +++|* POSSIBLE FOR *DSD* TO PROCESS. *1DS* IS CALLED BY 00018 M01S00017.1ds +++|* *1SJ* TO INITIATE THE JOB *CMS*. *1DS* IS CALLED 00019 M01S00018.1ds +++|* BY *6DI* TO INITIATE THE *LBC* JOB. 00020 M01S00019.1ds +++| SPACE 4,10 00021 M01S00020.1ds +++|*** PROGRAMMING CONSIDERATIONS. 00022 M01S00021.1ds +++|* 00023 M01S00022.1ds +++|** FOR A DETAILED EXPLAINATION OF THE *DSD*/*1DS* 00024 M01S00023.1ds +++|* INTERFACE, SEE COMMON DECK *COMS1DS*. 00025 M01S00024.1ds +++| SPACE 4,15 00026 M01S00025.1ds +++|*** CALL. 00027 M01S00026.1ds +++|*
| Line S00027 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2765 |
Seq # *Modification Id* Act ----------------------------+ 00028 M02S00027.ns2765 ---|*T 18/1DS, 6/SC, 2/CP, 1/LK, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure
00029 M01S00001.ns2765 +++|*T 18/1DS, 6/SC, 1/C, 1/L, 3/LOG, 6/REQ, 12/P1, 12/P2
Figure
00030 M01S00028.1ds +++|* 00031 M01S00029.1ds +++|* SC SYSTEM CONTROL POINT.
| Line S00030 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2765 |
Seq # *Modification Id* Act ----------------------------+ 00032 M02S00030.ns2765 ---|* CP NON-ZERO CONTROL POINT MOVE REQUIRED.
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2765 |
Seq # *Modification Id* Act ----------------------------+ 00033 M02S00031.ns2765 ---|* LK LOCKED BUFFER. 00034 M01S00002.ns2765 +++|* C CONTROL POINT CHANGE REQUIRED (CP NUMBER IN P2). 00035 M01S00003.ns2765 +++|* L LOCKED BUFFER. 00036 M01S00032.1ds +++|* LOG LOGGING CONTROL BITS. 00037 M01S00033.1ds +++|* REQ FUNCTION CODE. 00038 M01S00034.1ds +++|* P1 PARAMETER 1. 00039 M01S00035.1ds +++|* P2 PARAMETER 2. 00040 M01S00036.1ds +++| SPACE 4,10 00041 M01S00037.1ds +++|*** DAYFILE MESSAGES. 00042 M01S00038.1ds +++|* 00043 M01S00039.1ds +++|* 00044 M01S00040.1ds +++|* *DEADSTART SEQUENCING FAILED.* 00045 M01S00041.1ds +++|* THE DEADSTART SEQUENCING JOB COULD NOT BE INITIATED 00046 M01S00042.1ds +++|* AFTER SEVERAL RETRIES BECAUSE OF AN I/O ERROR 00047 M01S00043.1ds +++|* ENCOUNTERED ON A MASS STORAGE DEVICE. 00048 M01S00044.1ds +++| SPACE 4,15 00049 M01S00045.1ds +++|*** ACCOUNT DAYFILE MESSAGES. 00050 M01S00046.1ds +++|* 00051 M01S00047.1ds +++|* 00052 M01S00048.1ds +++|* *ABLQ, C1, JSN, YYMMDD, HHMMSS, DC.* 00053 M01S00049.1ds +++|* *ABLQ, C2, XXXXXX.XXXKUNS.* 00054 M01S00050.1ds +++|* QUEUED FILE WITH JOB SEQUENCE NAME JSN AND 00055 M01S00051.1ds +++|* DISPOSITION CODE DC HAS BEEN ROUTED TO THE 00056 M01S00052.1ds +++|* QUEUE ON DATE YYMMDD AT TIME HHMMSS. 00057 M01S00053.1ds +++|* THE FILE HAS A DISPOSITION CODE OF DC AND IS 00058 M01S00054.1ds +++|* XXXXXX.XXX THOUSAND PRU-S IN LENGTH. 00059 M01S00055.1ds +++|* 00060 M01S00056.1ds +++|* *ACDT, DATE YY/MM/DD.* 00061 M01S00057.1ds +++|* WHERE YY=YEAR, MM=MONTH, DD=DAY OF THE NEW 00062 M01S00058.1ds +++|* DATE ENTERED BY THE OPERATOR. 00063 M01S00059.1ds +++|* 00064 M01S00060.1ds +++|* *ACDT, TIME HH.MM.SS.* 00065 M01S00061.1ds +++|* WHERE HH=HOURS, MM=MINUTES, SS=SECONDS OF THE 00066 M01S00062.1ds +++|* NEW TIME ENTERED BY THE OPERATOR. 00067 M01S00063.1ds +++|* 00068 M01S00064.1ds +++|* *MSEQ, NNN, LEVEL1, LEVEL2.* 00069 M01S00065.1ds +++|* WHERE NNN=EST ORDINAL, LEVEL1=LOWER ACCESS LEVEL, 00070 M01S00066.1ds +++|* LEVEL2=UPPER ACCESS LEVEL ENTERED BY THE OPERATOR 00071 M01S00067.1ds +++|* VIA THE *SECUREQ* COMMAND. 00072 M01S00068.1ds +++|* 00073 M01S00069.1ds +++|* *MSOT, OT, LEVEL1, LEVEL2.* 00074 M01S00070.1ds +++|* WHERE OT=ORIGIN TYPE (IN DISPLAY CODE), 00075 M01S00071.1ds +++|* LEVEL1=LOWER ACCESS LEVEL, LEVEL2=UPPER ACCESS LEVEL 00076 M01S00072.1ds +++|* ENTERED BY THE OPERATOR VIA THE *SECURES* COMMAND. 00077 M01S00073.1ds +++|* 00078 M01S00074.1ds +++|* *MSSA, USERNAME.* 00079 M01S00075.1ds +++|* WHERE USERNAME=VALID USER NAME (I.E., A USER WITH 00080 M01S00076.1ds +++|* SECURITY ADMINISTRATOR PRIVILEGES) ENTERED BY THE 00081 M01S00077.1ds +++|* OPERATOR VIA THE *SECURITY-UNLOCK* COMMAND. 00082 M01S00078.1ds +++|* 00083 M01S00079.1ds +++|* *MSSI, USERNAME.* 00084 M01S00080.1ds +++|* WHERE USERNAME=INCORRECT USER NAME (I.E., A USER WHO 00085 M01S00081.1ds +++|* DOES NOT HAVE SECURITY ADMINISTRATOR PRIVILEGES) 00086 M01S00082.1ds +++|* ENTERED BY THE OPERATOR VIA THE 00087 M01S00083.1ds +++|* *SECURITY-UNLOCK* COMMAND. 00088 M01S00084.1ds +++| SPACE 4,20 00089 M01S00085.1ds +++|**** DIRECT LOCATION ASSIGNMENTS. 00090 M01S00086.1ds +++| 00091 M01S00087.1ds +++| 00092 M01S00001.271l716 +++| PP EQU LA POT POINTER 00093 M01S00088.1ds +++| S1 EQU 16 SCRATCH CELL 00094 M01S00089.1ds +++| S2 EQU 17 SCRATCH CELL 00095 M01S00002.271l716 +++| PA EQU S1 - S2 POT ADDRESS (2 LOCATIONS) 00096 M01S00090.1ds +++| FS EQU 20 - 24 FST ENTRY (5 LOCATIONS) 00097 M01S00091.1ds +++| MS EQU FS+5 MST POINTER 00098 M01S00092.1ds +++| QA EQU 26 FNT ORDINAL 00099 M01S00093.1ds +++| CA EQU 27 COMMAND ADDRESS 00100 M01S00094.1ds +++| CN EQU 30 - 34 CM WORD BUFFER (5 LOCATIONS) 00101 M01S00095.1ds +++| JF EQU 35 JOB FIELD LENGTH 00102 M01S00096.1ds +++| TN EQU 36 TABLE NUMBER 00103 M01S00097.1ds +++| FG EQU 37 CPU FLAGS 00104 M01S00098.1ds +++| AB EQU 40 - 44 CM WORD BUFFER (5 LOCATIONS)
| Line S00099 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00105 M02S00099.271l716 ---| PP EQU 45 POT POINTER
| Line S00100 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00106 M02S00100.271l716 ---| PA EQU 46 - 47 POT ADDRESS (2 LOCATIONS) 00107 M01S00003.271l716 +++| NC EQU 45 SYSTEM CP NUMBER 00108 M01S00101.1ds +++| JS EQU 57 JOB SERVICE CLASS 00109 M01S00102.1ds +++| FN EQU 60 - 64 CM WORD BUFFER (5 LOCATIONS) 00110 M01S00103.1ds +++| SR EQU FN SCRATCH (5 LOCATIONS) 00111 M01S00104.1ds +++| FV EQU 65 CONSTANT FIVE 00112 M01S00105.1ds +++| JC EQU 66 JOB COUNTER 00113 M01S00106.1ds +++| BA EQU 67 SECTOR BUFFER ADDRESS 00114 M01S00107.1ds +++|**** 00115 M01S00108.1ds +++| SPACE 4,10 00116 M01S00109.1ds +++|* ASSEMBLY CONSTANTS. 00117 M01S00110.1ds +++| 00118 M01S00111.1ds +++| 00119 M01S00112.1ds +++| CPMR EQU 10D CONTROL POINT MOVE RETRY COUNT 00120 M01S00113.1ds +++| DFFL EQU 60000 DEFAULT FIELD LENGTH 00121 M01S00114.1ds +++| DFTL EQU 777777 DEFAULT JOB STEP TIME LIMIT 00122 M01S00115.1ds +++| SPACE 4,10 00123 M01S00116.1ds +++|*CALL COMPMAC 00124 M01S00117.1ds +++|*CALL COMSACC 00125 M01S00118.1ds +++| QUAL BIO 00126 M01S00119.1ds +++|*CALL COMSBIO 00127 M01S00120.1ds +++| QUAL * 00128 M01S00121.1ds +++|*CALL COMSCPS 00129 M01S00122.1ds +++|*CALL COMSDFS 00130 M01S00123.1ds +++| QUAL DSL 00131 M01S00124.1ds +++|*CALL COMSDSL 00132 M01S00125.1ds +++| QUAL * 00133 M01S00126.1ds +++|*CALL COMSDSP 00134 M01S00127.1ds +++|*CALL COMSEJT 00135 M01S00128.1ds +++| QUAL EVENT 00136 M01S00129.1ds +++|*CALL COMSEVT 00137 M01S00130.1ds +++| QUAL * 00138 M01S00131.1ds +++|*CALL COMSHIO 00139 M01S00132.1ds +++|*CALL COMSJIO 00140 M01S00133.1ds +++| QUAL LSD 00141 M01S00134.1ds +++|*CALL COMSLSD 00142 M01S00135.1ds +++| QUAL * 00143 M01S00136.1ds +++|*CALL COMSMLS 00144 M01S00137.1ds +++| QUAL MMF 00145 M01S00138.1ds +++|*CALL COMSMMF 00146 M01S00139.1ds +++| QUAL * 00147 M01S00140.1ds +++| QUAL MTX 00148 M01S00141.1ds +++|*CALL COMSMTX 00149 M01S00142.1ds +++| QUAL * 00150 M01S00143.1ds +++|*CALL COMSMSP 00151 M01S00144.1ds +++|*CALL COMSMST 00152 M01S00145.1ds +++|*CALL COMSPFM 00153 M01S00146.1ds +++| QUAL REM 00154 M01S00147.1ds +++|*CALL COMSREM 00155 M01S00148.1ds +++| QUAL * 00156 M01S00004.ns2765 +++| QUAL RSX 00157 M01S00005.ns2765 +++|*CALL COMSRSX 00158 M01S00006.ns2765 +++| QUAL * 00159 M01S00149.1ds +++|*CALL COMSSCD 00160 M01S00150.1ds +++|*CALL COMSSSD 00161 M01S00151.1ds +++|*CALL COMSSSE 00162 M01S00152.1ds +++|*CALL COMSPIM 00163 M01S00153.1ds +++|*CALL COMSPRD 00164 M01S00154.1ds +++|*CALL COMSTCM 00165 M01S00155.1ds +++|*CALL COMSWEI 00166 M01S00156.1ds +++|*CALL COMSZOL 00167 M01S00157.1ds +++| QUAL 1DS 00168 M01S00158.1ds +++| LIST X 00169 M01S00159.1ds +++|*CALL COMS1DS 00170 M01S00160.1ds +++| LIST * 00171 M01S00161.1ds +++| QUAL * 00172 M01S00162.1ds +++|*CALL COMS1MV 00173 M01S00163.1ds +++| TITLE MACRO DEFINITIONS. 00174 M01S00164.1ds +++| BIODF SPACE 4,20 00175 M01S00165.1ds +++|** BIODF - DEFINE *BIO* DEVICE/FUNCTIONS. 00176 M01S00166.1ds +++|* 00177 M01S00167.1ds +++|* BIODF FUNC,(DV,DV,...DV) 00178 M01S00168.1ds +++|* 00179 M01S00169.1ds +++|* ENTRY *FUNC* = *BIO* REQUEST FUNCTION. 00180 M01S00170.1ds +++|* *DV* = DEVICE TYPE. 00181 M01S00171.1ds +++|* 00182 M01S00172.1ds +++|* THIS MACRO WORKS LIKE THE *INDEX* MACRO DEFINED IN *COMPMAC*. 00183 M01S00173.1ds +++|* IT IS USED TO GENERATE A TABLE OF ALLOWABLE DEVICES FOR 00184 M01S00174.1ds +++|* REQUESTS TO *BIO*. ENTRIES IN THE TABLE ARE PLACED 00185 M01S00175.1ds +++|* BETWEEN THE FIRST *BIODF* AND LAST *BIODF* SHOWN BELOW. 00186 M01S00176.1ds +++|* 00187 M01S00177.1ds +++|*TAG BIODF 00188 M01S00178.1ds +++|* . 00189 M01S00179.1ds +++|* . 00190 M01S00180.1ds +++|* BIODF MAXFUNC 00191 M01S00181.1ds +++|* 00192 M01S00182.1ds +++|* MACROS .1. 00193 M01S00183.1ds +++| 00194 M01S00184.1ds +++| 00195 M01S00185.1ds +++| PURGMAC BIODF 00196 M01S00186.1ds +++| 00197 M01S00187.1ds +++| MACRO BIODF,A,B,C 00198 M01S00188.1ds +++| MACREF BIODF 00199 M01S00189.1ds +++| IFC NE,$A$$ 00200 M01S00190.1ds +++| A BSS 0 00201 M01S00191.1ds +++| .3 SET A 00202 M01S00192.1ds +++| ELSE 8 00203 M01S00193.1ds +++| ORG .3+/BIO/_B 00204 M01S00194.1ds +++| IFC NE,$C$$,5 00205 M01S00195.1ds +++| QUAL BIO 00206 M01S00196.1ds +++| LOC B 00207 M01S00197.1ds +++| .1 (C) 00208 M01S00198.1ds +++| CON .1 00209 M01S00199.1ds +++| QUAL * 00210 M01S00200.1ds +++| BSS 0 00211 M01S00201.1ds +++| BIODF ENDM 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 M01S00202.1ds +++| FCN SPACE 4,10 00228 M01S00203.1ds +++|** FCN - DEFINE FUNCTION PROCESSOR. 00229 M01S00204.1ds +++|* 00230 M01S00205.1ds +++|* FCN CODE,NAME 00231 M01S00206.1ds +++|* 00232 M01S00207.1ds +++|* ENTRY *CODE* = FUNCTION CODE. 00233 M01S00208.1ds +++|* *NAME* = FUNCTION PROCESSING ROUTINE NAME. 00234 M01S00209.1ds +++| 00235 M01S00210.1ds +++| 00236 M01S00211.1ds +++| FCN MACRO C,N 00237 M01S00212.1ds +++| INDEX C*2,N-N/10000B*10000B 00238 M01S00213.1ds +++| CON N/10000B 00239 M01S00214.1ds +++| ENDM 00240 M01S00215.1ds +++| OVERLAY SPACE 4,10 00241 M01S00216.1ds +++|** OVERLAY - DEFINE THE SECONDARY OVERLAY(S). 00242 M01S00217.1ds +++|* 00243 M01S00218.1ds +++|* OVERLAY (TEXT) 00244 M01S00219.1ds +++|* ENTRY *TEXT* = TEXT OF SUBTITLE. 00245 M01S00220.1ds +++| 00246 M01S00221.1ds +++| 00247 M01S00222.1ds +++| .N SET 0 00248 M01S00223.1ds +++| OVLB MICRO 1,, 2D OVERLAY NAME 00249 M01S00224.1ds +++| 00250 M01S00225.1ds +++| 00251 M01S00226.1ds +++| PURGMAC OVERLAY 00252 M01S00227.1ds +++| 00253 M01S00228.1ds +++| OVERLAY MACRO TEXT 00254 M01S00229.1ds +++| MACREF OVERLAY 00255 M01S00230.1ds +++| QUAL 00256 M01S00231.1ds +++| .N SET .N+1 00257 M01S00232.1ds +++| .M MICRO .N,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789 00258 M01S00233.1ds +++| .O MICRO 1,3, "OVLB"".M" 00259 M01S00234.1ds +++| QUAL ".O" 00260 M01S00235.1ds +++| TTL 1DS/".O" - TEXT 00261 M01S00236.1ds +++| TITLE 00262 M01S00237.1ds +++| IDENT ".O",OVLA TEXT 00263 M01S00238.1ds +++|*COMMENT 1DS - TEXT
| Line S00239 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00264 M02S00239.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00265 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00266 M01S00240.1ds +++| ORG OVLA 00267 M01S00241.1ds +++| LJM * ENTRY/EXIT 00268 M01S00242.1ds +++| UJN *-2 OVERLAY EXIT ADDRESS 00269 M01S00243.1ds +++| ENDM 00270 M01S00244.1ds +++| SUBSYST SPACE 4,10 00271 M01S00245.1ds +++|** SUBSYST - GENERATE SUBSYSTEM TABLE. 00272 M01S00246.1ds +++|* 00273 M01S00247.1ds +++|* SUBSYST NAME,ID,PR,PP,AUTO,DEF,DCP,CP,PROC,ABT 00274 M01S00248.1ds +++|* 00275 M01S00249.1ds +++|* ENTRY *NAME* = 3 CHARACTER SUBSYSTEM NAME. 00276 M01S00250.1ds +++|* *ID* = SUBSYSTEM ID. 00277 M01S00251.1ds +++|* *PP* = NAME OF PP, IF PP INITIATED SUBSYSTEM. 00278 M01S00252.1ds +++|* *AUTO* = *AUTO* IF *AUTO* ENABLED SUBSYSTEM. 00279 M01S00253.1ds +++| 00280 M01S00254.1ds +++| PURGMAC SUBSYST 00281 M01S00255.1ds +++| 00282 M01S00256.1ds +++| SUBSYST MACRO NM,ID,PT,PP,AU,DF,DC,CP,PR,AB 00283 M01S00257.1ds +++| .SUB RMT 00284 M01S00258.1ds +++| IAS.NM EQU * TAG FOR TABLE ENTRY 00285 M01S00259.1ds +++| VFD 18/3L_NM NAME 00286 M01S00260.1ds +++| .A IFC EQ,$PP$$ 00287 M01S00261.1ds +++| VFD 1/0 PPU FLAG 00288 M01S00262.1ds +++| .A ELSE 00289 M01S00263.1ds +++| VFD 1/1 PPU FLAG 00290 M01S00264.1ds +++| .A ENDIF 00291 M01S00265.1ds +++| .B IFC EQ,$AU$AUTO$ 00292 M01S00266.1ds +++| VFD 1/1 AUTO FLAG 00293 M01S00267.1ds +++| .B ELSE 00294 M01S00268.1ds +++| VFD 1/0 AUTO FLAG 00295 M01S00269.1ds +++| .B ENDIF 00296 M01S00270.1ds +++| .1 SET MXSI-ID 00297 M01S00271.1ds +++| .2 SET .1/12D 00298 M01S00272.1ds +++| .3 SET 4-.2 00299 M01S00273.1ds +++| .4 DECMIC .1-12D*.2 00300 M01S00274.1ds +++| .5 SET 1S".4" 00301 M01S00275.1ds +++| VFD 4/.3 *SSSL* BYTE 00302 M01S00276.1ds +++| VFD 12/ID SSID 00303 M01S00277.1ds +++| VFD 12/.5 *SSSL* MASK 00304 M01S00278.1ds +++| .C IFC EQ,$NM$CMS$ 00305 M01S00279.1ds +++| VFD 12/NOQF*100+7 00306 M01S00280.1ds +++| .C ELSE 00307 M01S00281.1ds +++| VFD 12/0 00308 M01S00282.1ds +++| .C ENDIF 00309 M01S00283.1ds +++| IASBE EQU *-IAS.NM 00310 M01S00284.1ds +++| .SUB RMT 00311 M01S00285.1ds +++| SUBSYST ENDM 00312 M01S00286.1ds +++| ENTRY SPACE 4,10 00313 M01S00287.1ds +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00314 M01S00288.1ds +++|* 00315 M01S00289.1ds +++|* NAME ENTRY 00316 M01S00290.1ds +++|* NAME = NAME OF ENTRY ADDRESS. 00317 M01S00291.1ds +++| 00318 M01S00292.1ds +++| 00319 M01S00293.1ds +++| PURGMAC ENTRY 00320 M01S00294.1ds +++| 00321 M01S00295.1ds +++| MACRO ENTRY,NAME 00322 M01S00296.1ds +++| MACREF ENTRY 00323 M01S00297.1ds +++| QUAL 00324 M01S00298.1ds +++| NAME_X LJM * EXIT ADDRESS 00325 M01S00299.1ds +++| NAME EQU *-1+.N*10000B 00326 M01S00300.1ds +++| .NAME EQU NAME-.N*10000B ENTRY ADDRESS WITHIN OVERLAY 00327 M01S00301.1ds +++| QUAL * 00328 M01S00302.1ds +++| ENDM 00329 M01S00303.1ds +++| TITLE MAIN PROGRAM. 00330 M01S00304.1ds +++|** IDS - MAIN PROGRAM. 00331 M01S00305.1ds +++| 00332 M01S00306.1ds +++| 00333 M01S00307.1ds +++| ORG PPFW
| Line S00308 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00334 M02S00308.1ds21 ---| IDS RJM PRS PRESET PROGRAM
| Line S00309 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00335 M02S00309.1ds21 ---| LDM TRQP+1,CM CHECK OVERLAY LOAD 00336 M01S00001.1ds21 +++| IDS RJM /PRESET/PRS PRESET PROGRAM 00337 M01S00002.1ds21 +++| LDM /PRESET/TRQP+1,CM CHECK OVERLAY LOAD 00338 M01S00310.1ds +++| ZJN IDS1 IF OVERLAY NOT NEEDED 00339 M01S00311.1ds +++| LMC 2L"OVLB" LOAD OVERLAY 00340 M01S00312.1ds +++| RJM EXR 00341 M01S00313.1ds +++| IDS1 RJM * PROCESS FUNCTION 00342 M01S00314.1ds +++| IDSA EQU *-1 00343 M01S00315.1ds +++| IDS2 RJM LKC LOG COMMAND 00344 M01S00316.1ds +++| LDC 0 00345 M01S00317.1ds +++| IDSB EQU *-1 00346 M01S00318.1ds +++| ZJN IDS3 IF NO JOBS ENTERED 00347 M01S00319.1ds +++| LDC INWL CHECK CHECKPOINT IN PROGRESS FLAG 00348 M01S00320.1ds +++| CRD CN 00349 M01S00321.1ds +++| LDD CN+4 00350 M01S00322.1ds +++| LPN 20 00351 M01S00323.1ds +++| NJN IDS3 IF CHECKPOINT IN PROGRESS 00352 M01S00324.1ds +++| LDN 1 00353 M01S00325.1ds +++| STD CM+2 00354 M01S00326.1ds +++| MONITOR RSJM REQUEST SCHEDULER 00355 M01S00327.1ds +++| LDN ** 00356 M01S00328.1ds +++| IDSE EQU *-1 00357 M01S00329.1ds +++| NJN IDS4 IF PP NOT TO BE DROPPED 00358 M01S00330.1ds +++| IDS3 MONITOR DPPM DROP PP 00359 M01S00331.1ds +++| IDS4 LJM PPR EXIT TO PP RESIDENT 00360 M01S00332.1ds +++| 00361 M01S00333.1ds +++| 00362 M01S00334.1ds +++| IDSC CON 0 ORIGINAL (IR+2) 00363 M01S00335.1ds +++| IDSD CON 0 *DSD* REPLY STATUS 00364 M01S00336.1ds +++| TITLE RESIDENT SUBROUTINES. 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 (Updated by) | ns2748a |
Seq # *Modification Id* Act ----------------------------+ 00371 M02S00009.ns2748a ---|* ERROR TO *IDS2* IF SUBSYSTEM NOT ACTIVE. 00372 M01S00001.ns2748a +++|* EXIT (A) = 0, IF SUBSYSTEM ACTIVE. 00373 M01S00002.ns2748a +++|* TO *IDS2* IF SUBSYSTEM NOT ACTIVE. 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 M01S00337.1ds +++| FAS SPACE 4,10 00388 M01S00338.1ds +++|** FAS - FORMAT AND SEND ACCOUNT FILE MESSAGE. 00389 M01S00339.1ds +++|* 00390 M01S00340.1ds +++|* FORMAT AND SEND *DSD* MESSAGE TO ACCOUNT DAYFILE 00391 M01S00341.1ds +++|* AND/OR ERROR LOG AND/OR SYSTEM DAYFILE. 00392 M01S00342.1ds +++|* 00393 M01S00343.1ds +++|* ENTRY (IDSC) = LOGGING CONTROL BITS. 00394 M01S00344.1ds +++|* (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ . 00395 M01S00345.1ds +++|* (BUF+2 - BUF+61) = DSD KEYBOARD DATA. 00396 M01S00346.1ds +++|* 00397 M01S00347.1ds +++|* CALLS DFM, RPK. 00398 M01S00348.1ds +++| 00399 M01S00349.1ds +++| 00400 M01S00350.1ds +++| FAS SUBR ENTRY/EXIT
| Line S00351 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00401 M02S00351.1ds21 ---| LDC BUF+2 READ AND PACK KEYBOARD BUFFER 00402 M01S00023.1ds21 +++| LDC /OVERLAY/BUF+2 READ AND PACK KEYBOARD BUFFER 00403 M01S00352.1ds +++| RJM RPK 00404 M01S00353.1ds +++| LDN ZERL CLEAR LAST WORD
| Line S00354 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00405 M02S00354.1ds21 ---| CRM BUF+31,ON 00406 M01S00024.1ds21 +++| CRM /OVERLAY/BUF+31,ON 00407 M01S00355.1ds +++| LDC 2RDS PLACE HEADER ON MESSAGE
| Line S00356 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00408 M02S00356.1ds21 ---| STM BUF 00409 M01S00025.1ds21 +++| STM /OVERLAY/BUF 00410 M01S00357.1ds +++| LDC 2R,
| Line S00358 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00411 M02S00358.1ds21 ---| STM BUF+1 00412 M01S00026.1ds21 +++| STM /OVERLAY/BUF+1 00413 M01S00359.1ds +++| LDM IDSC 00414 M01S00360.1ds +++| SHN 21-6 00415 M01S00361.1ds +++| PJN FAS1 IF ERROR LOG NOT SELECTED
| Line S00362 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00416 M02S00362.1ds21 ---| LDC BUF+ERLN SEND TO ERROR LOG 00417 M01S00027.1ds21 +++| LDC /OVERLAY/BUF+ERLN SEND TO ERROR LOG 00418 M01S00363.1ds +++| RJM DFM 00419 M01S00364.1ds +++| FAS1 LDM IDSC 00420 M01S00365.1ds +++| SHN 21-7 00421 M01S00366.1ds +++| PJN FAS2 IF SYSTEM DAYFILE NOT SELECTED
| Line S00367 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00422 M02S00367.1ds21 ---| LDC BUF+NMSN
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 1ds21 |
M02 (Updated by) | 1ds31 |
Seq # *Modification Id* Act ----------------------------+ 00423 M02S00028.1ds31 ---| LDC /OVERLAY/BUF+NMSN 00424 M01S00001.1ds31 +++| LDC /OVERLAY/BUF+MDON 00425 M01S00368.1ds +++| RJM DFM 00426 M01S00369.1ds +++| FAS2 LDM IDSC 00427 M01S00370.1ds +++| SHN 21-10 00428 M01S00371.1ds +++| PJN FAS3 IF ACCOUNT FILE NOT SELECTED 00429 M01S00372.1ds +++| LDN ZERL CLEAR LAST WORD
| Line S00373 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00430 M02S00373.1ds21 ---| CRM BUFB+31,ON
| Line S00374 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00431 M02S00374.1ds21 ---| LDC BUFB+ACFN 00432 M01S00029.1ds21 +++| CRM /OVERLAY/BUFB+31,ON 00433 M01S00030.1ds21 +++| LDC /OVERLAY/BUFB+ACFN 00434 M01S00375.1ds +++| RJM DFM 00435 M01S00376.1ds +++| FAS3 LJM FASX EXIT 00436 M01S00377.1ds +++| LKC SPACE 4,10 00437 M01S00378.1ds +++|** LKC - LOG KEYBOARD COMMAND. 00438 M01S00379.1ds +++|* 00439 M01S00380.1ds +++|* ENTRY (IDSC) = ORIGINAL IR+2. 00440 M01S00381.1ds +++|* 00441 M01S00382.1ds +++|* EXIT (IR+4) = 0. 00442 M01S00383.1ds +++|* 00443 M01S00384.1ds +++|* USES IR+4, CM - CM+4. 00444 M01S00385.1ds +++|* 00445 M01S00386.1ds +++|* CALLS FAS. 00446 M01S00387.1ds +++| 00447 M01S00388.1ds +++| 00448 M01S00389.1ds +++| LKC SUBR ENTRY/EXIT 00449 M01S00390.1ds +++| LDM IDSC SET LOGGING PARAMETER 00450 M01S00391.1ds +++| LPC 700 00451 M01S00392.1ds +++| ZJN LKC1 IF NO LOGGING REQUIRED 00452 M01S00393.1ds +++| LDN 0 00453 M01S00394.1ds +++| STD IR+4 00454 M01S00395.1ds +++| RJM FAS PROCESS LOGGING 00455 M01S00396.1ds +++| LKC1 LDM IDSC 00456 M01S00397.1ds +++| LPC 1700 00457 M01S00398.1ds +++| ZJN LKCX IF INTERLOCK NOT SET 00458 M01S00399.1ds +++| LMM IDSC 00459 M01S00400.1ds +++| STM IDSC 00460 M01S00401.1ds +++| LDM IDSD *DSD* REPLY 00461 M01S00402.1ds +++| STD T7 00462 M01S00403.1ds +++| LDN ZERL CLEAR INTERLOCK 00463 M01S00404.1ds +++| CRD CM 00464 M01S00405.1ds +++| ADN /1DS/DSDL+1-ZERL 00465 M01S00406.1ds +++| CWD T7 00466 M01S00407.1ds +++| SBN 1 00467 M01S00408.1ds +++| CWD CM 00468 M01S00409.1ds +++| UJN LKCX RETURN 00469 M01S00410.1ds +++| RPK SPACE 4,10 00470 M01S00411.1ds +++|** RPK - READ AND PACK KEYBOARD BUFFER. 00471 M01S00412.1ds +++|* 00472 M01S00413.1ds +++|* ENTRY (A) = DESTINATION ADDRESS. 00473 M01S00414.1ds +++|* (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/ . 00474 M01S00415.1ds +++|* 00475 M01S00416.1ds +++|* USES S1, S2, T0. 00476 M01S00417.1ds +++| 00477 M01S00418.1ds +++| 00478 M01S00419.1ds +++| RPK SUBR ENTRY/EXIT 00479 M01S00420.1ds +++| STD S1 SAVE ADDRESS 00480 M01S00421.1ds +++| LDN /1DS/KBCML 00481 M01S00422.1ds +++| STD S2 00482 M01S00423.1ds +++| LDC /1DS/DSDL 00483 M01S00424.1ds +++| CRM BFMS+100D,S2 00484 M01S00425.1ds +++| LDN ZERL 00485 M01S00426.1ds +++| CRM BFMS+100D+/1DS/KBCML*5,ON 00486 M01S00427.1ds +++| LDD IR+4 SET KEYBOARD ADDRESS 00487 M01S00428.1ds +++| SHN -6 00488 M01S00429.1ds +++| ADC BFMS+100D 00489 M01S00430.1ds +++| STD S2 00490 M01S00431.1ds +++| LDN /1DS/KBCML*5/2 00491 M01S00432.1ds +++| STD T0 00492 M01S00433.1ds +++| RPK1 LDI S2 PACK NEXT TWO CHARACTERS 00493 M01S00434.1ds +++| SHN 6 00494 M01S00435.1ds +++| LMM 1,S2 00495 M01S00436.1ds +++| STI S1 00496 M01S00437.1ds +++| ZJN RPK2 IF END OF MESSAGE 00497 M01S00438.1ds +++| LDN 2 00498 M01S00439.1ds +++| RAD S2 00499 M01S00440.1ds +++| RPK2 AOD S1 00500 M01S00441.1ds +++| SOD T0 00501 M01S00442.1ds +++| PJN RPK1 IF MORE DATA TO PACK 00502 M01S00443.1ds +++| LDD S1 READ ONE CM WORD OF ZERO 00503 M01S00444.1ds +++| STM RPKA 00504 M01S00445.1ds +++| LDN ZERL 00505 M01S00446.1ds +++| CRM *,ON 00506 M01S00447.1ds +++| RPKA EQU *-1 00507 M01S00448.1ds +++| LJM RPKX EXIT 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 M01S00449.1ds +++| SRD SPACE 4,10 00530 M01S00450.1ds +++|** SRD - SAVE REPLY TO *DSD*. 00531 M01S00451.1ds +++|* 00532 M01S00452.1ds +++|* ENTRY (A) = 0 IF POSITIVE REPLY TO *DSD*. 00533 M01S00453.1ds +++|* 00534 M01S00454.1ds +++|* EXIT (IDSD) = *DSD* REPLY. 00535 M01S00455.1ds +++|* (IDSC) LOGGING BITS (6-8) CLEARED IF ERROR RESPONSE. 00536 M01S00456.1ds +++| 00537 M01S00457.1ds +++| 00538 M01S00458.1ds +++| SRD SUBR ENTRY/EXIT 00539 M01S00459.1ds +++| STM IDSD SAVE REPLY 00540 M01S00460.1ds +++| ZJN SRDX IF NO ERROR 00541 M01S00461.1ds +++| LDM IDSC 00542 M01S00462.1ds +++| LPC -700 CLEAR LOGGING 00543 M01S00463.1ds +++| STM IDSC 00544 M01S00464.1ds +++| UJN SRDX RETURN 00545 M01S00465.1ds +++| SPACE 4,10 00546 M01S00466.1ds +++|** COMMON DECKS. 00547 M01S00467.1ds +++| 00548 M01S00468.1ds +++| 00549 M01S00469.1ds +++| QUAL ACS
| Line S00470 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00550 M02S00470.1ds21 ---| QUAL$ EQU 0 00551 M01S00031.1ds21 +++| QUAL$ EQU 0 DO NOT FURTHER QUALIFY *ACS* 00552 M01S00471.1ds +++| T2 EQU LA 00553 M01S00472.1ds +++|*CALL COMPACS 00554 M01S00473.1ds +++| QUAL * 00555 M01S00474.1ds +++| ACS EQU /ACS/ACS 00556 M01S00475.1ds +++|*CALL COMPCLD 00557 M01S00476.1ds +++|*CALL COMPC2D 00558 M01S00477.1ds +++|*CALL COMPCTI 00559 M01S00478.1ds +++| RND$ EQU 1 SELECT ROUNDING FOR *COMPDV5* 00560 M01S00479.1ds +++|*CALL COMPDV5 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 00564 M01S00001.271l750 +++| JCB$ EQU 1 JCB SEARCH 00565 M01S00035.1ds21 +++| QFT$ EQU 1 QFT SEARCH 00566 M01S00036.1ds21 +++|*CALL COMPGFP 00567 M01S00001.ns2684 +++| SFI$ EQU 1 SELECT CALLER DELAY PROCESSING 00568 M01S00002.ns2684 +++|*CALL COMPSFI TABLE INTERLOCK 00569 M01S00480.1ds +++|*CALL COMPSTI 00570 M01S00481.1ds +++|*CALL COMPTGB 00571 M01S00482.1ds +++|*CALL COMPTLB
| Line S00483 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00572 M02S00483.ns2663 ---|*CALL COMPWEI 00573 M01S00484.1ds +++| WCS$ EQU 1 CONSECUTIVE SECTORS AFTER SYSTEM SECTOR 00574 M01S00485.1ds +++|*CALL COMPWSS 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 M01S00486.1ds +++| CCF SPACE 4,15 00580 M01S00487.1ds +++|** CCF - CLEAR CHECKPOINT FLAGS. 00581 M01S00488.1ds +++|* 00582 M01S00489.1ds +++|* THIS ROUTINE CLEARS THE *VALID CHECKPOINT 00583 M01S00490.1ds +++|* FILE* FLAG IN THE SECTOR OF LOCAL AREAS FOR 00584 M01S00491.1ds +++|* EACH CHECKPOINT DEVICE. THIS PREVENTS 00585 M01S00492.1ds +++|* LEVEL 1 AND 2 RECOVERY DEADSTART FROM 00586 M01S00493.1ds +++|* AN OBSOLETE CHECKPOINT FILE. 00587 M01S00494.1ds +++|* 00588 M01S00495.1ds +++|* USES T6, AB - AB+4, CM - CM+4, CN - CN+4, 00589 M01S00496.1ds +++|* FN - FN+4, FS - FS+4. 00590 M01S00497.1ds +++|* 00591 M01S00498.1ds +++|* CALLS CSB, LKC. 00592 M01S00499.1ds +++|* 00593 M01S00500.1ds +++|* MACROS SFA. 00594 M01S00501.1ds +++| 00595 M01S00502.1ds +++| 00596 M01S00503.1ds +++| CCF SUBR ENTRY/EXIT 00597 M01S00504.1ds +++| RJM LKC LOG KEYBOARD COMMAND 00598 M01S00505.1ds +++| CCF1 LDN JSCL READ SCHEDULER CONTROL WORD 00599 M01S00506.1ds +++| CRD AB 00600 M01S00507.1ds +++| LDD AB 00601 M01S00508.1ds +++| SHN 21-13 00602 M01S00509.1ds +++| PJN CCF2 IF SCHEDULER ACTIVE 00603 M01S00510.1ds +++| DELAY 00604 M01S00511.1ds +++| UJN CCF1 WAIT UNTIL SCHEDULER ACTIVE 00605 M01S00512.1ds +++| 00606 M01S00513.1ds +++| CCF2 LDK ESTP GET LAST MASS STORAGE EST ORDNAL+1 00607 M01S00514.1ds +++| CRD AB 00608 M01S00515.1ds +++| ADK MMFL-ESTP 00609 M01S00516.1ds +++| CRD FN 00610 M01S00517.1ds +++| LDN NOPE-1 INITIALIZE EST ORDINAL 00611 M01S00518.1ds +++| STD S1 00612 M01S00519.1ds +++| CCF3 AOD S1 ADVANCE EST ORDINAL 00613 M01S00520.1ds +++| STD T5 00614 M01S00521.1ds +++| LMD AB+3 00615 M01S00522.1ds +++| ZJN CCFX IF END OF MASS STORAGE DEVICES 00616 M01S00523.1ds +++| SFA EST,S1 READ EST ENTRY 00617 M01S00524.1ds +++| ADK EQDE 00618 M01S00525.1ds +++| CRD FS 00619 M01S00526.1ds +++| LDD FS 00620 M01S00527.1ds +++| SHN 21-13 00621 M01S00528.1ds +++| PJN CCF3 IF NOT MASS STORAGE DEVICE 00622 M01S00529.1ds +++| SHN 13-2 00623 M01S00530.1ds +++| PJN CCF3 IF NOT CHECKPOINT DEVICE 00624 M01S00531.1ds +++| LDD FS+4 00625 M01S00532.1ds +++| SHN 3 00626 M01S00533.1ds +++| ADK ACGL 00627 M01S00534.1ds +++| CRD CN 00628 M01S00535.1ds +++| ADK ALGL-ACGL 00629 M01S00536.1ds +++| CRD CM 00630 M01S00537.1ds +++| LDD CM+1 SET LABEL TRACK FOR *CSB* 00631 M01S00538.1ds +++| STD T6 00632 M01S00539.1ds +++| RJM CSB CLEAR SLA BIT 00633 M01S00540.1ds +++| UJN CCF3 PROCESS NEXT DEVICE 00634 M01S00541.1ds +++| CCI SPACE 4,15 00635 M01S00542.1ds +++|** CCI - COMPLETE COMMAND IMAGE. 00636 M01S00543.1ds +++|* 00637 M01S00544.1ds +++|* ENTRY (A) = ADDRESS OF COMMAND COMPLETION IN *C* FORMAT. 00638 M01S00545.1ds +++|* (CA) = FWA OF COMMAND BUFFER. 00639 M01S00546.1ds +++|* 00640 M01S00547.1ds +++|* EXIT (T1) = BUFFER ADDRESS FOR NEXT COMMAND. 00641 M01S00548.1ds +++|* 00642 M01S00549.1ds +++|* ERROR TO *IDS2* IF FULL SECTOR. 00643 M01S00550.1ds +++|* 00644 M01S00551.1ds +++|* USES T1. 00645 M01S00552.1ds +++|* 00646 M01S00553.1ds +++|* CALLS ACS, DV5. 00647 M01S00554.1ds +++| 00648 M01S00555.1ds +++| 00649 M01S00556.1ds +++| CCI2 ADD HN SET ADDRESS FOR NEXT COMMAND 00650 M01S00557.1ds +++| STD T1 00651 M01S00558.1ds +++| SHN 2 00652 M01S00559.1ds +++| ADD CA 00653 M01S00560.1ds +++| RAD T1 00654 M01S00561.1ds +++| 00655 M01S00562.1ds +++| CCI SUBR ENTRY/EXIT 00656 M01S00563.1ds +++| RJM ACS ASSEMBLE CHARACTER STRING 00657 M01S00564.1ds +++| LDI T1 00658 M01S00565.1ds +++| ZJN CCI1 IF ASSEMBLY ON BYTE BOUNDARY 00659 M01S00566.1ds +++| AOD T1 00660 M01S00567.1ds +++| CCI1 AOD T1 CALCULATE CM WORD COUNT 00661 M01S00568.1ds +++| SBD CA 00662 M01S00569.1ds +++| RJM DV5 00663 M01S00570.1ds +++| STM -1,CA SET WORD COUNT IN LINKAGE 00664 M01S00571.1ds +++| SBD HN 00665 M01S00572.1ds +++| MJN CCI2 IF NOT FULL SECTOR 00666 M01S00573.1ds +++| LJM IDS2 DROP PP 00667 M01S00574.1ds +++| CSB SPACE 4,15 00668 M01S00575.1ds +++|** CSB - CLEAR SLA BIT. 00669 M01S00576.1ds +++|* 00670 M01S00577.1ds +++|* ENTRY (T5) = CHECKPOINT DEVICE EST ORDINAL. 00671 M01S00578.1ds +++|* (T6) = LABEL TRACK. 00672 M01S00579.1ds +++|* (CN - CN+4) = *ACGL* WORD OF MST. 00673 M01S00580.1ds +++|* (FN - FN+4) = *MMFL*. 00674 M01S00581.1ds +++|* 00675 M01S00582.1ds +++|* USES T1, T2, T7. 00676 M01S00583.1ds +++|* 00677 M01S00584.1ds +++|* CALLS CTI, RDS, STI, WDS. 00678 M01S00585.1ds +++|* 00679 M01S00586.1ds +++|* MACROS ENDMS, SETMS. 00680 M01S00587.1ds +++| 00681 M01S00588.1ds +++| 00682 M01S00589.1ds +++| CSB3 ENDMS 00683 M01S00590.1ds +++| CSB4 LDD T6 CLEAR TRACK INTERLOCK 00684 M01S00591.1ds +++| RJM CTI 00685 M01S00592.1ds +++| 00686 M01S00593.1ds +++| CSB SUBR ENTRY/EXIT 00687 M01S00594.1ds +++| LDD CN+4 00688 M01S00595.1ds +++| LPC MGLAP 00689 M01S00596.1ds +++| ZJN CSBX IF NO SECTOR OF LOCAL AREAS 00690 M01S00597.1ds +++| RJM STI SET LABEL TRACK INTERLOCK 00691 M01S00598.1ds +++| NJN CSBX IF ERROR 00692 M01S00599.1ds +++| LDN /MMF/LMLT SET LOCAL AREA SECTOR 00693 M01S00600.1ds +++| STD T7 00694 M01S00601.1ds +++| SETMS IO,RW 00695 M01S00602.1ds +++| LDC BFMS 00696 M01S00603.1ds +++| RJM RDS 00697 M01S00604.1ds +++| MJN CSB4 IF ERROR 00698 M01S00605.1ds +++| LDM BFMS 00699 M01S00606.1ds +++| ZJN CSB3 IF UNFORMATTED SECTOR 00700 M01S00607.1ds +++| LCN 2*5-1 INITIALIZE ENTRY OFFSET 00701 M01S00608.1ds +++| STD T2 00702 M01S00609.1ds +++| LCN 2-1 INITIALIZE WORD COUNT 00703 M01S00610.1ds +++| STD T1 00704 M01S00611.1ds +++| CSB1 LDN 2*5 ADVANCE ENTRY OFFSET 00705 M01S00612.1ds +++| RAD T2 00706 M01S00613.1ds +++| LDN 2 INCREMENT WORD COUNT 00707 M01S00614.1ds +++| RAD T1 00708 M01S00615.1ds +++| LDD T1 00709 M01S00616.1ds +++| SBM BFMS+1 00710 M01S00617.1ds +++| PJN CSB2 IF NO ENTRY FOR THIS MF 00711 M01S00618.1ds +++| LDM BFMS+2,T2 00712 M01S00619.1ds +++| LMD FN 00713 M01S00620.1ds +++| NJN CSB1 IF ENTRY NOT FOR THIS MF 00714 M01S00621.1ds +++| LDM BFMS+2+1,T2 CLEAR *VALID CHECKPOINT FILE* FLAG 00715 M01S00622.1ds +++| LPC 3777 00716 M01S00623.1ds +++| STM BFMS+2+1,T2 00717 M01S00624.1ds +++| LDC BFMS+WLSF REWRITE SECTOR 00718 M01S00625.1ds +++| RJM WDS 00719 M01S00626.1ds +++| CSB2 LJM CSB3 CLEAR TRACK INTERLOCK
| Line S00627 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00720 M02S00627.1ds21 ---| CSS SPACE 4,10
| Line S00628 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00721 M02S00628.1ds21 ---|** CSS - CHECK SUBSYSTEM STATUS.
| Line S00629 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00722 M02S00629.1ds21 ---|*
| Line S00630 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00723 M02S00630.1ds21 ---|* ENTRY (A) = SUBSYSTEM ID.
| Line S00631 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00724 M02S00631.1ds21 ---|* (CP) = SUBSYSTEM CPA ADDRESS.
| Line S00632 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00725 M02S00632.1ds21 ---|*
| Line S00633 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00726 M02S00633.1ds21 ---|* ERROR TO *IDS2* IF SUBSYSTEM NOT ACTIVE.
| Line S00634 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00727 M02S00634.1ds21 ---|*
| Line S00635 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00728 M02S00635.1ds21 ---|* USES T7, CM - CM+4.
| Line S00636 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00729 M02S00636.1ds21 ---|
| Line S00637 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00730 M02S00637.1ds21 ---|
| Line S00638 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00731 M02S00638.1ds21 ---| CSS SUBR ENTRY/EXIT
| Line S00639 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00732 M02S00639.1ds21 ---| STD T7
| Line S00640 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00733 M02S00640.1ds21 ---| LDD CP
| Line S00641 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00734 M02S00641.1ds21 ---| ADN JCIW
| Line S00642 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00735 M02S00642.1ds21 ---| CRD CM
| Line S00643 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00736 M02S00643.1ds21 ---| LDD CM+2
| Line S00644 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00737 M02S00644.1ds21 ---| LMD T7
| Line S00645 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00738 M02S00645.1ds21 ---| ZJN CSSX IF CORRECT SUBSYSTEM
| Line S00646 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 00739 M02S00646.1ds21 ---| LJM IDS2 DROP PP
| Line S00647 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00740 M02S00647.ns2663 ---| EJB SPACE 4,20 00741 M01S00001.ns2663 +++| EJB SPACE 4,25 00742 M01S00648.1ds +++|** EJB - ENTER JOB. 00743 M01S00649.1ds +++|* 00744 M01S00650.1ds +++|* ENTRY (BUFA - BUFA+4) = UJN, ZERO-FILLED. 00745 M01S00651.1ds +++|* (BA) = FWA OF COMMAND SECTOR. 00746 M01S00652.1ds +++|* (JS) = JOB SERVICE CLASS. 00747 M01S00653.1ds +++|* (FN - FN+4) = SUBSYSTEM NAME, SPACE-FILLED. 00748 M01S00654.1ds +++|* (EJBC) = FILE TYPE AND STATUS, IF FILE TYPE .NE. 00749 M01S00655.1ds +++|* *INQF*. 00750 M01S00656.1ds +++|* (EJBE) = SUBSYSTEM ID. 00751 M01S00657.1ds +++|* (EJBF - EJBG) = PROCEDURE FILE NAME. 00752 M01S00658.1ds +++|* 00753 M01S00659.1ds +++|* EXIT (A) = 0 IF JOB ENTERED. 00754 M01S00660.1ds +++|* (A) .LT. 0 FOR - QFT FULL / TRACK LIMIT / DISK ERROR. 00755 M01S00661.1ds +++|* (QA) = QFT ORDINAL. 00756 M01S00662.1ds +++|* = 0, IF NO QFT ENTRY WAS ASSIGNED. 00757 M01S00663.1ds +++|* (FN - FN+4) = FIRST WORD OF QFT ENTRY. 00758 M01S00664.1ds +++|*
| Line S00665 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00759 M02S00665.ns2663 ---|* USES QA, CM - CM+4, T1 - T7. 00760 M01S00002.ns2663 +++|* USES QA, CM - CM+4, FN - FN+4, T1 - T7. 00761 M01S00666.1ds +++|*
| Line S00667 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00762 M02S00667.ns2663 ---|* CALLS CTE, IAM, RFI, WDS, WEI, WSS. 00763 M01S00003.ns2663 +++|* CALLS CTE, RFI, WDS, WEI, WSS, *0QM*. 00764 M01S00668.1ds +++|*
| Line S00669 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00765 M02S00669.ns2663 ---|* MACROS ENDMS, MONITOR, SETMS, SFA. 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 M01S00670.1ds +++| 00771 M01S00671.1ds +++| 00772 M01S00672.1ds +++| EJB SUBR ENTRY/EXIT 00773 M01S00673.1ds +++| LDC 501 00774 M01S00674.1ds +++| STD T7 00775 M01S00675.1ds +++| EJB1 LDN 0 CLEAR SYSTEM SECTOR BUFFER 00776 M01S00676.1ds +++| STM BFMS,T7 00777 M01S00677.1ds +++| SOD T7 00778 M01S00678.1ds +++| NJN EJB1 IF NOT START OF BUFFER 00779 M01S00001.1ds26 +++| STD QA INITIALIZE QFT ORDINAL 00780 M01S00679.1ds +++| LDN PDTL ENTER CREATION DATE 00781 M01S00680.1ds +++| CRM CDSS,ON 00782 M01S00681.1ds +++| ADN RTCL-PDTL-1 SET ENTRY TIME 00783 M01S00682.1ds +++| CRM IOSS+5*ENTQ+3,ON 00784 M01S00683.1ds +++| 00785 M01S00684.1ds +++|* SET JOB ACCESS LEVEL LIMITS AND ACCESS LEVEL VALIDATION 00786 M01S00685.1ds +++|* BITS TO ALL LEVELS VALID FOR THE SYSTEM. FOR THE 00787 M01S00686.1ds +++|* DEADSTART SEQUENCING JOB, SET ALL LEVELS AND VALIDATIONS, 00788 M01S00687.1ds +++|* REGARDLESS OF SYSTEM LIMITS. A NULL CATEGORY SET WILL BE 00789 M01S00688.1ds +++|* SET FOR ALL JOBS. 00790 M01S00689.1ds +++| 00791 M01S00690.1ds +++| LDN ZERL SET UP *VSAM* FUNCTION 00792 M01S00691.1ds +++| CRD CM 00793 M01S00692.1ds +++| ERRNZ SYOT CODE DEPENDS ON VALUE 00794 M01S00693.1ds +++| CRM IOSS+5*ENTQ+5,ON 00795 M01S00694.1ds +++| LDN 7 REQUEST ALL VALID ACCESS LEVELS 00796 M01S00695.1ds +++| STD CM+3 00797 M01S00696.1ds +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS 00798 M01S00697.1ds +++| STD CM+1 00799 M01S00698.1ds +++| LDD MA SET ALL LEVELS AND VALIDATIONS 00800 M01S00699.1ds +++| CWM EJBL,ON 00801 M01S00700.1ds +++| SBN 1 00802 M01S00701.1ds +++| CRM VASS+5*ASVW,ON 00803 M01S00702.1ds +++| MONITOR VSAM REQUEST VALID LEVELS AND CATEGORIES 00804 M01S00703.1ds +++| LDM EJBE 00805 M01S00704.1ds +++| LMC DSSI 00806 M01S00705.1ds +++| ZJN EJB1.0 IF DEADSTART SEQUENCING JOB 00807 M01S00706.1ds +++| LDD MA SET ONLY VALID LEVELS 00808 M01S00707.1ds +++| CRM VASS+5*ASVW,ON 00809 M01S00708.1ds +++| LDN 0 CLEAR VALIDATION BITS 00810 M01S00709.1ds +++| STM VASS+5*ASVW 00811 M01S00710.1ds +++| 00812 M01S00711.1ds +++|* SET JOB ACCESS LEVEL LIMITS INTO QFT. 00813 M01S00712.1ds +++| 00814 M01S00713.1ds +++| EJB1.0 LDD CM+4 LOWER ACCESS LEVEL LIMIT 00815 M01S00714.1ds +++| SHN 3 00816 M01S00715.1ds +++| LMD CM+2 INITIAL JOB ACCESS LEVEL 00817 M01S00716.1ds +++| SHN 3 00818 M01S00717.1ds +++| LMD CM+3 UPPER ACCESS LEVEL LIMIT 00819 M01S00718.1ds +++| STM IOSS+5*INSQ+3 00820 M01S00719.1ds +++| 00821 M01S00720.1ds +++|* ASSIGN MASS STORAGE FOR FILE. 00822 M01S00721.1ds +++| 00823 M01S00722.1ds +++| LDN ZERL 00824 M01S00723.1ds +++| CRD CM 00825 M01S00724.1ds +++| LDM IOSS+5*INSQ+3 GET LOWER ACCESS LEVEL LIMIT 00826 M01S00725.1ds +++| SHN -6 00827 M01S00726.1ds +++| ADN 40 SET ACCESS LEVEL SELECTION BIT 00828 M01S00727.1ds +++| SHN 6 00829 M01S00728.1ds +++| STD CM+3 00830 M01S00729.1ds +++| EJBF LDN TNDS SELECT TEMPORARY - NONSHARED DEVICE 00831 M01S00730.1ds +++|* LDN TSDS (SELECT SYSTEM DEVICE) 00832 M01S00731.1ds +++| STD CM+2 00833 M01S00732.1ds +++| MONITOR RTCM REQUEST TRACK CHAIN 00834 M01S00733.1ds +++| LDD CM+4 00835 M01S00734.1ds +++| STM IOSS+5*ENTQ+1 00836 M01S00735.1ds +++| NJN EJB1.1 IF TRACK ASSIGNED 00837 M01S00736.1ds +++| LDD CP ISSUE B-DISPLAY MESSAGE 00838 M01S00737.1ds +++| ADK MS2W 00839 M01S00738.1ds +++| CWM EJBN,TR 00840 M01S00739.1ds +++| LJM EJB2.1 SET QUEUED STATUS 00841 M01S00740.1ds +++| 00842 M01S00741.1ds +++| EJB1.1 STD T6 00843 M01S00742.1ds +++| LDD CM+1 SAVE EQUIPMENT 00844 M01S00743.1ds +++| STD T5 00845 M01S00744.1ds +++| STM IOSS+5*ENTQ 00846 M01S00745.1ds +++| LDC 7777 SET UI=377777 00847 M01S00746.1ds +++|* LDC 0 (SET BY *ICJ*) 00848 M01S00747.1ds +++| EJBA EQU *-1 00849 M01S00748.1ds +++| STD FN+3 00850 M01S00749.1ds +++| LDC 100+37 SET FAMILY ORDINAL=1 00851 M01S00750.1ds +++|* LDC 0 (SET BY *ICJ*) 00852 M01S00751.1ds +++| EJBB EQU *-1 00853 M01S00752.1ds +++| STD FN+2 00854 M01S00753.1ds +++| LDC INQF*100+7 SET FILE TYPE AND STATUS 00855 M01S00754.1ds +++| EJBC EQU *-1 00856 M01S00755.1ds +++| STD FN+4 00857 M01S00756.1ds +++| LDD MA 00858 M01S00757.1ds +++| CWD FN 00859 M01S00758.1ds +++| CRD CM+3 00860 M01S00759.1ds +++| LDD JS 00861 M01S00760.1ds +++| LMN SYSC 00862 M01S00761.1ds +++| ZJN EJB2 IF SYSTEM JOB 00863 M01S00762.1ds +++| LMN SYSC&DSSC 00864 M01S00763.1ds +++| ZJN EJB2 IF DEADSTART SEQUENCING JOB 00865 M01S00764.1ds +++| LMN DSSC&SSSC 00866 M01S00765.1ds +++| ZJN EJB2 IF SUBSYSTEM 00867 M01S00766.1ds +++| LDC -4000 00868 M01S00767.1ds +++| EJB2 ADC 4000 SET SYSTEM JOB FLAG 00869 M01S00768.1ds +++| EJBD ADC PQFT REQUEST QFT ENTRY 00870 M01S00769.1ds +++|* ADC 10000B+PQFT (DISABLE JSN ACQUISITION) 00871 M01S00770.1ds +++| RJM CTE 00872 M01S00771.1ds +++| NJN EJB3 IF ENTRY CREATED
| Line S00772 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds26 |
Seq # *Modification Id* Act ----------------------------+ 00873 M02S00772.1ds26 ---| STD QA INDICATE NO ENTRY WAS ASSIGNED 00874 M01S00773.1ds +++| EJB2.0 LDD T6 SET TRACK 00875 M01S00774.1ds +++| STD CM+2 00876 M01S00775.1ds +++| LDD T5 SET EQUIPMENT 00877 M01S00776.1ds +++| STD CM+1 00878 M01S00777.1ds +++| MONITOR DTKM DROP ALL TRACKS 00879 M01S00778.1ds +++| EJB2.1 LCN 0 SET JOB NOT QUEUED STATUS 00880 M01S00779.1ds +++| LJM EJBX RETURN 00881 M01S00780.1ds +++| 00882 M01S00781.1ds +++| EJB3 CRD FN FIRST WORD OF QFT ENTRY 00883 M01S00782.1ds +++| CRM IOSS,ON 00884 M01S00783.1ds +++| LDM IOSS+JSNQ*5+4 CLEAN UP STATUS FIELD 00885 M01S00784.1ds +++| SCN 17 00886 M01S00785.1ds +++| STM IOSS+JSNQ*5+4 00887 M01S00786.1ds +++| LDD CM+1 SAVE QFT ORDINAL 00888 M01S00787.1ds +++| STD QA 00889 M01S00788.1ds +++| STM GQSS 00890 M01S00789.1ds +++| LDD FN SET JSN 00891 M01S00790.1ds +++| STM OJSS 00892 M01S00791.1ds +++| LDD FN+1 00893 M01S00792.1ds +++| STM OJSS+1 00894 M01S00793.1ds +++| LDD JS SET SERVICE CLASS/JOB ORIGIN TYPE 00895 M01S00794.1ds +++| SHN 6 00896 M01S00795.1ds +++| LMK SYOT 00897 M01S00796.1ds +++| STM IOSS+SCLQ*5 00898 M01S00797.1ds +++| LCN 0 INDICATE NO JOB COMMAND FL 00899 M01S00798.1ds +++| STM JCSS 00900 M01S00799.1ds +++| STM JESS 00901 M01S00800.1ds +++| 00902 M01S00801.1ds +++|* SET SYSTEM SECTOR FIELDS FOR *SYSTEMX* JOB. 00903 M01S00802.1ds +++| 00904 M01S00803.1ds +++| LDD MA SET UN, UI, AND UNLIMITED VALIDATIONS 00905 M01S00804.1ds +++| CWM EJBJ,ON 00906 M01S00805.1ds +++| CWM EJBM,ON 00907 M01S00806.1ds +++| SBN 2 00908 M01S00807.1ds +++| CRM VASS+ACCN*5,ON 00909 M01S00808.1ds +++| CRM VASS+AHMT*5,ON 00910 M01S00809.1ds +++| SBN 1 00911 M01S00810.1ds +++| CRM VASS+AHDS*5,ON 00912 M01S00811.1ds +++| SBN 1 00913 M01S00812.1ds +++| CRM VASS+AAWC*5,ON 00914 M01S00813.1ds +++| LDN IPRL SET DEFAULT KEYPUNCH MODE 00915 M01S00814.1ds +++| CRD CM 00916 M01S00815.1ds +++| LDD CM+2 00917 M01S00816.1ds +++| SHN -13 00918 M01S00817.1ds +++| STM JFSS 00919 M01S00818.1ds +++| LDC DFTL SET DEFAULT TIME LIMIT 00920 M01S00819.1ds +++| STM JTSS+1 00921 M01S00820.1ds +++| SHN -14 00922 M01S00821.1ds +++| STM JTSS 00923 M01S00822.1ds +++| LDC 0 SET SUBSYSTEM ID 00924 M01S00823.1ds +++| EJBE EQU *-1 (SUBSYSTEM ID) 00925 M01S00824.1ds +++| STM SISS 00926 M01S00825.1ds +++| LDN 3 SET FLAGS 00927 M01S00826.1ds +++| STM FGSS 00928 M01S00827.1ds +++| LDC MMFL SET MACHINE ID 00929 M01S00828.1ds +++| CRD CM 00930 M01S00829.1ds +++| LDD CM 00931 M01S00830.1ds +++| STM RMSS 00932 M01S00831.1ds +++| STM CMSS 00933 M01S00832.1ds +++| LDM EJBA CHECK IF UI WAS SPECIFIED 00934 M01S00833.1ds +++| ZJN EJB5 IF NO UI SPECIFIED 00935 M01S00834.1ds +++| 00936 M01S00835.1ds +++|* SET INFORMATION IN SYSTEM SECTOR TO MATCH QFT 00937 M01S00836.1ds +++|* FAMILY ORDINAL AND UI INFORMATION. 00938 M01S00837.1ds +++| 00939 M01S00838.1ds +++| LDD MA SET CREATION USER NAME 00940 M01S00839.1ds +++| CWM EJBJ,ON 00941 M01S00840.1ds +++| SBN 1 00942 M01S00841.1ds +++| CRM OASS,ON 00943 M01S00842.1ds +++| SBN 1 00944 M01S00843.1ds +++| CRM ACSS,ON 00945 M01S00844.1ds +++| LDK FOTP SET CREATION FAMILY 00946 M01S00845.1ds +++| CRD CM 00947 M01S00846.1ds +++| LDD CM 00948 M01S00847.1ds +++| SHN 14 00949 M01S00848.1ds +++| LMD CM+1 00950 M01S00849.1ds +++| ADN 1 00951 M01S00850.1ds +++| CRD CM 00952 M01S00851.1ds +++| LDD CM+3 00953 M01S00852.1ds +++| SCN 77 00954 M01S00853.1ds +++| STD CM+3 00955 M01S00854.1ds +++| LDN 0 00956 M01S00855.1ds +++| STD CM+4 00957 M01S00856.1ds +++| LDD MA MOVE FAMILY NAME TO SYSTEM SECTOR 00958 M01S00857.1ds +++| CWD CM 00959 M01S00858.1ds +++| CRM FOSS,ON 00960 M01S00859.1ds +++| SBN 1 00961 M01S00860.1ds +++| CRM FMSS,ON 00962 M01S00861.1ds +++| EJB5 LDN 0 SET CREATION JSN 00963 M01S00862.1ds +++| SFA QFT 00964 M01S00863.1ds +++| CRM CJSS,ON 00965 M01S00864.1ds +++| LDD MA 00966 M01S00865.1ds +++| CWM BUFA,ON 00967 M01S00866.1ds +++| CWM EJBH,ON SET FNT 00968 M01S00867.1ds +++| LDD MA 00969 M01S00868.1ds +++| CRM JNSS,ON 00970 M01S00869.1ds +++| CRM FNSS,ON 00971 M01S00870.1ds +++| LDC 2RIN SET DISPOSITION CODE 00972 M01S00871.1ds +++| STM DCSS 00973 M01S00872.1ds +++| LDD BA 00974 M01S00873.1ds +++| ZJN EJB9 IF NO COMMAND SECTOR 00975 M01S00874.1ds +++| AOM FLSS+1 00976 M01S00875.1ds +++| LDC JNSS REMOVE *.* FROM UJN 00977 M01S00876.1ds +++| STD T1 00978 M01S00877.1ds +++| ADN 3 00979 M01S00878.1ds +++| STD T2 00980 M01S00879.1ds +++| EJB6 LDI T1 00981 M01S00880.1ds +++| LPN 77 00982 M01S00881.1ds +++| LMN 1R. 00983 M01S00882.1ds +++| ZJN EJB7 IF *.* FOUND 00984 M01S00883.1ds +++| LDM 1,T1 00985 M01S00884.1ds +++| SHN -6 00986 M01S00885.1ds +++| LMN 1R. 00987 M01S00886.1ds +++| ZJN EJB8 IF *.* FOUND 00988 M01S00887.1ds +++| AOD T1 00989 M01S00888.1ds +++| LMD T2 00990 M01S00889.1ds +++| NJN EJB6 IF NOT END OF UJN 00991 M01S00890.1ds +++| EJB7 LDI T1 00992 M01S00891.1ds +++| SCN 77 REMOVE *.* 00993 M01S00892.1ds +++| STI T1 00994 M01S00893.1ds +++| LDN 0 00995 M01S00894.1ds +++| EJB8 STM 1,T1 00996 M01S00895.1ds +++| EJB9 AOM FLSS+1 SET FILE LENGTH 00997 M01S00896.1ds +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH 00998 M01S00897.1ds +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY 00999 M01S00898.1ds +++| 01000 M01S00899.1ds +++|* WRITE FILE. 01001 M01S00900.1ds +++|
| Line S00901 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01002 M02S00901.ns2663 ---| LDC 3RBLQ ISSUE *ABLQ* ACCOUNT FILE MESSAGE
| Line S00902 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01003 M02S00902.ns2663 ---| RJM IAM 01004 M01S00903.1ds +++| SETMS IO 01005 M01S00904.1ds +++| RJM WSS WRITE SYSTEM SECTOR
| Line S00905 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01006 M02S00905.ns2663 ---| PJN EJB9.2 IF NO DISK ERROR
| Line S00906 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01007 M02S00906.ns2663 ---| EJB9.1 LJM EJB2.0 PROCESS ERROR
| Line S00907 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01008 M02S00907.ns2663 ---|
| Line S00908 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01009 M02S00908.ns2663 ---| EJB9.2 LDD BA 01010 M01S00008.ns2663 +++| EJB9.1 MJP EJB2.0 IF DISK ERROR 01011 M01S00009.ns2663 +++| LDD BA 01012 M01S00909.1ds +++| ZJN EJB10 IF NO COMMANDS 01013 M01S00910.1ds +++| LMC WCSF 01014 M01S00911.1ds +++| RJM WDS WRITE COMMAND SECTOR
| Line S00912 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01015 M02S00912.ns2663 ---| MJN EJB9.1 IF DISK ERROR 01016 M01S00010.ns2663 +++| EJB9.2 MJN EJB9.1 IF DISK ERROR 01017 M01S00913.1ds +++| AOD T7 ADVANCE SECTOR 01018 M01S00914.1ds +++| EJB10 LDN QFTE*5-5-1 SAVE QFT ENTRY 01019 M01S00915.1ds +++| STD T2 01020 M01S00916.1ds +++| EJB10.1 LDM IOSS+5,T2 01021 M01S00917.1ds +++| STM EJBK,T2 01022 M01S00918.1ds +++| SOD T2 01023 M01S00919.1ds +++| PJN EJB10.1 IF MORE TO MOVE
| Line S00920 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01024 M02S00920.ns2663 ---| LDC 501-DTEI CLEAR END OF EOI BUFFER 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 M01S00921.1ds +++| STD T2 01031 M01S00922.1ds +++| EJB11 LDN 0
| Line S00923 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01032 M02S00923.ns2663 ---| STM BFMS+DTEI,T2 01033 M01S00016.ns2663 +++| STM BUFA+DTEI+5,T2 01034 M01S00924.1ds +++| SOD T2 01035 M01S00925.1ds +++| PJN EJB11 IF MORE TO CLEAR 01036 M01S00017.ns2663 +++| LDC BUFA SET EOI BUFFER ADDRESS 01037 M01S00926.1ds +++| RJM WEI WRITE EOI
| Line S00927 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01038 M02S00927.ns2663 ---| MJN EJB9.1 IF DISK ERROR 01039 M01S00018.ns2663 +++| MJN EJB9.2 IF DISK ERROR 01040 M01S00928.1ds +++| ENDMS 01041 M01S00929.1ds +++| LDD T5 SET EQUIPMENT 01042 M01S00930.1ds +++| STD CM+1 01043 M01S00931.1ds +++| LDD T7 SET LAST SECTOR 01044 M01S00932.1ds +++| STD CM+3 01045 M01S00933.1ds +++| LDD T6 SET TRACK 01046 M01S00934.1ds +++| LPC 3777 01047 M01S00935.1ds +++| STD CM+2 01048 M01S00936.1ds +++| MONITOR DTKM DROP TRACKS 01049 M01S00937.1ds +++| 01050 M01S00938.1ds +++|* QUEUE FILE. 01051 M01S00939.1ds +++| 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 M01S00940.1ds +++| LCN 7 CLEAR ENTRY INTERLOCK 01058 M01S00941.1ds +++| RAD FN+4 01059 M01S00942.1ds +++| LDN QFTE-1 01060 M01S00943.1ds +++| STD T2
| Line S00944 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01061 M02S00944.ns2663 ---| SFA QFT,QA STORE QFT ENTRY 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 M01S00945.1ds +++| CWD FN
| Line S00946 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01067 M02S00946.ns2663 ---| ADN 1
| Line S00947 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01068 M02S00947.ns2663 ---| CWM EJBK,T2 01069 M01S00948.1ds +++| AOM IDSB ADVANCE JOB ENTRY COUNT 01070 M01S00949.1ds +++| LDK INQF*100+7 SET DEFAULT FILE TYPE AND STATUS 01071 M01S00950.1ds +++| STM EJBC 01072 M01S00951.1ds +++| 01073 M01S00952.1ds +++|* REINITIALIZE *EJB*. 01074 M01S00953.1ds +++| 01075 M01S00954.1ds +++| LDN 0 CLEAR PARAMETERS 01076 M01S00955.1ds +++| STM EJBE 01077 M01S00956.1ds +++| LJM EJBX RETURN 01078 M01S00957.1ds +++| 01079 M01S00958.1ds +++| 01080 M01S00959.1ds +++| EJBH VFD 42/0LINPUT,6/0,6/INFT,6/0 01081 M01S00960.1ds +++| EJBK BSS QFTE*5-5 BUFFER FOR QFT ENTRY 01082 M01S00961.1ds +++| EJBJ VFD 42/0,18/SYUI 01083 M01S00962.1ds +++| EJBL VFD 12/7777,12/377,36/0 01084 M01S00963.1ds +++| EJBM VFD 60/-0 01085 M01S00964.1ds +++| EJBN DATA C* NO INPUT FILE SPACE AVAILABLE.* 01086 M01S00965.1ds +++| GAC SPACE 4,10 01087 M01S00966.1ds +++|** GAC - GENERATE ASSIGN COMMAND. 01088 M01S00967.1ds +++|* 01089 M01S00968.1ds +++|* ENTRY (A) = ADDRESS OF STRING *XXX,LOAD)*. 01090 M01S00969.1ds +++|* (IR+3) = EST ORDINAL. 01091 M01S00970.1ds +++|* 01092 M01S00971.1ds +++|* USES T3. 01093 M01S00972.1ds +++|* 01094 M01S00973.1ds +++|* CALLS ACS, C2D, CCI. 01095 M01S00974.1ds +++| 01096 M01S00975.1ds +++| 01097 M01S00976.1ds +++| GAC SUBR ENTRY/EXIT 01098 M01S00977.1ds +++| STD T3 SAVE ADDRESS OF FILE NAME 01099 M01S00978.1ds +++| LDC =C*ASSIGN(* 01100 M01S00979.1ds +++| RJM ACS 01101 M01S00980.1ds +++| LDD IR+3 CONVERT UPPER TWO DIGITS OF EST ORDINAL 01102 M01S00981.1ds +++| SHN -3 01103 M01S00982.1ds +++| RJM C2D 01104 M01S00983.1ds +++| STI T3 01105 M01S00984.1ds +++| LDD IR+3 CONVERT LOWER DIGIT OF EST ORDINAL 01106 M01S00985.1ds +++| LPN 7 01107 M01S00986.1ds +++| SHN 6 01108 M01S00987.1ds +++| ADC 2R0, 01109 M01S00988.1ds +++| STM 1,T3 01110 M01S00989.1ds +++| LDD T3 COMPLETE COMMAND IMAGE 01111 M01S00990.1ds +++| RJM CCI 01112 M01S00991.1ds +++| UJN GACX RETURN 01113 M01S00992.1ds +++| GJC SPACE 4,10 01114 M01S00993.1ds +++|** GJC - GENERATE JOB COMMAND. 01115 M01S00994.1ds +++|* 01116 M01S00995.1ds +++|* ENTRY (A) = ADDRESS OF LEFT JUSTIFIED NAME. 01117 M01S00996.1ds +++|* 01118 M01S00997.1ds +++|* EXIT (BUFA - BUFA+4) = JOB COMMAND. 01119 M01S00998.1ds +++|* 01120 M01S00999.1ds +++|* USES T1, T3. 01121 M01S01000.1ds +++|* 01122 M01S01001.1ds +++|* CALLS ACS, CCI. 01123 M01S01002.1ds +++| 01124 M01S01003.1ds +++| 01125 M01S01004.1ds +++| GJC SUBR ENTRY/EXIT 01126 M01S01005.1ds +++| STD T3 SAVE JOB COMMAND ADDRESS 01127 M01S01006.1ds +++| LDD CA 01128 M01S01007.1ds +++| ADC 477 01129 M01S01008.1ds +++| STD T1 01130 M01S01009.1ds +++| GJC1 LDN 0 CLEAR COMMAND BUFFER 01131 M01S01010.1ds +++| STI T1 01132 M01S01011.1ds +++| SOD T1 01133 M01S01012.1ds +++| LMD CA 01134 M01S01013.1ds +++| NJN GJC1 IF NOT END OF BUFFER 01135 M01S01014.1ds +++| STI T1 01136 M01S01015.1ds +++| LDD T3 COPY JOB COMMAND TO BUFFER 01137 M01S01016.1ds +++| RJM ACS 01138 M01S01017.1ds +++| LDC =C*.* COMPLETE JOB COMMAND 01139 M01S01018.1ds +++| RJM CCI 01140 M01S01019.1ds +++| UJN GJCX RETURN 01141 M01S01020.1ds +++| ISJ SPACE 4,10 01142 M01S01021.1ds +++|** ISJ - INITIATE SUBSYSTEM JOB. 01143 M01S01022.1ds +++|* 01144 M01S01023.1ds +++|* ENTRY (A) = SUBSYSTEM ID. 01145 M01S01024.1ds +++|* (TN) = ADDRESS OF SUBSYSTEM TABLE ENTRY. 01146 M01S01025.1ds +++|* 01147 M01S01026.1ds +++|* EXIT (A) = 0, IF SUBSYSTEM INITIATED. 01148 M01S01027.1ds +++|* 01149 M01S01028.1ds +++|* USES BA, JS, FN - FN+4. 01150 M01S01029.1ds +++|* 01151 M01S01030.1ds +++|* CALLS AST, EJB. 01152 M01S01031.1ds +++| 01153 M01S01032.1ds +++| 01154 M01S01033.1ds +++| ISJ SUBR ENTRY/EXIT 01155 M01S01034.1ds +++| STM EJBE SET SUBSYSTEM ID 01156 M01S01035.1ds +++| LMC DSSI 01157 M01S01036.1ds +++| ZJN ISJ0 IF DEADSTART SEQUENCING JOB 01158 M01S01037.1ds +++| LMC FEAF*10000&DSSI FETCH *SSAT* ENTRY 01159 M01S01038.1ds +++| RJM AST 01160 M01S01039.1ds +++| NJN ISJX IF SUBSYSTEM ACTIVE 01161 M01S01040.1ds +++| ISJ0 STD BA 01162 M01S01041.1ds +++| LDN ZERL ZERO FILL BUFFER 01163 M01S01042.1ds +++| CRM BUFA,ON 01164 M01S01043.1ds +++| LDI TN SET JSN AND UJN = SUBSYSTEM NAME 01165 M01S01044.1ds +++| STD FN 01166 M01S01045.1ds +++| STM BUFA 01167 M01S01046.1ds +++| LDM 1,TN 01168 M01S01047.1ds +++| SCN 77 01169 M01S01048.1ds +++| STM BUFA+1 01170 M01S01049.1ds +++| LMN 1R SPACE-FILL JSN 01171 M01S01050.1ds +++| STD FN+1 01172 M01S01051.1ds +++| LDC ADCI+1 DISABLE JSN ACQUISITION 01173 M01S01052.1ds +++| STM EJBD 01174 M01S01053.1ds +++| ISJA LDN SSSC SET SERVICE CLASS 01175 M01S01054.1ds +++|* LDN DSSC (DEADSTART SEQUENCING JOB) 01176 M01S01055.1ds +++| STD JS 01177 M01S01056.1ds +++| LDM 4,TN SET FILE TYPE AND STATUS 01178 M01S01057.1ds +++| ZJN ISJ1 IF NOT SPECIFIED 01179 M01S01058.1ds +++| STM EJBC 01180 M01S01059.1ds +++| ISJ1 LDM 1,TN 01181 M01S01060.1ds +++| SHN 21-5 01182 M01S01061.1ds +++| MJP ISJ2 IF PP-INITIATED SUBSYSTEM 01183 M01S01062.1ds +++| 01184 M01S01063.1ds +++|* FOR NON-PP-INITIATED SUBSYSTEMS, GENERATE A JOB INPUT FILE 01185 M01S01064.1ds +++|* WITH THE FOLLOWING FORMAT - 01186 M01S01065.1ds +++|* SUBPROC. 01187 M01S01066.1ds +++|* GET,SUBPROC/NA. 01188 M01S01067.1ds +++|* SUBPROC. 01189 M01S01068.1ds +++| 01190 M01S01069.1ds +++| LDC BUF INDICATE COMMAND RECORD PRESENT 01191 M01S01070.1ds +++| STD BA 01192 M01S01071.1ds +++| LDN ZERL BUILD SUBSYSTEM PROCEDURE FILE NAME 01193 M01S01072.1ds +++| CRD AB 01194 M01S01073.1ds +++| LDI TN SUBSYSTEM NAME 01195 M01S01074.1ds +++| STD AB 01196 M01S01075.1ds +++| LDM 1,TN 01197 M01S01076.1ds +++| SCN 77 01198 M01S01077.1ds +++| SHN 6 01199 M01S01078.1ds +++| LMC ** (FIRST BYTE OF PROCEDURE NAME SUFFIX) 01200 M01S01079.1ds +++| ISJB EQU *-1 01201 M01S01080.1ds +++| SHN -6+22 01202 M01S01081.1ds +++| STD AB+1 01203 M01S01082.1ds +++| LPC 770000 01204 M01S01083.1ds +++| LMC ** (SECOND BYTE OF PROCEDURE NAME SUFFIX) 01205 M01S01084.1ds +++| ISJC EQU *-1 01206 M01S01085.1ds +++| SHN -6+22 01207 M01S01086.1ds +++| STD AB+2 01208 M01S01087.1ds +++| SHN -6 01209 M01S01088.1ds +++| SCN 77 01210 M01S01089.1ds +++| STD AB+3 01211 M01S01090.1ds +++| LDN AB GENERATE JOB COMMAND 01212 M01S01091.1ds +++| RJM GJC 01213 M01S01092.1ds +++| LDC =C*GET,* GENERATE *GET,SUBPROC/NA.* 01214 M01S01093.1ds +++| RJM ACS 01215 M01S01094.1ds +++| LDN AB 01216 M01S01095.1ds +++| RJM ACS 01217 M01S01096.1ds +++| LDC =C*/NA.* 01218 M01S01097.1ds +++| RJM CCI 01219 M01S01098.1ds +++| LDN AB GENERATE NAME CALL TO PROCEDURE 01220 M01S01099.1ds +++| RJM ACS 01221 M01S01100.1ds +++| LDC =C*.* 01222 M01S01101.1ds +++| RJM CCI 01223 M01S01102.1ds +++| LDN 0 CLEAR SUFFIX FOR NEXT CALL 01224 M01S01103.1ds +++| STM ISJB 01225 M01S01104.1ds +++| STM ISJC 01226 M01S01105.1ds +++| ISJ2 RJM EJB ENTER JOB 01227 M01S01106.1ds +++| LJM ISJX RETURN 01228 M01S01107.1ds +++| SJF SPACE 4,10 01229 M01S01108.1ds +++|** SJF - SET JOB FIELD LENGTH. 01230 M01S01109.1ds +++|* 01231 M01S01110.1ds +++|* ENTRY (AB - AB+4) = ENTRY POINT NAME. 01232 M01S01111.1ds +++|* 01233 M01S01112.1ds +++|* EXIT (JF) = FIELD LENGTH. 01234 M01S01113.1ds +++|* 01235 M01S01114.1ds +++|* USES JF, CM - CM+4. 01236 M01S01115.1ds +++|* 01237 M01S01116.1ds +++|* CALLS CLD. 01238 M01S01117.1ds +++| 01239 M01S01118.1ds +++| 01240 M01S01119.1ds +++| SJF1 LDC DFFL/100 SET DEFAULT FIELD LENGTH 01241 M01S01120.1ds +++| SJF2 STD JF 01242 M01S01121.1ds +++| 01243 M01S01122.1ds +++| SJF SUBR ENTRY/EXIT 01244 M01S01123.1ds +++| RJM CLD SEARCH FOR PROGRAM 01245 M01S01124.1ds +++| CRD CM 01246 M01S01125.1ds +++| LDD CM CHECK FOR MFL=/RFL= ENTRY POINT 01247 M01S01126.1ds +++| ZJN SJF1 IF NO FILE LENGTH SPECIFIED 01248 M01S01127.1ds +++| STD JF 01249 M01S01128.1ds +++| SHN 6 01250 M01S01129.1ds +++| PJN SJFX IF NOT MFL= ENTRY POINT 01251 M01S01130.1ds +++| SHN 2 01252 M01S01131.1ds +++| SHN -8D 01253 M01S01132.1ds +++| UJN SJF2 SET FIELD LENGTH 01254 M01S01133.1ds +++| SSC SPACE 4,10 01255 M01S01134.1ds +++|** SSC - SET SERVICE CLASS. 01256 M01S01135.1ds +++|* 01257 M01S01136.1ds +++|* ENTRY (AB - AB+1) = COMMAND. 01258 M01S01137.1ds +++|* 01259 M01S01138.1ds +++|* EXIT (JS) = *MASC* IF MAINTENANCE JOB. 01260 M01S01139.1ds +++|* = *SYSC* IF NOT MAINTENANCE JOB. 01261 M01S01140.1ds +++|* 01262 M01S01141.1ds +++|* USES JC, TN. 01263 M01S01142.1ds +++| 01264 M01S01143.1ds +++| 01265 M01S01144.1ds +++| SSC2 LMD AB FIND COMMAND 01266 M01S01145.1ds +++| NJN SSC3 IF NO MATCH 01267 M01S01146.1ds +++| LDM 1,JC 01268 M01S01147.1ds +++| LMD AB+1 01269 M01S01148.1ds +++| ZJN SSC5 IF MAINTENANCE JOB 01270 M01S01149.1ds +++| SSC3 LDN 2 ADVANCE TABLE ADDRESS 01271 M01S01150.1ds +++| RAD JC 01272 M01S01151.1ds +++| SSC4 LDI JC 01273 M01S01152.1ds +++| NJN SSC2 IF NOT END OF TABLE 01274 M01S01153.1ds +++| AOD TN ADVANCE LIST ADDRESS 01275 M01S01154.1ds +++| LMN ITJAL 01276 M01S01155.1ds +++| NJN SSC1 IF NOT END OF TABLES 01277 M01S01156.1ds +++| LDN SYSC&MASC 01278 M01S01157.1ds +++| SSC5 LMN MASC SET SERVICE CLASS 01279 M01S01158.1ds +++| STD JS 01280 M01S01159.1ds +++| 01281 M01S01160.1ds +++| SSC SUBR ENTRY/EXIT 01282 M01S01161.1ds +++| LDN 0 01283 M01S01162.1ds +++| STD TN 01284 M01S01163.1ds +++| SSC1 LDM ITJA,TN SET TABLE ADDRESS 01285 M01S01164.1ds +++| STD JC 01286 M01S01165.1ds +++| UJN SSC4 ENTER LOOP
| Line S01166 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01287 M02S01166.1ds21 ---| SPACE 4,10
| Line S01167 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01288 M02S01167.1ds21 ---| OVLA EQU * ORIGIN OF OVERLAY AREA
| Line S01168 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01289 M02S01168.1ds21 ---| SPACE 4,10
| Line S01169 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01290 M02S01169.1ds21 ---|* COMMON DECKS.
| Line S01170 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01291 M02S01170.1ds21 ---|
| Line S01171 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S01171.1ds21 ---|
| Line S01172 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01293 M02S01172.1ds21 ---|*CALL COMPRFI
| Line S01173 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01294 M02S01173.1ds21 ---| SUB$ EQU 1 ASSEMBLE *SUBSYST* MACRO
| Line S01174 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds21 |
Seq # *Modification Id* Act ----------------------------+ 01295 M02S01174.1ds21 ---|*CALL COMSSSD 01296 M01S01175.1ds +++| TITLE REQUEST PROCESSORS. 01297 M01S01176.1ds +++| ICJ SPACE 4,10 01298 M01S01177.1ds +++|*** FUNCTION ICJF - INITIATE COMMAND JOB. 01299 M01S01178.1ds +++|* 01300 M01S01179.1ds +++|* ENTRY (IR+4) = 6/KEYBOARD BUFFER OFFSET, 6/. 01301 M01S01180.1ds +++|* (IJCA) = FIELD LENGTH SPECIFIED BY CALLER (*IJCF* 01302 M01S01181.1ds +++|* FUNCTION ONLY. ZERO, OTHERWISE.) 01303 M01S01182.1ds +++| 01304 M01S01183.1ds +++| 01305 M01S01184.1ds +++| ICJ ENTRY ENTRY/EXIT 01306 M01S01185.1ds +++| LDC BFMS GET COMMAND 01307 M01S01186.1ds +++| RJM RPK 01308 M01S01187.1ds +++| LDC /1DS/DSDL+/1DS/KBCML GET SPECIAL PARAMETER 01309 M01S01188.1ds +++| CRD AB 01310 M01S01189.1ds +++| LDN 0 01311 M01S01190.1ds +++| STM BFMS+/1DS/KBCML/2*5 01312 M01S01191.1ds +++| RJM SJF SET JOB FIELD LENGTH 01313 M01S01192.1ds +++| LDM IJCA 01314 M01S01193.1ds +++| ZJN ICJ1 IF NO FIELD LENGTH SPECIFIED 01315 M01S01194.1ds +++| STD JF 01316 M01S01195.1ds +++| ICJ1 LDD JF CONVERT INITIAL RFL 01317 M01S01196.1ds +++| SHN -6 01318 M01S01197.1ds +++| RJM C2D 01319 M01S01198.1ds +++| STM ICJH+2 01320 M01S01199.1ds +++| LDD JF 01321 M01S01200.1ds +++| RJM C2D 01322 M01S01201.1ds +++| STM ICJH+3 01323 M01S01202.1ds +++| LDN AB GENERATE JOB COMMAND 01324 M01S01203.1ds +++| RJM GJC 01325 M01S01204.1ds +++| LDC ICJF 01326 M01S01205.1ds +++| RJM CCI CREATE COMMAND IMAGE 01327 M01S01206.1ds +++| LDC TSJN 01328 M01S01207.1ds +++| STD T3 01329 M01S01208.1ds +++| UJN ICJ3 CHECK SPECIAL JOB NAME 01330 M01S01209.1ds +++| 01331 M01S01210.1ds +++| ICJ2 LDI T3 ADVANCE TO NEXT ENTRY 01332 M01S01211.1ds +++| ADN 1 01333 M01S01212.1ds +++| RAD T3 01334 M01S01213.1ds +++| STM ICJA 01335 M01S01214.1ds +++| ICJ3 LDI T3 SET ENTRY LENGTH 01336 M01S01215.1ds +++| ZJN ICJ5 IF END OF TABLE 01337 M01S01216.1ds +++| STD T2 01338 M01S01217.1ds +++| ICJ4 LDM TSJN,T2 COMPARE JOB NAMES 01339 M01S01218.1ds +++| ICJA EQU *-1 01340 M01S01219.1ds +++| LMM AB-1,T2 01341 M01S01220.1ds +++| NJN ICJ2 IF NO COMPARE 01342 M01S01221.1ds +++| SOD T2 01343 M01S01222.1ds +++| NJN ICJ4 IF NOT END OF NAME 01344 M01S01223.1ds +++| STM EJBA 01345 M01S01224.1ds +++| STM EJBB 01346 M01S01225.1ds +++| LCN ICJGL 01347 M01S01226.1ds +++| ICJ5 ADN ICJGL+1 ADJUST POINTER FOR NEXT COMMAND 01348 M01S01227.1ds +++| RAD LA 01349 M01S01228.1ds +++| ICJ6 LDD LA CREATE COMMAND IMAGE 01350 M01S01229.1ds +++| RJM CCI 01351 M01S01230.1ds +++| AOD LA ADVANCE COMMAND POINTER 01352 M01S01231.1ds +++| LDI LA 01353 M01S01232.1ds +++| NJN ICJ6 IF NOT END OF COMMAND STREAM 01354 M01S01233.1ds +++| LDC BFMS COPY COMMAND (OR JOB COMMAND) 01355 M01S01234.1ds +++|* LDC BUFA (INITIATE JOB CALL) 01356 M01S01235.1ds +++| ICJB EQU *-1 01357 M01S01236.1ds +++| RJM CCI 01358 M01S01237.1ds +++| RJM SSC SET SERVICE CLASS 01359 M01S01238.1ds +++| LDC UJSI SET *SISS* FIELD 01360 M01S01239.1ds +++|* LDC IRSI (SET INHIBIT ROLLOUT ID) 01361 M01S01240.1ds +++| ICJC EQU *-1 01362 M01S01241.1ds +++| STM EJBE 01363 M01S01242.1ds +++| LDC INQF*100+7 GENERATE OUTPUT 01364 M01S01243.1ds +++|* LDC NOQF*100+7 (DO NOT GENERATE OUTPUT) 01365 M01S01244.1ds +++| ICJD EQU *-1 01366 M01S01245.1ds +++| STM EJBC 01367 M01S01246.1ds +++| RJM EJB ENTER JOB 01368 M01S01247.1ds +++| LJM ICJX RETURN 01369 M01S01248.1ds +++| 01370 M01S01249.1ds +++| 01371 M01S01250.1ds +++| ICJF DATA Z*MODE(0)* 01372 M01S01251.1ds +++|* DATA Z*MODE(1)* (CYBER 176) 01373 M01S01252.1ds +++| ICJG DATA Z*SUI(0)* 01374 M01S01253.1ds +++| ICJGL EQU *-ICJG 01375 M01S01254.1ds +++| DATA Z*RETURN(INPUT)* 01376 M01S01255.1ds +++| DATA Z*NORERUN.* 01377 M01S01256.1ds +++| ICJH DATA Z*RFL(XXXX00)* 01378 M01S01257.1ds +++| CON 0 END OF COMMANDS 01379 M01S01258.1ds +++| TSJN SPACE 4,10 01380 M01S01259.1ds +++|** TSJN - TABLE OF SPECIAL JOB NAMES. 01381 M01S01260.1ds +++|* 01382 M01S01261.1ds +++|* JOBS LISTED IN THIS TABLE WILL HAVE A *SUI(0)* 01383 M01S01262.1ds +++|* COMMAND INCLUDED IN THEIR JOB STREAM. 01384 M01S01263.1ds +++|* 01385 M01S01264.1ds +++|* 12/ L, 12*L/ NAME 01386 M01S01265.1ds +++|* L = LENGTH OF JOB NAME IN PP WORDS. 01387 M01S01266.1ds +++|* NAME = JOB NAME TO COMPARE. 01388 M01S01267.1ds +++| 01389 M01S01268.1ds +++| 01390 M01S01269.1ds +++| TSJN BSS 0 01391 M01S00001.1ds23 +++| VFD 12/2,24/0LDDF 01392 M01S01270.1ds +++| VFD 12/2,24/0LDIS 01393 M01S01271.1ds +++| VFD 12/2,24/0LO26 01394 M01S01272.1ds +++| VFD 12/0 END OF TABLE 01395 M01S01273.1ds +++| ISC SPACE 4,10 01396 M01S01274.1ds +++|*** FUNCTION ISCF - INITIATE SYSTEM COMMAND JOB. 01397 M01S01275.1ds +++|* 01398 M01S01276.1ds +++|* ENTRY (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/. 01399 M01S01277.1ds +++|* 01400 M01S01278.1ds +++|* NOTE FLAGS SET IN ROUTINE *ICJ* TO SET 01401 M01S01279.1ds +++|* *SISS* FIELD IN THE SYSTEM SECTOR AND 01402 M01S01280.1ds +++|* TO NOT DISPOSE OUTPUT AT END OF JOB TIME. 01403 M01S01281.1ds +++| 01404 M01S01282.1ds +++| 01405 M01S01283.1ds +++| ISC ENTRY ENTRY/EXIT 01406 M01S01284.1ds +++| LDN IRSI SET INHIBIT ROLLOUT IN *SISS* 01407 M01S01285.1ds +++| STM ICJC 01408 M01S01286.1ds +++| LDC NOQF*100+7 SET NO OUTPUT 01409 M01S01287.1ds +++| STM ICJD 01410 M01S01288.1ds +++| RJM ICJ INITIATE COMMAND JOB 01411 M01S01289.1ds +++| UJN ISCX RETURN 01412 M01S01290.1ds +++| ITJ SPACE 4,10 01413 M01S01291.1ds +++|*** FUNCTION ITJF. 01414 M01S01292.1ds +++|* 01415 M01S01293.1ds +++|* INITIATE JOBS FROM TABLE. 01416 M01S01294.1ds +++|* INITIATE ALL ENABLED SUB-SYSTEMS. 01417 M01S01295.1ds +++| 01418 M01S01296.1ds +++| 01419 M01S01297.1ds +++|* CALCULATE NEXT TABLE NUMBER FROM CPU TYPE. 01420 M01S01298.1ds +++| 01421 M01S01299.1ds +++| ITJ8 LDD FG CALCULATE NEXT TABLE NUMBER 01422 M01S01300.1ds +++| SHN 0-4 01423 M01S01301.1ds +++| LPN 1 ZERO IF INSTRUCTION STACK PRESENT 01424 M01S01302.1ds +++| STD T1 01425 M01S01303.1ds +++| LDD FG 01426 M01S01304.1ds +++| SHN 1-6 01427 M01S01305.1ds +++| LPN 2 ZERO IF CYBER 170 MAINFRAME 01428 M01S01306.1ds +++| RAD T1 01429 M01S01307.1ds +++| LDN 4 01430 M01S01308.1ds +++| SBD T1 01431 M01S01309.1ds +++| UJN ITJ11 CONTINUE PROCESSING 01432 M01S01310.1ds +++| 01433 M01S01311.1ds +++|* CHECK FOR 6700 OR CYBER 74-2X MAINFRAME TYPE. 01434 M01S01312.1ds +++| 01435 M01S01313.1ds +++| ITJ9 LDD FG CHECK DUAL CPU BIT 01436 M01S01314.1ds +++| LPN 2 01437 M01S01315.1ds +++| NJN ITJ13 IF NOT DUAL CPU 01438 M01S01316.1ds +++| LDN 1 SET TABLE 1 01439 M01S01317.1ds +++| UJN ITJ1 PROCESS TABLE 1 JOBS 01440 M01S01318.1ds +++| 01441 M01S01319.1ds +++|* CHECK FOR CMU. 01442 M01S01320.1ds +++| 01443 M01S01321.1ds +++| ITJ10 LDD FG CHECK CMU BIT 01444 M01S01322.1ds +++| SHN 21-3 01445 M01S01323.1ds +++| MJN ITJ13 IF NO CMU 01446 M01S01324.1ds +++| LDN 5 SET TABLE 5 01447 M01S01325.1ds +++| ITJ11 UJN ITJ1 PROCESS TABLE 01448 M01S01326.1ds +++| 01449 M01S01327.1ds +++|* CHECK IF ALL TABLES PROCESSED. 01450 M01S01328.1ds +++| 01451 M01S01329.1ds +++| ITJ12 LDD TN CHECK CURRENT TABLE NUMBER 01452 M01S01330.1ds +++| ZJN ITJ8 IF TABLE 0 01453 M01S01331.1ds +++| LMN 2 01454 M01S01332.1ds +++| ZJN ITJ9 IF TABLE 2 01455 M01S01333.1ds +++| LMN 5&2 01456 M01S01334.1ds +++| NJN ITJ10 IF NOT TABLE 5 01457 M01S01335.1ds +++| ITJ13 RJM IAS INITIATE ALL ENABLED SUBSYSTEMS 01458 M01S01336.1ds +++| 01459 M01S01337.1ds +++| ITJ ENTRY ENTRY/EXIT 01460 M01S01338.1ds +++| LDD FG 01461 M01S01339.1ds +++| SHN -6 01462 M01S01340.1ds +++| LPN 71 01463 M01S01341.1ds +++| ZJN ITJ0 IF CYBER 170-865/875 01464 M01S01342.1ds +++| LMN 70 01465 M01S01343.1ds +++| ZJN ITJ0.1 IF CYBER 176 01466 M01S01344.1ds +++| SHN -5 01467 M01S01345.1ds +++| ZJN ITJ1 IF NOT CYBER 170-815/825/835/855 01468 M01S01346.1ds +++| LDN 0 SPIN UP ISMD DEVICES 01469 M01S01347.1ds +++| RJM SUD 01470 M01S01348.1ds +++| LDN 7&10 SET TABLE FOR CYBER 170-815/825/835/855 01471 M01S01349.1ds +++| ITJ0 LMN 10&6 SET TABLE FOR CYBER 170-865/875 01472 M01S01350.1ds +++| ITJ0.1 LMN 6 SET TABLE FOR CYBER 176 01473 M01S01351.1ds +++| ITJ1 STD TN SET TABLE NUMBER 01474 M01S01352.1ds +++| LDM ITJA,TN SET JOB TABLE ADDRESS 01475 M01S01353.1ds +++| STD JC 01476 M01S01354.1ds +++| LDN 0 CLEAR SECOND PASS FLAG 01477 M01S01355.1ds +++| STM ITJD 01478 M01S01356.1ds +++| ITJ2 LDN ZERL 01479 M01S01357.1ds +++| CRD AB 01480 M01S01358.1ds +++| LDI JC SET JOB NAME 01481 M01S01359.1ds +++| NJN ITJ2.2 IF NOT END OF TABLE 01482 M01S01360.1ds +++| LDC * 01483 M01S01361.1ds +++| ITJC EQU *-1 01484 M01S01362.1ds +++| ITJ2.1 NJP ITJ12 IF NOT A DUAL CPU MACHINE 01485 M01S01363.1ds +++| LDC ** 01486 M01S01364.1ds +++| ITJD EQU *-1 01487 M01S01365.1ds +++| NJN ITJ2.1 IF END OF SECOND PASS 01488 M01S01366.1ds +++| AOM ITJD FLAG SECOND PASS 01489 M01S01367.1ds +++| LDM ITJA,TN RESET TABLE POINTER 01490 M01S01368.1ds +++| STD JC 01491 M01S01369.1ds +++| LDI JC 01492 M01S01370.1ds +++| ITJ2.2 STD AB 01493 M01S01371.1ds +++| LDM 1,JC 01494 M01S01372.1ds +++| STD AB+1 01495 M01S01373.1ds +++| RJM SJF SET JOB FIELD LENGTH 01496 M01S01374.1ds +++| LDN AB GENERATE JOB COMMAND 01497 M01S01375.1ds +++| RJM GJC 01498 M01S01376.1ds +++| LDC ICJF 01499 M01S01377.1ds +++| RJM CCI CREATE COMMAND IMAGE 01500 M01S01378.1ds +++| 01501 M01S01379.1ds +++|* ISSUE USECPU COMMAND IF ON 6700 OR CYBER 74-2X. 01502 M01S01380.1ds +++| 01503 M01S01381.1ds +++| LDD FG CHECK DUAL AND STACK CPU BITS 01504 M01S01382.1ds +++| LPC 4122 01505 M01S01383.1ds +++| LMC 4100 PREVENT SELECTION FOR CYBER 170 AND 8X5 01506 M01S01384.1ds +++| NJN ITJ2.4 IF NOT DUAL AND STACK CPU ON 6000 OR C70 01507 M01S01385.1ds +++| LDD TN CHECK TABLE NUMBER 01508 M01S01386.1ds +++| ZJN ITJ5 IF TABLE 0 01509 M01S01387.1ds +++| LMN 1 01510 M01S01388.1ds +++| ZJN ITJ3 IF TABLE 1 01511 M01S01389.1ds +++| ITJ2.3 LDC =C*USECPU(1)* CPU0 01512 M01S01390.1ds +++| UJN ITJ4 CREATE COMMAND IMAGE 01513 M01S01391.1ds +++| 01514 M01S01392.1ds +++| ITJ2.4 LDD FG 01515 M01S01393.1ds +++| LPN 2 01516 M01S01394.1ds +++| STM ITJC 01517 M01S01395.1ds +++| NJN ITJ5 IF NOT A DUAL CPU MACHINE 01518 M01S01396.1ds +++| LDM ITJD 01519 M01S01397.1ds +++| NJN ITJ3 IF PASS 2 01520 M01S01398.1ds +++| UJN ITJ2.3 CREATE COMMAND IMAGE 01521 M01S01399.1ds +++| 01522 M01S01400.1ds +++| ITJ3 LDC =C*USECPU(2)* CPU1 01523 M01S01401.1ds +++| ITJ4 RJM CCI CREATE COMMAND IMAGE 01524 M01S01402.1ds +++| ITJ5 LDD TN 01525 M01S01403.1ds +++| LMN 6 01526 M01S01404.1ds +++| NJN ITJ6 IF NOT CYBER 176 STACK 01527 M01S01405.1ds +++| LDC TSBJA 01528 M01S01406.1ds +++| LMD JC 01529 M01S01407.1ds +++| NJN ITJ6 IF NOT JOB *LCM* 01530 M01S01408.1ds +++| LDC =C*RFL,EC=10.* 01531 M01S01409.1ds +++| RJM CCI CREATE COMMAND IMAGE 01532 M01S01410.1ds +++| ITJ6 LDD CA 01533 M01S01411.1ds +++| RJM CCI CREATE COMMAND IMAGE 01534 M01S01412.1ds +++| LDC =C*EXIT.* 01535 M01S01413.1ds +++| RJM CCI CREATE COMMAND IMAGE 01536 M01S01414.1ds +++| LDC =C*DMP.* 01537 M01S01415.1ds +++| RJM CCI CREATE COMMAND IMAGE 01538 M01S01416.1ds +++| LDD JF CONVERT FIELD LENGTH 01539 M01S01417.1ds +++| SHN -6 01540 M01S01418.1ds +++| RJM C2D 01541 M01S01419.1ds +++| STM ITJB+2 01542 M01S01420.1ds +++| LDD JF 01543 M01S01421.1ds +++| RJM C2D 01544 M01S01422.1ds +++| STM ITJB+3 01545 M01S01423.1ds +++| LDC ITJB 01546 M01S01424.1ds +++| RJM CCI CREATE COMMAND IMAGE 01547 M01S01425.1ds +++| LDC =C*IFE(EF.EQ.ODE,NOLIST)* 01548 M01S01426.1ds +++| RJM CCI CREATE COMMAND IMAGE 01549 M01S01427.1ds +++| LDC =C*RETURN(OUTPUT)* 01550 M01S01428.1ds +++| RJM CCI CREATE COMMAND IMAGE 01551 M01S01429.1ds +++| LDC =C*ENDIF(NOLIST)* 01552 M01S01430.1ds +++| RJM CCI CREATE COMMAND IMAGE 01553 M01S01431.1ds +++| LDN MASC SET SERVICE CLASS 01554 M01S01432.1ds +++| STD JS 01555 M01S01433.1ds +++| RJM EJB ENTER JOB 01556 M01S01434.1ds +++| PJN ITJ7 IF JOB QUEUED 01557 M01S01435.1ds +++| LJM ITJ13 ENABLE JOB SCHEDULING 01558 M01S01436.1ds +++| 01559 M01S01437.1ds +++| ITJ7 LDN 2 ADVANCE JOB COUNTER 01560 M01S01438.1ds +++| RAD JC 01561 M01S01439.1ds +++| LJM ITJ2 LOOP 01562 M01S01440.1ds +++| 01563 M01S01441.1ds +++| 01564 M01S01442.1ds +++| ITJA BSS 0 01565 M01S01443.1ds +++| LOC 0 01566 M01S01444.1ds +++| CON TCMJ COMMON MAINTENANCE JOBS 01567 M01S01445.1ds +++| CON TNSJ CYBER 70 NO STACK MAINTENANCE JOBS 01568 M01S01446.1ds +++| CON TSSJ CYBER 70 WITH STACK MAINTENANCE JOBS 01569 M01S01447.1ds +++| CON TNOJ CYBER 170 NO STACK MAINTENANCE JOBS 01570 M01S01448.1ds +++| CON TSOJ CYBER 170 WITH STACK MAINTENANCE JOBS 01571 M01S01449.1ds +++| CON TMUJ MAINFRAMES WITH CMU MAINTENANCE JOBS 01572 M01S01450.1ds +++| CON TSBJ CYBER 176 MAINTENANCE JOBS 01573 M01S01451.1ds +++| CON TSAJ CYBER 170-815/825/835/855 MAINTENANCE JOBS 01574 M01S01452.1ds +++| CON TSCJ CYBER 170-865/875 MAINTENANCE JOBS 01575 M01S01453.1ds +++| ITJAL BSS 0 LENGTH OF LIST 01576 M01S01454.1ds +++| LOC *O 01577 M01S01455.1ds +++| 01578 M01S01456.1ds +++| ITJB DATA C*DMP(XXXX00)* 01579 M01S01457.1ds +++| TCMJ SPACE 4,10 01580 M01S01458.1ds +++|** JOB TABLE 0. 01581 M01S01459.1ds +++|* COMMON MAINTENANCE JOBS. 01582 M01S01460.1ds +++|* JOBS RUN ON ALL MAINFRAME TYPES. 01583 M01S01461.1ds +++| 01584 M01S01462.1ds +++| 01585 M01S01463.1ds +++| TCMJ BSS 0 01586 M01S01464.1ds +++| VFD 24/0LALX 01587 M01S01465.1ds +++| VFD 24/0LCU1 01588 M01S01466.1ds +++| VFD 24/0LFST 01589 M01S01467.1ds +++| DATA 0 01590 M01S01468.1ds +++| TNSJ SPACE 4,10 01591 M01S01469.1ds +++|** JOB TABLE 1. 01592 M01S01470.1ds +++|* 01593 M01S01471.1ds +++|* NO STACK CYBER 70 MAINTENANCE JOBS. 01594 M01S01472.1ds +++|* JOBS RUN ON MAINFRAME TYPES 6400, 6500, CYBER 72, CYBER 01595 M01S01473.1ds +++|* 73, CPU1 OF 6700 AND CPU1 OF CYBER 74-2X. 01596 M01S01474.1ds +++|* 01597 M01S01475.1ds +++|* NOTE JOB TABLE 1 STARTS IN THE 01598 M01S01476.1ds +++|* MIDDLE OF JOB TABLE 2. 01599 M01S01477.1ds +++| TSSJ SPACE 4,10 01600 M01S01478.1ds +++|** JOB TABLE 2. 01601 M01S01479.1ds +++|* 01602 M01S01480.1ds +++|* WITH STACK CYBER 70 MAINTENANCE JOBS. 01603 M01S01481.1ds +++|* JOBS RUN ON MAINFRAME TYPES 6600, CYBER 74-1X, CPU0 OF 01604 M01S01482.1ds +++|* 6700 AND CPU0 OF CYBER 74-2X. 01605 M01S01483.1ds +++| 01606 M01S01484.1ds +++| 01607 M01S01485.1ds +++| TSSJ BSS 0 01608 M01S01486.1ds +++| VFD 24/0LFM2 01609 M01S01487.1ds +++| VFD 24/0LIWS 01610 M01S01488.1ds +++| TNSJ BSS 0 START OF JOB TABLE 1 01611 M01S01489.1ds +++| VFD 24/0LCT3 01612 M01S01490.1ds +++| VFD 24/0LMRG 01613 M01S01491.1ds +++| VFD 24/0LMY1 01614 M01S01492.1ds +++| VFD 24/0LRAN 01615 M01S01493.1ds +++| DATA 0 01616 M01S01494.1ds +++| TNOJ SPACE 4,10 01617 M01S01495.1ds +++|** JOB TABLE 3. 01618 M01S01496.1ds +++|* 01619 M01S01497.1ds +++|* NO STACK CYBER 170 MAINTENANCE JOBS. 01620 M01S01498.1ds +++|* JOBS RUN ON MAINFRAME TYPES CYBER 172, 173 AND 174. 01621 M01S01499.1ds +++| 01622 M01S01500.1ds +++| 01623 M01S01501.1ds +++| TNOJ BSS 0 01624 M01S01502.1ds +++| VFD 24/0LCSU 01625 M01S01503.1ds +++| VFD 24/0LCT3 01626 M01S01504.1ds +++| VFD 24/0LMRG 01627 M01S01505.1ds +++| VFD 24/0LRAN 01628 M01S01506.1ds +++| DATA 0 01629 M01S01507.1ds +++| TSOJ SPACE 4,10 01630 M01S01508.1ds +++|** JOB TABLE 4. 01631 M01S01509.1ds +++|* 01632 M01S01510.1ds +++|* WITH STACK CYBER 170 MAINTENANCE JOBS. 01633 M01S01511.1ds +++|* JOBS RUN ON MAINFRAME TYPE CYBER 175. 01634 M01S01512.1ds +++| 01635 M01S01513.1ds +++| 01636 M01S01514.1ds +++| TSOJ BSS 0 01637 M01S01515.1ds +++| VFD 24/0LCSU 01638 M01S01516.1ds +++| VFD 24/0LCT7 01639 M01S01517.1ds +++| VFD 24/0LRAN 01640 M01S01518.1ds +++| DATA 0 01641 M01S01519.1ds +++| TMUJ SPACE 4,10 01642 M01S01520.1ds +++|** JOB TABLE 5. 01643 M01S01521.1ds +++|* 01644 M01S01522.1ds +++|* JOBS RUN ON MAINFRAMES WITH CMU. 01645 M01S01523.1ds +++| 01646 M01S01524.1ds +++| 01647 M01S01525.1ds +++| TMUJ BSS 0 01648 M01S01526.1ds +++| VFD 24/0LCMU 01649 M01S01527.1ds +++| DATA 0 01650 M01S01528.1ds +++| TSBJ SPACE 4,10 01651 M01S01529.1ds +++|** JOB TABLE 6. 01652 M01S01530.1ds +++|* 01653 M01S01531.1ds +++|* CYBER 176 MAINTENANCE JOBS. 01654 M01S01532.1ds +++| 01655 M01S01533.1ds +++| 01656 M01S01534.1ds +++| TSBJ BSS 0 01657 M01S01535.1ds +++| VFD 24/0LRAN 01658 M01S01536.1ds +++| VFD 24/0LFST 01659 M01S01537.1ds +++| VFD 24/0LCTB 01660 M01S01538.1ds +++| TSBJA VFD 24/0LLCM 01661 M01S01539.1ds +++| VFD 24/0LMEM 01662 M01S01540.1ds +++| DATA 0 01663 M01S01541.1ds +++| TSAJ SPACE 4,10 01664 M01S01542.1ds +++|** JOB TABLE 7. 01665 M01S01543.1ds +++|* 01666 M01S01544.1ds +++|* 01667 M01S01545.1ds +++|* CYBER 170 - 815/825/835/855 MAINTENANCE JOBS. 01668 M01S01546.1ds +++| 01669 M01S01547.1ds +++| 01670 M01S01548.1ds +++| TSAJ VFD 24/0LALX 01671 M01S01549.1ds +++| VFD 24/0LCSU 01672 M01S01550.1ds +++| VFD 24/0LCT8 01673 M01S01551.1ds +++| VFD 24/0LCU8 01674 M01S01552.1ds +++| VFD 24/0LFS8 01675 M01S01553.1ds +++| VFD 24/0LMRG 01676 M01S01554.1ds +++| VFD 24/0LRA8 01677 M01S01555.1ds +++| DATA 0 01678 M01S01556.1ds +++| TSCJ SPACE 4,10 01679 M01S01557.1ds +++|** JOB TABLE 8. 01680 M01S01558.1ds +++|* 01681 M01S01559.1ds +++|* CYBER 170 - 865/875 MAINTENANCE JOBS. 01682 M01S01560.1ds +++| 01683 M01S01561.1ds +++| 01684 M01S01562.1ds +++| TSCJ VFD 24/0LALX 01685 M01S01563.1ds +++| VFD 24/0LCSU 01686 M01S01564.1ds +++| VFD 24/0LCT6 01687 M01S01565.1ds +++| VFD 24/0LCU8 01688 M01S01566.1ds +++| VFD 24/0LFS8 01689 M01S01567.1ds +++| VFD 24/0LRA8 01690 M01S01568.1ds +++| DATA 0 01691 M01S01569.1ds +++| IJC SPACE 4,10 01692 M01S01570.1ds +++|*** FUNCTION IJCF - INITIATE JOB CALL. 01693 M01S01571.1ds +++|* 01694 M01S01572.1ds +++|* ENTRY (IR+3) = FIELD LENGTH, IF SPECIFIED BY CALLER. 01695 M01S01573.1ds +++|* = 0, OTHERWISE. 01696 M01S01574.1ds +++|* (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/. 01697 M01S01575.1ds +++| 01698 M01S01576.1ds +++| 01699 M01S01577.1ds +++| IJC ENTRY ENTRY/EXIT 01700 M01S01578.1ds +++| LDC BUFA SET JOB COMMAND ADDRESS 01701 M01S01579.1ds +++| STM ICJB 01702 M01S01580.1ds +++| LDD IR+3 SAVE FIELD LENGTH 01703 M01S01581.1ds +++| STM IJCA 01704 M01S01582.1ds +++| RJM ICJ 01705 M01S01583.1ds +++| UJN IJCX RETURN 01706 M01S01584.1ds +++| 01707 M01S01585.1ds +++| IJCA CON 0 FIELD LENGTH SPECIFIED BY CALLER 01708 M01S01586.1ds +++| ILJ SPACE 4,10 01709 M01S01587.1ds +++|*** FUNCTION ILJF - INITIATE *LBC* JOB. 01710 M01S01588.1ds +++|* 01711 M01S01589.1ds +++|* CALLED BY *6DI* AND *1DS* FUNCTIONS *UPCF* AND *OCMF* TO 01712 M01S01590.1ds +++|* INITIATE SYSTEM JOB TO RELOAD CONTROLWARE. 01713 M01S01591.1ds +++|* 01714 M01S01592.1ds +++|* ENTRY (IR+4) = 1/,2/F,9/EQ. 01715 M01S01593.1ds +++|* F 0 IF NO RECALL OF CALLER REQUIRED. 01716 M01S01594.1ds +++|* 1 IF *UPCF* *1DS* FUNCTION TO BE 01717 M01S01595.1ds +++|* RECALLED. 01718 M01S01596.1ds +++|* 2 IF *OCMF* *1DS* FUNCTION TO BE 01719 M01S01597.1ds +++|* RECALLED. 01720 M01S01598.1ds +++|* EQ INDICATES CONTROL MODULE RELOAD IF VALUE 01721 M01S01599.1ds +++|* IS EITHER 1 OR A CONTROL MODULE EST 01722 M01S01600.1ds +++|* ORDINAL. 01723 M01S01601.1ds +++| 01724 M01S01602.1ds +++| 01725 M01S01603.1ds +++| ILJ ENTRY ENTRY/EXIT 01726 M01S01604.1ds +++| LDC =Z*LBC* 01727 M01S01605.1ds +++| RJM GJC GENERATE JOB COMMAND 01728 M01S01606.1ds +++| LDD IR+4 01729 M01S01607.1ds +++| SHN 0-11 01730 M01S01608.1ds +++| LPN 3 01731 M01S01609.1ds +++| STD MS
| Line S01610 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | 1ds20 |
Seq # *Modification Id* Act ----------------------------+ 01732 M02S01610.1ds20 ---| NJN ILJ1 IF NOT *6DI* CALL 01733 M01S00001.1ds20 +++| SHN 14 01734 M01S00002.1ds20 +++| NJN ILJ2 IF NOT *6DI* CALL 01735 M01S01611.1ds +++| LDD IR+4 01736 M01S01612.1ds +++| LPC 777 01737 M01S01613.1ds +++| STD CM 01738 M01S01614.1ds +++| SBN 1 01739 M01S01615.1ds +++| MJN ILJ1 IF NOT CONTROL MODULE 01740 M01S01616.1ds +++| ZJN ILJ2 IF CONTROL MODULE 01741 M01S01617.1ds +++| SFA EST,CM 01742 M01S01618.1ds +++| ADK EQDE 01743 M01S01619.1ds +++| CRD CM 01744 M01S01620.1ds +++| LDD CM+3 01745 M01S01621.1ds +++| LMC 2RCM 01746 M01S01622.1ds +++| ZJN ILJ2 IF CONTROL MODULE 01747 M01S01623.1ds +++| ILJ1 LDC ILJA&ILJB 01748 M01S01624.1ds +++| ILJ2 LMC ILJB 01749 M01S01625.1ds +++| STD LA 01750 M01S01626.1ds +++| ILJ3 LDD LA COMPLETE COMMAND IMAGE 01751 M01S01627.1ds +++| RJM CCI 01752 M01S01628.1ds +++| AOD LA ADVANCE COMMAND POINTER 01753 M01S01629.1ds +++| LDI LA 01754 M01S01630.1ds +++| NJN ILJ3 IF NOT END OF COMMAND STREAM 01755 M01S01631.1ds +++| LDN SYSC SET SYSTEM SERVICE CLASS 01756 M01S01632.1ds +++| STD JS 01757 M01S01633.1ds +++| LCN TNDS-TSDS SELECT SYSTEM DEVICE FOR JOB FILE 01758 M01S01634.1ds +++| RAM EJBF 01759 M01S01635.1ds +++| RJM EJB ENTER JOB 01760 M01S01636.1ds +++| LDD MS 01761 M01S01637.1ds +++| ZJN ILJ4 IF NO *1DS* CALL REQUIRED 01762 M01S01638.1ds +++| LDM IDSC SET FUNCTION CODE 01763 M01S01639.1ds +++| SCN 77 PRESERVE BUFFER LOCK/LOGGING CONTROL BITS 01764 M01S01640.1ds +++| LMM ILJC-1,MS 01765 M01S01641.1ds +++| STD IR+2 01766 M01S01642.1ds +++| LDN 0 DISABLE LOGGING/INTERLOCK CLEARING 01767 M01S01643.1ds +++| STM IDSC 01768 M01S01644.1ds +++| LDD IR+4 01769 M01S01645.1ds +++| LPC -3000 01770 M01S01646.1ds +++| STD IR+4 01771 M01S01647.1ds +++| LDD IA REWRITE PP INPUT REGISTER 01772 M01S01648.1ds +++| CWD IR 01773 M01S01649.1ds +++| AOM IDSE SET *NO DROP* FLAG 01774 M01S01650.1ds +++| EXECUTE 1DS,= 01775 M01S01651.1ds +++| ILJ4 LJM ILJX RECALL *1DS* FUNCTION 01776 M01S01652.1ds +++| 01777 M01S01653.1ds +++| 01778 M01S01654.1ds +++| ILJA DATA Z*LOADBC,D=DUMP.* 01779 M01S01655.1ds +++| 01780 M01S01656.1ds +++|* THE FOLLOWING COMMANDS SHOULD BE ACTIVATED IF THE NEED EVER 01781 M01S01657.1ds +++|* ARISES AGAIN TO DUMP THE MEMORY OF A FAILING CONTROLLER. 01782 M01S01658.1ds +++|* THE DUMP CAPABILITY WAS ADDED TO DETERMINE WHY 7155 01783 M01S01659.1ds +++|* CONTROLLERS WERE FAILING. SINCE THE CAUSE OF THIS PROBLEM 01784 M01S01660.1ds +++|* IS NOW UNDERSTOOD, THERE IS NO LONGER A NEED TO DUMP 01785 M01S01661.1ds +++|* CONTROLLERS DURING THE RELOAD PROCESS. 01786 M01S01662.1ds +++| 01787 M01S01663.1ds +++|* DATA Z*DSDI,DMB,Z.+BCDUMP/V.* 01788 M01S01664.1ds +++|* DATA Z*ATTACH,LBCDUMP/M=W,NA.* 01789 M01S01665.1ds +++|* DATA Z*IF,.NOT.FILE(LBCDUMP,PM).DEFINE,LBCDUMP.* 01790 M01S01666.1ds +++|* DATA Z*SKIPEI,LBCDUMP.* 01791 M01S01667.1ds +++|* DATA Z*REWIND,DUMP.* 01792 M01S01668.1ds +++|* DATA Z*COPY,DUMP,LBCDUMP.* 01793 M01S01669.1ds +++| 01794 M01S01670.1ds +++| CON 0 END OF STATEMENTS 01795 M01S01671.1ds +++| 01796 M01S01672.1ds +++| 01797 M01S01673.1ds +++| ILJB DATA Z*LOADBC.* 01798 M01S01674.1ds +++| CON 0 END OF STATEMENTS 01799 M01S01675.1ds +++| 01800 M01S01676.1ds +++| 01801 M01S01677.1ds +++| ILJC CON /1DS/UPCF 01802 M01S01678.1ds +++| CON /1DS/OCMF 01803 M01S01679.1ds +++| DSP SPACE 4,10 01804 M01S01680.1ds +++|*** FUNCTION DSPF - INITIATE *L* DISPLAY JOB. 01805 M01S01681.1ds +++|* 01806 M01S01682.1ds +++|* ENTRY (IR+4) = 6/ KEYBOARD BUFFER OFFSET, 6/. 01807 M01S01683.1ds +++| 01808 M01S01684.1ds +++| 01809 M01S01685.1ds +++| DSP ENTRY ENTRY/EXIT 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 M01S01686.1ds +++| LDC NOQF*100+7 DO NOT GENERATE OUTPUT 01822 M01S01687.1ds +++| STM ICJD 01823 M01S01688.1ds +++| RJM ICJ INITIATE COMMAND JOB
| Line S01689 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2686 |
Seq # *Modification Id* Act ----------------------------+ 01824 M02S01689.ns2686 ---| LDC LDSP *L* DISPLAY POINTER 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 M01S01690.1ds +++| CRD CM+1 01833 M01S01691.1ds +++| LDN 0 01834 M01S01692.1ds +++| STD CM+2 01835 M01S01693.1ds +++| LDN 2 01836 M01S01694.1ds +++| STD CM+1 STORE WORD COUNT OF OPTIONS 01837 M01S01695.1ds +++| LDD FN SET JSN
| Line S01696 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2686 |
Seq # *Modification Id* Act ----------------------------+ 01838 M02S01696.ns2686 ---| STM DSPA+1*5+3 01839 M01S00019.ns2686 +++| STM DSPB+1*5+3 01840 M01S01697.1ds +++| LDD FN+1
| Line S01698 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2686 |
Seq # *Modification Id* Act ----------------------------+ 01841 M02S01698.ns2686 ---| STM DSPA+1*5+4 STORE *JSN* 01842 M01S00020.ns2686 +++| STM DSPB+1*5+4 STORE *JSN* 01843 M01S01699.1ds +++| LDD MA
| Line S01700 Modification History | |
|---|---|
M01 (Added by) | 1ds |
M02 (Updated by) | ns2686 |
Seq # *Modification Id* Act ----------------------------+ 01844 M02S01700.ns2686 ---| CWM DSPA,CM+1
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ds.txt · Last modified: by 127.0.0.1