cdc:nos2.source:opl.opl871:deck:1ta
Deck 1TA
9 Modifications
Listing Sections
- Deck 1TA Start
- Deck 1TA Part 1 (Line 1727)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1ta +++| IDENT 1TA,ITA 00002 M01S00002.1ta +++| PERIPH 00003 M01S00003.1ta +++| BASE MIXED 00004 M01S00004.1ta +++| SST 00005 M01S00005.1ta +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00006 M01S00006.1ta +++| EOR$ EQU 1 DEFINE POSITION AFTER EOR 00007 M01S00007.1ta +++|*COMMENT 1TA - IAF AUXILIARY FUNCTION PROCESSOR.
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M02S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M01S00009.1ta +++| TITLE 1TA - TIMESHARING AUXILIARY PROCESSOR. 00011 M01S00010.1ta +++| SPACE 4,10 00012 M01S00011.1ta +++|***** 1TA - TIMESHARING AUXILIARY PROCESSOR. 00013 M01S00012.1ta +++|* 00014 M01S00013.1ta +++|* K. E. ZINNEL. 70/03/09. 00015 M01S00014.1ta +++|* R. E. TATE. 71/01/25. 00016 M01S00015.1ta +++|* P. D. FARRELL. 75/02/07. 00017 M01S00016.1ta +++|* A. D. FORET. 76/04/26. 00018 M01S00017.1ta +++|* P. D. FARRELL 77/03/17. 00019 M01S00018.1ta +++|* M. J. CARIDDI, L. K. TUTTLE 81/07/02. 00020 M01S00019.1ta +++| SPACE 4,10 00021 M01S00020.1ta +++|*** 1TA PROCESSES FUNCTIONS FOR *IAF* WHICH REQUIRE 00022 M01S00021.1ta +++|* PP ACTION. 00023 M01S00022.1ta +++| SPACE 4,10,25 00024 M01S00023.1ta +++|*** CALLS. 00025 M01S00024.1ta +++|* 00026 M01S00025.1ta +++|* 00027 M01S00026.1ta +++|* GROUP REQUEST. 00028 M01S00027.1ta +++|*T 18/ *1TA*,6/ CP,6/ ,18/ RETURN ADDRESS,12/ PP
Figure
00029 M01S00028.1ta +++|* 00030 M01S00029.1ta +++|* CP CONTROL POINT. 00031 M01S00030.1ta +++|* PP POT POINTER TO REQUEST QUEUE POT(S). 00032 M01S00031.1ta +++|* 00033 M01S00032.1ta +++|* SINGLE REQUEST. 00034 M01S00033.1ta +++|*T 18/ *1TA*,6/ CP,12/ 40FC,12/ TN,12/ ARG
Figure
00035 M01S00034.1ta +++|* 00036 M01S00035.1ta +++|* REQUEST QUEUE FORMAT. 00037 M01S00036.1ta +++|*T 24/ ,12/ FC,12/ TN,12/ ARG
Figure
00038 M01S00037.1ta +++|* 00039 M01S00038.1ta +++|* FC FUNCTION CODE. 00040 M01S00039.1ta +++|* TN TERMINAL NUMBER. 00041 M01S00040.1ta +++|* ARG POT POINTER OR REQUEST TYPE. 00042 M01S00041.1ta +++|* 00043 M01S00042.1ta +++|* VROT STATUS BITS USED. 00044 M01S00043.1ta +++|* BIT 0 - COMPLETION STATUS BIT. 00045 M01S00044.1ta +++|* BIT 11- ERROR RETURN. 00046 M01S00045.1ta +++| SPACE 4,10,10 00047 M01S00046.1ta +++|*** ACCOUNT FILE MESSAGES. 00048 M01S00047.1ta +++|* 00049 M01S00048.1ta +++|* 00050 M01S00049.1ta +++|* CHARACTER ACCUMULATOR OVERFLOW - 00051 M01S00050.1ta +++|* *UCCO, 000000.000KCHS.* = CHARACTERS OUT. 00052 M01S00051.1ta +++|* *UCCI, 000000.000KCHS.* = CHARACTERS IN. 00053 M01S00052.1ta +++|* *ABLQ, JSNN, YY/MM/DD, HH.MM.SS* INPUT FILE QUEUED 00054 M01S00053.1ta +++| SPACE 4,10,10 00055 M01S00054.1ta +++|** ROUTINES USED. 00056 M01S00055.1ta +++|* 00057 M01S00056.1ta +++|*
| Line S00057 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00058 M02S00057.ns2663 ---|* 0AV - ACCOUNT FILE VALIDATION. 00059 M01S00001.ns2663 +++|* 0AV - VERIFY USER NAME. 00060 M01S00002.ns2663 +++|* 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE. 00061 M01S00058.1ta +++| SPACE 4,10 00062 M01S00059.1ta +++|* COMMON DECKS. 00063 M01S00060.1ta +++| 00064 M01S00061.1ta +++| 00065 M01S00062.1ta +++|*CALL COMPMAC 00066 M01S00063.1ta +++|*CALL COMSACC 00067 M01S00064.1ta +++|*CALL COMSCPS 00068 M01S00065.1ta +++|*CALL COMSEJT 00069 M01S00066.1ta +++|*CALL COMSEVT 00070 M01S00067.1ta +++|*CALL COMSJIO 00071 M01S00068.1ta +++|*CALL COMSJRO 00072 M01S00069.1ta +++|*CALL COMSMSC 00073 M01S00070.1ta +++|*CALL COMSMSP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00001.273l780 ---| CPA$ EQU 1 SELECT PCPA ACCESS
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00075 M02S00002.273l780 ---| IPC$ EQU 1 SELECT INITIALIZATION OF *COMPPCP*
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00076 M02S00003.273l780 ---|*CALL COMSPCP 00077 M01S00071.1ta +++|*CALL COMSPFM 00078 M01S00072.1ta +++|*CALL COMSPIM 00079 M01S00073.1ta +++|*CALL COMSPRD 00080 M01S00074.1ta +++|*CALL COMSREM 00081 M01S00075.1ta +++|*CALL COMSSRU 00082 M01S00076.1ta +++|*CALL COMSSSE 00083 M01S00077.1ta +++|*CALL COMSTCM 00084 M01S00078.1ta +++|*CALL COMSWEI 00085 M01S00079.1ta +++|*CALL COMSZOL 00086 M01S00080.1ta +++| TITLE PROGRAM EQUIVALENCES. 00087 M01S00081.1ta +++|**** DIRECT LOCATION ASSIGNMENTS. 00088 M01S00082.1ta +++| 00089 M01S00083.1ta +++| QF EQU 25 QFT ORDINAL 00090 M01S00084.1ta +++| PW EQU 26 POT WORD COUNT 00091 M01S00085.1ta +++| FP EQU 27 FIRST POT 00092 M01S00086.1ta +++| CN EQU 30 - 34 VROT STATUS WORD BUFFER (5 LOCATIONS) 00093 M01S00087.1ta +++| PA EQU 35 - 36 POT ADDRESS (2 LOCATIONS) 00094 M01S00088.1ta +++| PP EQU 37 POT POINTER 00095 M01S00089.1ta +++| DF EQU 40 - 44 DESIGNATED FILE NAME (5 LOCATIONS) 00096 M01S00090.1ta +++| WC EQU 45 WORD COUNT 00097 M01S00091.1ta +++| TT EQU 46 - 47 TERMINAL TABLE ADDRESS (2 LOCATIONS) 00098 M01S00092.1ta +++| TN EQU IR+3 TERMINAL NUMBER 00099 M01S00093.1ta +++| FN EQU 60 - 64 FILE NAME (5 LOCATIONS) 00100 M01S00094.1ta +++| OT EQU 65 ORIGIN TYPE 00101 M01S00004.271l716 +++| NC EQU 66 NUMBER OF CONTROL POINTS 00102 M01S00095.1ta +++| MF EQU 67 MESSAGE FLAG 00103 M01S00096.1ta +++| SPACE 4,10 00104 M01S00097.1ta +++|** MICRO DEFINITIONS. 00105 M01S00098.1ta +++| 00106 M01S00099.1ta +++| 00107 M01S00100.1ta +++| TE OCTMIC TTEQ,2 TTY PSEUDO-EQUIPMENT MICRO 00108 M01S00101.1ta +++| SPACE 4,10 00109 M01S00102.1ta +++|**** PROGRAM EQUIVALENCES. 00110 M01S00103.1ta +++| 00111 M01S00104.1ta +++| 00112 M01S00105.1ta +++| SYSN EQU 0 SYSTEM SECTOR NUMBER 00113 M01S00106.1ta +++| CPSN EQU 1 C.P. AREA SECTOR NUMBER 00114 M01S00001.1ta11 +++| NSVR EQU 6 NUMBER OF SERVICE CLASS VALIDATION RETRIES 00115 M01S00001.1ta10 +++| EJTT EQU EJTR*2 EJT THRESHOLD 00116 M01S00107.1ta +++| BUFFER SPACE 4,10,10 00117 M01S00108.1ta +++|**** BUFFER DEFINITIONS. 00118 M01S00109.1ta +++| 00119 M01S00110.1ta +++| FBUF EQU BFMS-502-LENF*5+1*5 NFL/INPUT/EOI BUFFER 00120 M01S00111.1ta +++| CBUF EQU FBUF-504 CONTROL POINT AREA SECTOR BUFFER
| Line S00112 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00121 M02S00112.ns2663 ---| SPACE 4,10,10
| Line S00113 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00122 M02S00113.ns2663 ---|** PROGRAMMING NOTE.
| Line S00114 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00123 M02S00114.ns2663 ---|*
| Line S00115 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00124 M02S00115.ns2663 ---|* OVERLAYS WHICH EITHER DIRECTLY OR INDIRECTLY CALL
| Line S00116 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00125 M02S00116.ns2663 ---|* *0* LEVEL OVERLAY AT *OVL0* MUST TERMINATE WITH A TEST FOR
| Line S00117 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00126 M02S00117.ns2663 ---|* OVERFLOW INTO THE *0* LEVEL OVERLAY LOAD BUFFER
| Line S00118 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00127 M02S00118.ns2663 ---|* DEFINED BY LOCATION *OVL0* ABOVE. 00128 M01S00003.ns2663 +++| 00129 M01S00004.ns2663 +++| ERRNG EPFW-CBUF-ZAVL CHECK *0AV* OVERFLOW 00130 M01S00005.ns2663 +++| ERRNG BFMS-CBUF-ZQML CHECK *0QM* OVERFLOW 00131 M01S00119.1ta +++| TITLE OVERLAY COMMUNICATION MACROS. 00132 M01S00120.1ta +++| OVERLAY SPACE 4,10 00133 M01S00121.1ta +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00134 M01S00122.1ta +++|* 00135 M01S00123.1ta +++|* QUAL OVERLAY (TEXT),ADDR 00136 M01S00124.1ta +++|* 00137 M01S00125.1ta +++|* QUAL OVERLAY QUALIFIER NAME 00138 M01S00126.1ta +++|* TEXT TEXT OF SUBTITLE. 00139 M01S00127.1ta +++|* ADDR OPTIONAL LOAD ADDRESS, IF TO BE OTHER THAN *OVL*. 00140 M01S00128.1ta +++| 00141 M01S00129.1ta +++| 00142 M01S00130.1ta +++| NOREF .M 00143 M01S00131.1ta +++| PURGMAC OVERLAY 00144 M01S00132.1ta +++| .M SET 0 00145 M01S00133.1ta +++| 00146 M01S00134.1ta +++| MACRO OVERLAY,Q,T,A 00147 M01S00135.1ta +++| LOCAL LADDR 00148 M01S00136.1ta +++| QUAL 00149 M01S00137.1ta +++| .M SET .M+1 00150 M01S00138.1ta +++| USE LITERALS 00151 M01S00139.1ta +++| .1 MICRO .M,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ 00152 M01S00140.1ta +++| .3 MICRO 1,3, 3T".1" 00153 M01S00141.1ta +++| Q_O EQU 1R".1" 00154 M01S00142.1ta +++| Q MICRO 1,4, O_Q 00155 M01S00143.1ta +++| TITLE ".3" - T 00156 M01S00144.1ta +++| IDENT ".3","Q" - T 00157 M01S00145.1ta +++|*COMMENT 1TA - T
| Line S00146 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00158 M02S00146.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00159 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00160 M01S00147.1ta +++| ORG A OVL 00161 M01S00148.1ta +++| "Q" LJM * 00162 M01S00149.1ta +++| UJN *-2 00163 M01S00150.1ta +++| QUAL Q 00164 M01S00151.1ta +++| OVERLAY ENDM 00165 M01S00152.1ta +++| ENTRY SPACE 4,10,10 00166 M01S00153.1ta +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00167 M01S00154.1ta +++|* 00168 M01S00155.1ta +++|* ENTRY NAME 00169 M01S00156.1ta +++|* 00170 M01S00157.1ta +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS. 00171 M01S00158.1ta +++| 00172 M01S00159.1ta +++| 00173 M01S00160.1ta +++| PURGMAC ENTRY 00174 M01S00161.1ta +++| 00175 M01S00162.1ta +++| ENTRY MACRO NAME 00176 M01S00163.1ta +++| QUAL 00177 M01S00164.1ta +++| NAME EQU *+1R".1"*10000 00178 M01S00165.1ta +++| QUAL * 00179 M01S00166.1ta +++| ENTRY ENDM 00180 M01S00167.1ta +++| FCN SPACE 4,10,10 00181 M01S00168.1ta +++|** FCN - DEFINE FUNCTION PROCESSOR. 00182 M01S00169.1ta +++|* 00183 M01S00170.1ta +++|* FCN NAME 00184 M01S00171.1ta +++|* 00185 M01S00172.1ta +++|* ENTRY *NAME* = NAME OF FUNCTION PROCESSOR. 00186 M01S00173.1ta +++| 00187 M01S00174.1ta +++| NOREF .I 00188 M01S00175.1ta +++| .I SET 0 00189 M01S00176.1ta +++| 00190 M01S00177.1ta +++| MACRO FCN,L,A 00191 M01S00178.1ta +++| LOC .I/2+1 00192 M01S00179.1ta +++| L CON A/10000,A-A/10000*10000 00193 M01S00180.1ta +++| .I SET .I+2 00194 M01S00181.1ta +++| ENDM 00195 M01S00182.1ta +++| SCLASS SPACE 4,15 00196 M01S00183.1ta +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00197 M01S00184.1ta +++|* 00198 M01S00185.1ta +++|* SCLASS NM,MN,DF,ST,TX 00199 M01S00186.1ta +++|* 00200 M01S00187.1ta +++|* ENTRY *NM* = SERVICE CLASS NAME. 00201 M01S00188.1ta +++|* *MN* = TWO CHARACTER MNEMONIC. 00202 M01S00189.1ta +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00203 M01S00190.1ta +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00204 M01S00191.1ta +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00205 M01S00192.1ta +++|* 00206 M01S00193.1ta +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00207 M01S00194.1ta +++|* THIS MACRO. 00208 M01S00195.1ta +++| 00209 M01S00196.1ta +++| 00210 M01S00197.1ta +++| PURGMAC SCLASS 00211 M01S00198.1ta +++| 00212 M01S00199.1ta +++| SCLASS MACRO NM,MN,DF,ST,TX 00213 M01S00200.1ta +++| .A IFC NE,$NM$SSSC$ 00214 M01S00201.1ta +++| .SCL RMT 00215 M01S00202.1ta +++| INDEX NM,1R_DF TX 00216 M01S00203.1ta +++| .SCL RMT 00217 M01S00204.1ta +++| .SCLVSP RMT 00218 M01S00205.1ta +++| INDEX NM,MN_MK TX 00219 M01S00206.1ta +++| .SCLVSP RMT 00220 M01S00207.1ta +++| .A ENDIF 00221 M01S00208.1ta +++| SCLASS ENDM 00222 M01S00209.1ta +++| 00223 M01S00210.1ta +++| 00224 M01S00211.1ta +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00225 M01S00212.1ta +++|*CALL COMSSCD 00226 M01S00213.1ta +++| TITLE MAIN PROGRAM. 00227 M01S00214.1ta +++| 1TA SPACE 4,10 00228 M01S00215.1ta +++|** 1TA - MAIN PROGRAM. 00229 M01S00216.1ta +++|* 00230 M01S00217.1ta +++|* LOADS AND EXECUTES THE VARIOUS FUNCTION PROCESSOR 00231 M01S00218.1ta +++|* OVERLAYS. 00232 M01S00219.1ta +++|* 00233 M01S00220.1ta +++|* CALLS CHG, EXR, PPR, SPA, STA, UPP. 00234 M01S00221.1ta +++| 00235 M01S00222.1ta +++| 00236 M01S00223.1ta +++| ORG PPFW 00237 M01S00224.1ta +++| ITA LJM INI INITIALIZE 00238 M01S00225.1ta +++| 00239 M01S00226.1ta +++|* ENTRY FROM FUNCTION PROCESSOR. 00240 M01S00227.1ta +++| 00241 M01S00228.1ta +++| ITAX AOM ITAC INCREMENT TO NEXT ENTRY 00242 M01S00229.1ta +++|* LJM DPP (IF SINGLE FUNCTION) 00243 M01S00230.1ta +++| LMN VCPC 00244 M01S00231.1ta +++| NJN ITA1 IF NOT THE END OF A POT 00245 M01S00232.1ta +++| STM ITAC 00246 M01S00233.1ta +++| LDC * READ UP NEXT POT 00247 M01S00234.1ta +++| ITAA EQU *-1 00248 M01S00235.1ta +++| STD PP 00249 M01S00236.1ta +++| RJM UPP GET NEXT POT 00250 M01S00237.1ta +++| ZJN ITA2 IF LAST POT PROCESSED 00251 M01S00238.1ta +++| STM ITAA 00252 M01S00239.1ta +++| RJM SPA SET POT ADDRESS 00253 M01S00240.1ta +++| STM ITAB+1 00254 M01S00241.1ta +++| SHN -14 00255 M01S00242.1ta +++| ADC LDCI 00256 M01S00243.1ta +++| STM ITAB 00257 M01S00244.1ta +++| 00258 M01S00245.1ta +++|* MULTIPLE FUNCTION RETURN FROM *INI*. 00259 M01S00246.1ta +++| 00260 M01S00247.1ta +++| ITA1 LDC * READ UP ENTRY 00261 M01S00248.1ta +++| ITAB EQU *-2 00262 M01S00249.1ta +++| ADC 0 00263 M01S00250.1ta +++| ITAC EQU *-1 00264 M01S00251.1ta +++| CRD IR 00265 M01S00252.1ta +++| LDD TN 00266 M01S00253.1ta +++| NJN ITA4 IF STILL MORE ENTRIES TO PROCESS 00267 M01S00254.1ta +++| ITA2 LDD IA SET COMPLETION 00268 M01S00255.1ta +++| CRD IR 00269 M01S00256.1ta +++| LDN ZERL 00270 M01S00257.1ta +++| CRD IR-3 00271 M01S00258.1ta +++| ITAD LDC * 00272 M01S00259.1ta +++| CWD IR 00273 M01S00260.1ta +++| 00274 M01S00261.1ta +++|* ENTRY TO DROP PPU. 00275 M01S00262.1ta +++| 00276 M01S00263.1ta +++| DPP MONITOR DPPM DROP PPU 00277 M01S00264.1ta +++| LJM PPR RETURN TO PP RESIDENT 00278 M01S00265.1ta +++| 00279 M01S00266.1ta +++|* SINGLE FUNCTION RETURN FROM *INI*. 00280 M01S00267.1ta +++| 00281 M01S00268.1ta +++| ITA4 RJM STA SET TERMINAL TABLE ADDRESS 00282 M01S00269.1ta +++| LDD IR+2 GENERATE FUNCTION CODE INDEX 00283 M01S00270.1ta +++| SHN 1 00284 M01S00271.1ta +++| STD T7 00285 M01S00272.1ta +++| SBN TFCNL+1 00286 M01S00273.1ta +++| MJN ITA6 IF LEGAL FUNCTION CODE 00287 M01S00274.1ta +++| ITA5 LDN 0 SET NO ERROR FLAG 00288 M01S00275.1ta +++| RJM CHG CONDITIONALLY HANG PP 00289 M01S00276.1ta +++| UJP DPP DROP PP 00290 M01S00277.1ta +++| 00291 M01S00278.1ta +++|** *1TA* FUNCTION LOAD. 00292 M01S00279.1ta +++|* 00293 M01S00280.1ta +++|* ENTRY (T7) = FUNCTION CODE INDEX. 00294 M01S00281.1ta +++| 00295 M01S00282.1ta +++| 00296 M01S00283.1ta +++| ITA6 LDM TFCN-1,T7 SET PROCESSOR ADDRESS 00297 M01S00284.1ta +++| ZJN ITA5 IF UNDEFINED FUNCTION 00298 M01S00285.1ta +++| STM ITAE 00299 M01S00286.1ta +++| LDM TFCN-2,T7 SET OVERLAY NAME 00300 M01S00287.1ta +++| ZJN ITA7 IF NO OVERLAY REQUIRED 00301 M01S00288.1ta +++| SHN 6 00302 M01S00289.1ta +++| LMM OVL-4 00303 M01S00290.1ta +++| SCN 77 00304 M01S00291.1ta +++| ZJN ITA7 IF OVERLAY ALREADY LOADED 00305 M01S00292.1ta +++| LDM TFCN-2,T7 LOAD OVERLAY 00306 M01S00293.1ta +++| LMC 2L3T 00307 M01S00294.1ta +++| RJM EXR LOAD OVERLAY 00308 M01S00295.1ta +++| ITA7 LJM * PROCESS REQUEST 00309 M01S00296.1ta +++| ITAE EQU *-1
| Line S00297 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00310 M02S00297.ns2663 ---| TITLE FUNCTION OVERLAY DIRECTORY. 00311 M01S00298.1ta +++| TFCN SPACE 4,10 00312 M01S00299.1ta +++|** TFCN - TABLE OF FUNCTION CODE PROCESSORS. 00313 M01S00300.1ta +++|* 00314 M01S00301.1ta +++|* ENTRY - TWO WORDS. 00315 M01S00302.1ta +++|* WORD 1 = FUNCTION PROCESSOR OVERLAY NAME. 00316 M01S00303.1ta +++|* WORD 2 = FUNCTION PROCESSOR ADDRESS. 00317 M01S00304.1ta +++| 00318 M01S00305.1ta +++| 00319 M01S00306.1ta +++| TFCN BSS 0 00320 M01S00307.1ta +++| FCN TFL ADJUST TIMESHARING EXECUTIVE FIELD LENGTH 00321 M01S00308.1ta +++| FCN CIQ CREATE INPUT QUEUE ENTRY 00322 M01S00309.1ta +++| FCN IAM ISSUE ACCOUNTING MESSAGES 00323 M01S00310.1ta +++| FCN IRL INCREMENT RESOURCE LIMIT 00324 M01S00311.1ta +++| FCN RJS RETURN JOB STATUS 00325 M01S00312.1ta +++| LOC *O 00326 M01S00313.1ta +++| TFCNL EQU *-TFCN LENGTH OF FUNCTION TABLE 00327 M01S00006.ns2663 +++| TITLE GENERAL SUBROUTINES. 00328 M01S00001.273l780 +++| CCA SPACE 4,10 00329 M01S00002.273l780 +++|** CCA - COMPUTE CPA/PCPA ADDRESS. 00330 M01S00003.273l780 +++|* 00331 M01S00004.273l780 +++|* ENTRY (A) = CP/PCP NUMBER. 00332 M01S00005.273l780 +++|* (NC) = NUMBER OF CONTROL POINTS. 00333 M01S00006.273l780 +++|* 00334 M01S00007.273l780 +++|* EXIT (A) = CPA/PCPA ADDRESS. 00335 M01S00008.273l780 +++| 00336 M01S00009.273l780 +++| 00337 M01S00010.273l780 +++| CCA1 ADD NC 00338 M01S00011.273l780 +++| SHN 7 00339 M01S00012.273l780 +++| 00340 M01S00013.273l780 +++| CCA SUBR ENTRY/EXIT 00341 M01S00014.273l780 +++| SBD NC 00342 M01S00015.273l780 +++| MJN CCA1 IF CONTROL POINT 00343 M01S00016.273l780 +++| ZJN CCA1 IF SYSTEM CONTROL POINT 00344 M01S00017.273l780 +++| SHN 7 00345 M01S00018.273l780 +++| CCAA ADC ** (PCP AREAS BASE ADDRESS) 00346 M01S00019.273l780 +++| UJN CCAX RETURN 00347 M01S00314.1ta +++| CFN SPACE 4,10 00348 M01S00315.1ta +++|** CFN - CHECK FILE NAME. 00349 M01S00316.1ta +++|* 00350 M01S00317.1ta +++|* ENTRY (A) = ADDRESS OF FILE NAME 1. 00351 M01S00318.1ta +++|* (DF - DF+3) = FILE NAME 2. 00352 M01S00319.1ta +++|* 00353 M01S00320.1ta +++|* EXIT (A) = ZERO IF FILE NAMES MATCH. 00354 M01S00321.1ta +++|* 00355 M01S00322.1ta +++|* USES T3. 00356 M01S00323.1ta +++| 00357 M01S00324.1ta +++| 00358 M01S00325.1ta +++| CFN SUBR ENTRY/EXIT 00359 M01S00326.1ta +++| STD T3 SAVE ADDRESS OF FILE NAME 00360 M01S00327.1ta +++| LDI T3 COMPARE FIRST TWO CHARACTERS 00361 M01S00328.1ta +++| LMD DF 00362 M01S00329.1ta +++| NJN CFNX IF NO MATCH 00363 M01S00330.1ta +++| LDM 1,T3 COMPARE NEXT CHARACTERS 00364 M01S00331.1ta +++| LMD DF+1 00365 M01S00332.1ta +++| NJN CFNX IF NO MATCH 00366 M01S00333.1ta +++| LDM 2,T3 COMPARE NEXT CHARACTERS 00367 M01S00334.1ta +++| LMD DF+2 00368 M01S00335.1ta +++| NJN CFNX IF NO MATCH 00369 M01S00336.1ta +++| LDM 3,T3 COMPARE LAST CHARACTER 00370 M01S00337.1ta +++| LMD DF+3 00371 M01S00338.1ta +++| SCN 77 00372 M01S00339.1ta +++| UJN CFNX RETURN 00373 M01S00340.1ta +++| CHG SPACE 4,10 00374 M01S00341.1ta +++|** CHG - CONDITIONALLY HANG PP. 00375 M01S00342.1ta +++|* 00376 M01S00343.1ta +++|* ENTRY (A) = ERROR FLAG. 00377 M01S00344.1ta +++|* 00378 M01S00345.1ta +++|* EXIT (A) = ZERO. 00379 M01S00346.1ta +++|* 00380 M01S00347.1ta +++|* USES CM - CM+4. 00381 M01S00348.1ta +++|* 00382 M01S00349.1ta +++|* MACROS MONITOR. 00383 M01S00350.1ta +++| 00384 M01S00351.1ta +++| 00385 M01S00352.1ta +++| CHG SUBR ENTRY/EXIT 00386 M01S00353.1ta +++| STD CM+2 SET ERROR FLAG 00387 M01S00354.1ta +++| LDM CHG GET ADDRESS WHERE ERROR DETECTED 00388 M01S00355.1ta +++| STD CM+1 00389 M01S00356.1ta +++| MONITOR CHGM CONDITIONALLY HANG PP 00390 M01S00357.1ta +++| UJN CHGX RETURN 00391 M01S00358.1ta +++| DPT SPACE 4,10 00392 M01S00359.1ta +++|** DPT - DROP POTS. 00393 M01S00360.1ta +++|* 00394 M01S00361.1ta +++|* ENTRY (PP) = FIRST POT CHAIN TO BE DROPPED. 00395 M01S00362.1ta +++|* (TN) = TERMINAL NUMBER. 00396 M01S00363.1ta +++|* 00397 M01S00364.1ta +++|* EXIT MONITOR FUNCTION TO DROP POT(S) COMPLETE. 00398 M01S00365.1ta +++|* 00399 M01S00366.1ta +++|* USES T1, CM - CM+4. 00400 M01S00367.1ta +++|* 00401 M01S00368.1ta +++|* CALLS ITF. 00402 M01S00369.1ta +++| 00403 M01S00370.1ta +++| 00404 M01S00371.1ta +++| DPT SUBR ENTRY/EXIT 00405 M01S00372.1ta +++| LDN ZERL CLEAR REQUEST WORD 00406 M01S00373.1ta +++| CRD CM 00407 M01S00374.1ta +++| LDC VDPO DROP POTS 00408 M01S00375.1ta +++| STD CM 00409 M01S00376.1ta +++| LDD PP 00410 M01S00377.1ta +++| STD CM+3 00411 M01S00378.1ta +++| RJM ITF ISSUE *TSEM* FUNCTION 00412 M01S00379.1ta +++| UJN DPTX RETURN 00413 M01S00380.1ta +++| ERX SPACE 4,10,10 00414 M01S00381.1ta +++|** ERX - ERROR EXIT. 00415 M01S00382.1ta +++|* 00416 M01S00383.1ta +++|* EXIT COMPLETION BIT AND ERROR BIT SET IN VROT. 00417 M01S00384.1ta +++|* 00418 M01S00385.1ta +++|* USES CM+4. 00419 M01S00386.1ta +++|* 00420 M01S00387.1ta +++|* USES CN - CN+4. 00421 M01S00388.1ta +++|* 00422 M01S00389.1ta +++|* NOTE *ERX* IS ENTERED BY A RETURN JUMP TO ALLOW 00423 M01S00390.1ta +++|* SAVING THE ADDRESS AT WHICH THE ERROR OCCURRED. 00424 M01S00391.1ta +++| 00425 M01S00392.1ta +++| 00426 M01S00393.1ta +++| ERX CON 0 ENTRY / RETURN ADDRESS SAVED 00427 M01S00394.1ta +++| RJM STT GET TERMINAL TABLE ADDRESS 00428 M01S00395.1ta +++| ADK VROT 00429 M01S00396.1ta +++| CRD CN 00430 M01S00397.1ta +++| LDD CN+4 INSURE ERROR AND COMPLETION BIT SET 00431 M01S00398.1ta +++| LPC 3776 00432 M01S00399.1ta +++| LMC 4001 00433 M01S00400.1ta +++| STD CN+4 00434 M01S00401.1ta +++| RJM STT SET TERMINAL TABLE ADDRESS 00435 M01S00402.1ta +++| ADK VROT 00436 M01S00403.1ta +++| CWD CN 00437 M01S00404.1ta +++| LJM ITAX DROP PP 00438 M01S00405.1ta +++| ITF SPACE 4,10 00439 M01S00406.1ta +++|** ITF - ISSUE *TSEM* FUNCTION. 00440 M01S00407.1ta +++|* 00441 M01S00408.1ta +++|* ENTRY (CM - CM+4) = *TSEM* REQUEST. 00442 M01S00409.1ta +++|* 00443 M01S00410.1ta +++|* USES T1, CM - CM+4. 00444 M01S00411.1ta +++|* 00445 M01S00412.1ta +++|* MACROS DELAY, MONITOR, PAUSE. 00446 M01S00413.1ta +++| 00447 M01S00414.1ta +++| 00448 M01S00415.1ta +++| ITF SUBR ENTRY/EXIT 00449 M01S00416.1ta +++| LDD TN 00450 M01S00417.1ta +++| STD CM+4 00451 M01S00418.1ta +++| LDD MA 00452 M01S00419.1ta +++| CWD CM
| Line S00420 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00453 M02S00420.271l716 ---| ITF1 MONITOR TSEM 00454 M01S00005.271l716 +++| ITF1 LDK ZERL 00455 M01S00006.271l716 +++| CRD CM 00456 M01S00007.271l716 +++| MONITOR TSEM 00457 M01S00421.1ta +++| LDD CM+1 00458 M01S00422.1ta +++| ZJN ITFX IF *IAF* INACCESSIBLE OR ERROR 00459 M01S00423.1ta +++| LMC 7777 00460 M01S00424.1ta +++| NJN ITFX IF REQUEST COMPLETE 00461 M01S00425.1ta +++| PAUSE ST 00462 M01S00426.1ta +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY 00463 M01S00427.1ta +++| STD T1 00464 M01S00428.1ta +++| ITF2 DELAY 00465 M01S00429.1ta +++| SOD T1 00466 M01S00430.1ta +++| ZJN ITF1 IF TIME TO REISSUE REQUEST 00467 M01S00431.1ta +++| UJN ITF2 CONTINUE TO DELAY 00468 M01S00432.1ta +++| MSR SPACE 4,10 00469 M01S00433.1ta +++|** MSR - MASS STORAGE READ ERROR PROCESSOR. 00470 M01S00434.1ta +++|* 00471 M01S00435.1ta +++|* EXIT TO RRF1 TO SET UP ERROR EXIT CONDITIONS. 00472 M01S00436.1ta +++| 00473 M01S00437.1ta +++| 00474 M01S00438.1ta +++| MSR SUBR ENTRY/EXIT 00475 M01S00439.1ta +++| UJN RRF1 SET EXIT
| Line S00440 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00476 M02S00440.271l716 ---| SPACE 4,15 00477 M01S00008.271l716 +++| RRF SPACE 4,20 00478 M01S00441.1ta +++|** RRF - READ ROLLOUT FILE. 00479 M01S00442.1ta +++|* 00480 M01S00443.1ta +++|* ENTRY (A) = 0, READ SYSTEM SECTOR AND CPA SECTOR. 00481 M01S00444.1ta +++|* (A) = CPSN, READ CPA SECTOR ONLY.
| Line S00445 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00482 M02S00445.271l716 ---|* (CN - CN+1) = ROLLOUT FILE EQUIPMENT AND TRACK. 00483 M01S00009.271l716 +++|* (CN - CN+1) = ROLLOUT FILE ADDRESS. 00484 M01S00446.1ta +++|* 00485 M01S00447.1ta +++|* EXIT (A) = 0, IF NO ROLLOUT FILE OR IF READ ERROR 00486 M01S00448.1ta +++|* ENCOUNTERED.
| Line S00449 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00487 M02S00449.271l716 ---|* = 1, IF ROLLOUT FILE READ. 00488 M01S00010.271l716 +++|* (A) .NE. 0, IF ROLLOUT FILE READ WITHOUT ERROR. 00489 M01S00011.271l716 +++|* SYSTEM SECTOR READ INTO *BFMS*, IF REQUESTED. 00490 M01S00012.271l716 +++|* FIRST SECTOR OF CPA READ INTO *CBUF*. 00491 M01S00450.1ta +++|*
| Line S00451 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00492 M02S00451.271l716 ---|* USES T1 - T7. 00493 M01S00013.271l716 +++|* USES T5, T6, T7. 00494 M01S00452.1ta +++|* 00495 M01S00453.1ta +++|* CALLS RNS, RSS. 00496 M01S00454.1ta +++|*
| Line S00455 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00497 M02S00455.271l716 ---|* MACROS ENDMS, SETMS. 00498 M01S00014.271l716 +++|* MACROS ENDMS, SETMS. 00499 M01S00456.1ta +++|
| Line S00457 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00500 M02S00457.271l716 ---| 00501 M01S00015.271l716 +++| 00502 M01S00458.1ta +++| RRF SUBR ENTRY/EXIT 00503 M01S00459.1ta +++| STD T7 SET FIRST SECTOR TO READ 00504 M01S00460.1ta +++| LDD CN+1 SET TRACK 00505 M01S00461.1ta +++| STD T6 00506 M01S00462.1ta +++| ZJN RRFX IF EMPTY ROLLOUT FILE 00507 M01S00463.1ta +++| LDD CN 00508 M01S00464.1ta +++| STD T5 SET EQUIPMENT 00509 M01S00465.1ta +++| SETMS IO 00510 M01S00466.1ta +++| LDD T7 00511 M01S00467.1ta +++| NJN RRF2 IF NOT STARTING WITH SYSTEM SECTOR 00512 M01S00468.1ta +++| 00513 M01S00469.1ta +++|* READ SYSTEM SECTOR. 00514 M01S00470.1ta +++| 00515 M01S00471.1ta +++| RJM RSS READ SYSTEM SECTOR
| Line S00472 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00516 M02S00472.271l716 ---| ZJN RRF2 IF NO ERROR 00517 M01S00016.271l716 +++| NJN RRF1 IF ERROR IN SYSTEM SECTOR 00518 M01S00017.271l716 +++| LDM FNSS+4 00519 M01S00018.271l716 +++| SHN -6 00520 M01S00019.271l716 +++| LMN ROFT 00521 M01S00020.271l716 +++| ZJN RRF2 IF ROLLOUT FILE TYPE 00522 M01S00021.271l716 +++| ENDMS 00523 M01S00473.1ta +++| RRF1 LDN 0 00524 M01S00474.1ta +++| UJN RRFX RETURN, ROLLOUT FILE BAD 00525 M01S00475.1ta +++| 00526 M01S00476.1ta +++|* READ CONTROL POINT AREA SECTOR. 00527 M01S00477.1ta +++| 00528 M01S00478.1ta +++| RRF2 LDC CBUF READ FIRST SECTOR OF CPA 00529 M01S00479.1ta +++| RJM RNS READ NEXT SECTOR 00530 M01S00480.1ta +++| ENDMS 00531 M01S00481.1ta +++| LDN 1 INDICATE GOOD ROLLOUT FILE
| Line S00482 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00532 M02S00482.271l716 ---| UJN RRFX EXIT 00533 M01S00022.271l716 +++| LJM RRFX RETURN 00534 M01S00483.1ta +++| STT SPACE 4,10,10 00535 M01S00484.1ta +++|** STT - SET TERMINAL TABLE ADDRESS. 00536 M01S00485.1ta +++|* 00537 M01S00486.1ta +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS. 00538 M01S00487.1ta +++|* 00539 M01S00488.1ta +++|* EXIT (A) = TERMINAL TABLE ADDRESS 00540 M01S00489.1ta +++| 00541 M01S00490.1ta +++| 00542 M01S00491.1ta +++| STT SUBR ENTRY/EXIT 00543 M01S00492.1ta +++| LDD TT 00544 M01S00493.1ta +++| SHN 14 00545 M01S00494.1ta +++| LMD TT+1 00546 M01S00495.1ta +++| UJN STTX 00547 M01S00496.1ta +++| SPACE 4,10 00548 M01S00497.1ta +++|* COMMON DECKS. 00549 M01S00498.1ta +++| 00550 M01S00499.1ta +++| 00551 M01S00500.1ta +++|*CALL COMPC2D 00552 M01S00501.1ta +++| IFP$ SET 1 ASSEMBLE REMOTE INITIALIZATION 00553 M01S00502.1ta +++| QFT$ SET 1 ASSEMBLE QFT ADDRESSING 00554 M01S00503.1ta +++| EJT$ SET 1 ASSEMBLE EJT ADDRESSING 00555 M01S00504.1ta +++|*CALL COMPGFP
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00556 M02S00023.273l780 ---|*CALL COMPPCP 00557 M01S00505.1ta +++| MSR$ EQU 0 DEFINE PROGRAM PROCESSED DISK ERRORS 00558 M01S00506.1ta +++|*CALL COMPRNS 00559 M01S00507.1ta +++|*CALL COMPRSS 00560 M01S00508.1ta +++|*CALL COMPSPA 00561 M01S00509.1ta +++|*CALL COMPSTA 00562 M01S00510.1ta +++|*CALL COMPUPP 00563 M01S00511.1ta +++| USE OVERLAY 00564 M01S00512.1ta +++| OVL EQU *+10 00565 M01S00513.1ta +++| SPACE 4,10 00566 M01S00514.1ta +++| IFP HERE 00567 M01S00515.1ta +++| INI TITLE INITIALIZATION. 00568 M01S00516.1ta +++|** INI - INITIALIZE *1TA*. 00569 M01S00517.1ta +++| 00570 M01S00518.1ta +++| 00571 M01S00519.1ta +++| INI BSS 0 00572 M01S00520.1ta +++| RJM IFP INITIALIZE *COMPGFP*
| Line S00521 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00573 M02S00521.271l716 ---| LDD IR+2 SET COMPLETION ADDRESS 00574 M01S00024.271l716 +++| LDK NCPL GET NUMBER OF CONTROL POINTS 00575 M01S00025.271l716 +++| CRD CM 00576 M01S00026.271l716 +++| AOD CM+1 SET NUMBER OF CONTROL POINTS 00577 M01S00027.271l716 +++| STD NC
| Line S00028 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Updated by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00578 M02S00028.273l780 ---| IPCP INITIALIZE *COMPPCP* 00579 M01S00020.273l780 +++| LDK PCPP SET FWA OF PCPA-S 00580 M01S00021.273l780 +++| CRD CM 00581 M01S00022.273l780 +++| LDD CM+3 00582 M01S00023.273l780 +++| SHN 14 00583 M01S00024.273l780 +++| LMD CM+4 00584 M01S00025.273l780 +++| SBK 200B 00585 M01S00026.273l780 +++| STM CCAA+1 00586 M01S00027.273l780 +++| SHN -14 00587 M01S00028.273l780 +++| LMC ADCI 00588 M01S00029.273l780 +++| STM CCAA 00589 M01S00029.271l716 +++| LDD IR+2 SET COMPLETION ADDRESS 00590 M01S00522.1ta +++| SHN 6 00591 M01S00523.1ta +++| ADD RA 00592 M01S00524.1ta +++| SHN 6 00593 M01S00525.1ta +++| ADD IR+3 00594 M01S00526.1ta +++| STM ITAD+1 00595 M01S00527.1ta +++| SHN -14 00596 M01S00528.1ta +++| RAM ITAD 00597 M01S00529.1ta +++| ERRNG *-OVL-4 *OVL* OVERLAYS PRESET CODE 00598 M01S00530.1ta +++| LDN 0 CLEAR OVERLAY LOAD INDICATOR 00599 M01S00531.1ta +++| STM OVL-4 00600 M01S00532.1ta +++| LDD IR+2 SET POT POINTER FOR REQUEST QUEUE 00601 M01S00533.1ta +++| SHN 6 00602 M01S00534.1ta +++| MJN INI1 IF ONLY 1 FUNCTION 00603 M01S00535.1ta +++| 00604 M01S00536.1ta +++|* PROCESS MULTIPLE FUNCTION CALL. 00605 M01S00537.1ta +++| 00606 M01S00538.1ta +++| LDD IR+4 00607 M01S00539.1ta +++| STD PP 00608 M01S00540.1ta +++| STM ITAA 00609 M01S00541.1ta +++| RJM SPA SET POT ADDRESS OF FIRST POT 00610 M01S00542.1ta +++| STM ITAB+1 00611 M01S00543.1ta +++| SHN -14 00612 M01S00544.1ta +++| RAM ITAB 00613 M01S00545.1ta +++| LJM ITA1 PROCESS MULTIPLE FUNCTION CALL 00614 M01S00546.1ta +++| 00615 M01S00547.1ta +++|* PROCESS SINGLE FUNCTION CALL. 00616 M01S00548.1ta +++| 00617 M01S00549.1ta +++| INI1 LDC -4000 CLEAR FUNCTION FLAG 00618 M01S00550.1ta +++| RAD IR+2 00619 M01S00551.1ta +++| LDC LJMI SET TO DROP PP 00620 M01S00552.1ta +++| STM ITAX 00621 M01S00553.1ta +++| LDC DPP 00622 M01S00554.1ta +++| STM ITAX+1 00623 M01S00555.1ta +++| LJM ITA4 PROCESS SINGLE FUNCTION CALL. 00624 M01S00556.1ta +++| SPACE 4,10 00625 M01S00557.1ta +++|** TEST FOR OVERFLOW. 00626 M01S00558.1ta +++| 00627 M01S00559.1ta +++| 00628 M01S00560.1ta +++| OVERFLOW PPFW,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 00629 M01S00561.1ta +++| 00630 M01S00562.1ta +++| USE OVERFLOW 00631 M01S00563.1ta +++| ERRNG CBUF-* OVERFLOW INTO *CBUF* 00632 M01S00564.1ta +++| TFL OVERLAY (ADJUST TIMESHARING EXECUTIVE FIELD LENGTH.) 00633 M01S00565.1ta +++| TFL SPACE 4,10,10 00634 M01S00566.1ta +++|**** TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH. 00635 M01S00567.1ta +++|* 00636 M01S00568.1ta +++|*T, IR 24/ ,12/ 1,6/ ,18/ FL
Figure IR
00637 M01S00569.1ta +++|* 00638 M01S00570.1ta +++|* FL FIELD LENGTH REQUESTED. 00639 M01S00571.1ta +++| TFL SPACE 4,10,10 00640 M01S00572.1ta +++|** TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH. 00641 M01S00573.1ta +++|* 00642 M01S00574.1ta +++|* USES WC, CM - CM+4, IR - IR+4, T2 - T7. 00643 M01S00575.1ta +++|* 00644 M01S00576.1ta +++|* CALLS RSI. 00645 M01S00577.1ta +++| 00646 M01S00578.1ta +++| 00647 M01S00579.1ta +++| ENTRY TFL 00648 M01S00580.1ta +++| LDD IR+3 00649 M01S00581.1ta +++| SHN 14 00650 M01S00582.1ta +++| ADD IR+4 00651 M01S00583.1ta +++| ADN 77 00652 M01S00584.1ta +++| SHN -6 00653 M01S00585.1ta +++| RJM RSI REQUEST STORAGE INCREASE/DECREASE 00654 M01S00586.1ta +++| NJN TFL2 IF STORAGE INCREASE NOT AVAILABLE 00655 M01S00587.1ta +++| LDN ZERL 00656 M01S00588.1ta +++| CRD CM 00657 M01S00589.1ta +++| LDD RA RESET TOTAL POTS AVAILABLE AND CLEAR FLAG 00658 M01S00590.1ta +++| SHN 6 00659 M01S00591.1ta +++| ADN VCPL 00660 M01S00592.1ta +++| CRD T2 00661 M01S00593.1ta +++| ADN VPAL-VCPL 00662 M01S00594.1ta +++| CWD T2 00663 M01S00595.1ta +++| SBN VPAL-VCPL 00664 M01S00596.1ta +++| CWD CM INDICATE FL CHANGE COMPLETE 00665 M01S00597.1ta +++| LDD CP READ FIELD LENGTH CONTROL WORD 00666 M01S00598.1ta +++| ADN FLCW 00667 M01S00599.1ta +++| CRD CM 00668 M01S00600.1ta +++| LDD FL SET CURRENT FL AS RFL 00669 M01S00601.1ta +++| STD CM+1 00670 M01S00602.1ta +++| LDD CP 00671 M01S00603.1ta +++| ADN FLCW 00672 M01S00604.1ta +++| CWD CM 00673 M01S00605.1ta +++| UJN TFL3 EXIT 00674 M01S00606.1ta +++| 00675 M01S00607.1ta +++| TFL2 LDD IA SET PP RECALL 00676 M01S00608.1ta +++| CRD IR 00677 M01S00609.1ta +++| LDN ZERL 00678 M01S00610.1ta +++| CRD CM 00679 M01S00611.1ta +++| LDD MA 00680 M01S00612.1ta +++| CWD IR 00681 M01S00613.1ta +++| ADN 1 00682 M01S00614.1ta +++| CWD CM 00683 M01S00615.1ta +++| LDC 4000 SET TO NOT DROP PP 00684 M01S00616.1ta +++| STD CM+1 00685 M01S00617.1ta +++| MONITOR RECM 00686 M01S00618.1ta +++| TFL3 LJM ITAX EXIT 00687 M01S00619.1ta +++| SPACE 4,10 00688 M01S00620.1ta +++|* COMMON DECKS. 00689 M01S00621.1ta +++| 00690 M01S00622.1ta +++| 00691 M01S00623.1ta +++|*CALL COMPRSI 00692 M01S00624.1ta +++| SPACE 4,10 00693 M01S00625.1ta +++|** TEST FOR OVERFLOW. 00694 M01S00626.1ta +++| 00695 M01S00627.1ta +++| 00696 M01S00628.1ta +++| OVERFLOW OVL,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 00697 M01S00629.1ta +++| CIQ OVERLAY (CREATE INPUT QUEUE ENTRY.) 00698 M01S00630.1ta +++| CIQ SPACE 4,20 00699 M01S00631.1ta +++|** CIQ - CREATE INPUT QUEUE ENTRY. 00700 M01S00632.1ta +++|* 00701 M01S00633.1ta +++|*T, IR 24/ ,12/ FC,12/ TN,12/ PP
Figure IR
00702 M01S00634.1ta +++|* 00703 M01S00635.1ta +++|* FC = FUNCTION CODE. 00704 M01S00636.1ta +++|* TN = TERMINAL NUMBER. 00705 M01S00637.1ta +++|* PP = POT POINTER LOGIN PARAMETERS. 00706 M01S00638.1ta +++|* 00707 M01S00639.1ta +++|* *1TA* WILL CREATE AN INPUT FILE AND A *QFT* 00708 M01S00640.1ta +++|* ENTRY FOR A LOGIN. THE INPUT FILE WILL CONTAIN 00709 M01S00641.1ta +++|* PRELIMINARY CONTROL CARDS FOR LOGIN. PARAMETERS 00710 M01S00642.1ta +++|* ON THE CARDS ARE TAKEN FROM *VALIDUZ* FILE AND ARE 00711 M01S00643.1ta +++|* USED FOR DEFAULT VALUES. 00712 M01S00644.1ta +++|* 00713 M01S00645.1ta +++|* IF NO INPUT QUEUE ENTRY CAN BE CREATED BECAUSE THE 00714 M01S00646.1ta +++|* INFORMATION COULD NOT BE WRITTEN TO DISK (DUE TO A 00715 M01S00647.1ta +++|* MASS STORAGE ERROR), AN ERROR CODE IS RETURNED TO *IAF*. 00716 M01S00648.1ta +++| 00717 M01S00649.1ta +++| 00718 M01S00650.1ta +++| ENTRY CIQ ENTRY 00719 M01S00651.1ta +++| LDC CSS0.1 INITIALIZE INSTRUCTION MODIFICATIONS 00720 M01S00652.1ta +++| STM CSSG 00721 M01S00653.1ta +++| LDC LDNI+2 00722 M01S00654.1ta +++| STM CIQB 00723 M01S00655.1ta +++| RJM PLI PRE LOG IN USER 00724 M01S00656.1ta +++| LDN 0 CLEAR QFT ORDINAL 00725 M01S00657.1ta +++| STD QF 00726 M01S00658.1ta +++| LDC 101 CLEAR SECTOR 00727 M01S00659.1ta +++| STD T1 00728 M01S00660.1ta +++| LDC BFMS 00729 M01S00661.1ta +++| RJM CBU CLEAR BUFFER 00730 M01S00002.1ta10 +++| RJM CEF CHECK EJT FULL 00731 M01S00662.1ta +++| CIQ0 RJM CSS CREATE SYSTEM SECTOR 00732 M01S00663.1ta +++| RJM CIS CREATE INPUT SECTOR 00733 M01S00664.1ta +++| 00734 M01S00665.1ta +++|* QUEUE FILE - WRITE QFT ENTRY. 00735 M01S00666.1ta +++| 00736 M01S00667.1ta +++| LDN QFTE*5-1 SAVE QFT ENTRY 00737 M01S00668.1ta +++| STD T4 00738 M01S00669.1ta +++| CIQ1 LDM IOSS,T4 00739 M01S00670.1ta +++| STM CIQA,T4 00740 M01S00671.1ta +++| SOD T4 00741 M01S00672.1ta +++| PJN CIQ1 IF MORE TO MOVE 00742 M01S00673.1ta +++| RJM WDI WRITE DISK INFORMATION 00743 M01S00674.1ta +++| PJN CIQ2 IF NO MASS STORAGE ERROR ENCOUNTERED 00744 M01S00675.1ta +++| 00745 M01S00676.1ta +++|* MASS STORAGE ERROR ENCOUNTERED - RELEASE TRACKS AND RETRY. 00746 M01S00677.1ta +++| 00747 M01S00678.1ta +++| LDN ZERL DROP TRACKS 00748 M01S00679.1ta +++| CRD CM 00749 M01S00680.1ta +++| LDD T5 EST ORDINAL TO DROP 00750 M01S00681.1ta +++| STD CM+1 00751 M01S00682.1ta +++| LDD T6 TRACK TO DROP 00752 M01S00683.1ta +++| STD CM+2 00753 M01S00684.1ta +++| MONITOR DTKM 00754 M01S00685.1ta +++| SOM CIQB 00755 M01S00686.1ta +++| CIQB LDN 2 00756 M01S00687.1ta +++|* LDN 1 (AFTER FIRST TRY FAILED) 00757 M01S00688.1ta +++|* LDN 0 (AFTER SECOND TRY FAILED) 00758 M01S00689.1ta +++| NJP CIQ0 IF RETRY ATTEMPT NEEDED 00759 M01S00690.1ta +++| 00760 M01S00691.1ta +++|* RETURN QFT ENTRY TO POOL. RETURN MASS STORAGE ERROR CODE 00761 M01S00692.1ta +++|* CODE TO *IAFEX*. 00762 M01S00693.1ta +++| 00763 M01S00694.1ta +++| LDD QF QFT ORDINAL 00764 M01S00695.1ta +++| STD CM+1 00765 M01S00696.1ta +++| LDN PQFT ENTRY IS IN QFT 00766 M01S00697.1ta +++| STD CM+2 00767 M01S00698.1ta +++| MONITOR MTRM 00768 M01S00699.1ta +++| LDN 20 MASS STORAGE ERROR ENCOUNTERED 00769 M01S00700.1ta +++| STD CN+4 00770 M01S00701.1ta +++| RJM SPA 00771 M01S00702.1ta +++| ADN VUTA 00772 M01S00703.1ta +++| CWD CN 00773 M01S00704.1ta +++| RJM ERX ERROR EXIT (EXIT TO *ITAX*) 00774 M01S00705.1ta +++| 00775 M01S00706.1ta +++| CIQ2 LDN QFTE 00776 M01S00707.1ta +++| STD T4 00777 M01S00708.1ta +++| SFA QFT,QF 00778 M01S00709.1ta +++| CWM CIQA,T4 WRITE QFT ENTRY 00779 M01S00710.1ta +++| 00780 M01S00711.1ta +++|* ISSUE *ABLQ* ACCOUNTING MESSAGE. 00781 M01S00712.1ta +++|
| Line S00713 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00782 M02S00713.ns2663 ---| LDC 3RBLQ ISSUE *ABLQ* MESSAGE
| Line S00714 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00783 M02S00714.ns2663 ---| RJM IAM ISSUE ACCOUNT MESSAGE 00784 M01S00007.ns2663 +++| LDC 2RAB 00785 M01S00008.ns2663 +++| STM CBUF-2 00786 M01S00009.ns2663 +++| LDC 2RLQ 00787 M01S00010.ns2663 +++| STM CBUF-1 00788 M01S00011.ns2663 +++| EXECUTE 0QM,CBUF ISSUE ACCOUNT MESSAGE 00789 M01S00715.1ta +++| 00790 M01S00716.1ta +++|* REQUEST SCHEDULER. 00791 M01S00717.1ta +++| 00792 M01S00718.1ta +++| LDN ZERL CLEAR PARAMETERS 00793 M01S00719.1ta +++| CRD CM 00794 M01S00720.1ta +++| AOD CM+2 SET QFT SCHEDULING OPTION 00795 M01S00721.1ta +++| MONITOR RSJM 00796 M01S00722.1ta +++| LJM ITAX TERMINATE 00797 M01S00723.1ta +++| 00798 M01S00724.1ta +++| CIQA BSS QFTE*5 QFT ENTRY BUFFER 00799 M01S00725.1ta +++| CBU SPACE 4,10 00800 M01S00726.1ta +++|** CBU - CLEAR BUFFER. 00801 M01S00727.1ta +++|* 00802 M01S00728.1ta +++|* ENTRY (A) = FWA OF AREA TO CLEAR. 00803 M01S00729.1ta +++|* (T1) = NUMBER OF CM WORDS TO CLEAR. 00804 M01S00730.1ta +++|* 00805 M01S00731.1ta +++|* EXIT BUFFER CLEARED. 00806 M01S00732.1ta +++|* 00807 M01S00733.1ta +++|* USES T1, T2. 00808 M01S00734.1ta +++| 00809 M01S00735.1ta +++| 00810 M01S00736.1ta +++| CBU SUBR ENTRY/EXIT 00811 M01S00737.1ta +++| STM CBUA SAVE ADDRESS TO START CLEARING 00812 M01S00738.1ta +++| LDN 7 00813 M01S00739.1ta +++| STD T2 00814 M01S00740.1ta +++| LDD OA CLEAR OUTPUT REGISTER AND MESSAGE BUFFER 00815 M01S00741.1ta +++| CWM CBUB,T2 00816 M01S00742.1ta +++| CBU1 LCN 7 00817 M01S00743.1ta +++| RAD T1 00818 M01S00744.1ta +++| PJN CBU2 IF SEVEN OR MORE WORDS LEFT TO CLEAR 00819 M01S00745.1ta +++| RAD T2 ADJUST WORD COUNT 00820 M01S00746.1ta +++| CBU2 LDD OA 00821 M01S00747.1ta +++| CRM *,T2 00822 M01S00748.1ta +++| CBUA EQU *-1 00823 M01S00749.1ta +++| LDN 7*5 ADVANCE BUFFER ADDRESS 00824 M01S00750.1ta +++| RAM CBUA 00825 M01S00751.1ta +++| LDD T1 00826 M01S00752.1ta +++| ZJN CBUX IF COMPLETE 00827 M01S00753.1ta +++| SHN 21-13 00828 M01S00754.1ta +++| PJN CBU1 IF NOT COMPLETE 00829 M01S00755.1ta +++| UJN CBUX RETURN 00830 M01S00756.1ta +++| 00831 M01S00757.1ta +++| CBUB BSSZ 7*5 00832 M01S00003.1ta10 +++| CEF SPACE 4,10 00833 M01S00004.1ta10 +++|** CEF - CHECK EJT FULL. 00834 M01S00005.1ta10 +++|* 00835 M01S00006.1ta10 +++|* EXIT TO *SEC* IF NUMBER OF AVAILABLE ENTRIES IN THE EJT 00836 M01S00007.1ta10 +++|* ARE .LT. *EJTT*. 00837 M01S00008.1ta10 +++|* 00838 M01S00009.1ta10 +++|* USES CM - CM+4. 00839 M01S00010.1ta10 +++| 00840 M01S00011.1ta10 +++| 00841 M01S00012.1ta10 +++| CEF SUBR ENTRY/EXIT 00842 M01S00013.1ta10 +++| LDK EJTP 00843 M01S00014.1ta10 +++| CRD CM 00844 M01S00015.1ta10 +++| LDD CM+3 00845 M01S00016.1ta10 +++| SBN EJTT EJT THRESHOLD VALUE 00846 M01S00017.1ta10 +++| PJN CEFX IF ENOUGH ENTRIES IN TABLE 00847 M01S00018.1ta10 +++| LDN 40 *SYSTEM FULL* 00848 M01S00019.1ta10 +++| RJM SEC SET ERROR CODE (NO RETURN) 00849 M01S00758.1ta +++| CIS SPACE 4,10 00850 M01S00759.1ta +++|** CIS - CREATE INPUT SECTOR. 00851 M01S00760.1ta +++|* 00852 M01S00761.1ta +++|* ENTRY SYSTEM SECTOR IN BFMS. 00853 M01S00762.1ta +++|* 00854 M01S00763.1ta +++|* EXIT INPUT CARDS CREATED IN FBUF. 00855 M01S00764.1ta +++|* (WC) = CM WORD COUNT IN SECTOR 00856 M01S00765.1ta +++|* 00857 M01S00766.1ta +++|* USES T1, T3, WC. 00858 M01S00767.1ta +++|* 00859 M01S00768.1ta +++|* CALLS ACS, ANS, CBF, DV5, SEL. 00860 M01S00769.1ta +++| 00861 M01S00770.1ta +++| 00862 M01S00771.1ta +++| CIS SUBR ENTRY/EXIT 00863 M01S00772.1ta +++| LDC 101 CLEAR SECTOR 00864 M01S00773.1ta +++| STD T1 00865 M01S00774.1ta +++| LDC FBUF 00866 M01S00775.1ta +++| RJM CBU CLEAR BUFFER 00867 M01S00776.1ta +++| LDC FBUF+2 SET BUFFER ADDRESS 00868 M01S00777.1ta +++| STD T1 00869 M01S00778.1ta +++| LDC JNSS SET UJN HASH 00870 M01S00779.1ta +++| RJM ACS 00871 M01S00780.1ta +++| LDC CISG SET PERIOD 00872 M01S00781.1ta +++| RJM ACS 00873 M01S00782.1ta +++| RJM SEL SET EOL 00874 M01S00783.1ta +++| LDC CISH SET USER CARD 00875 M01S00784.1ta +++| RJM ACS 00876 M01S00785.1ta +++| LDC CISB SET USERNAME 00877 M01S00786.1ta +++| RJM ACS 00878 M01S00787.1ta +++| LDC CISF SET COMMA 00879 M01S00788.1ta +++| RJM ACS 00880 M01S00789.1ta +++| LDC CISF SET COMMA 00881 M01S00790.1ta +++| RJM ACS 00882 M01S00791.1ta +++| LDC CISD SET FAMILY NAME 00883 M01S00792.1ta +++| RJM ACS 00884 M01S00793.1ta +++| LDC CISG SET PERIOD 00885 M01S00794.1ta +++| RJM ACS 00886 M01S00795.1ta +++| RJM SEL SET EOL 00887 M01S00796.1ta +++| STM CISA STORE PLACE TO CONTINUE ASSEMBLY 00888 M01S00797.1ta +++| LDN CISEL 00889 M01S00798.1ta +++| RJM DV5 WORD COUNT TO TRANSFER 00890 M01S00799.1ta +++| STD T2 00891 M01S00800.1ta +++| LDD MA 00892 M01S00801.1ta +++| CWM CISE,T2 00893 M01S00802.1ta +++| SBD T2 00894 M01S00803.1ta +++| CRM *,T2 00895 M01S00804.1ta +++| CISA EQU *-1 00896 M01S00805.1ta +++| LDD T1 00897 M01S00806.1ta +++| ADN CISEL 00898 M01S00807.1ta +++| ADC -FBUF+2 00899 M01S00808.1ta +++| RJM DV5 DIVIDE BY 5 00900 M01S00809.1ta +++| STD WC 00901 M01S00810.1ta +++| LJM CISX RETURN 00902 M01S00811.1ta +++| 00903 M01S00812.1ta +++| CISB BSS 5 USERNAME 00904 M01S00813.1ta +++| CISC BSS 5 PASSWORD 00905 M01S00814.1ta +++| CISD BSS 5 FAMILY NAME 00906 M01S00815.1ta +++| CISE VFD 60/10L$RECOVER,O 00907 M01S00816.1ta +++| VFD 60/4LP=T. 00908 M01S00817.1ta +++| CISEL EQU *-CISE 00909 M01S00818.1ta +++| CISF CON 1L, COMMA 00910 M01S00819.1ta +++| CISG CON 1L. PERIOD 00911 M01S00820.1ta +++| CISH VFD 36/5LUSER, 00912 M01S00821.1ta +++| CSS SPACE 4,30 00913 M01S00822.1ta +++|** CSS - CREATE SYSTEM SECTOR. 00914 M01S00823.1ta +++|* 00915 M01S00824.1ta +++|* CREATE SYSTEM SECTOR FOR INPUT FILE. 00916 M01S00825.1ta +++|* CREATE AN *QFT* ENTRY FOR THE NEW FILE. 00917 M01S00826.1ta +++|* 00918 M01S00827.1ta +++|* ENTRY (CISB) = CREATION USER NUMBER. 00919 M01S00828.1ta +++|* (CISD) = CREATE FAMILY NAME. 00920 M01S00829.1ta +++|* (ABUF = ABUF+15) = VALIDATION ACCOUNT BLOCK. 00921 M01S00830.1ta +++|* (IR+3) = TERMINAL NUMBER. 00922 M01S00831.1ta +++|* (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB. 00923 M01S00832.1ta +++|* (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB. 00924 M01S00833.1ta +++|* (CSSE) = SERVICE CLASS. 00925 M01S00834.1ta +++|* (QF) = 0, IF INITIAL *CSS* CALL (NO QFT ENTRY 00926 M01S00835.1ta +++|* ASSIGNED). 00927 M01S00836.1ta +++|* = QFT ORDINAL OF ASSIGNED ENTRY, IF INITIAL 00928 M01S00837.1ta +++|* CALL TO *CSS* RESERVED AN ENTRY BUT THE 00929 M01S00838.1ta +++|* SYSTEM SECTOR COULD NOT BE WRITTEN DUE TO 00930 M01S00839.1ta +++|* AN I/O ERROR. 00931 M01S00840.1ta +++|* 00932 M01S00841.1ta +++|* EXIT (T5) = EQUIPMENT. 00933 M01S00842.1ta +++|* (T6) = TRACK. 00934 M01S00843.1ta +++|* (T7) = SECTOR. 00935 M01S00844.1ta +++|* (QF) = QFT ORDINAL OF ASSIGNED ENTRY. 00936 M01S00845.1ta +++|* *QFT* ENTRY IN IOSS. 00937 M01S00846.1ta +++|* SYSTEM SECTOR CREATED IN BFMS. 00938 M01S00847.1ta +++|* CORRECT EOI SET IN TRT. 00939 M01S00848.1ta +++|*
| Line S00849 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00940 M02S00849.1ta12 ---|* USES CM - CM+4, CN, PP, T1 - T7. 00941 M01S00001.1ta12 +++|* USES CM - CM+4, FN - FN+4, QF, T1, T2, T5, T6. 00942 M01S00850.1ta +++|*
| Line S00851 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00943 M02S00851.1ta12 ---|* CALLS CBU, CMI, CTE, ECI, GBN, RFI, STT, TLI. 00944 M01S00002.1ta12 +++|* CALLS CTE, GNB, RFI, RJC, SEC, STT, TLI. 00945 M01S00852.1ta +++|* 00946 M01S00853.1ta +++|* MACROS MONITOR. 00947 M01S00854.1ta +++| 00948 M01S00855.1ta +++| 00949 M01S00856.1ta +++| CSS SUBR ENTRY/EXIT 00950 M01S00857.1ta +++| LDN ZERL CLEAR PARAMETERS 00951 M01S00858.1ta +++| CRD CM 00952 M01S00859.1ta +++| LDN INPS SELECT INPUT DEVICE 00953 M01S00860.1ta +++| STD CM+2 00954 M01S00861.1ta +++| LDM CSSC SELECT ON LOWER ACCESS LEVEL OF JOB 00955 M01S00862.1ta +++| ADN 40 00956 M01S00863.1ta +++| SHN 6 00957 M01S00864.1ta +++| STD CM+3 00958 M01S00865.1ta +++| LDN 3 SET NUMBER OF SECTORS 00959 M01S00866.1ta +++| STD CM+4 00960 M01S00867.1ta +++| MONITOR RTCM ASSIGN MASS STORAGE SPACE 00961 M01S00868.1ta +++| LDD CM+1 SET EQUIPMENT 00962 M01S00869.1ta +++| STD T5 00963 M01S00870.1ta +++| LDD CM+4 SET TRACK 00964 M01S00871.1ta +++| STD T6 00965 M01S00872.1ta +++| NJN CSS0 IF TRACK ASSIGNED 00966 M01S00873.1ta +++| LDD QF QFT ORDINAL 00967 M01S00874.1ta +++| ZJN CSS1 IF NO QFT ENTRY RESERVED 00968 M01S00875.1ta +++| STD CM+1 00969 M01S00876.1ta +++| LDN PQFT ENTRY IS IN QFT 00970 M01S00877.1ta +++| STD CM+2 00971 M01S00878.1ta +++| MONITOR MTRM RETURN QFT ENTRY TO POOL 00972 M01S00879.1ta +++|* LDN 0 00973 M01S00880.1ta +++| UJN CSS1 SET ERROR STATUS 00974 M01S00881.1ta +++| 00975 M01S00882.1ta +++| CSS0 LJM CSS0.1 REQUEST QFT ENTRY 00976 M01S00883.1ta +++|* LJM CSS2.1 (QFT ENTRY PREVIOUSLY REQUESTED/ASSIGNED) 00977 M01S00884.1ta +++| CSSG EQU *-1 00978 M01S00885.1ta +++| 00979 M01S00886.1ta +++|* REQUEST *QFT* ENTRY. 00980 M01S00887.1ta +++| 00981 M01S00888.1ta +++| CSS0.1 LDN ZERL CLEAR FIRST WORD VALUE 00982 M01S00889.1ta +++| CRD CM+3 00983 M01S00890.1ta +++| LDN 7 00984 M01S00891.1ta +++| STD CM+7 SET INTERLOCK BIT 00985 M01S00892.1ta +++| LDN PQFT GET QFT ENTRY WITH JSN 00986 M01S00893.1ta +++| RJM CTE CREATE TABLE ENTRY 00987 M01S00894.1ta +++| NJN CSS2 IF QFT NOT FULL 00988 M01S00895.1ta +++| LDN ZERL CLEAR PARAMETERS 00989 M01S00896.1ta +++| CRD CM 00990 M01S00897.1ta +++| LDD T5 SET EQUIPMENT AND TRACK TO DROP 00991 M01S00898.1ta +++| STD CM+1 00992 M01S00899.1ta +++| LDD T6 00993 M01S00900.1ta +++| STD CM+2 00994 M01S00901.1ta +++| MONITOR DTKM DROP TRACKS 00995 M01S00902.1ta +++| LDN 40 FLAG *SYSTEM FULL* ERROR
| Line S00903 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 00996 M02S00903.1ta10 ---| CSS1 LJM PLI7 SET ERROR STATUS 00997 M01S00020.1ta10 +++| CSS1 RJM SEC SET ERROR CODE (NO RETURN) 00998 M01S00904.1ta +++| 00999 M01S00905.1ta +++|* FORMAT SYSTEM SECTOR AND *QFT* ENTRY. 01000 M01S00906.1ta +++| 01001 M01S00907.1ta +++| CSS2 CRM IOSS,ON READ INTO SYSTEM SECTOR QFT 01002 M01S00908.1ta +++| SBN 1
| Line S00909 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01003 M02S00909.ns2663 ---| CRM CJSS,ON
| Line S00910 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01004 M02S00910.ns2663 ---| SBN 1 01005 M01S00911.1ta +++| CRM OJSS,ON 01006 M01S00912.1ta +++| LDC CSS2.1 BYPASS FORMATTING ON SUBSEQUENT CALLS 01007 M01S00913.1ta +++| STM CSSG 01008 M01S00914.1ta +++| LDD CM+1 SAVE QFT ORDINAL 01009 M01S00915.1ta +++| STD QF 01010 M01S00916.1ta +++| STM GQSS 01011 M01S00012.ns2663 +++| LDD CP SET CREATING JOB JSN 01012 M01S00013.ns2663 +++| ADK TFSW 01013 M01S00014.ns2663 +++| CRD CM 01014 M01S00015.ns2663 +++| SFA EJT,CM 01015 M01S00016.ns2663 +++| ADK JSNE 01016 M01S00017.ns2663 +++| CRM CJSS,ON 01017 M01S00917.1ta +++| LDN 0 01018 M01S00018.ns2663 +++| STM CJSS+2 01019 M01S00918.1ta +++| STM PRSS 01020 M01S00919.1ta +++| RJM STT GET TERMINAL TABLE ADDRESS 01021 M01S00920.1ta +++| ADK VFST 01022 M01S00921.1ta +++| CRD CM 01023 M01S00922.1ta +++| LDM IOSS ADD JSN TO *VFST* 01024 M01S00923.1ta +++| STD CM 01025 M01S00924.1ta +++| LDM IOSS+1 01026 M01S00925.1ta +++| STD CM+1 01027 M01S00926.1ta +++| RJM STT 01028 M01S00927.1ta +++| ADK VFST 01029 M01S00928.1ta +++| CWD CM 01030 M01S00929.1ta +++| CSS2.1 LDK RTCL SET ENTRY TIME 01031 M01S00930.1ta +++| CRD CM 01032 M01S00931.1ta +++| LDD CM 01033 M01S00932.1ta +++| STM IOSS+ENTQ*5+3 01034 M01S00933.1ta +++| LDD CM+1 01035 M01S00934.1ta +++| STM IOSS+ENTQ*5+4 01036 M01S00935.1ta +++| LDD T6 SET TRACK 01037 M01S00936.1ta +++| STM IOSS+ENTQ*5+1 01038 M01S00937.1ta +++| LDD T5 SET EQUIPMENT 01039 M01S00938.1ta +++| STM IOSS+ENTQ*5 01040 M01S00939.1ta +++| LDC NOQF*100 SET QUEUE FILE TYPE 01041 M01S00940.1ta +++| STM IOSS+JSNQ*5+4 01042 M01S00941.1ta +++| LDC ** 01043 M01S00942.1ta +++| CSSE EQU *-1 (SERVICE CLASS TO ASSIGN) 01044 M01S00943.1ta +++| SHN 6 01045 M01S00944.1ta +++| ADN IAOT SET ORIGIN TYPE 01046 M01S00945.1ta +++| STM IOSS+SCLQ*5 01047 M01S00946.1ta +++| LDN PDTL SET PACKED DATE AND TIME 01048 M01S00947.1ta +++| CRD CM 01049 M01S00948.1ta +++| LDD CM+2 01050 M01S00949.1ta +++| STM CDSS+2 01051 M01S00950.1ta +++| LDD CM+3 01052 M01S00951.1ta +++| STM CDSS+3 01053 M01S00952.1ta +++| LDD CM+4 01054 M01S00953.1ta +++| STM CDSS+4 01055 M01S00954.1ta +++| LDN IPRL SET DEFAULT KEYPUNCH MODE 01056 M01S00955.1ta +++| CRD CM 01057 M01S00956.1ta +++| LDD CM+2 01058 M01S00957.1ta +++| SHN -13 01059 M01S00958.1ta +++| STM JFSS 01060 M01S00959.1ta +++| LDN 3 SET FLAGS - FILE IN ACTIVE QUEUE 01061 M01S00960.1ta +++| STM FGSS 01062 M01S00961.1ta +++| LDC 2RIN SET DISPOSITION CODE 01063 M01S00962.1ta +++| STM DCSS 01064 M01S00963.1ta +++| LDC MMFL SET MACHINE ID 01065 M01S00964.1ta +++| CRD CM 01066 M01S00965.1ta +++| LDD CM 01067 M01S00966.1ta +++| STM RMSS 01068 M01S00967.1ta +++| STM CMSS 01069 M01S00968.1ta +++| LDN 3 SET FILE LENGTH IN SECTORS 01070 M01S00969.1ta +++| STM FLSS+1 01071 M01S00970.1ta +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH 01072 M01S00971.1ta +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY 01073 M01S00972.1ta +++| LDD MA SET CREATION USER NUMBER 01074 M01S00973.1ta +++| CWM ABUF+ACCN*5,ON 01075 M01S00974.1ta +++| CWM CISD,ON SET CREATION FAMILY 01076 M01S00975.1ta +++| SBN 2 01077 M01S00976.1ta +++| CRM ACSS,ON 01078 M01S00977.1ta +++| CRM FMSS,ON 01079 M01S00978.1ta +++| SBN 2 01080 M01S00979.1ta +++| CRM OASS,ON 01081 M01S00980.1ta +++| CRM FOSS,ON 01082 M01S00981.1ta +++| LDN 0 CLEAR CONTROL POINT AND SLID 01083 M01S00982.1ta +++| STM CPSS 01084 M01S00983.1ta +++| STM SLSS+1 01085 M01S00984.1ta +++| LDM SLSS 01086 M01S00985.1ta +++| SCN 77 01087 M01S00986.1ta +++| STM SLSS 01088 M01S00987.1ta +++| LDD PA GET TERMINAL NAME FROM POT 01089 M01S00988.1ta +++| SHN 14 01090 M01S00989.1ta +++| ADD PA+1 01091 M01S00990.1ta +++| ADN VTRY 01092 M01S00991.1ta +++| CRM TNSS,ON 01093 M01S00992.1ta +++| LDD IR+3 SET TERMINAL NUMBER 01094 M01S00993.1ta +++| STM TRSS 01095 M01S00001.261l700 +++| LDM ABUF+ATIS*5+1 SET INITIAL INTERACTIVE SUBSYSTEM 01096 M01S00002.261l700 +++| SHN -6 01097 M01S00003.261l700 +++| LPN 37 01098 M01S00004.261l700 +++| LMM ISSS 01099 M01S00005.261l700 +++| LPN 77 01100 M01S00006.261l700 +++| LMM ISSS 01101 M01S00007.261l700 +++| STM ISSS 01102 M01S00008.261l700 +++| LDM ABUF+APXI*5+3 SET INTERACTIVE PW EXPIRATION DATE 01103 M01S00009.261l700 +++| LPN 77 01104 M01S00010.261l700 +++| STM PESS 01105 M01S00011.261l700 +++| LDM ABUF+APXI*5+4 01106 M01S00012.261l700 +++| STM PESS+1 01107 M01S00994.1ta +++| 01108 M01S00995.1ta +++|* MOVE FIRST HALF OF VALIDATION ACCOUNT BLOCK TO SYSTEM SECTOR. 01109 M01S00996.1ta +++| 01110 M01S00997.1ta +++| LDN 0 01111 M01S00998.1ta +++| STD T1 01112 M01S00999.1ta +++| CSS3 LDM ABUF,T1 01113 M01S01000.1ta +++| STM VASS,T1 01114 M01S01001.1ta +++| AOD T1 01115 M01S01002.1ta +++| LMC ABSS*5 01116 M01S01003.1ta +++| NJN CSS3 IF NOT LAST BYTE
| Line S01004 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01117 M02S01004.261l700 ---|
| Line S01005 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01118 M02S01005.261l700 ---|* SET INITIAL INTERACTIVE SUBSYSTEM.
| Line S01006 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01119 M02S01006.261l700 ---|
| Line S01007 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01120 M02S01007.261l700 ---| LDM ABUF+ATIS*5+1 GET INITIAL SUBSYSTEM
| Line S01008 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01121 M02S01008.261l700 ---| SHN -6
| Line S01009 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01122 M02S01009.261l700 ---| LPN 37
| Line S01010 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01123 M02S01010.261l700 ---| STM ISSS 01124 M01S01011.1ta +++| 01125 M01S01012.1ta +++|* SET USER INDEX/FAMILY ORDINAL/ACCESS LEVEL LIMITS INTO QFT. 01126 M01S01013.1ta +++| 01127 M01S01014.1ta +++| LDM ABUF+AUIN*5+3 GET USER INDEX 01128 M01S01015.1ta +++| LPN 77 01129 M01S01016.1ta +++| STM IOSS+JSNQ*5+2 01130 M01S01017.1ta +++| STD T1 FOR BANNER NAME 01131 M01S01018.1ta +++| LDM ABUF+AUIN*5+4 01132 M01S01019.1ta +++| STM IOSS+JSNQ*5+3 01133 M01S01020.1ta +++| STD T2 FOR BANNER NAME 01134 M01S01021.1ta +++| LDC * SAVE FO 01135 M01S01022.1ta +++| CSSA EQU *-1 FAMILY ORDINAL - SET BY *PLI* 01136 M01S01023.1ta +++| SHN 6 POSITION FO 01137 M01S01024.1ta +++| RAM IOSS+JSNQ*5+2 01138 M01S01025.1ta +++| LDM IOSS+INSQ*5+3 SET ACCESS LEVEL LIMITS 01139 M01S01026.1ta +++| SHN -11 01140 M01S01027.1ta +++| SHN 3 01141 M01S01028.1ta +++| LMC * 01142 M01S01029.1ta +++| CSSF EQU *-1 (LOWER ACCESS LEVEL LIMIT) 01143 M01S01030.1ta +++| SHN 3 01144 M01S01031.1ta +++| LMC * 01145 M01S01032.1ta +++| CSSC EQU *-1 (INITIAL JOB ACCESS LEVEL) 01146 M01S01033.1ta +++| SHN 3 01147 M01S01034.1ta +++| LMC * 01148 M01S01035.1ta +++| CSSD EQU *-1 (UPPER ACCESS LEVEL LIMIT) 01149 M01S01036.1ta +++| STM IOSS+INSQ*5+3 01150 M01S01037.1ta +++| 01151 M01S01038.1ta +++|* GENERATE UJN FOR JOB. 01152 M01S01039.1ta +++| 01153 M01S01040.1ta +++| RJM GBN GENERATE BANNER NAME 01154 M01S01041.1ta +++| LDN ZERL 01155 M01S01042.1ta +++| CRD CM 01156 M01S01043.1ta +++| LDD T1 01157 M01S01044.1ta +++| STD CM 01158 M01S01045.1ta +++| LDD T2 01159 M01S01046.1ta +++| STD CM+1 01160 M01S01047.1ta +++| LDD MA 01161 M01S01048.1ta +++| CWD CM 01162 M01S01049.1ta +++| CRM JNSS,ON 01163 M01S01050.1ta +++|
| Line S01051 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01164 M02S01051.1ta12 ---|* SET TIME LIMIT, CM LIMIT, ECS LIMIT. 01165 M01S00003.1ta12 +++|* SET TIME LIMIT AND CM AND EM SERVICE LIMITS. 01166 M01S01052.1ta +++|
| Line S01053 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01167 M02S01053.1ta12 ---| LDM VASS+AHCM*5+3 GET MAX CM FL
| Line S01054 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01168 M02S01054.1ta12 ---| RJM CMI COMPUTE CM FL 01169 M01S00004.1ta12 +++| LCN 0 PRESET LIMITS 01170 M01S01055.1ta +++| STM JCSS
| Line S01056 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01171 M02S01056.1ta12 ---| LDM VASS+AHEC*5+3 GET MAX EC FL
| Line S01057 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01172 M02S01057.1ta12 ---| RJM ECI COMPUTE EC FL 01173 M01S01058.1ta +++| STM JESS
| Line S01059 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01174 M02S01059.1ta12 ---| LDM VASS+AHTL*5+2 GET TIME LIMIT 01175 M01S00005.1ta12 +++| LDM CSSE GET JCB ADDRESS 01176 M01S00006.1ta12 +++| RJM RJC 01177 M01S00007.1ta12 +++| ZJN CSS4 IF JCB NOT DEFINED 01178 M01S00008.1ta12 +++| ADN MCMT GET CM LIMIT 01179 M01S00009.1ta12 +++| CRD CM 01180 M01S00010.1ta12 +++| ADN MECT-MCMT GET EM LIMIT 01181 M01S00011.1ta12 +++| CRD FN 01182 M01S00012.1ta12 +++| LDD CM+2 SET LIMITS IN SYSTEM SECTOR 01183 M01S00013.1ta12 +++| STM JCSS 01184 M01S00014.1ta12 +++| LDD FN+2 01185 M01S00015.1ta12 +++| STM JESS 01186 M01S00016.1ta12 +++| CSS4 LDM VASS+AHTL*5+2 GET TIME LIMIT 01187 M01S01060.1ta +++| RJM TLI COMPUTE TL/10B 01188 M01S01061.1ta +++| SHN 3 01189 M01S01062.1ta +++| STM JTSS+1 01190 M01S01063.1ta +++| SHN -14 01191 M01S01064.1ta +++| STM JTSS 01192 M01S01065.1ta +++| 01193 M01S01066.1ta +++|* SET LOCAL FNT WORD. 01194 M01S01067.1ta +++| 01195 M01S01068.1ta +++| LDD MA 01196 M01S01069.1ta +++| CWM CSSB,ON 01197 M01S01070.1ta +++| SBN 1 01198 M01S01071.1ta +++| CRM FNSS,ON 01199 M01S01072.1ta +++| LJM CSSX RETURN 01200 M01S01073.1ta +++| 01201 M01S01074.1ta +++| CSSB VFD 42/0LINPUT,6/0,6/INFT,6/0 01202 M01S01075.1ta +++| PLI SPACE 4,25 01203 M01S01076.1ta +++|** PLI - PRE LOG IN USER. 01204 M01S01077.1ta +++|* 01205 M01S01078.1ta +++|* VALIDATES USER NUMBER AND PASSWORD. 01206 M01S01079.1ta +++|* 01207 M01S01080.1ta +++|* ENTRY (IR+4) = POT POINTER TO POT WITH 01208 M01S01081.1ta +++|* LOGIN INFORMATION. 01209 M01S01082.1ta +++|* 01210 M01S01083.1ta +++|* EXIT IF VALID, USER INDEX AND ACCOUNT INFORMATION 01211 M01S01084.1ta +++|* RETURNED TO TERMINAL TABLE AND USER VALIDATION FIELDS 01212 M01S01085.1ta +++|* PRESET IN CONTROL POINT AREA. 01213 M01S01086.1ta +++|* (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB. 01214 M01S01087.1ta +++|* (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB. 01215 M01S01088.1ta +++|* (CSSE) = SERVICE CLASS TO BE ASSIGNED. 01216 M01S01089.1ta +++|* IF NOT VALID OR IF *0AV* ENCOUNTERED AN INACCESSIBLE 01217 M01S01090.1ta +++|* DEVICE OR A MASS STORAGE ERROR, AN ERROR CODE IS 01218 M01S01091.1ta +++|* RETURNED. 01219 M01S01092.1ta +++|* 01220 M01S01093.1ta +++|* USES OT, PP, T1, T2, T3, T5, T7, CM - CM+4, CN - CN+4, 01221 M01S01094.1ta +++|* DF - DF+4, FN - FN+4. 01222 M01S01095.1ta +++|* 01223 M01S01096.1ta +++|* CALLS ERX, GFM, GFO, ITF, SPA, VPW, VSP, *0AV*. 01224 M01S01097.1ta +++|* 01225 M01S01098.1ta +++|* MACROS EXECUTE, MONITOR. 01226 M01S01099.1ta +++| 01227 M01S01100.1ta +++| 01228 M01S01101.1ta +++| PLI SUBR ENTRY/EXIT 01229 M01S01102.1ta +++| LDD IR+4 POT POINTER WITH LOGIN INFORMATION 01230 M01S01103.1ta +++| STD PP 01231 M01S01104.1ta +++| RJM SPA SET POT ADDRESS 01232 M01S01105.1ta +++| ADN VFNA SET FAMILY NAME FOR 0AV 01233 M01S01106.1ta +++| CRD CN 01234 M01S01107.1ta +++| CRM CISD,ON 01235 M01S01108.1ta +++| ADK VUNA-VFNA-1 GET USER NAME 01236 M01S01109.1ta +++| CRD DF 01237 M01S01110.1ta +++| CRM CISB,ON 01238 M01S01111.1ta +++| LDD CN 01239 M01S01112.1ta +++| NJN PLI2 IF FAMILY NAME SUPPLIED 01240 M01S01113.1ta +++| LDD CN+4 01241 M01S01114.1ta +++| NJN PLI1 IF FAMILY ORDINAL SUPPLIED 01242 M01S01115.1ta +++| LDN 1 SET DEFAULT FAMILY ORDINAL 01243 M01S01116.1ta +++| PLI1 RJM GFM GET FAMILY NAME 01244 M01S01117.1ta +++| LDD FN+3 01245 M01S01118.1ta +++| SCN 77 01246 M01S01119.1ta +++| STD FN+3 01247 M01S01120.1ta +++| LDN 0 01248 M01S01121.1ta +++| STD FN+4 01249 M01S01122.1ta +++| LDD MA 01250 M01S01123.1ta +++| CWD FN 01251 M01S01124.1ta +++| CRD CN 01252 M01S01125.1ta +++| CRM CISD,ON 01253 M01S01126.1ta +++| PLI2 LDD DF+3 CLEAR UI FIELD 01254 M01S01127.1ta +++| SCN 77 01255 M01S01128.1ta +++| STD DF+3 01256 M01S01129.1ta +++| STM CISB+3 01257 M01S01130.1ta +++| LDN 0 01258 M01S01131.1ta +++| STD DF+4 01259 M01S01132.1ta +++| STD CN+4 01260 M01S01133.1ta +++| STM CISB+4 01261 M01S01134.1ta +++| EXECUTE 0AV,CBUF
| Line S01135 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01262 M02S01135.1ta11 ---| PJN PLI2.1 IF NO MASS STORAGE ERROR ENCOUNTERED 01263 M01S00002.1ta11 +++| PJN PLI3 IF NO MASS STORAGE ERROR ENCOUNTERED 01264 M01S01136.1ta +++| LDN 20 FLAG MASS STORAGE ERROR
| Line S01137 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01265 M02S01137.1ta11 ---| LJM PLI7 SET ERROR CODE 01266 M01S00003.1ta11 +++| LJM PLI19 SET ERROR CODE 01267 M01S01138.1ta +++|
| Line S01139 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01268 M02S01139.1ta11 ---| PLI2.1 LDD T4 SAVE (T4) 01269 M01S00004.1ta11 +++| PLI3 LDD T4 SAVE (T4) 01270 M01S01140.1ta +++| STD T5 01271 M01S01141.1ta +++| 01272 M01S01142.1ta +++|* CHECK FOR ACCOUNT FOUND. 01273 M01S01143.1ta +++| 01274 M01S01144.1ta +++| LDN 0 SET INDEX 01275 M01S01145.1ta +++| STD T7 01276 M01S01146.1ta +++| LDD T1 CHECK USER INDEX 01277 M01S01147.1ta +++| ADD T2
| Line S01148 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01278 M02S01148.1ta11 ---| NJN PLI3 IF ACCOUNT FOUND
| Line S01149 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01279 M02S01149.1ta11 ---| LJM PLI6 SET ERROR 01280 M01S00005.1ta11 +++| NJN PLI4 IF ACCOUNT FOUND 01281 M01S00006.1ta11 +++| LJM PLI16 SET ERROR 01282 M01S01150.1ta +++| 01283 M01S01151.1ta +++|* MOVE USER ACCOUNT BLOCK. 01284 M01S01152.1ta +++|
| Line S01153 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01285 M02S01153.1ta11 ---| PLI3 LDI T3 01286 M01S00007.1ta11 +++| PLI4 LDI T3 01287 M01S01154.1ta +++| STM ABUF,T7 01288 M01S01155.1ta +++| AOD T3 01289 M01S01156.1ta +++| AOD T7 01290 M01S01157.1ta +++| LMC ARBS*5
| Line S01158 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01291 M02S01158.1ta11 ---| NJN PLI3 IF NOT LAST BYTE 01292 M01S00008.1ta11 +++| NJN PLI4 IF NOT LAST BYTE 01293 M01S01159.1ta +++| STD T2 INITIALIZE TABLE INDEX 01294 M01S01160.1ta +++| 01295 M01S01161.1ta +++|* SET SERVICE CLASS. 01296 M01S01162.1ta +++| 01297 M01S01163.1ta +++| LDM ABUF+ASC1*5+1 GET USER DEFAULT FOR INTERACTIVE ORIGIN 01298 M01S01164.1ta +++| LPN 77 01299 M01S01165.1ta +++| STD T1
| Line S01166 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01300 M02S01166.1ta11 ---| PLI3.1 LDM TVSC,T2 SEARCH FOR VALID SERVICE CLASS 01301 M01S00009.1ta11 +++| PLI5 LDM TVSC,T2 SEARCH FOR VALID SERVICE CLASS 01302 M01S01167.1ta +++| LMD T1
| Line S01168 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01303 M02S01168.1ta11 ---| ZJN PLI3.2 IF MATCH FOUND 01304 M01S00010.1ta11 +++| ZJN PLI6 IF MATCH FOUND 01305 M01S01169.1ta +++| AOD T2 INCREMENT TABLE INDEX 01306 M01S01170.1ta +++| LDN MXSC 01307 M01S01171.1ta +++| SBD T2
| Line S01172 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01308 M02S01172.1ta11 ---| MJN PLI3.3 IF END OF TABLE
| Line S01173 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01309 M02S01173.1ta11 ---| UJN PLI3.1 CHECK NEXT ENTRY 01310 M01S00011.1ta11 +++| MJN PLI8 IF END OF TABLE 01311 M01S00012.1ta11 +++| UJN PLI5 CHECK NEXT ENTRY 01312 M01S01174.1ta +++|
| Line S01175 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01313 M02S01175.1ta11 ---| PLI3.2 STD T3 CHECK IF SERVICE CLASS IS VALID FOR USER 01314 M01S00013.1ta11 +++| PLI6 STD T3 CHECK IF SERVICE CLASS IS VALID FOR USER 01315 M01S01176.1ta +++| LDN IAOT SET ORIGIN TYPE 01316 M01S01177.1ta +++| STD OT
| Line S01178 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01317 M02S01178.1ta11 ---| LDD MA GET VALIDATION MASK 01318 M01S00014.1ta11 +++| LDD T2 SET SERVICE CLASS 01319 M01S00015.1ta11 +++| STM CSSE 01320 M01S00016.1ta11 +++| PLI7 LDD MA GET VALIDATION MASK 01321 M01S01179.1ta +++| CWM ABUF+ASCV*5,ON 01322 M01S01180.1ta +++| SBN 1 01323 M01S01181.1ta +++| CRD CN
| Line S01182 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01324 M02S01182.1ta11 ---| LDD T2 SET SERVICE CLASS
| Line S01183 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01325 M02S01183.1ta11 ---| STM CSSE 01326 M01S00017.1ta11 +++| LDM CSSE 01327 M01S01184.1ta +++| RJM VSP VALIDATE SERVICE CLASS
| Line S01185 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01328 M02S01185.1ta11 ---| ZJN PLI3.5 IF NO ERROR 01329 M01S00018.1ta11 +++| ZJN PLI12 IF NO ERROR 01330 M01S01186.1ta +++| LMN 3
| Line S01187 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01331 M02S01187.1ta11 ---| ZJN PLI3.4 IF SERVICE CLASS FULL 01332 M01S00019.1ta11 +++| PLI8 NJN PLI10 IF NOT SERVICE CLASS FULL 01333 M01S00020.1ta11 +++| LDN NSVR NUMBER OF SERVICE CLASS VALIDATION RETRIES 01334 M01S00021.1ta11 +++| PLIA EQU *-1 01335 M01S00022.1ta11 +++| ZJN PLI11 IF NO MORE RETRIES POSSIBLE 01336 M01S00023.1ta11 +++| SOM PLIA DECREMENT RETRY COUNT 01337 M01S00024.1ta11 +++| LDC 3600 DELAY PRIOR TO RETRY 01338 M01S00025.1ta11 +++| STD T1 01339 M01S00026.1ta11 +++| PLI9 DELAY 01340 M01S00027.1ta11 +++| SOD T1 01341 M01S00028.1ta11 +++| NJN PLI9 IF NOT DONE DELAYING 01342 M01S00029.1ta11 +++| UJN PLI7 RETRY SERVICE CLASS VALIDATION 01343 M01S00030.1ta11 +++|
| Line S01188 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01344 M02S01188.1ta11 ---| PLI3.3 LDN 2&4 SET INVALID SERVICE CLASS ERROR
| Line S01189 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01345 M02S01189.1ta11 ---| PLI3.4 LMN 4 01346 M01S00031.1ta11 +++| PLI10 LDN 2&4 SET INVALID SERVICE CLASS ERROR 01347 M01S00032.1ta11 +++| PLI11 LMN 4 01348 M01S01190.1ta +++| STD CN+4
| Line S01191 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01349 M02S01191.1ta11 ---| LJM PLI7 PROCESS ERROR 01350 M01S00033.1ta11 +++| LJM PLI19 PROCESS ERROR 01351 M01S01192.1ta +++| 01352 M01S01193.1ta +++| 01353 M01S01194.1ta +++|* GET FAMILY ORDINAL. 01354 M01S01195.1ta +++|
| Line S01196 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01355 M02S01196.1ta11 ---| PLI3.5 LDD MA SET FAMILY NAME 01356 M01S00034.1ta11 +++| PLI12 LDD MA SET FAMILY NAME 01357 M01S01197.1ta +++| CWM CISD,ON 01358 M01S01198.1ta +++| SBN 1 01359 M01S01199.1ta +++| CRD FN 01360 M01S01200.1ta +++| LDN 1 DO NOT ADD FAMILY NAME TO FOT 01361 M01S01201.1ta +++| RJM GFO GET FAMILY ORDINAL
| Line S01202 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01362 M02S01202.1ta11 ---| ZJN PLI4 IF NO ERROR OCCURRED
| Line S01203 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01363 M02S01203.1ta11 ---| LJM PLI6 SET ERROR 01364 M01S00035.1ta11 +++| ZJN PLI13 IF NO ERROR OCCURRED 01365 M01S00036.1ta11 +++| LJM PLI16 SET ERROR 01366 M01S01204.1ta +++|
| Line S01205 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01367 M02S01205.1ta11 ---| PLI4 RJM STT 01368 M01S00037.1ta11 +++| PLI13 RJM STT 01369 M01S01206.1ta +++| ADK VUIT 01370 M01S01207.1ta +++| CRD CM 01371 M01S01208.1ta +++| LDD FN+4 INSERT FAMILY ORDINAL IN TERMINAL TABLE 01372 M01S01209.1ta +++| STM CSSA 01373 M01S01210.1ta +++| ADK VUFO 01374 M01S01211.1ta +++| LDD CM+3 01375 M01S01212.1ta +++| SCN 77 01376 M01S01213.1ta +++| LMD FN+4 01377 M01S01214.1ta +++| STD CM+3 01378 M01S01215.1ta +++| RJM STT 01379 M01S01216.1ta +++| ADK VUIT 01380 M01S01217.1ta +++| CWD CM 01381 M01S01218.1ta +++| 01382 M01S01219.1ta +++|* CHECK FOR VALID USER. 01383 M01S01220.1ta +++| 01384 M01S01221.1ta +++| LDD RA CHECK TERMINAL TYPE 01385 M01S01222.1ta +++| SHN 6 01386 M01S01223.1ta +++| ADN VNTP 01387 M01S01224.1ta +++| CRD DF 01388 M01S01225.1ta +++| LDD DF+2
| Line S01226 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01389 M02S01226.1ta11 ---| ZJN PLI5 IF NO NETWORK TERMINALS 01390 M01S00038.1ta11 +++| ZJN PLI14 IF NO NETWORK TERMINALS 01391 M01S01227.1ta +++| SBD TN 01392 M01S01228.1ta +++| SBN 1
| Line S01229 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01393 M02S01229.1ta11 ---| MJN PLI6.0 IF NETWORK TERMINAL
| Line S01230 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01394 M02S01230.1ta11 ---| PLI5 LDD T5 CHECK UI FLAG FROM *0AV*
| Line S01231 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01395 M02S01231.1ta11 ---| NJN PLI6 IF UI EXCEEDS AUIMX 01396 M01S00039.1ta11 +++| MJN PLI17 IF NETWORK TERMINAL 01397 M01S00040.1ta11 +++| PLI14 LDD T5 CHECK UI FLAG FROM *0AV* 01398 M01S00041.1ta11 +++| NJN PLI16 IF UI EXCEEDS AUIMX 01399 M01S01232.1ta +++| RJM VPW VALIDATE PASSWORD
| Line S01233 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01400 M02S01233.1ta11 ---| NJN PLI6 IF INVALID PASSWORD 01401 M01S00042.1ta11 +++| NJN PLI16 IF INVALID PASSWORD 01402 M01S01234.1ta +++| LDD T6
| Line S01235 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01403 M02S01235.1ta11 ---| NJN PLI6.1 IF SECURITY COUNT NOT EXHAUSTED 01404 M01S00043.1ta11 +++| NJN PLI18 IF SECURITY COUNT NOT EXHAUSTED 01405 M01S01236.1ta +++| LDN 1 FLAG *SECURITY COUNT EXHAUSTED* ERROR
| Line S01237 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01406 M02S01237.1ta11 ---| PLI5.1 LJM PLI7 SET ERROR CODE 01407 M01S00044.1ta11 +++| PLI15 LJM PLI19 SET ERROR CODE 01408 M01S01238.1ta +++|
| Line S01239 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01409 M02S01239.1ta11 ---| PLI6 LDN 0 FLAG *INVALID USER* ERROR
| Line S01240 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01410 M02S01240.1ta11 ---| UJN PLI5.1 SET ERROR CODE 01411 M01S00045.1ta11 +++| PLI16 LDN 0 FLAG *INVALID USER* ERROR 01412 M01S00046.1ta11 +++| UJN PLI15 SET ERROR CODE 01413 M01S01241.1ta +++|
| Line S01242 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01414 M02S01242.1ta11 ---| PLI6.0 LDD PA READ PASSWORD 01415 M01S00047.1ta11 +++| PLI17 LDD PA READ PASSWORD 01416 M01S01243.1ta +++| SHN 14 01417 M01S01244.1ta +++| LMD PA+1 01418 M01S01245.1ta +++| ADN VPWA 01419 M01S01246.1ta +++| CRD CM 01420 M01S01247.1ta +++| LDD CM
| Line S01248 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01421 M02S01248.1ta11 ---| ZJN PLI6.1 IF PASSWORD IS ZERO, BYPASS VALIDATION 01422 M01S00048.1ta11 +++| ZJN PLI18 IF PASSWORD IS ZERO, BYPASS VALIDATION 01423 M01S01249.1ta +++| RJM VPW VALIDATE PASSWORD
| Line S01250 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01424 M02S01250.1ta11 ---| MJN PLI6 IF PASSWORD IS NOT VALID, ERROR EXIT 01425 M01S00049.1ta11 +++| MJN PLI16 IF PASSWORD IS NOT VALID, ERROR EXIT 01426 M01S01251.1ta +++| LDD PA CLEAR PASSWORD FIELD IN PARAMETER POT 01427 M01S01252.1ta +++| SHN 14 01428 M01S01253.1ta +++| LMD PA+1 01429 M01S01254.1ta +++| ADN VPWA 01430 M01S01255.1ta +++| CRD CM 01431 M01S01256.1ta +++| LDN 0 01432 M01S01257.1ta +++| STD CM 01433 M01S01258.1ta +++| LDD PA 01434 M01S01259.1ta +++| SHN 14 01435 M01S01260.1ta +++| LMD PA+1 01436 M01S01261.1ta +++| ADN VPWA 01437 M01S01262.1ta +++| CWD CM 01438 M01S00019.ns2663 +++| 01439 M01S01263.1ta +++|* DETERMINE VALID ACCESS LEVELS AND CATEGORIES FOR JOB. 01440 M01S01264.1ta +++|
| Line S01265 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01441 M02S01265.1ta11 ---| PLI6.1 LDD PA GET LINE ACCESS LEVEL LIMIT 01442 M01S00050.1ta11 +++| PLI18 LDD PA GET LINE ACCESS LEVEL LIMIT 01443 M01S01266.1ta +++| SHN 14 01444 M01S01267.1ta +++| LMD PA+1 01445 M01S01268.1ta +++| ADN VLAL 01446 M01S01269.1ta +++| CRD CM 01447 M01S01270.1ta +++| LDD CM+4 SET UPPER ACCESS LEVEL LIMIT TO LINE LIMIT 01448 M01S01271.1ta +++| LPN 7 01449 M01S01272.1ta +++| STD CM+3 01450 M01S01273.1ta +++| LDN 0 SET LOWER ACCESS LEVEL LIMIT 01451 M01S01274.1ta +++| STD CM+4 01452 M01S01275.1ta +++| LDN IAOT 01453 M01S01276.1ta +++| STD CM+2 01454 M01S01277.1ta +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS 01455 M01S01278.1ta +++| STD CM+1 01456 M01S01279.1ta +++| LDD MA 01457 M01S01280.1ta +++| CWM ABUF+ASVW*5,ON SET SECURITY VALIDATION WORD 01458 M01S01281.1ta +++| MONITOR VSAM 01459 M01S01282.1ta +++| LDD MA 01460 M01S01283.1ta +++| CRM ABUF+ASVW*5,ON READ UPDATED SECURITY VALIDATIONS 01461 M01S01284.1ta +++| LDD CM+4 SAVE RESTRICTED ACCESS LEVEL LIMITS 01462 M01S01285.1ta +++| STM CSSF 01463 M01S01286.1ta +++| LDD CM+3 01464 M01S01287.1ta +++| STM CSSD 01465 M01S01288.1ta +++| LDD CM+2 SAVE INITIAL JOB ACCESS LEVEL 01466 M01S01289.1ta +++| STM CSSC 01467 M01S01290.1ta +++| LDD CM+1
| Line S01291 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01468 M02S01291.1ta11 ---| ZJN PLI8 IF NO REJECT 01469 M01S00051.1ta11 +++| ZJN PLI20 IF NO REJECT 01470 M01S01292.1ta +++| LDN 10 FLAG *SECURITY VIOLATION* ERROR
| Line S01293 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01471 M02S01293.1ta10 ---|
| Line S01294 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01472 M02S01294.1ta10 ---|* ERROR EXIT - ERROR CODE IN BYTE 4, WORD *VUTA* OF LOGIN POT.
| Line S01295 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01473 M02S01295.1ta10 ---|
| Line S01296 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01474 M02S01296.1ta10 ---| PLI7 STD CN+4 SET ERROR CODE
| Line S01297 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01475 M02S01297.1ta10 ---| RJM SPA
| Line S01298 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01476 M02S01298.1ta10 ---| ADN VUTA
| Line S01299 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01477 M02S01299.1ta10 ---| CWD CN
| Line S01300 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01478 M02S01300.1ta10 ---| RJM ERX ERROR EXIT
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01479 M02S00021.1ta11 ---| PLI7 RJM SEC SET ERROR CODE (NO RETURN) 01480 M01S00052.1ta11 +++| PLI19 RJM SEC SET ERROR CODE (NO RETURN) 01481 M01S01301.1ta +++| 01482 M01S01302.1ta +++|* USER SUCCESSFULLY VALIDATED. 01483 M01S01303.1ta +++|* PUT VALIDATION IN POT AND TERMINAL TABLE. 01484 M01S01304.1ta +++|
| Line S01305 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01485 M02S01305.1ta11 ---| PLI8 LDD PA 01486 M01S00053.1ta11 +++| PLI20 LDD PA 01487 M01S01306.1ta +++| SHN 14 01488 M01S01307.1ta +++| ADD PA+1 01489 M01S01308.1ta +++| ADN VUTA 01490 M01S01309.1ta +++| CWM ABUF+AAWC*5,ON 01491 M01S01310.1ta +++| ADK VUTD-VUTA-1 01492 M01S01311.1ta +++| CWM ABUF+ATPA*5,ON 01493 M01S01312.1ta +++| LDM ABUF+ATPA*5+1 01494 M01S01313.1ta +++| SHN 21-13
| Line S01314 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01495 M02S01314.1ta11 ---| PJN PLI9 IF NORMAL MODE 01496 M01S00054.1ta11 +++| PJN PLI21 IF NORMAL MODE 01497 M01S01315.1ta +++| LDN ZERL CLEAR REQUEST WORD 01498 M01S01316.1ta +++| CRD CM 01499 M01S01317.1ta +++| LDC VSCS SET CHARACTER SET MODE 01500 M01S01318.1ta +++| STD CM 01501 M01S01319.1ta +++| LDN 11 01502 M01S01320.1ta +++| STD CM+2 01503 M01S01321.1ta +++| RJM ITF ISSUE *TSEM* FUNCTION
| Line S01322 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01504 M02S01322.1ta11 ---|PLI9 LJM PLIX RETURN 01505 M01S00055.1ta11 +++|PLI21 LJM PLIX RETURN 01506 M01S01323.1ta +++| TSVC SPACE 4,10 01507 M01S01324.1ta +++|** TSVC - TABLE OF VALID USER DEFAULT SERVICE CLASSES. 01508 M01S01325.1ta +++|* 01509 M01S01326.1ta +++|*T 12/ SUFFIX
Figure
01510 M01S01327.1ta +++|* SUFFIX = ONE CHARACTER SUFFIX, RIGHT JUSTIFIED, FOR SERVICE 01511 M01S01328.1ta +++|* CLASS. 01512 M01S01329.1ta +++| 01513 M01S01330.1ta +++| 01514 M01S01331.1ta +++| TVSC INDEX 01515 M01S01332.1ta +++| LIST D 01516 M01S01333.1ta +++| .SCL HERE 01517 M01S01334.1ta +++| LIST * 01518 M01S01335.1ta +++| INDEX MXSC 01519 M01S00022.1ta10 +++| SEC SPACE 4,10 01520 M01S00023.1ta10 +++|** SEC - SET ERROR CODE. 01521 M01S00024.1ta10 +++|* 01522 M01S00025.1ta10 +++|* ENTRY (A) = ERROR CODE. 01523 M01S00026.1ta10 +++|* 01524 M01S00027.1ta10 +++|* EXIT TO *ERX*. 01525 M01S00028.1ta10 +++|* ERROR CODE SET IN BYTE 4, WORD *VUTA* OF LOGIN POT. 01526 M01S00029.1ta10 +++|* 01527 M01S00030.1ta10 +++|* USES CN - CN+4. 01528 M01S00031.1ta10 +++|* 01529 M01S00032.1ta10 +++|* CALLS SPA, ERX. 01530 M01S00033.1ta10 +++| 01531 M01S00034.1ta10 +++| 01532 M01S00035.1ta10 +++| SEC SUBR ENTRY 01533 M01S00036.1ta10 +++| STD CN+4 01534 M01S00037.1ta10 +++| RJM SPA 01535 M01S00038.1ta10 +++| ADN VUTA 01536 M01S00039.1ta10 +++| CWD CN 01537 M01S00040.1ta10 +++| RJM ERX ERROR EXIT (NO RETURN) 01538 M01S01336.1ta +++| SEL SPACE 4,10 01539 M01S01337.1ta +++|** SEL - SET END OF LINE. 01540 M01S01338.1ta +++|* 01541 M01S01339.1ta +++|* ENTRY (T1) = LAST BYTE ASSEMBLED IN FBUF. 01542 M01S01340.1ta +++|* 01543 M01S01341.1ta +++|* EXIT (T1) = NEXT BYTE TO ASSEMBLE INTO IN FBUF. 01544 M01S01342.1ta +++|* 01545 M01S01343.1ta +++|* USES T1, T2. 01546 M01S01344.1ta +++|* 01547 M01S01345.1ta +++|* CALLS DV5. 01548 M01S01346.1ta +++| 01549 M01S01347.1ta +++| 01550 M01S01348.1ta +++| SEL SUBR 01551 M01S01349.1ta +++| LDI T1 01552 M01S01350.1ta +++| ZJN SEL1 IF ZERO BYTE 01553 M01S01351.1ta +++| AOD T1 01554 M01S01352.1ta +++| SEL1 LDD T1 01555 M01S01353.1ta +++| ADC -FBUF-2+5 ROUND UP 01556 M01S01354.1ta +++| RJM DV5 01557 M01S01355.1ta +++| STD T2 01558 M01S01356.1ta +++| SHN 2 * 4 01559 M01S01357.1ta +++| ADD T2 * 5 01560 M01S01358.1ta +++| ADC FBUF+2-1 01561 M01S01359.1ta +++| STD T1 POSSIBLE EOL 01562 M01S01360.1ta +++| LDI T1 01563 M01S01361.1ta +++| ZJN SEL2 IF EOL IN PLACE 01564 M01S01362.1ta +++| LDN 5 01565 M01S01363.1ta +++| RAD T1 01566 M01S01364.1ta +++| SEL2 AOD T1 SET NEXT BYTE TO ASSEMBLE INTO 01567 M01S01365.1ta +++| UJN SELX EXIT 01568 M01S01366.1ta +++| VPW SPACE 4,10 01569 M01S01367.1ta +++|** VPW - VALIDATE PASSWORD. 01570 M01S01368.1ta +++|* 01571 M01S01369.1ta +++|* ENTRY (PA - PA+1) = ADDRESS OF LOGIN POT. 01572 M01S01370.1ta +++|* (ABUF) = VALIDATION FILE ENTRY. 01573 M01S01371.1ta +++|* 01574 M01S01372.1ta +++|* EXIT (A) = 0 IF PASSWORD VALID. 01575 M01S01373.1ta +++|* 01576 M01S01374.1ta +++|* USES CM - CM+4, DF - DF+4. 01577 M01S01375.1ta +++|* 01578 M01S01376.1ta +++|* CALLS CFN. 01579 M01S01377.1ta +++|* 01580 M01S01378.1ta +++|* MACROS MONITOR. 01581 M01S01379.1ta +++| 01582 M01S01380.1ta +++| 01583 M01S01381.1ta +++| VPW SUBR ENTRY/EXIT 01584 M01S01382.1ta +++| LDM ABUF+APWI*5+3 CHECK PASSWORD EXPIRATION DATE 01585 M01S01383.1ta +++| LPN 77 01586 M01S01384.1ta +++| STD CM+3 01587 M01S01385.1ta +++| SHN 14 01588 M01S01386.1ta +++| LMM ABUF+APWI*5+4 01589 M01S01387.1ta +++| ZJN VPW1 IF NONEXPIRING PASSWORD 01590 M01S01388.1ta +++| STD CM+4 01591 M01S01389.1ta +++| LDN VEDS VALIDATE EXPIRATION DATE 01592 M01S01390.1ta +++| STD CM+1 01593 M01S01391.1ta +++| MONITOR VSAM 01594 M01S01392.1ta +++| LDD CM+1 01595 M01S01393.1ta +++| NJN VPWX IF PASSWORD EXPIRED 01596 M01S01394.1ta +++| VPW1 LDD PA READ PASSWORD 01597 M01S01395.1ta +++| SHN 14 01598 M01S01396.1ta +++| LMD PA+1 01599 M01S01397.1ta +++| ADN VPWA 01600 M01S01398.1ta +++| CRD CM 01601 M01S01399.1ta +++| LDD MA ENCRYPT PASSWORD 01602 M01S01400.1ta +++| CWD CM 01603 M01S01401.1ta +++| LDN REPS 01604 M01S01402.1ta +++| STD CM+1 01605 M01S01403.1ta +++| MONITOR RDCM 01606 M01S01404.1ta +++| LDD MA 01607 M01S01405.1ta +++| CRD DF 01608 M01S01406.1ta +++| LDC ABUF+APWI*5 01609 M01S01407.1ta +++| RJM CFN COMPARE PASSWORDS 01610 M01S01408.1ta +++| UJP VPWX RETURN 01611 M01S01409.1ta +++| WDI SPACE 4,20 01612 M01S01410.1ta +++|** WDI - WRITE DISK INFORMATION. 01613 M01S01411.1ta +++|* 01614 M01S01412.1ta +++|* ENTRY (T5) = EQUIPMENT. 01615 M01S01413.1ta +++|* (T6) = TRACK. 01616 M01S01414.1ta +++|* (T7) = SECTOR. 01617 M01S01415.1ta +++|* (BFMS) = SYSTEM SECTOR. 01618 M01S01416.1ta +++|* (FBUF) = INPUT SECTOR. 01619 M01S01417.1ta +++|* (WC) = WORD COUNT IN SECTOR. 01620 M01S01418.1ta +++|* 01621 M01S01419.1ta +++|* EXIT (A) = 0, IF NO ERRORS. THE SYSTEM SECTOR, THE INPUT 01622 M01S01420.1ta +++|* SECTOR, AND THE EOI SECTOR ARE WRITTEN. 01623 M01S01421.1ta +++|* .LT. 0, IF WRITE ERRORS ENCOUNTERED. 01624 M01S01422.1ta +++|* 01625 M01S01423.1ta +++|* USES FA, T1, T4, T7, KWC. 01626 M01S01424.1ta +++|* 01627 M01S01425.1ta +++|* CALLS CBU, WDS, WEI, WSS. 01628 M01S01426.1ta +++|* 01629 M01S01427.1ta +++|* MACROS SETMS, SFA. 01630 M01S01428.1ta +++| 01631 M01S01429.1ta +++| 01632 M01S01430.1ta +++| WDI SUBR ENTRY/EXIT 01633 M01S01431.1ta +++| 01634 M01S01432.1ta +++|* WRITE SECTORS. 01635 M01S01433.1ta +++| 01636 M01S01434.1ta +++| SETMS IO,,BFMS 01637 M01S01435.1ta +++| RJM WSS WRITE SYSTEM SECTOR 01638 M01S01436.1ta +++| MJN WDIX IF MASS STORAGE ERROR 01639 M01S01437.1ta +++| LDD T7 SET SECTOR LINKAGE 01640 M01S01438.1ta +++| ADN 1 01641 M01S01439.1ta +++| STM FBUF 01642 M01S01440.1ta +++| LDD WC SET WORD COUNT 01643 M01S01441.1ta +++| STM FBUF+1 01644 M01S01442.1ta +++| LDC FBUF+WCSF 01645 M01S01443.1ta +++| RJM WDS WRITE SECTOR 01646 M01S01444.1ta +++| MJN WDIX IF MASS STORAGE ERROR 01647 M01S01445.1ta +++| LDM FBUF SET NEXT SECTOR 01648 M01S01446.1ta +++| STD T7 01649 M01S01447.1ta +++| LDD T6 SET FIRST TRACK IN EOI SECTOR 01650 M01S01448.1ta +++| STM FBUF+FTEI 01651 M01S01449.1ta +++| LDD MA TRANSFER FNT/FST/DATE TO *FBUF* 01652 M01S01450.1ta +++| CWM BFMS+2,TR 01653 M01S01451.1ta +++| SBN 3 01654 M01S01452.1ta +++| CRM FBUF+2,TR 01655 M01S01453.1ta +++| LDN 75 CLEAR REMAINDER OF EOI 01656 M01S01454.1ta +++| STD T1 01657 M01S01455.1ta +++| LDC FBUF+2+3*5 01658 M01S01456.1ta +++| RJM CBU CLEAR BUFFER 01659 M01S01457.1ta +++| LDC FBUF 01660 M01S01458.1ta +++| RJM WEI WRITE EOI SECTOR 01661 M01S01459.1ta +++| MJN WDI1 IF MASS STORAGE ERROR 01662 M01S01460.1ta +++| ENDMS 01663 M01S01461.1ta +++|* LDN 0 INDICATE NO ERROR 01664 M01S01462.1ta +++| WDI1 LJM WDIX RETURN 01665 M01S01463.1ta +++| SPACE 4,10 01666 M01S01464.1ta +++|* COMMON DECKS. 01667 M01S01465.1ta +++| 01668 M01S01466.1ta +++| 01669 M01S01467.1ta +++|*CALL COMPACS 01670 M01S01468.1ta +++|*CALL COMPANS
| Line S01469 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 01671 M02S01469.ns2786 ---|*CALL COMPCDD 01672 M01S01470.1ta +++|*CALL COMPCTE
| Line S01471 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01673 M02S01471.1ta12 ---| CMI$ SET 1
| Line S01472 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01674 M02S01472.1ta12 ---| ECI$ SET 1 01675 M01S01473.1ta +++| TLI$ SET 1 01676 M01S01474.1ta +++|*CALL COMPCVI 01677 M01S01475.1ta +++|*CALL COMPDV5 01678 M01S01476.1ta +++|*CALL COMPGBN
| Line S01477 Modification History | |
|---|---|
M01 (Added by) | 1ta |
M02 (Updated by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01679 M02S01477.ns2663 ---|*CALL COMPIAM 01680 M01S01478.1ta +++|*CALL COMPRFI 01681 M01S01479.1ta +++|*CALL COMPRJC 01682 M01S01480.1ta +++| IF DEF,FA,1 01683 M01S01481.1ta +++| ERR CHECK *COMPWSS* AND *COMPWEI* 01684 M01S01482.1ta +++|*CALL COMPSFI 01685 M01S01483.1ta +++|*CALL COMPSSE 01686 M01S01484.1ta +++| GFM$ SET 1 01687 M01S01485.1ta +++| GFO$ SET 1 01688 M01S01486.1ta +++|*CALL COMPUFT 01689 M01S01487.1ta +++| CJL$ EQU 1 CHECK IF SERVICE CLASS AT JOB LIMIT 01690 M01S01488.1ta +++| CUV$ EQU 1 CHECK IF USER VALIDATED FOR SERVICE CLASS 01691 M01S01489.1ta +++|*CALL COMPVSP 01692 M01S01490.1ta +++| WEI$ EQU 1 USE ALTERNATE EOI BUFFER 01693 M01S01491.1ta +++|*CALL COMPWEI 01694 M01S01492.1ta +++| WCS$ SET 1 USE WRITE CONTINOUS SECTORS IN *COMPWSS* 01695 M01S01493.1ta +++|*CALL COMPWSS 01696 M01S01494.1ta +++| 01697 M01S01495.1ta +++| USE OVERLAY 01698 M01S01496.1ta +++| 01699 M01S01497.1ta +++| ABUF EQU * USER ACCOUNT BLOCK 01700 M01S01498.1ta +++| SPACE 4,10 01701 M01S01499.1ta +++|** TEST FOR OVERFLOW. 01702 M01S01500.1ta +++| 01703 M01S01501.1ta +++| 01704 M01S01502.1ta +++| OVERFLOW OVL,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 01705 M01S01503.1ta +++| 01706 M01S01504.1ta +++| USE OVERFLOW 01707 M01S01505.1ta +++| ERRNG CBUF-* OVERFLOW INTO *CBUF* 01708 M01S01506.1ta +++| IAM OVERLAY (ISSUE ACCOUNTING MESSAGES.) 01709 M01S01507.1ta +++| IAM SPACE 4,25 01710 M01S01508.1ta +++|*** IAM - ISSUE ACCOUNTING MESSAGES. 01711 M01S01509.1ta +++|* 01712 M01S01510.1ta +++|*T, IR 24/ ,12/ FC,12/ APTN,12/ 400B
Figure IR
01713 M01S01511.1ta +++|* 01714 M01S01512.1ta +++|* FC = FUNCTION CODE. 01715 M01S01513.1ta +++|* APTN = ACCOUNTING PSEUDO TERMINAL NUMBER. 01716 M01S01514.1ta +++|* 01717 M01S01515.1ta +++|* REQUEST QUEUE FORMAT. 01718 M01S01516.1ta +++|*T, IR 36/ ,12/ TN,10/ ,1/O,1/R
Figure IR
01719 M01S01517.1ta +++|* 01720 M01S01518.1ta +++|* TN = TERMINAL NUMBER. 01721 M01S01519.1ta +++|* O = COMBINED INPUT/OUTPUT OVERFLOW FLAG. 01722 M01S01520.1ta +++|* R = RESOURCE TYPE. 01723 M01S01521.1ta +++|* = 0 IF OUTPUT. 01724 M01S01522.1ta +++|* = 1 IF INPUT. 01725 M01S01523.1ta +++|* 01726 M01S01524.1ta +++|* EXIT ACCOUNTING MESSAGES ISSUED.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ta.txt · Last modified: by 127.0.0.1