cdc:nos2.source:opl.opl871:deck:1mi
Deck 1MI
4 Modifications
Listing Sections
- Deck 1MI Start
- Deck 1MI Part 1 (Line 1971)
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1mi +++| IDENT 1MI,HST 00002 M01S00002.1mi +++| PERIPH 00003 M01S00003.1mi +++| BASE MIXED 00004 M01S00004.1mi +++| SST 00005 M01S00005.1mi +++| SYSCOM 00006 M01S00006.1mi +++|*COMMENT 1MI - TERMINAL I/O DRIVER.
| Line S00007 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00007 M02S00007.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1982. 00008 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00009 M01S00008.1mi +++| HST TITLE 1MI - TERMINAL I/O DRIVER. 00010 M01S00009.1mi +++| HST SPACE 4,10 00011 M01S00010.1mi +++|*** 1MI - TERMINAL I/O DRIVER. 00012 M01S00011.1mi +++|* 00013 M01S00012.1mi +++|* R. V. SAMORA. 82/05/30. 00014 M01S00013.1mi +++| HST SPACE 4,10 00015 M01S00014.1mi +++|*** *1MI* HIGH SPEED TERMINAL SUPPORT (HSTS) IMPROVES THE 00016 M01S00015.1mi +++|* INTERACTIVE I/O PERFORMANCE OF IAF BY REMOVING QUEUING DELAYS 00017 M01S00016.1mi +++|* AND ALLOWING INTERACTIVE I/O TO PROCEED WITHOUT MANDATORY 00018 M01S00017.1mi +++|* ROLLOUT OF THE INTERACTIVE USER PROGRAM. THIS FEATURE, 00019 M01S00018.1mi +++|* ALTHOUGH INTENDED FOR HIGH SPEED TERMINALS PRIMARILY, 00020 M01S00019.1mi +++|* IMPROVES SYSTEM PERFORMANCE NOT ONLY IN THE AREA OF CHARACTER 00021 M01S00020.1mi +++|* THROUGHPUT BUT REDUCES SYSTEM OVERHEAD BY KEEPING INTERACTIVE 00022 M01S00021.1mi +++|* JOB MOVEMENT AT A MINIMUM. 00023 M01S00022.1mi +++| HST SPACE 4,10 00024 M01S00023.1mi +++|*** CALL. 00025 M01S00024.1mi +++|* 00026 M01S00025.1mi +++|* 00027 M01S00026.1mi +++|*T IR 18/*1MI*, 1/A, 5/CP, 1/T, 17/, 18/FET
Figure IR
00028 M01S00027.1mi +++|* A SET IF AUTO RECALL DESIRED. 00029 M01S00028.1mi +++|* CP CONTROL POINT OF REQUESTOR. 00030 M01S00029.1mi +++|* T ZERO IF THIS PP HAS THE TINW/TIOW INTERLOCK. 00031 M01S00030.1mi +++|* FET FET ADDRESS. 00032 M01S00031.1mi +++|* 00033 M01S00032.1mi +++|*T MB 1/S, 5/, 6/CP, 6/RC, 18/, 12/FP, 1/A, 1/, 4/IF, 3/, 3/RT
Figure MB
00034 M01S00033.1mi +++|* S SET BY *CPUMTR* IF *1MI* STARTED FROM RECALL STACK. 00035 M01S00034.1mi +++|* CP UNUSED (WARNING - SOMETIMES SET BY *CPUMTR*). 00036 M01S00035.1mi +++|* RC REASON CODE WHY *1MI* ENTERED RECALL. 00037 M01S00036.1mi +++|* FP FIRST POT IN CHAIN PRIOR TO RECALL. 00038 M01S00037.1mi +++|* A SET IF MONITOR FUNCTION REJECTED BECAUSE IAF ABORTED. 00039 M01S00038.1mi +++|* IF *CIO* INTERNAL FUNCTION CODE (SEE *COMSCIO*). 00040 M01S00039.1mi +++|* RT MONITOR FUNCTION REJECTION COUNT. 00041 M01S00040.1mi +++|* 00042 M01S00041.1mi +++|*T MB+1 12/0, 24/IN, 24/OUT
Figure MB+1
00043 M01S00042.1mi +++|*T MB+2 6/0, 6/FETL, 24/FIRST, 24/LIMIT
Figure MB+2
00044 M01S00043.1mi +++|* FETL FET LENGTH IN CM WORDS. 00045 M01S00044.1mi +++|* FET POINTERS ARE TRANSFERED ONLY ON INITIAL *1MI* CALL. 00046 M01S00045.1mi +++| HST SPACE 4,10 00047 M01S00046.1mi +++|*** DAYFILE MESSAGES. 00048 M01S00047.1mi +++|* 00049 M01S00048.1mi +++|* * FET ADDRESS OUT OF RANGE AT NNN.* 00050 M01S00049.1mi +++|* FET ADDRESS .LE. 1 OR FET EXCEEDS FIELD LENGTH. 00051 M01S00050.1mi +++|* 00052 M01S00051.1mi +++|* * BUFFER ARGUMENT ERROR ON FFF AT NNN.* 00053 M01S00052.1mi +++|* A BUFFER POINTER DOES NOT CONFORM TO CONSTRAINTS- 00054 M01S00053.1mi +++|* - FIRST POINTER .LE. IN POINTER. 00055 M01S00054.1mi +++|* - FIRST POINTER .LE. OUT POINTER. 00056 M01S00055.1mi +++|* - OUT POINTER .LT. BUFFER LIMIT. 00057 M01S00056.1mi +++|* - IN POINTER .LT. BUFFER LIMIT. 00058 M01S00057.1mi +++|* - BUFFER LENGTH .LE. FIELD LENGTH. 00059 M01S00058.1mi +++|* 00060 M01S00059.1mi +++|* * INCORRECT I/O REQUEST ON FILE FFF AT NNN.* 00061 M01S00060.1mi +++|* I/O WAS REQUESTED ON A DETACHED INTERACTIVE 00062 M01S00061.1mi +++|* JOB WITH JOB TERMINATION OPTION SET TO COMPLETION. 00063 M01S00062.1mi +++|* 00064 M01S00063.1mi +++|* FFF REPRESENTS FILE NAME AS GIVEN IN THE FET. 00065 M01S00064.1mi +++|* NNN REPRESENTS THE FILE FET ADDRESS. 00066 M01S00065.1mi +++| HST SPACE 4,10 00067 M01S00066.1mi +++|*** HANG CONDITIONS. 00068 M01S00067.1mi +++|* 00069 M01S00068.1mi +++|* *1MI* WILL HANG WITH THE *HNGM* MONITOR FUNCTION IF- 00070 M01S00069.1mi +++|* - INCORRECT ERROR CODE IS DETECTED DURING ERROR 00071 M01S00070.1mi +++|* PROCESSING. 00072 M01S00071.1mi +++|* - AN INCORRECT NETWORK BLOCKSIZE IS DETECTED FROM IAF. 00073 M01S00072.1mi +++|* 00074 M01S00073.1mi +++|* HANG CONDITIONS ARE SOFT IN THAT BY CLEARING THE APPROPRIATE 00075 M01S00074.1mi +++|* PPU OUTPUT REGISTER, *1MI* WILL ATTEMPT TO RECOVER ITS 00076 M01S00075.1mi +++|* CURRENT PROCESS AS GRACEFULLY AS POSSIBLE. 00077 M01S00076.1mi +++| HST SPACE 4,10 00078 M01S00077.1mi +++|*** PROGRAMMING CONSIDERATIONS- 00079 M01S00078.1mi +++|* 00080 M01S00079.1mi +++|* *1MI* IN THE PROCESS OF HANDLING TERMINAL I/O WILL- 00081 M01S00080.1mi +++|* 00082 M01S00081.1mi +++|* 1) READ PROCESS- 00083 M01S00082.1mi +++|* 00084 M01S00083.1mi +++|* - ATTEMPT TO FLUSH *LOFW* OR RA+2 LIST OF FILE 00085 M01S00084.1mi +++|* ENTRIES BEFORE PROCESSING THE READ REQUEST. 00086 M01S00085.1mi +++|* 00087 M01S00086.1mi +++|* 2) WRITE PROCESS- 00088 M01S00087.1mi +++|* 00089 M01S00088.1mi +++|* - *1MI* WILL TRANSFER THE MAXIMUM AMOUNT OF OUTPUT 00090 M01S00089.1mi +++|* DATA SPECIFIC TO EACH TERMINALS DOWNLINE BLOCK 00091 M01S00090.1mi +++|* LIMIT WHICH IS CHARACTERISTIC OF ITS LINE SPEED. 00092 M01S00091.1mi +++|* - PPU RECALL IS USED BETWEEN *VADO* OUTPUT DOWNLINE 00093 M01S00092.1mi +++|* *TSEM* FUNCTION REQUESTS TO IAF. 00094 M01S00093.1mi +++|* - IN THE EVENT THE USER JOB SHOULD ROLL FROM THE 00095 M01S00094.1mi +++|* CONTROL POINT WHILE *1MI* IS IN PPU RECALL, 00096 M01S00095.1mi +++|* ROUTINE *1RO* WILL CONTINUE THE OUTPUT PROCESS 00097 M01S00096.1mi +++|* STARTED BY *1MI* WHETHER EXPLICIT OR IMPLICIT 00098 M01S00097.1mi +++|* OUTPUT REQUEST VIA LIST OF FILES PROCESSING. 00099 M01S00098.1mi +++|* - BUFFERED WRITE ON A FULL OUTPUT BUFFER 00100 M01S00099.1mi +++|* WITH NO *EOL* BYTE RESULTS IN A ROLL OF 00101 M01S00100.1mi +++|* THE USER JOB TO ALLOW *1RO* TO ASSURE 00102 M01S00101.1mi +++|* OUTPUT BUFFER FLUSH COMPLETION. 00103 M01S00102.1mi +++|* 00104 M01S00103.1mi +++|* 3) MONITOR FUNCTION REJECTION PROCESSING- 00105 M01S00104.1mi +++|* 00106 M01S00105.1mi +++|* - IF A *TGPM* OR *TSEM* MONITOR FUNCTION IS 00107 M01S00106.1mi +++|* REJECTED BECAUSE IAF IS BUSY, *1MI* WILL GO INTO 00108 M01S00107.1mi +++|* PP RECALL. WHEN RESTARTED, *1MI* WILL THEN 00109 M01S00108.1mi +++|* DROP ANY POTS CURRENTLY HELD AND START OVER. 00110 M01S00109.1mi +++|* - IAF INACCESSIBILITY DETECTED THROUGH EITHER 00111 M01S00110.1mi +++|* FUNCTION REJECTION OR *1MI* PRESET FORCES 00112 M01S00111.1mi +++|* SUSPENSION ROLLOUT OF THE USER JOB CAUSING 00113 M01S00112.1mi +++|* JOB DETACHMENT TO ALLOW SUBSEQUENT USER 00114 M01S00113.1mi +++|* RECOVERY. 00115 M01S00114.1mi +++|* 00116 M01S00115.1mi +++|* 4) MULTIPLEXOR TERMINAL CHARACTERISTICS- 00117 M01S00116.1mi +++|* 00118 M01S00117.1mi +++|* - BECAUSE OF THE LACK OF TYPEAHEAD FOR MULTIPLEXOR 00119 M01S00118.1mi +++|* TERMINALS, THE USER JOB STEMMING FROM TERMINALS 00120 M01S00119.1mi +++|* OF THIS TYPE WILL ALWAYS ROLL FROM THE CONTROL 00121 M01S00120.1mi +++|* POINT ON I/O REQUESTS. 00122 M01S00121.1mi +++| HST SPACE 4,10 00123 M01S00122.1mi +++|** RECALL TIME PERIODS (MILLISECONDS) 00124 M01S00123.1mi +++| 00125 M01S00124.1mi +++| RECMS1 EQU 10D JOB ACTIVE WITH NO READY DATA 00126 M01S00125.1mi +++| RECMS2 EQU 100D IAF REQUEST QUEUE REJECTION 00127 M01S00126.1mi +++| 00128 M01S00127.1mi +++|** REASON CODES FOR WHY *1MI* MIGHT GO INTO RECALL. 00129 M01S00128.1mi +++| 00130 M01S00129.1mi +++| LOC 0 00131 M01S00130.1mi +++| 00132 M01S00131.1mi +++| TALR BSS 1 IAF BUSY, TRY AGAIN LATER 00133 M01S00132.1mi +++| TDOR BSS 1 *VADO* *TSEM* MONITOR FUNCTION REJECTED 00134 M01S00133.1mi +++| TPOR BSS 1 *VDPO* *TSEM* MONITOR FUNCTION REJECTED 00135 M01S00134.1mi +++| 00136 M01S00135.1mi +++| LOC *O 00137 M01S00136.1mi +++| 00138 M01S00137.1mi +++|** ASSEMBLY CONSTANTS. 00139 M01S00138.1mi +++| 00140 M01S00139.1mi +++| IAFF EQU 4000 FUNCTION REJECTED BECAUSE IAF ABORTED 00141 M01S00140.1mi +++| TTB EQU 4000 TIOW/TINW BUSY, FROM *CPUMTR* IN IR+2 00142 M01S00141.1mi +++| EJT$ EQU 1 ASSEMBLE EJT ADDRESSING (*COMPGFP*) 00143 M01S00142.1mi +++| HST SPACE 4,10 00144 M01S00143.1mi +++|** COMMON DECKS. 00145 M01S00144.1mi +++| 00146 M01S00145.1mi +++| 00147 M01S00146.1mi +++|*CALL,COMPMAC 00148 M01S00147.1mi +++|*CALL,COMSACC 00149 M01S00148.1mi +++|*CALL,COMSCIO 00150 M01S00149.1mi +++|*CALL,COMSCPS 00151 M01S00150.1mi +++|*CALL,COMSEJT 00152 M01S00151.1mi +++|*CALL COMSJCE 00153 M01S00152.1mi +++|*CALL,COMSPIM 00154 M01S00153.1mi +++| QUAL REM 00155 M01S00154.1mi +++|*CALL,COMSREM 00156 M01S00155.1mi +++| QUAL 00157 M01S00156.1mi +++|*CALL,COMSSSJ 00158 M01S00157.1mi +++|*CALL,COMSTCM 00159 M01S00158.1mi +++| HST SPACE 4,10 00160 M01S00159.1mi +++|** DIRECT LOCATION ASSIGNMENTS. 00161 M01S00160.1mi +++| 00162 M01S00161.1mi +++| 00163 M01S00162.1mi +++| TT EQU T6 - T7 TERMINAL TABLE ADDRESS 00164 M01S00163.1mi +++| NF EQU 15 NFL/100B 00165 M01S00164.1mi +++| T8 EQU 16 SCRATCH 00166 M01S00165.1mi +++| T9 EQU 17 SCRATCH 00167 M01S00166.1mi +++| PA EQU T8 - T9 IAF POT MEMORY ADDRESS 00168 M01S00167.1mi +++| MB EQU 20 - 24 MESSAGE BUFFER PARAMETERS FROM *PPR* 00169 M01S00168.1mi +++| MB1 EQU 25 - 31 MESSAGE BUFFER + 1 00170 M01S00169.1mi +++| MB2 EQU 32 - 36 MESSAGE BUFFER + 2 00171 M01S00170.1mi +++| CD EQU MB1 SCRATCH BUFFER. 00172 M01S00171.1mi +++| CN EQU MB2 SCRATCH BUFFER 00173 M01S00172.1mi +++| BS EQU 37 - 43 BUFFER STATUS 00174 M01S00173.1mi +++| FN EQU BS FILE NAME 00175 M01S00174.1mi +++| FC EQU 44 *1MI* FUNCTION CODE 00176 M01S00175.1mi +++| TN EQU 45 INTERACTIVE TERMINAL NUMBER 00177 M01S00176.1mi +++| TA EQU 46 INTERACTIVE REFERENCE ADDRESS 00178 M01S00177.1mi +++| PP EQU 47 CURRENT POT POINTER 00179 M01S00178.1mi +++| WC EQU 57 CM TRANSFER WORD COUNT 00180 M01S00179.1mi +++| FT EQU 60 - 61 BUFFER FIRST WORD ADDRESS 00181 M01S00180.1mi +++| LM EQU 62 - 63 BUFFER LAST WORD ADDRESS 00182 M01S00181.1mi +++| IN EQU 64 - 65 BUFFER IN POINTER 00183 M01S00182.1mi +++| OT EQU 66 - 67 BUFFER OUT POINTER 00184 M01S00183.1mi +++| 00185 M01S00184.1mi +++| 00186 M01S00185.1mi +++| ERRNZ OT-FT-6 FET DIRECT CELLS MUST BE CONTIGUOUS 00187 M01S00186.1mi +++| ERRNZ /CIO/RDF CODE DEPENDS ON INTERNAL READ FUNCTION 00188 M01S00187.1mi +++| ERRNZ /CIO/WTF-1 CODE DEPENDS ON INTERNAL WRITE FUNCTION 00189 M01S00188.1mi +++| 00190 M01S00189.1mi +++| HST TITLE MACRO DEFINITIONS. 00191 M01S00190.1mi +++| 00192 M01S00191.1mi +++|** MACRO DEFINITIONS. 00193 M01S00192.1mi +++|HST SPACE 4,10 00194 M01S00193.1mi +++|** CFET - COMPUTE FET ADDRESS. 00195 M01S00194.1mi +++|* CFET N 00196 M01S00195.1mi +++|* 00197 M01S00196.1mi +++|* ENTRY *N* = FET CM WORD OFFSET. 00198 M01S00197.1mi +++|* 00199 M01S00198.1mi +++|* COMPUTES ABSOLUTE FET ADDRESS USING (IR+3 - IR+4) 00200 M01S00199.1mi +++|* 00201 M01S00200.1mi +++|* CALLS CAF. 00202 M01S00201.1mi +++| 00203 M01S00202.1mi +++| 00204 M01S00203.1mi +++| PURGMAC CFET 00205 M01S00204.1mi +++| 00206 M01S00205.1mi +++| CFET MACRO W 00207 M01S00206.1mi +++| RJM CAF GET ABSOLUTE ADDRESS 00208 M01S00207.1mi +++| IFC NE,$W$$,1 00209 M01S00208.1mi +++| ADK W OFFSET IF REQUESTED 00210 M01S00209.1mi +++| ENDM 00211 M01S00210.1mi +++| HST SPACE 4,10 00212 M01S00211.1mi +++|** ERROR - PROCESS *1MI* ERROR CODE. 00213 M01S00212.1mi +++|* 00214 M01S00213.1mi +++|* ERROR EC 00215 M01S00214.1mi +++|* 00216 M01S00215.1mi +++|* *EC* = *1MI* ERROR CODE. 00217 M01S00216.1mi +++| 00218 M01S00217.1mi +++| 00219 M01S00218.1mi +++| PURGMAC ERROR 00220 M01S00219.1mi +++| 00221 M01S00220.1mi +++| ERROR MACRO EC 00222 M01S00221.1mi +++| LDK /CIOERR/EC 00223 M01S00222.1mi +++| LJM ERR PROCESS ERROR 00224 M01S00223.1mi +++| ENDM 00225 M01S00224.1mi +++| HST SPACE 4,10 00226 M01S00225.1mi +++|** MSG - DEFINE ERROR OPTIONS AND DAYFILE MESSAGES. 00227 M01S00226.1mi +++|* 00228 M01S00227.1mi +++|*ERR MSG (TEXT),EF,FETD 00229 M01S00228.1mi +++|* 00230 M01S00229.1mi +++|* ENTRY *ERR* = *COMSCIO* ERROR CODE. 00231 M01S00230.1mi +++|* *TEXT* = DAYFILE ERROR MESSAGE. 00232 M01S00231.1mi +++|* *EF* = CONTROL POINT ERROR FLAG TO SET. 00233 M01S00232.1mi +++|* *FETD* = FET DUMP OPTION. 00234 M01S00233.1mi +++|* 00235 M01S00234.1mi +++|* EXIT ERROR PROCESSING OPTIONS AND DAYFILE MESSAGE 00236 M01S00235.1mi +++|* ADDRESSES GENERATED PER FORMAT OF *TEPO* TABLE 00237 M01S00236.1mi +++|* DESCRIPTION. 00238 M01S00237.1mi +++| 00239 M01S00238.1mi +++| 00240 M01S00239.1mi +++| PURGMAC MSG 00241 M01S00240.1mi +++| 00242 M01S00241.1mi +++| MACRO MSG,ERR,TEXT,EF,FETD 00243 M01S00242.1mi +++| LOCAL A 00244 M01S00243.1mi +++| VFD 6/EF,5//CIOERR/ERR,1/FETD 00245 M01S00244.1mi +++| CON =Z*_TEXT_* 00246 M01S00245.1mi +++| A MICRO 1,,$TEXT$ 00247 M01S00246.1mi +++| A MICCNT A 00248 M01S00247.1mi +++| ERRNG 32D-A TEXT OVERFLOW CONDITION 00249 M01S00248.1mi +++| ENDM 00250 M01S00249.1mi +++| HST TITLE *1MI* MAIN PROGRAM. 00251 M01S00250.1mi +++| ORG PPFW 00252 M01S00251.1mi +++| 00253 M01S00252.1mi +++| 00254 M01S00253.1mi +++| 00255 M01S00254.1mi +++| HST RJM PRS PRESET *1MI* 00256 M01S00255.1mi +++| LDD FC *1MI* FUNCTION CODE 00257 M01S00256.1mi +++| LMN /CIO/WTF 00258 M01S00257.1mi +++| ZJP HST5 IF *1MI* WRITE FUNCTION 00259 M01S00258.1mi +++| AOM ANRA ANY OUTPUT SHOULD BE ENTIRELY FLUSHED 00260 M01S00259.1mi +++| UJN HST5 FLUSH ANY LIST OF FILE OUTPUT 00261 M01S00260.1mi +++| 00262 M01S00261.1mi +++|* PROCESS *1MI* READ FUNCTION. 00263 M01S00262.1mi +++| 00264 M01S00263.1mi +++| HST1 RJM CTI CHECK FOR TERMINAL INPUT 00265 M01S00264.1mi +++| ZJN HST1.1 IF NO INPUT FOUND 00266 M01S00265.1mi +++| RJM PTI PROCESS TERMINAL INPUT 00267 M01S00266.1mi +++| ZJN HST2 IF INPUT QUEUING WITHIN IAF IN PROCESS 00268 M01S00267.1mi +++| LJM DPP DROP PP 00269 M01S00268.1mi +++| 00270 M01S00269.1mi +++|* PROCESS NO INPUT ON A READ OPERATION. 00271 M01S00270.1mi +++| 00272 M01S00271.1mi +++| HST1.1 RJM GMX 00273 M01S00272.1mi +++| ZJN HST3 IF MULTIPLEXOR TERMINAL 00274 M01S00273.1mi +++| HST2 RJM CJA CHECK JOB ACTIVITY 00275 M01S00274.1mi +++| ZJN HST3 IF USER JOB INACTIVE 00276 M01S00275.1mi +++| LMK ICPS 00277 M01S00276.1mi +++| ZJN HST3 IF JOB IN *I* STATUS 00278 M01S00277.1mi +++| LMK ICPS&XCPS 00279 M01S00278.1mi +++| NJN HST4 IF JOB NOT IN RECALL 00280 M01S00279.1mi +++| HST3 LDK ROSR ROLL OUT JOB 00281 M01S00280.1mi +++| STD T0 00282 M01S00281.1mi +++| RJM ROJ ROLL USER JOB 00283 M01S00282.1mi +++| HST4 LDK TALR 00284 M01S00283.1mi +++| LJM ERS ENTER RECALL STACK 00285 M01S00284.1mi +++| 00286 M01S00285.1mi +++|* PROCESS *1MI* WRITE FUNCTION. 00287 M01S00286.1mi +++| 00288 M01S00287.1mi +++| HST5 RJM CTO CHECK FOR TERMINAL OUTPUT 00289 M01S00288.1mi +++| ZJN HST10 IF NO OUTPUT 00290 M01S00289.1mi +++| RJM PTO PROCESS TERMINAL OUTPUT 00291 M01S00290.1mi +++| MJN HST2 IF IAF OUTPUT THRESHOLD REACHED 00292 M01S00291.1mi +++| HST10 LDD FC INITIAL *1MI* FUNCTION CODE 00293 M01S00292.1mi +++| LMK /CIO/RDF 00294 M01S00293.1mi +++| ZJP HST1 IF OUTSTANDING READ FUNCTION 00295 M01S00294.1mi +++| RJM CFN COMPLETE OUTPUT FET 00296 M01S00295.1mi +++|* UJN DPP DROP PPU 00297 M01S00296.1mi +++| HST SPACE 4,10 00298 M01S00297.1mi +++|** DPP - DROP PPU. 00299 M01S00298.1mi +++| 00300 M01S00299.1mi +++| DPP BSS 0 ENTRY 00301 M01S00300.1mi +++| MONITOR DPPM DROP PPU 00302 M01S00301.1mi +++| LJM PPR EXIT TO PP RESIDENT 00303 M01S00302.1mi +++| HST TITLE GENERAL SUBROUTINES. 00304 M01S00303.1mi +++| ANR SPACE 4,10 00305 M01S00304.1mi +++|** ANR - ASSURE NETWORK REQUIREMENTS. 00306 M01S00305.1mi +++|* 00307 M01S00306.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS. 00308 M01S00307.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT. 00309 M01S00308.1mi +++|* (BS - BS+4) = OUTPUT BUFFER STATUS. 00310 M01S00309.1mi +++|* (FT - FT+1) = BUFFER FIRST WORD ADDRESS. 00311 M01S00310.1mi +++|* (IN - IN+1) = BUFFER IN POINTER. 00312 M01S00311.1mi +++|* (OT - OT+1) = BUFFER OUT POINTER. 00313 M01S00312.1mi +++|* (LM - LM+1) = BUFFER LAST WORD ADDRESS. 00314 M01S00313.1mi +++|* (CD) = NETWORK BLOCK LIMIT CM WORD COUNT. 00315 M01S00314.1mi +++|* 00316 M01S00315.1mi +++|* EXIT (CD+2) = ACCEPTABLE CM WORD COUNT ENCOMPASSING 00317 M01S00316.1mi +++|* COMPLETE LOGICAL LINES. 00318 M01S00317.1mi +++|* (A) = LESS THAN ZERO IF NO COMPLETE LINES ARE 00319 M01S00318.1mi +++|* ENCOUNTERED WITHIN THE OUTPUT BUFFER. 00320 M01S00319.1mi +++|* 00321 M01S00320.1mi +++|* USES CM - CM+4, T2 - T4, CD+1 - CD+4. 00322 M01S00321.1mi +++|* 00323 M01S00322.1mi +++|* CALLS RBS. 00324 M01S00323.1mi +++| 00325 M01S00324.1mi +++| 00326 M01S00325.1mi +++| ANR SUBR ENTRY/EXIT 00327 M01S00326.1mi +++| 00328 M01S00327.1mi +++|* BEGINNING BUFFER SCAN IS FROM NETWORK BLOCK SIZE. 00329 M01S00328.1mi +++| 00330 M01S00329.1mi +++| LDD CD+3 COMPARE BUFFER CONTENT TO BLOCKSIZE 00331 M01S00330.1mi +++| SHN 14 00332 M01S00331.1mi +++| LMD CD+4 00333 M01S00332.1mi +++| SBD CD 00334 M01S00333.1mi +++| SBN 1 00335 M01S00334.1mi +++| PJN ANR1 IF CONTENT GREATER THAN BLOCKSIZE 00336 M01S00335.1mi +++| 00337 M01S00336.1mi +++|* OUTPUT BUFFER IS SEARCHED FOR THE LAST *EOL* BYTE WHICH 00338 M01S00337.1mi +++|* MARKS THE ACCEPTABLE CM WORD TRANSFER COUNT SATISFYING 00339 M01S00338.1mi +++|* NETWORK REQUIREMENTS. 00340 M01S00339.1mi +++| 00341 M01S00340.1mi +++| LDD CD+3 PRESET BUFFER SEARCH PARAMETERS 00342 M01S00341.1mi +++| STD CD+1 00343 M01S00342.1mi +++| LDD CD+4 00344 M01S00343.1mi +++| STD CD+2 00345 M01S00344.1mi +++| 00346 M01S00345.1mi +++|* BUFFER IS TRANSFERED AS IS IF FLUSH CONDITIONS PREVAIL. 00347 M01S00346.1mi +++| 00348 M01S00347.1mi +++| LDC ** BUFFER FLUSH PASS NETWORK REQUIREMENTS 00349 M01S00348.1mi +++|* LDC 1 00350 M01S00349.1mi +++| ANRA EQU *-1 00351 M01S00350.1mi +++| NJN ANRX IF WRITER,WRITEF,FLUSH OR READ FUNCTION 00352 M01S00351.1mi +++| 00353 M01S00352.1mi +++|* PRESET RUNNING *IN* POINTER PRIOR TO BUFFER SCAN. 00354 M01S00353.1mi +++| 00355 M01S00354.1mi +++| LDD IN CURRENT BUFFER *IN* POINTER 00356 M01S00355.1mi +++| STD T3 00357 M01S00356.1mi +++| LDD IN+1 00358 M01S00357.1mi +++| STD T4 00359 M01S00358.1mi +++| RJM RBS SCAN BUFFER FOR *EOL* WITHIN BLOCKSIZE 00360 M01S00359.1mi +++| PJN ANRX IF EOL FOUND 00361 M01S00360.1mi +++| LDM PTOA 00362 M01S00361.1mi +++| LPN 77 00363 M01S00362.1mi +++| NJN ANR0 IF BUFFER FULL 00364 M01S00363.1mi +++| LDM ANRB 00365 M01S00364.1mi +++| SBN 1 00366 M01S00365.1mi +++| MJN ANRX IF SYNCHRONOUS TERMINAL AND NO EOL 00367 M01S00366.1mi +++| ANR0 LDD CD+4 SET WORD COUNT TO BUFFER CONTENTS - 1 00368 M01S00367.1mi +++| SBN 1 00369 M01S00368.1mi +++| STD CD+2 00370 M01S00369.1mi +++| STM CODE SET NO RECALL 00371 M01S00370.1mi +++| SBN 1 00372 M01S00371.1mi +++| LJM ANRX RETURN 00373 M01S00372.1mi +++| 00374 M01S00373.1mi +++|* ADJUST BUFFER SCAN PARAMETERS TO BEGIN AT BLOCKSIZE. 00375 M01S00374.1mi +++| 00376 M01S00375.1mi +++| ANR1 LDD CD NETWORK BLOCKSIZE CM WORD COUNT 00377 M01S00376.1mi +++| STD CD+2 00378 M01S00377.1mi +++| SHN -14 00379 M01S00378.1mi +++| STD CD+1 00380 M01S00379.1mi +++| LDD OT BUFFER *IN* IS SET TO *OUT* PLUS BLOCKSIZE 00381 M01S00380.1mi +++| SHN 14 00382 M01S00381.1mi +++| LMD OT+1 00383 M01S00382.1mi +++| ADD CD+2 00384 M01S00383.1mi +++| STD T3+1 RUNNING *IN* POINTER 00385 M01S00384.1mi +++| SHN -14 00386 M01S00385.1mi +++| STD T3 00387 M01S00386.1mi +++| SBD LM 00388 M01S00387.1mi +++| SHN 14 00389 M01S00388.1mi +++| LMD T3+1 00390 M01S00389.1mi +++| SBD LM+1 00391 M01S00390.1mi +++| MJN ANR2 IF RUNNING *IN* IS LESS THAN *LIMIT* 00392 M01S00391.1mi +++| ADD FT+1 BUFFER WRAP RUNNING *IN* POINTER 00393 M01S00392.1mi +++| STD T3+1 00394 M01S00393.1mi +++| SHN -14 00395 M01S00394.1mi +++| ADD FT 00396 M01S00395.1mi +++| STD T3 00397 M01S00396.1mi +++| ANR2 RJM RBS SCAN BLOCKSIZE PORTION OF BUFFER 00398 M01S00397.1mi +++| PJP ANRX IF *EOL* BYTE WITHIN BLOCKSIZE 00399 M01S00398.1mi +++| 00400 M01S00399.1mi +++|* AT LEAST BLOCKSIZE-1 CM WORDS NEED BE TRANSFERED IF FLUSH 00401 M01S00400.1mi +++|* CONDITIONS PREVAIL DUE TO WRITER,WRITEF,FLUSH OR READ 00402 M01S00401.1mi +++|* FUNCTION IS OUTSTANDING. 00403 M01S00402.1mi +++| 00404 M01S00403.1mi +++| LDC 0 00405 M01S00404.1mi +++|* LDC 1 (IF TC .LE. 8, ASYNC LINE) 00406 M01S00405.1mi +++| ANRB EQU *-1 00407 M01S00406.1mi +++| ADM ANRA BUFFER FLUSH CONDITIONS 00408 M01S00407.1mi +++| NJN ANR3 IF FLUSH REQUIRED 00409 M01S00408.1mi +++| 00410 M01S00409.1mi +++|* BUFFERED WRITE FUNCTION REQUIRES TOTAL SCAN FOR *EOL*. 00411 M01S00410.1mi +++| 00412 M01S00411.1mi +++| LDD IN PRESET REST OF BUFFER SCAN 00413 M01S00412.1mi +++| STD T3 00414 M01S00413.1mi +++| LDD IN+1 00415 M01S00414.1mi +++| STD T3+1 00416 M01S00415.1mi +++| LDD CD+3 INCLUDE TOTAL BUFFER CONTENT 00417 M01S00416.1mi +++| STD CD+1 00418 M01S00417.1mi +++| LDD CD+4 00419 M01S00418.1mi +++| STD CD+2 00420 M01S00419.1mi +++| RJM RBS SCAN MAXIMUM BUFFER CONTENT FOR *EOL* 00421 M01S00420.1mi +++| MJP ANRX IF NO *EOL* BYTE WITHIN TOTAL BUFFER 00422 M01S00421.1mi +++| 00423 M01S00422.1mi +++|* NETWORK BLOCKSIZE-1 CM WORDS ARE TRANSMITTED TO 00424 M01S00423.1mi +++|* FACILITATE MAXIMUM NETWORK TRANSFER WHILE ALLOWING FOR 00425 M01S00424.1mi +++|* CONTROL BYTE PROCESSING DURING CHARACTER CONVERSION 00426 M01S00425.1mi +++|* WITHIN IAF. 00427 M01S00426.1mi +++| 00428 M01S00427.1mi +++| ANR3 LDD CD NETWORK BLOCKSIZE CM WORD COUNT 00429 M01S00428.1mi +++| SBN 1 00430 M01S00429.1mi +++| STD CD+2 BLOCKSIZE-1 CM TRANSFER 00431 M01S00430.1mi +++| UJP ANRX RETURN 00432 M01S00431.1mi +++| CAF SPACE 4,10 00433 M01S00432.1mi +++|** CAF - COMPUTE ABSOLUTE FET ADDRESS. 00434 M01S00433.1mi +++|* 00435 M01S00434.1mi +++|* ENTRY (IR+3 - IR+4) = RELATIVE FET ADDRESS. 00436 M01S00435.1mi +++|* 00437 M01S00436.1mi +++|* EXIT (A) = ABSOLUTE FET ADDRESS. 00438 M01S00437.1mi +++| 00439 M01S00438.1mi +++| 00440 M01S00439.1mi +++| CAF SUBR ENTRY/EXIT 00441 M01S00440.1mi +++| LDD IR+3 RELATIVE ADDRESS 00442 M01S00441.1mi +++| LPN 37 00443 M01S00442.1mi +++| SHN 6 00444 M01S00443.1mi +++| ADD RA 00445 M01S00444.1mi +++| SHN 6 00446 M01S00445.1mi +++| ADD IR+4 ABSOLUTE ADDRESS 00447 M01S00446.1mi +++| UJN CAFX RETURN 00448 M01S00447.1mi +++| CEF SPACE 4,10 00449 M01S00448.1mi +++|** CEF - CHECK FOR ERROR FLAG. 00450 M01S00449.1mi +++|* 00451 M01S00450.1mi +++|* EXIT (A) = ERROR FLAG, IF ONE EXISTS. 00452 M01S00451.1mi +++|* (CM+2) = 1, IF USER BREAK ERROR FLAG AND JOB HAS 00453 M01S00452.1mi +++|* EXTENDED REPRIEVE SELECTED. 00454 M01S00453.1mi +++|* 0, OTHERWISE. 00455 M01S00454.1mi +++|* 00456 M01S00455.1mi +++|* USES CM - CM+4, T0. 00457 M01S00456.1mi +++| 00458 M01S00457.1mi +++| 00459 M01S00458.1mi +++| CEF2 LDD T0 RETURN ERROR FLAG 00460 M01S00459.1mi +++| 00461 M01S00460.1mi +++| CEF SUBR ENTRY/EXIT 00462 M01S00461.1mi +++| LDD CP 00463 M01S00462.1mi +++| ADK STSW CHECK FOR ERROR FLAG 00464 M01S00463.1mi +++| CRD CM 00465 M01S00464.1mi +++| LDN 0 00466 M01S00465.1mi +++| STD CM+2 00467 M01S00466.1mi +++| LDD CM+1 00468 M01S00467.1mi +++| ZJN CEFX IF NO ERROR FLAG PRESENT 00469 M01S00468.1mi +++| STD T0 00470 M01S00469.1mi +++| LMK TIET 00471 M01S00470.1mi +++| ZJN CEF1 IF USER BREAK ONE 00472 M01S00471.1mi +++| LMK TAET&TIET 00473 M01S00472.1mi +++| NJN CEF2 IF NOT A USER BREAK TWO 00474 M01S00473.1mi +++| CEF1 LDD CP 00475 M01S00474.1mi +++| ADK EECW CHECK FOR EXTENDED REPRIEVE 00476 M01S00475.1mi +++| CRD CM 00477 M01S00476.1mi +++| LDD CM 00478 M01S00477.1mi +++| SHN 0-12 00479 M01S00478.1mi +++| LPN 1 00480 M01S00479.1mi +++| STD CM+2 00481 M01S00480.1mi +++| UJN CEF2 RETURN 00482 M01S00481.1mi +++| CFN SPACE 4,10 00483 M01S00482.1mi +++|** CFN - COMPLETE FUNCTION. 00484 M01S00483.1mi +++|* 00485 M01S00484.1mi +++|* ENTRY (IR+3 - IR+4) = FET ADDRESS NEEDING COMPLETION. 00486 M01S00485.1mi +++|* (BS - BS+4) = FET BUFFER STATUS. 00487 M01S00486.1mi +++|* 00488 M01S00487.1mi +++|* EXIT FET SET TO COMPLETION STATUS. 00489 M01S00488.1mi +++|* CONTROL POINT AREA FET POINTER REMOVED FROM 00490 M01S00489.1mi +++|* *TINW* OR *TIOW*. 00491 M01S00490.1mi +++|* 00492 M01S00491.1mi +++|* USES CM - CM+4. 00493 M01S00492.1mi +++|* 00494 M01S00493.1mi +++|* CALLS VAD. 00495 M01S00494.1mi +++|* 00496 M01S00495.1mi +++|* MACROS MONITOR. 00497 M01S00496.1mi +++| 00498 M01S00497.1mi +++| 00499 M01S00498.1mi +++| CFN SUBR ENTRY/EXIT 00500 M01S00499.1mi +++| LDD FC 00501 M01S00500.1mi +++| LMK /CIO/RDF 00502 M01S00501.1mi +++| NJN CFN1 IF NOT A READ FUNCTION 00503 M01S00502.1mi +++| LDN TINW TERMINAL INPUT POINTER 00504 M01S00503.1mi +++| STM CFNC+1 *UADM* REPLACEMENT FIELD 00505 M01S00504.1mi +++| LDN 18D FIELD POSITION 00506 M01S00505.1mi +++| SHN 6 00507 M01S00506.1mi +++| RAM CFNC+2 00508 M01S00507.1mi +++| 00509 M01S00508.1mi +++|* UPDATE CONTROL POINT AREA *TIOW* OR *TINW*. 00510 M01S00509.1mi +++| 00511 M01S00510.1mi +++| CFN1 LDN ZERL PRESET *UADM* REQUEST WORD 00512 M01S00511.1mi +++| CRD CM 00513 M01S00512.1mi +++| LDD MA 00514 M01S00513.1mi +++| CWM CFNC,ON WRITE REQUEST 00515 M01S00514.1mi +++| LDN 1 ONE *UADM* REQUEST WITH NO DROP OF PP 00516 M01S00515.1mi +++| STD CM+1 00517 M01S00516.1mi +++| STD CM+2 00518 M01S00517.1mi +++| MONITOR UADM UPDATE CONTROL POINT AREA 00519 M01S00518.1mi +++| 00520 M01S00519.1mi +++|* SET FET COMPLETION STATUS. 00521 M01S00520.1mi +++| 00522 M01S00521.1mi +++| LDD BS+4 00523 M01S00522.1mi +++| SCN 1 00524 M01S00523.1mi +++| LMN 1 00525 M01S00524.1mi +++| STD BS+4 00526 M01S00525.1mi +++| 00527 M01S00526.1mi +++|* REVALIDATE FET+0 ADDRESS. 00528 M01S00527.1mi +++| 00529 M01S00528.1mi +++| LDD IR+3 FET ADDRESS 00530 M01S00529.1mi +++| LPN 37 00531 M01S00530.1mi +++| SHN 14 00532 M01S00531.1mi +++| LMD IR+4 00533 M01S00532.1mi +++| RJM VAD VALIDATE FET+0 PRIOR TO WRITE 00534 M01S00533.1mi +++| ZJN CFN2 IF ADDRESS NOT WITHIN FL 00535 M01S00534.1mi +++| CFNB CWD BS REWRITE FET+0 00536 M01S00535.1mi +++|* PSN INHIBIT WRITE OF FET+0 (*ERX*) 00537 M01S00536.1mi +++| CFN2 UJP CFNX RETURN 00538 M01S00537.1mi +++| 00539 M01S00538.1mi +++| 00540 M01S00539.1mi +++| CFNC VFD 12/CSFS,12/TIOW,6/0,6/18D,24/** 00541 M01S00540.1mi +++| CHG SPACE 4,10 00542 M01S00541.1mi +++|** CHG - CONDITIONALLY HANG PP. 00543 M01S00542.1mi +++|* 00544 M01S00543.1mi +++|* ENTRY (A) = ERROR FLAG. 00545 M01S00544.1mi +++|* 00546 M01S00545.1mi +++|* EXIT (A) = ZERO. 00547 M01S00546.1mi +++|* 00548 M01S00547.1mi +++|* USES CM - CM+4. 00549 M01S00548.1mi +++|* 00550 M01S00549.1mi +++|* MACROS MONITOR. 00551 M01S00550.1mi +++| 00552 M01S00551.1mi +++| 00553 M01S00552.1mi +++| CHG SUBR ENTRY/EXIT 00554 M01S00553.1mi +++| STD CM+2 SET ERROR FLAG 00555 M01S00554.1mi +++| LDM CHG GET ADDRESS WHERE ERROR DETECTED 00556 M01S00555.1mi +++| STD CM+1 00557 M01S00556.1mi +++| MONITOR CHGM CONDITIONALLY HANG PP 00558 M01S00557.1mi +++| UJN CHGX RETURN 00559 M01S00558.1mi +++| CID SPACE 4,10 00560 M01S00559.1mi +++|** CID - COPY INPUT DATA. 00561 M01S00560.1mi +++|* 00562 M01S00561.1mi +++|* ENTRY (IR+3 - IR+4) = INPUT FET ADDRESS. 00563 M01S00562.1mi +++|* (BS - BS+4) = BUFFER STATUS. 00564 M01S00563.1mi +++|* (PP) = INPUT AHEAD POT CHAIN POINTER. 00565 M01S00564.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER. 00566 M01S00565.1mi +++|* 00567 M01S00566.1mi +++|* EXIT INPUT AHEAD TRANSFERED TO FET. 00568 M01S00567.1mi +++|* INPUT AHEAD POT CHAIN RELEASED. 00569 M01S00568.1mi +++|* 00570 M01S00569.1mi +++|* USES BS+3 - BS+4, CM - CM+4, T1 - T4, PP, WC. 00571 M01S00570.1mi +++|*
| Line S00571 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00572 M02S00571.ns2748 ---|* CALLS CFN, CIB, MRJ, SPA, UPP, WBB. 00573 M01S00001.ns2748 +++|* CALLS CFN, CIB, MRJ, RRR, SPA, SRR, UPP, WBB. 00574 M01S00572.1mi +++|* 00575 M01S00573.1mi +++|* MACROS CFET, MONITOR. 00576 M01S00574.1mi +++| 00577 M01S00575.1mi +++| 00578 M01S00576.1mi +++| CID SUBR ENTRY/EXIT 00579 M01S00577.1mi +++| LDK ZERL RESET *TSEM* REQUEST 00580 M01S00578.1mi +++| CRM WDPO,ON 00581 M01S00579.1mi +++| LDD PP BEGINNING POT CHAIN POINTER 00582 M01S00580.1mi +++| STD T2 POT CHAIN TRAILER 00583 M01S00581.1mi +++| STM WDPO+3 SET TO DROP ENTIRE POT CHAIN 00584 M01S00582.1mi +++| LDD TN 00585 M01S00583.1mi +++| STM WDPO+4 00586 M01S00584.1mi +++| LDN /REM/VCPC TRANSFER CM WORD COUNT 00587 M01S00585.1mi +++| STD WC 00588 M01S00586.1mi +++| LDN 0 SET CM TRANSFER TALLY 00589 M01S00587.1mi +++| STD T3 00590 M01S00588.1mi +++| 00591 M01S00589.1mi +++|* EOR/EOF STATUS DEPENDS ON BUFFER CONTENT. 00592 M01S00590.1mi +++|
| Line S00591 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00593 M02S00591.ns2748 ---| CID1 RJM UPP UPDATE INPUT AHEAD POT POINTER 00594 M01S00002.ns2748 +++| CID1 RJM SRR SET R-REGISTER TO IAF RA 00595 M01S00003.ns2748 +++| RJM UPP UPDATE INPUT AHEAD POT POINTER 00596 M01S00592.1mi +++| STM CIDB 00597 M01S00593.1mi +++| 00598 M01S00594.1mi +++|* SCAN THIS POSSIBLE LAST POT MEMORY FOR EOL BYTE. 00599 M01S00595.1mi +++| 00600 M01S00596.1mi +++| LDD T2 RESTORE PREVIOUS POT POINTER 00601 M01S00597.1mi +++| STD PP 00602 M01S00598.1mi +++| RJM SPA SET POT MEMORY ADDRESS 00603 M01S00599.1mi +++| CRM BUFF,WC 00604 M01S00004.ns2748 +++| RJM RRR RESTORE R-REGISTER 00605 M01S00600.1mi +++| LDN 0 00606 M01S00601.1mi +++| STD WC 00607 M01S00602.1mi +++| STD T4 00608 M01S00603.1mi +++| CID2 LDM BUFF+4,T4 00609 M01S00604.1mi +++| ZJN CID3 IF EOL BYTE ENCOUNTERED 00610 M01S00605.1mi +++| LDD T4 SCAN NEXT CM WORD 00611 M01S00606.1mi +++| ADN 5 00612 M01S00607.1mi +++| STD T4 00613 M01S00608.1mi +++| AOD WC ACCEPT NEXT CM WORD 00614 M01S00609.1mi +++| SBN /REM/VCPC+1 00615 M01S00610.1mi +++| MJN CID2 IF NOT FULL POT MEMORY SCAN 00616 M01S00611.1mi +++| SOD WC 00617 M01S00612.1mi +++| UJN CID5 TRANSFER THIS FULL POT MEMORY 00618 M01S00613.1mi +++| 00619 M01S00614.1mi +++|* ASSURE EOF CONDITION DETECTION. 00620 M01S00615.1mi +++| 00621 M01S00616.1mi +++| CID3 LDD WC LAST POT MEMORY CM WORD COUNT 00622 M01S00617.1mi +++| NJN CID4 IF AT LEAST TWO CM WORDS 00623 M01S00618.1mi +++| LDD T3 CHECK EOF CONDITION 00624 M01S00619.1mi +++| ADM BUFF 00625 M01S00620.1mi +++| ADM BUFF+1 00626 M01S00621.1mi +++| ADM BUFF+2 00627 M01S00622.1mi +++| ADM BUFF+3 00628 M01S00623.1mi +++| ZJP CID8 IF EOF CONDITION 00629 M01S00624.1mi +++| CID4 AOD WC 00630 M01S00625.1mi +++| AOM CIDA LAST POT MEMORY WRITTEN 00631 M01S00626.1mi +++| 00632 M01S00627.1mi +++|* ENTER WRITE LOOP TO TRANSFER TO INPUT FET BUFFER. 00633 M01S00628.1mi +++| 00634 M01S00629.1mi +++| CID5 LDD T2 PREVIOUS POT CHAIN POINTER 00635 M01S00630.1mi +++| STD PP 00636 M01S00631.1mi +++| RJM CIB CHECK INPUT BUFFER THRESHOLD 00637 M01S00632.1mi +++| SBD WC 00638 M01S00633.1mi +++| PJN CID6 IF ROOM FOR COMPLETE TRANSFER 00639 M01S00634.1mi +++| ADD WC BIAS CM WORD TRANSFER COUNT 00640 M01S00635.1mi +++| ZJN CID7 IF BUFFER THRESHOLD 00641 M01S00636.1mi +++| STD WC TRANSFER MAXIMUM 00642 M01S00637.1mi +++| CID6 LDD WC 00643 M01S00638.1mi +++| STD T1 TRANSFER WORD COUNT FOR *WBB* 00644 M01S00639.1mi +++| RAD T3 COMPLETE TRANSFER TALLY 00645 M01S00640.1mi +++| LDC BUFF BEGINNING READ ADDRESS 00646 M01S00641.1mi +++| RJM WBB WRITE BINARY BUFFER 00647 M01S00642.1mi +++| LDN 0 00648 M01S00643.1mi +++| CIDA EQU *-1 00649 M01S00644.1mi +++| NJN CID7 IF LAST POT MEMORY WRITTEN 00650 M01S00645.1mi +++| LDC ** UPDATE POT MEMORY POINTER 00651 M01S00646.1mi +++| CIDB EQU *-1 00652 M01S00647.1mi +++| STD T2 00653 M01S00648.1mi +++| STD PP 00654 M01S00649.1mi +++| NJP CID1 IF NOT EOR/EOF 00655 M01S00650.1mi +++| 00656 M01S00651.1mi +++|* FORCE EOR/EOF ON INPUT FET. 00657 M01S00652.1mi +++| 00658 M01S00653.1mi +++| LDN 0 00659 M01S00654.1mi +++| STD T3 00660 M01S00655.1mi +++| 00661 M01S00656.1mi +++|* COMPLETE READ OPERATIONS. 00662 M01S00657.1mi +++| 00663 M01S00658.1mi +++| CID7 LDN ZERL RESET ENDING *IN* POINTER 00664 M01S00659.1mi +++| CRD CM 00665 M01S00660.1mi +++| LDD IN 00666 M01S00661.1mi +++| STD CM+3 00667 M01S00662.1mi +++| LDD IN+1 00668 M01S00663.1mi +++| STD CM+4 00669 M01S00664.1mi +++| CFET 2 *IN* POINTER OFFSET 00670 M01S00665.1mi +++| CWD CM REWRITE *IN* POINTER 00671 M01S00666.1mi +++| 00672 M01S00667.1mi +++|* COMPLETE EOR/EOF BUFFER STATUS. 00673 M01S00668.1mi +++| 00674 M01S00669.1mi +++| LDD BS+3 RESET APPROPRIATE EOR/EOF LEVEL 00675 M01S00670.1mi +++| SCN 74 00676 M01S00671.1mi +++| STD BS+3 00677 M01S00672.1mi +++| LDD T3 TRANSFER TALLY 00678 M01S00673.1mi +++| ZJN CID8 IF EOF 00679 M01S00674.1mi +++| LDN 4 INPUT LEVEL STATUS IS EOR 00680 M01S00675.1mi +++| RAD BS+3 00681 M01S00676.1mi +++| LDN 20 SET EOR 00682 M01S00677.1mi +++| STM CIDC 00683 M01S00678.1mi +++| CID8 LDD BS+4 RESET BUFFER STATUS 00684 M01S00679.1mi +++| LPC 6002 00685 M01S00680.1mi +++| LMC 30 (SET EOF TERMINATION) 00686 M01S00681.1mi +++|* LMC 20 (SET EOR TERMINATION) 00687 M01S00682.1mi +++| CIDC EQU *-1 00688 M01S00683.1mi +++| STD BS+4 00689 M01S00684.1mi +++| 00690 M01S00685.1mi +++|* *TINW* MUST BE CLEARED BEFORE ISSUING THE *VDPO* *TSEM* 00691 M01S00686.1mi +++|* REQUEST, BECAUSE IF THE *VDPO* IS REJECTED AND THE JOB ROLLS, 00692 M01S00687.1mi +++|* IAF WOULD MISTAKENLY THINK THE JOB WAS REQUESTING INPUT. 00693 M01S00688.1mi +++| 00694 M01S00689.1mi +++| RJM CFN COMPLETE INPUT OPERATION 00695 M01S00690.1mi +++| 00696 M01S00691.1mi +++|* RELEASE INPUT AHEAD POT CHAIN. 00697 M01S00692.1mi +++| 00698 M01S00693.1mi +++| LDC /REM/VDPO 00699 M01S00694.1mi +++| STM WDPO 00700 M01S00695.1mi +++| LDD MA 00701 M01S00696.1mi +++| CWM WDPO,ON 00702 M01S00001.271l716 +++| LDK ZERL 00703 M01S00002.271l716 +++| CRD CM 00704 M01S00697.1mi +++| MONITOR TSEM DROP POTS 00705 M01S00698.1mi +++| LDK TPOR CHECK FOR POSSIBLE *TSEM* REJECT 00706 M01S00699.1mi +++| RJM MRJ 00707 M01S00700.1mi +++| LJM CIDX RETURN 00708 M01S00701.1mi +++| CJA SPACE 4,10 00709 M01S00702.1mi +++|** CJA - CHECK USER JOB ACTIVITY. 00710 M01S00703.1mi +++|* 00711 M01S00704.1mi +++|* EXIT (A) = *STSW* CPU STATUS. 00712 M01S00705.1mi +++|* 00713 M01S00706.1mi +++|* USES CM - CM+4. 00714 M01S00707.1mi +++| 00715 M01S00708.1mi +++| 00716 M01S00709.1mi +++| CJA SUBR ENTRY/EXIT 00717 M01S00710.1mi +++| LDD CP CONTROL POINT ADDRESS 00718 M01S00711.1mi +++| ADN STSW STATUS CONTROL WORD 00719 M01S00712.1mi +++| CRD CM 00720 M01S00713.1mi +++| LDD CM 00721 M01S00714.1mi +++| SHN -11 CP STATUS ONLY 00722 M01S00715.1mi +++| UJN CJAX RETURN 00723 M01S00716.1mi +++| COD SPACE 4,10 00724 M01S00717.1mi +++|** COD - COPY OUTPUT DATA. 00725 M01S00718.1mi +++|* 00726 M01S00719.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS. 00727 M01S00720.1mi +++|* (CD+2) = ACCEPTABLE CM WORD TRANSFER COUNT. 00728 M01S00721.1mi +++|* (PP) = DIRECT OUTPUT POT MEMORY CHAIN POINTER. 00729 M01S00722.1mi +++|* 00730 M01S00723.1mi +++|* EXIT DIRECT OUTPUT ASSIGNED TO OUTPUT POT MEMORY CHAIN. 00731 M01S00724.1mi +++|* (WC) = LAST POT MEMORY WORD COUNT. 00732 M01S00725.1mi +++|*
| Line S00726 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00733 M02S00726.ns2748 ---|* USES CN-1 - CN+4, T2 - T3, PP, WC. 00734 M01S00005.ns2748 +++|* USES CD+2, PP, WC, CN - CN+4, T2 - T3. 00735 M01S00727.1mi +++|*
| Line S00728 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00736 M02S00728.ns2748 ---|* CALLS COB, RBB, SPA, UPP. 00737 M01S00006.ns2748 +++|* CALLS COB, RBB, RRR, SPA, SRR, UPP. 00738 M01S00729.1mi +++| 00739 M01S00730.1mi +++| 00740 M01S00731.1mi +++| COD SUBR ENTRY/EXIT 00741 M01S00732.1mi +++| 00742 M01S00733.1mi +++|* DUE TO IAF INTERNAL OUTPUT QUEUING, IT IS NECESSARY TO 00743 M01S00734.1mi +++|* BYPASS THE FIRST TWO POT MEMORY CM WORDS IN EVERY POT 00744 M01S00735.1mi +++|* MEMORY CHAIN ALLOCATED FOR OUTPUT TO ALLOW FOR IAF 00745 M01S00736.1mi +++|* INTERNAL QUEUE LINKAGE CONTROL. 00746 M01S00737.1mi +++| 00747 M01S00738.1mi +++| LDN /REM/VCPC-2 IAF POT MEMORY LENGTH-2 00748 M01S00739.1mi +++| STD WC INITIAL CM WORD TRANSFER 00749 M01S00740.1mi +++| 00750 M01S00741.1mi +++|* TRANSFER DIRECT OUTPUT. 00751 M01S00742.1mi +++| 00752 M01S00743.1mi +++| COD1 LDD CD+2 CHECK ACCEPTABLE CM TRANSFER COUNT 00753 M01S00744.1mi +++| SBN /REM/VCPC-2 00754 M01S00745.1mi +++| CODA EQU *-1 00755 M01S00746.1mi +++| PJN COD2 IF AT LEAST ONE POT MEMORY TO TRANSFER 00756 M01S00747.1mi +++| ADN /REM/VCPC-2 BIAS FOR MAXIMUM TRANSFER 00757 M01S00748.1mi +++| CODB EQU *-1 00758 M01S00749.1mi +++| STD WC 00759 M01S00750.1mi +++| COD2 LDD WC SET BUFFER TRANSFER COUNT *RBB* 00760 M01S00751.1mi +++| STD T3 00761 M01S00752.1mi +++| LDC BUFF BEGINNING WRITE BUFFER ADDRESS *RBB* 00762 M01S00753.1mi +++| RJM RBB READ BINARY BUFFER 00763 M01S00007.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00764 M01S00754.1mi +++| RJM SPA SET POT MEMORY ADDRESS FOR THIS TRANSFER 00765 M01S00755.1mi +++| ADN 2 ALLOW FOR LINKAGE FIRST POT ONLY 00766 M01S00756.1mi +++|* PSN IF FIRST POT MEMORY PASSED 00767 M01S00757.1mi +++| CODC EQU *-1 00768 M01S00758.1mi +++| CWM BUFF,WC TRANSFER OUTPUT 00769 M01S00008.ns2748 +++| RJM RRR RESTORE R-REGISTER 00770 M01S00759.1mi +++| LDD PP UPDATE LAST POT MEMORY WRITTEN 00771 M01S00760.1mi +++| STM WADO+2 00772 M01S00761.1mi +++| AOM WADO+1 INCREMENT POT COUNT 00773 M01S00762.1mi +++| 00774 M01S00763.1mi +++|* UPDATE ACCEPTABLE TRANSFER COUNT. 00775 M01S00764.1mi +++| 00776 M01S00765.1mi +++| LDD CD+2 ACCEPTABLE CM WORD TRANSFER COUNT 00777 M01S00766.1mi +++| SBD WC CURRENT TRANSFER 00778 M01S00767.1mi +++| STD CD+2 00779 M01S00768.1mi +++| LDN 0 INHIBIT SUCCESSIVE POT MEMORY OFFSET 00780 M01S00769.1mi +++| CODD EQU *-1 00781 M01S00770.1mi +++| NJN COD3 IF FIRST POT MEMORY PASSED 00782 M01S00771.1mi +++| LDN 2 00783 M01S00772.1mi +++| RAM CODA 00784 M01S00773.1mi +++| LDN 2 00785 M01S00774.1mi +++| RAM CODB 00786 M01S00775.1mi +++| LDN PSNI 00787 M01S00776.1mi +++| STM CODC 00788 M01S00777.1mi +++| AOM CODD 00789 M01S00778.1mi +++| AOD WC NEGATE LINKAGE CONTROL OFFSET COUNT 00790 M01S00779.1mi +++| AOD WC 00791 M01S00780.1mi +++| 00792 M01S00781.1mi +++|* CONTINUE UNTIL NETWORK REQUIREMENT OR FLUSH COMPLETION. 00793 M01S00782.1mi +++| 00794 M01S00783.1mi +++| COD3 LDD CD+2 REMAINING ACCEPTABLE CM WORD COUNT 00795 M01S00784.1mi +++| ZJN COD4 IF NETWORK REQUIREMENT MADE 00796 M01S00009.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00797 M01S00785.1mi +++| RJM UPP UPDATE POT MEMORY 00798 M01S00010.ns2748 +++| RJM RRR RESTORE R-REGISTER 00799 M01S00011.ns2748 +++| LDD PP 00800 M01S00786.1mi +++| NJP COD1 IF POT MEMORY AVAILABLE 00801 M01S00787.1mi +++| 00802 M01S00788.1mi +++|* NETWORK REQUIREMENT MADE OR POT MEMORY EXHAUSTION. 00803 M01S00789.1mi +++| 00804 M01S00790.1mi +++| COD4 LDN ZERL COMPLETE TRANSFER PROCESS 00805 M01S00791.1mi +++| CRD CN 00806 M01S00792.1mi +++| LDN 2R"IB" *0014* BYTE 00807 M01S00793.1mi +++| STD CN END OF TRANSFER PRESET 00808 M01S00794.1mi +++| LDD WC ALLOW FOR POSSIBLE TERMINATOR 00809 M01S00795.1mi +++| SBN /REM/VCPC 00810 M01S00796.1mi +++| ZJN COD5 IF COMPLETE POT MEMORY WRITTEN 00811 M01S00012.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00812 M01S00797.1mi +++| RJM SPA SET POT MEMORY ADDRESS 00813 M01S00798.1mi +++| ADD WC LAST POT WORD COUNT 00814 M01S00799.1mi +++| CWD CN WRITE TRANSFER TERMINATOR 00815 M01S00013.ns2748 +++| RJM RRR RESTORE R-REGISTER 00816 M01S00800.1mi +++| 00817 M01S00801.1mi +++|* PRESET OUTPUT COMPLETION. 00818 M01S00802.1mi +++| 00819 M01S00803.1mi +++| COD5 LDK ZERL 00820 M01S00804.1mi +++| CRD CN 00821 M01S00805.1mi +++| RJM COB CHECK FOR REMAINING OUTPUT 00822 M01S00806.1mi +++| NJN COD6 IF BUFFER IS NOT EMPTY 00823 M01S00807.1mi +++| LDM ANRA 00824 M01S00808.1mi +++| ZJN COD7 IF NOT EOR OR EOF 00825 M01S00809.1mi +++| LDN 2 00826 M01S00810.1mi +++| STD CN+4 00827 M01S00811.1mi +++| UJN COD7 PLACE FLAG IN WORD TWO OF THE POT HEADER 00828 M01S00812.1mi +++| 00829 M01S00813.1mi +++| COD6 LDC 0 CHECK NO RECALL FLAG 00830 M01S00814.1mi +++|* LDC WC (IF NO RECALL - ONE WORD LEFT IN BUFFER) 00831 M01S00815.1mi +++| CODE EQU *-1 SET BY *ANR* 00832 M01S00816.1mi +++| NJN COD7 IF NO RECALL REQUIRED 00833 M01S00817.1mi +++| AOM PTOB ADDITIONAL OUTPUT REMAINS 00834 M01S00818.1mi +++| COD7 LDM WADO+3 GET ADDRESS OF FIRST POT 00835 M01S00819.1mi +++| STD PP 00836 M01S00014.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00837 M01S00820.1mi +++| RJM SPA 00838 M01S00821.1mi +++| ADN 1 00839 M01S00822.1mi +++| CWD CN 00840 M01S00015.ns2748 +++| RJM RRR RESTORE R-REGISTER 00841 M01S00823.1mi +++| LJM CODX RETURN
| Line S00824 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00842 M02S00824.ns2748 ---| CTI SPACE 4,10 00843 M01S00016.ns2748 +++| CTI SPACE 4,15 00844 M01S00825.1mi +++|** CTI - CHECK FOR TERMINAL INPUT. 00845 M01S00826.1mi +++|* 00846 M01S00827.1mi +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS. 00847 M01S00828.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER. 00848 M01S00829.1mi +++|* 00849 M01S00830.1mi +++|* EXIT (IR+3 - IR+4) = INPUT FET ADDRESS. 00850 M01S00831.1mi +++|* (A) = TYPEAHEAD QUEUE POINTER. 00851 M01S00832.1mi +++|* (A) = ZERO IF NO INPUT AHEAD. 00852 M01S00833.1mi +++|*
| Line S00834 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00853 M02S00834.ns2748 ---|* USES CM - CM+4. 00854 M01S00017.ns2748 +++|* USES CM - CM+4, IR - IR+4. 00855 M01S00835.1mi +++|*
| Line S00836 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00856 M02S00836.ns2748 ---|* CALLS GMX.
| Line S00837 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00857 M02S00837.ns2748 ---|*
| Line S00838 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00858 M02S00838.ns2748 ---|* MACROS MONITOR. 00859 M01S00018.ns2748 +++|* CALLS GMX, RRR, SRR. 00860 M01S00839.1mi +++| 00861 M01S00840.1mi +++| 00862 M01S00841.1mi +++| CTI SUBR ENTRY/EXIT 00863 M01S00842.1mi +++| LDD IA REREAD ORIGINAL INPUT REGISTER 00864 M01S00843.1mi +++| CRD IR 00865 M01S00844.1mi +++| LDD IR+3 00866 M01S00845.1mi +++| LPN 37 00867 M01S00846.1mi +++| ADD IR+4 00868 M01S00847.1mi +++| ZJN CTIX IF NO INPUT FET 00869 M01S00848.1mi +++| 00870 M01S00849.1mi +++|* CHECK FOR INPUT AHEAD QUEUE PREPROCESSED. 00871 M01S00850.1mi +++| 00872 M01S00019.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00873 M01S00851.1mi +++| LDD TT 00874 M01S00852.1mi +++| SHN 14 00875 M01S00853.1mi +++| LMD TT+1 00876 M01S00854.1mi +++| ADN /REM/VROT *VADI* REQUEST WORD 00877 M01S00855.1mi +++| CRD CM 00878 M01S00020.ns2748 +++| RJM RRR RESTORE R-REGISTER 00879 M01S00856.1mi +++| LDD CM+1 00880 M01S00857.1mi +++| ZJN CTI1 IF QUEUE NOT PREPROCESSED 00881 M01S00858.1mi +++| STM PTIA INHIBIT UNECESSARY *VADI* FUNCTION 00882 M01S00859.1mi +++| UJP CTIX RETURN 00883 M01S00860.1mi +++| 00884 M01S00861.1mi +++|* READ TERMINAL INPUT TYPEAHEAD QUEUE FROM IAF. 00885 M01S00862.1mi +++| 00886 M01S00863.1mi +++| CTI1 RJM GMX MULTIPLEXOR TERMINALS REQUIRE PREPROCESS 00887 M01S00864.1mi +++| ZJP CTIX IF MULTIPLEXOR TERMINAL 00888 M01S00021.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00889 M01S00865.1mi +++| LDD TA IAF REFERENCE ADDRESS 00890 M01S00866.1mi +++| SHN 6 00891 M01S00867.1mi +++| ADN /REM/VMST TERMINAL STATUS MESSAGE WORD 00892 M01S00868.1mi +++| CRD CM 00893 M01S00869.1mi +++| LDD CM+1 00894 M01S00870.1mi +++| SHN 6 00895 M01S00871.1mi +++| ADD TA 00896 M01S00872.1mi +++| SHN 6 00897 M01S00873.1mi +++| ADD CM+2 00898 M01S00874.1mi +++| ADD TN 00899 M01S00875.1mi +++| CRD CM READ TERMINAL MESSAGE WORD 00900 M01S00022.ns2748 +++| RJM RRR RESTORE R-REGISTER 00901 M01S00876.1mi +++| LDD CM+4 INPUT TYPEAHEAD QUEUE POINTER 00902 M01S00877.1mi +++| UJP CTIX RETURN
| Line S00878 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00903 M02S00878.ns2748 ---| CTO SPACE 4,10 00904 M01S00023.ns2748 +++| CTO SPACE 4,15 00905 M01S00879.1mi +++|** CTO - CHECK FOR TERMINAL OUTPUT. 00906 M01S00880.1mi +++|* 00907 M01S00881.1mi +++|* ENTRY (TT - TT+1) = TERMINAL TABLE ADDRESS. 00908 M01S00882.1mi +++|* 00909 M01S00883.1mi +++|* EXIT (IR+3 - IR+4) = OUTPUT FET ADDRESS. 00910 M01S00884.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT. 00911 M01S00885.1mi +++|* (A) = NONZERO IF TERMINAL OUTPUT. 00912 M01S00886.1mi +++|*
| Line S00887 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00913 M02S00887.ns2748 ---|* USES CM - CM+4, CD - CD+4, IR+3, IR+4. 00914 M01S00024.ns2748 +++|* USES IR+3, IR+4, CM - CM+4, CD - CD+4. 00915 M01S00888.1mi +++|*
| Line S00889 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00916 M02S00889.ns2748 ---|* CALLS COB, SLF, VFP.
| Line S00890 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00917 M02S00890.ns2748 ---|*
| Line S00891 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 00918 M02S00891.ns2748 ---|* MACROS MONITOR. 00919 M01S00025.ns2748 +++|* CALLS COB, RRR, SLF, SRR, STA, VFP. 00920 M01S00026.ns2748 +++| 00921 M01S00892.1mi +++| 00922 M01S00893.1mi +++| CTO SUBR ENTRY/EXIT 00923 M01S00894.1mi +++| LDN ZERL 00924 M01S00895.1mi +++| CRD CD 00925 M01S00896.1mi +++| 00926 M01S00897.1mi +++|* *TIOW* IS OUTPUT FET ADDRESS. 00927 M01S00898.1mi +++| 00928 M01S00899.1mi +++| LDD CP READ TERMINAL OUTPUT POINTER 00929 M01S00900.1mi +++| ADN TIOW 00930 M01S00901.1mi +++| CRD CM 00931 M01S00902.1mi +++| LDD CM+3 00932 M01S00903.1mi +++| LPN 37 00933 M01S00904.1mi +++| SHN 14 00934 M01S00905.1mi +++| LMD CM+4 00935 M01S00906.1mi +++| ZJN CTO1 IF NO OUTPUT POINTER 00936 M01S00907.1mi +++| STD IR+4 00937 M01S00908.1mi +++| SHN -14 00938 M01S00909.1mi +++| STD IR+3 00939 M01S00910.1mi +++| UJN CTO2 CHECK OUTPUT BUFFER CONTENT 00940 M01S00911.1mi +++| 00941 M01S00912.1mi +++| CTO1 RJM SLF SEARCH LIST OF FILES 00942 M01S00913.1mi +++| ZJN CTO3 IF NO *LOFW* OR RA+2 LIST ENTRIES 00943 M01S00914.1mi +++| 00944 M01S00915.1mi +++|* RETURN OUTPUT BUFFER COUNT. 00945 M01S00916.1mi +++| 00946 M01S00917.1mi +++| CTO2 RJM VFP VERIFY FET PARAMETERS 00947 M01S00918.1mi +++| RJM COB CHECK OUTPUT BUFFER CONTENT 00948 M01S00919.1mi +++| STD CD+4 00949 M01S00920.1mi +++| SHN -14 00950 M01S00921.1mi +++| STD CD+3 00951 M01S00922.1mi +++| ADD CD+4 00952 M01S00923.1mi +++| CTO3 STM CTOA SAVE EXIT CONDITION 00953 M01S00027.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 00954 M01S00924.1mi +++| RJM STA RESTORE TERMINAL TABLE ADDRESS 00955 M01S00028.ns2748 +++| RJM RRR RESTORE R-REGISTER 00956 M01S00925.1mi +++| LDM CTOA 00957 M01S00926.1mi +++| UJP CTOX RETURN 00958 M01S00927.1mi +++| 00959 M01S00928.1mi +++| CTOA CON 0 EXIT CONDITION 00960 M01S00929.1mi +++| DFS SPACE 4,10 00961 M01S00930.1mi +++|** DFS - DETERMINE FLUSH STATUS. 00962 M01S00931.1mi +++|* 00963 M01S00932.1mi +++|* THE REQUIREMENTS FOR A FILE TO BE FLUSHED ARE- 00964 M01S00933.1mi +++|* - FET MUST BE WITHIN FL. 00965 M01S00934.1mi +++|* - BUFFER MUST HAVE DATA IN IT. 00966 M01S00935.1mi +++|* - FET MUST NOT BE BUSY. 00967 M01S00936.1mi +++|* - CODE IN FET MUST BE A VALID *CIO* REQUEST. 00968 M01S00937.1mi +++|* - FILE MUST BE *OUTPUT* AND UNASSIGNED OR IT MUST BE 00969 M01S00938.1mi +++|* ASSIGNED TO TERMINAL EQUIPMENT. 00970 M01S00939.1mi +++|* 00971 M01S00940.1mi +++|* NOTE- ROUTINES *1RO*, *1AJ* AND *1MI* OBSERVE THE ABOVE 00972 M01S00941.1mi +++|* CONVENTIONS. 00973 M01S00942.1mi +++|* 00974 M01S00943.1mi +++|* ENTRY (T8 - T9) = FET ADDRESS. 00975 M01S00944.1mi +++|* 00976 M01S00945.1mi +++|* EXIT (A) = ZERO, IF ENTRY NOT A FLUSH CANDIDATE. 00977 M01S00946.1mi +++|* (CN - CN+4) = FIRST WORD OF FET. 00978 M01S00947.1mi +++|* 00979 M01S00948.1mi +++|* USES T1 - T7, CM - CM+4, CN - CN+4. 00980 M01S00949.1mi +++|* 00981 M01S00950.1mi +++|* CALLS VAD. 00982 M01S00951.1mi +++| 00983 M01S00952.1mi +++| 00984 M01S00953.1mi +++| DFS7 LDN 0 NOT A FLUSH CANDIDATE STATUS 00985 M01S00954.1mi +++| 00986 M01S00955.1mi +++| DFS SUBR ENTRY/EXIT 00987 M01S00956.1mi +++| LDD T8 READ FET PARAMETERS 00988 M01S00957.1mi +++| LPN 37 00989 M01S00958.1mi +++| SHN 14 00990 M01S00959.1mi +++| LMD T9 00991 M01S00960.1mi +++| ADN 3 00992 M01S00961.1mi +++| RJM VAD 00993 M01S00962.1mi +++| ZJN DFSX IF FET OUTSIDE FL 00994 M01S00963.1mi +++| CRD T3 READ OUT 00995 M01S00964.1mi +++| SBN 1 00996 M01S00965.1mi +++| CRD T1 READ IN 00997 M01S00966.1mi +++| SBN 2 00998 M01S00967.1mi +++| CRD CN READ FET+0 00999 M01S00968.1mi +++| LDD CN+4 01000 M01S00969.1mi +++| LPN 1 01001 M01S00970.1mi +++| ZJN DFSX IF FET BUSY 01002 M01S00971.1mi +++| LDD T6 01003 M01S00972.1mi +++| SBD T4 01004 M01S00973.1mi +++| SHN 14 01005 M01S00974.1mi +++| ADD T7 01006 M01S00975.1mi +++| SBD T5 01007 M01S00976.1mi +++| ZJN DFSX IF BUFFER EMPTY 01008 M01S00977.1mi +++| LDN DFSAL CHECK ACCEPTABLE *CIO* CALLS 01009 M01S00978.1mi +++| STD T1 01010 M01S00979.1mi +++| LDD CN+3 01011 M01S00980.1mi +++| LPN 77 01012 M01S00981.1mi +++| NJP DFS7 IF FET ERRORS 01013 M01S00982.1mi +++| 01014 M01S00983.1mi +++|* SCAN ACCEPTABLE *CIO* CODES. 01015 M01S00984.1mi +++| 01016 M01S00985.1mi +++| DFS1 SOD T1 01017 M01S00986.1mi +++| MJP DFS7 IF FET CODE NOT IN LIST 01018 M01S00987.1mi +++| LDM DFSA,T1 01019 M01S00988.1mi +++| LMD CN+4 01020 M01S00989.1mi +++| SCN 2 IGNORE BINARY BIT 01021 M01S00990.1mi +++| NJP DFS1 IF NOT VALID FET CODE 01022 M01S00991.1mi +++| LDD NF SET NFL SIZE + 1 01023 M01S00992.1mi +++| SHN 6 01024 M01S00993.1mi +++| ADN 1 01025 M01S00994.1mi +++| STD T7 01026 M01S00995.1mi +++| 01027 M01S00996.1mi +++|* SEARCH FNT ENTRIES FOR ASSIGNED FILE. 01028 M01S00997.1mi +++| 01029 M01S00998.1mi +++| LDC FNTN+LENF 01030 M01S00999.1mi +++| STD T6 01031 M01S01000.1mi +++| DFS2 NFA T6,R READ FNT ENTRY 01032 M01S01001.1mi +++| CRD CM 01033 M01S01002.1mi +++| LDD CM COMPARE FILE NAMES 01034 M01S01003.1mi +++| ZJN DFS3 IF NO ENTRY 01035 M01S01004.1mi +++| LMD CN 01036 M01S01005.1mi +++| NJN DFS3 IF NO MATCH 01037 M01S01006.1mi +++| LDD CM+1 01038 M01S01007.1mi +++| LMD CN+1 01039 M01S01008.1mi +++| NJN DFS3 IF NO MATCH 01040 M01S01009.1mi +++| LDD CM+2 01041 M01S01010.1mi +++| LMD CN+2 01042 M01S01011.1mi +++| NJN DFS3 IF NO MATCH 01043 M01S01012.1mi +++| LDD CM+3 01044 M01S01013.1mi +++| LMD CN+3 01045 M01S01014.1mi +++| SCN 77 01046 M01S01015.1mi +++| ZJN DFS5 IF MATCH 01047 M01S01016.1mi +++| DFS3 LDN LENF INCREMENT TO NEXT ENTRY 01048 M01S01017.1mi +++| RAD T6 01049 M01S01018.1mi +++| SBD T7 01050 M01S01019.1mi +++| MJN DFS2 IF NOT END OF FNT 01051 M01S01020.1mi +++| LDD CN CHECK FOR *OUTPUT* 01052 M01S01021.1mi +++| LMC 2ROU 01053 M01S01022.1mi +++| NJN DFS4 IF NOT *OUTPUT* 01054 M01S01023.1mi +++| LDD CN+1 01055 M01S01024.1mi +++| LMC 2RTP 01056 M01S01025.1mi +++| NJN DFS4 IF NOT *OUTPUT* 01057 M01S01026.1mi +++| LDD CN+2 01058 M01S01027.1mi +++| LMC 2RUT 01059 M01S01028.1mi +++| NJN DFS4 IF NOT *OUTPUT* 01060 M01S01029.1mi +++| LDD CN+3 01061 M01S01030.1mi +++| SCN 77 01062 M01S01031.1mi +++| ZJN DFS6 IF *OUTPUT* 01063 M01S01032.1mi +++| DFS4 UJP DFS7 FILE IS NOT A FLUSH CANDIDATE 01064 M01S01033.1mi +++| 01065 M01S01034.1mi +++|* EQUIPMENT ASSIGNMENT MUST BE *TTEQ*. 01066 M01S01035.1mi +++| 01067 M01S01036.1mi +++| DFS5 NFA T6,R CHECK EQUIPMENT ASSIGNMENT 01068 M01S01037.1mi +++| ADN FSTL 01069 M01S01038.1mi +++| CRD CM 01070 M01S01039.1mi +++| LDD CM 01071 M01S01040.1mi +++| LPC 777 01072 M01S01041.1mi +++| LMN TTEQ 01073 M01S01042.1mi +++| NJN DFS4 IF NOT ASSIGNED TO *TT* 01074 M01S01043.1mi +++| DFS6 LDN 1 INDICATE OUTPUT AVAILABLE 01075 M01S01044.1mi +++| UJP DFSX RETURN 01076 M01S01045.1mi +++| HST SPACE 4,10 01077 M01S01046.1mi +++|** DFSA - TABLE OF CIO CODES TO FLUSH ON. 01078 M01S01047.1mi +++|* 01079 M01S01048.1mi +++|* ENTRY ONE WORD. 01080 M01S01049.1mi +++|* 01081 M01S01050.1mi +++|*T 12/*CIO* FUNCTION CODE.
Figure
01082 M01S01051.1mi +++| 01083 M01S01052.1mi +++| 01084 M01S01053.1mi +++| DFSA BSS 0 01085 M01S01054.1mi +++| LOC 0 01086 M01S01055.1mi +++| 01087 M01S01056.1mi +++| CON 1 FET COMPLETE STATUS 01088 M01S01057.1mi +++| CON 5 WRITE PRU 01089 M01S01058.1mi +++| CON 15 BUFFERED WRITE 01090 M01S01059.1mi +++| CON 25 WRITE EOR 01091 M01S01060.1mi +++| CON 35 WRITE EOF 01092 M01S01061.1mi +++| CON 105 WRITE NO REWIND 01093 M01S01062.1mi +++| CON 121 OPEN ALTER 01094 M01S01063.1mi +++| CON 145 OPEN WRITE REWIND 01095 M01S01064.1mi +++| CON 161 OPEN ALTER REWIND 01096 M01S01065.1mi +++| 01097 M01S01066.1mi +++| LOC *O 01098 M01S01067.1mi +++| 01099 M01S01068.1mi +++| DFSAL EQU *-DFSA *DFSA* TABLE LENGTH 01100 M01S01069.1mi +++| ERR SPACE 4,10 01101 M01S01070.1mi +++|** ERR - PROCESS ERROR. 01102 M01S01071.1mi +++|* 01103 M01S01072.1mi +++|* ENTRY (A) = ERROR CODE - *COMSCIO*. 01104 M01S01073.1mi +++|* 01105 M01S01074.1mi +++|* EXIT TO *ERX* TO PROCESS ERROR RESPONSE. 01106 M01S01075.1mi +++|* (ERRA) = ERROR CODE ON ENTRY. 01107 M01S01076.1mi +++|* 01108 M01S01077.1mi +++|* USES CM - CM+4. 01109 M01S01078.1mi +++|* 01110 M01S01079.1mi +++|* CALLS CFN, ERX. 01111 M01S01080.1mi +++| 01112 M01S01081.1mi +++| 01113 M01S01082.1mi +++| ERR BSS 0 ENTRY 01114 M01S01083.1mi +++| STM ERRA SAVE ERROR CODE 01115 M01S01084.1mi +++| RJM ERX PROCESS *1MI* ERROR 01116 M01S01085.1mi +++| RJM CFN COMPLETE FUNCTION 01117 M01S01086.1mi +++| LJM DPP DROP PP 01118 M01S01087.1mi +++| 01119 M01S01088.1mi +++| ERRA CON 0 *1MI* ERROR CODE 01120 M01S01089.1mi +++| ERS SPACE 4,10 01121 M01S01090.1mi +++|** ERS - ENTER RECALL STACK. 01122 M01S01091.1mi +++|* 01123 M01S01092.1mi +++|* ENTRY (A) = RECALL REASON CODE. 01124 M01S01093.1mi +++|* ALL OTHER PARAMETERS PRESET IN RCPW - RCPW+4. 01125 M01S01094.1mi +++|* 01126 M01S01095.1mi +++|* EXIT TO *PPR*. 01127 M01S01096.1mi +++|* 01128 M01S01097.1mi +++|* USES CM - CM+4. 01129 M01S01098.1mi +++|* 01130 M01S01099.1mi +++|* MACROS MONITOR. 01131 M01S01100.1mi +++| 01132 M01S01101.1mi +++| 01133 M01S01102.1mi +++| ERS BSS 0 ENTRY 01134 M01S01103.1mi +++| SHN 6 01135 M01S01104.1mi +++| RAM RCPW+1 SAVE RECALL REASON CODE 01136 M01S01105.1mi +++| LDK ZERL 01137 M01S01106.1mi +++| CRD CM 01138 M01S01107.1mi +++| LDC RECMS1 DEFAULT TIME PERIOD FOR RECALL 01139 M01S01108.1mi +++|* LDC RECMS2 MONITOR FUNCTION REJECT RECALL TIME PERIOD 01140 M01S01109.1mi +++| ERSA EQU *-1 01141 M01S01110.1mi +++| SHN 0 BIAS RECALL PERIOD REJECTION COUNT TIMES 01142 M01S01111.1mi +++| ERSE EQU *-1 01143 M01S01112.1mi +++| STD CM+4 01144 M01S01113.1mi +++| LDD IA STORE INPUT REGISTER 01145 M01S01114.1mi +++| CRD IR 01146 M01S01115.1mi +++| LDD MA 01147 M01S01116.1mi +++| CWM IR,ON REWRITE INPUT REGISTER TO MESSAGE BUFFER 01148 M01S01117.1mi +++| CWM RCPW,ON STORE RECALL PARAMETERS 01149 M01S01118.1mi +++| LDN PTMF TIMED RECALL CRITERIA 01150 M01S01119.1mi +++| STD CM+1 01151 M01S01120.1mi +++| MONITOR RECM RECALL PPU 01152 M01S01121.1mi +++| LJM PPR EXIT TO *PPR* 01153 M01S01122.1mi +++| ERX SPACE 4,10 01154 M01S01123.1mi +++|** ERX - ERROR EXIT PROCESSOR. 01155 M01S01124.1mi +++|* 01156 M01S01125.1mi +++|* ENTRY (IR+3 - IR+4) = INPUT OR OUTPUT FET ADDRESS. 01157 M01S01126.1mi +++|* (BS - BS+4) = BUFFER STATUS. 01158 M01S01127.1mi +++|* (ERRA) = *CIOERR* ERROR CODE INDEX. 01159 M01S01128.1mi +++|* (FC) = *1MI* FUNCTION CODE. 01160 M01S01129.1mi +++|* 01161 M01S01130.1mi +++|* EXIT TO *DPP* IF INCORRECT ERROR CODE DETECTION. 01162 M01S01131.1mi +++|* ERROR FLAG SET IN CONTROL POINT PER ERROR OPTION. 01163 M01S01132.1mi +++|* DAYFILE ERROR MESSAGE RESPONSE ISSUED. 01164 M01S01133.1mi +++|* 01165 M01S01134.1mi +++|* USES T1, CM - CM+4, CN - CN+4. 01166 M01S01135.1mi +++|* 01167 M01S01136.1mi +++|* CALLS CHG, IDM, VAD. 01168 M01S01137.1mi +++|* 01169 M01S01138.1mi +++|* MACROS CFET, MONITOR. 01170 M01S01139.1mi +++| 01171 M01S01140.1mi +++| 01172 M01S01141.1mi +++| ERX SUBR ENTRY/EXIT 01173 M01S01142.1mi +++| LDC 22S9 FET ERROR STATUS = 22B 01174 M01S01143.1mi +++| RAD BS+4 01175 M01S01144.1mi +++| SHN -14 01176 M01S01145.1mi +++| RAD BS+3 01177 M01S01146.1mi +++| LDN ZERL 01178 M01S01147.1mi +++| CRD CM 01179 M01S01148.1mi +++| LDN 0 PRESET *TEPO* TABLE SEARCH 01180 M01S01149.1mi +++| STD T1 01181 M01S01150.1mi +++| 01182 M01S01151.1mi +++|* SEARCH *TEPO* TABLE FOR PROCESSING PARAMETERS. 01183 M01S01152.1mi +++| 01184 M01S01153.1mi +++| ERX1 LDN TEPOL *TEPO* TABLE LENGTH 01185 M01S01154.1mi +++| SBD T1 01186 M01S01155.1mi +++| ZJN ERX2 IF TABLE LENGTH EXCEEDED 01187 M01S01156.1mi +++| LDM TEPO,T1 PROCESSING PARAMETERS 01188 M01S01157.1mi +++| SHN -1 01189 M01S01158.1mi +++| LPN 37 01190 M01S01159.1mi +++| SBM ERRA 01191 M01S01160.1mi +++| ZJN ERX3 IF SELECTION FOUND 01192 M01S01161.1mi +++| PJN ERX2 IF SELECTION PASSED 01193 M01S01162.1mi +++| AOD T1 ADVANCE TABLE SEARCH 01194 M01S01163.1mi +++| AOD T1 01195 M01S01164.1mi +++| UJN ERX1 CONTINUE *TEPO* SCAN 01196 M01S01165.1mi +++| 01197 M01S01166.1mi +++|* HANG *1MI* ON INCORRECT ERROR DETECTION. 01198 M01S01167.1mi +++| 01199 M01S01168.1mi +++| ERX2 LDK PPET SET ERROR FLAG 01200 M01S01169.1mi +++| RJM CHG CONDITIONALLY HANG PP 01201 M01S01170.1mi +++| LJM DPP DROP PP 01202 M01S01171.1mi +++| 01203 M01S01172.1mi +++|* ISSUE APPROPRIATE DAYFILE RESPONSE AND SET ERROR OPTIONS. 01204 M01S01173.1mi +++| 01205 M01S01174.1mi +++| ERX3 LDM ERRA *CIOERR* ERROR CODE 01206 M01S01175.1mi +++| LMK /CIOERR/ARG 01207 M01S01176.1mi +++| NJN ERX4 IF NOT AN ARGUMENT ERROR 01208 M01S01177.1mi +++| LDN PSNI INHIBIT WRITE OF FET+0 01209 M01S01178.1mi +++| STM CFNB 01210 M01S01179.1mi +++| ERX4 AOD T1 MESSAGE RESPONSE ADDRESS OFFSET 01211 M01S01180.1mi +++| LDM TEPO,T1 01212 M01S01181.1mi +++| STM IDMA 01213 M01S01182.1mi +++| SOD T1 01214 M01S01183.1mi +++| LDM TEPO,T1 READ ERROR PROCESSING OPTIONS 01215 M01S01184.1mi +++| SHN -6 01216 M01S01185.1mi +++| ZJN ERX5 IF NO ERROR FLAG OPTION 01217 M01S01186.1mi +++| 01218 M01S01187.1mi +++|* SET CONTROL POINT ERROR FLAG. 01219 M01S01188.1mi +++| 01220 M01S01189.1mi +++| STD CM+1 01221 M01S01190.1mi +++| MONITOR CEFM SET CONTROL POINT ERROR FLAG 01222 M01S01191.1mi +++| 01223 M01S01192.1mi +++|* SET FET DUMP OPTIONS. 01224 M01S01193.1mi +++| 01225 M01S01194.1mi +++| ERX5 LDM TEPO,T1 01226 M01S01195.1mi +++| LPN 1 01227 M01S01196.1mi +++| ZJN ERX6 IF NO FET DUMP OPTION 01228 M01S01197.1mi +++| LDD CP 01229 M01S01198.1mi +++| ADC PPDW PPU DUMP CONTROL WORD 01230 M01S01199.1mi +++| STD T1 01231 M01S01200.1mi +++| CRD CM 01232 M01S01201.1mi +++| CFET 1 GET CURRENT FET LENGTH AND VALIDATE 01233 M01S01202.1mi +++| CRD CN 01234 M01S01203.1mi +++| LDD CN+3 01235 M01S01204.1mi +++| SHN -6 01236 M01S01205.1mi +++| ADN 5 INITIAL FET LENGTH 01237 M01S01206.1mi +++| STD CN+3 01238 M01S01207.1mi +++| LDD IR+3 01239 M01S01208.1mi +++| SHN 14 01240 M01S01209.1mi +++| LMD IR+4 01241 M01S01210.1mi +++| ADD CN+3 CURRENT FET LENGTH 01242 M01S01211.1mi +++| RJM VAD VALIDATE FET DUMP LENGTH 01243 M01S01212.1mi +++| ZJN ERX6 IF FET DUMP EXCEEDS FIELD LENGTH 01244 M01S01213.1mi +++| 01245 M01S01214.1mi +++|* SET FET ADDRESS AND DUMP WORD COUNT TO *PPDW*. 01246 M01S01215.1mi +++| 01247 M01S01216.1mi +++| LDD IR+3 01248 M01S01217.1mi +++| LPN 77 01249 M01S01218.1mi +++| SHN 14 01250 M01S01219.1mi +++| LMD CN+3 WORD COUNT OF DUMP 01251 M01S01220.1mi +++| SHN 6 01252 M01S01221.1mi +++| STD CM+3 01253 M01S01222.1mi +++| LDD IR+4 01254 M01S01223.1mi +++| STD CM+4 01255 M01S01224.1mi +++| LDD T1 REWRITE *PPDW* 01256 M01S01225.1mi +++| CWD CM 01257 M01S01226.1mi +++| 01258 M01S01227.1mi +++|* SET UP DAYFILE ERROR MESSAGE RESPONSE. 01259 M01S01228.1mi +++| 01260 M01S01229.1mi +++| ERX6 RJM IDM ISSUE DAYFILE MESSAGE 01261 M01S01230.1mi +++| UJP ERXX RETURN 01262 M01S01231.1mi +++| HST SPACE 4,10 01263 M01S01232.1mi +++|** TEPO - TABLE OF ERROR PROCESSING OPTIONS AND DAYFILE 01264 M01S01233.1mi +++|* ERROR MESSAGES. 01265 M01S01234.1mi +++|* 01266 M01S01235.1mi +++|* ENTRY TWO WORDS ASCENDING ORDER PER *ERR* ERROR 01267 M01S01236.1mi +++|* CODE VALUE. 01268 M01S01237.1mi +++|* 01269 M01S01238.1mi +++|*T 6/EF, 5/ERR, 1/FETD
Figure
01270 M01S01239.1mi +++|*T, 12/ADDR
Figure
01271 M01S01240.1mi +++|* 01272 M01S01241.1mi +++|* EF = CONTROL POINT ERROR FLAG OPTION. 01273 M01S01242.1mi +++|* ERR = *CIOERR* ERROR CODE. 01274 M01S01243.1mi +++|* FETD = SET IF FET DUMP DESIRED ON ERROR TERMINATION. 01275 M01S01244.1mi +++|* ADDR = ADDRESS OF CORRESPONDING DAYFILE MESSAGE. 01276 M01S01245.1mi +++| 01277 M01S01246.1mi +++| 01278 M01S01247.1mi +++| TEPO BSS 0 01279 M01S01248.1mi +++| LOC 0 01280 M01S01249.1mi +++| 01281 M01S01250.1mi +++| ARG MSG (FET ADDRESS OUT OF RANGE),PPET,0 01282 M01S01251.1mi +++| BUF MSG (BUFFER ARGUMENT ERROR ON ),PPET,1 01283 M01S01252.1mi +++| IRQ MSG (INCORRECT I/O REQUEST ON FILE ),PPET,1 01284 M01S01253.1mi +++| 01285 M01S01254.1mi +++| LOC *O 01286 M01S01255.1mi +++| 01287 M01S01256.1mi +++| TEPOL EQU *-TEPO 01288 M01S01257.1mi +++| GMX SPACE 4,10 01289 M01S01258.1mi +++|** GMX - GET MULTIPLEXOR STATUS. 01290 M01S01259.1mi +++|* 01291 M01S01260.1mi +++|* ENTRY (TA) = INTERACTIVE REFERENCE ADDRESS. 01292 M01S01261.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER. 01293 M01S01262.1mi +++|* 01294 M01S01263.1mi +++|* EXIT (A) = ZERO IF MULTIPLEXOR TERMINAL TYPE. 01295 M01S01264.1mi +++|* 01296 M01S01265.1mi +++|* USES CM - CM+4. 01297 M01S01266.1mi +++|* 01298 M01S00029.ns2748 +++|* CALLS RRR, SRR. 01299 M01S01267.1mi +++| 01300 M01S01268.1mi +++| 01301 M01S01269.1mi +++| GMX0 LDN 0 MULTIPLEXOR TERMINAL TYPE 01302 M01S01270.1mi +++| 01303 M01S01271.1mi +++| GMX SUBR ENTRY/EXIT 01304 M01S00030.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01305 M01S01272.1mi +++| LDD TA INTERACTIVE REFERENCE ADDRESS 01306 M01S01273.1mi +++| SHN 6 01307 M01S01274.1mi +++| ADN /REM/VNTP TERMINAL TABLE POINTER 01308 M01S01275.1mi +++| CRD CM 01309 M01S00031.ns2748 +++| RJM RRR RESTORE R-REGISTER 01310 M01S01276.1mi +++| LDD CM+2 01311 M01S01277.1mi +++| ZJN GMXX IF NO NETWORK TERMINALS DEFINED 01312 M01S01278.1mi +++| SBN 1 (A) = HIGHEST MUX TERMINAL NUMBER 01313 M01S01279.1mi +++| SBD TN 01314 M01S01280.1mi +++| PJN GMX0 IF A MUX TERMINAL 01315 M01S01281.1mi +++| UJN GMXX RETURN 01316 M01S01282.1mi +++| IDM SPACE 4,10 01317 M01S01283.1mi +++|** IDM - SET UP AND ISSUE DAYFILE MESSAGE. 01318 M01S01284.1mi +++|* 01319 M01S01285.1mi +++|* ENTRY (BS - BS+4) = BUFFER STATUS. 01320 M01S01286.1mi +++|* (IDMA) = DAYFILE MESSAGE ADDRESS. 01321 M01S01287.1mi +++|* 01322 M01S01288.1mi +++|* EXIT DAYFILE MESSAGE ISSUED. 01323 M01S01289.1mi +++|* 01324 M01S01290.1mi +++|* USES T1, CM. 01325 M01S01291.1mi +++|* 01326 M01S01292.1mi +++|* CALLS ACS, ANS, DFM. 01327 M01S01293.1mi +++| 01328 M01S01294.1mi +++| 01329 M01S01295.1mi +++| IDM SUBR ENTRY/EXIT 01330 M01S01296.1mi +++| LDC BUFF SET BUFFER ADDRESS FOR *ACS*, *ANS* 01331 M01S01297.1mi +++| STD T1 01332 M01S01298.1mi +++| LDC 1R *100 01333 M01S01299.1mi +++| STI T1 01334 M01S01300.1mi +++| LDC ** MOVE MESSAGE TO CHARACTER BUFFER 01335 M01S01301.1mi +++| IDMA EQU *-1 MESSAGE ADDRESS (*ERX*) 01336 M01S01302.1mi +++| RJM ACS ASSEMBLE CHARACTER STRING 01337 M01S01303.1mi +++| LDD BS+3 01338 M01S01304.1mi +++| STD CM PRESERVE BUFFER STATUS 01339 M01S01305.1mi +++| SCN 77 01340 M01S01306.1mi +++| STD BS+3 01341 M01S01307.1mi +++| LDN BS MOVE FILE NAME 01342 M01S01308.1mi +++| RJM ACS ASSEMBLE NAME 01343 M01S01309.1mi +++| LDD CM RESTORE BUFFER STATUS FIELD 01344 M01S01310.1mi +++| STD BS+3 01345 M01S01311.1mi +++| LDC =Z* AT * ADD * AT * 01346 M01S01312.1mi +++| RJM ACS ASSEMBLE STRING 01347 M01S01313.1mi +++| LDD IR+3 ADD FET ADDRESS 01348 M01S01314.1mi +++| LPN 77 01349 M01S01315.1mi +++| SHN 14 01350 M01S01316.1mi +++| LMD IR+4 01351 M01S01317.1mi +++| RJM ANS ASSEMBLE NUMERIC STRING 01352 M01S01318.1mi +++| LDC =Z*.* ADD TERMINATOR 01353 M01S01319.1mi +++| RJM ACS ASSEMBLE TERMINATOR 01354 M01S01320.1mi +++| 01355 M01S01321.1mi +++|* ISSUE DAYFILE MESSAGE. 01356 M01S01322.1mi +++| 01357 M01S01323.1mi +++| LDC BUFF MESSAGE BUFFER ADDRESS FOR *DFM* 01358 M01S01324.1mi +++| RJM DFM ISSUE MESSAGE 01359 M01S01325.1mi +++| UJP IDMX RETURN
| Line S01326 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01360 M02S01326.ns2748 ---| ITA SPACE 4,10 01361 M01S00032.ns2748 +++| ITA SPACE 4,15 01362 M01S01327.1mi +++|** ITA - INITIALIZE INTERACTIVE ACCESS. 01363 M01S01328.1mi +++|* 01364 M01S01329.1mi +++|* ENTRY SUBSYSTEM CONTROL TABLE TO BE SCANNED FOR 01365 M01S01330.1mi +++|* IAF ACCESSIBILITY. 01366 M01S01331.1mi +++|* 01367 M01S01332.1mi +++|* EXIT (TA) = IAF REFERENCE ADDRESS. 01368 M01S01333.1mi +++|* (A) = NONZERO IF IAF ACCESSIBLE. 01369 M01S01334.1mi +++|*
| Line S01335 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01370 M02S01335.ns2748 ---|* USES T1 - T5, CM - CM+4, TA. 01371 M01S00033.ns2748 +++|* USES CM - CM+4, T1 - T5. 01372 M01S00034.ns2748 +++|* 01373 M01S00035.ns2748 +++|* CALLS PIR. 01374 M01S01336.1mi +++| 01375 M01S01337.1mi +++| 01376 M01S01338.1mi +++| ITA0 LDN 0 IAF INACESSIBLE STATUS 01377 M01S01339.1mi +++| 01378 M01S01340.1mi +++| ITA SUBR ENTRY/EXIT 01379 M01S01341.1mi +++| LDC SSCP SUBSYSTEM TABLE POINTER 01380 M01S01342.1mi +++| CRD CM 01381 M01S01343.1mi +++| LDD CM+2 TABLE ADDRESS 01382 M01S01344.1mi +++| LPN 37 01383 M01S01345.1mi +++| SHN 14 01384 M01S01346.1mi +++| LMD CM+3 01385 M01S01347.1mi +++| CRD CM READ TABLE ENTRY 01386 M01S01348.1mi +++| LDD CM IAF ENTRY 01387 M01S01349.1mi +++| SHN 21-13 ACCESSIBILITY BIT 01388 M01S01350.1mi +++| PJN ITA0 IF IAF INACCESSIBLE 01389 M01S01351.1mi +++| 01390 M01S01352.1mi +++|* IF NO ERROR FLAGS, RETURN WITH IAF REFERENCE ADDRESS. 01391 M01S01353.1mi +++| 01392 M01S01354.1mi +++| SHN 14 01393 M01S01355.1mi +++| LPC 3777 MASK OFF ACCESSIBILITY BIT 01394 M01S01356.1mi +++| SHN 7 BIAS CONTROL POINT ASSIGNMENT 200B 01395 M01S01357.1mi +++| ADN STSW STATUS CONTROL WORD 01396 M01S01358.1mi +++| CRD T1 01397 M01S01359.1mi +++| ADN FLSW-STSW FIELD LENGTH CONTROL WORD 01398 M01S01360.1mi +++| CRD CM 01399 M01S01361.1mi +++| LDD T1+1 ERROR FLAG FIELD 01400 M01S01362.1mi +++| NJN ITA0 IF IAF INACCESSIBLE 01401 M01S01363.1mi +++| LDD CM+3 01402 M01S01364.1mi +++| ZJN ITAX IF NO REFERENCE ADDRESS
| Line S01365 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01403 M02S01365.ns2748 ---| STD TA RA/100B 01404 M01S00036.ns2748 +++| RJM PIR PRESET WITH IAF R-REGISTER 01405 M01S01366.1mi +++| UJN ITAX RETURN 01406 M01S01367.1mi +++| MRJ SPACE 4,10 01407 M01S01368.1mi +++|** MRJ - CHECK FOR MONITOR FUNCTION REJECTION. 01408 M01S01369.1mi +++|* 01409 M01S01370.1mi +++|* *MRJ* CHECKS TO SEE IF A *TSEM* OR *TGPM* MONITOR FUNCTION 01410 M01S01371.1mi +++|* WAS REJECTED. IF NOT, *MRJ* RETURNS TO THE CALLER. IF A 01411 M01S01372.1mi +++|* FUNCTION WAS REJECTED, *MRJ* SAVES ALL NECESSARY RECALL 01412 M01S01373.1mi +++|* INFORMATION AND THEN CAUSES *1MI* TO ENTER PP RECALL. 01413 M01S01374.1mi +++|* 01414 M01S01375.1mi +++|* ENTRY (A) = RECALL REASON CODE, IF FUNCTION REJECTED. 01415 M01S01376.1mi +++|* (CM+1) = *CPUMTR* REPLY FROM MONITOR FUNCTION. 01416 M01S01377.1mi +++|* (BS - BS+4) = CURRENT BUFFER STATUS. 01417 M01S01378.1mi +++|* 01418 M01S01379.1mi +++|* EXIT TO *ERS* IF FUNCTION WAS REJECTED. 01419 M01S01380.1mi +++|* 01420 M01S01381.1mi +++|* USES T0. 01421 M01S01382.1mi +++|* 01422 M01S01383.1mi +++|* CALLS ROJ. 01423 M01S01384.1mi +++| 01424 M01S01385.1mi +++| 01425 M01S01386.1mi +++| MRJ SUBR ENTRY/EXIT 01426 M01S01387.1mi +++| STM MRJA SAVE RECALL REASON CODE 01427 M01S01388.1mi +++| LDD CM+1 01428 M01S01389.1mi +++| ZJN MRJ1 IF IAF IS INACCESSIBLE 01429 M01S01390.1mi +++| LMC 7777 01430 M01S01391.1mi +++| ZJN MRJ2 IF THE MONITOR FUNCTION WAS REJECTED 01431 M01S01392.1mi +++| UJN MRJX RETURN 01432 M01S01393.1mi +++| 01433 M01S01394.1mi +++|* ROLLOUT WITH SUSPENSION IF IAF IS INACTIVE ONLY. 01434 M01S01395.1mi +++| 01435 M01S01396.1mi +++| MRJ1 LDK ROSU SUSPEND ON JOB ROLLOUT 01436 M01S01397.1mi +++| STD T0 01437 M01S01398.1mi +++| RJM ROJ ROLLOUT USER JOB 01438 M01S01399.1mi +++| LDK IAFF SET FUNCTION REJECTED BECAUSE IAF ABORTED 01439 M01S01400.1mi +++| RAM RCPW+4 01440 M01S01401.1mi +++| 01441 M01S01402.1mi +++|* RECALL PPU ON MONITOR REJECTION FOR 100 MILLISECONDS. 01442 M01S01403.1mi +++| 01443 M01S01404.1mi +++| MRJ2 LDK RECMS2 100 MS RECALL PERIOD 01444 M01S01405.1mi +++| STM ERSA 01445 M01S01406.1mi +++| LDM RCRF+4 BIAS RECALL TIME PERIOD 01446 M01S01407.1mi +++| LPN 7 01447 M01S01408.1mi +++| RAM ERSE 01448 M01S01409.1mi +++| LPN 7 01449 M01S01410.1mi +++| RAM RCPW+4 01450 M01S01411.1mi +++| LPN 7 01451 M01S01412.1mi +++| SBN 4 01452 M01S01413.1mi +++| PJN MRJ3 IF MAXIMUM TIME PERIOD REACHED 01453 M01S01414.1mi +++| AOM RCPW+4 INCREMENT FUNCTION REJECT COUNT 01454 M01S01415.1mi +++| MRJ3 LDM WIAF+3 FIRST POT 01455 M01S01416.1mi +++| STM RCPW+3 01456 M01S01417.1mi +++| LDM MRJA 01457 M01S01418.1mi +++| LJM ERS ENTER PP RECALL 01458 M01S01419.1mi +++| 01459 M01S01420.1mi +++| MRJA CON 0 RECALL REASON CODE 01460 M01S01421.1mi +++| PTI SPACE 4,10 01461 M01S01422.1mi +++|** PTI - PROCESS TERMINAL INPUT. 01462 M01S01423.1mi +++|* 01463 M01S01424.1mi +++|* ENTRY (PTIA) = PREPROCESSED INPUT AHEAD QUEUE. 01464 M01S01425.1mi +++|* (TN) = TERMINAL NUMBER. 01465 M01S01426.1mi +++|* 01466 M01S01427.1mi +++|* EXIT INPUT AHEAD TRANSFERED TO INPUT FET. 01467 M01S01428.1mi +++|* (IR+3- IR+4) = INPUT FET ADDRESS. 01468 M01S01429.1mi +++|* (TT - TT+1) = TERMINAL TABLE ADDRESS. 01469 M01S01430.1mi +++|* (A) = NONZERO IF TRANSFER COMPLETE. 01470 M01S01431.1mi +++|* 01471 M01S01432.1mi +++|* USES CM - CM+4, IR - IR+4, PP, T2, T8 - T9. 01472 M01S01433.1mi +++|*
| Line S01434 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01473 M02S01434.ns2748 ---|* CALLS CID, ITA, MRJ, STA, VFP. 01474 M01S00037.ns2748 +++|* CALLS CID, ITA, MRJ, RRR, SRR, STA, VFP. 01475 M01S01435.1mi +++|* 01476 M01S01436.1mi +++|* MACROS DELAY, MONITOR, PAUSE. 01477 M01S01437.1mi +++| 01478 M01S01438.1mi +++| 01479 M01S01439.1mi +++| PTI SUBR ENTRY/EXIT 01480 M01S01440.1mi +++| 01481 M01S01441.1mi +++|* ASSURE INPUT FET ADDRESS FOLLOWING POSSIBLE OUTPUT FLUSH. 01482 M01S01442.1mi +++| 01483 M01S01443.1mi +++| LDD IA REREAD ORIGINAL INPUT REGISTER 01484 M01S01444.1mi +++| CRD IR 01485 M01S01445.1mi +++| RJM VFP VERIFY FET PARAMETERS 01486 M01S00038.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01487 M01S01446.1mi +++| RJM STA SET TERMINAL TABLE ADDRESS 01488 M01S00039.ns2748 +++| RJM RRR RESTORE R-REGISTER 01489 M01S01447.1mi +++| LDC ** PREPROCESSED INPUT QUEUE POINTER (*CTI*) 01490 M01S01448.1mi +++| PTIA EQU *-1 01491 M01S01449.1mi +++| NJN PTI1 IF QUEUE PREPROCESSED 01492 M01S01450.1mi +++| 01493 M01S01451.1mi +++|* FUNCTION IAF FOR DIRECT INPUT ASSIGNMENT. 01494 M01S01452.1mi +++| 01495 M01S01453.1mi +++| PTI0 SOM PTIC DECREMENT *TSEM* REQUEST COUNT 01496 M01S01454.1mi +++| LDK ZERL RESET *TSEM* REQUEST 01497 M01S00003.271l716 +++| CRD CM 01498 M01S01455.1mi +++| CRM WADI,ON 01499 M01S01456.1mi +++| LDC /REM/VADI 01500 M01S01457.1mi +++| STM WADI 01501 M01S01458.1mi +++| LDD TN TERMINAL NUMBER TO FUNCTION REQUEST 01502 M01S01459.1mi +++| STM WADI+4 01503 M01S01460.1mi +++| LDD MA 01504 M01S01461.1mi +++| CWM WADI,ON 01505 M01S01462.1mi +++| MONITOR TSEM 01506 M01S01463.1mi +++| LDK TALR PRESET POSSIBLE VADI REJECTION 01507 M01S01464.1mi +++| RJM MRJ 01508 M01S01465.1mi +++| 01509 M01S01466.1mi +++|* STATUS PREVIOUS *VADI* REQUEST. 01510 M01S01467.1mi +++| 01511 M01S01468.1mi +++| PTI1 LDD RA SAVE REFERENCE ADDRESS 01512 M01S01469.1mi +++| STD T9 01513 M01S01470.1mi +++| 01514 M01S01471.1mi +++|* DELAY THE INPUT PROCESS TO ALLOW *VADI* COMPLETION. 01515 M01S01472.1mi +++|
| Line S01473 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01516 M02S01473.ns2748 ---| PTI2 LDD TT *VADI* FUNCTION REQUEST RESPONSE 01517 M01S00040.ns2748 +++| PTI2 RJM SRR SET R-REGISTER TO IAF RA 01518 M01S00041.ns2748 +++| LDD TT *VADI* FUNCTION REQUEST RESPONSE 01519 M01S01474.1mi +++| SHN 14 01520 M01S01475.1mi +++| LMD TT+1 01521 M01S01476.1mi +++| ADN /REM/VROT 01522 M01S01477.1mi +++| CRD CM 01523 M01S00042.ns2748 +++| RJM RRR RESTORE R-REGISTER 01524 M01S01478.1mi +++| LDD CM+1 01525 M01S01479.1mi +++| NJP PTI6 IF DIRECT INPUT ASSIGNED 01526 M01S01480.1mi +++| LDD CM+3 01527 M01S01481.1mi +++| LPC 6000 01528 M01S01482.1mi +++| NJP PTI5 IF *TSEM* RESPONSE 01529 M01S01483.1mi +++|* LDN 0 DEFINE DELAY TYPE 01530 M01S01484.1mi +++| STM PTIB 01531 M01S01485.1mi +++| 01532 M01S01486.1mi +++|* DELAY APPROXIMATLY 10 MILLISECONDS. 01533 M01S01487.1mi +++| 01534 M01S01488.1mi +++| PTI2.1 LDN 77 DELAY CYCLE INCREMENT 01535 M01S01489.1mi +++| STD T8 01536 M01S01490.1mi +++| PTI3 SOD T8 01537 M01S01491.1mi +++| NJN PTI3.1 IF DELAY CYCLE NOT EXHAUSTED 01538 M01S01492.1mi +++| LDC 0 (TYPE OF DELAY) 01539 M01S01493.1mi +++| PTIB EQU *-1 01540 M01S01494.1mi +++| ZJP PTI2 IF *TSEM* NOT COMPLETE 01541 M01S01495.1mi +++| LJM PTI0 REISSUE *TSEM* 01542 M01S01496.1mi +++| 01543 M01S01497.1mi +++| PTI3.1 DELAY 01544 M01S01498.1mi +++| PAUSE ALLOW STORAGE RELOCATION 01545 M01S01499.1mi +++| LDD CM+1 ASSURE ERROR CONDITION THIS JOB 01546 M01S01500.1mi +++| ZJN PTI4 IF NO ERROR FLAG AT THIS CP 01547 M01S01501.1mi +++| LDN 0 01548 M01S01502.1mi +++| UJP PTIX DISCONTINUE READ REQUEST 01549 M01S01503.1mi +++| 01550 M01S01504.1mi +++|* ASSURE IAF ACCESSILILITY. 01551 M01S01505.1mi +++| 01552 M01S01506.1mi +++| PTI4 RJM ITA GET IAF CURRENT STATUS 01553 M01S01507.1mi +++| NJP PTI3 IF IAF STILL ACCESSIBLE 01554 M01S01508.1mi +++| LDK ZERL 01555 M01S01509.1mi +++| CRD CM 01556 M01S01510.1mi +++| LDK TALR TREAT AS A *VADI* REJECTION 01557 M01S01511.1mi +++| RJM MRJ THIS WILL ALWAYS EXIT VIA *ERS* 01558 M01S01512.1mi +++| 01559 M01S01513.1mi +++|* *VADI* FUNCTION REJECTION IS POSSIBLE DUE TO LOW POT 01560 M01S01514.1mi +++|* MEMORY WITHIN IAF, NO INPUT AHEAD IN IAF, THE IAF 01561 M01S01515.1mi +++|* RECEIVE BUFFER BUSY, OR OVERFLOW OCCURRED. IF THE 01562 M01S01516.1mi +++|* RECEIVE BUFFER IS BUSY BUT THERE IS TYPEAHEAD DATA 01563 M01S01517.1mi +++|* IN IAF, DELAY AND REISSUE THE *VADI* *TSEM* REQUEST 01564 M01S01518.1mi +++|* (A MAXIMUM OF EIGHT TIMES). IN THE THREE OTHER REJECT 01565 M01S01519.1mi +++|* CASES, ROLL THE JOB. 01566 M01S01520.1mi +++| 01567 M01S01521.1mi +++| PTI5 STD T2 SAVE REJECT TYPE 01568 M01S01522.1mi +++| LMD CM+3 01569 M01S01523.1mi +++| STD CM+3 01570 M01S01524.1mi +++| AOM PTIB SET DELAY TYPE 01571 M01S00043.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01572 M01S01525.1mi +++| LDD TT TERMINAL TABLE ADDRESS 01573 M01S01526.1mi +++| SHN 14 01574 M01S01527.1mi +++| LMD TT+1 01575 M01S01528.1mi +++| ADN /REM/VROT 01576 M01S01529.1mi +++| CWD CM CLEAR REQUEST WORD 01577 M01S00044.ns2748 +++| RJM RRR RESTORE R-REGISTER 01578 M01S01530.1mi +++| LDD T2 CHECK REJECT TYPE 01579 M01S01531.1mi +++| SHN 21-13 01580 M01S01532.1mi +++| PJN PTI5.1 IF REJECT RESPONSE 01581 M01S01533.1mi +++| LDM PTIC CHECK *TSEM* REQUEST COUNT 01582 M01S01534.1mi +++| SHN 6 01583 M01S01535.1mi +++| PJP PTI2.1 IF NOT AT LIMIT 01584 M01S01536.1mi +++| PTI5.1 LDN 0 INCOMPLETION STATUS 01585 M01S01537.1mi +++| 01586 M01S01538.1mi +++| UJP PTIX RETURN 01587 M01S01539.1mi +++| 01588 M01S01540.1mi +++|* SATISFY READ FUNCTION REQUEST ON ACTIVE INPUT. 01589 M01S01541.1mi +++| 01590 M01S01542.1mi +++| PTI6 STD PP SET INPUT AHEAD POT POINTER 01591 M01S01543.1mi +++| 01592 M01S01544.1mi +++|* RESET INPUT FET POINTERS IF STORAGE RELOCATION OCCURRED. 01593 M01S01545.1mi +++| 01594 M01S01546.1mi +++| LDD RA CURRENT REFERENCE ADDRESS 01595 M01S01547.1mi +++| LMD T9 RA PRIOR TO POSSIBLE STORAGE RELOCATION 01596 M01S01548.1mi +++| ZJN PTI7 IF NO STORAGE MOVEMENT OCCURRED 01597 M01S01549.1mi +++| RJM VFP VERIFY FET PARAMETERS 01598 M01S00045.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01599 M01S01550.1mi +++| LDD TT REREAD *VROT* 01600 M01S01551.1mi +++| SHN 14 01601 M01S01552.1mi +++| LMD TT+1 01602 M01S01553.1mi +++| ADN /REM/VROT 01603 M01S01554.1mi +++| CRD CM 01604 M01S00046.ns2748 +++| RJM RRR RESTORE R-REGISTER 01605 M01S01555.1mi +++| PTI7 LDN 0 CLEAR POT POINTER 01606 M01S01556.1mi +++| STD CM+1 01607 M01S01557.1mi +++| LDD CM+4 CLEAR INPUT REQUESTED 01608 M01S01558.1mi +++| SCN 10 01609 M01S01559.1mi +++| STD CM+4 01610 M01S00047.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01611 M01S01560.1mi +++| LDD TT 01612 M01S01561.1mi +++| SHN 14 01613 M01S01562.1mi +++| LMD TT+1 01614 M01S01563.1mi +++| ADN /REM/VROT 01615 M01S01564.1mi +++| CWD CM REWRITE *VROT* 01616 M01S00048.ns2748 +++| RJM RRR RESTORE R-REGISTER 01617 M01S01565.1mi +++| RJM CID COPY INPUT DATA 01618 M01S01566.1mi +++| LDN 1 01619 M01S01567.1mi +++| LJM PTIX EXIT 01620 M01S01568.1mi +++| 01621 M01S01569.1mi +++| PTIC CON 10 *TSEM* REQUEST LIMIT
| Line S01570 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01622 M02S01570.ns2748 ---| PTO SPACE 4,10 01623 M01S00049.ns2748 +++| PTO SPACE 4,20 01624 M01S01571.1mi +++|** PTO - PROCESS TERMINAL OUTPUT. 01625 M01S01572.1mi +++|* 01626 M01S01573.1mi +++|* ENTRY (IR+3 - IR+4) = OUTPUT FET ADDRESS. 01627 M01S01574.1mi +++|* (CD+3 - CD+4) = MAXIMUM OUTPUT BUFFER CONTENT. 01628 M01S01575.1mi +++|* (BS - BS+4) = OUTPUT BUFFER STATUS. 01629 M01S01576.1mi +++|* (TN) = TERMINAL CONNECTION NUMBER. 01630 M01S01577.1mi +++|* 01631 M01S01578.1mi +++|* EXIT TERMINAL OUTPUT ASSIGNED. 01632 M01S01579.1mi +++|* (A) .LT. 0, IF IAF OUTPUT THRESHOLD REACHED. 01633 M01S01580.1mi +++|* (TT - TT+1) = TERMINAL TABLE ADDRESS. 01634 M01S01581.1mi +++|* TO *ERS* IF NOT ALL OUTPUT FLUSHED. 01635 M01S01582.1mi +++|* TO *DPP* IF FULL OUTPUT BUFFER AND NO EOL. 01636 M01S01583.1mi +++|*
| Line S01584 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01637 M02S01584.ns2748 ---|* USES CM - CM+4, CN - CN+4, CD, PP, TO, T2 - T3. 01638 M01S00050.ns2748 +++|* USES CD, PP, CM - CM+4, CN - CN+4, T2 - T3. 01639 M01S01585.1mi +++|*
| Line S01586 Modification History | |
|---|---|
M01 (Added by) | 1mi |
M02 (Updated by) | ns2748 |
Seq # *Modification Id* Act ----------------------------+ 01640 M02S01586.ns2748 ---|* CALLS ANR, CFN, CHG, CIB, COD, GMX, MRJ, ROJ, STA. 01641 M01S00051.ns2748 +++|* CALLS ANR, CHG, CIB, COD, GMX, MRJ, ROJ, RRR, SRR, STA. 01642 M01S01587.1mi +++|* 01643 M01S01588.1mi +++|* MACROS CFET, MONITOR. 01644 M01S01589.1mi +++| 01645 M01S01590.1mi +++| 01646 M01S01591.1mi +++| PTO SUBR ENTRY/EXIT 01647 M01S00052.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01648 M01S01592.1mi +++| RJM STA SET TERMINAL TABLE ADDRESS 01649 M01S00053.ns2748 +++| RJM RRR RESTORE R-REGISTER 01650 M01S01593.1mi +++| LDD BS+4 BUFFER STATUS 01651 M01S01594.1mi +++| LPN 20 01652 M01S01595.1mi +++| NJN PTO1 IF AN EOR/EOF FUNCTION 01653 M01S01596.1mi +++| RJM CIB CHECK BUFFER INPUT STATUS 01654 M01S01597.1mi +++| NJN PTO2 IF NOT A FULL BUFFER 01655 M01S01598.1mi +++| 01656 M01S01599.1mi +++|* IN THE EVENT NETWORK REQUIREMENTS ARE NOT MET FOR 01657 M01S01600.1mi +++|* A BUFFERED WRITE ON A FULL BUFFER, IT IS NECESSARY 01658 M01S01601.1mi +++|* TO ROLLOUT THE USER JOB TO ASSURE BUFFER FLUSH 01659 M01S01602.1mi +++|* COMPLETION. 01660 M01S01603.1mi +++| 01661 M01S01604.1mi +++| AOM PTOA SIGNAL FULL BUFFERED WRITE 01662 M01S01605.1mi +++| UJN PTO2 ATTEMPT OUTPUT TRANSFER 01663 M01S01606.1mi +++| 01664 M01S01607.1mi +++|* IGNORE NETWORK REQUIREMENTS ON EOR/EOF FUNCTION. 01665 M01S01608.1mi +++| 01666 M01S01609.1mi +++| PTO1 AOM ANRA PASS NETWORK OUTPUT REQUIREMENTS 01667 M01S01610.1mi +++| 01668 M01S01611.1mi +++|* SET NETWORK TERMINAL DOWNLINE BLOCK LIMIT. 01669 M01S01612.1mi +++| 01670 M01S01613.1mi +++| PTO2 RJM GMX 01671 M01S01614.1mi +++| ZJN PTO2.2 IF MUX 01672 M01S00054.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01673 M01S01615.1mi +++| LDD TA 01674 M01S01616.1mi +++| SHN 6 01675 M01S01617.1mi +++| ADN /REM/VMST 01676 M01S01618.1mi +++| CRD CM READ TERMINAL MESSAGE BUFFER POINTER 01677 M01S01619.1mi +++| LDD CM+1 01678 M01S01620.1mi +++| SHN 6 01679 M01S01621.1mi +++| ADD TA 01680 M01S01622.1mi +++| SHN 6 01681 M01S01623.1mi +++| ADD CM+2 01682 M01S01624.1mi +++| ADD TN 01683 M01S01625.1mi +++| CRD CM READ TERMINAL *VMST* 01684 M01S00055.ns2748 +++| RJM RRR RESTORE R-REGISTER 01685 M01S01626.1mi +++| LDD CM+1 CHECK TERMINAL CLASS 01686 M01S01627.1mi +++| LPC 377 01687 M01S01628.1mi +++| SBN 10+1 01688 M01S01629.1mi +++| PJN PTO2.1 IF SYNCHRONOUS TERMINAL 01689 M01S01630.1mi +++| AOM ANRB 01690 M01S01631.1mi +++| PTO2.1 LDD CM+3 01691 M01S01632.1mi +++| SHN -6 01692 M01S01633.1mi +++| LPN 37 01693 M01S01634.1mi +++| NJN PTO3 IF NETWORK BLOCKSIZE DEFINED 01694 M01S01635.1mi +++| 01695 M01S01636.1mi +++|* HANG *1MI* ON INCORRECT NETWORK BLOCKSIZE. 01696 M01S01637.1mi +++| 01697 M01S01638.1mi +++|* LDN 0 SET NO ERROR FLAG 01698 M01S01639.1mi +++| RJM CHG CONDITIONALLY HANG PP 01699 M01S01640.1mi +++| PTO2.2 LDN /REM/VOPL DEFAULT BLOCKSIZE 01700 M01S01641.1mi +++| 01701 M01S01642.1mi +++|* REQUIREMENTS DEPEND ON BLOCKSIZE. 01702 M01S01643.1mi +++| 01703 M01S01644.1mi +++| PTO3 SHN 3 CONVERT BLOCKSIZE TO CM WORD COUNT 01704 M01S01645.1mi +++| STD CD 01705 M01S01646.1mi +++| RJM ANR ASSURE TERMINAL REQUIREMENTS 01706 M01S01647.1mi +++| MJP PTO6 IF REQUIREMENTS NOT ASSURED 01707 M01S01648.1mi +++| RJM GMX 01708 M01S01649.1mi +++| ZJP PTO6.1 IF MUX TERMINAL 01709 M01S01650.1mi +++| LDN 0 CLEAR *TSEM* POT COUNT 01710 M01S01651.1mi +++| STD T2 01711 M01S01652.1mi +++| LDK /REM/VTRP *TSEM* QUEUE POINTER 01712 M01S01653.1mi +++| STD T3 01713 M01S01654.1mi +++| SOD T3 01714 M01S00056.ns2748 +++| RJM SRR SET R-REGISTER TO IAF RA 01715 M01S01655.1mi +++| PTO3.5 AOD T3 INCREMENT POINTER 01716 M01S01656.1mi +++| SBK /REM/VTSP END OF QUEUE 01717 M01S01657.1mi +++| PJN PTO4 IF END OF *TSEM* QUEUE 01718 M01S01658.1mi +++| LDD TA IAF REFERENCE ADDRESS 01719 M01S01659.1mi +++| SHN 6 01720 M01S01660.1mi +++| ADD T3 ADD IN POINTER 01721 M01S01661.1mi +++| CRD CM READ IN QUEUE ENTRY 01722 M01S01662.1mi +++| LDD CM+4 CHECK TERMINAL NUMBER 01723 M01S01663.1mi +++| LMD TN 01724 M01S01664.1mi +++| NJN PTO3.5 IF NOT CURRENT TERMINAL 01725 M01S01665.1mi +++| LDD CM CHECK TYPE OF *TSEM* REQUEST 01726 M01S01666.1mi +++| SBK /REM/VADO 01727 M01S01667.1mi +++| NJN PTO3.5 IF NOT *VADO* *TSEM* REQUEST 01728 M01S01668.1mi +++| LDD CM+1 GET POT COUNT 01729 M01S01669.1mi +++| RAD T2 ADD TO PREVIOUS POT COUNT 01730 M01S01670.1mi +++| UJN PTO3.5 CONTINUE SEARCH 01731 M01S01671.1mi +++| PTO4 RJM STA 01732 M01S01672.1mi +++| ADN /REM/VSTT CHECK MESSAGES QUEUED IN IAF 01733 M01S01673.1mi +++| CRD CM 01734 M01S00057.ns2748 +++| RJM RRR RESTORE R-REGISTER 01735 M01S01674.1mi +++| LDD CM+2 01736 M01S01675.1mi +++| LPN 77 01737 M01S01676.1mi +++| ADD T2 ADD *TSEM* QUEUE POT COUNT 01738 M01S01677.1mi +++| STD CM+2 01739 M01S01678.1mi +++| LDK /REM/VNCP COMPARE WITH MAXIMUM ALLOWED 01740 M01S01679.1mi +++| SBD CM+2 01741 M01S01680.1mi +++| MJP PTOX IF IAF OUTPUT THRESHOLD REACHED 01742 M01S01681.1mi +++| 01743 M01S01682.1mi +++|* SET *TSEM* POT MEMORY REQUEST. 01744 M01S01683.1mi +++| 01745 M01S01684.1mi +++| LDK ZERL PRESET *TGPM* SUBFUNCTION 01746 M01S01685.1mi +++| CRD CM 01747 M01S01686.1mi +++| CRM WADO,ON 01748 M01S01687.1mi +++| LDD CD+2 CURRENT ACCEPTABLE TRANSFER 01749 M01S01688.1mi +++| ADN /REM/VCPC-1+2 ROUND UP AND ALLOW FOR HEADER 01750 M01S01689.1mi +++| SHN -3 CM WORD COUNT TO POT COUNT 01751 M01S01690.1mi +++| STD CM+1 IAF POT COUNT REQUEST 01752 M01S01691.1mi +++| MONITOR TGPM GET POT MEMORY 01753 M01S01692.1mi +++| LDK TALR 01754 M01S01693.1mi +++| RJM MRJ 01755 M01S01694.1mi +++| 01756 M01S01695.1mi +++|* SET IAF *VADO* REQUEST FOR OUTPUT BUFFER FLUSH. 01757 M01S01696.1mi +++| 01758 M01S01697.1mi +++| LDD CM+1 GET POT POINTER 01759 M01S01698.1mi +++| STD PP CURRENT IAF POT MEMORY POINTER 01760 M01S01699.1mi +++| STM WADO+3 FIRST POT IN ASSIGN OUTPUT *VADO* 01761 M01S01700.1mi +++| STM WADO+2 LAST POT IN ASSIGN OUTPUT 01762 M01S01701.1mi +++| LDC /REM/VADO PRESET ASSIGN DIRECT OUTPUT REQUEST 01763 M01S01702.1mi +++| STM WADO 01764 M01S01703.1mi +++| LDD TN 01765 M01S01704.1mi +++| STM WADO+4 SET TERMINAL CONNECTION IN *VADO* REQUEST 01766 M01S01705.1mi +++| 01767 M01S01706.1mi +++|* ASSIGN TERMINAL OUTPUT. 01768 M01S01707.1mi +++| 01769 M01S01708.1mi +++| RJM COD COPY OUTPUT DATA 01770 M01S01709.1mi +++| LDD MA MESSAGE BUFFER 01771 M01S01710.1mi +++| CWM WADO,ON 01772 M01S00004.271l716 +++| LDK ZERL 01773 M01S00005.271l716 +++| CRD CM 01774 M01S01711.1mi +++| MONITOR TSEM ASSIGN DIRECT OUTPUT *VADO* 01775 M01S01712.1mi +++| 01776 M01S01713.1mi +++|* THE OUTPUT POINTER SHOULD NOT BE UPDATED UNTIL AFTER THE 01777 M01S01714.1mi +++|* *VADO* *TSEM* REQUEST HAS BEEN HONORED. OTHERWISE, IF THE 01778 M01S01715.1mi +++|* *VADO* WAS REJECTED AND THE JOB ROLLED, THEN *1RO* WOULD NOT 01779 M01S01716.1mi +++|* BE ABLE TO FLUSH THAT OUTPUT WHICH *1MI* PUT INTO POTS. 01780 M01S01717.1mi +++| 01781 M01S01718.1mi +++| LDK TDOR PRESET POSSIBLE *VADO* REJECTION 01782 M01S01719.1mi +++| RJM MRJ 01783 M01S01720.1mi +++| LDN ZERL REQUEST ACCEPTED, SO UPDATE OUTPUT POINTER 01784 M01S01721.1mi +++| CRD CN 01785 M01S01722.1mi +++| LDD OT 01786 M01S01723.1mi +++| STD CN+3 01787 M01S01724.1mi +++| LDD OT+1 01788 M01S01725.1mi +++| STD CN+4 01789 M01S01726.1mi +++| CFET 3 01790 M01S01727.1mi +++| CWD CN 01791 M01S01728.1mi +++| LDN 0 01792 M01S01729.1mi +++|* LDN 1 01793 M01S01730.1mi +++| PTOB EQU *-1 01794 M01S01731.1mi +++| ZJN PTO7 IF ALL OUTPUT FLUSHED 01795 M01S01732.1mi +++| LDC RECMS2 01796 M01S01733.1mi +++| STM ERSA 01797 M01S01734.1mi +++| PTO5 LDK TALR 01798 M01S01735.1mi +++| LJM ERS ENTER RECALL STACK 01799 M01S01736.1mi +++| 01800 M01S01737.1mi +++|* ROLLOUT JOB ON BUFFERED WRITE, FULL CONDITION NO *EOL* 01801 M01S01738.1mi +++| 01802 M01S01739.1mi +++| PTO6 LDN 0 FULL BUFFERED WRITE CONDITION 01803 M01S01740.1mi +++|* LDN 1 01804 M01S01741.1mi +++| PTOA EQU *-1 01805 M01S01742.1mi +++| ZJN PTO7 IF NOT FULL OUTPUT BUFFER AND NO *EOL* 01806 M01S01743.1mi +++| 01807 M01S01744.1mi +++|* ALLOW ROUTINE *1RO* TO COMPLETE OUTPUT REQUEST. 01808 M01S01745.1mi +++| 01809 M01S01746.1mi +++| PTO6.1 LDK ROSR 01810 M01S01747.1mi +++| STD T0 01811 M01S01748.1mi +++| RJM ROJ ROLLOUT USER JOB 01812 M01S01749.1mi +++| UJN PTO5 ENTER RECALL 01813 M01S01750.1mi +++| 01814 M01S01751.1mi +++| PTO7 LJM PTOX RETURN 01815 M01S01752.1mi +++| RBS SPACE 4,10 01816 M01S01753.1mi +++|** RBS - REVERSE BUFFER SCAN. 01817 M01S01754.1mi +++|* 01818 M01S01755.1mi +++|* ENTRY (CD+1 - CD+2) = BEGINNING BUFFER SCAN CONTENT. 01819 M01S01756.1mi +++|* (FT - FT+1) = BUFFER FIRST WORD ADDRESS. 01820 M01S01757.1mi +++|* (LM - LM+1) = BUFFER LAST WORD ADDRESS. 01821 M01S01758.1mi +++|* (T3 - T3+1) = RUNNING BUFFER *IN* POINTER. 01822 M01S01759.1mi +++|* 01823 M01S01760.1mi +++|* EXIT (CD+1 - CD+2) = ACCEPTABLE BUFFER CM WORD COUNT 01824 M01S01761.1mi +++|* ENCOMPASSING COMPLETE LOGICAL LINES. 01825 M01S01762.1mi +++|* (A) = LESS THAN ZERO IF NO *EOL* ENCOUNTERED. 01826 M01S01763.1mi +++|* 01827 M01S01764.1mi +++|* USES CM - CM+4. 01828 M01S01765.1mi +++| 01829 M01S01766.1mi +++| 01830 M01S01767.1mi +++|* ENTER SEARCH LOOP FOR AN EXISTING *EOL* BYTE. 01831 M01S01768.1mi +++| 01832 M01S01769.1mi +++| RBS2 LDD T3 BEGIN BUFFER SCAN 01833 M01S01770.1mi +++| SHN 6 01834 M01S01771.1mi +++| ADD RA 01835 M01S01772.1mi +++| SHN 6 01836 M01S01773.1mi +++| ADD T3+1 01837 M01S01774.1mi +++| SBN 1 BACK OFF RUNNING *IN* POINTER 01838 M01S01775.1mi +++| CRD CM READ BUFFER ENTRY 01839 M01S01776.1mi +++| SHN 14 01840 M01S01777.1mi +++| SBD RA 01841 M01S01778.1mi +++| SHN 6 01842 M01S01779.1mi +++| STD T3+1 01843 M01S01780.1mi +++| SHN -14 01844 M01S01781.1mi +++| STD T3 01845 M01S01782.1mi +++| LDD CM+4 01846 M01S01783.1mi +++| ZJN RBSX IF AN *EOL* BYTE ENCOUNTERED 01847 M01S01784.1mi +++| LDD CD+1 DECREMENT ACCEPTABLE CM WORD TRANSFER 01848 M01S01785.1mi +++| SHN 14 01849 M01S01786.1mi +++| LMD CD+2 01850 M01S01787.1mi +++| SBN 1 01851 M01S01788.1mi +++| STD CD+2 01852 M01S01789.1mi +++| SHN -14 01853 M01S01790.1mi +++| STD CD+1 01854 M01S01791.1mi +++| ADD CD+2 01855 M01S01792.1mi +++| NJN RBS1 IF NOT A COMPLETE BUFFER SCAN 01856 M01S01793.1mi +++| LCN 0 LINE FRAGMENT STATUS 01857 M01S01794.1mi +++| 01858 M01S01795.1mi +++| RBS SUBR ENTRY/EXIT 01859 M01S01796.1mi +++| RBS1 LDD T3 ASSURE BUFFER WRAP 01860 M01S01797.1mi +++| SBD FT BUFFER FIRST WORD ADDRESS 01861 M01S01798.1mi +++| SHN 14 01862 M01S01799.1mi +++| LMD T3+1 01863 M01S01800.1mi +++| SBD FT+1 01864 M01S01801.1mi +++| NJP RBS2 IF *FIRST* NOT REACHED 01865 M01S01802.1mi +++| LDD LM 01866 M01S01803.1mi +++| STD T3 SET *IN = LIMIT* 01867 M01S01804.1mi +++| LDD LM+1 01868 M01S01805.1mi +++| STD T3+1 01869 M01S01806.1mi +++| LJM RBS2 CONTINUE BUFFER SCAN 01870 M01S01807.1mi +++| ROJ SPACE 4,10 01871 M01S01808.1mi +++|** ROJ - ROLL USER JOB. 01872 M01S01809.1mi +++|* 01873 M01S01810.1mi +++|* ENTRY (T0) = *COMSCPS* ROLLOUT OPTION REQUEST. 01874 M01S01811.1mi +++|* 01875 M01S01812.1mi +++|* EXIT CONTROL POINT ROLLOUT REQUESTED. 01876 M01S01813.1mi +++|* 01877 M01S01814.1mi +++|* USES CM - CM+4. 01878 M01S01815.1mi +++|* 01879 M01S01816.1mi +++|* MACROS MONITOR. 01880 M01S01817.1mi +++| 01881 M01S01818.1mi +++| 01882 M01S01819.1mi +++| ROJ SUBR ENTRY/EXIT 01883 M01S01820.1mi +++| LDN ZERL 01884 M01S01821.1mi +++| CRD CM 01885 M01S01822.1mi +++| LDD T0 REQUESTED OPTION 01886 M01S01823.1mi +++| STD CM+1 01887 M01S01824.1mi +++| MONITOR ROCM 01888 M01S01825.1mi +++| UJN ROJX RETURN 01889 M01S01826.1mi +++| SLF SPACE 4,10 01890 M01S01827.1mi +++|** SLF - SEARCH LIST OF FILE ENTRIES. 01891 M01S01828.1mi +++|* 01892 M01S01829.1mi +++|* ENTRY SCAN LIST OF FILE *LOFW* OR RA+2 ENTRIES 01893 M01S01830.1mi +++|* FOR POSSIBLE OUTPUT BUFFER FLUSH CANDIDATES. 01894 M01S01831.1mi +++|* 01895 M01S01832.1mi +++|* EXIT (IR+3 - IR+4) = BUFFER OUTPUT FET ADDRESS. 01896 M01S01833.1mi +++|* (A) = NONZERO IF FILE ENTRY TO BE FLUSHED. 01897 M01S01834.1mi +++|* 01898 M01S01835.1mi +++|* USES T1 - T5, CM - T9. 01899 M01S01836.1mi +++|* 01900 M01S01837.1mi +++|* CALLS DFS, VAD. 01901 M01S01838.1mi +++| 01902 M01S01839.1mi +++| 01903 M01S01840.1mi +++| SLF SUBR ENTRY/EXIT 01904 M01S01841.1mi +++| LDD FL 01905 M01S01842.1mi +++| ZJN SLFX IF NO FIELD LENGTH 01906 M01S01843.1mi +++| 01907 M01S01844.1mi +++|* PROCESS LIST OF FILE ENTRIES *LOFW*. 01908 M01S01845.1mi +++| 01909 M01S01846.1mi +++| LDD CP LIST OF FILES POINTER 01910 M01S01847.1mi +++| ADC LOFW 01911 M01S01848.1mi +++| CRD CM 01912 M01S01849.1mi +++| LDD CM+1 01913 M01S01850.1mi +++| LPN 37 01914 M01S01851.1mi +++| SHN 14 01915 M01S01852.1mi +++| LMD CM+2 01916 M01S01853.1mi +++| ZJN SLF1 IF *LOFW* NOT IN USE 01917 M01S01854.1mi +++| ADN 1 OFFSET INTO *LOFW* TABLE 01918 M01S01855.1mi +++| RJM VAD VALIDATE ENTRY ADDRESS 01919 M01S01856.1mi +++| ZJN SLFX IF INCORRECT ADDRESS 01920 M01S01857.1mi +++| CRD T8-3 READ *LOFW* ENTRY 01921 M01S01858.1mi +++| RJM DFS DETERMINE FLUSH STATUS 01922 M01S01859.1mi +++| NJP SLF3 SET UP FLUSH CANDIDATE 01923 M01S01860.1mi +++| UJN SLFX IF NOT A FLUSH CANDIDATE 01924 M01S01861.1mi +++| 01925 M01S01862.1mi +++|* PROCESS RA+2 LIST IF NO *LOFW*. 01926 M01S01863.1mi +++| 01927 M01S01864.1mi +++| SLF1 AOM SLFA RA+2 INDEX 01928 M01S01865.1mi +++| LPN 77 01929 M01S01866.1mi +++| LMN PGNR MAXIMUM RA+2 LIST LENGTH 01930 M01S01867.1mi +++| ZJN SLFX IF END OF LIST 01931 M01S01868.1mi +++| LDD RA REFERENCE ADDRESS 01932 M01S01869.1mi +++| SHN 6 01933 M01S01870.1mi +++| SLFA ADN 1 INCREMENT RA+2 INDEX 01934 M01S01871.1mi +++| CRD T8-3 READ RA+2 ENTRY 01935 M01S01872.1mi +++| LDD T8-3 01936 M01S01873.1mi +++| ZJP SLFX IF END OF LIST 01937 M01S01874.1mi +++| 01938 M01S01875.1mi +++|* VALIDATE FET/FIT ADDRESS. 01939 M01S01876.1mi +++| 01940 M01S01877.1mi +++| LDD T8 01941 M01S01878.1mi +++| LPN 37 01942 M01S01879.1mi +++| SHN 14 01943 M01S01880.1mi +++| LMD T8+1 01944 M01S01881.1mi +++| ADN 5 BIAS FET/FIT LENGTH 01945 M01S01882.1mi +++| RJM VAD VALIDATE LIST ENTRY 01946 M01S01883.1mi +++| ZJN SLF1 IF FET/FIT OUTSIDE FL 01947 M01S01884.1mi +++| SBN 5 01948 M01S01885.1mi +++| CRD T1 DETERMINE IF FET/FIT 01949 M01S01886.1mi +++| LDD T1+3 01950 M01S01887.1mi +++| LPN 37 01951 M01S01888.1mi +++| ADD T1+4 01952 M01S01889.1mi +++| NJN SLF2 IF NOT A POSSIBLE FIT 01953 M01S01890.1mi +++| 01954 M01S01891.1mi +++|* VALIDATE FET POINTER WITHIN FIT TABLE. 01955 M01S01892.1mi +++|* NOTE. FIT+0 RESERVED BITS (17-0) DISTINGUISH 01956 M01S01893.1mi +++|* FIT TABLE DESCRIPTION. 01957 M01S01894.1mi +++| 01958 M01S01895.1mi +++| LDD T8 01959 M01S01896.1mi +++| LPN 37 01960 M01S01897.1mi +++| SHN 14 01961 M01S01898.1mi +++| LMD T8+1 01962 M01S01899.1mi +++| ADN 1 01963 M01S01900.1mi +++| RJM VAD VALIDATE FIT ADDRESS 01964 M01S01901.1mi +++| ZJP SLF1 IF FIT ADDRESS OUTSIDE FL 01965 M01S01902.1mi +++| CRD T8-3 READ FET ADDRESS WITHIN FIT 01966 M01S01903.1mi +++| LDD T8 01967 M01S01904.1mi +++| LPN 37 01968 M01S01905.1mi +++| ADD T8+1 01969 M01S01906.1mi +++| ZJP SLF1 IF NO FET ADDRESS WITHIN FIT 01970 M01S01907.1mi +++|
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/1mi.txt · Last modified: by 127.0.0.1