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