cdc:nos2.source:opl.opl871:deck:1ta
Deck 1TA
Library Member Format: MODIFY
Listing Sections
- Deck 1TA Start
- Deck 1TA Part 1 (Line 1722)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M00S00001.1ta +++| IDENT 1TA,ITA 00002 M00S00002.1ta +++| PERIPH 00003 M00S00003.1ta +++| BASE MIXED 00004 M00S00004.1ta +++| SST 00005 M00S00005.1ta +++| QUAL$ EQU 1 DEFINE UNQUALIFIED COMMON DECKS 00006 M00S00006.1ta +++| EOR$ EQU 1 DEFINE POSITION AFTER EOR 00007 M00S00007.1ta +++|*COMMENT 1TA - IAF AUXILIARY FUNCTION PROCESSOR.
| Line S00008 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00008 M01S00008.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00009 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00010 M00S00009.1ta +++| TITLE 1TA - TIMESHARING AUXILIARY PROCESSOR. 00011 M00S00010.1ta +++| SPACE 4,10 00012 M00S00011.1ta +++|***** 1TA - TIMESHARING AUXILIARY PROCESSOR. 00013 M00S00012.1ta +++|* 00014 M00S00013.1ta +++|* K. E. ZINNEL. 70/03/09. 00015 M00S00014.1ta +++|* R. E. TATE. 71/01/25. 00016 M00S00015.1ta +++|* P. D. FARRELL. 75/02/07. 00017 M00S00016.1ta +++|* A. D. FORET. 76/04/26. 00018 M00S00017.1ta +++|* P. D. FARRELL 77/03/17. 00019 M00S00018.1ta +++|* M. J. CARIDDI, L. K. TUTTLE 81/07/02. 00020 M00S00019.1ta +++| SPACE 4,10 00021 M00S00020.1ta +++|*** 1TA PROCESSES FUNCTIONS FOR *IAF* WHICH REQUIRE 00022 M00S00021.1ta +++|* PP ACTION. 00023 M00S00022.1ta +++| SPACE 4,10,25 00024 M00S00023.1ta +++|*** CALLS. 00025 M00S00024.1ta +++|* 00026 M00S00025.1ta +++|* 00027 M00S00026.1ta +++|* GROUP REQUEST. 00028 M00S00027.1ta +++|*T 18/ *1TA*,6/ CP,6/ ,18/ RETURN ADDRESS,12/ PP
Figure
00029 M00S00028.1ta +++|* 00030 M00S00029.1ta +++|* CP CONTROL POINT. 00031 M00S00030.1ta +++|* PP POT POINTER TO REQUEST QUEUE POT(S). 00032 M00S00031.1ta +++|* 00033 M00S00032.1ta +++|* SINGLE REQUEST. 00034 M00S00033.1ta +++|*T 18/ *1TA*,6/ CP,12/ 40FC,12/ TN,12/ ARG
Figure
00035 M00S00034.1ta +++|* 00036 M00S00035.1ta +++|* REQUEST QUEUE FORMAT. 00037 M00S00036.1ta +++|*T 24/ ,12/ FC,12/ TN,12/ ARG
Figure
00038 M00S00037.1ta +++|* 00039 M00S00038.1ta +++|* FC FUNCTION CODE. 00040 M00S00039.1ta +++|* TN TERMINAL NUMBER. 00041 M00S00040.1ta +++|* ARG POT POINTER OR REQUEST TYPE. 00042 M00S00041.1ta +++|* 00043 M00S00042.1ta +++|* VROT STATUS BITS USED. 00044 M00S00043.1ta +++|* BIT 0 - COMPLETION STATUS BIT. 00045 M00S00044.1ta +++|* BIT 11- ERROR RETURN. 00046 M00S00045.1ta +++| SPACE 4,10,10 00047 M00S00046.1ta +++|*** ACCOUNT FILE MESSAGES. 00048 M00S00047.1ta +++|* 00049 M00S00048.1ta +++|* 00050 M00S00049.1ta +++|* CHARACTER ACCUMULATOR OVERFLOW - 00051 M00S00050.1ta +++|* *UCCO, 000000.000KCHS.* = CHARACTERS OUT. 00052 M00S00051.1ta +++|* *UCCI, 000000.000KCHS.* = CHARACTERS IN. 00053 M00S00052.1ta +++|* *ABLQ, JSNN, YY/MM/DD, HH.MM.SS* INPUT FILE QUEUED 00054 M00S00053.1ta +++| SPACE 4,10,10 00055 M00S00054.1ta +++|** ROUTINES USED. 00056 M00S00055.1ta +++|* 00057 M00S00056.1ta +++|*
| Line S00057 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00058 M01S00057.ns2663 ---|* 0AV - ACCOUNT FILE VALIDATION.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00059 M01S00001.ns2663 +++|* 0AV - VERIFY USER NAME. 00060 M01S00002.ns2663 +++|* 0QM - ISSUE QUEUE FILE ACCOUNTING MESSAGE. 00061 M00S00058.1ta +++| SPACE 4,10 00062 M00S00059.1ta +++|* COMMON DECKS. 00063 M00S00060.1ta +++| 00064 M00S00061.1ta +++| 00065 M00S00062.1ta +++|*CALL COMPMAC 00066 M00S00063.1ta +++|*CALL COMSACC 00067 M00S00064.1ta +++|*CALL COMSCPS 00068 M00S00065.1ta +++|*CALL COMSEJT 00069 M00S00066.1ta +++|*CALL COMSEVT 00070 M00S00067.1ta +++|*CALL COMSJIO 00071 M00S00068.1ta +++|*CALL COMSJRO 00072 M00S00069.1ta +++|*CALL COMSMSC 00073 M00S00070.1ta +++|*CALL COMSMSP
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00074 M02S00001.273l780 ---| CPA$ EQU 1 SELECT PCPA ACCESS 00075 M02S00002.273l780 ---| IPC$ EQU 1 SELECT INITIALIZATION OF *COMPPCP* 00076 M02S00003.273l780 ---|*CALL COMSPCP 00077 M00S00071.1ta ---|*CALL COMSPFM 00078 M00S00072.1ta ---|*CALL COMSPIM 00079 M00S00073.1ta ---|*CALL COMSPRD 00080 M00S00074.1ta ---|*CALL COMSREM 00081 M00S00075.1ta ---|*CALL COMSSRU 00082 M00S00076.1ta ---|*CALL COMSSSE 00083 M00S00077.1ta ---|*CALL COMSTCM 00084 M00S00078.1ta ---|*CALL COMSWEI 00085 M00S00079.1ta ---|*CALL COMSZOL 00086 M00S00080.1ta ---| TITLE PROGRAM EQUIVALENCES. 00087 M00S00081.1ta ---|**** DIRECT LOCATION ASSIGNMENTS. 00088 M00S00082.1ta ---| 00089 M00S00083.1ta ---| QF EQU 25 QFT ORDINAL 00090 M00S00084.1ta ---| PW EQU 26 POT WORD COUNT 00091 M00S00085.1ta ---| FP EQU 27 FIRST POT 00092 M00S00086.1ta ---| CN EQU 30 - 34 VROT STATUS WORD BUFFER (5 LOCATIONS) 00093 M00S00087.1ta ---| PA EQU 35 - 36 POT ADDRESS (2 LOCATIONS) 00094 M00S00088.1ta ---| PP EQU 37 POT POINTER 00095 M00S00089.1ta ---| DF EQU 40 - 44 DESIGNATED FILE NAME (5 LOCATIONS) 00096 M00S00090.1ta ---| WC EQU 45 WORD COUNT 00097 M00S00091.1ta ---| TT EQU 46 - 47 TERMINAL TABLE ADDRESS (2 LOCATIONS) 00098 M00S00092.1ta ---| TN EQU IR+3 TERMINAL NUMBER 00099 M00S00093.1ta ---| FN EQU 60 - 64 FILE NAME (5 LOCATIONS) 00100 M00S00094.1ta ---| OT EQU 65 ORIGIN TYPE
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00101 M01S00004.271l716 +++| NC EQU 66 NUMBER OF CONTROL POINTS 00102 M00S00095.1ta +++| MF EQU 67 MESSAGE FLAG 00103 M00S00096.1ta +++| SPACE 4,10 00104 M00S00097.1ta +++|** MICRO DEFINITIONS. 00105 M00S00098.1ta +++| 00106 M00S00099.1ta +++| 00107 M00S00100.1ta +++| TE OCTMIC TTEQ,2 TTY PSEUDO-EQUIPMENT MICRO 00108 M00S00101.1ta +++| SPACE 4,10 00109 M00S00102.1ta +++|**** PROGRAM EQUIVALENCES. 00110 M00S00103.1ta +++| 00111 M00S00104.1ta +++| 00112 M00S00105.1ta +++| SYSN EQU 0 SYSTEM SECTOR NUMBER 00113 M00S00106.1ta +++| CPSN EQU 1 C.P. AREA SECTOR NUMBER
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 00114 M01S00001.1ta11 +++| NSVR EQU 6 NUMBER OF SERVICE CLASS VALIDATION RETRIES
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 00115 M01S00001.1ta10 +++| EJTT EQU EJTR*2 EJT THRESHOLD 00116 M00S00107.1ta +++| BUFFER SPACE 4,10,10 00117 M00S00108.1ta +++|**** BUFFER DEFINITIONS. 00118 M00S00109.1ta +++| 00119 M00S00110.1ta +++| FBUF EQU BFMS-502-LENF*5+1*5 NFL/INPUT/EOI BUFFER 00120 M00S00111.1ta +++| CBUF EQU FBUF-504 CONTROL POINT AREA SECTOR BUFFER
| Line S00112 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00121 M01S00112.ns2663 ---| SPACE 4,10,10 00122 M01S00113.ns2663 ---|** PROGRAMMING NOTE. 00123 M01S00114.ns2663 ---|* 00124 M01S00115.ns2663 ---|* OVERLAYS WHICH EITHER DIRECTLY OR INDIRECTLY CALL 00125 M01S00116.ns2663 ---|* *0* LEVEL OVERLAY AT *OVL0* MUST TERMINATE WITH A TEST FOR 00126 M01S00117.ns2663 ---|* OVERFLOW INTO THE *0* LEVEL OVERLAY LOAD BUFFER 00127 M01S00118.ns2663 ---|* DEFINED BY LOCATION *OVL0* ABOVE.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00128 M01S00003.ns2663 +++| 00129 M01S00004.ns2663 +++| ERRNG EPFW-CBUF-ZAVL CHECK *0AV* OVERFLOW 00130 M01S00005.ns2663 +++| ERRNG BFMS-CBUF-ZQML CHECK *0QM* OVERFLOW 00131 M00S00119.1ta +++| TITLE OVERLAY COMMUNICATION MACROS. 00132 M00S00120.1ta +++| OVERLAY SPACE 4,10 00133 M00S00121.1ta +++|** OVERLAY - GENERATE OVERLAY CONSTANTS. 00134 M00S00122.1ta +++|* 00135 M00S00123.1ta +++|* QUAL OVERLAY (TEXT),ADDR 00136 M00S00124.1ta +++|* 00137 M00S00125.1ta +++|* QUAL OVERLAY QUALIFIER NAME 00138 M00S00126.1ta +++|* TEXT TEXT OF SUBTITLE. 00139 M00S00127.1ta +++|* ADDR OPTIONAL LOAD ADDRESS, IF TO BE OTHER THAN *OVL*. 00140 M00S00128.1ta +++| 00141 M00S00129.1ta +++| 00142 M00S00130.1ta +++| NOREF .M 00143 M00S00131.1ta +++| PURGMAC OVERLAY 00144 M00S00132.1ta +++| .M SET 0 00145 M00S00133.1ta +++| 00146 M00S00134.1ta +++| MACRO OVERLAY,Q,T,A 00147 M00S00135.1ta +++| LOCAL LADDR 00148 M00S00136.1ta +++| QUAL 00149 M00S00137.1ta +++| .M SET .M+1 00150 M00S00138.1ta +++| USE LITERALS 00151 M00S00139.1ta +++| .1 MICRO .M,1, ABCDEFGHIJKLMNOPQRSTUVWXYZ 00152 M00S00140.1ta +++| .3 MICRO 1,3, 3T".1" 00153 M00S00141.1ta +++| Q_O EQU 1R".1" 00154 M00S00142.1ta +++| Q MICRO 1,4, O_Q 00155 M00S00143.1ta +++| TITLE ".3" - T 00156 M00S00144.1ta +++| IDENT ".3","Q" - T 00157 M00S00145.1ta +++|*COMMENT 1TA - T
| Line S00146 Modification History | |
|---|---|
M01 (Removed by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00158 M01S00146.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00159 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00160 M00S00147.1ta +++| ORG A OVL 00161 M00S00148.1ta +++| "Q" LJM * 00162 M00S00149.1ta +++| UJN *-2 00163 M00S00150.1ta +++| QUAL Q 00164 M00S00151.1ta +++| OVERLAY ENDM 00165 M00S00152.1ta +++| ENTRY SPACE 4,10,10 00166 M00S00153.1ta +++|** ENTRY - DEFINE OVERLAY ENTRY POINT. 00167 M00S00154.1ta +++|* 00168 M00S00155.1ta +++|* ENTRY NAME 00169 M00S00156.1ta +++|* 00170 M00S00157.1ta +++|* ENTRY *NAME* = NAME OF ENTRY ADDRESS. 00171 M00S00158.1ta +++| 00172 M00S00159.1ta +++| 00173 M00S00160.1ta +++| PURGMAC ENTRY 00174 M00S00161.1ta +++| 00175 M00S00162.1ta +++| ENTRY MACRO NAME 00176 M00S00163.1ta +++| QUAL 00177 M00S00164.1ta +++| NAME EQU *+1R".1"*10000 00178 M00S00165.1ta +++| QUAL * 00179 M00S00166.1ta +++| ENTRY ENDM 00180 M00S00167.1ta +++| FCN SPACE 4,10,10 00181 M00S00168.1ta +++|** FCN - DEFINE FUNCTION PROCESSOR. 00182 M00S00169.1ta +++|* 00183 M00S00170.1ta +++|* FCN NAME 00184 M00S00171.1ta +++|* 00185 M00S00172.1ta +++|* ENTRY *NAME* = NAME OF FUNCTION PROCESSOR. 00186 M00S00173.1ta +++| 00187 M00S00174.1ta +++| NOREF .I 00188 M00S00175.1ta +++| .I SET 0 00189 M00S00176.1ta +++| 00190 M00S00177.1ta +++| MACRO FCN,L,A 00191 M00S00178.1ta +++| LOC .I/2+1 00192 M00S00179.1ta +++| L CON A/10000,A-A/10000*10000 00193 M00S00180.1ta +++| .I SET .I+2 00194 M00S00181.1ta +++| ENDM 00195 M00S00182.1ta +++| SCLASS SPACE 4,15 00196 M00S00183.1ta +++|** SCLASS - DEFINE SERVICE CLASS TABLE. 00197 M00S00184.1ta +++|* 00198 M00S00185.1ta +++|* SCLASS NM,MN,DF,ST,TX 00199 M00S00186.1ta +++|* 00200 M00S00187.1ta +++|* ENTRY *NM* = SERVICE CLASS NAME. 00201 M00S00188.1ta +++|* *MN* = TWO CHARACTER MNEMONIC. 00202 M00S00189.1ta +++|* *DF* = DAYFILE MESSAGE CHARACTER. 00203 M00S00190.1ta +++|* *ST* = SHORT TEXT FOR *QFTLIST*. 00204 M00S00191.1ta +++|* *TX* = TEXT OF SERVICE CLASS NAME FOR BANNER PAGE. 00205 M00S00192.1ta +++|* 00206 M00S00193.1ta +++|* NOTE - THE CALL TO *COMSSCD* MUST FOLLOW THE DEFINITION OF 00207 M00S00194.1ta +++|* THIS MACRO. 00208 M00S00195.1ta +++| 00209 M00S00196.1ta +++| 00210 M00S00197.1ta +++| PURGMAC SCLASS 00211 M00S00198.1ta +++| 00212 M00S00199.1ta +++| SCLASS MACRO NM,MN,DF,ST,TX 00213 M00S00200.1ta +++| .A IFC NE,$NM$SSSC$ 00214 M00S00201.1ta +++| .SCL RMT 00215 M00S00202.1ta +++| INDEX NM,1R_DF TX 00216 M00S00203.1ta +++| .SCL RMT 00217 M00S00204.1ta +++| .SCLVSP RMT 00218 M00S00205.1ta +++| INDEX NM,MN_MK TX 00219 M00S00206.1ta +++| .SCLVSP RMT 00220 M00S00207.1ta +++| .A ENDIF 00221 M00S00208.1ta +++| SCLASS ENDM 00222 M00S00209.1ta +++| 00223 M00S00210.1ta +++| 00224 M00S00211.1ta +++| SCL$ EQU 0 ONLY PROCESS CLASSES WITH JCB-S 00225 M00S00212.1ta +++|*CALL COMSSCD 00226 M00S00213.1ta +++| TITLE MAIN PROGRAM. 00227 M00S00214.1ta +++| 1TA SPACE 4,10 00228 M00S00215.1ta +++|** 1TA - MAIN PROGRAM. 00229 M00S00216.1ta +++|* 00230 M00S00217.1ta +++|* LOADS AND EXECUTES THE VARIOUS FUNCTION PROCESSOR 00231 M00S00218.1ta +++|* OVERLAYS. 00232 M00S00219.1ta +++|* 00233 M00S00220.1ta +++|* CALLS CHG, EXR, PPR, SPA, STA, UPP. 00234 M00S00221.1ta +++| 00235 M00S00222.1ta +++| 00236 M00S00223.1ta +++| ORG PPFW 00237 M00S00224.1ta +++| ITA LJM INI INITIALIZE 00238 M00S00225.1ta +++| 00239 M00S00226.1ta +++|* ENTRY FROM FUNCTION PROCESSOR. 00240 M00S00227.1ta +++| 00241 M00S00228.1ta +++| ITAX AOM ITAC INCREMENT TO NEXT ENTRY 00242 M00S00229.1ta +++|* LJM DPP (IF SINGLE FUNCTION) 00243 M00S00230.1ta +++| LMN VCPC 00244 M00S00231.1ta +++| NJN ITA1 IF NOT THE END OF A POT 00245 M00S00232.1ta +++| STM ITAC 00246 M00S00233.1ta +++| LDC * READ UP NEXT POT 00247 M00S00234.1ta +++| ITAA EQU *-1 00248 M00S00235.1ta +++| STD PP 00249 M00S00236.1ta +++| RJM UPP GET NEXT POT 00250 M00S00237.1ta +++| ZJN ITA2 IF LAST POT PROCESSED 00251 M00S00238.1ta +++| STM ITAA 00252 M00S00239.1ta +++| RJM SPA SET POT ADDRESS 00253 M00S00240.1ta +++| STM ITAB+1 00254 M00S00241.1ta +++| SHN -14 00255 M00S00242.1ta +++| ADC LDCI 00256 M00S00243.1ta +++| STM ITAB 00257 M00S00244.1ta +++| 00258 M00S00245.1ta +++|* MULTIPLE FUNCTION RETURN FROM *INI*. 00259 M00S00246.1ta +++| 00260 M00S00247.1ta +++| ITA1 LDC * READ UP ENTRY 00261 M00S00248.1ta +++| ITAB EQU *-2 00262 M00S00249.1ta +++| ADC 0 00263 M00S00250.1ta +++| ITAC EQU *-1 00264 M00S00251.1ta +++| CRD IR 00265 M00S00252.1ta +++| LDD TN 00266 M00S00253.1ta +++| NJN ITA4 IF STILL MORE ENTRIES TO PROCESS 00267 M00S00254.1ta +++| ITA2 LDD IA SET COMPLETION 00268 M00S00255.1ta +++| CRD IR 00269 M00S00256.1ta +++| LDN ZERL 00270 M00S00257.1ta +++| CRD IR-3 00271 M00S00258.1ta +++| ITAD LDC * 00272 M00S00259.1ta +++| CWD IR 00273 M00S00260.1ta +++| 00274 M00S00261.1ta +++|* ENTRY TO DROP PPU. 00275 M00S00262.1ta +++| 00276 M00S00263.1ta +++| DPP MONITOR DPPM DROP PPU 00277 M00S00264.1ta +++| LJM PPR RETURN TO PP RESIDENT 00278 M00S00265.1ta +++| 00279 M00S00266.1ta +++|* SINGLE FUNCTION RETURN FROM *INI*. 00280 M00S00267.1ta +++| 00281 M00S00268.1ta +++| ITA4 RJM STA SET TERMINAL TABLE ADDRESS 00282 M00S00269.1ta +++| LDD IR+2 GENERATE FUNCTION CODE INDEX 00283 M00S00270.1ta +++| SHN 1 00284 M00S00271.1ta +++| STD T7 00285 M00S00272.1ta +++| SBN TFCNL+1 00286 M00S00273.1ta +++| MJN ITA6 IF LEGAL FUNCTION CODE 00287 M00S00274.1ta +++| ITA5 LDN 0 SET NO ERROR FLAG 00288 M00S00275.1ta +++| RJM CHG CONDITIONALLY HANG PP 00289 M00S00276.1ta +++| UJP DPP DROP PP 00290 M00S00277.1ta +++| 00291 M00S00278.1ta +++|** *1TA* FUNCTION LOAD. 00292 M00S00279.1ta +++|* 00293 M00S00280.1ta +++|* ENTRY (T7) = FUNCTION CODE INDEX. 00294 M00S00281.1ta +++| 00295 M00S00282.1ta +++| 00296 M00S00283.1ta +++| ITA6 LDM TFCN-1,T7 SET PROCESSOR ADDRESS 00297 M00S00284.1ta +++| ZJN ITA5 IF UNDEFINED FUNCTION 00298 M00S00285.1ta +++| STM ITAE 00299 M00S00286.1ta +++| LDM TFCN-2,T7 SET OVERLAY NAME 00300 M00S00287.1ta +++| ZJN ITA7 IF NO OVERLAY REQUIRED 00301 M00S00288.1ta +++| SHN 6 00302 M00S00289.1ta +++| LMM OVL-4 00303 M00S00290.1ta +++| SCN 77 00304 M00S00291.1ta +++| ZJN ITA7 IF OVERLAY ALREADY LOADED 00305 M00S00292.1ta +++| LDM TFCN-2,T7 LOAD OVERLAY 00306 M00S00293.1ta +++| LMC 2L3T 00307 M00S00294.1ta +++| RJM EXR LOAD OVERLAY 00308 M00S00295.1ta +++| ITA7 LJM * PROCESS REQUEST 00309 M00S00296.1ta +++| ITAE EQU *-1
| Line S00297 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00310 M01S00297.ns2663 ---| TITLE FUNCTION OVERLAY DIRECTORY. 00311 M00S00298.1ta ---| TFCN SPACE 4,10 00312 M00S00299.1ta ---|** TFCN - TABLE OF FUNCTION CODE PROCESSORS. 00313 M00S00300.1ta ---|* 00314 M00S00301.1ta ---|* ENTRY - TWO WORDS. 00315 M00S00302.1ta ---|* WORD 1 = FUNCTION PROCESSOR OVERLAY NAME. 00316 M00S00303.1ta ---|* WORD 2 = FUNCTION PROCESSOR ADDRESS. 00317 M00S00304.1ta ---| 00318 M00S00305.1ta ---| 00319 M00S00306.1ta ---| TFCN BSS 0 00320 M00S00307.1ta ---| FCN TFL ADJUST TIMESHARING EXECUTIVE FIELD LENGTH 00321 M00S00308.1ta ---| FCN CIQ CREATE INPUT QUEUE ENTRY 00322 M00S00309.1ta ---| FCN IAM ISSUE ACCOUNTING MESSAGES 00323 M00S00310.1ta ---| FCN IRL INCREMENT RESOURCE LIMIT 00324 M00S00311.1ta ---| FCN RJS RETURN JOB STATUS 00325 M00S00312.1ta ---| LOC *O 00326 M00S00313.1ta ---| TFCNL EQU *-TFCN LENGTH OF FUNCTION TABLE
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00327 M01S00006.ns2663 +++| TITLE GENERAL SUBROUTINES.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00314.1ta +++| CFN SPACE 4,10 00348 M00S00315.1ta +++|** CFN - CHECK FILE NAME. 00349 M00S00316.1ta +++|* 00350 M00S00317.1ta +++|* ENTRY (A) = ADDRESS OF FILE NAME 1. 00351 M00S00318.1ta +++|* (DF - DF+3) = FILE NAME 2. 00352 M00S00319.1ta +++|* 00353 M00S00320.1ta +++|* EXIT (A) = ZERO IF FILE NAMES MATCH. 00354 M00S00321.1ta +++|* 00355 M00S00322.1ta +++|* USES T3. 00356 M00S00323.1ta +++| 00357 M00S00324.1ta +++| 00358 M00S00325.1ta +++| CFN SUBR ENTRY/EXIT 00359 M00S00326.1ta +++| STD T3 SAVE ADDRESS OF FILE NAME 00360 M00S00327.1ta +++| LDI T3 COMPARE FIRST TWO CHARACTERS 00361 M00S00328.1ta +++| LMD DF 00362 M00S00329.1ta +++| NJN CFNX IF NO MATCH 00363 M00S00330.1ta +++| LDM 1,T3 COMPARE NEXT CHARACTERS 00364 M00S00331.1ta +++| LMD DF+1 00365 M00S00332.1ta +++| NJN CFNX IF NO MATCH 00366 M00S00333.1ta +++| LDM 2,T3 COMPARE NEXT CHARACTERS 00367 M00S00334.1ta +++| LMD DF+2 00368 M00S00335.1ta +++| NJN CFNX IF NO MATCH 00369 M00S00336.1ta +++| LDM 3,T3 COMPARE LAST CHARACTER 00370 M00S00337.1ta +++| LMD DF+3 00371 M00S00338.1ta +++| SCN 77 00372 M00S00339.1ta +++| UJN CFNX RETURN 00373 M00S00340.1ta +++| CHG SPACE 4,10 00374 M00S00341.1ta +++|** CHG - CONDITIONALLY HANG PP. 00375 M00S00342.1ta +++|* 00376 M00S00343.1ta +++|* ENTRY (A) = ERROR FLAG. 00377 M00S00344.1ta +++|* 00378 M00S00345.1ta +++|* EXIT (A) = ZERO. 00379 M00S00346.1ta +++|* 00380 M00S00347.1ta +++|* USES CM - CM+4. 00381 M00S00348.1ta +++|* 00382 M00S00349.1ta +++|* MACROS MONITOR. 00383 M00S00350.1ta +++| 00384 M00S00351.1ta +++| 00385 M00S00352.1ta +++| CHG SUBR ENTRY/EXIT 00386 M00S00353.1ta +++| STD CM+2 SET ERROR FLAG 00387 M00S00354.1ta +++| LDM CHG GET ADDRESS WHERE ERROR DETECTED 00388 M00S00355.1ta +++| STD CM+1 00389 M00S00356.1ta +++| MONITOR CHGM CONDITIONALLY HANG PP 00390 M00S00357.1ta +++| UJN CHGX RETURN 00391 M00S00358.1ta +++| DPT SPACE 4,10 00392 M00S00359.1ta +++|** DPT - DROP POTS. 00393 M00S00360.1ta +++|* 00394 M00S00361.1ta +++|* ENTRY (PP) = FIRST POT CHAIN TO BE DROPPED. 00395 M00S00362.1ta +++|* (TN) = TERMINAL NUMBER. 00396 M00S00363.1ta +++|* 00397 M00S00364.1ta +++|* EXIT MONITOR FUNCTION TO DROP POT(S) COMPLETE. 00398 M00S00365.1ta +++|* 00399 M00S00366.1ta +++|* USES T1, CM - CM+4. 00400 M00S00367.1ta +++|* 00401 M00S00368.1ta +++|* CALLS ITF. 00402 M00S00369.1ta +++| 00403 M00S00370.1ta +++| 00404 M00S00371.1ta +++| DPT SUBR ENTRY/EXIT 00405 M00S00372.1ta +++| LDN ZERL CLEAR REQUEST WORD 00406 M00S00373.1ta +++| CRD CM 00407 M00S00374.1ta +++| LDC VDPO DROP POTS 00408 M00S00375.1ta +++| STD CM 00409 M00S00376.1ta +++| LDD PP 00410 M00S00377.1ta +++| STD CM+3 00411 M00S00378.1ta +++| RJM ITF ISSUE *TSEM* FUNCTION 00412 M00S00379.1ta +++| UJN DPTX RETURN 00413 M00S00380.1ta +++| ERX SPACE 4,10,10 00414 M00S00381.1ta +++|** ERX - ERROR EXIT. 00415 M00S00382.1ta +++|* 00416 M00S00383.1ta +++|* EXIT COMPLETION BIT AND ERROR BIT SET IN VROT. 00417 M00S00384.1ta +++|* 00418 M00S00385.1ta +++|* USES CM+4. 00419 M00S00386.1ta +++|* 00420 M00S00387.1ta +++|* USES CN - CN+4. 00421 M00S00388.1ta +++|* 00422 M00S00389.1ta +++|* NOTE *ERX* IS ENTERED BY A RETURN JUMP TO ALLOW 00423 M00S00390.1ta +++|* SAVING THE ADDRESS AT WHICH THE ERROR OCCURRED. 00424 M00S00391.1ta +++| 00425 M00S00392.1ta +++| 00426 M00S00393.1ta +++| ERX CON 0 ENTRY / RETURN ADDRESS SAVED 00427 M00S00394.1ta +++| RJM STT GET TERMINAL TABLE ADDRESS 00428 M00S00395.1ta +++| ADK VROT 00429 M00S00396.1ta +++| CRD CN 00430 M00S00397.1ta +++| LDD CN+4 INSURE ERROR AND COMPLETION BIT SET 00431 M00S00398.1ta +++| LPC 3776 00432 M00S00399.1ta +++| LMC 4001 00433 M00S00400.1ta +++| STD CN+4 00434 M00S00401.1ta +++| RJM STT SET TERMINAL TABLE ADDRESS 00435 M00S00402.1ta +++| ADK VROT 00436 M00S00403.1ta +++| CWD CN 00437 M00S00404.1ta +++| LJM ITAX DROP PP 00438 M00S00405.1ta +++| ITF SPACE 4,10 00439 M00S00406.1ta +++|** ITF - ISSUE *TSEM* FUNCTION. 00440 M00S00407.1ta +++|* 00441 M00S00408.1ta +++|* ENTRY (CM - CM+4) = *TSEM* REQUEST. 00442 M00S00409.1ta +++|* 00443 M00S00410.1ta +++|* USES T1, CM - CM+4. 00444 M00S00411.1ta +++|* 00445 M00S00412.1ta +++|* MACROS DELAY, MONITOR, PAUSE. 00446 M00S00413.1ta +++| 00447 M00S00414.1ta +++| 00448 M00S00415.1ta +++| ITF SUBR ENTRY/EXIT 00449 M00S00416.1ta +++| LDD TN 00450 M00S00417.1ta +++| STD CM+4 00451 M00S00418.1ta +++| LDD MA 00452 M00S00419.1ta +++| CWD CM
| Line S00420 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00453 M01S00420.271l716 ---| ITF1 MONITOR TSEM
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00454 M01S00005.271l716 +++| ITF1 LDK ZERL 00455 M01S00006.271l716 +++| CRD CM 00456 M01S00007.271l716 +++| MONITOR TSEM 00457 M00S00421.1ta +++| LDD CM+1 00458 M00S00422.1ta +++| ZJN ITFX IF *IAF* INACCESSIBLE OR ERROR 00459 M00S00423.1ta +++| LMC 7777 00460 M00S00424.1ta +++| NJN ITFX IF REQUEST COMPLETE 00461 M00S00425.1ta +++| PAUSE ST 00462 M00S00426.1ta +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY 00463 M00S00427.1ta +++| STD T1 00464 M00S00428.1ta +++| ITF2 DELAY 00465 M00S00429.1ta +++| SOD T1 00466 M00S00430.1ta +++| ZJN ITF1 IF TIME TO REISSUE REQUEST 00467 M00S00431.1ta +++| UJN ITF2 CONTINUE TO DELAY 00468 M00S00432.1ta +++| MSR SPACE 4,10 00469 M00S00433.1ta +++|** MSR - MASS STORAGE READ ERROR PROCESSOR. 00470 M00S00434.1ta +++|* 00471 M00S00435.1ta +++|* EXIT TO RRF1 TO SET UP ERROR EXIT CONDITIONS. 00472 M00S00436.1ta +++| 00473 M00S00437.1ta +++| 00474 M00S00438.1ta +++| MSR SUBR ENTRY/EXIT 00475 M00S00439.1ta +++| UJN RRF1 SET EXIT
| Line S00440 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00476 M01S00440.271l716 ---| SPACE 4,15
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00477 M01S00008.271l716 +++| RRF SPACE 4,20 00478 M00S00441.1ta +++|** RRF - READ ROLLOUT FILE. 00479 M00S00442.1ta +++|* 00480 M00S00443.1ta +++|* ENTRY (A) = 0, READ SYSTEM SECTOR AND CPA SECTOR. 00481 M00S00444.1ta +++|* (A) = CPSN, READ CPA SECTOR ONLY.
| Line S00445 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00482 M01S00445.271l716 ---|* (CN - CN+1) = ROLLOUT FILE EQUIPMENT AND TRACK.
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00483 M01S00009.271l716 +++|* (CN - CN+1) = ROLLOUT FILE ADDRESS. 00484 M00S00446.1ta +++|* 00485 M00S00447.1ta +++|* EXIT (A) = 0, IF NO ROLLOUT FILE OR IF READ ERROR 00486 M00S00448.1ta +++|* ENCOUNTERED.
| Line S00449 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00487 M01S00449.271l716 ---|* = 1, IF ROLLOUT FILE READ.
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00450.1ta +++|*
| Line S00451 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00492 M01S00451.271l716 ---|* USES T1 - T7.
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00493 M01S00013.271l716 +++|* USES T5, T6, T7. 00494 M00S00452.1ta +++|* 00495 M00S00453.1ta +++|* CALLS RNS, RSS. 00496 M00S00454.1ta +++|*
| Line S00455 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00497 M01S00455.271l716 ---|* MACROS ENDMS, SETMS.
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00498 M01S00014.271l716 +++|* MACROS ENDMS, SETMS. 00499 M00S00456.1ta +++|
| Line S00457 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00500 M01S00457.271l716 ---|
| Line S00015 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00501 M01S00015.271l716 +++| 00502 M00S00458.1ta +++| RRF SUBR ENTRY/EXIT 00503 M00S00459.1ta +++| STD T7 SET FIRST SECTOR TO READ 00504 M00S00460.1ta +++| LDD CN+1 SET TRACK 00505 M00S00461.1ta +++| STD T6 00506 M00S00462.1ta +++| ZJN RRFX IF EMPTY ROLLOUT FILE 00507 M00S00463.1ta +++| LDD CN 00508 M00S00464.1ta +++| STD T5 SET EQUIPMENT 00509 M00S00465.1ta +++| SETMS IO 00510 M00S00466.1ta +++| LDD T7 00511 M00S00467.1ta +++| NJN RRF2 IF NOT STARTING WITH SYSTEM SECTOR 00512 M00S00468.1ta +++| 00513 M00S00469.1ta +++|* READ SYSTEM SECTOR. 00514 M00S00470.1ta +++| 00515 M00S00471.1ta +++| RJM RSS READ SYSTEM SECTOR
| Line S00472 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00516 M01S00472.271l716 ---| ZJN RRF2 IF NO ERROR
| Line S00016 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00473.1ta +++| RRF1 LDN 0 00524 M00S00474.1ta +++| UJN RRFX RETURN, ROLLOUT FILE BAD 00525 M00S00475.1ta +++| 00526 M00S00476.1ta +++|* READ CONTROL POINT AREA SECTOR. 00527 M00S00477.1ta +++| 00528 M00S00478.1ta +++| RRF2 LDC CBUF READ FIRST SECTOR OF CPA 00529 M00S00479.1ta +++| RJM RNS READ NEXT SECTOR 00530 M00S00480.1ta +++| ENDMS 00531 M00S00481.1ta +++| LDN 1 INDICATE GOOD ROLLOUT FILE
| Line S00482 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00532 M01S00482.271l716 ---| UJN RRFX EXIT
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00533 M01S00022.271l716 +++| LJM RRFX RETURN 00534 M00S00483.1ta +++| STT SPACE 4,10,10 00535 M00S00484.1ta +++|** STT - SET TERMINAL TABLE ADDRESS. 00536 M00S00485.1ta +++|* 00537 M00S00486.1ta +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS. 00538 M00S00487.1ta +++|* 00539 M00S00488.1ta +++|* EXIT (A) = TERMINAL TABLE ADDRESS 00540 M00S00489.1ta +++| 00541 M00S00490.1ta +++| 00542 M00S00491.1ta +++| STT SUBR ENTRY/EXIT 00543 M00S00492.1ta +++| LDD TT 00544 M00S00493.1ta +++| SHN 14 00545 M00S00494.1ta +++| LMD TT+1 00546 M00S00495.1ta +++| UJN STTX 00547 M00S00496.1ta +++| SPACE 4,10 00548 M00S00497.1ta +++|* COMMON DECKS. 00549 M00S00498.1ta +++| 00550 M00S00499.1ta +++| 00551 M00S00500.1ta +++|*CALL COMPC2D 00552 M00S00501.1ta +++| IFP$ SET 1 ASSEMBLE REMOTE INITIALIZATION 00553 M00S00502.1ta +++| QFT$ SET 1 ASSEMBLE QFT ADDRESSING 00554 M00S00503.1ta +++| EJT$ SET 1 ASSEMBLE EJT ADDRESSING 00555 M00S00504.1ta +++|*CALL COMPGFP
| Line S00023 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
M02 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00556 M02S00023.273l780 ---|*CALL COMPPCP 00557 M00S00505.1ta ---| MSR$ EQU 0 DEFINE PROGRAM PROCESSED DISK ERRORS 00558 M00S00506.1ta ---|*CALL COMPRNS 00559 M00S00507.1ta ---|*CALL COMPRSS 00560 M00S00508.1ta ---|*CALL COMPSPA 00561 M00S00509.1ta ---|*CALL COMPSTA 00562 M00S00510.1ta ---|*CALL COMPUPP 00563 M00S00511.1ta ---| USE OVERLAY 00564 M00S00512.1ta ---| OVL EQU *+10 00565 M00S00513.1ta ---| SPACE 4,10 00566 M00S00514.1ta ---| IFP HERE 00567 M00S00515.1ta ---| INI TITLE INITIALIZATION. 00568 M00S00516.1ta ---|** INI - INITIALIZE *1TA*. 00569 M00S00517.1ta ---| 00570 M00S00518.1ta ---| 00571 M00S00519.1ta ---| INI BSS 0 00572 M00S00520.1ta ---| RJM IFP INITIALIZE *COMPGFP*
| Line S00521 Modification History | |
|---|---|
M01 (Removed by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00573 M01S00521.271l716 ---| LDD IR+2 SET COMPLETION ADDRESS
| Line S00024 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 00578 M02S00028.273l780 ---| IPCP INITIALIZE *COMPPCP*
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 273l780 |
Seq # *Modification Id* Act ----------------------------+ 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
| Line S00029 Modification History | |
|---|---|
M01 (Added by) | 271l716 |
Seq # *Modification Id* Act ----------------------------+ 00589 M01S00029.271l716 +++| LDD IR+2 SET COMPLETION ADDRESS 00590 M00S00522.1ta +++| SHN 6 00591 M00S00523.1ta +++| ADD RA 00592 M00S00524.1ta +++| SHN 6 00593 M00S00525.1ta +++| ADD IR+3 00594 M00S00526.1ta +++| STM ITAD+1 00595 M00S00527.1ta +++| SHN -14 00596 M00S00528.1ta +++| RAM ITAD 00597 M00S00529.1ta +++| ERRNG *-OVL-4 *OVL* OVERLAYS PRESET CODE 00598 M00S00530.1ta +++| LDN 0 CLEAR OVERLAY LOAD INDICATOR 00599 M00S00531.1ta +++| STM OVL-4 00600 M00S00532.1ta +++| LDD IR+2 SET POT POINTER FOR REQUEST QUEUE 00601 M00S00533.1ta +++| SHN 6 00602 M00S00534.1ta +++| MJN INI1 IF ONLY 1 FUNCTION 00603 M00S00535.1ta +++| 00604 M00S00536.1ta +++|* PROCESS MULTIPLE FUNCTION CALL. 00605 M00S00537.1ta +++| 00606 M00S00538.1ta +++| LDD IR+4 00607 M00S00539.1ta +++| STD PP 00608 M00S00540.1ta +++| STM ITAA 00609 M00S00541.1ta +++| RJM SPA SET POT ADDRESS OF FIRST POT 00610 M00S00542.1ta +++| STM ITAB+1 00611 M00S00543.1ta +++| SHN -14 00612 M00S00544.1ta +++| RAM ITAB 00613 M00S00545.1ta +++| LJM ITA1 PROCESS MULTIPLE FUNCTION CALL 00614 M00S00546.1ta +++| 00615 M00S00547.1ta +++|* PROCESS SINGLE FUNCTION CALL. 00616 M00S00548.1ta +++| 00617 M00S00549.1ta +++| INI1 LDC -4000 CLEAR FUNCTION FLAG 00618 M00S00550.1ta +++| RAD IR+2 00619 M00S00551.1ta +++| LDC LJMI SET TO DROP PP 00620 M00S00552.1ta +++| STM ITAX 00621 M00S00553.1ta +++| LDC DPP 00622 M00S00554.1ta +++| STM ITAX+1 00623 M00S00555.1ta +++| LJM ITA4 PROCESS SINGLE FUNCTION CALL. 00624 M00S00556.1ta +++| SPACE 4,10 00625 M00S00557.1ta +++|** TEST FOR OVERFLOW. 00626 M00S00558.1ta +++| 00627 M00S00559.1ta +++| 00628 M00S00560.1ta +++| OVERFLOW PPFW,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 00629 M00S00561.1ta +++| 00630 M00S00562.1ta +++| USE OVERFLOW 00631 M00S00563.1ta +++| ERRNG CBUF-* OVERFLOW INTO *CBUF* 00632 M00S00564.1ta +++| TFL OVERLAY (ADJUST TIMESHARING EXECUTIVE FIELD LENGTH.) 00633 M00S00565.1ta +++| TFL SPACE 4,10,10 00634 M00S00566.1ta +++|**** TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH. 00635 M00S00567.1ta +++|* 00636 M00S00568.1ta +++|*T, IR 24/ ,12/ 1,6/ ,18/ FL
Figure IR
00637 M00S00569.1ta +++|* 00638 M00S00570.1ta +++|* FL FIELD LENGTH REQUESTED. 00639 M00S00571.1ta +++| TFL SPACE 4,10,10 00640 M00S00572.1ta +++|** TFL - ADJUST TIMESHARING EXECUTIVE FIELD LENGTH. 00641 M00S00573.1ta +++|* 00642 M00S00574.1ta +++|* USES WC, CM - CM+4, IR - IR+4, T2 - T7. 00643 M00S00575.1ta +++|* 00644 M00S00576.1ta +++|* CALLS RSI. 00645 M00S00577.1ta +++| 00646 M00S00578.1ta +++| 00647 M00S00579.1ta +++| ENTRY TFL 00648 M00S00580.1ta +++| LDD IR+3 00649 M00S00581.1ta +++| SHN 14 00650 M00S00582.1ta +++| ADD IR+4 00651 M00S00583.1ta +++| ADN 77 00652 M00S00584.1ta +++| SHN -6 00653 M00S00585.1ta +++| RJM RSI REQUEST STORAGE INCREASE/DECREASE 00654 M00S00586.1ta +++| NJN TFL2 IF STORAGE INCREASE NOT AVAILABLE 00655 M00S00587.1ta +++| LDN ZERL 00656 M00S00588.1ta +++| CRD CM 00657 M00S00589.1ta +++| LDD RA RESET TOTAL POTS AVAILABLE AND CLEAR FLAG 00658 M00S00590.1ta +++| SHN 6 00659 M00S00591.1ta +++| ADN VCPL 00660 M00S00592.1ta +++| CRD T2 00661 M00S00593.1ta +++| ADN VPAL-VCPL 00662 M00S00594.1ta +++| CWD T2 00663 M00S00595.1ta +++| SBN VPAL-VCPL 00664 M00S00596.1ta +++| CWD CM INDICATE FL CHANGE COMPLETE 00665 M00S00597.1ta +++| LDD CP READ FIELD LENGTH CONTROL WORD 00666 M00S00598.1ta +++| ADN FLCW 00667 M00S00599.1ta +++| CRD CM 00668 M00S00600.1ta +++| LDD FL SET CURRENT FL AS RFL 00669 M00S00601.1ta +++| STD CM+1 00670 M00S00602.1ta +++| LDD CP 00671 M00S00603.1ta +++| ADN FLCW 00672 M00S00604.1ta +++| CWD CM 00673 M00S00605.1ta +++| UJN TFL3 EXIT 00674 M00S00606.1ta +++| 00675 M00S00607.1ta +++| TFL2 LDD IA SET PP RECALL 00676 M00S00608.1ta +++| CRD IR 00677 M00S00609.1ta +++| LDN ZERL 00678 M00S00610.1ta +++| CRD CM 00679 M00S00611.1ta +++| LDD MA 00680 M00S00612.1ta +++| CWD IR 00681 M00S00613.1ta +++| ADN 1 00682 M00S00614.1ta +++| CWD CM 00683 M00S00615.1ta +++| LDC 4000 SET TO NOT DROP PP 00684 M00S00616.1ta +++| STD CM+1 00685 M00S00617.1ta +++| MONITOR RECM 00686 M00S00618.1ta +++| TFL3 LJM ITAX EXIT 00687 M00S00619.1ta +++| SPACE 4,10 00688 M00S00620.1ta +++|* COMMON DECKS. 00689 M00S00621.1ta +++| 00690 M00S00622.1ta +++| 00691 M00S00623.1ta +++|*CALL COMPRSI 00692 M00S00624.1ta +++| SPACE 4,10 00693 M00S00625.1ta +++|** TEST FOR OVERFLOW. 00694 M00S00626.1ta +++| 00695 M00S00627.1ta +++| 00696 M00S00628.1ta +++| OVERFLOW OVL,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 00697 M00S00629.1ta +++| CIQ OVERLAY (CREATE INPUT QUEUE ENTRY.) 00698 M00S00630.1ta +++| CIQ SPACE 4,20 00699 M00S00631.1ta +++|** CIQ - CREATE INPUT QUEUE ENTRY. 00700 M00S00632.1ta +++|* 00701 M00S00633.1ta +++|*T, IR 24/ ,12/ FC,12/ TN,12/ PP
Figure IR
00702 M00S00634.1ta +++|* 00703 M00S00635.1ta +++|* FC = FUNCTION CODE. 00704 M00S00636.1ta +++|* TN = TERMINAL NUMBER. 00705 M00S00637.1ta +++|* PP = POT POINTER LOGIN PARAMETERS. 00706 M00S00638.1ta +++|* 00707 M00S00639.1ta +++|* *1TA* WILL CREATE AN INPUT FILE AND A *QFT* 00708 M00S00640.1ta +++|* ENTRY FOR A LOGIN. THE INPUT FILE WILL CONTAIN 00709 M00S00641.1ta +++|* PRELIMINARY CONTROL CARDS FOR LOGIN. PARAMETERS 00710 M00S00642.1ta +++|* ON THE CARDS ARE TAKEN FROM *VALIDUZ* FILE AND ARE 00711 M00S00643.1ta +++|* USED FOR DEFAULT VALUES. 00712 M00S00644.1ta +++|* 00713 M00S00645.1ta +++|* IF NO INPUT QUEUE ENTRY CAN BE CREATED BECAUSE THE 00714 M00S00646.1ta +++|* INFORMATION COULD NOT BE WRITTEN TO DISK (DUE TO A 00715 M00S00647.1ta +++|* MASS STORAGE ERROR), AN ERROR CODE IS RETURNED TO *IAF*. 00716 M00S00648.1ta +++| 00717 M00S00649.1ta +++| 00718 M00S00650.1ta +++| ENTRY CIQ ENTRY 00719 M00S00651.1ta +++| LDC CSS0.1 INITIALIZE INSTRUCTION MODIFICATIONS 00720 M00S00652.1ta +++| STM CSSG 00721 M00S00653.1ta +++| LDC LDNI+2 00722 M00S00654.1ta +++| STM CIQB 00723 M00S00655.1ta +++| RJM PLI PRE LOG IN USER 00724 M00S00656.1ta +++| LDN 0 CLEAR QFT ORDINAL 00725 M00S00657.1ta +++| STD QF 00726 M00S00658.1ta +++| LDC 101 CLEAR SECTOR 00727 M00S00659.1ta +++| STD T1 00728 M00S00660.1ta +++| LDC BFMS 00729 M00S00661.1ta +++| RJM CBU CLEAR BUFFER
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 00730 M01S00002.1ta10 +++| RJM CEF CHECK EJT FULL 00731 M00S00662.1ta +++| CIQ0 RJM CSS CREATE SYSTEM SECTOR 00732 M00S00663.1ta +++| RJM CIS CREATE INPUT SECTOR 00733 M00S00664.1ta +++| 00734 M00S00665.1ta +++|* QUEUE FILE - WRITE QFT ENTRY. 00735 M00S00666.1ta +++| 00736 M00S00667.1ta +++| LDN QFTE*5-1 SAVE QFT ENTRY 00737 M00S00668.1ta +++| STD T4 00738 M00S00669.1ta +++| CIQ1 LDM IOSS,T4 00739 M00S00670.1ta +++| STM CIQA,T4 00740 M00S00671.1ta +++| SOD T4 00741 M00S00672.1ta +++| PJN CIQ1 IF MORE TO MOVE 00742 M00S00673.1ta +++| RJM WDI WRITE DISK INFORMATION 00743 M00S00674.1ta +++| PJN CIQ2 IF NO MASS STORAGE ERROR ENCOUNTERED 00744 M00S00675.1ta +++| 00745 M00S00676.1ta +++|* MASS STORAGE ERROR ENCOUNTERED - RELEASE TRACKS AND RETRY. 00746 M00S00677.1ta +++| 00747 M00S00678.1ta +++| LDN ZERL DROP TRACKS 00748 M00S00679.1ta +++| CRD CM 00749 M00S00680.1ta +++| LDD T5 EST ORDINAL TO DROP 00750 M00S00681.1ta +++| STD CM+1 00751 M00S00682.1ta +++| LDD T6 TRACK TO DROP 00752 M00S00683.1ta +++| STD CM+2 00753 M00S00684.1ta +++| MONITOR DTKM 00754 M00S00685.1ta +++| SOM CIQB 00755 M00S00686.1ta +++| CIQB LDN 2 00756 M00S00687.1ta +++|* LDN 1 (AFTER FIRST TRY FAILED) 00757 M00S00688.1ta +++|* LDN 0 (AFTER SECOND TRY FAILED) 00758 M00S00689.1ta +++| NJP CIQ0 IF RETRY ATTEMPT NEEDED 00759 M00S00690.1ta +++| 00760 M00S00691.1ta +++|* RETURN QFT ENTRY TO POOL. RETURN MASS STORAGE ERROR CODE 00761 M00S00692.1ta +++|* CODE TO *IAFEX*. 00762 M00S00693.1ta +++| 00763 M00S00694.1ta +++| LDD QF QFT ORDINAL 00764 M00S00695.1ta +++| STD CM+1 00765 M00S00696.1ta +++| LDN PQFT ENTRY IS IN QFT 00766 M00S00697.1ta +++| STD CM+2 00767 M00S00698.1ta +++| MONITOR MTRM 00768 M00S00699.1ta +++| LDN 20 MASS STORAGE ERROR ENCOUNTERED 00769 M00S00700.1ta +++| STD CN+4 00770 M00S00701.1ta +++| RJM SPA 00771 M00S00702.1ta +++| ADN VUTA 00772 M00S00703.1ta +++| CWD CN 00773 M00S00704.1ta +++| RJM ERX ERROR EXIT (EXIT TO *ITAX*) 00774 M00S00705.1ta +++| 00775 M00S00706.1ta +++| CIQ2 LDN QFTE 00776 M00S00707.1ta +++| STD T4 00777 M00S00708.1ta +++| SFA QFT,QF 00778 M00S00709.1ta +++| CWM CIQA,T4 WRITE QFT ENTRY 00779 M00S00710.1ta +++| 00780 M00S00711.1ta +++|* ISSUE *ABLQ* ACCOUNTING MESSAGE. 00781 M00S00712.1ta +++|
| Line S00713 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 00782 M01S00713.ns2663 ---| LDC 3RBLQ ISSUE *ABLQ* MESSAGE 00783 M01S00714.ns2663 ---| RJM IAM ISSUE ACCOUNT MESSAGE
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00715.1ta +++| 00790 M00S00716.1ta +++|* REQUEST SCHEDULER. 00791 M00S00717.1ta +++| 00792 M00S00718.1ta +++| LDN ZERL CLEAR PARAMETERS 00793 M00S00719.1ta +++| CRD CM 00794 M00S00720.1ta +++| AOD CM+2 SET QFT SCHEDULING OPTION 00795 M00S00721.1ta +++| MONITOR RSJM 00796 M00S00722.1ta +++| LJM ITAX TERMINATE 00797 M00S00723.1ta +++| 00798 M00S00724.1ta +++| CIQA BSS QFTE*5 QFT ENTRY BUFFER 00799 M00S00725.1ta +++| CBU SPACE 4,10 00800 M00S00726.1ta +++|** CBU - CLEAR BUFFER. 00801 M00S00727.1ta +++|* 00802 M00S00728.1ta +++|* ENTRY (A) = FWA OF AREA TO CLEAR. 00803 M00S00729.1ta +++|* (T1) = NUMBER OF CM WORDS TO CLEAR. 00804 M00S00730.1ta +++|* 00805 M00S00731.1ta +++|* EXIT BUFFER CLEARED. 00806 M00S00732.1ta +++|* 00807 M00S00733.1ta +++|* USES T1, T2. 00808 M00S00734.1ta +++| 00809 M00S00735.1ta +++| 00810 M00S00736.1ta +++| CBU SUBR ENTRY/EXIT 00811 M00S00737.1ta +++| STM CBUA SAVE ADDRESS TO START CLEARING 00812 M00S00738.1ta +++| LDN 7 00813 M00S00739.1ta +++| STD T2 00814 M00S00740.1ta +++| LDD OA CLEAR OUTPUT REGISTER AND MESSAGE BUFFER 00815 M00S00741.1ta +++| CWM CBUB,T2 00816 M00S00742.1ta +++| CBU1 LCN 7 00817 M00S00743.1ta +++| RAD T1 00818 M00S00744.1ta +++| PJN CBU2 IF SEVEN OR MORE WORDS LEFT TO CLEAR 00819 M00S00745.1ta +++| RAD T2 ADJUST WORD COUNT 00820 M00S00746.1ta +++| CBU2 LDD OA 00821 M00S00747.1ta +++| CRM *,T2 00822 M00S00748.1ta +++| CBUA EQU *-1 00823 M00S00749.1ta +++| LDN 7*5 ADVANCE BUFFER ADDRESS 00824 M00S00750.1ta +++| RAM CBUA 00825 M00S00751.1ta +++| LDD T1 00826 M00S00752.1ta +++| ZJN CBUX IF COMPLETE 00827 M00S00753.1ta +++| SHN 21-13 00828 M00S00754.1ta +++| PJN CBU1 IF NOT COMPLETE 00829 M00S00755.1ta +++| UJN CBUX RETURN 00830 M00S00756.1ta +++| 00831 M00S00757.1ta +++| CBUB BSSZ 7*5
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00758.1ta +++| CIS SPACE 4,10 00850 M00S00759.1ta +++|** CIS - CREATE INPUT SECTOR. 00851 M00S00760.1ta +++|* 00852 M00S00761.1ta +++|* ENTRY SYSTEM SECTOR IN BFMS. 00853 M00S00762.1ta +++|* 00854 M00S00763.1ta +++|* EXIT INPUT CARDS CREATED IN FBUF. 00855 M00S00764.1ta +++|* (WC) = CM WORD COUNT IN SECTOR 00856 M00S00765.1ta +++|* 00857 M00S00766.1ta +++|* USES T1, T3, WC. 00858 M00S00767.1ta +++|* 00859 M00S00768.1ta +++|* CALLS ACS, ANS, CBF, DV5, SEL. 00860 M00S00769.1ta +++| 00861 M00S00770.1ta +++| 00862 M00S00771.1ta +++| CIS SUBR ENTRY/EXIT 00863 M00S00772.1ta +++| LDC 101 CLEAR SECTOR 00864 M00S00773.1ta +++| STD T1 00865 M00S00774.1ta +++| LDC FBUF 00866 M00S00775.1ta +++| RJM CBU CLEAR BUFFER 00867 M00S00776.1ta +++| LDC FBUF+2 SET BUFFER ADDRESS 00868 M00S00777.1ta +++| STD T1 00869 M00S00778.1ta +++| LDC JNSS SET UJN HASH 00870 M00S00779.1ta +++| RJM ACS 00871 M00S00780.1ta +++| LDC CISG SET PERIOD 00872 M00S00781.1ta +++| RJM ACS 00873 M00S00782.1ta +++| RJM SEL SET EOL 00874 M00S00783.1ta +++| LDC CISH SET USER CARD 00875 M00S00784.1ta +++| RJM ACS 00876 M00S00785.1ta +++| LDC CISB SET USERNAME 00877 M00S00786.1ta +++| RJM ACS 00878 M00S00787.1ta +++| LDC CISF SET COMMA 00879 M00S00788.1ta +++| RJM ACS 00880 M00S00789.1ta +++| LDC CISF SET COMMA 00881 M00S00790.1ta +++| RJM ACS 00882 M00S00791.1ta +++| LDC CISD SET FAMILY NAME 00883 M00S00792.1ta +++| RJM ACS 00884 M00S00793.1ta +++| LDC CISG SET PERIOD 00885 M00S00794.1ta +++| RJM ACS 00886 M00S00795.1ta +++| RJM SEL SET EOL 00887 M00S00796.1ta +++| STM CISA STORE PLACE TO CONTINUE ASSEMBLY 00888 M00S00797.1ta +++| LDN CISEL 00889 M00S00798.1ta +++| RJM DV5 WORD COUNT TO TRANSFER 00890 M00S00799.1ta +++| STD T2 00891 M00S00800.1ta +++| LDD MA 00892 M00S00801.1ta +++| CWM CISE,T2 00893 M00S00802.1ta +++| SBD T2 00894 M00S00803.1ta +++| CRM *,T2 00895 M00S00804.1ta +++| CISA EQU *-1 00896 M00S00805.1ta +++| LDD T1 00897 M00S00806.1ta +++| ADN CISEL 00898 M00S00807.1ta +++| ADC -FBUF+2 00899 M00S00808.1ta +++| RJM DV5 DIVIDE BY 5 00900 M00S00809.1ta +++| STD WC 00901 M00S00810.1ta +++| LJM CISX RETURN 00902 M00S00811.1ta +++| 00903 M00S00812.1ta +++| CISB BSS 5 USERNAME 00904 M00S00813.1ta +++| CISC BSS 5 PASSWORD 00905 M00S00814.1ta +++| CISD BSS 5 FAMILY NAME 00906 M00S00815.1ta +++| CISE VFD 60/10L$RECOVER,O 00907 M00S00816.1ta +++| VFD 60/4LP=T. 00908 M00S00817.1ta +++| CISEL EQU *-CISE 00909 M00S00818.1ta +++| CISF CON 1L, COMMA 00910 M00S00819.1ta +++| CISG CON 1L. PERIOD 00911 M00S00820.1ta +++| CISH VFD 36/5LUSER, 00912 M00S00821.1ta +++| CSS SPACE 4,30 00913 M00S00822.1ta +++|** CSS - CREATE SYSTEM SECTOR. 00914 M00S00823.1ta +++|* 00915 M00S00824.1ta +++|* CREATE SYSTEM SECTOR FOR INPUT FILE. 00916 M00S00825.1ta +++|* CREATE AN *QFT* ENTRY FOR THE NEW FILE. 00917 M00S00826.1ta +++|* 00918 M00S00827.1ta +++|* ENTRY (CISB) = CREATION USER NUMBER. 00919 M00S00828.1ta +++|* (CISD) = CREATE FAMILY NAME. 00920 M00S00829.1ta +++|* (ABUF = ABUF+15) = VALIDATION ACCOUNT BLOCK. 00921 M00S00830.1ta +++|* (IR+3) = TERMINAL NUMBER. 00922 M00S00831.1ta +++|* (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB. 00923 M00S00832.1ta +++|* (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB. 00924 M00S00833.1ta +++|* (CSSE) = SERVICE CLASS. 00925 M00S00834.1ta +++|* (QF) = 0, IF INITIAL *CSS* CALL (NO QFT ENTRY 00926 M00S00835.1ta +++|* ASSIGNED). 00927 M00S00836.1ta +++|* = QFT ORDINAL OF ASSIGNED ENTRY, IF INITIAL 00928 M00S00837.1ta +++|* CALL TO *CSS* RESERVED AN ENTRY BUT THE 00929 M00S00838.1ta +++|* SYSTEM SECTOR COULD NOT BE WRITTEN DUE TO 00930 M00S00839.1ta +++|* AN I/O ERROR. 00931 M00S00840.1ta +++|* 00932 M00S00841.1ta +++|* EXIT (T5) = EQUIPMENT. 00933 M00S00842.1ta +++|* (T6) = TRACK. 00934 M00S00843.1ta +++|* (T7) = SECTOR. 00935 M00S00844.1ta +++|* (QF) = QFT ORDINAL OF ASSIGNED ENTRY. 00936 M00S00845.1ta +++|* *QFT* ENTRY IN IOSS. 00937 M00S00846.1ta +++|* SYSTEM SECTOR CREATED IN BFMS. 00938 M00S00847.1ta +++|* CORRECT EOI SET IN TRT. 00939 M00S00848.1ta +++|*
| Line S00849 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00940 M01S00849.1ta12 ---|* USES CM - CM+4, CN, PP, T1 - T7.
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00941 M01S00001.1ta12 +++|* USES CM - CM+4, FN - FN+4, QF, T1, T2, T5, T6. 00942 M00S00850.1ta +++|*
| Line S00851 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00943 M01S00851.1ta12 ---|* CALLS CBU, CMI, CTE, ECI, GBN, RFI, STT, TLI.
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 00944 M01S00002.1ta12 +++|* CALLS CTE, GNB, RFI, RJC, SEC, STT, TLI. 00945 M00S00852.1ta +++|* 00946 M00S00853.1ta +++|* MACROS MONITOR. 00947 M00S00854.1ta +++| 00948 M00S00855.1ta +++| 00949 M00S00856.1ta +++| CSS SUBR ENTRY/EXIT 00950 M00S00857.1ta +++| LDN ZERL CLEAR PARAMETERS 00951 M00S00858.1ta +++| CRD CM 00952 M00S00859.1ta +++| LDN INPS SELECT INPUT DEVICE 00953 M00S00860.1ta +++| STD CM+2 00954 M00S00861.1ta +++| LDM CSSC SELECT ON LOWER ACCESS LEVEL OF JOB 00955 M00S00862.1ta +++| ADN 40 00956 M00S00863.1ta +++| SHN 6 00957 M00S00864.1ta +++| STD CM+3 00958 M00S00865.1ta +++| LDN 3 SET NUMBER OF SECTORS 00959 M00S00866.1ta +++| STD CM+4 00960 M00S00867.1ta +++| MONITOR RTCM ASSIGN MASS STORAGE SPACE 00961 M00S00868.1ta +++| LDD CM+1 SET EQUIPMENT 00962 M00S00869.1ta +++| STD T5 00963 M00S00870.1ta +++| LDD CM+4 SET TRACK 00964 M00S00871.1ta +++| STD T6 00965 M00S00872.1ta +++| NJN CSS0 IF TRACK ASSIGNED 00966 M00S00873.1ta +++| LDD QF QFT ORDINAL 00967 M00S00874.1ta +++| ZJN CSS1 IF NO QFT ENTRY RESERVED 00968 M00S00875.1ta +++| STD CM+1 00969 M00S00876.1ta +++| LDN PQFT ENTRY IS IN QFT 00970 M00S00877.1ta +++| STD CM+2 00971 M00S00878.1ta +++| MONITOR MTRM RETURN QFT ENTRY TO POOL 00972 M00S00879.1ta +++|* LDN 0 00973 M00S00880.1ta +++| UJN CSS1 SET ERROR STATUS 00974 M00S00881.1ta +++| 00975 M00S00882.1ta +++| CSS0 LJM CSS0.1 REQUEST QFT ENTRY 00976 M00S00883.1ta +++|* LJM CSS2.1 (QFT ENTRY PREVIOUSLY REQUESTED/ASSIGNED) 00977 M00S00884.1ta +++| CSSG EQU *-1 00978 M00S00885.1ta +++| 00979 M00S00886.1ta +++|* REQUEST *QFT* ENTRY. 00980 M00S00887.1ta +++| 00981 M00S00888.1ta +++| CSS0.1 LDN ZERL CLEAR FIRST WORD VALUE 00982 M00S00889.1ta +++| CRD CM+3 00983 M00S00890.1ta +++| LDN 7 00984 M00S00891.1ta +++| STD CM+7 SET INTERLOCK BIT 00985 M00S00892.1ta +++| LDN PQFT GET QFT ENTRY WITH JSN 00986 M00S00893.1ta +++| RJM CTE CREATE TABLE ENTRY 00987 M00S00894.1ta +++| NJN CSS2 IF QFT NOT FULL 00988 M00S00895.1ta +++| LDN ZERL CLEAR PARAMETERS 00989 M00S00896.1ta +++| CRD CM 00990 M00S00897.1ta +++| LDD T5 SET EQUIPMENT AND TRACK TO DROP 00991 M00S00898.1ta +++| STD CM+1 00992 M00S00899.1ta +++| LDD T6 00993 M00S00900.1ta +++| STD CM+2 00994 M00S00901.1ta +++| MONITOR DTKM DROP TRACKS 00995 M00S00902.1ta +++| LDN 40 FLAG *SYSTEM FULL* ERROR
| Line S00903 Modification History | |
|---|---|
M01 (Removed by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 00996 M01S00903.1ta10 ---| CSS1 LJM PLI7 SET ERROR STATUS
| Line S00020 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 00997 M01S00020.1ta10 +++| CSS1 RJM SEC SET ERROR CODE (NO RETURN) 00998 M00S00904.1ta +++| 00999 M00S00905.1ta +++|* FORMAT SYSTEM SECTOR AND *QFT* ENTRY. 01000 M00S00906.1ta +++| 01001 M00S00907.1ta +++| CSS2 CRM IOSS,ON READ INTO SYSTEM SECTOR QFT 01002 M00S00908.1ta +++| SBN 1
| Line S00909 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01003 M01S00909.ns2663 ---| CRM CJSS,ON 01004 M01S00910.ns2663 ---| SBN 1 01005 M00S00911.1ta ---| CRM OJSS,ON 01006 M00S00912.1ta ---| LDC CSS2.1 BYPASS FORMATTING ON SUBSEQUENT CALLS 01007 M00S00913.1ta ---| STM CSSG 01008 M00S00914.1ta ---| LDD CM+1 SAVE QFT ORDINAL 01009 M00S00915.1ta ---| STD QF 01010 M00S00916.1ta ---| STM GQSS
| Line S00012 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00917.1ta +++| LDN 0 01018 M01S00018.ns2663 +++| STM CJSS+2 01019 M00S00918.1ta +++| STM PRSS 01020 M00S00919.1ta +++| RJM STT GET TERMINAL TABLE ADDRESS 01021 M00S00920.1ta +++| ADK VFST 01022 M00S00921.1ta +++| CRD CM 01023 M00S00922.1ta +++| LDM IOSS ADD JSN TO *VFST* 01024 M00S00923.1ta +++| STD CM 01025 M00S00924.1ta +++| LDM IOSS+1 01026 M00S00925.1ta +++| STD CM+1 01027 M00S00926.1ta +++| RJM STT 01028 M00S00927.1ta +++| ADK VFST 01029 M00S00928.1ta +++| CWD CM 01030 M00S00929.1ta +++| CSS2.1 LDK RTCL SET ENTRY TIME 01031 M00S00930.1ta +++| CRD CM 01032 M00S00931.1ta +++| LDD CM 01033 M00S00932.1ta +++| STM IOSS+ENTQ*5+3 01034 M00S00933.1ta +++| LDD CM+1 01035 M00S00934.1ta +++| STM IOSS+ENTQ*5+4 01036 M00S00935.1ta +++| LDD T6 SET TRACK 01037 M00S00936.1ta +++| STM IOSS+ENTQ*5+1 01038 M00S00937.1ta +++| LDD T5 SET EQUIPMENT 01039 M00S00938.1ta +++| STM IOSS+ENTQ*5 01040 M00S00939.1ta +++| LDC NOQF*100 SET QUEUE FILE TYPE 01041 M00S00940.1ta +++| STM IOSS+JSNQ*5+4 01042 M00S00941.1ta +++| LDC ** 01043 M00S00942.1ta +++| CSSE EQU *-1 (SERVICE CLASS TO ASSIGN) 01044 M00S00943.1ta +++| SHN 6 01045 M00S00944.1ta +++| ADN IAOT SET ORIGIN TYPE 01046 M00S00945.1ta +++| STM IOSS+SCLQ*5 01047 M00S00946.1ta +++| LDN PDTL SET PACKED DATE AND TIME 01048 M00S00947.1ta +++| CRD CM 01049 M00S00948.1ta +++| LDD CM+2 01050 M00S00949.1ta +++| STM CDSS+2 01051 M00S00950.1ta +++| LDD CM+3 01052 M00S00951.1ta +++| STM CDSS+3 01053 M00S00952.1ta +++| LDD CM+4 01054 M00S00953.1ta +++| STM CDSS+4 01055 M00S00954.1ta +++| LDN IPRL SET DEFAULT KEYPUNCH MODE 01056 M00S00955.1ta +++| CRD CM 01057 M00S00956.1ta +++| LDD CM+2 01058 M00S00957.1ta +++| SHN -13 01059 M00S00958.1ta +++| STM JFSS 01060 M00S00959.1ta +++| LDN 3 SET FLAGS - FILE IN ACTIVE QUEUE 01061 M00S00960.1ta +++| STM FGSS 01062 M00S00961.1ta +++| LDC 2RIN SET DISPOSITION CODE 01063 M00S00962.1ta +++| STM DCSS 01064 M00S00963.1ta +++| LDC MMFL SET MACHINE ID 01065 M00S00964.1ta +++| CRD CM 01066 M00S00965.1ta +++| LDD CM 01067 M00S00966.1ta +++| STM RMSS 01068 M00S00967.1ta +++| STM CMSS 01069 M00S00968.1ta +++| LDN 3 SET FILE LENGTH IN SECTORS 01070 M00S00969.1ta +++| STM FLSS+1 01071 M00S00970.1ta +++| LDC FLSS GET ADDRESS OF SYSTEM SECTOR FILE LENGTH 01072 M00S00971.1ta +++| RJM RFI SET FILE SIZE INDEX IN QFT ENTRY 01073 M00S00972.1ta +++| LDD MA SET CREATION USER NUMBER 01074 M00S00973.1ta +++| CWM ABUF+ACCN*5,ON 01075 M00S00974.1ta +++| CWM CISD,ON SET CREATION FAMILY 01076 M00S00975.1ta +++| SBN 2 01077 M00S00976.1ta +++| CRM ACSS,ON 01078 M00S00977.1ta +++| CRM FMSS,ON 01079 M00S00978.1ta +++| SBN 2 01080 M00S00979.1ta +++| CRM OASS,ON 01081 M00S00980.1ta +++| CRM FOSS,ON 01082 M00S00981.1ta +++| LDN 0 CLEAR CONTROL POINT AND SLID 01083 M00S00982.1ta +++| STM CPSS 01084 M00S00983.1ta +++| STM SLSS+1 01085 M00S00984.1ta +++| LDM SLSS 01086 M00S00985.1ta +++| SCN 77 01087 M00S00986.1ta +++| STM SLSS 01088 M00S00987.1ta +++| LDD PA GET TERMINAL NAME FROM POT 01089 M00S00988.1ta +++| SHN 14 01090 M00S00989.1ta +++| ADD PA+1 01091 M00S00990.1ta +++| ADN VTRY 01092 M00S00991.1ta +++| CRM TNSS,ON 01093 M00S00992.1ta +++| LDD IR+3 SET TERMINAL NUMBER 01094 M00S00993.1ta +++| STM TRSS
| Line S00001 Modification History | |
|---|---|
M01 (Added by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S00994.1ta +++| 01108 M00S00995.1ta +++|* MOVE FIRST HALF OF VALIDATION ACCOUNT BLOCK TO SYSTEM SECTOR. 01109 M00S00996.1ta +++| 01110 M00S00997.1ta +++| LDN 0 01111 M00S00998.1ta +++| STD T1 01112 M00S00999.1ta +++| CSS3 LDM ABUF,T1 01113 M00S01000.1ta +++| STM VASS,T1 01114 M00S01001.1ta +++| AOD T1 01115 M00S01002.1ta +++| LMC ABSS*5 01116 M00S01003.1ta +++| NJN CSS3 IF NOT LAST BYTE
| Line S01004 Modification History | |
|---|---|
M01 (Removed by) | 261l700 |
Seq # *Modification Id* Act ----------------------------+ 01117 M01S01004.261l700 ---| 01118 M01S01005.261l700 ---|* SET INITIAL INTERACTIVE SUBSYSTEM. 01119 M01S01006.261l700 ---| 01120 M01S01007.261l700 ---| LDM ABUF+ATIS*5+1 GET INITIAL SUBSYSTEM 01121 M01S01008.261l700 ---| SHN -6 01122 M01S01009.261l700 ---| LPN 37 01123 M01S01010.261l700 ---| STM ISSS 01124 M00S01011.1ta ---| 01125 M00S01012.1ta ---|* SET USER INDEX/FAMILY ORDINAL/ACCESS LEVEL LIMITS INTO QFT. 01126 M00S01013.1ta ---| 01127 M00S01014.1ta ---| LDM ABUF+AUIN*5+3 GET USER INDEX 01128 M00S01015.1ta ---| LPN 77 01129 M00S01016.1ta ---| STM IOSS+JSNQ*5+2 01130 M00S01017.1ta ---| STD T1 FOR BANNER NAME 01131 M00S01018.1ta ---| LDM ABUF+AUIN*5+4 01132 M00S01019.1ta ---| STM IOSS+JSNQ*5+3 01133 M00S01020.1ta ---| STD T2 FOR BANNER NAME 01134 M00S01021.1ta ---| LDC * SAVE FO 01135 M00S01022.1ta ---| CSSA EQU *-1 FAMILY ORDINAL - SET BY *PLI* 01136 M00S01023.1ta ---| SHN 6 POSITION FO 01137 M00S01024.1ta ---| RAM IOSS+JSNQ*5+2 01138 M00S01025.1ta ---| LDM IOSS+INSQ*5+3 SET ACCESS LEVEL LIMITS 01139 M00S01026.1ta ---| SHN -11 01140 M00S01027.1ta ---| SHN 3 01141 M00S01028.1ta ---| LMC * 01142 M00S01029.1ta ---| CSSF EQU *-1 (LOWER ACCESS LEVEL LIMIT) 01143 M00S01030.1ta ---| SHN 3 01144 M00S01031.1ta ---| LMC * 01145 M00S01032.1ta ---| CSSC EQU *-1 (INITIAL JOB ACCESS LEVEL) 01146 M00S01033.1ta ---| SHN 3 01147 M00S01034.1ta ---| LMC * 01148 M00S01035.1ta ---| CSSD EQU *-1 (UPPER ACCESS LEVEL LIMIT) 01149 M00S01036.1ta ---| STM IOSS+INSQ*5+3 01150 M00S01037.1ta ---| 01151 M00S01038.1ta ---|* GENERATE UJN FOR JOB. 01152 M00S01039.1ta ---| 01153 M00S01040.1ta ---| RJM GBN GENERATE BANNER NAME 01154 M00S01041.1ta ---| LDN ZERL 01155 M00S01042.1ta ---| CRD CM 01156 M00S01043.1ta ---| LDD T1 01157 M00S01044.1ta ---| STD CM 01158 M00S01045.1ta ---| LDD T2 01159 M00S01046.1ta ---| STD CM+1 01160 M00S01047.1ta ---| LDD MA 01161 M00S01048.1ta ---| CWD CM 01162 M00S01049.1ta ---| CRM JNSS,ON 01163 M00S01050.1ta ---|
| Line S01051 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01164 M01S01051.1ta12 ---|* SET TIME LIMIT, CM LIMIT, ECS LIMIT.
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01165 M01S00003.1ta12 +++|* SET TIME LIMIT AND CM AND EM SERVICE LIMITS. 01166 M00S01052.1ta +++|
| Line S01053 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01167 M01S01053.1ta12 ---| LDM VASS+AHCM*5+3 GET MAX CM FL 01168 M01S01054.1ta12 ---| RJM CMI COMPUTE CM FL
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01169 M01S00004.1ta12 +++| LCN 0 PRESET LIMITS 01170 M00S01055.1ta +++| STM JCSS
| Line S01056 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01171 M01S01056.1ta12 ---| LDM VASS+AHEC*5+3 GET MAX EC FL 01172 M01S01057.1ta12 ---| RJM ECI COMPUTE EC FL 01173 M00S01058.1ta ---| STM JESS 01174 M01S01059.1ta12 ---| LDM VASS+AHTL*5+2 GET TIME LIMIT
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01060.1ta +++| RJM TLI COMPUTE TL/10B 01188 M00S01061.1ta +++| SHN 3 01189 M00S01062.1ta +++| STM JTSS+1 01190 M00S01063.1ta +++| SHN -14 01191 M00S01064.1ta +++| STM JTSS 01192 M00S01065.1ta +++| 01193 M00S01066.1ta +++|* SET LOCAL FNT WORD. 01194 M00S01067.1ta +++| 01195 M00S01068.1ta +++| LDD MA 01196 M00S01069.1ta +++| CWM CSSB,ON 01197 M00S01070.1ta +++| SBN 1 01198 M00S01071.1ta +++| CRM FNSS,ON 01199 M00S01072.1ta +++| LJM CSSX RETURN 01200 M00S01073.1ta +++| 01201 M00S01074.1ta +++| CSSB VFD 42/0LINPUT,6/0,6/INFT,6/0 01202 M00S01075.1ta +++| PLI SPACE 4,25 01203 M00S01076.1ta +++|** PLI - PRE LOG IN USER. 01204 M00S01077.1ta +++|* 01205 M00S01078.1ta +++|* VALIDATES USER NUMBER AND PASSWORD. 01206 M00S01079.1ta +++|* 01207 M00S01080.1ta +++|* ENTRY (IR+4) = POT POINTER TO POT WITH 01208 M00S01081.1ta +++|* LOGIN INFORMATION. 01209 M00S01082.1ta +++|* 01210 M00S01083.1ta +++|* EXIT IF VALID, USER INDEX AND ACCOUNT INFORMATION 01211 M00S01084.1ta +++|* RETURNED TO TERMINAL TABLE AND USER VALIDATION FIELDS 01212 M00S01085.1ta +++|* PRESET IN CONTROL POINT AREA. 01213 M00S01086.1ta +++|* (CSSC) = LOWER ACCESS LEVEL LIMIT FOR JOB. 01214 M00S01087.1ta +++|* (CSSD) = UPPER ACCESS LEVEL LIMIT FOR JOB. 01215 M00S01088.1ta +++|* (CSSE) = SERVICE CLASS TO BE ASSIGNED. 01216 M00S01089.1ta +++|* IF NOT VALID OR IF *0AV* ENCOUNTERED AN INACCESSIBLE 01217 M00S01090.1ta +++|* DEVICE OR A MASS STORAGE ERROR, AN ERROR CODE IS 01218 M00S01091.1ta +++|* RETURNED. 01219 M00S01092.1ta +++|* 01220 M00S01093.1ta +++|* USES OT, PP, T1, T2, T3, T5, T7, CM - CM+4, CN - CN+4, 01221 M00S01094.1ta +++|* DF - DF+4, FN - FN+4. 01222 M00S01095.1ta +++|* 01223 M00S01096.1ta +++|* CALLS ERX, GFM, GFO, ITF, SPA, VPW, VSP, *0AV*. 01224 M00S01097.1ta +++|* 01225 M00S01098.1ta +++|* MACROS EXECUTE, MONITOR. 01226 M00S01099.1ta +++| 01227 M00S01100.1ta +++| 01228 M00S01101.1ta +++| PLI SUBR ENTRY/EXIT 01229 M00S01102.1ta +++| LDD IR+4 POT POINTER WITH LOGIN INFORMATION 01230 M00S01103.1ta +++| STD PP 01231 M00S01104.1ta +++| RJM SPA SET POT ADDRESS 01232 M00S01105.1ta +++| ADN VFNA SET FAMILY NAME FOR 0AV 01233 M00S01106.1ta +++| CRD CN 01234 M00S01107.1ta +++| CRM CISD,ON 01235 M00S01108.1ta +++| ADK VUNA-VFNA-1 GET USER NAME 01236 M00S01109.1ta +++| CRD DF 01237 M00S01110.1ta +++| CRM CISB,ON 01238 M00S01111.1ta +++| LDD CN 01239 M00S01112.1ta +++| NJN PLI2 IF FAMILY NAME SUPPLIED 01240 M00S01113.1ta +++| LDD CN+4 01241 M00S01114.1ta +++| NJN PLI1 IF FAMILY ORDINAL SUPPLIED 01242 M00S01115.1ta +++| LDN 1 SET DEFAULT FAMILY ORDINAL 01243 M00S01116.1ta +++| PLI1 RJM GFM GET FAMILY NAME 01244 M00S01117.1ta +++| LDD FN+3 01245 M00S01118.1ta +++| SCN 77 01246 M00S01119.1ta +++| STD FN+3 01247 M00S01120.1ta +++| LDN 0 01248 M00S01121.1ta +++| STD FN+4 01249 M00S01122.1ta +++| LDD MA 01250 M00S01123.1ta +++| CWD FN 01251 M00S01124.1ta +++| CRD CN 01252 M00S01125.1ta +++| CRM CISD,ON 01253 M00S01126.1ta +++| PLI2 LDD DF+3 CLEAR UI FIELD 01254 M00S01127.1ta +++| SCN 77 01255 M00S01128.1ta +++| STD DF+3 01256 M00S01129.1ta +++| STM CISB+3 01257 M00S01130.1ta +++| LDN 0 01258 M00S01131.1ta +++| STD DF+4 01259 M00S01132.1ta +++| STD CN+4 01260 M00S01133.1ta +++| STM CISB+4 01261 M00S01134.1ta +++| EXECUTE 0AV,CBUF
| Line S01135 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01262 M01S01135.1ta11 ---| PJN PLI2.1 IF NO MASS STORAGE ERROR ENCOUNTERED
| Line S00002 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01263 M01S00002.1ta11 +++| PJN PLI3 IF NO MASS STORAGE ERROR ENCOUNTERED 01264 M00S01136.1ta +++| LDN 20 FLAG MASS STORAGE ERROR
| Line S01137 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01265 M01S01137.1ta11 ---| LJM PLI7 SET ERROR CODE
| Line S00003 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01266 M01S00003.1ta11 +++| LJM PLI19 SET ERROR CODE 01267 M00S01138.1ta +++|
| Line S01139 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01268 M01S01139.1ta11 ---| PLI2.1 LDD T4 SAVE (T4)
| Line S00004 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01269 M01S00004.1ta11 +++| PLI3 LDD T4 SAVE (T4) 01270 M00S01140.1ta +++| STD T5 01271 M00S01141.1ta +++| 01272 M00S01142.1ta +++|* CHECK FOR ACCOUNT FOUND. 01273 M00S01143.1ta +++| 01274 M00S01144.1ta +++| LDN 0 SET INDEX 01275 M00S01145.1ta +++| STD T7 01276 M00S01146.1ta +++| LDD T1 CHECK USER INDEX 01277 M00S01147.1ta +++| ADD T2
| Line S01148 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01278 M01S01148.1ta11 ---| NJN PLI3 IF ACCOUNT FOUND 01279 M01S01149.1ta11 ---| LJM PLI6 SET ERROR
| Line S00005 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01280 M01S00005.1ta11 +++| NJN PLI4 IF ACCOUNT FOUND 01281 M01S00006.1ta11 +++| LJM PLI16 SET ERROR 01282 M00S01150.1ta +++| 01283 M00S01151.1ta +++|* MOVE USER ACCOUNT BLOCK. 01284 M00S01152.1ta +++|
| Line S01153 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01285 M01S01153.1ta11 ---| PLI3 LDI T3
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01286 M01S00007.1ta11 +++| PLI4 LDI T3 01287 M00S01154.1ta +++| STM ABUF,T7 01288 M00S01155.1ta +++| AOD T3 01289 M00S01156.1ta +++| AOD T7 01290 M00S01157.1ta +++| LMC ARBS*5
| Line S01158 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01291 M01S01158.1ta11 ---| NJN PLI3 IF NOT LAST BYTE
| Line S00008 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01292 M01S00008.1ta11 +++| NJN PLI4 IF NOT LAST BYTE 01293 M00S01159.1ta +++| STD T2 INITIALIZE TABLE INDEX 01294 M00S01160.1ta +++| 01295 M00S01161.1ta +++|* SET SERVICE CLASS. 01296 M00S01162.1ta +++| 01297 M00S01163.1ta +++| LDM ABUF+ASC1*5+1 GET USER DEFAULT FOR INTERACTIVE ORIGIN 01298 M00S01164.1ta +++| LPN 77 01299 M00S01165.1ta +++| STD T1
| Line S01166 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01300 M01S01166.1ta11 ---| PLI3.1 LDM TVSC,T2 SEARCH FOR VALID SERVICE CLASS
| Line S00009 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01301 M01S00009.1ta11 +++| PLI5 LDM TVSC,T2 SEARCH FOR VALID SERVICE CLASS 01302 M00S01167.1ta +++| LMD T1
| Line S01168 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01303 M01S01168.1ta11 ---| ZJN PLI3.2 IF MATCH FOUND
| Line S00010 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01304 M01S00010.1ta11 +++| ZJN PLI6 IF MATCH FOUND 01305 M00S01169.1ta +++| AOD T2 INCREMENT TABLE INDEX 01306 M00S01170.1ta +++| LDN MXSC 01307 M00S01171.1ta +++| SBD T2
| Line S01172 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01308 M01S01172.1ta11 ---| MJN PLI3.3 IF END OF TABLE 01309 M01S01173.1ta11 ---| UJN PLI3.1 CHECK NEXT ENTRY
| Line S00011 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01310 M01S00011.1ta11 +++| MJN PLI8 IF END OF TABLE 01311 M01S00012.1ta11 +++| UJN PLI5 CHECK NEXT ENTRY 01312 M00S01174.1ta +++|
| Line S01175 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01313 M01S01175.1ta11 ---| PLI3.2 STD T3 CHECK IF SERVICE CLASS IS VALID FOR USER
| Line S00013 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01314 M01S00013.1ta11 +++| PLI6 STD T3 CHECK IF SERVICE CLASS IS VALID FOR USER 01315 M00S01176.1ta +++| LDN IAOT SET ORIGIN TYPE 01316 M00S01177.1ta +++| STD OT
| Line S01178 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01317 M01S01178.1ta11 ---| LDD MA GET VALIDATION MASK
| Line S00014 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01318 M01S00014.1ta11 +++| LDD T2 SET SERVICE CLASS 01319 M01S00015.1ta11 +++| STM CSSE 01320 M01S00016.1ta11 +++| PLI7 LDD MA GET VALIDATION MASK 01321 M00S01179.1ta +++| CWM ABUF+ASCV*5,ON 01322 M00S01180.1ta +++| SBN 1 01323 M00S01181.1ta +++| CRD CN
| Line S01182 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01324 M01S01182.1ta11 ---| LDD T2 SET SERVICE CLASS 01325 M01S01183.1ta11 ---| STM CSSE
| Line S00017 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01326 M01S00017.1ta11 +++| LDM CSSE 01327 M00S01184.1ta +++| RJM VSP VALIDATE SERVICE CLASS
| Line S01185 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01328 M01S01185.1ta11 ---| ZJN PLI3.5 IF NO ERROR
| Line S00018 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01329 M01S00018.1ta11 +++| ZJN PLI12 IF NO ERROR 01330 M00S01186.1ta +++| LMN 3
| Line S01187 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01331 M01S01187.1ta11 ---| ZJN PLI3.4 IF SERVICE CLASS FULL
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 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 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01344 M01S01188.1ta11 ---| PLI3.3 LDN 2&4 SET INVALID SERVICE CLASS ERROR 01345 M01S01189.1ta11 ---| PLI3.4 LMN 4
| Line S00031 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01346 M01S00031.1ta11 +++| PLI10 LDN 2&4 SET INVALID SERVICE CLASS ERROR 01347 M01S00032.1ta11 +++| PLI11 LMN 4 01348 M00S01190.1ta +++| STD CN+4
| Line S01191 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01349 M01S01191.1ta11 ---| LJM PLI7 PROCESS ERROR
| Line S00033 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01350 M01S00033.1ta11 +++| LJM PLI19 PROCESS ERROR 01351 M00S01192.1ta +++| 01352 M00S01193.1ta +++| 01353 M00S01194.1ta +++|* GET FAMILY ORDINAL. 01354 M00S01195.1ta +++|
| Line S01196 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01355 M01S01196.1ta11 ---| PLI3.5 LDD MA SET FAMILY NAME
| Line S00034 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01356 M01S00034.1ta11 +++| PLI12 LDD MA SET FAMILY NAME 01357 M00S01197.1ta +++| CWM CISD,ON 01358 M00S01198.1ta +++| SBN 1 01359 M00S01199.1ta +++| CRD FN 01360 M00S01200.1ta +++| LDN 1 DO NOT ADD FAMILY NAME TO FOT 01361 M00S01201.1ta +++| RJM GFO GET FAMILY ORDINAL
| Line S01202 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01362 M01S01202.1ta11 ---| ZJN PLI4 IF NO ERROR OCCURRED 01363 M01S01203.1ta11 ---| LJM PLI6 SET ERROR
| Line S00035 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01364 M01S00035.1ta11 +++| ZJN PLI13 IF NO ERROR OCCURRED 01365 M01S00036.1ta11 +++| LJM PLI16 SET ERROR 01366 M00S01204.1ta +++|
| Line S01205 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01367 M01S01205.1ta11 ---| PLI4 RJM STT
| Line S00037 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01368 M01S00037.1ta11 +++| PLI13 RJM STT 01369 M00S01206.1ta +++| ADK VUIT 01370 M00S01207.1ta +++| CRD CM 01371 M00S01208.1ta +++| LDD FN+4 INSERT FAMILY ORDINAL IN TERMINAL TABLE 01372 M00S01209.1ta +++| STM CSSA 01373 M00S01210.1ta +++| ADK VUFO 01374 M00S01211.1ta +++| LDD CM+3 01375 M00S01212.1ta +++| SCN 77 01376 M00S01213.1ta +++| LMD FN+4 01377 M00S01214.1ta +++| STD CM+3 01378 M00S01215.1ta +++| RJM STT 01379 M00S01216.1ta +++| ADK VUIT 01380 M00S01217.1ta +++| CWD CM 01381 M00S01218.1ta +++| 01382 M00S01219.1ta +++|* CHECK FOR VALID USER. 01383 M00S01220.1ta +++| 01384 M00S01221.1ta +++| LDD RA CHECK TERMINAL TYPE 01385 M00S01222.1ta +++| SHN 6 01386 M00S01223.1ta +++| ADN VNTP 01387 M00S01224.1ta +++| CRD DF 01388 M00S01225.1ta +++| LDD DF+2
| Line S01226 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01389 M01S01226.1ta11 ---| ZJN PLI5 IF NO NETWORK TERMINALS
| Line S00038 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01390 M01S00038.1ta11 +++| ZJN PLI14 IF NO NETWORK TERMINALS 01391 M00S01227.1ta +++| SBD TN 01392 M00S01228.1ta +++| SBN 1
| Line S01229 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01393 M01S01229.1ta11 ---| MJN PLI6.0 IF NETWORK TERMINAL 01394 M01S01230.1ta11 ---| PLI5 LDD T5 CHECK UI FLAG FROM *0AV* 01395 M01S01231.1ta11 ---| NJN PLI6 IF UI EXCEEDS AUIMX
| Line S00039 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01232.1ta +++| RJM VPW VALIDATE PASSWORD
| Line S01233 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01400 M01S01233.1ta11 ---| NJN PLI6 IF INVALID PASSWORD
| Line S00042 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01401 M01S00042.1ta11 +++| NJN PLI16 IF INVALID PASSWORD 01402 M00S01234.1ta +++| LDD T6
| Line S01235 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01403 M01S01235.1ta11 ---| NJN PLI6.1 IF SECURITY COUNT NOT EXHAUSTED
| Line S00043 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01404 M01S00043.1ta11 +++| NJN PLI18 IF SECURITY COUNT NOT EXHAUSTED 01405 M00S01236.1ta +++| LDN 1 FLAG *SECURITY COUNT EXHAUSTED* ERROR
| Line S01237 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01406 M01S01237.1ta11 ---| PLI5.1 LJM PLI7 SET ERROR CODE
| Line S00044 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01407 M01S00044.1ta11 +++| PLI15 LJM PLI19 SET ERROR CODE 01408 M00S01238.1ta +++|
| Line S01239 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01409 M01S01239.1ta11 ---| PLI6 LDN 0 FLAG *INVALID USER* ERROR 01410 M01S01240.1ta11 ---| UJN PLI5.1 SET ERROR CODE
| Line S00045 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01411 M01S00045.1ta11 +++| PLI16 LDN 0 FLAG *INVALID USER* ERROR 01412 M01S00046.1ta11 +++| UJN PLI15 SET ERROR CODE 01413 M00S01241.1ta +++|
| Line S01242 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01414 M01S01242.1ta11 ---| PLI6.0 LDD PA READ PASSWORD
| Line S00047 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01415 M01S00047.1ta11 +++| PLI17 LDD PA READ PASSWORD 01416 M00S01243.1ta +++| SHN 14 01417 M00S01244.1ta +++| LMD PA+1 01418 M00S01245.1ta +++| ADN VPWA 01419 M00S01246.1ta +++| CRD CM 01420 M00S01247.1ta +++| LDD CM
| Line S01248 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01421 M01S01248.1ta11 ---| ZJN PLI6.1 IF PASSWORD IS ZERO, BYPASS VALIDATION
| Line S00048 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01422 M01S00048.1ta11 +++| ZJN PLI18 IF PASSWORD IS ZERO, BYPASS VALIDATION 01423 M00S01249.1ta +++| RJM VPW VALIDATE PASSWORD
| Line S01250 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01424 M01S01250.1ta11 ---| MJN PLI6 IF PASSWORD IS NOT VALID, ERROR EXIT
| Line S00049 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01425 M01S00049.1ta11 +++| MJN PLI16 IF PASSWORD IS NOT VALID, ERROR EXIT 01426 M00S01251.1ta +++| LDD PA CLEAR PASSWORD FIELD IN PARAMETER POT 01427 M00S01252.1ta +++| SHN 14 01428 M00S01253.1ta +++| LMD PA+1 01429 M00S01254.1ta +++| ADN VPWA 01430 M00S01255.1ta +++| CRD CM 01431 M00S01256.1ta +++| LDN 0 01432 M00S01257.1ta +++| STD CM 01433 M00S01258.1ta +++| LDD PA 01434 M00S01259.1ta +++| SHN 14 01435 M00S01260.1ta +++| LMD PA+1 01436 M00S01261.1ta +++| ADN VPWA 01437 M00S01262.1ta +++| CWD CM
| Line S00019 Modification History | |
|---|---|
M01 (Added by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01438 M01S00019.ns2663 +++| 01439 M00S01263.1ta +++|* DETERMINE VALID ACCESS LEVELS AND CATEGORIES FOR JOB. 01440 M00S01264.1ta +++|
| Line S01265 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01441 M01S01265.1ta11 ---| PLI6.1 LDD PA GET LINE ACCESS LEVEL LIMIT
| Line S00050 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01442 M01S00050.1ta11 +++| PLI18 LDD PA GET LINE ACCESS LEVEL LIMIT 01443 M00S01266.1ta +++| SHN 14 01444 M00S01267.1ta +++| LMD PA+1 01445 M00S01268.1ta +++| ADN VLAL 01446 M00S01269.1ta +++| CRD CM 01447 M00S01270.1ta +++| LDD CM+4 SET UPPER ACCESS LEVEL LIMIT TO LINE LIMIT 01448 M00S01271.1ta +++| LPN 7 01449 M00S01272.1ta +++| STD CM+3 01450 M00S01273.1ta +++| LDN 0 SET LOWER ACCESS LEVEL LIMIT 01451 M00S01274.1ta +++| STD CM+4 01452 M00S01275.1ta +++| LDN IAOT 01453 M00S01276.1ta +++| STD CM+2 01454 M00S01277.1ta +++| LDN VJCS VALIDATE JOB CREATION PARAMETERS 01455 M00S01278.1ta +++| STD CM+1 01456 M00S01279.1ta +++| LDD MA 01457 M00S01280.1ta +++| CWM ABUF+ASVW*5,ON SET SECURITY VALIDATION WORD 01458 M00S01281.1ta +++| MONITOR VSAM 01459 M00S01282.1ta +++| LDD MA 01460 M00S01283.1ta +++| CRM ABUF+ASVW*5,ON READ UPDATED SECURITY VALIDATIONS 01461 M00S01284.1ta +++| LDD CM+4 SAVE RESTRICTED ACCESS LEVEL LIMITS 01462 M00S01285.1ta +++| STM CSSF 01463 M00S01286.1ta +++| LDD CM+3 01464 M00S01287.1ta +++| STM CSSD 01465 M00S01288.1ta +++| LDD CM+2 SAVE INITIAL JOB ACCESS LEVEL 01466 M00S01289.1ta +++| STM CSSC 01467 M00S01290.1ta +++| LDD CM+1
| Line S01291 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01468 M01S01291.1ta11 ---| ZJN PLI8 IF NO REJECT
| Line S00051 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01469 M01S00051.1ta11 +++| ZJN PLI20 IF NO REJECT 01470 M00S01292.1ta +++| LDN 10 FLAG *SECURITY VIOLATION* ERROR
| Line S01293 Modification History | |
|---|---|
M01 (Removed by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 01471 M01S01293.1ta10 ---| 01472 M01S01294.1ta10 ---|* ERROR EXIT - ERROR CODE IN BYTE 4, WORD *VUTA* OF LOGIN POT. 01473 M01S01295.1ta10 ---| 01474 M01S01296.1ta10 ---| PLI7 STD CN+4 SET ERROR CODE 01475 M01S01297.1ta10 ---| RJM SPA 01476 M01S01298.1ta10 ---| ADN VUTA 01477 M01S01299.1ta10 ---| CWD CN 01478 M01S01300.1ta10 ---| RJM ERX ERROR EXIT
| Line S00021 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
M02 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01479 M02S00021.1ta11 ---| PLI7 RJM SEC SET ERROR CODE (NO RETURN)
| Line S00052 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01480 M01S00052.1ta11 +++| PLI19 RJM SEC SET ERROR CODE (NO RETURN) 01481 M00S01301.1ta +++| 01482 M00S01302.1ta +++|* USER SUCCESSFULLY VALIDATED. 01483 M00S01303.1ta +++|* PUT VALIDATION IN POT AND TERMINAL TABLE. 01484 M00S01304.1ta +++|
| Line S01305 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01485 M01S01305.1ta11 ---| PLI8 LDD PA
| Line S00053 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01486 M01S00053.1ta11 +++| PLI20 LDD PA 01487 M00S01306.1ta +++| SHN 14 01488 M00S01307.1ta +++| ADD PA+1 01489 M00S01308.1ta +++| ADN VUTA 01490 M00S01309.1ta +++| CWM ABUF+AAWC*5,ON 01491 M00S01310.1ta +++| ADK VUTD-VUTA-1 01492 M00S01311.1ta +++| CWM ABUF+ATPA*5,ON 01493 M00S01312.1ta +++| LDM ABUF+ATPA*5+1 01494 M00S01313.1ta +++| SHN 21-13
| Line S01314 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01495 M01S01314.1ta11 ---| PJN PLI9 IF NORMAL MODE
| Line S00054 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01496 M01S00054.1ta11 +++| PJN PLI21 IF NORMAL MODE 01497 M00S01315.1ta +++| LDN ZERL CLEAR REQUEST WORD 01498 M00S01316.1ta +++| CRD CM 01499 M00S01317.1ta +++| LDC VSCS SET CHARACTER SET MODE 01500 M00S01318.1ta +++| STD CM 01501 M00S01319.1ta +++| LDN 11 01502 M00S01320.1ta +++| STD CM+2 01503 M00S01321.1ta +++| RJM ITF ISSUE *TSEM* FUNCTION
| Line S01322 Modification History | |
|---|---|
M01 (Removed by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01504 M01S01322.1ta11 ---|PLI9 LJM PLIX RETURN
| Line S00055 Modification History | |
|---|---|
M01 (Added by) | 1ta11 |
Seq # *Modification Id* Act ----------------------------+ 01505 M01S00055.1ta11 +++|PLI21 LJM PLIX RETURN 01506 M00S01323.1ta +++| TSVC SPACE 4,10 01507 M00S01324.1ta +++|** TSVC - TABLE OF VALID USER DEFAULT SERVICE CLASSES. 01508 M00S01325.1ta +++|* 01509 M00S01326.1ta +++|*T 12/ SUFFIX
Figure
01510 M00S01327.1ta +++|* SUFFIX = ONE CHARACTER SUFFIX, RIGHT JUSTIFIED, FOR SERVICE 01511 M00S01328.1ta +++|* CLASS. 01512 M00S01329.1ta +++| 01513 M00S01330.1ta +++| 01514 M00S01331.1ta +++| TVSC INDEX 01515 M00S01332.1ta +++| LIST D 01516 M00S01333.1ta +++| .SCL HERE 01517 M00S01334.1ta +++| LIST * 01518 M00S01335.1ta +++| INDEX MXSC
| Line S00022 Modification History | |
|---|---|
M01 (Added by) | 1ta10 |
Seq # *Modification Id* Act ----------------------------+ 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 M00S01336.1ta +++| SEL SPACE 4,10 01539 M00S01337.1ta +++|** SEL - SET END OF LINE. 01540 M00S01338.1ta +++|* 01541 M00S01339.1ta +++|* ENTRY (T1) = LAST BYTE ASSEMBLED IN FBUF. 01542 M00S01340.1ta +++|* 01543 M00S01341.1ta +++|* EXIT (T1) = NEXT BYTE TO ASSEMBLE INTO IN FBUF. 01544 M00S01342.1ta +++|* 01545 M00S01343.1ta +++|* USES T1, T2. 01546 M00S01344.1ta +++|* 01547 M00S01345.1ta +++|* CALLS DV5. 01548 M00S01346.1ta +++| 01549 M00S01347.1ta +++| 01550 M00S01348.1ta +++| SEL SUBR 01551 M00S01349.1ta +++| LDI T1 01552 M00S01350.1ta +++| ZJN SEL1 IF ZERO BYTE 01553 M00S01351.1ta +++| AOD T1 01554 M00S01352.1ta +++| SEL1 LDD T1 01555 M00S01353.1ta +++| ADC -FBUF-2+5 ROUND UP 01556 M00S01354.1ta +++| RJM DV5 01557 M00S01355.1ta +++| STD T2 01558 M00S01356.1ta +++| SHN 2 * 4 01559 M00S01357.1ta +++| ADD T2 * 5 01560 M00S01358.1ta +++| ADC FBUF+2-1 01561 M00S01359.1ta +++| STD T1 POSSIBLE EOL 01562 M00S01360.1ta +++| LDI T1 01563 M00S01361.1ta +++| ZJN SEL2 IF EOL IN PLACE 01564 M00S01362.1ta +++| LDN 5 01565 M00S01363.1ta +++| RAD T1 01566 M00S01364.1ta +++| SEL2 AOD T1 SET NEXT BYTE TO ASSEMBLE INTO 01567 M00S01365.1ta +++| UJN SELX EXIT 01568 M00S01366.1ta +++| VPW SPACE 4,10 01569 M00S01367.1ta +++|** VPW - VALIDATE PASSWORD. 01570 M00S01368.1ta +++|* 01571 M00S01369.1ta +++|* ENTRY (PA - PA+1) = ADDRESS OF LOGIN POT. 01572 M00S01370.1ta +++|* (ABUF) = VALIDATION FILE ENTRY. 01573 M00S01371.1ta +++|* 01574 M00S01372.1ta +++|* EXIT (A) = 0 IF PASSWORD VALID. 01575 M00S01373.1ta +++|* 01576 M00S01374.1ta +++|* USES CM - CM+4, DF - DF+4. 01577 M00S01375.1ta +++|* 01578 M00S01376.1ta +++|* CALLS CFN. 01579 M00S01377.1ta +++|* 01580 M00S01378.1ta +++|* MACROS MONITOR. 01581 M00S01379.1ta +++| 01582 M00S01380.1ta +++| 01583 M00S01381.1ta +++| VPW SUBR ENTRY/EXIT 01584 M00S01382.1ta +++| LDM ABUF+APWI*5+3 CHECK PASSWORD EXPIRATION DATE 01585 M00S01383.1ta +++| LPN 77 01586 M00S01384.1ta +++| STD CM+3 01587 M00S01385.1ta +++| SHN 14 01588 M00S01386.1ta +++| LMM ABUF+APWI*5+4 01589 M00S01387.1ta +++| ZJN VPW1 IF NONEXPIRING PASSWORD 01590 M00S01388.1ta +++| STD CM+4 01591 M00S01389.1ta +++| LDN VEDS VALIDATE EXPIRATION DATE 01592 M00S01390.1ta +++| STD CM+1 01593 M00S01391.1ta +++| MONITOR VSAM 01594 M00S01392.1ta +++| LDD CM+1 01595 M00S01393.1ta +++| NJN VPWX IF PASSWORD EXPIRED 01596 M00S01394.1ta +++| VPW1 LDD PA READ PASSWORD 01597 M00S01395.1ta +++| SHN 14 01598 M00S01396.1ta +++| LMD PA+1 01599 M00S01397.1ta +++| ADN VPWA 01600 M00S01398.1ta +++| CRD CM 01601 M00S01399.1ta +++| LDD MA ENCRYPT PASSWORD 01602 M00S01400.1ta +++| CWD CM 01603 M00S01401.1ta +++| LDN REPS 01604 M00S01402.1ta +++| STD CM+1 01605 M00S01403.1ta +++| MONITOR RDCM 01606 M00S01404.1ta +++| LDD MA 01607 M00S01405.1ta +++| CRD DF 01608 M00S01406.1ta +++| LDC ABUF+APWI*5 01609 M00S01407.1ta +++| RJM CFN COMPARE PASSWORDS 01610 M00S01408.1ta +++| UJP VPWX RETURN 01611 M00S01409.1ta +++| WDI SPACE 4,20 01612 M00S01410.1ta +++|** WDI - WRITE DISK INFORMATION. 01613 M00S01411.1ta +++|* 01614 M00S01412.1ta +++|* ENTRY (T5) = EQUIPMENT. 01615 M00S01413.1ta +++|* (T6) = TRACK. 01616 M00S01414.1ta +++|* (T7) = SECTOR. 01617 M00S01415.1ta +++|* (BFMS) = SYSTEM SECTOR. 01618 M00S01416.1ta +++|* (FBUF) = INPUT SECTOR. 01619 M00S01417.1ta +++|* (WC) = WORD COUNT IN SECTOR. 01620 M00S01418.1ta +++|* 01621 M00S01419.1ta +++|* EXIT (A) = 0, IF NO ERRORS. THE SYSTEM SECTOR, THE INPUT 01622 M00S01420.1ta +++|* SECTOR, AND THE EOI SECTOR ARE WRITTEN. 01623 M00S01421.1ta +++|* .LT. 0, IF WRITE ERRORS ENCOUNTERED. 01624 M00S01422.1ta +++|* 01625 M00S01423.1ta +++|* USES FA, T1, T4, T7, KWC. 01626 M00S01424.1ta +++|* 01627 M00S01425.1ta +++|* CALLS CBU, WDS, WEI, WSS. 01628 M00S01426.1ta +++|* 01629 M00S01427.1ta +++|* MACROS SETMS, SFA. 01630 M00S01428.1ta +++| 01631 M00S01429.1ta +++| 01632 M00S01430.1ta +++| WDI SUBR ENTRY/EXIT 01633 M00S01431.1ta +++| 01634 M00S01432.1ta +++|* WRITE SECTORS. 01635 M00S01433.1ta +++| 01636 M00S01434.1ta +++| SETMS IO,,BFMS 01637 M00S01435.1ta +++| RJM WSS WRITE SYSTEM SECTOR 01638 M00S01436.1ta +++| MJN WDIX IF MASS STORAGE ERROR 01639 M00S01437.1ta +++| LDD T7 SET SECTOR LINKAGE 01640 M00S01438.1ta +++| ADN 1 01641 M00S01439.1ta +++| STM FBUF 01642 M00S01440.1ta +++| LDD WC SET WORD COUNT 01643 M00S01441.1ta +++| STM FBUF+1 01644 M00S01442.1ta +++| LDC FBUF+WCSF 01645 M00S01443.1ta +++| RJM WDS WRITE SECTOR 01646 M00S01444.1ta +++| MJN WDIX IF MASS STORAGE ERROR 01647 M00S01445.1ta +++| LDM FBUF SET NEXT SECTOR 01648 M00S01446.1ta +++| STD T7 01649 M00S01447.1ta +++| LDD T6 SET FIRST TRACK IN EOI SECTOR 01650 M00S01448.1ta +++| STM FBUF+FTEI 01651 M00S01449.1ta +++| LDD MA TRANSFER FNT/FST/DATE TO *FBUF* 01652 M00S01450.1ta +++| CWM BFMS+2,TR 01653 M00S01451.1ta +++| SBN 3 01654 M00S01452.1ta +++| CRM FBUF+2,TR 01655 M00S01453.1ta +++| LDN 75 CLEAR REMAINDER OF EOI 01656 M00S01454.1ta +++| STD T1 01657 M00S01455.1ta +++| LDC FBUF+2+3*5 01658 M00S01456.1ta +++| RJM CBU CLEAR BUFFER 01659 M00S01457.1ta +++| LDC FBUF 01660 M00S01458.1ta +++| RJM WEI WRITE EOI SECTOR 01661 M00S01459.1ta +++| MJN WDI1 IF MASS STORAGE ERROR 01662 M00S01460.1ta +++| ENDMS 01663 M00S01461.1ta +++|* LDN 0 INDICATE NO ERROR 01664 M00S01462.1ta +++| WDI1 LJM WDIX RETURN 01665 M00S01463.1ta +++| SPACE 4,10 01666 M00S01464.1ta +++|* COMMON DECKS. 01667 M00S01465.1ta +++| 01668 M00S01466.1ta +++| 01669 M00S01467.1ta +++|*CALL COMPACS 01670 M00S01468.1ta +++|*CALL COMPANS
| Line S01469 Modification History | |
|---|---|
M01 (Removed by) | ns2786 |
Seq # *Modification Id* Act ----------------------------+ 01671 M01S01469.ns2786 ---|*CALL COMPCDD 01672 M00S01470.1ta ---|*CALL COMPCTE
| Line S01471 Modification History | |
|---|---|
M01 (Removed by) | 1ta12 |
Seq # *Modification Id* Act ----------------------------+ 01673 M01S01471.1ta12 ---| CMI$ SET 1 01674 M01S01472.1ta12 ---| ECI$ SET 1 01675 M00S01473.1ta ---| TLI$ SET 1 01676 M00S01474.1ta ---|*CALL COMPCVI 01677 M00S01475.1ta ---|*CALL COMPDV5 01678 M00S01476.1ta ---|*CALL COMPGBN
| Line S01477 Modification History | |
|---|---|
M01 (Removed by) | ns2663 |
Seq # *Modification Id* Act ----------------------------+ 01679 M01S01477.ns2663 ---|*CALL COMPIAM 01680 M00S01478.1ta ---|*CALL COMPRFI 01681 M00S01479.1ta ---|*CALL COMPRJC 01682 M00S01480.1ta ---| IF DEF,FA,1 01683 M00S01481.1ta ---| ERR CHECK *COMPWSS* AND *COMPWEI* 01684 M00S01482.1ta ---|*CALL COMPSFI 01685 M00S01483.1ta ---|*CALL COMPSSE 01686 M00S01484.1ta ---| GFM$ SET 1 01687 M00S01485.1ta ---| GFO$ SET 1 01688 M00S01486.1ta ---|*CALL COMPUFT 01689 M00S01487.1ta ---| CJL$ EQU 1 CHECK IF SERVICE CLASS AT JOB LIMIT 01690 M00S01488.1ta ---| CUV$ EQU 1 CHECK IF USER VALIDATED FOR SERVICE CLASS 01691 M00S01489.1ta ---|*CALL COMPVSP 01692 M00S01490.1ta ---| WEI$ EQU 1 USE ALTERNATE EOI BUFFER 01693 M00S01491.1ta ---|*CALL COMPWEI 01694 M00S01492.1ta ---| WCS$ SET 1 USE WRITE CONTINOUS SECTORS IN *COMPWSS* 01695 M00S01493.1ta ---|*CALL COMPWSS 01696 M00S01494.1ta ---| 01697 M00S01495.1ta ---| USE OVERLAY 01698 M00S01496.1ta ---| 01699 M00S01497.1ta ---| ABUF EQU * USER ACCOUNT BLOCK 01700 M00S01498.1ta ---| SPACE 4,10 01701 M00S01499.1ta ---|** TEST FOR OVERFLOW. 01702 M00S01500.1ta ---| 01703 M00S01501.1ta ---| 01704 M00S01502.1ta ---| OVERFLOW OVL,EPFW OVERFLOW INTO DISK ERROR PROCESSOR 01705 M00S01503.1ta ---| 01706 M00S01504.1ta ---| USE OVERFLOW 01707 M00S01505.1ta ---| ERRNG CBUF-* OVERFLOW INTO *CBUF* 01708 M00S01506.1ta ---| IAM OVERLAY (ISSUE ACCOUNTING MESSAGES.) 01709 M00S01507.1ta ---| IAM SPACE 4,25 01710 M00S01508.1ta ---|*** IAM - ISSUE ACCOUNTING MESSAGES. 01711 M00S01509.1ta ---|* 01712 M00S01510.1ta ---|*T, IR 24/ ,12/ FC,12/ APTN,12/ 400B
Figure IR
01713 M00S01511.1ta ---|* 01714 M00S01512.1ta ---|* FC = FUNCTION CODE. 01715 M00S01513.1ta ---|* APTN = ACCOUNTING PSEUDO TERMINAL NUMBER. 01716 M00S01514.1ta ---|* 01717 M00S01515.1ta ---|* REQUEST QUEUE FORMAT. 01718 M00S01516.1ta ---|*T, IR 36/ ,12/ TN,10/ ,1/O,1/R
Figure IR
01719 M00S01517.1ta ---|* 01720 M00S01518.1ta ---|* TN = TERMINAL NUMBER. 01721 M00S01519.1ta ---|* O = COMBINED INPUT/OUTPUT OVERFLOW FLAG.
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1ta.txt · Last modified: (external edit)