Seq # *Modification Id* Act
----------------------------+
00001 M00S00001.1mi +++| IDENT 1MI,HST
00002 M00S00002.1mi +++| PERIPH
00003 M00S00003.1mi +++| BASE MIXED
00004 M00S00004.1mi +++| SST
00005 M00S00005.1mi +++| SYSCOM
00006 M00S00006.1mi +++|*COMMENT 1MI - TERMINAL I/O DRIVER.
Line S00007 Modification History
M01 (Removed by) 281l803
Seq # *Modification Id* Act
----------------------------+
00007 M01S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982.
Line S00001 Modification History
M01 (Added by) 281l803
Seq # *Modification Id* Act
----------------------------+
00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992.
00009 M00S00008.1mi +++| HST TITLE 1MI - TERMINAL I/O DRIVER.
00010 M00S00009.1mi +++| HST SPACE 4,10
00011 M00S00010.1mi +++|*** 1MI - TERMINAL I/O DRIVER.
00012 M00S00011.1mi +++|*
00013 M00S00012.1mi +++|* R. V. SAMORA. 82/05/30.
00014 M00S00013.1mi +++| HST SPACE 4,10
00015 M00S00014.1mi +++|*** *1MI* HIGH SPEED TERMINAL SUPPORT (HSTS) IMPROVES THE
00016 M00S00015.1mi +++|* INTERACTIVE I/O PERFORMANCE OF IAF BY REMOVING QUEUING DELAYS
00017 M00S00016.1mi +++|* AND ALLOWING INTERACTIVE I/O TO PROCEED WITHOUT MANDATORY
00018 M00S00017.1mi +++|* ROLLOUT OF THE INTERACTIVE USER PROGRAM. THIS FEATURE,
00019 M00S00018.1mi +++|* ALTHOUGH INTENDED FOR HIGH SPEED TERMINALS PRIMARILY,
00020 M00S00019.1mi +++|* IMPROVES SYSTEM PERFORMANCE NOT ONLY IN THE AREA OF CHARACTER
00021 M00S00020.1mi +++|* THROUGHPUT BUT REDUCES SYSTEM OVERHEAD BY KEEPING INTERACTIVE
00022 M00S00021.1mi +++|* JOB MOVEMENT AT A MINIMUM.
00023 M00S00022.1mi +++| HST SPACE 4,10
00024 M00S00023.1mi +++|*** CALL.
00025 M00S00024.1mi +++|*
00026 M00S00025.1mi +++|*
00027 M00S00026.1mi +++|*T IR 18/*1MI*, 1/A, 5/CP, 1/T, 17/, 18/FET
Figure
IR
0 17 18 29 FET 30 34 35 36 40 41 42 59 T CP A *1MI*
00028 M00S00027.1mi +++|* A SET IF AUTO RECALL DESIRED.
00029 M00S00028.1mi +++|* CP CONTROL POINT OF REQUESTOR.
00030 M00S00029.1mi +++|* T ZERO IF THIS PP HAS THE TINW/TIOW INTERLOCK.
00031 M00S00030.1mi +++|* FET FET ADDRESS.
00032 M00S00031.1mi +++|*
00033 M00S00032.1mi +++|*T MB 1/S, 5/, 6/CP, 6/RC, 18/, 12/FP, 1/A, 1/, 4/IF, 3/, 3/RT
Figure
MB
0 2 3 5 6 9 10 11 12 23 24 29 RT IF A FP 30 41 42 47 48 53 54 58 59 RC CP S
00034 M00S00033.1mi +++|* S SET BY *CPUMTR* IF *1MI* STARTED FROM RECALL STACK.
00035 M00S00034.1mi +++|* CP UNUSED (WARNING - SOMETIMES SET BY *CPUMTR*).
00036 M00S00035.1mi +++|* RC REASON CODE WHY *1MI* ENTERED RECALL.
00037 M00S00036.1mi +++|* FP FIRST POT IN CHAIN PRIOR TO RECALL.
00038 M00S00037.1mi +++|* A SET IF MONITOR FUNCTION REJECTED BECAUSE IAF ABORTED.
00039 M00S00038.1mi +++|* IF *CIO* INTERNAL FUNCTION CODE (SEE *COMSCIO*).
00040 M00S00039.1mi +++|* RT MONITOR FUNCTION REJECTION COUNT.
00041 M00S00040.1mi +++|*
00042 M00S00041.1mi +++|*T MB+1 12/0, 24/IN, 24/OUT
00043 M00S00042.1mi +++|*T MB+2 6/0, 6/FETL, 24/FIRST, 24/LIMIT
Figure
MB +2
0 23 24 29 LIMIT FIRST 30 47 48 53 54 59 FIRST FETL 0
00044 M00S00043.1mi +++|* FETL FET LENGTH IN CM WORDS.
00045 M00S00044.1mi +++|* FET POINTERS ARE TRANSFERED ONLY ON INITIAL *1MI* CALL.
00046 M00S00045.1mi +++| HST SPACE 4,10
00047 M00S00046.1mi +++|*** DAYFILE MESSAGES.
00048 M00S00047.1mi +++|*
00049 M00S00048.1mi +++|* * FET ADDRESS OUT OF RANGE AT NNN.*
00050 M00S00049.1mi +++|* FET ADDRESS .LE. 1 OR FET EXCEEDS FIELD LENGTH.
00051 M00S00050.1mi +++|*
00052 M00S00051.1mi +++|* * BUFFER ARGUMENT ERROR ON FFF AT NNN.*
00053 M00S00052.1mi +++|* A BUFFER POINTER DOES NOT CONFORM TO CONSTRAINTS-
00054 M00S00053.1mi +++|* - FIRST POINTER .LE. IN POINTER.
00055 M00S00054.1mi +++|* - FIRST POINTER .LE. OUT POINTER.
00056 M00S00055.1mi +++|* - OUT POINTER .LT. BUFFER LIMIT.
00057 M00S00056.1mi +++|* - IN POINTER .LT. BUFFER LIMIT.
00058 M00S00057.1mi +++|* - BUFFER LENGTH .LE. FIELD LENGTH.
00059 M00S00058.1mi +++|*
00060 M00S00059.1mi +++|* * INCORRECT I/O REQUEST ON FILE FFF AT NNN.*
00061 M00S00060.1mi +++|* I/O WAS REQUESTED ON A DETACHED INTERACTIVE
00062 M00S00061.1mi +++|* JOB WITH JOB TERMINATION OPTION SET TO COMPLETION.
00063 M00S00062.1mi +++|*
00064 M00S00063.1mi +++|* FFF REPRESENTS FILE NAME AS GIVEN IN THE FET.
00065 M00S00064.1mi +++|* NNN REPRESENTS THE FILE FET ADDRESS.
00066 M00S00065.1mi +++| HST SPACE 4,10
00067 M00S00066.1mi +++|*** HANG CONDITIONS.
00068 M00S00067.1mi +++|*
00069 M00S00068.1mi +++|* *1MI* WILL HANG WITH THE *HNGM* MONITOR FUNCTION IF-
00070 M00S00069.1mi +++|* - INCORRECT ERROR CODE IS DETECTED DURING ERROR
00071 M00S00070.1mi +++|* PROCESSING.
00072 M00S00071.1mi +++|* - AN INCORRECT NETWORK BLOCKSIZE IS DETECTED FROM IAF.
00073 M00S00072.1mi +++|*
00074 M00S00073.1mi +++|* HANG CONDITIONS ARE SOFT IN THAT BY CLEARING THE APPROPRIATE
00075 M00S00074.1mi +++|* PPU OUTPUT REGISTER, *1MI* WILL ATTEMPT TO RECOVER ITS
00076 M00S00075.1mi +++|* CURRENT PROCESS AS GRACEFULLY AS POSSIBLE.
00077 M00S00076.1mi +++| HST SPACE 4,10
00078 M00S00077.1mi +++|*** PROGRAMMING CONSIDERATIONS-
00079 M00S00078.1mi +++|*
00080 M00S00079.1mi +++|* *1MI* IN THE PROCESS OF HANDLING TERMINAL I/O WILL-
00081 M00S00080.1mi +++|*
00082 M00S00081.1mi +++|* 1) READ PROCESS-
00083 M00S00082.1mi +++|*
00084 M00S00083.1mi +++|* - ATTEMPT TO FLUSH *LOFW* OR RA+2 LIST OF FILE
00085 M00S00084.1mi +++|* ENTRIES BEFORE PROCESSING THE READ REQUEST.
00086 M00S00085.1mi +++|*
00087 M00S00086.1mi +++|* 2) WRITE PROCESS-
00088 M00S00087.1mi +++|*
00089 M00S00088.1mi +++|* - *1MI* WILL TRANSFER THE MAXIMUM AMOUNT OF OUTPUT
00090 M00S00089.1mi +++|* DATA SPECIFIC TO EACH TERMINALS DOWNLINE BLOCK
00091 M00S00090.1mi +++|* LIMIT WHICH IS CHARACTERISTIC OF ITS LINE SPEED.
00092 M00S00091.1mi +++|* - PPU RECALL IS USED BETWEEN *VADO* OUTPUT DOWNLINE
00093 M00S00092.1mi +++|* *TSEM* FUNCTION REQUESTS TO IAF.
00094 M00S00093.1mi +++|* - IN THE EVENT THE USER JOB SHOULD ROLL FROM THE
00095 M00S00094.1mi +++|* CONTROL POINT WHILE *1MI* IS IN PPU RECALL,
00096 M00S00095.1mi +++|* ROUTINE *1RO* WILL CONTINUE THE OUTPUT PROCESS
00097 M00S00096.1mi +++|* STARTED BY *1MI* WHETHER EXPLICIT OR IMPLICIT
00098 M00S00097.1mi +++|* OUTPUT REQUEST VIA LIST OF FILES PROCESSING.
00099 M00S00098.1mi +++|* - BUFFERED WRITE ON A FULL OUTPUT BUFFER
00100 M00S00099.1mi +++|* WITH NO *EOL* BYTE RESULTS IN A ROLL OF
00101 M00S00100.1mi +++|* THE USER JOB TO ALLOW *1RO* TO ASSURE
00102 M00S00101.1mi +++|* OUTPUT BUFFER FLUSH COMPLETION.
00103 M00S00102.1mi +++|*
00104 M00S00103.1mi +++|* 3) MONITOR FUNCTION REJECTION PROCESSING-
00105 M00S00104.1mi +++|*
00106 M00S00105.1mi +++|* - IF A *TGPM* OR *TSEM* MONITOR FUNCTION IS
00107 M00S00106.1mi +++|* REJECTED BECAUSE IAF IS BUSY, *1MI* WILL GO INTO
00108 M00S00107.1mi +++|* PP RECALL. WHEN RESTARTED, *1MI* WILL THEN
00109 M00S00108.1mi +++|* DROP ANY POTS CURRENTLY HELD AND START OVER.
00110 M00S00109.1mi +++|* - IAF INACCESSIBILITY DETECTED THROUGH EITHER
00111 M00S00110.1mi +++|* FUNCTION REJECTION OR *1MI* PRESET FORCES
00112 M00S00111.1mi +++|* SUSPENSION ROLLOUT OF THE USER JOB CAUSING
00113 M00S00112.1mi +++|* JOB DETACHMENT TO ALLOW SUBSEQUENT USER
00114 M00S00113.1mi +++|* RECOVERY.
00115 M00S00114.1mi +++|*
00116 M00S00115.1mi +++|* 4) MULTIPLEXOR TERMINAL CHARACTERISTICS-
00117 M00S00116.1mi +++|*
00118 M00S00117.1mi +++|* - BECAUSE OF THE LACK OF TYPEAHEAD FOR MULTIPLEXOR
00119 M00S00118.1mi +++|* TERMINALS, THE USER JOB STEMMING FROM TERMINALS
00120 M00S00119.1mi +++|* OF THIS TYPE WILL ALWAYS ROLL FROM THE CONTROL
00121 M00S00120.1mi +++|* POINT ON I/O REQUESTS.
00122 M00S00121.1mi +++| HST SPACE 4,10
00123 M00S00122.1mi +++|** RECALL TIME PERIODS (MILLISECONDS)
00124 M00S00123.1mi +++|
00125 M00S00124.1mi +++| RECMS1 EQU 10D JOB ACTIVE WITH NO READY DATA
00126 M00S00125.1mi +++| RECMS2 EQU 100D IAF REQUEST QUEUE REJECTION
00127 M00S00126.1mi +++|
00128 M00S00127.1mi +++|** REASON CODES FOR WHY *1MI* MIGHT GO INTO RECALL.
00129 M00S00128.1mi +++|
00130 M00S00129.1mi +++| LOC 0
00131 M00S00130.1mi +++|
00132 M00S00131.1mi +++| TALR BSS 1 IAF BUSY, TRY AGAIN LATER
00133 M00S00132.1mi +++| TDOR BSS 1 *VADO* *TSEM* MONITOR FUNCTION REJECTED
00134 M00S00133.1mi +++| TPOR BSS 1 *VDPO* *TSEM* MONITOR FUNCTION REJECTED
00135 M00S00134.1mi +++|
00136 M00S00135.1mi +++| LOC *O
00137 M00S00136.1mi +++|
00138 M00S00137.1mi +++|** ASSEMBLY CONSTANTS.
00139 M00S00138.1mi +++|
00140 M00S00139.1mi +++| IAFF EQU 4000 FUNCTION REJECTED BECAUSE IAF ABORTED
00141 M00S00140.1mi +++| TTB EQU 4000 TIOW/TINW BUSY, FROM *CPUMTR* IN IR+2
00142 M00S00141.1mi +++| EJT$ EQU 1 ASSEMBLE EJT ADDRESSING (*COMPGFP*)
00143 M00S00142.1mi +++| HST SPACE 4,10
00144 M00S00143.1mi +++|** COMMON DECKS.
00145 M00S00144.1mi +++|
00146 M00S00145.1mi +++|
00147 M00S00146.1mi +++|*CALL,COMPMAC
00148 M00S00147.1mi +++|*CALL,COMSACC
00149 M00S00148.1mi +++|*CALL,COMSCIO
00150 M00S00149.1mi +++|*CALL,COMSCPS
00151 M00S00150.1mi +++|*CALL,COMSEJT
00152 M00S00151.1mi +++|*CALL COMSJCE
00153 M00S00152.1mi +++|*CALL,COMSPIM
00154 M00S00153.1mi +++| QUAL REM
00155 M00S00154.1mi +++|*CALL,COMSREM
00156 M00S00155.1mi +++| QUAL
00157 M00S00156.1mi +++|*CALL,COMSSSJ
00158 M00S00157.1mi +++|*CALL,COMSTCM
00159 M00S00158.1mi +++| HST SPACE 4,10
00160 M00S00159.1mi +++|** DIRECT LOCATION ASSIGNMENTS.
00161 M00S00160.1mi +++|
00162 M00S00161.1mi +++|
00163 M00S00162.1mi +++| TT EQU T6 - T7 TERMINAL TABLE ADDRESS
00164 M00S00163.1mi +++| NF EQU 15 NFL/100B
00165 M00S00164.1mi +++| T8 EQU 16 SCRATCH
00166 M00S00165.1mi +++| T9 EQU 17 SCRATCH
00167 M00S00166.1mi +++| PA EQU T8 - T9 IAF POT MEMORY ADDRESS
00168 M00S00167.1mi +++| MB EQU 20 - 24 MESSAGE BUFFER PARAMETERS FROM *PPR*
00169 M00S00168.1mi +++| MB1 EQU 25 - 31 MESSAGE BUFFER + 1
00170 M00S00169.1mi +++| MB2 EQU 32 - 36 MESSAGE BUFFER + 2
00171 M00S00170.1mi +++| CD EQU MB1 SCRATCH BUFFER.
00172 M00S00171.1mi +++| CN EQU MB2 SCRATCH BUFFER
00173 M00S00172.1mi +++| BS EQU 37 - 43 BUFFER STATUS
00174 M00S00173.1mi +++| FN EQU BS FILE NAME
00175 M00S00174.1mi +++| FC EQU 44 *1MI* FUNCTION CODE
00176 M00S00175.1mi +++| TN EQU 45 INTERACTIVE TERMINAL NUMBER
00177 M00S00176.1mi +++| TA EQU 46 INTERACTIVE REFERENCE ADDRESS
00178 M00S00177.1mi +++| PP EQU 47 CURRENT POT POINTER
00179 M00S00178.1mi +++| WC EQU 57 CM TRANSFER WORD COUNT
00180 M00S00179.1mi +++| FT EQU 60 - 61 BUFFER FIRST WORD ADDRESS
00181 M00S00180.1mi +++| LM EQU 62 - 63 BUFFER LAST WORD ADDRESS
00182 M00S00181.1mi +++| IN EQU 64 - 65 BUFFER IN POINTER
00183 M00S00182.1mi +++| OT EQU 66 - 67 BUFFER OUT POINTER
00184 M00S00183.1mi +++|
00185 M00S00184.1mi +++|
00186 M00S00185.1mi +++| ERRNZ OT-FT-6 FET DIRECT CELLS MUST BE CONTIGUOUS
00187 M00S00186.1mi +++| ERRNZ /CIO/RDF CODE DEPENDS ON INTERNAL READ FUNCTION
00188 M00S00187.1mi +++| ERRNZ /CIO/WTF-1 CODE DEPENDS ON INTERNAL WRITE FUNCTION
00189 M00S00188.1mi +++|
00190 M00S00189.1mi +++| HST TITLE MACRO DEFINITIONS.
00191 M00S00190.1mi +++|
00192 M00S00191.1mi +++|** MACRO DEFINITIONS.
00193 M00S00192.1mi +++|HST SPACE 4,10
00194 M00S00193.1mi +++|** CFET - COMPUTE FET ADDRESS.
00195 M00S00194.1mi +++|* CFET N
00196 M00S00195.1mi +++|*
00197 M00S00196.1mi +++|* ENTRY *N* = FET CM WORD OFFSET.
00198 M00S00197.1mi +++|*
00199 M00S00198.1mi +++|* COMPUTES ABSOLUTE FET ADDRESS USING (IR+3 - IR+4)
00200 M00S00199.1mi +++|*
00201 M00S00200.1mi +++|* CALLS CAF.
00202 M00S00201.1mi +++|
00203 M00S00202.1mi +++|
00204 M00S00203.1mi +++| PURGMAC CFET
00205 M00S00204.1mi +++|
00206 M00S00205.1mi +++| CFET MACRO W
00207 M00S00206.1mi +++| RJM CAF GET ABSOLUTE ADDRESS
00208 M00S00207.1mi +++| IFC NE,$W$$,1
00209 M00S00208.1mi +++| ADK W OFFSET IF REQUESTED
00210 M00S00209.1mi +++| ENDM
00211 M00S00210.1mi +++| HST SPACE 4,10
00212 M00S00211.1mi +++|** ERROR - PROCESS *1MI* ERROR CODE.
00213 M00S00212.1mi +++|*
00214 M00S00213.1mi +++|* ERROR EC
00215 M00S00214.1mi +++|*
00216 M00S00215.1mi +++|* *EC* = *1MI* ERROR CODE.
00217 M00S00216.1mi +++|
00218 M00S00217.1mi +++|
00219 M00S00218.1mi +++| PURGMAC ERROR
00220 M00S00219.1mi +++|
00221 M00S00220.1mi +++| ERROR MACRO EC
00222 M00S00221.1mi +++| LDK /CIOERR/EC
00223 M00S00222.1mi +++| LJM ERR PROCESS ERROR
00224 M00S00223.1mi +++| ENDM
00225 M00S00224.1mi +++| HST SPACE 4,10
00226 M00S00225.1mi +++|** MSG - DEFINE ERROR OPTIONS AND DAYFILE MESSAGES.
00227 M00S00226.1mi +++|*
00228 M00S00227.1mi +++|*ERR MSG (TEXT),EF,FETD
00229 M00S00228.1mi +++|*
00230 M00S00229.1mi +++|* ENTRY *ERR* = *COMSCIO* ERROR CODE.
00231 M00S00230.1mi +++|* *TEXT* = DAYFILE ERROR MESSAGE.
00232 M00S00231.1mi +++|* *EF* = CONTROL POINT ERROR FLAG TO SET.
00233 M00S00232.1mi +++|* *FETD* = FET DUMP OPTION.
00234 M00S00233.1mi +++|*
00235 M00S00234.1mi +++|* EXIT ERROR PROCESSING OPTIONS AND DAYFILE MESSAGE
00236 M00S00235.1mi +++|* ADDRESSES GENERATED PER FORMAT OF *TEPO* TABLE
00237 M00S00236.1mi +++|* DESCRIPTION.
00238 M00S00237.1mi +++|
00239 M00S00238.1mi +++|
00240 M00S00239.1mi +++| PURGMAC MSG
00241 M00S00240.1mi +++|
00242 M00S00241.1mi +++| MACRO MSG,ERR,TEXT,EF,FETD
00243 M00S00242.1mi +++| LOCAL A
00244 M00S00243.1mi +++| VFD 6/EF,5//CIOERR/ERR,1/FETD
00245 M00S00244.1mi +++| CON =Z*_TEXT_*
00246 M00S00245.1mi +++| A MICRO 1,,$TEXT$
00247 M00S00246.1mi +++| A MICCNT A
00248 M00S00247.1mi +++| ERRNG 32D-A TEXT OVERFLOW CONDITION
00249 M00S00248.1mi +++| ENDM
00250 M00S00249.1mi +++| HST TITLE *1MI* MAIN PROGRAM.
00251 M00S00250.1mi +++| ORG PPFW
00252 M00S00251.1mi +++|
00253 M00S00252.1mi +++|
00254 M00S00253.1mi +++|
00255 M00S00254.1mi +++| HST RJM PRS PRESET *1MI*
00256 M00S00255.1mi +++| LDD FC *1MI* FUNCTION CODE
00257 M00S00256.1mi +++| LMN /CIO/WTF
00258 M00S00257.1mi +++| ZJP HST5 IF *1MI* WRITE FUNCTION
00259 M00S00258.1mi +++| AOM ANRA ANY OUTPUT SHOULD BE ENTIRELY FLUSHED
00260 M00S00259.1mi +++| UJN HST5 FLUSH ANY LIST OF FILE OUTPUT
00261 M00S00260.1mi +++|
00262 M00S00261.1mi +++|* PROCESS *1MI* READ FUNCTION.
00263 M00S00262.1mi +++|
00264 M00S00263.1mi +++| HST1 RJM CTI CHECK FOR TERMINAL INPUT
00265 M00S00264.1mi +++| ZJN HST1.1 IF NO INPUT FOUND
00266 M00S00265.1mi +++| RJM PTI PROCESS TERMINAL INPUT
00267 M00S00266.1mi +++| ZJN HST2 IF INPUT QUEUING WITHIN IAF IN PROCESS
00268 M00S00267.1mi +++| LJM DPP DROP PP
00269 M00S00268.1mi +++|
00270 M00S00269.1mi +++|* PROCESS NO INPUT ON A READ OPERATION.
00271 M00S00270.1mi +++|
00272 M00S00271.1mi +++| HST1.1 RJM GMX
00273 M00S00272.1mi +++| ZJN HST3 IF MULTIPLEXOR TERMINAL
00274 M00S00273.1mi +++| HST2 RJM CJA CHECK JOB ACTIVITY
00275 M00S00274.1mi +++| ZJN HST3 IF USER JOB INACTIVE
00276 M00S00275.1mi +++| LMK ICPS
00277 M00S00276.1mi +++| ZJN HST3 IF JOB IN *I* STATUS
00278 M00S00277.1mi +++| LMK ICPS&XCPS
00279 M00S00278.1mi +++| NJN HST4 IF JOB NOT IN RECALL
00280 M00S00279.1mi +++| HST3 LDK ROSR ROLL OUT JOB
00281 M00S00280.1mi +++| STD T0
00282 M00S00281.1mi +++| RJM ROJ ROLL USER JOB
00283 M00S00282.1mi +++| HST4 LDK TALR
00284 M00S00283.1mi +++| LJM ERS ENTER RECALL STACK
00285 M00S00284.1mi +++|
00286 M00S00285.1mi +++|* PROCESS *1MI* WRITE FUNCTION.
00287 M00S00286.1mi +++|
00288 M00S00287.1mi +++| HST5 RJM CTO CHECK FOR TERMINAL OUTPUT
00289 M00S00288.1mi +++| ZJN HST10 IF NO OUTPUT
00290 M00S00289.1mi +++| RJM PTO PROCESS TERMINAL OUTPUT
00291 M00S00290.1mi +++| MJN HST2 IF IAF OUTPUT THRESHOLD REACHED
00292 M00S00291.1mi +++| HST10 LDD FC INITIAL *1MI* FUNCTION CODE
00293 M00S00292.1mi +++| LMK /CIO/RDF
00294 M00S00293.1mi +++| ZJP HST1 IF OUTSTANDING READ FUNCTION
00295 M00S00294.1mi +++| RJM CFN COMPLETE OUTPUT FET
00296 M00S00295.1mi +++|* UJN DPP DROP PPU
00297 M00S00296.1mi +++| HST SPACE 4,10
00298 M00S00297.1mi +++|** DPP - DROP PPU.
00299 M00S00298.1mi +++|
00300 M00S00299.1mi +++| DPP BSS 0 ENTRY
00301 M00S00300.1mi +++| MONITOR DPPM DROP PPU
00302 M00S00301.1mi +++| LJM PPR EXIT TO PP RESIDENT
00303 M00S00302.1mi +++| HST TITLE GENERAL SUBROUTINES.
00304 M00S00303.1mi +++| ANR SPACE 4,10
00305 M00S00304.1mi +++|** ANR - ASSURE NETWORK REQUIREMENTS.
00306 M00S00305.1mi +++|*
00307 M00S00306.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS.
00308 M00S00307.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT.
00309 M00S00308.1mi +++|* (BS - BS+4) = OUTPUT BUFFER STATUS.
00310 M00S00309.1mi +++|* (FT - FT+1) = BUFFER FIRST WORD ADDRESS.
00311 M00S00310.1mi +++|* (IN - IN+1) = BUFFER IN POINTER.
00312 M00S00311.1mi +++|* (OT - OT+1) = BUFFER OUT POINTER.
00313 M00S00312.1mi +++|* (LM - LM+1) = BUFFER LAST WORD ADDRESS.
00314 M00S00313.1mi +++|* (CD) = NETWORK BLOCK LIMIT CM WORD COUNT.
00315 M00S00314.1mi +++|*
00316 M00S00315.1mi +++|* EXIT (CD+2) = ACCEPTABLE CM WORD COUNT ENCOMPASSING
00317 M00S00316.1mi +++|* COMPLETE LOGICAL LINES.
00318 M00S00317.1mi +++|* (A) = LESS THAN ZERO IF NO COMPLETE LINES ARE
00319 M00S00318.1mi +++|* ENCOUNTERED WITHIN THE OUTPUT BUFFER.
00320 M00S00319.1mi +++|*
00321 M00S00320.1mi +++|* USES CM - CM+4, T2 - T4, CD+1 - CD+4.
00322 M00S00321.1mi +++|*
00323 M00S00322.1mi +++|* CALLS RBS.
00324 M00S00323.1mi +++|
00325 M00S00324.1mi +++|
00326 M00S00325.1mi +++| ANR SUBR ENTRY/EXIT
00327 M00S00326.1mi +++|
00328 M00S00327.1mi +++|* BEGINNING BUFFER SCAN IS FROM NETWORK BLOCK SIZE.
00329 M00S00328.1mi +++|
00330 M00S00329.1mi +++| LDD CD+3 COMPARE BUFFER CONTENT TO BLOCKSIZE
00331 M00S00330.1mi +++| SHN 14
00332 M00S00331.1mi +++| LMD CD+4
00333 M00S00332.1mi +++| SBD CD
00334 M00S00333.1mi +++| SBN 1
00335 M00S00334.1mi +++| PJN ANR1 IF CONTENT GREATER THAN BLOCKSIZE
00336 M00S00335.1mi +++|
00337 M00S00336.1mi +++|* OUTPUT BUFFER IS SEARCHED FOR THE LAST *EOL* BYTE WHICH
00338 M00S00337.1mi +++|* MARKS THE ACCEPTABLE CM WORD TRANSFER COUNT SATISFYING
00339 M00S00338.1mi +++|* NETWORK REQUIREMENTS.
00340 M00S00339.1mi +++|
00341 M00S00340.1mi +++| LDD CD+3 PRESET BUFFER SEARCH PARAMETERS
00342 M00S00341.1mi +++| STD CD+1
00343 M00S00342.1mi +++| LDD CD+4
00344 M00S00343.1mi +++| STD CD+2
00345 M00S00344.1mi +++|
00346 M00S00345.1mi +++|* BUFFER IS TRANSFERED AS IS IF FLUSH CONDITIONS PREVAIL.
00347 M00S00346.1mi +++|
00348 M00S00347.1mi +++| LDC ** BUFFER FLUSH PASS NETWORK REQUIREMENTS
00349 M00S00348.1mi +++|* LDC 1
00350 M00S00349.1mi +++| ANRA EQU *-1
00351 M00S00350.1mi +++| NJN ANRX IF WRITER,WRITEF,FLUSH OR READ FUNCTION
00352 M00S00351.1mi +++|
00353 M00S00352.1mi +++|* PRESET RUNNING *IN* POINTER PRIOR TO BUFFER SCAN.
00354 M00S00353.1mi +++|
00355 M00S00354.1mi +++| LDD IN CURRENT BUFFER *IN* POINTER
00356 M00S00355.1mi +++| STD T3
00357 M00S00356.1mi +++| LDD IN+1
00358 M00S00357.1mi +++| STD T4
00359 M00S00358.1mi +++| RJM RBS SCAN BUFFER FOR *EOL* WITHIN BLOCKSIZE
00360 M00S00359.1mi +++| PJN ANRX IF EOL FOUND
00361 M00S00360.1mi +++| LDM PTOA
00362 M00S00361.1mi +++| LPN 77
00363 M00S00362.1mi +++| NJN ANR0 IF BUFFER FULL
00364 M00S00363.1mi +++| LDM ANRB
00365 M00S00364.1mi +++| SBN 1
00366 M00S00365.1mi +++| MJN ANRX IF SYNCHRONOUS TERMINAL AND NO EOL
00367 M00S00366.1mi +++| ANR0 LDD CD+4 SET WORD COUNT TO BUFFER CONTENTS - 1
00368 M00S00367.1mi +++| SBN 1
00369 M00S00368.1mi +++| STD CD+2
00370 M00S00369.1mi +++| STM CODE SET NO RECALL
00371 M00S00370.1mi +++| SBN 1
00372 M00S00371.1mi +++| LJM ANRX RETURN
00373 M00S00372.1mi +++|
00374 M00S00373.1mi +++|* ADJUST BUFFER SCAN PARAMETERS TO BEGIN AT BLOCKSIZE.
00375 M00S00374.1mi +++|
00376 M00S00375.1mi +++| ANR1 LDD CD NETWORK BLOCKSIZE CM WORD COUNT
00377 M00S00376.1mi +++| STD CD+2
00378 M00S00377.1mi +++| SHN -14
00379 M00S00378.1mi +++| STD CD+1
00380 M00S00379.1mi +++| LDD OT BUFFER *IN* IS SET TO *OUT* PLUS BLOCKSIZE
00381 M00S00380.1mi +++| SHN 14
00382 M00S00381.1mi +++| LMD OT+1
00383 M00S00382.1mi +++| ADD CD+2
00384 M00S00383.1mi +++| STD T3+1 RUNNING *IN* POINTER
00385 M00S00384.1mi +++| SHN -14
00386 M00S00385.1mi +++| STD T3
00387 M00S00386.1mi +++| SBD LM
00388 M00S00387.1mi +++| SHN 14
00389 M00S00388.1mi +++| LMD T3+1
00390 M00S00389.1mi +++| SBD LM+1
00391 M00S00390.1mi +++| MJN ANR2 IF RUNNING *IN* IS LESS THAN *LIMIT*
00392 M00S00391.1mi +++| ADD FT+1 BUFFER WRAP RUNNING *IN* POINTER
00393 M00S00392.1mi +++| STD T3+1
00394 M00S00393.1mi +++| SHN -14
00395 M00S00394.1mi +++| ADD FT
00396 M00S00395.1mi +++| STD T3
00397 M00S00396.1mi +++| ANR2 RJM RBS SCAN BLOCKSIZE PORTION OF BUFFER
00398 M00S00397.1mi +++| PJP ANRX IF *EOL* BYTE WITHIN BLOCKSIZE
00399 M00S00398.1mi +++|
00400 M00S00399.1mi +++|* AT LEAST BLOCKSIZE-1 CM WORDS NEED BE TRANSFERED IF FLUSH
00401 M00S00400.1mi +++|* CONDITIONS PREVAIL DUE TO WRITER,WRITEF,FLUSH OR READ
00402 M00S00401.1mi +++|* FUNCTION IS OUTSTANDING.
00403 M00S00402.1mi +++|
00404 M00S00403.1mi +++| LDC 0
00405 M00S00404.1mi +++|* LDC 1 (IF TC .LE. 8, ASYNC LINE)
00406 M00S00405.1mi +++| ANRB EQU *-1
00407 M00S00406.1mi +++| ADM ANRA BUFFER FLUSH CONDITIONS
00408 M00S00407.1mi +++| NJN ANR3 IF FLUSH REQUIRED
00409 M00S00408.1mi +++|
00410 M00S00409.1mi +++|* BUFFERED WRITE FUNCTION REQUIRES TOTAL SCAN FOR *EOL*.
00411 M00S00410.1mi +++|
00412 M00S00411.1mi +++| LDD IN PRESET REST OF BUFFER SCAN
00413 M00S00412.1mi +++| STD T3
00414 M00S00413.1mi +++| LDD IN+1
00415 M00S00414.1mi +++| STD T3+1
00416 M00S00415.1mi +++| LDD CD+3 INCLUDE TOTAL BUFFER CONTENT
00417 M00S00416.1mi +++| STD CD+1
00418 M00S00417.1mi +++| LDD CD+4
00419 M00S00418.1mi +++| STD CD+2
00420 M00S00419.1mi +++| RJM RBS SCAN MAXIMUM BUFFER CONTENT FOR *EOL*
00421 M00S00420.1mi +++| MJP ANRX IF NO *EOL* BYTE WITHIN TOTAL BUFFER
00422 M00S00421.1mi +++|
00423 M00S00422.1mi +++|* NETWORK BLOCKSIZE-1 CM WORDS ARE TRANSMITTED TO
00424 M00S00423.1mi +++|* FACILITATE MAXIMUM NETWORK TRANSFER WHILE ALLOWING FOR
00425 M00S00424.1mi +++|* CONTROL BYTE PROCESSING DURING CHARACTER CONVERSION
00426 M00S00425.1mi +++|* WITHIN IAF.
00427 M00S00426.1mi +++|
00428 M00S00427.1mi +++| ANR3 LDD CD NETWORK BLOCKSIZE CM WORD COUNT
00429 M00S00428.1mi +++| SBN 1
00430 M00S00429.1mi +++| STD CD+2 BLOCKSIZE-1 CM TRANSFER
00431 M00S00430.1mi +++| UJP ANRX RETURN
00432 M00S00431.1mi +++| CAF SPACE 4,10
00433 M00S00432.1mi +++|** CAF - COMPUTE ABSOLUTE FET ADDRESS.
00434 M00S00433.1mi +++|*
00435 M00S00434.1mi +++|* ENTRY (IR+3 - IR+4) = RELATIVE FET ADDRESS.
00436 M00S00435.1mi +++|*
00437 M00S00436.1mi +++|* EXIT (A) = ABSOLUTE FET ADDRESS.
00438 M00S00437.1mi +++|
00439 M00S00438.1mi +++|
00440 M00S00439.1mi +++| CAF SUBR ENTRY/EXIT
00441 M00S00440.1mi +++| LDD IR+3 RELATIVE ADDRESS
00442 M00S00441.1mi +++| LPN 37
00443 M00S00442.1mi +++| SHN 6
00444 M00S00443.1mi +++| ADD RA
00445 M00S00444.1mi +++| SHN 6
00446 M00S00445.1mi +++| ADD IR+4 ABSOLUTE ADDRESS
00447 M00S00446.1mi +++| UJN CAFX RETURN
00448 M00S00447.1mi +++| CEF SPACE 4,10
00449 M00S00448.1mi +++|** CEF - CHECK FOR ERROR FLAG.
00450 M00S00449.1mi +++|*
00451 M00S00450.1mi +++|* EXIT (A) = ERROR FLAG, IF ONE EXISTS.
00452 M00S00451.1mi +++|* (CM+2) = 1, IF USER BREAK ERROR FLAG AND JOB HAS
00453 M00S00452.1mi +++|* EXTENDED REPRIEVE SELECTED.
00454 M00S00453.1mi +++|* 0, OTHERWISE.
00455 M00S00454.1mi +++|*
00456 M00S00455.1mi +++|* USES CM - CM+4, T0.
00457 M00S00456.1mi +++|
00458 M00S00457.1mi +++|
00459 M00S00458.1mi +++| CEF2 LDD T0 RETURN ERROR FLAG
00460 M00S00459.1mi +++|
00461 M00S00460.1mi +++| CEF SUBR ENTRY/EXIT
00462 M00S00461.1mi +++| LDD CP
00463 M00S00462.1mi +++| ADK STSW CHECK FOR ERROR FLAG
00464 M00S00463.1mi +++| CRD CM
00465 M00S00464.1mi +++| LDN 0
00466 M00S00465.1mi +++| STD CM+2
00467 M00S00466.1mi +++| LDD CM+1
00468 M00S00467.1mi +++| ZJN CEFX IF NO ERROR FLAG PRESENT
00469 M00S00468.1mi +++| STD T0
00470 M00S00469.1mi +++| LMK TIET
00471 M00S00470.1mi +++| ZJN CEF1 IF USER BREAK ONE
00472 M00S00471.1mi +++| LMK TAET&TIET
00473 M00S00472.1mi +++| NJN CEF2 IF NOT A USER BREAK TWO
00474 M00S00473.1mi +++| CEF1 LDD CP
00475 M00S00474.1mi +++| ADK EECW CHECK FOR EXTENDED REPRIEVE
00476 M00S00475.1mi +++| CRD CM
00477 M00S00476.1mi +++| LDD CM
00478 M00S00477.1mi +++| SHN 0-12
00479 M00S00478.1mi +++| LPN 1
00480 M00S00479.1mi +++| STD CM+2
00481 M00S00480.1mi +++| UJN CEF2 RETURN
00482 M00S00481.1mi +++| CFN SPACE 4,10
00483 M00S00482.1mi +++|** CFN - COMPLETE FUNCTION.
00484 M00S00483.1mi +++|*
00485 M00S00484.1mi +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS NEEDING COMPLETION.
00486 M00S00485.1mi +++|* (BS - BS+4) = FET BUFFER STATUS.
00487 M00S00486.1mi +++|*
00488 M00S00487.1mi +++|* EXIT FET SET TO COMPLETION STATUS.
00489 M00S00488.1mi +++|* CONTROL POINT AREA FET POINTER REMOVED FROM
00490 M00S00489.1mi +++|* *TINW* OR *TIOW*.
00491 M00S00490.1mi +++|*
00492 M00S00491.1mi +++|* USES CM - CM+4.
00493 M00S00492.1mi +++|*
00494 M00S00493.1mi +++|* CALLS VAD.
00495 M00S00494.1mi +++|*
00496 M00S00495.1mi +++|* MACROS MONITOR.
00497 M00S00496.1mi +++|
00498 M00S00497.1mi +++|
00499 M00S00498.1mi +++| CFN SUBR ENTRY/EXIT
00500 M00S00499.1mi +++| LDD FC
00501 M00S00500.1mi +++| LMK /CIO/RDF
00502 M00S00501.1mi +++| NJN CFN1 IF NOT A READ FUNCTION
00503 M00S00502.1mi +++| LDN TINW TERMINAL INPUT POINTER
00504 M00S00503.1mi +++| STM CFNC+1 *UADM* REPLACEMENT FIELD
00505 M00S00504.1mi +++| LDN 18D FIELD POSITION
00506 M00S00505.1mi +++| SHN 6
00507 M00S00506.1mi +++| RAM CFNC+2
00508 M00S00507.1mi +++|
00509 M00S00508.1mi +++|* UPDATE CONTROL POINT AREA *TIOW* OR *TINW*.
00510 M00S00509.1mi +++|
00511 M00S00510.1mi +++| CFN1 LDN ZERL PRESET *UADM* REQUEST WORD
00512 M00S00511.1mi +++| CRD CM
00513 M00S00512.1mi +++| LDD MA
00514 M00S00513.1mi +++| CWM CFNC,ON WRITE REQUEST
00515 M00S00514.1mi +++| LDN 1 ONE *UADM* REQUEST WITH NO DROP OF PP
00516 M00S00515.1mi +++| STD CM+1
00517 M00S00516.1mi +++| STD CM+2
00518 M00S00517.1mi +++| MONITOR UADM UPDATE CONTROL POINT AREA
00519 M00S00518.1mi +++|
00520 M00S00519.1mi +++|* SET FET COMPLETION STATUS.
00521 M00S00520.1mi +++|
00522 M00S00521.1mi +++| LDD BS+4
00523 M00S00522.1mi +++| SCN 1
00524 M00S00523.1mi +++| LMN 1
00525 M00S00524.1mi +++| STD BS+4
00526 M00S00525.1mi +++|
00527 M00S00526.1mi +++|* REVALIDATE FET+0 ADDRESS.
00528 M00S00527.1mi +++|
00529 M00S00528.1mi +++| LDD IR+3 FET ADDRESS
00530 M00S00529.1mi +++| LPN 37
00531 M00S00530.1mi +++| SHN 14
00532 M00S00531.1mi +++| LMD IR+4
00533 M00S00532.1mi +++| RJM VAD VALIDATE FET+0 PRIOR TO WRITE
00534 M00S00533.1mi +++| ZJN CFN2 IF ADDRESS NOT WITHIN FL
00535 M00S00534.1mi +++| CFNB CWD BS REWRITE FET+0
00536 M00S00535.1mi +++|* PSN INHIBIT WRITE OF FET+0 (*ERX*)
00537 M00S00536.1mi +++| CFN2 UJP CFNX RETURN
00538 M00S00537.1mi +++|
00539 M00S00538.1mi +++|
00540 M00S00539.1mi +++| CFNC VFD 12/CSFS,12/TIOW,6/0,6/18D,24/**
00541 M00S00540.1mi +++| CHG SPACE 4,10
00542 M00S00541.1mi +++|** CHG - CONDITIONALLY HANG PP.
00543 M00S00542.1mi +++|*
00544 M00S00543.1mi +++|* ENTRY (A) = ERROR FLAG.
00545 M00S00544.1mi +++|*
00546 M00S00545.1mi +++|* EXIT (A) = ZERO.
00547 M00S00546.1mi +++|*
00548 M00S00547.1mi +++|* USES CM - CM+4.
00549 M00S00548.1mi +++|*
00550 M00S00549.1mi +++|* MACROS MONITOR.
00551 M00S00550.1mi +++|
00552 M00S00551.1mi +++|
00553 M00S00552.1mi +++| CHG SUBR ENTRY/EXIT
00554 M00S00553.1mi +++| STD CM+2 SET ERROR FLAG
00555 M00S00554.1mi +++| LDM CHG GET ADDRESS WHERE ERROR DETECTED
00556 M00S00555.1mi +++| STD CM+1
00557 M00S00556.1mi +++| MONITOR CHGM CONDITIONALLY HANG PP
00558 M00S00557.1mi +++| UJN CHGX RETURN
00559 M00S00558.1mi +++| CID SPACE 4,10
00560 M00S00559.1mi +++|** CID - COPY INPUT DATA.
00561 M00S00560.1mi +++|*
00562 M00S00561.1mi +++|* ENTRY (IR+3 - IR+4) = INPUT FET ADDRESS.
00563 M00S00562.1mi +++|* (BS - BS+4) = BUFFER STATUS.
00564 M00S00563.1mi +++|* (PP) = INPUT AHEAD POT CHAIN POINTER.
00565 M00S00564.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER.
00566 M00S00565.1mi +++|*
00567 M00S00566.1mi +++|* EXIT INPUT AHEAD TRANSFERED TO FET.
00568 M00S00567.1mi +++|* INPUT AHEAD POT CHAIN RELEASED.
00569 M00S00568.1mi +++|*
00570 M00S00569.1mi +++|* USES BS+3 - BS+4, CM - CM+4, T1 - T4, PP, WC.
00571 M00S00570.1mi +++|*
Line S00571 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00572 M01S00571.ns2748 ---|* CALLS CFN, CIB, MRJ, SPA, UPP, WBB.
Line S00001 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00573 M01S00001.ns2748 +++|* CALLS CFN, CIB, MRJ, RRR, SPA, SRR, UPP, WBB.
00574 M00S00572.1mi +++|*
00575 M00S00573.1mi +++|* MACROS CFET, MONITOR.
00576 M00S00574.1mi +++|
00577 M00S00575.1mi +++|
00578 M00S00576.1mi +++| CID SUBR ENTRY/EXIT
00579 M00S00577.1mi +++| LDK ZERL RESET *TSEM* REQUEST
00580 M00S00578.1mi +++| CRM WDPO,ON
00581 M00S00579.1mi +++| LDD PP BEGINNING POT CHAIN POINTER
00582 M00S00580.1mi +++| STD T2 POT CHAIN TRAILER
00583 M00S00581.1mi +++| STM WDPO+3 SET TO DROP ENTIRE POT CHAIN
00584 M00S00582.1mi +++| LDD TN
00585 M00S00583.1mi +++| STM WDPO+4
00586 M00S00584.1mi +++| LDN /REM/VCPC TRANSFER CM WORD COUNT
00587 M00S00585.1mi +++| STD WC
00588 M00S00586.1mi +++| LDN 0 SET CM TRANSFER TALLY
00589 M00S00587.1mi +++| STD T3
00590 M00S00588.1mi +++|
00591 M00S00589.1mi +++|* EOR/EOF STATUS DEPENDS ON BUFFER CONTENT.
00592 M00S00590.1mi +++|
Line S00591 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00593 M01S00591.ns2748 ---| CID1 RJM UPP UPDATE INPUT AHEAD POT POINTER
Line S00002 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00594 M01S00002.ns2748 +++| CID1 RJM SRR SET R-REGISTER TO IAF RA
00595 M01S00003.ns2748 +++| RJM UPP UPDATE INPUT AHEAD POT POINTER
00596 M00S00592.1mi +++| STM CIDB
00597 M00S00593.1mi +++|
00598 M00S00594.1mi +++|* SCAN THIS POSSIBLE LAST POT MEMORY FOR EOL BYTE.
00599 M00S00595.1mi +++|
00600 M00S00596.1mi +++| LDD T2 RESTORE PREVIOUS POT POINTER
00601 M00S00597.1mi +++| STD PP
00602 M00S00598.1mi +++| RJM SPA SET POT MEMORY ADDRESS
00603 M00S00599.1mi +++| CRM BUFF,WC
Line S00004 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00604 M01S00004.ns2748 +++| RJM RRR RESTORE R-REGISTER
00605 M00S00600.1mi +++| LDN 0
00606 M00S00601.1mi +++| STD WC
00607 M00S00602.1mi +++| STD T4
00608 M00S00603.1mi +++| CID2 LDM BUFF+4,T4
00609 M00S00604.1mi +++| ZJN CID3 IF EOL BYTE ENCOUNTERED
00610 M00S00605.1mi +++| LDD T4 SCAN NEXT CM WORD
00611 M00S00606.1mi +++| ADN 5
00612 M00S00607.1mi +++| STD T4
00613 M00S00608.1mi +++| AOD WC ACCEPT NEXT CM WORD
00614 M00S00609.1mi +++| SBN /REM/VCPC+1
00615 M00S00610.1mi +++| MJN CID2 IF NOT FULL POT MEMORY SCAN
00616 M00S00611.1mi +++| SOD WC
00617 M00S00612.1mi +++| UJN CID5 TRANSFER THIS FULL POT MEMORY
00618 M00S00613.1mi +++|
00619 M00S00614.1mi +++|* ASSURE EOF CONDITION DETECTION.
00620 M00S00615.1mi +++|
00621 M00S00616.1mi +++| CID3 LDD WC LAST POT MEMORY CM WORD COUNT
00622 M00S00617.1mi +++| NJN CID4 IF AT LEAST TWO CM WORDS
00623 M00S00618.1mi +++| LDD T3 CHECK EOF CONDITION
00624 M00S00619.1mi +++| ADM BUFF
00625 M00S00620.1mi +++| ADM BUFF+1
00626 M00S00621.1mi +++| ADM BUFF+2
00627 M00S00622.1mi +++| ADM BUFF+3
00628 M00S00623.1mi +++| ZJP CID8 IF EOF CONDITION
00629 M00S00624.1mi +++| CID4 AOD WC
00630 M00S00625.1mi +++| AOM CIDA LAST POT MEMORY WRITTEN
00631 M00S00626.1mi +++|
00632 M00S00627.1mi +++|* ENTER WRITE LOOP TO TRANSFER TO INPUT FET BUFFER.
00633 M00S00628.1mi +++|
00634 M00S00629.1mi +++| CID5 LDD T2 PREVIOUS POT CHAIN POINTER
00635 M00S00630.1mi +++| STD PP
00636 M00S00631.1mi +++| RJM CIB CHECK INPUT BUFFER THRESHOLD
00637 M00S00632.1mi +++| SBD WC
00638 M00S00633.1mi +++| PJN CID6 IF ROOM FOR COMPLETE TRANSFER
00639 M00S00634.1mi +++| ADD WC BIAS CM WORD TRANSFER COUNT
00640 M00S00635.1mi +++| ZJN CID7 IF BUFFER THRESHOLD
00641 M00S00636.1mi +++| STD WC TRANSFER MAXIMUM
00642 M00S00637.1mi +++| CID6 LDD WC
00643 M00S00638.1mi +++| STD T1 TRANSFER WORD COUNT FOR *WBB*
00644 M00S00639.1mi +++| RAD T3 COMPLETE TRANSFER TALLY
00645 M00S00640.1mi +++| LDC BUFF BEGINNING READ ADDRESS
00646 M00S00641.1mi +++| RJM WBB WRITE BINARY BUFFER
00647 M00S00642.1mi +++| LDN 0
00648 M00S00643.1mi +++| CIDA EQU *-1
00649 M00S00644.1mi +++| NJN CID7 IF LAST POT MEMORY WRITTEN
00650 M00S00645.1mi +++| LDC ** UPDATE POT MEMORY POINTER
00651 M00S00646.1mi +++| CIDB EQU *-1
00652 M00S00647.1mi +++| STD T2
00653 M00S00648.1mi +++| STD PP
00654 M00S00649.1mi +++| NJP CID1 IF NOT EOR/EOF
00655 M00S00650.1mi +++|
00656 M00S00651.1mi +++|* FORCE EOR/EOF ON INPUT FET.
00657 M00S00652.1mi +++|
00658 M00S00653.1mi +++| LDN 0
00659 M00S00654.1mi +++| STD T3
00660 M00S00655.1mi +++|
00661 M00S00656.1mi +++|* COMPLETE READ OPERATIONS.
00662 M00S00657.1mi +++|
00663 M00S00658.1mi +++| CID7 LDN ZERL RESET ENDING *IN* POINTER
00664 M00S00659.1mi +++| CRD CM
00665 M00S00660.1mi +++| LDD IN
00666 M00S00661.1mi +++| STD CM+3
00667 M00S00662.1mi +++| LDD IN+1
00668 M00S00663.1mi +++| STD CM+4
00669 M00S00664.1mi +++| CFET 2 *IN* POINTER OFFSET
00670 M00S00665.1mi +++| CWD CM REWRITE *IN* POINTER
00671 M00S00666.1mi +++|
00672 M00S00667.1mi +++|* COMPLETE EOR/EOF BUFFER STATUS.
00673 M00S00668.1mi +++|
00674 M00S00669.1mi +++| LDD BS+3 RESET APPROPRIATE EOR/EOF LEVEL
00675 M00S00670.1mi +++| SCN 74
00676 M00S00671.1mi +++| STD BS+3
00677 M00S00672.1mi +++| LDD T3 TRANSFER TALLY
00678 M00S00673.1mi +++| ZJN CID8 IF EOF
00679 M00S00674.1mi +++| LDN 4 INPUT LEVEL STATUS IS EOR
00680 M00S00675.1mi +++| RAD BS+3
00681 M00S00676.1mi +++| LDN 20 SET EOR
00682 M00S00677.1mi +++| STM CIDC
00683 M00S00678.1mi +++| CID8 LDD BS+4 RESET BUFFER STATUS
00684 M00S00679.1mi +++| LPC 6002
00685 M00S00680.1mi +++| LMC 30 (SET EOF TERMINATION)
00686 M00S00681.1mi +++|* LMC 20 (SET EOR TERMINATION)
00687 M00S00682.1mi +++| CIDC EQU *-1
00688 M00S00683.1mi +++| STD BS+4
00689 M00S00684.1mi +++|
00690 M00S00685.1mi +++|* *TINW* MUST BE CLEARED BEFORE ISSUING THE *VDPO* *TSEM*
00691 M00S00686.1mi +++|* REQUEST, BECAUSE IF THE *VDPO* IS REJECTED AND THE JOB ROLLS,
00692 M00S00687.1mi +++|* IAF WOULD MISTAKENLY THINK THE JOB WAS REQUESTING INPUT.
00693 M00S00688.1mi +++|
00694 M00S00689.1mi +++| RJM CFN COMPLETE INPUT OPERATION
00695 M00S00690.1mi +++|
00696 M00S00691.1mi +++|* RELEASE INPUT AHEAD POT CHAIN.
00697 M00S00692.1mi +++|
00698 M00S00693.1mi +++| LDC /REM/VDPO
00699 M00S00694.1mi +++| STM WDPO
00700 M00S00695.1mi +++| LDD MA
00701 M00S00696.1mi +++| CWM WDPO,ON
Line S00001 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
00702 M01S00001.271l716 +++| LDK ZERL
00703 M01S00002.271l716 +++| CRD CM
00704 M00S00697.1mi +++| MONITOR TSEM DROP POTS
00705 M00S00698.1mi +++| LDK TPOR CHECK FOR POSSIBLE *TSEM* REJECT
00706 M00S00699.1mi +++| RJM MRJ
00707 M00S00700.1mi +++| LJM CIDX RETURN
00708 M00S00701.1mi +++| CJA SPACE 4,10
00709 M00S00702.1mi +++|** CJA - CHECK USER JOB ACTIVITY.
00710 M00S00703.1mi +++|*
00711 M00S00704.1mi +++|* EXIT (A) = *STSW* CPU STATUS.
00712 M00S00705.1mi +++|*
00713 M00S00706.1mi +++|* USES CM - CM+4.
00714 M00S00707.1mi +++|
00715 M00S00708.1mi +++|
00716 M00S00709.1mi +++| CJA SUBR ENTRY/EXIT
00717 M00S00710.1mi +++| LDD CP CONTROL POINT ADDRESS
00718 M00S00711.1mi +++| ADN STSW STATUS CONTROL WORD
00719 M00S00712.1mi +++| CRD CM
00720 M00S00713.1mi +++| LDD CM
00721 M00S00714.1mi +++| SHN -11 CP STATUS ONLY
00722 M00S00715.1mi +++| UJN CJAX RETURN
00723 M00S00716.1mi +++| COD SPACE 4,10
00724 M00S00717.1mi +++|** COD - COPY OUTPUT DATA.
00725 M00S00718.1mi +++|*
00726 M00S00719.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS.
00727 M00S00720.1mi +++|* (CD+2) = ACCEPTABLE CM WORD TRANSFER COUNT.
00728 M00S00721.1mi +++|* (PP) = DIRECT OUTPUT POT MEMORY CHAIN POINTER.
00729 M00S00722.1mi +++|*
00730 M00S00723.1mi +++|* EXIT DIRECT OUTPUT ASSIGNED TO OUTPUT POT MEMORY CHAIN.
00731 M00S00724.1mi +++|* (WC) = LAST POT MEMORY WORD COUNT.
00732 M00S00725.1mi +++|*
Line S00726 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00733 M01S00726.ns2748 ---|* USES CN-1 - CN+4, T2 - T3, PP, WC.
Line S00005 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00734 M01S00005.ns2748 +++|* USES CD+2, PP, WC, CN - CN+4, T2 - T3.
00735 M00S00727.1mi +++|*
Line S00728 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00736 M01S00728.ns2748 ---|* CALLS COB, RBB, SPA, UPP.
Line S00006 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00737 M01S00006.ns2748 +++|* CALLS COB, RBB, RRR, SPA, SRR, UPP.
00738 M00S00729.1mi +++|
00739 M00S00730.1mi +++|
00740 M00S00731.1mi +++| COD SUBR ENTRY/EXIT
00741 M00S00732.1mi +++|
00742 M00S00733.1mi +++|* DUE TO IAF INTERNAL OUTPUT QUEUING, IT IS NECESSARY TO
00743 M00S00734.1mi +++|* BYPASS THE FIRST TWO POT MEMORY CM WORDS IN EVERY POT
00744 M00S00735.1mi +++|* MEMORY CHAIN ALLOCATED FOR OUTPUT TO ALLOW FOR IAF
00745 M00S00736.1mi +++|* INTERNAL QUEUE LINKAGE CONTROL.
00746 M00S00737.1mi +++|
00747 M00S00738.1mi +++| LDN /REM/VCPC-2 IAF POT MEMORY LENGTH-2
00748 M00S00739.1mi +++| STD WC INITIAL CM WORD TRANSFER
00749 M00S00740.1mi +++|
00750 M00S00741.1mi +++|* TRANSFER DIRECT OUTPUT.
00751 M00S00742.1mi +++|
00752 M00S00743.1mi +++| COD1 LDD CD+2 CHECK ACCEPTABLE CM TRANSFER COUNT
00753 M00S00744.1mi +++| SBN /REM/VCPC-2
00754 M00S00745.1mi +++| CODA EQU *-1
00755 M00S00746.1mi +++| PJN COD2 IF AT LEAST ONE POT MEMORY TO TRANSFER
00756 M00S00747.1mi +++| ADN /REM/VCPC-2 BIAS FOR MAXIMUM TRANSFER
00757 M00S00748.1mi +++| CODB EQU *-1
00758 M00S00749.1mi +++| STD WC
00759 M00S00750.1mi +++| COD2 LDD WC SET BUFFER TRANSFER COUNT *RBB*
00760 M00S00751.1mi +++| STD T3
00761 M00S00752.1mi +++| LDC BUFF BEGINNING WRITE BUFFER ADDRESS *RBB*
00762 M00S00753.1mi +++| RJM RBB READ BINARY BUFFER
Line S00007 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00763 M01S00007.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00764 M00S00754.1mi +++| RJM SPA SET POT MEMORY ADDRESS FOR THIS TRANSFER
00765 M00S00755.1mi +++| ADN 2 ALLOW FOR LINKAGE FIRST POT ONLY
00766 M00S00756.1mi +++|* PSN IF FIRST POT MEMORY PASSED
00767 M00S00757.1mi +++| CODC EQU *-1
00768 M00S00758.1mi +++| CWM BUFF,WC TRANSFER OUTPUT
Line S00008 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00769 M01S00008.ns2748 +++| RJM RRR RESTORE R-REGISTER
00770 M00S00759.1mi +++| LDD PP UPDATE LAST POT MEMORY WRITTEN
00771 M00S00760.1mi +++| STM WADO+2
00772 M00S00761.1mi +++| AOM WADO+1 INCREMENT POT COUNT
00773 M00S00762.1mi +++|
00774 M00S00763.1mi +++|* UPDATE ACCEPTABLE TRANSFER COUNT.
00775 M00S00764.1mi +++|
00776 M00S00765.1mi +++| LDD CD+2 ACCEPTABLE CM WORD TRANSFER COUNT
00777 M00S00766.1mi +++| SBD WC CURRENT TRANSFER
00778 M00S00767.1mi +++| STD CD+2
00779 M00S00768.1mi +++| LDN 0 INHIBIT SUCCESSIVE POT MEMORY OFFSET
00780 M00S00769.1mi +++| CODD EQU *-1
00781 M00S00770.1mi +++| NJN COD3 IF FIRST POT MEMORY PASSED
00782 M00S00771.1mi +++| LDN 2
00783 M00S00772.1mi +++| RAM CODA
00784 M00S00773.1mi +++| LDN 2
00785 M00S00774.1mi +++| RAM CODB
00786 M00S00775.1mi +++| LDN PSNI
00787 M00S00776.1mi +++| STM CODC
00788 M00S00777.1mi +++| AOM CODD
00789 M00S00778.1mi +++| AOD WC NEGATE LINKAGE CONTROL OFFSET COUNT
00790 M00S00779.1mi +++| AOD WC
00791 M00S00780.1mi +++|
00792 M00S00781.1mi +++|* CONTINUE UNTIL NETWORK REQUIREMENT OR FLUSH COMPLETION.
00793 M00S00782.1mi +++|
00794 M00S00783.1mi +++| COD3 LDD CD+2 REMAINING ACCEPTABLE CM WORD COUNT
00795 M00S00784.1mi +++| ZJN COD4 IF NETWORK REQUIREMENT MADE
Line S00009 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00796 M01S00009.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00797 M00S00785.1mi +++| RJM UPP UPDATE POT MEMORY
Line S00010 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00798 M01S00010.ns2748 +++| RJM RRR RESTORE R-REGISTER
00799 M01S00011.ns2748 +++| LDD PP
00800 M00S00786.1mi +++| NJP COD1 IF POT MEMORY AVAILABLE
00801 M00S00787.1mi +++|
00802 M00S00788.1mi +++|* NETWORK REQUIREMENT MADE OR POT MEMORY EXHAUSTION.
00803 M00S00789.1mi +++|
00804 M00S00790.1mi +++| COD4 LDN ZERL COMPLETE TRANSFER PROCESS
00805 M00S00791.1mi +++| CRD CN
00806 M00S00792.1mi +++| LDN 2R"IB" *0014* BYTE
00807 M00S00793.1mi +++| STD CN END OF TRANSFER PRESET
00808 M00S00794.1mi +++| LDD WC ALLOW FOR POSSIBLE TERMINATOR
00809 M00S00795.1mi +++| SBN /REM/VCPC
00810 M00S00796.1mi +++| ZJN COD5 IF COMPLETE POT MEMORY WRITTEN
Line S00012 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00811 M01S00012.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00812 M00S00797.1mi +++| RJM SPA SET POT MEMORY ADDRESS
00813 M00S00798.1mi +++| ADD WC LAST POT WORD COUNT
00814 M00S00799.1mi +++| CWD CN WRITE TRANSFER TERMINATOR
Line S00013 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00815 M01S00013.ns2748 +++| RJM RRR RESTORE R-REGISTER
00816 M00S00800.1mi +++|
00817 M00S00801.1mi +++|* PRESET OUTPUT COMPLETION.
00818 M00S00802.1mi +++|
00819 M00S00803.1mi +++| COD5 LDK ZERL
00820 M00S00804.1mi +++| CRD CN
00821 M00S00805.1mi +++| RJM COB CHECK FOR REMAINING OUTPUT
00822 M00S00806.1mi +++| NJN COD6 IF BUFFER IS NOT EMPTY
00823 M00S00807.1mi +++| LDM ANRA
00824 M00S00808.1mi +++| ZJN COD7 IF NOT EOR OR EOF
00825 M00S00809.1mi +++| LDN 2
00826 M00S00810.1mi +++| STD CN+4
00827 M00S00811.1mi +++| UJN COD7 PLACE FLAG IN WORD TWO OF THE POT HEADER
00828 M00S00812.1mi +++|
00829 M00S00813.1mi +++| COD6 LDC 0 CHECK NO RECALL FLAG
00830 M00S00814.1mi +++|* LDC WC (IF NO RECALL - ONE WORD LEFT IN BUFFER)
00831 M00S00815.1mi +++| CODE EQU *-1 SET BY *ANR*
00832 M00S00816.1mi +++| NJN COD7 IF NO RECALL REQUIRED
00833 M00S00817.1mi +++| AOM PTOB ADDITIONAL OUTPUT REMAINS
00834 M00S00818.1mi +++| COD7 LDM WADO+3 GET ADDRESS OF FIRST POT
00835 M00S00819.1mi +++| STD PP
Line S00014 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00836 M01S00014.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00837 M00S00820.1mi +++| RJM SPA
00838 M00S00821.1mi +++| ADN 1
00839 M00S00822.1mi +++| CWD CN
Line S00015 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00840 M01S00015.ns2748 +++| RJM RRR RESTORE R-REGISTER
00841 M00S00823.1mi +++| LJM CODX RETURN
Line S00824 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00842 M01S00824.ns2748 ---| CTI SPACE 4,10
Line S00016 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00843 M01S00016.ns2748 +++| CTI SPACE 4,15
00844 M00S00825.1mi +++|** CTI - CHECK FOR TERMINAL INPUT.
00845 M00S00826.1mi +++|*
00846 M00S00827.1mi +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS.
00847 M00S00828.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER.
00848 M00S00829.1mi +++|*
00849 M00S00830.1mi +++|* EXIT (IR+3 - IR+4) = INPUT FET ADDRESS.
00850 M00S00831.1mi +++|* (A) = TYPEAHEAD QUEUE POINTER.
00851 M00S00832.1mi +++|* (A) = ZERO IF NO INPUT AHEAD.
00852 M00S00833.1mi +++|*
Line S00834 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00853 M01S00834.ns2748 ---|* USES CM - CM+4.
Line S00017 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00854 M01S00017.ns2748 +++|* USES CM - CM+4, IR - IR+4.
00855 M00S00835.1mi +++|*
Line S00836 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00856 M01S00836.ns2748 ---|* CALLS GMX.
00857 M01S00837.ns2748 ---|*
00858 M01S00838.ns2748 ---|* MACROS MONITOR.
Line S00018 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00859 M01S00018.ns2748 +++|* CALLS GMX, RRR, SRR.
00860 M00S00839.1mi +++|
00861 M00S00840.1mi +++|
00862 M00S00841.1mi +++| CTI SUBR ENTRY/EXIT
00863 M00S00842.1mi +++| LDD IA REREAD ORIGINAL INPUT REGISTER
00864 M00S00843.1mi +++| CRD IR
00865 M00S00844.1mi +++| LDD IR+3
00866 M00S00845.1mi +++| LPN 37
00867 M00S00846.1mi +++| ADD IR+4
00868 M00S00847.1mi +++| ZJN CTIX IF NO INPUT FET
00869 M00S00848.1mi +++|
00870 M00S00849.1mi +++|* CHECK FOR INPUT AHEAD QUEUE PREPROCESSED.
00871 M00S00850.1mi +++|
Line S00019 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00872 M01S00019.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00873 M00S00851.1mi +++| LDD TT
00874 M00S00852.1mi +++| SHN 14
00875 M00S00853.1mi +++| LMD TT+1
00876 M00S00854.1mi +++| ADN /REM/VROT *VADI* REQUEST WORD
00877 M00S00855.1mi +++| CRD CM
Line S00020 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00878 M01S00020.ns2748 +++| RJM RRR RESTORE R-REGISTER
00879 M00S00856.1mi +++| LDD CM+1
00880 M00S00857.1mi +++| ZJN CTI1 IF QUEUE NOT PREPROCESSED
00881 M00S00858.1mi +++| STM PTIA INHIBIT UNECESSARY *VADI* FUNCTION
00882 M00S00859.1mi +++| UJP CTIX RETURN
00883 M00S00860.1mi +++|
00884 M00S00861.1mi +++|* READ TERMINAL INPUT TYPEAHEAD QUEUE FROM IAF.
00885 M00S00862.1mi +++|
00886 M00S00863.1mi +++| CTI1 RJM GMX MULTIPLEXOR TERMINALS REQUIRE PREPROCESS
00887 M00S00864.1mi +++| ZJP CTIX IF MULTIPLEXOR TERMINAL
Line S00021 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00888 M01S00021.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00889 M00S00865.1mi +++| LDD TA IAF REFERENCE ADDRESS
00890 M00S00866.1mi +++| SHN 6
00891 M00S00867.1mi +++| ADN /REM/VMST TERMINAL STATUS MESSAGE WORD
00892 M00S00868.1mi +++| CRD CM
00893 M00S00869.1mi +++| LDD CM+1
00894 M00S00870.1mi +++| SHN 6
00895 M00S00871.1mi +++| ADD TA
00896 M00S00872.1mi +++| SHN 6
00897 M00S00873.1mi +++| ADD CM+2
00898 M00S00874.1mi +++| ADD TN
00899 M00S00875.1mi +++| CRD CM READ TERMINAL MESSAGE WORD
Line S00022 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00900 M01S00022.ns2748 +++| RJM RRR RESTORE R-REGISTER
00901 M00S00876.1mi +++| LDD CM+4 INPUT TYPEAHEAD QUEUE POINTER
00902 M00S00877.1mi +++| UJP CTIX RETURN
Line S00878 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00903 M01S00878.ns2748 ---| CTO SPACE 4,10
Line S00023 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00904 M01S00023.ns2748 +++| CTO SPACE 4,15
00905 M00S00879.1mi +++|** CTO - CHECK FOR TERMINAL OUTPUT.
00906 M00S00880.1mi +++|*
00907 M00S00881.1mi +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS.
00908 M00S00882.1mi +++|*
00909 M00S00883.1mi +++|* EXIT (IR+3 - IR+4) = OUTPUT FET ADDRESS.
00910 M00S00884.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT.
00911 M00S00885.1mi +++|* (A) = NONZERO IF TERMINAL OUTPUT.
00912 M00S00886.1mi +++|*
Line S00887 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00913 M01S00887.ns2748 ---|* USES CM - CM+4, CD - CD+4, IR+3, IR+4.
Line S00024 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00914 M01S00024.ns2748 +++|* USES IR+3, IR+4, CM - CM+4, CD - CD+4.
00915 M00S00888.1mi +++|*
Line S00889 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
00916 M01S00889.ns2748 ---|* CALLS COB, SLF, VFP.
00917 M01S00890.ns2748 ---|*
00918 M01S00891.ns2748 ---|* MACROS MONITOR.
Line S00025 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00919 M01S00025.ns2748 +++|* CALLS COB, RRR, SLF, SRR, STA, VFP.
00920 M01S00026.ns2748 +++|
00921 M00S00892.1mi +++|
00922 M00S00893.1mi +++| CTO SUBR ENTRY/EXIT
00923 M00S00894.1mi +++| LDN ZERL
00924 M00S00895.1mi +++| CRD CD
00925 M00S00896.1mi +++|
00926 M00S00897.1mi +++|* *TIOW* IS OUTPUT FET ADDRESS.
00927 M00S00898.1mi +++|
00928 M00S00899.1mi +++| LDD CP READ TERMINAL OUTPUT POINTER
00929 M00S00900.1mi +++| ADN TIOW
00930 M00S00901.1mi +++| CRD CM
00931 M00S00902.1mi +++| LDD CM+3
00932 M00S00903.1mi +++| LPN 37
00933 M00S00904.1mi +++| SHN 14
00934 M00S00905.1mi +++| LMD CM+4
00935 M00S00906.1mi +++| ZJN CTO1 IF NO OUTPUT POINTER
00936 M00S00907.1mi +++| STD IR+4
00937 M00S00908.1mi +++| SHN -14
00938 M00S00909.1mi +++| STD IR+3
00939 M00S00910.1mi +++| UJN CTO2 CHECK OUTPUT BUFFER CONTENT
00940 M00S00911.1mi +++|
00941 M00S00912.1mi +++| CTO1 RJM SLF SEARCH LIST OF FILES
00942 M00S00913.1mi +++| ZJN CTO3 IF NO *LOFW* OR RA+2 LIST ENTRIES
00943 M00S00914.1mi +++|
00944 M00S00915.1mi +++|* RETURN OUTPUT BUFFER COUNT.
00945 M00S00916.1mi +++|
00946 M00S00917.1mi +++| CTO2 RJM VFP VERIFY FET PARAMETERS
00947 M00S00918.1mi +++| RJM COB CHECK OUTPUT BUFFER CONTENT
00948 M00S00919.1mi +++| STD CD+4
00949 M00S00920.1mi +++| SHN -14
00950 M00S00921.1mi +++| STD CD+3
00951 M00S00922.1mi +++| ADD CD+4
00952 M00S00923.1mi +++| CTO3 STM CTOA SAVE EXIT CONDITION
Line S00027 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00953 M01S00027.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
00954 M00S00924.1mi +++| RJM STA RESTORE TERMINAL TABLE ADDRESS
Line S00028 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
00955 M01S00028.ns2748 +++| RJM RRR RESTORE R-REGISTER
00956 M00S00925.1mi +++| LDM CTOA
00957 M00S00926.1mi +++| UJP CTOX RETURN
00958 M00S00927.1mi +++|
00959 M00S00928.1mi +++| CTOA CON 0 EXIT CONDITION
00960 M00S00929.1mi +++| DFS SPACE 4,10
00961 M00S00930.1mi +++|** DFS - DETERMINE FLUSH STATUS.
00962 M00S00931.1mi +++|*
00963 M00S00932.1mi +++|* THE REQUIREMENTS FOR A FILE TO BE FLUSHED ARE-
00964 M00S00933.1mi +++|* - FET MUST BE WITHIN FL.
00965 M00S00934.1mi +++|* - BUFFER MUST HAVE DATA IN IT.
00966 M00S00935.1mi +++|* - FET MUST NOT BE BUSY.
00967 M00S00936.1mi +++|* - CODE IN FET MUST BE A VALID *CIO* REQUEST.
00968 M00S00937.1mi +++|* - FILE MUST BE *OUTPUT* AND UNASSIGNED OR IT MUST BE
00969 M00S00938.1mi +++|* ASSIGNED TO TERMINAL EQUIPMENT.
00970 M00S00939.1mi +++|*
00971 M00S00940.1mi +++|* NOTE- ROUTINES *1RO*, *1AJ* AND *1MI* OBSERVE THE ABOVE
00972 M00S00941.1mi +++|* CONVENTIONS.
00973 M00S00942.1mi +++|*
00974 M00S00943.1mi +++|* ENTRY (T8 - T9) = FET ADDRESS.
00975 M00S00944.1mi +++|*
00976 M00S00945.1mi +++|* EXIT (A) = ZERO, IF ENTRY NOT A FLUSH CANDIDATE.
00977 M00S00946.1mi +++|* (CN - CN+4) = FIRST WORD OF FET.
00978 M00S00947.1mi +++|*
00979 M00S00948.1mi +++|* USES T1 - T7, CM - CM+4, CN - CN+4.
00980 M00S00949.1mi +++|*
00981 M00S00950.1mi +++|* CALLS VAD.
00982 M00S00951.1mi +++|
00983 M00S00952.1mi +++|
00984 M00S00953.1mi +++| DFS7 LDN 0 NOT A FLUSH CANDIDATE STATUS
00985 M00S00954.1mi +++|
00986 M00S00955.1mi +++| DFS SUBR ENTRY/EXIT
00987 M00S00956.1mi +++| LDD T8 READ FET PARAMETERS
00988 M00S00957.1mi +++| LPN 37
00989 M00S00958.1mi +++| SHN 14
00990 M00S00959.1mi +++| LMD T9
00991 M00S00960.1mi +++| ADN 3
00992 M00S00961.1mi +++| RJM VAD
00993 M00S00962.1mi +++| ZJN DFSX IF FET OUTSIDE FL
00994 M00S00963.1mi +++| CRD T3 READ OUT
00995 M00S00964.1mi +++| SBN 1
00996 M00S00965.1mi +++| CRD T1 READ IN
00997 M00S00966.1mi +++| SBN 2
00998 M00S00967.1mi +++| CRD CN READ FET+0
00999 M00S00968.1mi +++| LDD CN+4
01000 M00S00969.1mi +++| LPN 1
01001 M00S00970.1mi +++| ZJN DFSX IF FET BUSY
01002 M00S00971.1mi +++| LDD T6
01003 M00S00972.1mi +++| SBD T4
01004 M00S00973.1mi +++| SHN 14
01005 M00S00974.1mi +++| ADD T7
01006 M00S00975.1mi +++| SBD T5
01007 M00S00976.1mi +++| ZJN DFSX IF BUFFER EMPTY
01008 M00S00977.1mi +++| LDN DFSAL CHECK ACCEPTABLE *CIO* CALLS
01009 M00S00978.1mi +++| STD T1
01010 M00S00979.1mi +++| LDD CN+3
01011 M00S00980.1mi +++| LPN 77
01012 M00S00981.1mi +++| NJP DFS7 IF FET ERRORS
01013 M00S00982.1mi +++|
01014 M00S00983.1mi +++|* SCAN ACCEPTABLE *CIO* CODES.
01015 M00S00984.1mi +++|
01016 M00S00985.1mi +++| DFS1 SOD T1
01017 M00S00986.1mi +++| MJP DFS7 IF FET CODE NOT IN LIST
01018 M00S00987.1mi +++| LDM DFSA,T1
01019 M00S00988.1mi +++| LMD CN+4
01020 M00S00989.1mi +++| SCN 2 IGNORE BINARY BIT
01021 M00S00990.1mi +++| NJP DFS1 IF NOT VALID FET CODE
01022 M00S00991.1mi +++| LDD NF SET NFL SIZE + 1
01023 M00S00992.1mi +++| SHN 6
01024 M00S00993.1mi +++| ADN 1
01025 M00S00994.1mi +++| STD T7
01026 M00S00995.1mi +++|
01027 M00S00996.1mi +++|* SEARCH FNT ENTRIES FOR ASSIGNED FILE.
01028 M00S00997.1mi +++|
01029 M00S00998.1mi +++| LDC FNTN+LENF
01030 M00S00999.1mi +++| STD T6
01031 M00S01000.1mi +++| DFS2 NFA T6,R READ FNT ENTRY
01032 M00S01001.1mi +++| CRD CM
01033 M00S01002.1mi +++| LDD CM COMPARE FILE NAMES
01034 M00S01003.1mi +++| ZJN DFS3 IF NO ENTRY
01035 M00S01004.1mi +++| LMD CN
01036 M00S01005.1mi +++| NJN DFS3 IF NO MATCH
01037 M00S01006.1mi +++| LDD CM+1
01038 M00S01007.1mi +++| LMD CN+1
01039 M00S01008.1mi +++| NJN DFS3 IF NO MATCH
01040 M00S01009.1mi +++| LDD CM+2
01041 M00S01010.1mi +++| LMD CN+2
01042 M00S01011.1mi +++| NJN DFS3 IF NO MATCH
01043 M00S01012.1mi +++| LDD CM+3
01044 M00S01013.1mi +++| LMD CN+3
01045 M00S01014.1mi +++| SCN 77
01046 M00S01015.1mi +++| ZJN DFS5 IF MATCH
01047 M00S01016.1mi +++| DFS3 LDN LENF INCREMENT TO NEXT ENTRY
01048 M00S01017.1mi +++| RAD T6
01049 M00S01018.1mi +++| SBD T7
01050 M00S01019.1mi +++| MJN DFS2 IF NOT END OF FNT
01051 M00S01020.1mi +++| LDD CN CHECK FOR *OUTPUT*
01052 M00S01021.1mi +++| LMC 2ROU
01053 M00S01022.1mi +++| NJN DFS4 IF NOT *OUTPUT*
01054 M00S01023.1mi +++| LDD CN+1
01055 M00S01024.1mi +++| LMC 2RTP
01056 M00S01025.1mi +++| NJN DFS4 IF NOT *OUTPUT*
01057 M00S01026.1mi +++| LDD CN+2
01058 M00S01027.1mi +++| LMC 2RUT
01059 M00S01028.1mi +++| NJN DFS4 IF NOT *OUTPUT*
01060 M00S01029.1mi +++| LDD CN+3
01061 M00S01030.1mi +++| SCN 77
01062 M00S01031.1mi +++| ZJN DFS6 IF *OUTPUT*
01063 M00S01032.1mi +++| DFS4 UJP DFS7 FILE IS NOT A FLUSH CANDIDATE
01064 M00S01033.1mi +++|
01065 M00S01034.1mi +++|* EQUIPMENT ASSIGNMENT MUST BE *TTEQ*.
01066 M00S01035.1mi +++|
01067 M00S01036.1mi +++| DFS5 NFA T6,R CHECK EQUIPMENT ASSIGNMENT
01068 M00S01037.1mi +++| ADN FSTL
01069 M00S01038.1mi +++| CRD CM
01070 M00S01039.1mi +++| LDD CM
01071 M00S01040.1mi +++| LPC 777
01072 M00S01041.1mi +++| LMN TTEQ
01073 M00S01042.1mi +++| NJN DFS4 IF NOT ASSIGNED TO *TT*
01074 M00S01043.1mi +++| DFS6 LDN 1 INDICATE OUTPUT AVAILABLE
01075 M00S01044.1mi +++| UJP DFSX RETURN
01076 M00S01045.1mi +++| HST SPACE 4,10
01077 M00S01046.1mi +++|** DFSA - TABLE OF CIO CODES TO FLUSH ON.
01078 M00S01047.1mi +++|*
01079 M00S01048.1mi +++|* ENTRY ONE WORD.
01080 M00S01049.1mi +++|*
01081 M00S01050.1mi +++|*T 12/*CIO* FUNCTION CODE.
01082 M00S01051.1mi +++|
01083 M00S01052.1mi +++|
01084 M00S01053.1mi +++| DFSA BSS 0
01085 M00S01054.1mi +++| LOC 0
01086 M00S01055.1mi +++|
01087 M00S01056.1mi +++| CON 1 FET COMPLETE STATUS
01088 M00S01057.1mi +++| CON 5 WRITE PRU
01089 M00S01058.1mi +++| CON 15 BUFFERED WRITE
01090 M00S01059.1mi +++| CON 25 WRITE EOR
01091 M00S01060.1mi +++| CON 35 WRITE EOF
01092 M00S01061.1mi +++| CON 105 WRITE NO REWIND
01093 M00S01062.1mi +++| CON 121 OPEN ALTER
01094 M00S01063.1mi +++| CON 145 OPEN WRITE REWIND
01095 M00S01064.1mi +++| CON 161 OPEN ALTER REWIND
01096 M00S01065.1mi +++|
01097 M00S01066.1mi +++| LOC *O
01098 M00S01067.1mi +++|
01099 M00S01068.1mi +++| DFSAL EQU *-DFSA *DFSA* TABLE LENGTH
01100 M00S01069.1mi +++| ERR SPACE 4,10
01101 M00S01070.1mi +++|** ERR - PROCESS ERROR.
01102 M00S01071.1mi +++|*
01103 M00S01072.1mi +++|* ENTRY (A) = ERROR CODE - *COMSCIO*.
01104 M00S01073.1mi +++|*
01105 M00S01074.1mi +++|* EXIT TO *ERX* TO PROCESS ERROR RESPONSE.
01106 M00S01075.1mi +++|* (ERRA) = ERROR CODE ON ENTRY.
01107 M00S01076.1mi +++|*
01108 M00S01077.1mi +++|* USES CM - CM+4.
01109 M00S01078.1mi +++|*
01110 M00S01079.1mi +++|* CALLS CFN, ERX.
01111 M00S01080.1mi +++|
01112 M00S01081.1mi +++|
01113 M00S01082.1mi +++| ERR BSS 0 ENTRY
01114 M00S01083.1mi +++| STM ERRA SAVE ERROR CODE
01115 M00S01084.1mi +++| RJM ERX PROCESS *1MI* ERROR
01116 M00S01085.1mi +++| RJM CFN COMPLETE FUNCTION
01117 M00S01086.1mi +++| LJM DPP DROP PP
01118 M00S01087.1mi +++|
01119 M00S01088.1mi +++| ERRA CON 0 *1MI* ERROR CODE
01120 M00S01089.1mi +++| ERS SPACE 4,10
01121 M00S01090.1mi +++|** ERS - ENTER RECALL STACK.
01122 M00S01091.1mi +++|*
01123 M00S01092.1mi +++|* ENTRY (A) = RECALL REASON CODE.
01124 M00S01093.1mi +++|* ALL OTHER PARAMETERS PRESET IN RCPW - RCPW+4.
01125 M00S01094.1mi +++|*
01126 M00S01095.1mi +++|* EXIT TO *PPR*.
01127 M00S01096.1mi +++|*
01128 M00S01097.1mi +++|* USES CM - CM+4.
01129 M00S01098.1mi +++|*
01130 M00S01099.1mi +++|* MACROS MONITOR.
01131 M00S01100.1mi +++|
01132 M00S01101.1mi +++|
01133 M00S01102.1mi +++| ERS BSS 0 ENTRY
01134 M00S01103.1mi +++| SHN 6
01135 M00S01104.1mi +++| RAM RCPW+1 SAVE RECALL REASON CODE
01136 M00S01105.1mi +++| LDK ZERL
01137 M00S01106.1mi +++| CRD CM
01138 M00S01107.1mi +++| LDC RECMS1 DEFAULT TIME PERIOD FOR RECALL
01139 M00S01108.1mi +++|* LDC RECMS2 MONITOR FUNCTION REJECT RECALL TIME PERIOD
01140 M00S01109.1mi +++| ERSA EQU *-1
01141 M00S01110.1mi +++| SHN 0 BIAS RECALL PERIOD REJECTION COUNT TIMES
01142 M00S01111.1mi +++| ERSE EQU *-1
01143 M00S01112.1mi +++| STD CM+4
01144 M00S01113.1mi +++| LDD IA STORE INPUT REGISTER
01145 M00S01114.1mi +++| CRD IR
01146 M00S01115.1mi +++| LDD MA
01147 M00S01116.1mi +++| CWM IR,ON REWRITE INPUT REGISTER TO MESSAGE BUFFER
01148 M00S01117.1mi +++| CWM RCPW,ON STORE RECALL PARAMETERS
01149 M00S01118.1mi +++| LDN PTMF TIMED RECALL CRITERIA
01150 M00S01119.1mi +++| STD CM+1
01151 M00S01120.1mi +++| MONITOR RECM RECALL PPU
01152 M00S01121.1mi +++| LJM PPR EXIT TO *PPR*
01153 M00S01122.1mi +++| ERX SPACE 4,10
01154 M00S01123.1mi +++|** ERX - ERROR EXIT PROCESSOR.
01155 M00S01124.1mi +++|*
01156 M00S01125.1mi +++|* ENTRY (IR+3 - IR+4) = INPUT OR OUTPUT FET ADDRESS.
01157 M00S01126.1mi +++|* (BS - BS+4) = BUFFER STATUS.
01158 M00S01127.1mi +++|* (ERRA) = *CIOERR* ERROR CODE INDEX.
01159 M00S01128.1mi +++|* (FC) = *1MI* FUNCTION CODE.
01160 M00S01129.1mi +++|*
01161 M00S01130.1mi +++|* EXIT TO *DPP* IF INCORRECT ERROR CODE DETECTION.
01162 M00S01131.1mi +++|* ERROR FLAG SET IN CONTROL POINT PER ERROR OPTION.
01163 M00S01132.1mi +++|* DAYFILE ERROR MESSAGE RESPONSE ISSUED.
01164 M00S01133.1mi +++|*
01165 M00S01134.1mi +++|* USES T1, CM - CM+4, CN - CN+4.
01166 M00S01135.1mi +++|*
01167 M00S01136.1mi +++|* CALLS CHG, IDM, VAD.
01168 M00S01137.1mi +++|*
01169 M00S01138.1mi +++|* MACROS CFET, MONITOR.
01170 M00S01139.1mi +++|
01171 M00S01140.1mi +++|
01172 M00S01141.1mi +++| ERX SUBR ENTRY/EXIT
01173 M00S01142.1mi +++| LDC 22S9 FET ERROR STATUS = 22B
01174 M00S01143.1mi +++| RAD BS+4
01175 M00S01144.1mi +++| SHN -14
01176 M00S01145.1mi +++| RAD BS+3
01177 M00S01146.1mi +++| LDN ZERL
01178 M00S01147.1mi +++| CRD CM
01179 M00S01148.1mi +++| LDN 0 PRESET *TEPO* TABLE SEARCH
01180 M00S01149.1mi +++| STD T1
01181 M00S01150.1mi +++|
01182 M00S01151.1mi +++|* SEARCH *TEPO* TABLE FOR PROCESSING PARAMETERS.
01183 M00S01152.1mi +++|
01184 M00S01153.1mi +++| ERX1 LDN TEPOL *TEPO* TABLE LENGTH
01185 M00S01154.1mi +++| SBD T1
01186 M00S01155.1mi +++| ZJN ERX2 IF TABLE LENGTH EXCEEDED
01187 M00S01156.1mi +++| LDM TEPO,T1 PROCESSING PARAMETERS
01188 M00S01157.1mi +++| SHN -1
01189 M00S01158.1mi +++| LPN 37
01190 M00S01159.1mi +++| SBM ERRA
01191 M00S01160.1mi +++| ZJN ERX3 IF SELECTION FOUND
01192 M00S01161.1mi +++| PJN ERX2 IF SELECTION PASSED
01193 M00S01162.1mi +++| AOD T1 ADVANCE TABLE SEARCH
01194 M00S01163.1mi +++| AOD T1
01195 M00S01164.1mi +++| UJN ERX1 CONTINUE *TEPO* SCAN
01196 M00S01165.1mi +++|
01197 M00S01166.1mi +++|* HANG *1MI* ON INCORRECT ERROR DETECTION.
01198 M00S01167.1mi +++|
01199 M00S01168.1mi +++| ERX2 LDK PPET SET ERROR FLAG
01200 M00S01169.1mi +++| RJM CHG CONDITIONALLY HANG PP
01201 M00S01170.1mi +++| LJM DPP DROP PP
01202 M00S01171.1mi +++|
01203 M00S01172.1mi +++|* ISSUE APPROPRIATE DAYFILE RESPONSE AND SET ERROR OPTIONS.
01204 M00S01173.1mi +++|
01205 M00S01174.1mi +++| ERX3 LDM ERRA *CIOERR* ERROR CODE
01206 M00S01175.1mi +++| LMK /CIOERR/ARG
01207 M00S01176.1mi +++| NJN ERX4 IF NOT AN ARGUMENT ERROR
01208 M00S01177.1mi +++| LDN PSNI INHIBIT WRITE OF FET+0
01209 M00S01178.1mi +++| STM CFNB
01210 M00S01179.1mi +++| ERX4 AOD T1 MESSAGE RESPONSE ADDRESS OFFSET
01211 M00S01180.1mi +++| LDM TEPO,T1
01212 M00S01181.1mi +++| STM IDMA
01213 M00S01182.1mi +++| SOD T1
01214 M00S01183.1mi +++| LDM TEPO,T1 READ ERROR PROCESSING OPTIONS
01215 M00S01184.1mi +++| SHN -6
01216 M00S01185.1mi +++| ZJN ERX5 IF NO ERROR FLAG OPTION
01217 M00S01186.1mi +++|
01218 M00S01187.1mi +++|* SET CONTROL POINT ERROR FLAG.
01219 M00S01188.1mi +++|
01220 M00S01189.1mi +++| STD CM+1
01221 M00S01190.1mi +++| MONITOR CEFM SET CONTROL POINT ERROR FLAG
01222 M00S01191.1mi +++|
01223 M00S01192.1mi +++|* SET FET DUMP OPTIONS.
01224 M00S01193.1mi +++|
01225 M00S01194.1mi +++| ERX5 LDM TEPO,T1
01226 M00S01195.1mi +++| LPN 1
01227 M00S01196.1mi +++| ZJN ERX6 IF NO FET DUMP OPTION
01228 M00S01197.1mi +++| LDD CP
01229 M00S01198.1mi +++| ADC PPDW PPU DUMP CONTROL WORD
01230 M00S01199.1mi +++| STD T1
01231 M00S01200.1mi +++| CRD CM
01232 M00S01201.1mi +++| CFET 1 GET CURRENT FET LENGTH AND VALIDATE
01233 M00S01202.1mi +++| CRD CN
01234 M00S01203.1mi +++| LDD CN+3
01235 M00S01204.1mi +++| SHN -6
01236 M00S01205.1mi +++| ADN 5 INITIAL FET LENGTH
01237 M00S01206.1mi +++| STD CN+3
01238 M00S01207.1mi +++| LDD IR+3
01239 M00S01208.1mi +++| SHN 14
01240 M00S01209.1mi +++| LMD IR+4
01241 M00S01210.1mi +++| ADD CN+3 CURRENT FET LENGTH
01242 M00S01211.1mi +++| RJM VAD VALIDATE FET DUMP LENGTH
01243 M00S01212.1mi +++| ZJN ERX6 IF FET DUMP EXCEEDS FIELD LENGTH
01244 M00S01213.1mi +++|
01245 M00S01214.1mi +++|* SET FET ADDRESS AND DUMP WORD COUNT TO *PPDW*.
01246 M00S01215.1mi +++|
01247 M00S01216.1mi +++| LDD IR+3
01248 M00S01217.1mi +++| LPN 77
01249 M00S01218.1mi +++| SHN 14
01250 M00S01219.1mi +++| LMD CN+3 WORD COUNT OF DUMP
01251 M00S01220.1mi +++| SHN 6
01252 M00S01221.1mi +++| STD CM+3
01253 M00S01222.1mi +++| LDD IR+4
01254 M00S01223.1mi +++| STD CM+4
01255 M00S01224.1mi +++| LDD T1 REWRITE *PPDW*
01256 M00S01225.1mi +++| CWD CM
01257 M00S01226.1mi +++|
01258 M00S01227.1mi +++|* SET UP DAYFILE ERROR MESSAGE RESPONSE.
01259 M00S01228.1mi +++|
01260 M00S01229.1mi +++| ERX6 RJM IDM ISSUE DAYFILE MESSAGE
01261 M00S01230.1mi +++| UJP ERXX RETURN
01262 M00S01231.1mi +++| HST SPACE 4,10
01263 M00S01232.1mi +++|** TEPO - TABLE OF ERROR PROCESSING OPTIONS AND DAYFILE
01264 M00S01233.1mi +++|* ERROR MESSAGES.
01265 M00S01234.1mi +++|*
01266 M00S01235.1mi +++|* ENTRY TWO WORDS ASCENDING ORDER PER *ERR* ERROR
01267 M00S01236.1mi +++|* CODE VALUE.
01268 M00S01237.1mi +++|*
01269 M00S01238.1mi +++|*T 6/EF, 5/ERR, 1/FETD
01270 M00S01239.1mi +++|*T, 12/ADDR
01271 M00S01240.1mi +++|*
01272 M00S01241.1mi +++|* EF = CONTROL POINT ERROR FLAG OPTION.
01273 M00S01242.1mi +++|* ERR = *CIOERR* ERROR CODE.
01274 M00S01243.1mi +++|* FETD = SET IF FET DUMP DESIRED ON ERROR TERMINATION.
01275 M00S01244.1mi +++|* ADDR = ADDRESS OF CORRESPONDING DAYFILE MESSAGE.
01276 M00S01245.1mi +++|
01277 M00S01246.1mi +++|
01278 M00S01247.1mi +++| TEPO BSS 0
01279 M00S01248.1mi +++| LOC 0
01280 M00S01249.1mi +++|
01281 M00S01250.1mi +++| ARG MSG (FET ADDRESS OUT OF RANGE),PPET,0
01282 M00S01251.1mi +++| BUF MSG (BUFFER ARGUMENT ERROR ON ),PPET,1
01283 M00S01252.1mi +++| IRQ MSG (INCORRECT I/O REQUEST ON FILE ),PPET,1
01284 M00S01253.1mi +++|
01285 M00S01254.1mi +++| LOC *O
01286 M00S01255.1mi +++|
01287 M00S01256.1mi +++| TEPOL EQU *-TEPO
01288 M00S01257.1mi +++| GMX SPACE 4,10
01289 M00S01258.1mi +++|** GMX - GET MULTIPLEXOR STATUS.
01290 M00S01259.1mi +++|*
01291 M00S01260.1mi +++|* ENTRY (TA) = INTERACTIVE REFERENCE ADDRESS.
01292 M00S01261.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER.
01293 M00S01262.1mi +++|*
01294 M00S01263.1mi +++|* EXIT (A) = ZERO IF MULTIPLEXOR TERMINAL TYPE.
01295 M00S01264.1mi +++|*
01296 M00S01265.1mi +++|* USES CM - CM+4.
01297 M00S01266.1mi +++|*
Line S00029 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01298 M01S00029.ns2748 +++|* CALLS RRR, SRR.
01299 M00S01267.1mi +++|
01300 M00S01268.1mi +++|
01301 M00S01269.1mi +++| GMX0 LDN 0 MULTIPLEXOR TERMINAL TYPE
01302 M00S01270.1mi +++|
01303 M00S01271.1mi +++| GMX SUBR ENTRY/EXIT
Line S00030 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01304 M01S00030.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01305 M00S01272.1mi +++| LDD TA INTERACTIVE REFERENCE ADDRESS
01306 M00S01273.1mi +++| SHN 6
01307 M00S01274.1mi +++| ADN /REM/VNTP TERMINAL TABLE POINTER
01308 M00S01275.1mi +++| CRD CM
Line S00031 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01309 M01S00031.ns2748 +++| RJM RRR RESTORE R-REGISTER
01310 M00S01276.1mi +++| LDD CM+2
01311 M00S01277.1mi +++| ZJN GMXX IF NO NETWORK TERMINALS DEFINED
01312 M00S01278.1mi +++| SBN 1 (A) = HIGHEST MUX TERMINAL NUMBER
01313 M00S01279.1mi +++| SBD TN
01314 M00S01280.1mi +++| PJN GMX0 IF A MUX TERMINAL
01315 M00S01281.1mi +++| UJN GMXX RETURN
01316 M00S01282.1mi +++| IDM SPACE 4,10
01317 M00S01283.1mi +++|** IDM - SET UP AND ISSUE DAYFILE MESSAGE.
01318 M00S01284.1mi +++|*
01319 M00S01285.1mi +++|* ENTRY (BS - BS+4) = BUFFER STATUS.
01320 M00S01286.1mi +++|* (IDMA) = DAYFILE MESSAGE ADDRESS.
01321 M00S01287.1mi +++|*
01322 M00S01288.1mi +++|* EXIT DAYFILE MESSAGE ISSUED.
01323 M00S01289.1mi +++|*
01324 M00S01290.1mi +++|* USES T1, CM.
01325 M00S01291.1mi +++|*
01326 M00S01292.1mi +++|* CALLS ACS, ANS, DFM.
01327 M00S01293.1mi +++|
01328 M00S01294.1mi +++|
01329 M00S01295.1mi +++| IDM SUBR ENTRY/EXIT
01330 M00S01296.1mi +++| LDC BUFF SET BUFFER ADDRESS FOR *ACS*, *ANS*
01331 M00S01297.1mi +++| STD T1
01332 M00S01298.1mi +++| LDC 1R *100
01333 M00S01299.1mi +++| STI T1
01334 M00S01300.1mi +++| LDC ** MOVE MESSAGE TO CHARACTER BUFFER
01335 M00S01301.1mi +++| IDMA EQU *-1 MESSAGE ADDRESS (*ERX*)
01336 M00S01302.1mi +++| RJM ACS ASSEMBLE CHARACTER STRING
01337 M00S01303.1mi +++| LDD BS+3
01338 M00S01304.1mi +++| STD CM PRESERVE BUFFER STATUS
01339 M00S01305.1mi +++| SCN 77
01340 M00S01306.1mi +++| STD BS+3
01341 M00S01307.1mi +++| LDN BS MOVE FILE NAME
01342 M00S01308.1mi +++| RJM ACS ASSEMBLE NAME
01343 M00S01309.1mi +++| LDD CM RESTORE BUFFER STATUS FIELD
01344 M00S01310.1mi +++| STD BS+3
01345 M00S01311.1mi +++| LDC =Z* AT * ADD * AT *
01346 M00S01312.1mi +++| RJM ACS ASSEMBLE STRING
01347 M00S01313.1mi +++| LDD IR+3 ADD FET ADDRESS
01348 M00S01314.1mi +++| LPN 77
01349 M00S01315.1mi +++| SHN 14
01350 M00S01316.1mi +++| LMD IR+4
01351 M00S01317.1mi +++| RJM ANS ASSEMBLE NUMERIC STRING
01352 M00S01318.1mi +++| LDC =Z*.* ADD TERMINATOR
01353 M00S01319.1mi +++| RJM ACS ASSEMBLE TERMINATOR
01354 M00S01320.1mi +++|
01355 M00S01321.1mi +++|* ISSUE DAYFILE MESSAGE.
01356 M00S01322.1mi +++|
01357 M00S01323.1mi +++| LDC BUFF MESSAGE BUFFER ADDRESS FOR *DFM*
01358 M00S01324.1mi +++| RJM DFM ISSUE MESSAGE
01359 M00S01325.1mi +++| UJP IDMX RETURN
Line S01326 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01360 M01S01326.ns2748 ---| ITA SPACE 4,10
Line S00032 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01361 M01S00032.ns2748 +++| ITA SPACE 4,15
01362 M00S01327.1mi +++|** ITA - INITIALIZE INTERACTIVE ACCESS.
01363 M00S01328.1mi +++|*
01364 M00S01329.1mi +++|* ENTRY SUBSYSTEM CONTROL TABLE TO BE SCANNED FOR
01365 M00S01330.1mi +++|* IAF ACCESSIBILITY.
01366 M00S01331.1mi +++|*
01367 M00S01332.1mi +++|* EXIT (TA) = IAF REFERENCE ADDRESS.
01368 M00S01333.1mi +++|* (A) = NONZERO IF IAF ACCESSIBLE.
01369 M00S01334.1mi +++|*
Line S01335 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01370 M01S01335.ns2748 ---|* USES T1 - T5, CM - CM+4, TA.
Line S00033 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01371 M01S00033.ns2748 +++|* USES CM - CM+4, T1 - T5.
01372 M01S00034.ns2748 +++|*
01373 M01S00035.ns2748 +++|* CALLS PIR.
01374 M00S01336.1mi +++|
01375 M00S01337.1mi +++|
01376 M00S01338.1mi +++| ITA0 LDN 0 IAF INACESSIBLE STATUS
01377 M00S01339.1mi +++|
01378 M00S01340.1mi +++| ITA SUBR ENTRY/EXIT
01379 M00S01341.1mi +++| LDC SSCP SUBSYSTEM TABLE POINTER
01380 M00S01342.1mi +++| CRD CM
01381 M00S01343.1mi +++| LDD CM+2 TABLE ADDRESS
01382 M00S01344.1mi +++| LPN 37
01383 M00S01345.1mi +++| SHN 14
01384 M00S01346.1mi +++| LMD CM+3
01385 M00S01347.1mi +++| CRD CM READ TABLE ENTRY
01386 M00S01348.1mi +++| LDD CM IAF ENTRY
01387 M00S01349.1mi +++| SHN 21-13 ACCESSIBILITY BIT
01388 M00S01350.1mi +++| PJN ITA0 IF IAF INACCESSIBLE
01389 M00S01351.1mi +++|
01390 M00S01352.1mi +++|* IF NO ERROR FLAGS, RETURN WITH IAF REFERENCE ADDRESS.
01391 M00S01353.1mi +++|
01392 M00S01354.1mi +++| SHN 14
01393 M00S01355.1mi +++| LPC 3777 MASK OFF ACCESSIBILITY BIT
01394 M00S01356.1mi +++| SHN 7 BIAS CONTROL POINT ASSIGNMENT 200B
01395 M00S01357.1mi +++| ADN STSW STATUS CONTROL WORD
01396 M00S01358.1mi +++| CRD T1
01397 M00S01359.1mi +++| ADN FLSW-STSW FIELD LENGTH CONTROL WORD
01398 M00S01360.1mi +++| CRD CM
01399 M00S01361.1mi +++| LDD T1+1 ERROR FLAG FIELD
01400 M00S01362.1mi +++| NJN ITA0 IF IAF INACCESSIBLE
01401 M00S01363.1mi +++| LDD CM+3
01402 M00S01364.1mi +++| ZJN ITAX IF NO REFERENCE ADDRESS
Line S01365 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01403 M01S01365.ns2748 ---| STD TA RA/100B
Line S00036 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01404 M01S00036.ns2748 +++| RJM PIR PRESET WITH IAF R-REGISTER
01405 M00S01366.1mi +++| UJN ITAX RETURN
01406 M00S01367.1mi +++| MRJ SPACE 4,10
01407 M00S01368.1mi +++|** MRJ - CHECK FOR MONITOR FUNCTION REJECTION.
01408 M00S01369.1mi +++|*
01409 M00S01370.1mi +++|* *MRJ* CHECKS TO SEE IF A *TSEM* OR *TGPM* MONITOR FUNCTION
01410 M00S01371.1mi +++|* WAS REJECTED. IF NOT, *MRJ* RETURNS TO THE CALLER. IF A
01411 M00S01372.1mi +++|* FUNCTION WAS REJECTED, *MRJ* SAVES ALL NECESSARY RECALL
01412 M00S01373.1mi +++|* INFORMATION AND THEN CAUSES *1MI* TO ENTER PP RECALL.
01413 M00S01374.1mi +++|*
01414 M00S01375.1mi +++|* ENTRY (A) = RECALL REASON CODE, IF FUNCTION REJECTED.
01415 M00S01376.1mi +++|* (CM+1) = *CPUMTR* REPLY FROM MONITOR FUNCTION.
01416 M00S01377.1mi +++|* (BS - BS+4) = CURRENT BUFFER STATUS.
01417 M00S01378.1mi +++|*
01418 M00S01379.1mi +++|* EXIT TO *ERS* IF FUNCTION WAS REJECTED.
01419 M00S01380.1mi +++|*
01420 M00S01381.1mi +++|* USES T0.
01421 M00S01382.1mi +++|*
01422 M00S01383.1mi +++|* CALLS ROJ.
01423 M00S01384.1mi +++|
01424 M00S01385.1mi +++|
01425 M00S01386.1mi +++| MRJ SUBR ENTRY/EXIT
01426 M00S01387.1mi +++| STM MRJA SAVE RECALL REASON CODE
01427 M00S01388.1mi +++| LDD CM+1
01428 M00S01389.1mi +++| ZJN MRJ1 IF IAF IS INACCESSIBLE
01429 M00S01390.1mi +++| LMC 7777
01430 M00S01391.1mi +++| ZJN MRJ2 IF THE MONITOR FUNCTION WAS REJECTED
01431 M00S01392.1mi +++| UJN MRJX RETURN
01432 M00S01393.1mi +++|
01433 M00S01394.1mi +++|* ROLLOUT WITH SUSPENSION IF IAF IS INACTIVE ONLY.
01434 M00S01395.1mi +++|
01435 M00S01396.1mi +++| MRJ1 LDK ROSU SUSPEND ON JOB ROLLOUT
01436 M00S01397.1mi +++| STD T0
01437 M00S01398.1mi +++| RJM ROJ ROLLOUT USER JOB
01438 M00S01399.1mi +++| LDK IAFF SET FUNCTION REJECTED BECAUSE IAF ABORTED
01439 M00S01400.1mi +++| RAM RCPW+4
01440 M00S01401.1mi +++|
01441 M00S01402.1mi +++|* RECALL PPU ON MONITOR REJECTION FOR 100 MILLISECONDS.
01442 M00S01403.1mi +++|
01443 M00S01404.1mi +++| MRJ2 LDK RECMS2 100 MS RECALL PERIOD
01444 M00S01405.1mi +++| STM ERSA
01445 M00S01406.1mi +++| LDM RCRF+4 BIAS RECALL TIME PERIOD
01446 M00S01407.1mi +++| LPN 7
01447 M00S01408.1mi +++| RAM ERSE
01448 M00S01409.1mi +++| LPN 7
01449 M00S01410.1mi +++| RAM RCPW+4
01450 M00S01411.1mi +++| LPN 7
01451 M00S01412.1mi +++| SBN 4
01452 M00S01413.1mi +++| PJN MRJ3 IF MAXIMUM TIME PERIOD REACHED
01453 M00S01414.1mi +++| AOM RCPW+4 INCREMENT FUNCTION REJECT COUNT
01454 M00S01415.1mi +++| MRJ3 LDM WIAF+3 FIRST POT
01455 M00S01416.1mi +++| STM RCPW+3
01456 M00S01417.1mi +++| LDM MRJA
01457 M00S01418.1mi +++| LJM ERS ENTER PP RECALL
01458 M00S01419.1mi +++|
01459 M00S01420.1mi +++| MRJA CON 0 RECALL REASON CODE
01460 M00S01421.1mi +++| PTI SPACE 4,10
01461 M00S01422.1mi +++|** PTI - PROCESS TERMINAL INPUT.
01462 M00S01423.1mi +++|*
01463 M00S01424.1mi +++|* ENTRY (PTIA) = PREPROCESSED INPUT AHEAD QUEUE.
01464 M00S01425.1mi +++|* (TN) = TERMINAL NUMBER.
01465 M00S01426.1mi +++|*
01466 M00S01427.1mi +++|* EXIT INPUT AHEAD TRANSFERED TO INPUT FET.
01467 M00S01428.1mi +++|* (IR+3- IR+4) = INPUT FET ADDRESS.
01468 M00S01429.1mi +++|* (TT - TT+1) = TERMINAL TABLE ADDRESS.
01469 M00S01430.1mi +++|* (A) = NONZERO IF TRANSFER COMPLETE.
01470 M00S01431.1mi +++|*
01471 M00S01432.1mi +++|* USES CM - CM+4, IR - IR+4, PP, T2, T8 - T9.
01472 M00S01433.1mi +++|*
Line S01434 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01473 M01S01434.ns2748 ---|* CALLS CID, ITA, MRJ, STA, VFP.
Line S00037 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01474 M01S00037.ns2748 +++|* CALLS CID, ITA, MRJ, RRR, SRR, STA, VFP.
01475 M00S01435.1mi +++|*
01476 M00S01436.1mi +++|* MACROS DELAY, MONITOR, PAUSE.
01477 M00S01437.1mi +++|
01478 M00S01438.1mi +++|
01479 M00S01439.1mi +++| PTI SUBR ENTRY/EXIT
01480 M00S01440.1mi +++|
01481 M00S01441.1mi +++|* ASSURE INPUT FET ADDRESS FOLLOWING POSSIBLE OUTPUT FLUSH.
01482 M00S01442.1mi +++|
01483 M00S01443.1mi +++| LDD IA REREAD ORIGINAL INPUT REGISTER
01484 M00S01444.1mi +++| CRD IR
01485 M00S01445.1mi +++| RJM VFP VERIFY FET PARAMETERS
Line S00038 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01486 M01S00038.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01487 M00S01446.1mi +++| RJM STA SET TERMINAL TABLE ADDRESS
Line S00039 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01488 M01S00039.ns2748 +++| RJM RRR RESTORE R-REGISTER
01489 M00S01447.1mi +++| LDC ** PREPROCESSED INPUT QUEUE POINTER (*CTI*)
01490 M00S01448.1mi +++| PTIA EQU *-1
01491 M00S01449.1mi +++| NJN PTI1 IF QUEUE PREPROCESSED
01492 M00S01450.1mi +++|
01493 M00S01451.1mi +++|* FUNCTION IAF FOR DIRECT INPUT ASSIGNMENT.
01494 M00S01452.1mi +++|
01495 M00S01453.1mi +++| PTI0 SOM PTIC DECREMENT *TSEM* REQUEST COUNT
01496 M00S01454.1mi +++| LDK ZERL RESET *TSEM* REQUEST
Line S00003 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
01497 M01S00003.271l716 +++| CRD CM
01498 M00S01455.1mi +++| CRM WADI,ON
01499 M00S01456.1mi +++| LDC /REM/VADI
01500 M00S01457.1mi +++| STM WADI
01501 M00S01458.1mi +++| LDD TN TERMINAL NUMBER TO FUNCTION REQUEST
01502 M00S01459.1mi +++| STM WADI+4
01503 M00S01460.1mi +++| LDD MA
01504 M00S01461.1mi +++| CWM WADI,ON
01505 M00S01462.1mi +++| MONITOR TSEM
01506 M00S01463.1mi +++| LDK TALR PRESET POSSIBLE VADI REJECTION
01507 M00S01464.1mi +++| RJM MRJ
01508 M00S01465.1mi +++|
01509 M00S01466.1mi +++|* STATUS PREVIOUS *VADI* REQUEST.
01510 M00S01467.1mi +++|
01511 M00S01468.1mi +++| PTI1 LDD RA SAVE REFERENCE ADDRESS
01512 M00S01469.1mi +++| STD T9
01513 M00S01470.1mi +++|
01514 M00S01471.1mi +++|* DELAY THE INPUT PROCESS TO ALLOW *VADI* COMPLETION.
01515 M00S01472.1mi +++|
Line S01473 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01516 M01S01473.ns2748 ---| PTI2 LDD TT *VADI* FUNCTION REQUEST RESPONSE
Line S00040 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01517 M01S00040.ns2748 +++| PTI2 RJM SRR SET R-REGISTER TO IAF RA
01518 M01S00041.ns2748 +++| LDD TT *VADI* FUNCTION REQUEST RESPONSE
01519 M00S01474.1mi +++| SHN 14
01520 M00S01475.1mi +++| LMD TT+1
01521 M00S01476.1mi +++| ADN /REM/VROT
01522 M00S01477.1mi +++| CRD CM
Line S00042 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01523 M01S00042.ns2748 +++| RJM RRR RESTORE R-REGISTER
01524 M00S01478.1mi +++| LDD CM+1
01525 M00S01479.1mi +++| NJP PTI6 IF DIRECT INPUT ASSIGNED
01526 M00S01480.1mi +++| LDD CM+3
01527 M00S01481.1mi +++| LPC 6000
01528 M00S01482.1mi +++| NJP PTI5 IF *TSEM* RESPONSE
01529 M00S01483.1mi +++|* LDN 0 DEFINE DELAY TYPE
01530 M00S01484.1mi +++| STM PTIB
01531 M00S01485.1mi +++|
01532 M00S01486.1mi +++|* DELAY APPROXIMATLY 10 MILLISECONDS.
01533 M00S01487.1mi +++|
01534 M00S01488.1mi +++| PTI2.1 LDN 77 DELAY CYCLE INCREMENT
01535 M00S01489.1mi +++| STD T8
01536 M00S01490.1mi +++| PTI3 SOD T8
01537 M00S01491.1mi +++| NJN PTI3.1 IF DELAY CYCLE NOT EXHAUSTED
01538 M00S01492.1mi +++| LDC 0 (TYPE OF DELAY)
01539 M00S01493.1mi +++| PTIB EQU *-1
01540 M00S01494.1mi +++| ZJP PTI2 IF *TSEM* NOT COMPLETE
01541 M00S01495.1mi +++| LJM PTI0 REISSUE *TSEM*
01542 M00S01496.1mi +++|
01543 M00S01497.1mi +++| PTI3.1 DELAY
01544 M00S01498.1mi +++| PAUSE ALLOW STORAGE RELOCATION
01545 M00S01499.1mi +++| LDD CM+1 ASSURE ERROR CONDITION THIS JOB
01546 M00S01500.1mi +++| ZJN PTI4 IF NO ERROR FLAG AT THIS CP
01547 M00S01501.1mi +++| LDN 0
01548 M00S01502.1mi +++| UJP PTIX DISCONTINUE READ REQUEST
01549 M00S01503.1mi +++|
01550 M00S01504.1mi +++|* ASSURE IAF ACCESSILILITY.
01551 M00S01505.1mi +++|
01552 M00S01506.1mi +++| PTI4 RJM ITA GET IAF CURRENT STATUS
01553 M00S01507.1mi +++| NJP PTI3 IF IAF STILL ACCESSIBLE
01554 M00S01508.1mi +++| LDK ZERL
01555 M00S01509.1mi +++| CRD CM
01556 M00S01510.1mi +++| LDK TALR TREAT AS A *VADI* REJECTION
01557 M00S01511.1mi +++| RJM MRJ THIS WILL ALWAYS EXIT VIA *ERS*
01558 M00S01512.1mi +++|
01559 M00S01513.1mi +++|* *VADI* FUNCTION REJECTION IS POSSIBLE DUE TO LOW POT
01560 M00S01514.1mi +++|* MEMORY WITHIN IAF, NO INPUT AHEAD IN IAF, THE IAF
01561 M00S01515.1mi +++|* RECEIVE BUFFER BUSY, OR OVERFLOW OCCURRED. IF THE
01562 M00S01516.1mi +++|* RECEIVE BUFFER IS BUSY BUT THERE IS TYPEAHEAD DATA
01563 M00S01517.1mi +++|* IN IAF, DELAY AND REISSUE THE *VADI* *TSEM* REQUEST
01564 M00S01518.1mi +++|* (A MAXIMUM OF EIGHT TIMES). IN THE THREE OTHER REJECT
01565 M00S01519.1mi +++|* CASES, ROLL THE JOB.
01566 M00S01520.1mi +++|
01567 M00S01521.1mi +++| PTI5 STD T2 SAVE REJECT TYPE
01568 M00S01522.1mi +++| LMD CM+3
01569 M00S01523.1mi +++| STD CM+3
01570 M00S01524.1mi +++| AOM PTIB SET DELAY TYPE
Line S00043 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01571 M01S00043.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01572 M00S01525.1mi +++| LDD TT TERMINAL TABLE ADDRESS
01573 M00S01526.1mi +++| SHN 14
01574 M00S01527.1mi +++| LMD TT+1
01575 M00S01528.1mi +++| ADN /REM/VROT
01576 M00S01529.1mi +++| CWD CM CLEAR REQUEST WORD
Line S00044 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01577 M01S00044.ns2748 +++| RJM RRR RESTORE R-REGISTER
01578 M00S01530.1mi +++| LDD T2 CHECK REJECT TYPE
01579 M00S01531.1mi +++| SHN 21-13
01580 M00S01532.1mi +++| PJN PTI5.1 IF REJECT RESPONSE
01581 M00S01533.1mi +++| LDM PTIC CHECK *TSEM* REQUEST COUNT
01582 M00S01534.1mi +++| SHN 6
01583 M00S01535.1mi +++| PJP PTI2.1 IF NOT AT LIMIT
01584 M00S01536.1mi +++| PTI5.1 LDN 0 INCOMPLETION STATUS
01585 M00S01537.1mi +++|
01586 M00S01538.1mi +++| UJP PTIX RETURN
01587 M00S01539.1mi +++|
01588 M00S01540.1mi +++|* SATISFY READ FUNCTION REQUEST ON ACTIVE INPUT.
01589 M00S01541.1mi +++|
01590 M00S01542.1mi +++| PTI6 STD PP SET INPUT AHEAD POT POINTER
01591 M00S01543.1mi +++|
01592 M00S01544.1mi +++|* RESET INPUT FET POINTERS IF STORAGE RELOCATION OCCURRED.
01593 M00S01545.1mi +++|
01594 M00S01546.1mi +++| LDD RA CURRENT REFERENCE ADDRESS
01595 M00S01547.1mi +++| LMD T9 RA PRIOR TO POSSIBLE STORAGE RELOCATION
01596 M00S01548.1mi +++| ZJN PTI7 IF NO STORAGE MOVEMENT OCCURRED
01597 M00S01549.1mi +++| RJM VFP VERIFY FET PARAMETERS
Line S00045 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01598 M01S00045.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01599 M00S01550.1mi +++| LDD TT REREAD *VROT*
01600 M00S01551.1mi +++| SHN 14
01601 M00S01552.1mi +++| LMD TT+1
01602 M00S01553.1mi +++| ADN /REM/VROT
01603 M00S01554.1mi +++| CRD CM
Line S00046 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01604 M01S00046.ns2748 +++| RJM RRR RESTORE R-REGISTER
01605 M00S01555.1mi +++| PTI7 LDN 0 CLEAR POT POINTER
01606 M00S01556.1mi +++| STD CM+1
01607 M00S01557.1mi +++| LDD CM+4 CLEAR INPUT REQUESTED
01608 M00S01558.1mi +++| SCN 10
01609 M00S01559.1mi +++| STD CM+4
Line S00047 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01610 M01S00047.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01611 M00S01560.1mi +++| LDD TT
01612 M00S01561.1mi +++| SHN 14
01613 M00S01562.1mi +++| LMD TT+1
01614 M00S01563.1mi +++| ADN /REM/VROT
01615 M00S01564.1mi +++| CWD CM REWRITE *VROT*
Line S00048 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01616 M01S00048.ns2748 +++| RJM RRR RESTORE R-REGISTER
01617 M00S01565.1mi +++| RJM CID COPY INPUT DATA
01618 M00S01566.1mi +++| LDN 1
01619 M00S01567.1mi +++| LJM PTIX EXIT
01620 M00S01568.1mi +++|
01621 M00S01569.1mi +++| PTIC CON 10 *TSEM* REQUEST LIMIT
Line S01570 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01622 M01S01570.ns2748 ---| PTO SPACE 4,10
Line S00049 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01623 M01S00049.ns2748 +++| PTO SPACE 4,20
01624 M00S01571.1mi +++|** PTO - PROCESS TERMINAL OUTPUT.
01625 M00S01572.1mi +++|*
01626 M00S01573.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS.
01627 M00S01574.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT.
01628 M00S01575.1mi +++|* (BS - BS+4) = OUTPUT BUFFER STATUS.
01629 M00S01576.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER.
01630 M00S01577.1mi +++|*
01631 M00S01578.1mi +++|* EXIT TERMINAL OUTPUT ASSIGNED.
01632 M00S01579.1mi +++|* (A) .LT. 0, IF IAF OUTPUT THRESHOLD REACHED.
01633 M00S01580.1mi +++|* (TT - TT+1) = TERMINAL TABLE ADDRESS.
01634 M00S01581.1mi +++|* TO *ERS* IF NOT ALL OUTPUT FLUSHED.
01635 M00S01582.1mi +++|* TO *DPP* IF FULL OUTPUT BUFFER AND NO EOL.
01636 M00S01583.1mi +++|*
Line S01584 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01637 M01S01584.ns2748 ---|* USES CM - CM+4, CN - CN+4, CD, PP, TO, T2 - T3.
Line S00050 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01638 M01S00050.ns2748 +++|* USES CD, PP, CM - CM+4, CN - CN+4, T2 - T3.
01639 M00S01585.1mi +++|*
Line S01586 Modification History
M01 (Removed by) ns2748
Seq # *Modification Id* Act
----------------------------+
01640 M01S01586.ns2748 ---|* CALLS ANR, CFN, CHG, CIB, COD, GMX, MRJ, ROJ, STA.
Line S00051 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01641 M01S00051.ns2748 +++|* CALLS ANR, CHG, CIB, COD, GMX, MRJ, ROJ, RRR, SRR, STA.
01642 M00S01587.1mi +++|*
01643 M00S01588.1mi +++|* MACROS CFET, MONITOR.
01644 M00S01589.1mi +++|
01645 M00S01590.1mi +++|
01646 M00S01591.1mi +++| PTO SUBR ENTRY/EXIT
Line S00052 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01647 M01S00052.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01648 M00S01592.1mi +++| RJM STA SET TERMINAL TABLE ADDRESS
Line S00053 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01649 M01S00053.ns2748 +++| RJM RRR RESTORE R-REGISTER
01650 M00S01593.1mi +++| LDD BS+4 BUFFER STATUS
01651 M00S01594.1mi +++| LPN 20
01652 M00S01595.1mi +++| NJN PTO1 IF AN EOR/EOF FUNCTION
01653 M00S01596.1mi +++| RJM CIB CHECK BUFFER INPUT STATUS
01654 M00S01597.1mi +++| NJN PTO2 IF NOT A FULL BUFFER
01655 M00S01598.1mi +++|
01656 M00S01599.1mi +++|* IN THE EVENT NETWORK REQUIREMENTS ARE NOT MET FOR
01657 M00S01600.1mi +++|* A BUFFERED WRITE ON A FULL BUFFER, IT IS NECESSARY
01658 M00S01601.1mi +++|* TO ROLLOUT THE USER JOB TO ASSURE BUFFER FLUSH
01659 M00S01602.1mi +++|* COMPLETION.
01660 M00S01603.1mi +++|
01661 M00S01604.1mi +++| AOM PTOA SIGNAL FULL BUFFERED WRITE
01662 M00S01605.1mi +++| UJN PTO2 ATTEMPT OUTPUT TRANSFER
01663 M00S01606.1mi +++|
01664 M00S01607.1mi +++|* IGNORE NETWORK REQUIREMENTS ON EOR/EOF FUNCTION.
01665 M00S01608.1mi +++|
01666 M00S01609.1mi +++| PTO1 AOM ANRA PASS NETWORK OUTPUT REQUIREMENTS
01667 M00S01610.1mi +++|
01668 M00S01611.1mi +++|* SET NETWORK TERMINAL DOWNLINE BLOCK LIMIT.
01669 M00S01612.1mi +++|
01670 M00S01613.1mi +++| PTO2 RJM GMX
01671 M00S01614.1mi +++| ZJN PTO2.2 IF MUX
Line S00054 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01672 M01S00054.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01673 M00S01615.1mi +++| LDD TA
01674 M00S01616.1mi +++| SHN 6
01675 M00S01617.1mi +++| ADN /REM/VMST
01676 M00S01618.1mi +++| CRD CM READ TERMINAL MESSAGE BUFFER POINTER
01677 M00S01619.1mi +++| LDD CM+1
01678 M00S01620.1mi +++| SHN 6
01679 M00S01621.1mi +++| ADD TA
01680 M00S01622.1mi +++| SHN 6
01681 M00S01623.1mi +++| ADD CM+2
01682 M00S01624.1mi +++| ADD TN
01683 M00S01625.1mi +++| CRD CM READ TERMINAL *VMST*
Line S00055 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01684 M01S00055.ns2748 +++| RJM RRR RESTORE R-REGISTER
01685 M00S01626.1mi +++| LDD CM+1 CHECK TERMINAL CLASS
01686 M00S01627.1mi +++| LPC 377
01687 M00S01628.1mi +++| SBN 10+1
01688 M00S01629.1mi +++| PJN PTO2.1 IF SYNCHRONOUS TERMINAL
01689 M00S01630.1mi +++| AOM ANRB
01690 M00S01631.1mi +++| PTO2.1 LDD CM+3
01691 M00S01632.1mi +++| SHN -6
01692 M00S01633.1mi +++| LPN 37
01693 M00S01634.1mi +++| NJN PTO3 IF NETWORK BLOCKSIZE DEFINED
01694 M00S01635.1mi +++|
01695 M00S01636.1mi +++|* HANG *1MI* ON INCORRECT NETWORK BLOCKSIZE.
01696 M00S01637.1mi +++|
01697 M00S01638.1mi +++|* LDN 0 SET NO ERROR FLAG
01698 M00S01639.1mi +++| RJM CHG CONDITIONALLY HANG PP
01699 M00S01640.1mi +++| PTO2.2 LDN /REM/VOPL DEFAULT BLOCKSIZE
01700 M00S01641.1mi +++|
01701 M00S01642.1mi +++|* REQUIREMENTS DEPEND ON BLOCKSIZE.
01702 M00S01643.1mi +++|
01703 M00S01644.1mi +++| PTO3 SHN 3 CONVERT BLOCKSIZE TO CM WORD COUNT
01704 M00S01645.1mi +++| STD CD
01705 M00S01646.1mi +++| RJM ANR ASSURE TERMINAL REQUIREMENTS
01706 M00S01647.1mi +++| MJP PTO6 IF REQUIREMENTS NOT ASSURED
01707 M00S01648.1mi +++| RJM GMX
01708 M00S01649.1mi +++| ZJP PTO6.1 IF MUX TERMINAL
01709 M00S01650.1mi +++| LDN 0 CLEAR *TSEM* POT COUNT
01710 M00S01651.1mi +++| STD T2
01711 M00S01652.1mi +++| LDK /REM/VTRP *TSEM* QUEUE POINTER
01712 M00S01653.1mi +++| STD T3
01713 M00S01654.1mi +++| SOD T3
Line S00056 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01714 M01S00056.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA
01715 M00S01655.1mi +++| PTO3.5 AOD T3 INCREMENT POINTER
01716 M00S01656.1mi +++| SBK /REM/VTSP END OF QUEUE
01717 M00S01657.1mi +++| PJN PTO4 IF END OF *TSEM* QUEUE
01718 M00S01658.1mi +++| LDD TA IAF REFERENCE ADDRESS
01719 M00S01659.1mi +++| SHN 6
01720 M00S01660.1mi +++| ADD T3 ADD IN POINTER
01721 M00S01661.1mi +++| CRD CM READ IN QUEUE ENTRY
01722 M00S01662.1mi +++| LDD CM+4 CHECK TERMINAL NUMBER
01723 M00S01663.1mi +++| LMD TN
01724 M00S01664.1mi +++| NJN PTO3.5 IF NOT CURRENT TERMINAL
01725 M00S01665.1mi +++| LDD CM CHECK TYPE OF *TSEM* REQUEST
01726 M00S01666.1mi +++| SBK /REM/VADO
01727 M00S01667.1mi +++| NJN PTO3.5 IF NOT *VADO* *TSEM* REQUEST
01728 M00S01668.1mi +++| LDD CM+1 GET POT COUNT
01729 M00S01669.1mi +++| RAD T2 ADD TO PREVIOUS POT COUNT
01730 M00S01670.1mi +++| UJN PTO3.5 CONTINUE SEARCH
01731 M00S01671.1mi +++| PTO4 RJM STA
01732 M00S01672.1mi +++| ADN /REM/VSTT CHECK MESSAGES QUEUED IN IAF
01733 M00S01673.1mi +++| CRD CM
Line S00057 Modification History
M01 (Added by) ns2748
Seq # *Modification Id* Act
----------------------------+
01734 M01S00057.ns2748 +++| RJM RRR RESTORE R-REGISTER
01735 M00S01674.1mi +++| LDD CM+2
01736 M00S01675.1mi +++| LPN 77
01737 M00S01676.1mi +++| ADD T2 ADD *TSEM* QUEUE POT COUNT
01738 M00S01677.1mi +++| STD CM+2
01739 M00S01678.1mi +++| LDK /REM/VNCP COMPARE WITH MAXIMUM ALLOWED
01740 M00S01679.1mi +++| SBD CM+2
01741 M00S01680.1mi +++| MJP PTOX IF IAF OUTPUT THRESHOLD REACHED
01742 M00S01681.1mi +++|
01743 M00S01682.1mi +++|* SET *TSEM* POT MEMORY REQUEST.
01744 M00S01683.1mi +++|
01745 M00S01684.1mi +++| LDK ZERL PRESET *TGPM* SUBFUNCTION
01746 M00S01685.1mi +++| CRD CM
01747 M00S01686.1mi +++| CRM WADO,ON
01748 M00S01687.1mi +++| LDD CD+2 CURRENT ACCEPTABLE TRANSFER
01749 M00S01688.1mi +++| ADN /REM/VCPC-1+2 ROUND UP AND ALLOW FOR HEADER
01750 M00S01689.1mi +++| SHN -3 CM WORD COUNT TO POT COUNT
01751 M00S01690.1mi +++| STD CM+1 IAF POT COUNT REQUEST
01752 M00S01691.1mi +++| MONITOR TGPM GET POT MEMORY
01753 M00S01692.1mi +++| LDK TALR
01754 M00S01693.1mi +++| RJM MRJ
01755 M00S01694.1mi +++|
01756 M00S01695.1mi +++|* SET IAF *VADO* REQUEST FOR OUTPUT BUFFER FLUSH.
01757 M00S01696.1mi +++|
01758 M00S01697.1mi +++| LDD CM+1 GET POT POINTER
01759 M00S01698.1mi +++| STD PP CURRENT IAF POT MEMORY POINTER
01760 M00S01699.1mi +++| STM WADO+3 FIRST POT IN ASSIGN OUTPUT *VADO*
01761 M00S01700.1mi +++| STM WADO+2 LAST POT IN ASSIGN OUTPUT
01762 M00S01701.1mi +++| LDC /REM/VADO PRESET ASSIGN DIRECT OUTPUT REQUEST
01763 M00S01702.1mi +++| STM WADO
01764 M00S01703.1mi +++| LDD TN
01765 M00S01704.1mi +++| STM WADO+4 SET TERMINAL CONNECTION IN *VADO* REQUEST
01766 M00S01705.1mi +++|
01767 M00S01706.1mi +++|* ASSIGN TERMINAL OUTPUT.
01768 M00S01707.1mi +++|
01769 M00S01708.1mi +++| RJM COD COPY OUTPUT DATA
01770 M00S01709.1mi +++| LDD MA MESSAGE BUFFER
01771 M00S01710.1mi +++| CWM WADO,ON
Line S00004 Modification History
M01 (Added by) 271l716
Seq # *Modification Id* Act
----------------------------+
01772 M01S00004.271l716 +++| LDK ZERL
01773 M01S00005.271l716 +++| CRD CM
01774 M00S01711.1mi +++| MONITOR TSEM ASSIGN DIRECT OUTPUT *VADO*
01775 M00S01712.1mi +++|
01776 M00S01713.1mi +++|* THE OUTPUT POINTER SHOULD NOT BE UPDATED UNTIL AFTER THE
01777 M00S01714.1mi +++|* *VADO* *TSEM* REQUEST HAS BEEN HONORED. OTHERWISE, IF THE
01778 M00S01715.1mi +++|* *VADO* WAS REJECTED AND THE JOB ROLLED, THEN *1RO* WOULD NOT
01779 M00S01716.1mi +++|* BE ABLE TO FLUSH THAT OUTPUT WHICH *1MI* PUT INTO POTS.
01780 M00S01717.1mi +++|
01781 M00S01718.1mi +++| LDK TDOR PRESET POSSIBLE *VADO* REJECTION
01782 M00S01719.1mi +++| RJM MRJ
01783 M00S01720.1mi +++| LDN ZERL REQUEST ACCEPTED, SO UPDATE OUTPUT POINTER
01784 M00S01721.1mi +++| CRD CN
01785 M00S01722.1mi +++| LDD OT
01786 M00S01723.1mi +++| STD CN+3
01787 M00S01724.1mi +++| LDD OT+1
01788 M00S01725.1mi +++| STD CN+4
01789 M00S01726.1mi +++| CFET 3
01790 M00S01727.1mi +++| CWD CN
01791 M00S01728.1mi +++| LDN 0
01792 M00S01729.1mi +++|* LDN 1
01793 M00S01730.1mi +++| PTOB EQU *-1
01794 M00S01731.1mi +++| ZJN PTO7 IF ALL OUTPUT FLUSHED
01795 M00S01732.1mi +++| LDC RECMS2
01796 M00S01733.1mi +++| STM ERSA
01797 M00S01734.1mi +++| PTO5 LDK TALR
01798 M00S01735.1mi +++| LJM ERS ENTER RECALL STACK
01799 M00S01736.1mi +++|
01800 M00S01737.1mi +++|* ROLLOUT JOB ON BUFFERED WRITE, FULL CONDITION NO *EOL*
01801 M00S01738.1mi +++|
01802 M00S01739.1mi +++| PTO6 LDN 0 FULL BUFFERED WRITE CONDITION
01803 M00S01740.1mi +++|* LDN 1
01804 M00S01741.1mi +++| PTOA EQU *-1
01805 M00S01742.1mi +++| ZJN PTO7 IF NOT FULL OUTPUT BUFFER AND NO *EOL*
01806 M00S01743.1mi +++|
01807 M00S01744.1mi +++|* ALLOW ROUTINE *1RO* TO COMPLETE OUTPUT REQUEST.
01808 M00S01745.1mi +++|
01809 M00S01746.1mi +++| PTO6.1 LDK ROSR
01810 M00S01747.1mi +++| STD T0
01811 M00S01748.1mi +++| RJM ROJ ROLLOUT USER JOB
01812 M00S01749.1mi +++| UJN PTO5 ENTER RECALL
01813 M00S01750.1mi +++|
01814 M00S01751.1mi +++| PTO7 LJM PTOX RETURN
01815 M00S01752.1mi +++| RBS SPACE 4,10
01816 M00S01753.1mi +++|** RBS - REVERSE BUFFER SCAN.
01817 M00S01754.1mi +++|*
01818 M00S01755.1mi +++|* ENTRY (CD+1 - CD+2) = BEGINNING BUFFER SCAN CONTENT.
01819 M00S01756.1mi +++|* (FT - FT+1) = BUFFER FIRST WORD ADDRESS.
01820 M00S01757.1mi +++|* (LM - LM+1) = BUFFER LAST WORD ADDRESS.
01821 M00S01758.1mi +++|* (T3 - T3+1) = RUNNING BUFFER *IN* POINTER.
01822 M00S01759.1mi +++|*
01823 M00S01760.1mi +++|* EXIT (CD+1 - CD+2) = ACCEPTABLE BUFFER CM WORD COUNT
01824 M00S01761.1mi +++|* ENCOMPASSING COMPLETE LOGICAL LINES.