cdc:nos2.source:opl.opl871:deck:1to
Deck 1TO
2 Modifications
Source
Seq # *Modification Id* Act ----------------------------+ 00001 M01S00001.1to +++| IDENT 1TO,ITO 00002 M01S00002.1to +++| PERIPH 00003 M01S00003.1to +++| BASE MIXED 00004 M01S00004.1to +++| SST 00005 M01S00005.1to +++|*COMMENT 1TO - TERMINAL INPUT/OUTPUT.
| Line S00006 Modification History | |
|---|---|
M01 (Added by) | 1to |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 00006 M02S00006.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1978. 00007 M01S00001.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 00008 M01S00007.1to +++| TITLE 1TO - TERMINAL INPUT/OUTPUT. 00009 M01S00008.1to +++| SPACE 4 00010 M01S00009.1to +++|*** 1TO - TERMINAL INPUT/OUTPUT. 00011 M01S00010.1to +++|* 00012 M01S00011.1to +++|* R. E. TATE. 70/09/13. 00013 M01S00012.1to +++|* L. G. ALEXANDER. 77/04/01. 00014 M01S00013.1to +++|* A. J. KOMOR. 77/11/01. 00015 M01S00014.1to +++|* L. K. TUTTLE 81/11/02. 00016 M01S00015.1to +++| SPACE 4 00017 M01S00016.1to +++|*** 1TO IS CALLED BY *IAF* TO PROCESS A QUEUE OF 00018 M01S00017.1to +++|* REQUESTS FOR TERMINAL INPUT AND OUTPUT WHICH REQUIRE 00019 M01S00018.1to +++|* DISK ACCESSES. THE QUEUE PASSED TO *1TO* IS SORTED IN 00020 M01S00019.1to +++|* ORDER OF REQUEST TYPE, INPUT FIRST. *1TO* WILL ACCESS THE 00021 M01S00020.1to +++|* EJT TO OBTAIN DISK INFORMATION. REQUESTS OF EACH 00022 M01S00021.1to +++|* TYPE ARE THEN PROCESSED BY EQUIPMENT AND TRACK TO 00023 M01S00022.1to +++|* MINIMIZE DISK TIME. IF THERE ARE REQUESTS FOR MORE THAN 00024 M01S00023.1to +++|* ONE MASS STORAGE DEVICE, THE ENTRIES ARE PROCESSED ON 00025 M01S00024.1to +++|* A DEVICE BASIS IN ORDER OF AVAILABLE CHANNELS. 00026 M01S00025.1to +++|* 00027 M01S00026.1to +++|* *1TO* MAY ALSO BE CALLED BY *1RO* TO PROCESS THE 00028 M01S00027.1to +++|* FIRST BUFFER OF DATA ON A ROLLOUT. 00029 M01S00028.1to +++|* 00030 M01S00029.1to +++|* UPON *1TO* COMPLETION, THE REQUEST QUEUE IS 00031 M01S00030.1to +++|* RETURN TO IAF. THE UPDATED POT POINTERS IN 00032 M01S00031.1to +++|* IT ARE USED TO DROP DUMPED SOURCE INPUT POTS, AND TO 00033 M01S00032.1to +++|* ASSIGN FILLED OUTPUT DATA POTS. 00034 M01S00033.1to +++| SPACE 4,20 00035 M01S00034.1to +++|*** CALL. 00036 M01S00035.1to +++|* 00037 M01S00036.1to +++|* 00038 M01S00037.1to +++|* FROM *IAF* - 00039 M01S00038.1to +++|* 00040 M01S00039.1to +++|*T 18/ *1TO*,6/ CP,12/ PP,6/ ,18/ RETURN ADDRESS
Figure
00041 M01S00040.1to +++|* 00042 M01S00041.1to +++|* CP IAF CONTROL POINT NUMBER. 00043 M01S00042.1to +++|* PP POT POINTER TO FIRST POT OF REQUESTS. 00044 M01S00043.1to +++|* 00045 M01S00044.1to +++|* 00046 M01S00045.1to +++|* CALL FROM *1RO*. 00047 M01S00046.1to +++|* 00048 M01S00047.1to +++|* 18/ *1TO*,6/ CP,24/ 0,12/ TN 00049 M01S00048.1to +++|* 00050 M01S00049.1to +++|* CP IAF CONTROL POINT NUMBER. 00051 M01S00050.1to +++|* TN TERMINAL NUMBER / APPLICATION CONNECTION NUMBER. 00052 M01S00051.1to +++| SPACE 4,20 00053 M01S00052.1to +++|*** *IAF* REQUEST QUEUE FORMAT. 00054 M01S00053.1to +++|* 00055 M01S00054.1to +++|* 00056 M01S00055.1to +++|* FORMAT WHEN CALLED. 00057 M01S00056.1to +++|* 00058 M01S00057.1to +++|*T, 6/ FT,6/ RT,12/ EJTO,12/ NP,12/ FP,12/ TN
Figure
00059 M01S00058.1to +++|* 00060 M01S00059.1to +++|* FT FILE TYPE. 00061 M01S00060.1to +++|* 0 = PRIMARY FILE. 00062 M01S00061.1to +++|* 1 = ROLLOUT FILE. 00063 M01S00062.1to +++|* RT REQUEST TYPE. 00064 M01S00063.1to +++|* 0 = DUMP INPUT TO PRIMARY FILE. 00065 M01S00064.1to +++|* 1 = OUTPUT TO TERMINAL. 00066 M01S00065.1to +++|* EJTO EJT ORDINAL OF JOB. 00067 M01S00066.1to +++|* NP NUMBER OF POTS TO DUMP TO PRIMARY FILE (INPUT). 00068 M01S00067.1to +++|* FP FIRST POT FOR EITHER INPUT OR OUTPUT. 00069 M01S00068.1to +++|* TN TERMINAL NUMBER / APPLICATION CONNECTION NUMBER. 00070 M01S00069.1to +++|* 00071 M01S00070.1to +++|* THE REQUEST UNDERGOES SIGNIFICANT CHANGE IN PRESET. 00072 M01S00071.1to +++|* THE ENTRY AND EXIT FORMATS FOR PRESET ARE FOUND IN PRESET 00073 M01S00072.1to +++|* HEADER DOCUMENTATION. 00074 M01S00073.1to +++|* 00075 M01S00074.1to +++|* 00076 M01S00075.1to +++|* FORMAT ON TERMINATION - 00077 M01S00076.1to +++|* 00078 M01S00077.1to +++|*T 6/ RT,6/ NP,12/ 0,12/ LP,12/ FP,12/ TN
Figure
00079 M01S00078.1to +++|* 00080 M01S00079.1to +++|* RT REQUEST TYPE. 00081 M01S00080.1to +++|* NP NUMBER OF POTS FILLED (OUTPUT ONLY). 00082 M01S00081.1to +++|* LP LAST POT TO DROP OR ASSIGN (0 IF NONE TO DROP). 00083 M01S00082.1to +++|* FP FIRST POT OF INPUT OR FOR OUTPUT (0 IF NONE TO DROP). 00084 M01S00083.1to +++|* TN TERMINAL NUMBER / APPLICATION CONNECTION NUMBER. 00085 M01S00084.1to +++| TEPS SPACE 4,10 00086 M01S00085.1to +++|** TEPS - TABLE OF ENTRY POINTERS (SORTED). 00087 M01S00086.1to +++|* 00088 M01S00087.1to +++|* EACH ENTRY CONSISTS OF TWO BYTES - 00089 M01S00088.1to +++|* THE FIRST BYTE CONTAINS THE POINTER TO THE REQUEST IN EBUF. 00090 M01S00089.1to +++|* THE SECOND BYTE CONTAINS 00091 M01S00090.1to +++|* FOR INPUT - THE SECTOR NUMBER OF THE CURRENT EOI. 00092 M01S00091.1to +++|* FOR OUTPUT - THE WORD COUNT IN THE CURRENT SECTOR. 00093 M01S00092.1to +++| SPACE 4,10 00094 M01S00093.1to +++|** ABORT CONDITIONS. 00095 M01S00094.1to +++|* 00096 M01S00095.1to +++|* *1TO* WILL ABORT *IAF* IF THE FOLLOWING CONDITIONS ARE 00097 M01S00096.1to +++|* ENCOUNTERED. A DAYFILE MESSAGE * 1TO ABORT NN, PPPP.* WILL 00098 M01S00097.1to +++|* BE ISSUED WHERE *NN* = ERROR CODE AND *PPPP* = PARAMETER 00099 M01S00098.1to +++|* POT POINTER. 00100 M01S00099.1to +++|* 00101 M01S00100.1to +++|* INPUT REQUESTS AFTER OUTPUT REQUESTS FROM IAF. (NN = 1) 00102 M01S00101.1to +++|* NO REQUESTS IN THE QUEUE. (NN = 2) 00103 M01S00102.1to +++|* REQUEST FOR A NON - MASS STORAGE DEVICE. (NN = 3) 00104 M01S00103.1to +++|* *UTEM* REJECT OR UNEXPECTED EJT STATUS. (NN = 4) 00105 M01S00104.1to +++|* ENTRY COUNT LOST WHILE SORTING QUEUE. (NN = 5) 00106 M01S00105.1to +++|* PC = 0 ON SOURCE DUMP. (NN = 6) 00107 M01S00106.1to +++|* PP = 0 ON OUTPUT REQUEST. (NN = 7) 00108 M01S00107.1to +++| SPACE 4 00109 M01S00108.1to +++|** ASSEMBLY VARIABLES FOR DEFINITION COMMON DECKS. 00110 M01S00109.1to +++| 00111 M01S00110.1to +++| 00112 M01S00111.1to +++| WEI$ EQU 1 DEFINE VARIABLE BUFFER (FOR *COMPWEI*) 00113 M01S00112.1to +++| SPACE 4 00114 M01S00113.1to +++|** DEFINITION COMMON DECKS. 00115 M01S00114.1to +++| 00116 M01S00115.1to +++| 00117 M01S00116.1to +++| SPACE 4 00118 M01S00117.1to +++|*CALL,COMPMAC 00119 M01S00118.1to +++|*CALL COMSEJT 00120 M01S00119.1to +++|*CALL,COMSMSP 00121 M01S00120.1to +++|*CALL COMSJRO 00122 M01S00121.1to +++|*CALL COMSPIM 00123 M01S00122.1to +++|*CALL,COMSREM 00124 M01S00123.1to +++|*CALL COMSTCM 00125 M01S00124.1to +++|*CALL COMSWEI 00126 M01S00125.1to +++| SPACE 4 00127 M01S00126.1to +++|**** DIRECT LOCATION ASSIGNMENTS. 00128 M01S00127.1to +++| SPACE 2 00129 M01S00128.1to +++| S3 EQU 17 SCRATCH CELL 00130 M01S00129.1to +++| FS EQU 20 - 24 FILE STATUS BYTES (5 LOCATIONS) 00131 M01S00130.1to +++| CN EQU 25 - 31 TERMINAL TABLE VROT WORD (5 LOCATIONS) 00132 M01S00131.1to +++| TN EQU 32 TERMINAL NUMBER 00133 M01S00132.1to +++| TT EQU 33 - 34 TERMINAL TABLE ADDRESS (2 LOCATIONS) 00134 M01S00133.1to +++| CT EQU 35 POT LENGTH 00135 M01S00134.1to +++| SC EQU 36 NUMBER OF WORDS IN CURRENT SECTOR 00136 M01S00135.1to +++| LW EQU 41 LAST WORD IN PREVIOUS SECTOR 00137 M01S00136.1to +++| S2 EQU 42 SCRATCH CELL (OUTPUT PROCESSING) 00138 M01S00137.1to +++| LN EQU 43 - 47 LINE NUMBER (5 LOCATIONS) 00139 M01S00138.1to +++| IN EQU LN INPUT REQUEST COUNTER (PRS) 00140 M01S00139.1to +++| OT EQU LN+1 OUTPUT REQUEST COUNTER (PRS) 00141 M01S00140.1to +++| EC EQU LN+2 ENTRY COUNT (PRS) 00142 M01S00141.1to +++| NW EQU 50 USER BLOCKSIZE IN CM WORDS. 00143 M01S00142.1to +++| WL EQU 51 NUMBER OF WORDS OF OUTPUT IN BUFFER. 00144 M01S00143.1to +++| PP EQU 52 POT POINTER 00145 M01S00144.1to +++| PL EQU 53 LENGTH OF LAST POT 00146 M01S00145.1to +++| S1 EQU PL SCRATCH CELL 00147 M01S00146.1to +++| PC EQU 54 NUMBER OF POTS TO BE DUMPED 00148 M01S00147.1to +++| PA EQU 60 - 61 POT ADDRESS (2 LOCATIONS) 00149 M01S00148.1to +++| BC EQU 62 BUFFER COUNT 00150 M01S00149.1to +++| BA EQU 63 CURRENT FWA OF BUFFER 00151 M01S00150.1to +++| EP EQU 64 CURRENT ENTRY POINTER 00152 M01S00151.1to +++| CB EQU 65 CONTROL BYTE INDEX 00153 M01S00152.1to +++| WC EQU 66 WORD COUNT (POSITION) IN CURRENT SECTOR 00154 M01S00153.1to +++| 00155 M01S00154.1to +++|**** 00156 M01S00155.1to +++| EJECT 00157 M01S00156.1to +++| 1TO TITLE MAIN ROUTINE. 00158 M01S00157.1to +++|** 1TO - MAIN ROUTINE. 00159 M01S00158.1to +++|* 00160 M01S00159.1to +++|* THIS ROUTINE PROCESSES A LIST OF REQUESTS ON ONE OR MORE 00161 M01S00160.1to +++|* EQUIPMENTS. IF MORE THAN ONE EQUIPMENT IS PRESENT ALL 00162 M01S00161.1to +++|* LIST ENTRIES ARE SEARCHED FOR THE ONE WITH THE SMALLEST 00163 M01S00162.1to +++|* DEVICE ACTIVITY. ONCE THIS SELECTION IS MADE THE 00164 M01S00163.1to +++|* INPUT/OUTPUT OPERATION IS PERFORMED AND THE CHANNEL IS 00165 M01S00164.1to +++|* RELEASED. FINALLY THE ENTRY PROCESSING IS COMPLETED BY 00166 M01S00165.1to +++|* EITHER TERMINATING THE SOURCE PROCESSING (IF INPUT 00167 M01S00166.1to +++|* PROCESSING) OR FILLING POTS (IF OUTPUT PROCESSING). 00168 M01S00167.1to +++|* AFTER ALL ENTRIES IN THE LIST HAVE BEEN PROCESSED *IAF* 00169 M01S00168.1to +++|* IS SENT NOTIFICATION THAT ALL ENTRIES ARE COMPLETE. 00170 M01S00169.1to +++| 00171 M01S00170.1to +++| 00172 M01S00171.1to +++| ORG PPFW 00173 M01S00172.1to +++| ITO LJM PRS PRESET 00174 M01S00173.1to +++| 00175 M01S00174.1to +++| ITO1 LDM ITOB REMAINING INPUT REQUESTS 00176 M01S00175.1to +++| ADN 0 2TO LOADED FLAG 00177 M01S00176.1to +++| ITOA EQU *-1 00178 M01S00177.1to +++| NJN ITO2 IF LOADING NOT NECESSARY 00179 M01S00178.1to +++| RJM DRC DROP RESERVED CHANNEL 00180 M01S00179.1to +++| EXECUTE 2TO 00181 M01S00180.1to +++| AOM ITOA SET 2TO LOADED 00182 M01S00181.1to +++| LDN 0 SET NO EQUIPMENT 00183 M01S00182.1to +++| STD T5 00184 M01S00183.1to +++| ITO2 RJM CKN CHECK NEXT EQUIPMENT 00185 M01S00184.1to +++| ZJN ITO3 IF SAME EQUIPMENT 00186 M01S00185.1to +++| RJM CUA CHECK UNIT ACTIVITY 00187 M01S00186.1to +++| 00188 M01S00187.1to +++|* PROCESS ENTRY. 00189 M01S00188.1to +++| 00190 M01S00189.1to +++| ITO3 SETMS IO,(ND) 00191 M01S00190.1to +++| LDM 4,EP SET TERMINAL NUMBER 00192 M01S00191.1to +++| STD TN 00193 M01S00192.1to +++| RJM STA SET TERMINAL TABLE ADDRESS 00194 M01S00193.1to +++| ADN VROT 00195 M01S00194.1to +++| CRD CN *VROT* 00196 M01S00195.1to +++| LDM 3,EP SET POT POINTER 00197 M01S00196.1to +++| STD PP 00198 M01S00197.1to +++| LDM 1,EP SET TRACK 00199 M01S00198.1to +++| STD T6 00200 M01S00199.1to +++| STD FS+2 00201 M01S00200.1to +++| LDM 2,EP SET SECTOR 00202 M01S00201.1to +++| STD T7 00203 M01S00202.1to +++| STD FS+3 00204 M01S00203.1to +++| LDM CKNB SET EXTRA PARAMETER 00205 M01S00204.1to +++| STD T1 00206 M01S00205.1to +++| LDM 1,T1 00207 M01S00206.1to +++| STD WC 00208 M01S00207.1to +++| LDC 0 CHECK INPUT REQUEST COUNT 00209 M01S00208.1to +++| ITOB EQU *-1 00210 M01S00209.1to +++| ZJN ITO4 IF NO INPUT REQUESTS REMAINING 00211 M01S00210.1to +++| LDD WC SET CURRENT EOI 00212 M01S00211.1to +++| STD T7 00213 M01S00212.1to +++| RJM IDP INPUT DATA PPOCESSING 00214 M01S00213.1to +++| SOM ITOB DECREMENT INPUT REQUEST COUNT 00215 M01S00214.1to +++| LDN 0 SET INPUT REQUEST PROCESSED 00216 M01S00215.1to +++| UJN ITO5 CONTINUE PROCESSING QUEUE 00217 M01S00216.1to +++| 00218 M01S00217.1to +++| ITO4 RJM /2TO/ODP PROCESS OUTPUT REQUEST 00219 M01S00218.1to +++| LDC 100 00220 M01S00219.1to +++| ADD PC 00221 M01S00220.1to +++| 00222 M01S00221.1to +++|* RETURN HERE AT END OF INPUT/OUTPUT PROCESSING. 00223 M01S00222.1to +++| 00224 M01S00223.1to +++| ITO5 STI EP SET REQUEST TYPE 00225 M01S00224.1to +++| LDN 0 SET REQUEST PROCESSED 00226 M01S00225.1to +++| STM 1,EP 00227 M01S00226.1to +++| SOM TCRQ DECREMENT TOTAL COUNT OF REQUESTS 00228 M01S00227.1to +++| ZJN ITO6 IF NO MORE ENTRIES 00229 M01S00228.1to +++| LJM ITO1 PROCESS NEXT ENTRY 00230 M01S00229.1to +++| 00231 M01S00230.1to +++|* ALL ENTRIES ARE COMPLETED AND NOTIFICATION SENT TO *IAF*. 00232 M01S00231.1to +++| 00233 M01S00232.1to +++| ITO6 ENDMS 00234 M01S00233.1to +++| LDD IA RETURN ENTRIES AND COMPLETE 00235 M01S00234.1to +++| CRD IR 00236 M01S00235.1to +++| ITO7 RJM SPA WRITE REQUEST POT 00237 M01S00236.1to +++| CWM EBUF,CT 00238 M01S00237.1to +++| ITOC EQU *-1 REQUEST QUEUE ADDRESS 00239 M01S00238.1to +++| LDN VCPC*5 00240 M01S00239.1to +++| RAM ITOC 00241 M01S00240.1to +++| RJM UPP UPDATE POT POINTER 00242 M01S00241.1to +++| NJN ITO7 IF MORE POTS TO WRITE 00243 M01S00242.1to +++| LDD IA 00244 M01S00243.1to +++| CRD IR 00245 M01S00244.1to +++| LDN 0 SET COMPLETION FOR *IAF* 00246 M01S00245.1to +++| STD IR 00247 M01S00246.1to +++| STD IR+1 00248 M01S00247.1to +++| LDD IR+3 00249 M01S00248.1to +++| SHN 6 00250 M01S00249.1to +++| ADD RA 00251 M01S00250.1to +++| SHN 6 00252 M01S00251.1to +++| ADD IR+4 00253 M01S00252.1to +++| CWD IR 00254 M01S00253.1to +++|* UJN DPP DROP PP 00255 M01S00254.1to +++| DPP SPACE 4,10 00256 M01S00255.1to +++|** DPP - DROP PP. 00257 M01S00256.1to +++| 00258 M01S00257.1to +++| 00259 M01S00258.1to +++| DPP MONITOR DPPM DROP PP 00260 M01S00259.1to +++| LJM PPR EXIT TO PP RESIDENT 00261 M01S00260.1to +++| TRQC SPACE 4,10 00262 M01S00261.1to +++| TCRQ CON 0 TOTAL COUNT OF ALL REQUESTS 00263 M01S00262.1to +++| ABT SPACE 4,10 00264 M01S00263.1to +++|** ABT - ABORTS IAF. 00265 M01S00264.1to +++|* 00266 M01S00265.1to +++|* ENTRY (A) = ERROR CODE. 00267 M01S00266.1to +++|* PARAMETER POT POINTER SET IN MESSAGE. 00268 M01S00267.1to +++|* 00269 M01S00268.1to +++|* CALLS C2D, DFM. 00270 M01S00269.1to +++|* 00271 M01S00270.1to +++|* MACROS MONITOR. 00272 M01S00271.1to +++| 00273 M01S00272.1to +++| 00274 M01S00273.1to +++| ABT SUBR ENTRY 00275 M01S00274.1to +++| RJM C2D 00276 M01S00275.1to +++| STM ABTA+6 00277 M01S00276.1to +++| LDC ABTA ISSUE * 1TO ABORT NN, PPPP.* 00278 M01S00277.1to +++| RJM DFM DAYFILE MESSAGE 00279 M01S00278.1to +++| MONITOR ABTM 00280 M01S00279.1to +++| LJM PPR EXIT TO PP RESIDENT 00281 M01S00280.1to +++| 00282 M01S00281.1to +++| ABTA DATA C* 1TO ABORT NN, PPPP.* 00283 M01S00282.1to +++| CAB SPACE 4,10 00284 M01S00283.1to +++|** CAB - COMPUTE ALLOWABLE BLOCKSIZE. 00285 M01S00284.1to +++|* 00286 M01S00285.1to +++|* ENTRY (TN) = TERMINAL NUMBER. 00287 M01S00286.1to +++|* 00288 M01S00287.1to +++|* EXIT (A) = BLOCKSIZE IN CM WORDS. 00289 M01S00288.1to +++|* (NW) = SAME AS (A). 00290 M01S00289.1to +++|* 00291 M01S00290.1to +++|* USES CM - CM+4. 00292 M01S00291.1to +++| 00293 M01S00292.1to +++| 00294 M01S00293.1to +++| CAB SUBR ENTRY/EXIT 00295 M01S00294.1to +++| LDM PRCA 00296 M01S00295.1to +++| SBD TN 00297 M01S00296.1to +++| PJN CAB1 IF MUX TERMINAL 00298 M01S00297.1to +++| LDD RA 00299 M01S00298.1to +++| SHN 6 00300 M01S00299.1to +++| ADK VMST 00301 M01S00300.1to +++| CRD CM 00302 M01S00301.1to +++| LDD CM+1 00303 M01S00302.1to +++| SHN 6 00304 M01S00303.1to +++| ADD RA 00305 M01S00304.1to +++| SHN 6 00306 M01S00305.1to +++| ADD CM+2 00307 M01S00306.1to +++| ADD TN 00308 M01S00307.1to +++| CRD CM 00309 M01S00308.1to +++| LDD CM+3 00310 M01S00309.1to +++| SHN -6 00311 M01S00310.1to +++| LPN 37 00312 M01S00311.1to +++| SHN 3 00313 M01S00312.1to +++| UJN CAB2 SET NETWORK TERMINAL BLOCKSIZE 00314 M01S00313.1to +++| 00315 M01S00314.1to +++| CAB1 LDK VOPL*VCPC SET MUX TERMINAL BLOCKSIZE 00316 M01S00315.1to +++| CAB2 SBN 2 ALLOW FOR LINKAGE WORDS 00317 M01S00316.1to +++| STD NW 00318 M01S00317.1to +++| UJN CABX RETURN 00319 M01S00318.1to +++| TTL 1TO - GENERAL SUBROUTINES. 00320 M01S00319.1to +++| CKN SPACE 4,15 00321 M01S00320.1to +++|** CKN - CHECK THE NEXT EQUIPMENT. 00322 M01S00321.1to +++|* 00323 M01S00322.1to +++|* ENTRY (T5) = CURRENT EST ORDINAL. 00324 M01S00323.1to +++|* (CKNB) = POINTER TO LAST ENTRY ADDRESS. 00325 M01S00324.1to +++|* 00326 M01S00325.1to +++|* EXIT (A) .EQ. 0, IF THE SAME EST ORDINAL. 00327 M01S00326.1to +++|* (A) .NE. 0, NO REQUEST OF SAME TYPE AND EQ FOUND. 00328 M01S00327.1to +++|* (T5) = CURRENT EST ORDINAL. 00329 M01S00328.1to +++|* (EP) = POINTER TO NEXT REQUEST. 00330 M01S00329.1to +++|* 00331 M01S00330.1to +++|* USES EP. 00332 M01S00331.1to +++| 00333 M01S00332.1to +++| 00334 M01S00333.1to +++| CKN2 LDN 1 SET NOT FOUND 00335 M01S00334.1to +++| 00336 M01S00335.1to +++| CKN SUBR ENTRY/EXIT 00337 M01S00336.1to +++| LDD T5 00338 M01S00337.1to +++| ZJN CKN2 IF NO EQUIPMENT TO MATCH 00339 M01S00338.1to +++| LDN 2 ADVANCE TO NEXT ENTRY 00340 M01S00339.1to +++| RAM CKNB 00341 M01S00340.1to +++| LMM CUAD 00342 M01S00341.1to +++| ZJN CKN2 IF END OF REQUESTS OF SAME TYPE 00343 M01S00342.1to +++| LDM * NEXT ENTRY TO PROCESS - RESET BY *CUA* 00344 M01S00343.1to +++| CKNB EQU *-1 00345 M01S00344.1to +++| STD EP 00346 M01S00345.1to +++| LDM 1,EP 00347 M01S00346.1to +++| ZJN CKN2 IF NEXT ENTRY ALREADY PROCESSED 00348 M01S00347.1to +++| LDD T5 CURRENT EQUIPMENT 00349 M01S00348.1to +++| LMI EP 00350 M01S00349.1to +++| UJN CKNX EXIT 00351 M01S00350.1to +++| CUA SPACE 4,10 00352 M01S00351.1to +++|** CUA - CHECK UNIT ACTIVITY. 00353 M01S00352.1to +++|* DETERMINES THE BEST EQUIPMENT TO PROCESS ENTRIES FOR WITHIN 00354 M01S00353.1to +++|* AN INPUT OR OUTPUT GROUP. THIS DETERMINATION IS BASED ON 00355 M01S00354.1to +++|* MASS STORAGE ACTIVITY. 00356 M01S00355.1to +++|* 00357 M01S00356.1to +++|* ENTRY (ITOB) = INPUT REQUESTS REMAINING. 00358 M01S00357.1to +++|* (CUAA) = FWA OF OUTPUT REQUEST GROUP. 00359 M01S00358.1to +++|* (CUAB) = LWA+1 OF ALL REQUESTS. 00360 M01S00359.1to +++|* (CUAC) = FWA OF GROUP TO BE PROCESSED. 00361 M01S00360.1to +++|* (CUAD) = LWA+1 OF GROUP TO BE PROCESSED. 00362 M01S00361.1to +++|* 00363 M01S00362.1to +++|* CUAA - CUAD CONTAIN POINTERS INTO *TEPS*. 00364 M01S00363.1to +++|* 00365 M01S00364.1to +++|* EXIT (EP) = CORRECT ENTRY POINTER. 00366 M01S00365.1to +++|* (T5) = CORRECT EQUIPMENT. 00367 M01S00366.1to +++|* (CKNB) = POINTER TO ENTRY POINTER IN *TEPS*. 00368 M01S00367.1to +++|* 00369 M01S00368.1to +++|* USES T1 - T5, CM - CM+4, EP. 00370 M01S00369.1to +++|* 00371 M01S00370.1to +++|* CALLS DRC. 00372 M01S00371.1to +++|* 00373 M01S00372.1to +++|* MACROS ENDMS, SFA. 00374 M01S00373.1to +++| 00375 M01S00374.1to +++| 00376 M01S00375.1to +++| CUA SUBR ENTRY/EXIT 00377 M01S00376.1to +++| RJM DRC DROP RESERVED CHANNEL 00378 M01S00377.1to +++| LDM ITOB 00379 M01S00378.1to +++| NJN CUA1 IF INPUT GROUP NOT PROCESSED 00380 M01S00379.1to +++| LDC TEPS SET FWA OF OUTPUT REQUEST GROUP 00381 M01S00380.1to +++| CUAA EQU *-1 (SET BY PRS) 00382 M01S00381.1to +++| STM CUAC 00383 M01S00382.1to +++| LDC TEPS SET LWA+1 OF ALL ENTRIES 00384 M01S00383.1to +++| CUAB EQU *-1 (SET BY PRS) 00385 M01S00384.1to +++| STM CUAD 00386 M01S00385.1to +++| CUA1 LDC TEPS START SEARCH AT BEGINNING OF GROUP 00387 M01S00386.1to +++| CUAC EQU *-1 00388 M01S00387.1to +++| STD T3 00389 M01S00388.1to +++| LCN 0 INITIALIZE EQUIPMENT 00390 M01S00389.1to +++| STD T5 00391 M01S00390.1to +++| STD T2 INITIALIZE ACTIVITY COUNT 00392 M01S00391.1to +++| 00393 M01S00392.1to +++|* PROCESS ENTRY. 00394 M01S00393.1to +++| 00395 M01S00394.1to +++| CUA2 LDI T3 SET ENTRY ADDRESS 00396 M01S00395.1to +++| STD EP 00397 M01S00396.1to +++| LDM 1,EP 00398 M01S00397.1to +++| ZJN CUA3 IF ENTRY ALREADY PROCESSED 00399 M01S00398.1to +++| LDI EP 00400 M01S00399.1to +++| LMD T5 00401 M01S00400.1to +++| ZJN CUA3 IF THIS EQUIPMENT ALREADY CHECKED 00402 M01S00401.1to +++| LMD T5 00403 M01S00402.1to +++| STD T5 CHECK ACTIVITY 00404 M01S00403.1to +++| SFA EST 00405 M01S00404.1to +++| ADK EQDE 00406 M01S00405.1to +++| CRD CM 00407 M01S00406.1to +++| LDD CM+4 00408 M01S00407.1to +++| SHN 3 00409 M01S00408.1to +++| ADN DALL 00410 M01S00409.1to +++| CRD CM 00411 M01S00410.1to +++| LDD CM 00412 M01S00411.1to +++| SBD T2 00413 M01S00412.1to +++| PJN CUA3 IF NOT BETTER THAN PREVIOUS BEST 00414 M01S00413.1to +++| RAD T2 00415 M01S00414.1to +++| LDD EP 00416 M01S00415.1to +++| STD T1 00417 M01S00416.1to +++| LDD T3 MOVE TEPS POINTER 00418 M01S00417.1to +++| STD T4 00419 M01S00418.1to +++| LDD T2 00420 M01S00419.1to +++| ZJN CUA4 IF NO ACTIVITY ON DEVICE 00421 M01S00420.1to +++| CUA3 LDN 2 CHECK NEXT ENTRY 00422 M01S00421.1to +++| RAD T3 00423 M01S00422.1to +++| LMC * LWA+1 OF CURRENT GROUP 00424 M01S00423.1to +++| CUAD EQU *-1 00425 M01S00424.1to +++| NJP CUA2 IF MORE ENTRIES 00426 M01S00425.1to +++| LDD T1 SET BEST ENTRY 00427 M01S00426.1to +++| STD EP 00428 M01S00427.1to +++| LDI EP 00429 M01S00428.1to +++| STD T5 00430 M01S00429.1to +++| CUA4 LDD T4 00431 M01S00430.1to +++| STM CKNB 00432 M01S00431.1to +++| LJM CUAX EXIT 00433 M01S00432.1to +++| DRC SPACE 4,10 00434 M01S00433.1to +++|** DRC DROP RESERVED CHANNEL. 00435 M01S00434.1to +++|* 00436 M01S00435.1to +++|* ENTRY (T5) = EST ORDINAL IF CHANNEL RESERVED. 00437 M01S00436.1to +++|* 00438 M01S00437.1to +++|* MACROS ENDMS. 00439 M01S00438.1to +++| 00440 M01S00439.1to +++| 00441 M01S00440.1to +++| DRC SUBR ENTRY/EXIT 00442 M01S00441.1to +++| LDD T5 00443 M01S00442.1to +++| ZJN DRCX IF NO CHANNEL RESERVED 00444 M01S00443.1to +++| ENDMS 00445 M01S00444.1to +++| LDN 0 00446 M01S00445.1to +++| STD T5 00447 M01S00446.1to +++| UJN DRCX EXIT 00448 M01S00447.1to +++| PRC SPACE 4,10 00449 M01S00448.1to +++|** PRC - PROCESS *1RO* CALL. 00450 M01S00449.1to +++|* 00451 M01S00450.1to +++|* ENTRY (TN) = TERMINAL NUMBER. 00452 M01S00451.1to +++|* (WC) = 0. 00453 M01S00452.1to +++|* (PRCA) = LAST MUX TERMINAL NUMBER. 00454 M01S00453.1to +++|* 00455 M01S00454.1to +++|* EXIT TO *DPP*. 00456 M01S00455.1to +++|* 00457 M01S00001.271l716 +++|* USES CM - CM+4. 00458 M01S00002.271l716 +++|* 00459 M01S00456.1to +++|* CALLS LDP, UTT. 00460 M01S00457.1to +++|* 00461 M01S00458.1to +++|* MACROS DELAY, EXECUTE, MONITOR, PAUSE. 00462 M01S00459.1to +++| 00463 M01S00460.1to +++| 00464 M01S00461.1to +++| PRC EXECUTE 2TO LOAD OUTPUT OVERLAY 00465 M01S00462.1to +++| AOM /2TO/UTTA SKIP THE *UDA* CALL 00466 M01S00463.1to +++| LDC IROB 00467 M01S00464.1to +++| RJM /2TO/LDP LOAD POTS 00468 M01S00465.1to +++| RJM /2TO/UTT UPDATE TERMINAL TABLE 00469 M01S00466.1to +++| LDD PC PUT POT COUNT IN REQUEST 00470 M01S00467.1to +++| STM PRCB+1 00471 M01S00468.1to +++| PRC1 LDD MA MAKE OUTPUT ASSIGNMENT 00472 M01S00469.1to +++| CWM PRCB,ON 00473 M01S00003.271l716 +++| LDK ZERL 00474 M01S00004.271l716 +++| CRD CM 00475 M01S00470.1to +++| MONITOR TSEM 00476 M01S00471.1to +++| LDD CM+1 00477 M01S00472.1to +++| ZJP DPP IF *IAF* INACCESSIBLE OR ERROR 00478 M01S00473.1to +++| LMC 7777 00479 M01S00474.1to +++| NJP DPP IF REQUEST ACCEPTED 00480 M01S00475.1to +++| PAUSE ST 00481 M01S00476.1to +++| LDC 3600 *TSEM* QUEUE FULL - DELAY AND RETRY 00482 M01S00477.1to +++| STD T1 00483 M01S00478.1to +++| PRC2 DELAY 00484 M01S00479.1to +++| SOD T1 00485 M01S00480.1to +++| ZJN PRC1 IF TIME TO REISSUE REQUEST 00486 M01S00481.1to +++| UJN PRC2 CONTINUE TO DELAY 00487 M01S00482.1to +++| 00488 M01S00483.1to +++| 00489 M01S00484.1to +++| PRCA CON 0 LAST MUX TERMINAL 00490 M01S00485.1to +++| PRCB VFD 12/VASO,12/,12/,12/,12/ 00491 M01S00486.1to +++| SPACE 4,10 00492 M01S00487.1to +++|** COMMON DECKS. 00493 M01S00488.1to +++| 00494 M01S00489.1to +++| 00495 M01S00490.1to +++|*CALL COMPC2D 00496 M01S00491.1to +++|*CALL COMPSPA 00497 M01S00492.1to +++|*CALL COMPSTA 00498 M01S00493.1to +++| EJT$ EQU 1 SELECT EJT PROCESSOR 00499 M01S00494.1to +++| IFP$ EQU 1 SELECT REMOTE INITIALIZATION CODE 00500 M01S00495.1to +++|*CALL COMPGFP 00501 M01S00496.1to +++|*CALL COMPUPP 00502 M01S00497.1to +++| IDP TITLE INPUT DATA PROCESSING. 00503 M01S00498.1to +++|** IDP - INPUT DATA PROCESSING. 00504 M01S00499.1to +++|* 00505 M01S00500.1to +++|* ENTRY (PP) = POT POINTER. 00506 M01S00501.1to +++|* (T5 - T7) = DISK PARAMETERS. 00507 M01S00502.1to +++|* DRIVER LOADED. 00508 M01S00503.1to +++|* 00509 M01S00504.1to +++|* EXIT CHANNEL RELEASED. 00510 M01S00505.1to +++|* (TESA) = UPDATED DISK INFORMATION. 00511 M01S00506.1to +++|* INPUT DATA APPENDED TO PRIMARY FILE. 00512 M01S00507.1to +++|* 00513 M01S00508.1to +++|* USES BA, LP, PC, PL, PP. 00514 M01S00509.1to +++|* 00515 M01S00510.1to +++|* CALLS ABT, DPB, RPD, SLB, WES. 00516 M01S00511.1to +++|* 00517 M01S00512.1to +++|* MACROS ENDMS, MONITOR, SETMS. 00518 M01S00513.1to +++| 00519 M01S00514.1to +++| 00520 M01S00515.1to +++| IDP SUBR ENTRY/EXIT 00521 M01S00516.1to +++| LDM 2,EP SET LENGTH OF DATA IN LAST POT 00522 M01S00517.1to +++| SHN -11 00523 M01S00518.1to +++| ADC LDNI 00524 M01S00519.1to +++| STM IDPA 00525 M01S00520.1to +++| LDM 2,EP SET NUMBER OF POTS TO PROCESS 00526 M01S00521.1to +++| LPC 777 00527 M01S00522.1to +++| STM IDPB 00528 M01S00523.1to +++| NJN IDP1 IF POTS TO DUMP 00529 M01S00524.1to +++| 00530 M01S00525.1to +++|* ABORT IAF ON ILLEGAL POT COUNT. 00531 M01S00526.1to +++| 00532 M01S00527.1to +++| ENDMS 00533 M01S00528.1to +++| LDN 6 00534 M01S00529.1to +++| RJM ABT ABORT IAF 00535 M01S00530.1to +++| 00536 M01S00531.1to +++|* SET POT PARAMETERS. 00537 M01S00532.1to +++| 00538 M01S00533.1to +++| IDP1 LDC IBUF BUFFER ADDRESS 00539 M01S00534.1to +++| STD BA 00540 M01S00535.1to +++| IDPA LDN 0 LENGTH OF DATA IN LAST POT 00541 M01S00536.1to +++| STD PL 00542 M01S00537.1to +++| LDC 0 NUMBER OF POTS TO PROCESS 00543 M01S00538.1to +++| IDPB EQU *-1 00544 M01S00539.1to +++| STD PC SET POT COUNT 00545 M01S00540.1to +++| ADC -BUFP 00546 M01S00541.1to +++| MJN IDP2 IF ROOM IN ONE BUFFER 00547 M01S00542.1to +++| STM IDPB 00548 M01S00543.1to +++| LDC BUFP ONE BUFFER FULL 00549 M01S00544.1to +++| STD PC 00550 M01S00545.1to +++| LDN 0 PROCESS ALL OF LAST POT 00551 M01S00546.1to +++| STD PL 00552 M01S00547.1to +++| UJN IDP3 PROCESS BUFFER 00553 M01S00548.1to +++| 00554 M01S00549.1to +++| IDP2 LDN 0 SET COMPLETE 00555 M01S00550.1to +++| STM IDPB 00556 M01S00551.1to +++| 00557 M01S00552.1to +++|* APPEND INPUT TO PRIMARY FILE. 00558 M01S00553.1to +++| 00559 M01S00554.1to +++| IDP3 RJM RPD READ POT DATA TO PP BUFFER 00560 M01S00555.1to +++| SETMS IO,(ND),IBUF 00561 M01S00556.1to +++| LDC IBUF 00562 M01S00557.1to +++| STD BA 00563 M01S00558.1to +++| RJM SLB SET SECTOR LINKAGE BYTES 00564 M01S00559.1to +++| LDC IBUF RESET BUFFER ADDRESS 00565 M01S00560.1to +++| STD BA 00566 M01S00561.1to +++| RJM DPB DUMP BUFFER TO DISK 00567 M01S00562.1to +++| LDM IDPB 00568 M01S00563.1to +++| ZJN IDP4 IF PROCESS COMPLETE 00569 M01S00564.1to +++| LJM IDP1 LOOP FOR NEXT BUFFER 00570 M01S00565.1to +++| 00571 M01S00566.1to +++| IDP4 RJM WES WRITE EOI SECTOR 00572 M01S00567.1to +++| 00573 M01S00568.1to +++|* UPDATE TERMINAL TABLE. 00574 M01S00569.1to +++| 00575 M01S00570.1to +++| AOD CN+4 SET TERMINAL TABLE COMPLETE 00576 M01S00571.1to +++| LDD TT UPDATE TERMINAL TABLE 00577 M01S00572.1to +++| SHN 14 00578 M01S00573.1to +++| ADD TT+1 00579 M01S00574.1to +++| ADN VROT 00580 M01S00575.1to +++| CWD CN 00581 M01S00576.1to +++| LJM IDPX RETURN 00582 M01S00577.1to +++| DPB SPACE 4,10 00583 M01S00578.1to +++|** DPB - DUMP POT BUFFER TO DISK. 00584 M01S00579.1to +++|* 00585 M01S00580.1to +++|* ENTRY (BA) = BUFFER ADDRESS. 00586 M01S00581.1to +++|* (BC) = BUFFER COUNT. 00587 M01S00582.1to +++|* (T4) = CHANNEL. 00588 M01S00583.1to +++|* (T5) = EQUIPMENT. 00589 M01S00584.1to +++|* (T6) = CURRENT TRACK. 00590 M01S00585.1to +++|* (T7) = CURRENT SECTOR. 00591 M01S00586.1to +++|* 00592 M01S00587.1to +++|* EXIT (T6) = CURRENT TRACK AFTER WRITE. 00593 M01S00588.1to +++|* (T7) = NEXT SECTOR AFTER WRITE. 00594 M01S00589.1to +++|* 00595 M01S00590.1to +++|* USES BA, BC, T6, T7. 00596 M01S00591.1to +++|* 00597 M01S00592.1to +++|* CALLS POS, WDS. 00598 M01S00593.1to +++| 00599 M01S00594.1to +++| 00600 M01S00595.1to +++| DPB SUBR ENTRY/EXIT 00601 M01S00596.1to +++| DPB1 LDD BA WRITE DISK SECTOR 00602 M01S00597.1to +++| LMC WCSF WRITE CONSECUTIVE SECTOR 00603 M01S00598.1to +++| RJM WDS 00604 M01S00599.1to +++| MJN DPBX IF FATAL DISK ERROR 00605 M01S00600.1to +++| AOD T7 ADVANCE SECTOR 00606 M01S00601.1to +++| LDI BA SET NEXT SECTOR TO WRITE 00607 M01S00602.1to +++| SHN 6 00608 M01S00603.1to +++| PJN DPB2 IF NOT NEW TRACK 00609 M01S00604.1to +++| SHN -6 00610 M01S00605.1to +++| STD T6 00611 M01S00606.1to +++| LDN 0 00612 M01S00607.1to +++| STD T7 00613 M01S00608.1to +++| DPB2 LDC 502 ADVANCE BUFFER POINTER 00614 M01S00609.1to +++| RAD BA 00615 M01S00610.1to +++| SOD BC DECREMENT BUFFER COUNT 00616 M01S00611.1to +++| NJN DPB1 IF NOT LAST SECTOR 00617 M01S00612.1to +++| UJN DPBX RETURN 00618 M01S00613.1to +++| RPD SPACE 4,15 00619 M01S00614.1to +++|** RPD - READ POT DATA TO PPU BUFFER. 00620 M01S00615.1to +++|* 00621 M01S00616.1to +++|* ENTRY (BA) = FWA PP BUFFER. 00622 M01S00617.1to +++|* (PP) = FIRST POT POINTER. 00623 M01S00618.1to +++|* (PC) = POT COUNT. 00624 M01S00619.1to +++|* (PL) = LENGTH OF DATA IN LAST POT. 00625 M01S00620.1to +++|* 00626 M01S00621.1to +++|* EXIT ((BA)) = LOADED WITH DATA FROM POTS. 00627 M01S00622.1to +++|* (BC) = NUMBER OF SECTORS READ (BUFFER COUNT). 00628 M01S00623.1to +++|* REQUEST QUEUE ENTRY UPDATED. 00629 M01S00624.1to +++|* WORD COUNT SET IN SECTOR CONTROL BYTES. 00630 M01S00625.1to +++|* 00631 M01S00626.1to +++|* USES BA, BC, T3, WC. 00632 M01S00627.1to +++|* 00633 M01S00628.1to +++|* CALLS SPA, UPP. 00634 M01S00629.1to +++| 00635 M01S00630.1to +++| 00636 M01S00631.1to +++| RPD7 AOD BC COUNT BUFFER 00637 M01S00632.1to +++| LDD WC SET WORD COUNT IN SECTOR CONTROL BYTES 00638 M01S00633.1to +++| STI BA 00639 M01S00634.1to +++| LDM RPDA ADVANCE BUFFER ADDRESS 00640 M01S00635.1to +++| STD BA 00641 M01S00636.1to +++| LDD PC 00642 M01S00637.1to +++| NJN RPD1 IF NOT LAST POT 00643 M01S00638.1to +++| LDD T3 SET POTS TO DROP IN QUEUE ENTRY 00644 M01S00639.1to +++| STM 2,EP 00645 M01S00640.1to +++| NJN RPDX IF POTS TO DROP 00646 M01S00641.1to +++| STM 3,EP CLEAR FIRST POT POINTER 00647 M01S00642.1to +++| 00648 M01S00643.1to +++| RPD SUBR ENTRY/EXIT 00649 M01S00644.1to +++| LDN 0 INITIALIZE BUFFER COUNT 00650 M01S00645.1to +++| STD BC 00651 M01S00646.1to +++| STD T3 00652 M01S00647.1to +++| RPD1 AOD BA SET FWA OF DATA IN BUFFER 00653 M01S00648.1to +++| ADN 1 00654 M01S00649.1to +++| STM RPDA 00655 M01S00650.1to +++| LDN 0 RESET WORD COUNT 00656 M01S00651.1to +++| STD WC 00657 M01S00652.1to +++| 00658 M01S00653.1to +++|* READ NEXT POT TO BUFFER. 00659 M01S00654.1to +++| 00660 M01S00655.1to +++| RPD2 RJM SPA SET POT ADDRESS 00661 M01S00656.1to +++| CRM *,CT 00662 M01S00657.1to +++| RPDA EQU *-1 00663 M01S00658.1to +++| SOD PC DECREMENT POT COUNT 00664 M01S00659.1to +++| NJN RPD3 IF NOT LAST POT 00665 M01S00660.1to +++| LDD PL 00666 M01S00661.1to +++| NJN RPD4 IF POT LENGTH PASSED 00667 M01S00662.1to +++| RPD3 LDD PP SET LAST POT TO DROP 00668 M01S00663.1to +++| STD T3 00669 M01S00664.1to +++| 00670 M01S00665.1to +++|* ADVANCE TO NEXT POT. 00671 M01S00666.1to +++| 00672 M01S00667.1to +++| LDN VCPC 00673 M01S00668.1to +++| RPD4 RAD WC ADVANCE WORD COUNT 00674 M01S00669.1to +++| LDN VCPC*5 ADVANCE READ ADDRESS 00675 M01S00670.1to +++| RAM RPDA 00676 M01S00671.1to +++| RJM UPP UPDATE POT POINTER 00677 M01S00672.1to +++| LDD PP 00678 M01S00673.1to +++| ZJN RPD6 IF END OF CHAIN 00679 M01S00674.1to +++| LDD WC 00680 M01S00675.1to +++| SHN -6 00681 M01S00676.1to +++| NJN RPD5 IF FULL SECTOR 00682 M01S00677.1to +++| LDD PC 00683 M01S00678.1to +++| NJN RPD2 IF NOT LAST POT 00684 M01S00679.1to +++| RPD5 LJM RPD7 TERMINATE SECTOR 00685 M01S00680.1to +++| 00686 M01S00681.1to +++| RPD6 STD PC TERMINATE DATA PROCESSING 00687 M01S00682.1to +++| STM IDPB 00688 M01S00683.1to +++| UJN RPD5 TERMINATE SECTOR 00689 M01S00684.1to +++| SLB SPACE 4,10 00690 M01S00685.1to +++|** SLB - SET SECTOR LINKAGE BYTES. 00691 M01S00686.1to +++|* 00692 M01S00687.1to +++|* NOTE - IT IS ASSUMED THAT THE SECTOR LIMIT OF THE 00693 M01S00688.1to +++|* DEVICE WHICH THE PRIMARY FILE RESIDES UPON IS LESS THAN 00694 M01S00689.1to +++|* THE MAXIMUM NUMBER OF SECTORS CONTAINED IN *BUFF*. 00695 M01S00690.1to +++|* 00696 M01S00691.1to +++|* ENTRY (BA) = BUFFER ADDRESS. 00697 M01S00692.1to +++|* (T5) = EQUIPMENT. 00698 M01S00693.1to +++|* (T6) = TRACK. 00699 M01S00694.1to +++|* (T7) = SECTOR. 00700 M01S00695.1to +++|* 00701 M01S00696.1to +++|* EXIT ((BA)) = LINKAGE BYTES SET. 00702 M01S00697.1to +++|* (BC) = TRUNCATED, IF ADDITIONAL TRACK UNAVAILABLE. 00703 M01S00698.1to +++|* 00704 M01S00699.1to +++|* USES CM - CM+4, T1, T2, T3. 00705 M01S00700.1to +++| 00706 M01S00701.1to +++| 00707 M01S00702.1to +++| SLB SUBR ENTRY/EXIT 00708 M01S00703.1to +++| LDM SLM SET LAST BUFFER ON THIS TRACK 00709 M01S00704.1to +++| SBN 1 00710 M01S00705.1to +++| STD T3 00711 M01S00706.1to +++| SBD T7 SET NUMBER OF SECTORS REMAINING ON TRACK 00712 M01S00707.1to +++| STD SC 00713 M01S00708.1to +++| SBD BC 00714 M01S00709.1to +++| PJN SLB1 IF ROOM ON PRESENT TRACK 00715 M01S00710.1to +++| RJM SNT SET TRACK LINK 00716 M01S00711.1to +++| STD CM+4 00717 M01S00712.1to +++| NJN SLB1 IF TRACK ASSIGNED 00718 M01S00713.1to +++| LDD SC TRUNCATE DATA 00719 M01S00714.1to +++| STD BC 00720 M01S00715.1to +++| 00721 M01S00716.1to +++|* SET LINKAGE BYTE. 00722 M01S00717.1to +++| 00723 M01S00718.1to +++| SLB1 LDD T7 SET SECTOR INDEX 00724 M01S00719.1to +++| STD T1 00725 M01S00720.1to +++| LDD BC SET BUFFER COUNT 00726 M01S00721.1to +++| STD T2 00727 M01S00722.1to +++| SLB2 LDD T1 00728 M01S00723.1to +++| LMD T3 00729 M01S00724.1to +++| NJN SLB3 IF NOT LAST BUFFER ON THIS TRACK 00730 M01S00725.1to +++| STD T1 RESET SECTOR INDEX 00731 M01S00726.1to +++| LDD CM+4 SET NEXT TRACK IN LINKAGE 00732 M01S00727.1to +++| UJN SLB4 00733 M01S00728.1to +++| 00734 M01S00729.1to +++| SLB3 AOD T1 ADVANCE SECTOR INDEX 00735 M01S00730.1to +++| SLB4 STI BA SET SECTOR LINKAGE 00736 M01S00731.1to +++| LDC 502 ADVANCE BUFFER ADDRESS 00737 M01S00732.1to +++| RAD BA 00738 M01S00733.1to +++| SOD T2 00739 M01S00734.1to +++| NJN SLB2 IF NOT LAST BUFFER 00740 M01S00735.1to +++| LJM SLBX RETURN 00741 M01S00736.1to +++| WES SPACE 4,10 00742 M01S00737.1to +++|** WES - WRITE EOI SECTOR. 00743 M01S00738.1to +++|* 00744 M01S00739.1to +++|* ENTRY (T5) = EQUIPMENT. 00745 M01S00740.1to +++|* (T6) = CURRENT TRACK. 00746 M01S00741.1to +++|* (T7) = CURRENT SECTOR. 00747 M01S00742.1to +++|* (TN) = TERMINAL NUMBER. 00748 M01S00743.1to +++|* 00749 M01S00744.1to +++|* EXIT EOI SECTOR WRITTEN, UPDATED DISK INFORMATION SET. 00750 M01S00745.1to +++|* 00751 M01S00746.1to +++|* CALLS STA, WEI. 00752 M01S00747.1to +++| 00753 M01S00748.1to +++| 00754 M01S00749.1to +++| WES SUBR ENTRY/EXIT 00755 M01S00750.1to +++| RJM STA SET TERMINAL TABLE ADDRESS 00756 M01S00751.1to +++| ADN VUIT GET EJT 00757 M01S00752.1to +++| CRD CM 00758 M01S00753.1to +++| LDD CM+4 00759 M01S00754.1to +++| SFA EJT 00760 M01S00755.1to +++| ADN PRFE 00761 M01S00756.1to +++| CRD CM 00762 M01S00757.1to +++| LDD CM+4 SET FIRST TRACK OF FILE IN EOI SECTOR 00763 M01S00758.1to +++| STM BUFF+FTEI 00764 M01S00759.1to +++| LDC BUFF WRITE EOI 00765 M01S00760.1to +++| RJM WEI 00766 M01S00761.1to +++| UJN WESX RETURN 00767 M01S00762.1to +++| SPACE 4,10 00768 M01S00763.1to +++|** COMMON DECKS. 00769 M01S00764.1to +++| 00770 M01S00765.1to +++| 00771 M01S00766.1to +++|*CALL COMPSNT 00772 M01S00767.1to +++| IF DEF,FA,1 00773 M01S00768.1to +++| ERR *FA* MUST NOT BE DEFINED FOR *COMPWEI* 00774 M01S00769.1to +++|*CALL COMPWEI 00775 M01S00770.1to +++| IBUF SPACE 4,10 00776 M01S00771.1to +++|** INPUT BUFFER SPACE. 00777 M01S00772.1to +++| 00778 M01S00773.1to +++| IBUF EQU * INPUT BUFFER FWA 00779 M01S00774.1to +++| TITLE PRESET. 00780 M01S00775.1to +++| PRS SPACE 4,10 00781 M01S00776.1to +++|** PRS - PRESET. 00782 M01S00777.1to +++|* 00783 M01S00778.1to +++|* ENTRY REQUEST QUEUE FORMAT FOR IAF REQUEST QUEUE - 00784 M01S00779.1to +++|* 00785 M01S00780.1to +++|*T 4/ ,1/ PFIC,1/ FT,6/ RT,12/ EJTO,12/ NP,12/ FP,12/ TN
Figure
00786 M01S00781.1to +++|* 00787 M01S00782.1to +++|* PFIC = PRIMARY FILE INITIAL CALL FLAG. 00788 M01S00783.1to +++|* 1 = PRIMARY FILE INITIAL CALL. 00789 M01S00784.1to +++|* 0 = PRIMARY OR ROLLOUT FILE CONTINUATION CALL. 00790 M01S00785.1to +++|* FT = FILE TYPE. 00791 M01S00786.1to +++|* 0 = PRIMARY FILE. 00792 M01S00787.1to +++|* 1 = ROLLOUT FILE. 00793 M01S00788.1to +++|* RT = REQUEST TYPE. 00794 M01S00789.1to +++|* 0 = DUMP INPUT TO PRIMARY FILE. 00795 M01S00790.1to +++|* 1 = OUTPUT TO TERMINAL. 00796 M01S00791.1to +++|* EJTO = EJT ORDINAL OF JOB. 00797 M01S00792.1to +++|* NP = NUMBER OF POTS TO DUMP TO PRIMARY FILE (INPUT). 00798 M01S00793.1to +++|* FP = FIRST POT FOR EITHER INPUT OR OUTPUT. 00799 M01S00794.1to +++|* TN = TERMINAL NUMBER. 00800 M01S00795.1to +++|* 00801 M01S00796.1to +++|* EXIT REQUEST QUEUE FORMAT FOR IAF REQUEST QUEUE - 00802 M01S00797.1to +++|* 00803 M01S00798.1to +++|*T, 12/ EQ,12/ TK,12/ P1,12/ P2,12/ TN
Figure
00804 M01S00799.1to +++|* 00805 M01S00800.1to +++|* EQ = EST ORDINAL. 00806 M01S00801.1to +++|* TK = TRACK NUMBER. 00807 M01S00802.1to +++|* INPUT - CURRENT EOI. 00808 M01S00803.1to +++|* OUTPUT - FIRST SECTOR OF OUTPUT. 00809 M01S00804.1to +++|* - FIRST CALL ON LIST, FROM *PRFE* IN EJT. 00810 M01S00805.1to +++|* - CONTINUATION CALL, FROM SCHEDULE FIELD IN EJT. 00811 M01S00806.1to +++|* P1 = INPUT - WORD COUNT IN LAST POT, THREE TOP BITS. 00812 M01S00807.1to +++|* - NUMBER OF POTS TO DUMP, NINE BOTTOM BITS. 00813 M01S00808.1to +++|* OUTPUT - FIRST SECTOR OF OUTPUT. 00814 M01S00809.1to +++|* - FIRST CALL ON LIST, 1. 00815 M01S00810.1to +++|* - CONTINUATION CALL, FROM SCHEDULE FIELD IN EJT. 00816 M01S00811.1to +++|* P2 = FIRST POT POINTER. 00817 M01S00812.1to +++|* INPUT - POT TO BEGIN DUMPING TO PRIMARY FILE. 00818 M01S00813.1to +++|* OUTPUT - POT TO WRITE OUTPUT INTO. 00819 M01S00814.1to +++|* TN = TERMINAL NUMBER. 00820 M01S00815.1to +++|* 00821 M01S00816.1to +++|* *TEPS* ENTRY - 00822 M01S00817.1to +++|* 00823 M01S00818.1to +++|* 12/ PTR,12/ EXP 00824 M01S00819.1to +++|* 00825 M01S00820.1to +++|* PTR = POINTER TO ENTRY. 00826 M01S00821.1to +++|* EXP = EXTRA PARAMETER. 00827 M01S00822.1to +++|* INPUT - SECTOR NUMBER OF CURRENT EOI. 00828 M01S00823.1to +++|* OUTPUT - WORD COUNT IN CURRENT SECTOR OF OUTPUT, FROM 00829 M01S00824.1to +++|* SCHEDULE FIELD ON CONTINUATION CALL. 00830 M01S00825.1to +++| 00831 M01S00826.1to +++| 00832 M01S00827.1to +++| PRS RJM IFP INITIALIZE *COMPGFP* 00833 M01S00828.1to +++| LDN VCPC SET LENGTH OF A POT 00834 M01S00829.1to +++| STD CT 00835 M01S00830.1to +++| LDD RA 00836 M01S00831.1to +++| SHN 6 00837 M01S00832.1to +++| ADN VNTP 00838 M01S00833.1to +++| CRD T5 SET FWA OF NETWORK TERMINALS 00839 M01S00834.1to +++| LDD T5+2 00840 M01S00835.1to +++| SBN 1 SET LAST MULTIPLEXOR TERMINAL ADDRESS 00841 M01S00836.1to +++| PJN PRS0 IF NETWORK TERMINALS DEFINED 00842 M01S00837.1to +++| LDD RA GET MAXIMUM USER COUNT 00843 M01S00838.1to +++| SHN 6 00844 M01S00839.1to +++| ADK VMNL 00845 M01S00840.1to +++| CRD T5 00846 M01S00841.1to +++| LDD T5+4 00847 M01S00842.1to +++| ADK VPST-1 NUMBER OF PSEUDO TERMINALS 00848 M01S00843.1to +++| PRS0 STM PRCA STORE LAST MUX TERMINAL NUMBER 00849 M01S00844.1to +++| LDD IR+2 00850 M01S00845.1to +++| SHN -6 FORMAT MESSAGE 00851 M01S00846.1to +++| RJM C2D CONVERT DIGITS 00852 M01S00847.1to +++| STM ABTA+10 00853 M01S00848.1to +++| LDD IR+2 00854 M01S00849.1to +++| RJM C2D 00855 M01S00850.1to +++| STM ABTA+11 00856 M01S00851.1to +++| LDD IR+2 00857 M01S00852.1to +++| NJP PRS4 IF IAF CALL 00858 M01S00853.1to +++| 00859 M01S00854.1to +++|* PROCESS *1RO* CALL. 00860 M01S00855.1to +++| 00861 M01S00856.1to +++| LDC PRCB SET ENTRY POINTER 00862 M01S00857.1to +++| STD EP 00863 M01S00858.1to +++| LDD IR+4 SET TERMINAL NUMBER 00864 M01S00859.1to +++| STD TN 00865 M01S00860.1to +++| STM PRCB+4 00866 M01S00861.1to +++| RJM STA SET TERMINAL TABLE ADDRESS 00867 M01S00862.1to +++| ADK VUIT 00868 M01S00863.1to +++| CRD FS 00869 M01S00864.1to +++| ADN VROT-VUIT 00870 M01S00865.1to +++| CRD CN 00871 M01S00866.1to +++| LDD CN+4 CHECK OUTPUT AVAILABLE 00872 M01S00867.1to +++| SHN 21-4 00873 M01S00868.1to +++| PJN PRS2 IF NO OUTPUT DATA 00874 M01S00869.1to +++| 00875 M01S00870.1to +++|* IF A FULL SECTOR OF DATA RESIDES IN THE *1RO* BUFFER AND IF 00876 M01S00871.1to +++|* THE TERMINAL HAS A BLOCKSIZE OF GREATER THAN ONE SECTOR, 00877 M01S00872.1to +++|* THEN *1TO* MUST MAKE A NULL OUTPUT ASSIGNMENT IN ORDER TO 00878 M01S00873.1to +++|* AVOID SPLITTING WHAT COULD BE A LINE LESS THAN BLOCKSIZE 00879 M01S00874.1to +++|* WORDS ACROSS TWO DOWNLINE BLOCKS BECAUSE THERE IS NO ROOM 00880 M01S00875.1to +++|* IN THE BUFFER TO READ IN ADDITIONAL SECTORS. 00881 M01S00876.1to +++| 00882 M01S00877.1to +++| RJM CAB COMPUTE ALLOWABLE BLOCKSIZE 00883 M01S00878.1to +++| LDM IROB+1 00884 M01S00879.1to +++| STD WL 00885 M01S00880.1to +++| SHN -6 00886 M01S00881.1to +++| ZJN PRS1 IF ALL OUTPUT CONTAINED IN *1RO* BUFFER 00887 M01S00882.1to +++| LDD WL 00888 M01S00883.1to +++| SBD NW 00889 M01S00884.1to +++| MJN PRS2 IF BLOCKSIZE EXCEEDS ONE SECTOR 00890 M01S00885.1to +++| PRS1 LDK ZERL 00891 M01S00886.1to +++| CRD CM 00892 M01S00887.1to +++| LDD NW 00893 M01S00888.1to +++| ADK 7+2 ADD ROUNDUP AND LINKAGE WORDS FACTORS 00894 M01S00889.1to +++| SHN -3 00895 M01S00890.1to +++| ERRNZ VCPC-10 CODE DEPENDS ON POT SIZE OF 10B 00896 M01S00891.1to +++| STD CM+1 00897 M01S00892.1to +++| MONITOR TGPM GET POTS 00898 M01S00893.1to +++| LDD CM+1 00899 M01S00894.1to +++| STD PP 00900 M01S00895.1to +++| STM PRCB+3 00901 M01S00896.1to +++| NJN PRS3 IF A POT WAS GIVEN 00902 M01S00897.1to +++| PRS2 LJM PRC1 ASSIGN NULL OUTPUT 00903 M01S00898.1to +++| 00904 M01S00899.1to +++| PRS3 LMC 7777 00905 M01S00900.1to +++| NJN PRS3.1 IF NOT A FUNCTION REJECT 00906 M01S00901.1to +++| LDC 3600 REISSUE REQUEST AFTER DELAY 00907 M01S00902.1to +++| STD T1 00908 M01S00903.1to +++| PRS3.0 DELAY 00909 M01S00904.1to +++| SOD T1 00910 M01S00905.1to +++| NJN PRS3.0 IF NOT TIME TO REISSUE REQUEST 00911 M01S00906.1to +++| UJN PRS1 TRY AGAIN 00912 M01S00907.1to +++| 00913 M01S00908.1to +++| PRS3.1 LDN 0 00914 M01S00909.1to +++| STD WC 00915 M01S00910.1to +++| SFA EJT,FS+4 00916 M01S00911.1to +++| ADN SCHE 00917 M01S00912.1to +++| CRD CM 00918 M01S00913.1to +++| LDD CM+3 MOVE CURRENT TRACK 00919 M01S00914.1to +++| STD FS+2 00920 M01S00915.1to +++| LDD CM+4 MOVE CURRENT SECTOR 00921 M01S00916.1to +++| STD FS+3 00922 M01S00917.1to +++| LJM PRC ENTER MAIN LOOP FOR *1RO* CALL 00923 M01S00918.1to +++| 00924 M01S00919.1to +++|* PRESET IAF REQUEST QUEUE CALL. 00925 M01S00920.1to +++| 00926 M01S00921.1to +++| PRS4 RJM SPA SET POT ADDRESS (PP= IR+2) 00927 M01S00922.1to +++| CRM EBUF,CT READ UP ENTRIES 00928 M01S00923.1to +++| PRSA EQU *-1 00929 M01S00924.1to +++| LDN VCPC*5 UPDATE POINTER 00930 M01S00925.1to +++| RAM PRSA 00931 M01S00926.1to +++| STD T2 00932 M01S00927.1to +++| RJM UPP UPDATE POT POINTER 00933 M01S00928.1to +++| NJN PRS4 IF MORE ENTRIES TO READ 00934 M01S00929.1to +++| STM 1,T2 SET TERMINATOR BYTE 00935 M01S00930.1to +++| STD IN INITIALIZE INPUT REQUEST COUNT 00936 M01S00931.1to +++| STD OT INITIALIZE OUTPUT REQUEST COUNT 00937 M01S00932.1to +++| STD EC INITIALIZE ENTRY COUNT 00938 M01S00933.1to +++| LDC EBUF ENTRY POINTER 00939 M01S00934.1to +++| STD EP 00940 M01S00935.1to +++| PRS5 LDM 1,EP GET EJTO 00941 M01S00936.1to +++| ZJN PRS10 IF ALL ENTRIES PROCESSED 00942 M01S00937.1to +++| SFA EJT READ EJT 00943 M01S00938.1to +++| ADN JSNE 00944 M01S00939.1to +++| CRD CM 00945 M01S00940.1to +++| ADN SCHE-JSNE 00946 M01S00941.1to +++| CRD FS 00947 M01S00942.1to +++| ADN PRFE-SCHE 00948 M01S00943.1to +++| CRD CN 00949 M01S00944.1to +++| LDI EP 00950 M01S00945.1to +++| LPN 77 00951 M01S00946.1to +++| ZJN PRS6 IF INPUT OPERATION 00952 M01S00947.1to +++| 00953 M01S00948.1to +++|* PROCESS OUTPUT REQUESTS. 00954 M01S00949.1to +++| 00955 M01S00950.1to +++| AOD OT COUNT OUTPUT REQUEST 00956 M01S00951.1to +++| RJM POR PROCESS OUTPUT REQUEST 00957 M01S00952.1to +++| UJN PRS7 COMPLETE PROCESSING 00958 M01S00953.1to +++| 00959 M01S00954.1to +++|* PROCESS INPUT REQUESTS. 00960 M01S00955.1to +++| 00961 M01S00956.1to +++| PRS6 AOD IN COUNT INPUT REQUEST 00962 M01S00957.1to +++| LDD OT 00963 M01S00958.1to +++| NJN PRS8 IF REQUESTS OUT OF ORDER 00964 M01S00959.1to +++| RJM RIT RESERVE INPUT TRACKS 00965 M01S00960.1to +++| 00966 M01S00961.1to +++|* COMPLETE PROCESSING FOR BOTH REQUEST TYPES. 00967 M01S00962.1to +++| 00968 M01S00963.1to +++| PRS7 STM SNTB,EC SAVE SECTOR NUMBER OR WORD COUNT 00969 M01S00964.1to +++| AOD EC 00970 M01S00965.1to +++| LDN 5 00971 M01S00966.1to +++| RAD EP 00972 M01S00967.1to +++| UJN PRS5 LOOP FOR NEXT ENTRY 00973 M01S00968.1to +++| 00974 M01S00969.1to +++| PRS8 LDN 1 REQUEST OUT OF ORDER 00975 M01S00970.1to +++| PRS9 RJM ABT ABORT 00976 M01S00971.1to +++| 00977 M01S00972.1to +++|* SET LWA AND REQUEST COUNTS. 00978 M01S00973.1to +++| 00979 M01S00974.1to +++| PRS10 LDD IN NUMBER OF INPUT REQUESTS 00980 M01S00975.1to +++| STM ITOB 00981 M01S00976.1to +++| SHN 1 * 2 00982 M01S00977.1to +++| RAM CUAA SET FWA OF OUTPUT REQUEST POINTERS 00983 M01S00978.1to +++| STM CUAD SET LWA+1 OF INPUT REQUEST POINTERS 00984 M01S00979.1to +++| LDD IN 00985 M01S00980.1to +++| SHN 2 00986 M01S00981.1to +++| ADD IN 00987 M01S00982.1to +++| RAM GNEC LWA+1 OF INPUT REQUEST GROUP 00988 M01S00983.1to +++| LDD OT NUMBER OF OUTPUT ENTRIES 00989 M01S00984.1to +++| ADD IN TOTAL OF ALL REQUESTS 00990 M01S00985.1to +++| NJN PRS11 IF REQUESTS 00991 M01S00986.1to +++| LDN 2 NO REQUESTS 00992 M01S00987.1to +++| UJN PRS9 ABORT 00993 M01S00988.1to +++| 00994 M01S00989.1to +++| PRS11 STM TCRQ SET TOTAL NUMBER OF REQUESTS 00995 M01S00990.1to +++| SHN 1 * 2 00996 M01S00991.1to +++| RAM CUAB 00997 M01S00992.1to +++| RJM SEP SORT ENTRY POINTERS 00998 M01S00993.1to +++| LDN 0 INITIALIZE EST ORDINAL 00999 M01S00994.1to +++| STD T5 01000 M01S00995.1to +++| LJM ITO1 ENTER MAIN LOOP 01001 M01S00996.1to +++| CEQ SPACE 4,10 01002 M01S00997.1to +++|** CEQ - CHECK EQUIPMENT. 01003 M01S00998.1to +++|* 01004 M01S00999.1to +++|* ENTRY (A) = EST ORDINAL. 01005 M01S01000.1to +++|* (EP) = ENTRY ADDRESS. 01006 M01S01001.1to +++|* 01007 M01S01002.1to +++|* EXIT ((EP)) = EST ORDINAL+4000. 01008 M01S01003.1to +++|* 01009 M01S01004.1to +++|* USES T0 - T4. 01010 M01S01005.1to +++|* 01011 M01S01006.1to +++|* CALLS ABT. 01012 M01S01007.1to +++|* 01013 M01S01008.1to +++|* MACROS SFA. 01014 M01S01009.1to +++| 01015 M01S01010.1to +++| 01016 M01S01011.1to +++| CEQ SUBR ENTRY/EXIT 01017 M01S01012.1to +++| LMC 4000 SET NOT SORTED ENTRY FLAG 01018 M01S01013.1to +++| STI EP SAVE EST 01019 M01S01014.1to +++| LMC 4000 01020 M01S01015.1to +++| ZJN CEQ1 IF NOT MASS STORAGE 01021 M01S01016.1to +++| SFA EST READ EST ENTRY 01022 M01S01017.1to +++| ADK EQDE 01023 M01S01018.1to +++| CRD T0 01024 M01S01019.1to +++| LDD T0 01025 M01S01020.1to +++| SHN 21-13 01026 M01S01021.1to +++| MJN CEQX IF MASS STORAGE 01027 M01S01022.1to +++| CEQ1 LDN 3 NOT MASS STORAGE 01028 M01S01023.1to +++| RJM ABT ABORT 01029 M01S01024.1to +++| GNE SPACE 4,20 01030 M01S01025.1to +++|** GNE - GET NEXT ENTRY. 01031 M01S01026.1to +++|* 01032 M01S01027.1to +++|* ENTRY (GNEA) = IF OUTPUT GROUP, NUMBER OF INPUT ENTRIES. 01033 M01S01028.1to +++|* (GNEB) = FWA FOR ENTRIES IN THIS GROUP. 01034 M01S01029.1to +++|* (GNEC) = LWA+1 FOR ENTRIES IN THIS GROUP. 01035 M01S01030.1to +++|* 01036 M01S01031.1to +++|* EXIT (T5) = SELECTED EQUIPMENT. 01037 M01S01032.1to +++|* (T6) = SELECTED TRACK. 01038 M01S01033.1to +++|* (CN+1) = POINTER TO SELECTED ENTRY. 01039 M01S01034.1to +++|* (CN+2) = ENTRY NUMBER. 01040 M01S01035.1to +++|* ENTRY MARKED AS PROCESSED. 01041 M01S01036.1to +++|* 01042 M01S01037.1to +++|* CALLS ABT. 01043 M01S01038.1to +++| 01044 M01S01039.1to +++| 01045 M01S01040.1to +++| GNE SUBR ENTRY/EXIT 01046 M01S01041.1to +++| GNEA LDN 0 (PROCESSING INPUT) 01047 M01S01042.1to +++|* LDN N (PROCESSING OUTPUT, N = NUMBER OF INPUTS) 01048 M01S01043.1to +++| STD CN+3 ENTRY NUMBER TO START AT 01049 M01S01044.1to +++| LCN 0 01050 M01S01045.1to +++| STD T5 01051 M01S01046.1to +++| STD T6 01052 M01S01047.1to +++| LDC EBUF FWA ENTRIES 01053 M01S01048.1to +++| GNEB EQU *-1 01054 M01S01049.1to +++| STD CN 01055 M01S01050.1to +++| GNE1 LDI CN 01056 M01S01051.1to +++| SHN 21-13 01057 M01S01052.1to +++| PJN GNE2 IF ALREADY PROCESSED 01058 M01S01053.1to +++| SHN 13-21 01059 M01S01054.1to +++| LPC 3777 SET EQUIPMENT 01060 M01S01055.1to +++| STD T0 01061 M01S01056.1to +++| SBD T5 01062 M01S01057.1to +++| MJN GNE4 IF BETTER CHOICE 01063 M01S01058.1to +++| ZJN GNE3 IF SAME EQUIPMENT 01064 M01S01059.1to +++| GNE2 AOD CN+3 INCREMENT ENTRY COUNT 01065 M01S01060.1to +++| LDN 5 01066 M01S01061.1to +++| RAD CN 01067 M01S01062.1to +++| LMC EBUF 01068 M01S01063.1to +++| GNEC EQU *-1 01069 M01S01064.1to +++| NJN GNE1 IF GROUP NOT COMPLETED 01070 M01S01065.1to +++| LDD T5 MARK ENTRY PROCESSED 01071 M01S01066.1to +++| STI CN+1 01072 M01S01067.1to +++| LMC 7777 01073 M01S01068.1to +++| ZJN GNE5 IF NO ENTRY FOUND 01074 M01S01069.1to +++| LJM GNEX EXIT 01075 M01S01070.1to +++| 01076 M01S01071.1to +++| GNE3 LDM 1,CN CHECK TRACK 01077 M01S01072.1to +++| SBD T6 01078 M01S01073.1to +++| PJN GNE2 IF NOT A BETTER CHOICE 01079 M01S01074.1to +++| GNE4 LDD T0 UPDATE EQ 01080 M01S01075.1to +++| STD T5 01081 M01S01076.1to +++| LDM 1,CN UPDATE TK 01082 M01S01077.1to +++| STD T6 01083 M01S01078.1to +++| LDD CN UPDATE POINTER 01084 M01S01079.1to +++| STD CN+1 01085 M01S01080.1to +++| LDD CN+3 SAVE ENTRY NUMBER 01086 M01S01081.1to +++| STD CN+2 01087 M01S01082.1to +++| UJN GNE2 CHECK NEXT ENTRY 01088 M01S01083.1to +++| 01089 M01S01084.1to +++| GNE5 LDN 5 NO ENTRY FOUND 01090 M01S01085.1to +++| RJM ABT ABORT 01091 M01S01086.1to +++| POR SPACE 4,10 01092 M01S01087.1to +++|** POR - PROCESS OUTPUT REQUEST. 01093 M01S01088.1to +++|* 01094 M01S01089.1to +++|* ENTRY (FS - FS+4) = EJT ENTRY WORD *SCHE*. 01095 M01S01090.1to +++|* (CN - CN+4) = EJT ENTRY WORD *PRFE*. 01096 M01S01091.1to +++|* (CM - CM+4) = EJT ENTRY WORD *JSNE*. 01097 M01S01092.1to +++|* 01098 M01S01093.1to +++|* EXIT ((EP)) = FORMATTED REQUEST - EQ,TK,SC,FP,TN. 01099 M01S01094.1to +++|* (A) = WORD COUNT. 01100 M01S01095.1to +++|* 01101 M01S01096.1to +++|* USES CM - CM+4. 01102 M01S01097.1to +++|* 01103 M01S01098.1to +++|* CALLS ABT, CEQ. 01104 M01S01099.1to +++|* 01105 M01S01100.1to +++|* MACROS MONITOR. 01106 M01S01101.1to +++| 01107 M01S01102.1to +++| 01108 M01S01103.1to +++| POR SUBR ENTRY/EXIT 01109 M01S01104.1to +++| LDI EP CHECK FILE TYPE 01110 M01S01105.1to +++| SHN 21-6 01111 M01S01106.1to +++| PJN POR2 IF NOT ROLLOUT FILE OUTPUT 01112 M01S01107.1to +++| LDD FS INSERT RO EQ INTO REQUEST 01113 M01S01108.1to +++| RJM CEQ CHECK EQUIPMENT 01114 M01S01109.1to +++| POR1 LDD FS+3 SET CURRENT TRACK 01115 M01S01110.1to +++| STM 1,EP 01116 M01S01111.1to +++| LDD FS+4 SET CURRENT SECTOR 01117 M01S01112.1to +++| STM 2,EP 01118 M01S01113.1to +++| LDD FS+2 SET WORD COUNT 01119 M01S01114.1to +++| LPN 77 01120 M01S01115.1to +++| UJN PORX RETURN 01121 M01S01116.1to +++| 01122 M01S01117.1to +++| POR2 LPN 1 01123 M01S01118.1to +++| LMC LDNI 01124 M01S01119.1to +++| STM PORA 01125 M01S01120.1to +++| LDD CN+3 SET PRIMARY FILE EQUIPMENT 01126 M01S01121.1to +++| RJM CEQ CHECK PRIMARY FILE EQUIPMENT 01127 M01S01122.1to +++| LDN 0 CONTINUATION CALL 01128 M01S01123.1to +++| PORA EQU *-1 (PRIMARY FILE INITIAL CALL) 01129 M01S01124.1to +++| ZJN POR1 IF CONTINUATION CALL 01130 M01S01125.1to +++| 01131 M01S01126.1to +++|* START NEW OUTPUT ON PRIMARY FILE. 01132 M01S01127.1to +++| 01133 M01S01128.1to +++| LDM 1,EP SET EJT ADDRESS 01134 M01S01129.1to +++| SFA EJT 01135 M01S01130.1to +++| STD CM+4 01136 M01S01131.1to +++| SHN -14 01137 M01S01132.1to +++| STD CM+3 01138 M01S01133.1to +++| LDD CN+4 PRESET CT=FT 01139 M01S01134.1to +++| STM 1,EP 01140 M01S01135.1to +++| LDN FSMS PRESET CURRENT SECTOR = 1 01141 M01S01136.1to +++| STM 2,EP 01142 M01S01137.1to +++| LDD MA SET I/O JOB STATUS 01143 M01S01138.1to +++| CWM PORB,ON 01144 M01S01139.1to +++| LDN 1 01145 M01S01140.1to +++| STD CM+1 01146 M01S01141.1to +++| MONITOR UTEM 01147 M01S01142.1to +++| LDD CM+1 01148 M01S01143.1to +++| NJN POR4 IF OPERATION NOT COMPLETE 01149 M01S01144.1to +++| LDD MA CHECK OLD STATUS 01150 M01S01145.1to +++| CRD CM 01151 M01S01146.1to +++| LDD CM+4 01152 M01S01147.1to +++| SBN IOJS 01153 M01S01148.1to +++| ZJN POR3 IF IOJS STATUS 01154 M01S01149.1to +++| SBN DOJS-IOJS 01155 M01S01150.1to +++| NJN POR4 IF NOT DOJS STATUS 01156 M01S01151.1to +++| POR3 LJM PORX EXIT 01157 M01S01152.1to +++| 01158 M01S01153.1to +++| POR4 LDN 4 01159 M01S01154.1to +++| RJM ABT ABORT 01160 M01S01155.1to +++| 01161 M01S01156.1to +++| 01162 M01S01157.1to +++| PORB VFD 6/JSNE,6/5,6/1,42/IOJS 01163 M01S01158.1to +++| RIT SPACE 4,10 01164 M01S01159.1to +++|** RIT - REQUEST INPUT TRACKS. 01165 M01S01160.1to +++|* 01166 M01S01161.1to +++|* ENTRY (CN - CN+4) = EJT ENTRY WORD *PRFE*. 01167 M01S01162.1to +++|* 01168 M01S01163.1to +++|* EXIT (A) = SECTOR NUMBER OF EOI ON THE DEVICE. 01169 M01S01164.1to +++|* TRT RESET TO NEW EOI. 01170 M01S01165.1to +++|* 01171 M01S01166.1to +++|* USES T0, T4, T5, CM - CM+4. 01172 M01S01167.1to +++|* 01173 M01S01168.1to +++|* CALLS ABT, CEQ, SEI. 01174 M01S01169.1to +++|* 01175 M01S01170.1to +++|* MACROS MONITOR. 01176 M01S01171.1to +++| 01177 M01S01172.1to +++| 01178 M01S01173.1to +++| RIT SUBR ENTRY/EXIT 01179 M01S01174.1to +++| LDD CN+4 MOVE PRIMARY FILE FIRST TRACK 01180 M01S01175.1to +++| STD T6 01181 M01S01176.1to +++| LDD CN+3 MOVE PRIMARY FILE EQUIPMENT 01182 M01S01177.1to +++| STD T5 01183 M01S01178.1to +++| RJM CEQ CHECK EQUIPMENT 01184 M01S01179.1to +++| 01185 M01S01180.1to +++|* CHECK FOR ROOM ON DISK. 01186 M01S01181.1to +++| 01187 M01S01182.1to +++| LDM 2,EP COMPUTE SECTOR COUNT 01188 M01S01183.1to +++| SHN -11 01189 M01S01184.1to +++| STD T0 01190 M01S01185.1to +++| LDM 2,EP 01191 M01S01186.1to +++| LPC 777 01192 M01S01187.1to +++| SHN 3 01193 M01S01188.1to +++| ADD T0 01194 M01S01189.1to +++| ADN 77 01195 M01S01190.1to +++| SHN -6 SECTOR COUNT 01196 M01S01191.1to +++| STD T4 01197 M01S01192.1to +++| RJM SEI SET T7 01198 M01S01193.1to +++| LDD T6 SAVE CURRENT EOI POSITION 01199 M01S01194.1to +++| STD CM+2 01200 M01S01195.1to +++| STM 1,EP 01201 M01S01196.1to +++| LDD T5 01202 M01S01197.1to +++| STD CM+1 01203 M01S01198.1to +++| LDM SLM 01204 M01S01199.1to +++| SBN 1 01205 M01S01200.1to +++| SBD T7 01206 M01S01201.1to +++| SBD T4 01207 M01S01202.1to +++| PJN RIT1 IF ROOM ON TRACK 01208 M01S01203.1to +++| LMC -0 SET SECTORS NEEDED 01209 M01S01204.1to +++| STD CM+4 01210 M01S01205.1to +++| SHN -14 01211 M01S01206.1to +++| STD CM+3 01212 M01S01207.1to +++| MONITOR RTCM 01213 M01S01208.1to +++| UJN RIT2 CHECK NEXT ENTRY 01214 M01S01209.1to +++| 01215 M01S01210.1to +++| RIT1 LDD T7 SET NEW EOI POSITION 01216 M01S01211.1to +++| ADD T4 01217 M01S01212.1to +++| STD CM+3 01218 M01S01213.1to +++| LDC -4000 01219 M01S01214.1to +++| RAD CM+2 01220 M01S01215.1to +++| MONITOR DTKM 01221 M01S01216.1to +++| RIT2 LDD T7 01222 M01S01217.1to +++| LJM RITX EXIT 01223 M01S01218.1to +++| SEP SPACE 4,10 01224 M01S01219.1to +++|** SEP - SORT ENTRY POINTERS. 01225 M01S01220.1to +++|* 01226 M01S01221.1to +++|* ENTRY (EP) = LWA+1 ALL REQUESTS. 01227 M01S01222.1to +++|* (IN) = INPUT REQUEST COUNT. 01228 M01S01223.1to +++|* (OT) = OUTPUT REQUEST COUNT. 01229 M01S01224.1to +++|* 01230 M01S01225.1to +++|* EXIT ENTRIES SORTED BY EQUIPMENT AND TRACK, POINTERS 01231 M01S01226.1to +++|* STORED IN THAT ORDER IN *TEPS*. 01232 M01S01227.1to +++|* 01233 M01S01228.1to +++|* USES T3, T4, T7, CN - CN+4. 01234 M01S01229.1to +++|* 01235 M01S01230.1to +++|* CALLS GNE. 01236 M01S01231.1to +++| 01237 M01S01232.1to +++| 01238 M01S01233.1to +++| SEP SUBR ENTRY/EXIT 01239 M01S01234.1to +++| LDC TEPS 01240 M01S01235.1to +++| STD T7 01241 M01S01236.1to +++| SEP1 LDD IN 01242 M01S01237.1to +++| ZJN SEP4 IF NO INPUT REQUESTS, SWITCH TO OUTPUT 01243 M01S01238.1to +++| SEP2 RJM GNE GET NEXT ENTRY 01244 M01S01239.1to +++| LDD CN+1 SET POINTER TO ENTRY 01245 M01S01240.1to +++| STI T7 01246 M01S01241.1to +++| AOD T7 MOVE EOI SECTOR OR WORD COUNT 01247 M01S01242.1to +++| LDM SNTB,CN+2 01248 M01S01243.1to +++| STI T7 01249 M01S01244.1to +++| AOD T7 01250 M01S01245.1to +++| SOD IN 01251 M01S01246.1to +++| NJN SEP2 IF MORE ENTRIES OF THIS TYPE 01252 M01S01247.1to +++| LDD OT CHECK OUTPUT REQUEST COUNT 01253 M01S01248.1to +++| ZJN SEPX IF NO MORE REQUESTS 01254 M01S01249.1to +++| 01255 M01S01250.1to +++|* SWITCH TO OUTPUT REQUESTS. 01256 M01S01251.1to +++| 01257 M01S01252.1to +++| LDM ITOB 01258 M01S01253.1to +++| RAM GNEA 01259 M01S01254.1to +++| LDM GNEC 01260 M01S01255.1to +++| STM GNEB 01261 M01S01256.1to +++| SEP4 LDD EP 01262 M01S01257.1to +++| STM GNEC 01263 M01S01258.1to +++| LDD OT 01264 M01S01259.1to +++| STD IN 01265 M01S01260.1to +++| LDN 0 01266 M01S01261.1to +++| STD OT 01267 M01S01262.1to +++| UJN SEP1 SORT OUTPUT REQUESTS 01268 M01S01263.1to +++| SPACE 4,10 01269 M01S01264.1to +++| SPACE 4,10 01270 M01S01265.1to +++|** COMMON DECKS. 01271 M01S01266.1to +++| 01272 M01S01267.1to +++| 01273 M01S01268.1to +++|*CALL COMPSEI 01274 M01S01269.1to +++| IFP HERE 01275 M01S01270.1to +++| 01276 M01S01271.1to +++| BUFFERS SPACE 4,10 01277 M01S01272.1to +++|** PRESET BUFFERS. 01278 M01S01273.1to +++| 01279 M01S01274.1to +++| 01280 M01S01275.1to +++| USE BUFFERS 01281 M01S01276.1to +++| 01282 M01S01277.1to +++| SNTB EQU * SECTOR NUMBER / WORD COUNT 01283 M01S01278.1to +++| 01284 M01S01279.1to +++| ERRPL SNTB+VRQB*VCPC-EBUF OVERFLOW INTO ENTRY BUFFER 01285 M01S01280.1to +++| SPACE 4,10 01286 M01S01281.1to +++| OVERFLOW 01287 M01S01282.1to +++| TTL 1TO - TERMINAL INPUT/OUTPUT. 01288 M01S01283.1to +++| TITLE OUTPUT PROCESSING SUBROUTINES. 01289 M01S01284.1to +++| QUAL 2TO 01290 M01S01285.1to +++| IDENT 2TO,TTOX OUTPUT PROCESSING ROUTINES. 01291 M01S01286.1to +++|*COMMENT 1TO - OUTPUT PROCESSING ROUTINES.
| Line S01287 Modification History | |
|---|---|
M01 (Added by) | 1to |
M02 (Updated by) | 281l803 |
Seq # *Modification Id* Act ----------------------------+ 01292 M02S01287.281l803 ---| COMMENT COPYRIGHT CONTROL DATA CORP. 1977. 01293 M01S00002.281l803 +++| COMMENT COPYRIGHT CONTROL DATA SYSTEMS INC. 1992. 01294 M01S01288.1to +++| SPACE 4,10 01295 M01S01289.1to +++|*** *2TO* IS LOADED TO PROVIDE THE ROUTINES NECESSARY FOR 01296 M01S01290.1to +++|* PROCESSING DOWNLINE OUTPUT. 01297 M01S01291.1to +++| 01298 M01S01292.1to +++| 01299 M01S01293.1to +++| ORG IDP+5 01300 M01S01294.1to +++| 01301 M01S01295.1to +++| TTO SUBR ENTRY/EXIT 01302 M01S01296.1to +++| UJN TTOX RETURN 01303 M01S01297.1to +++| TTL 1TO/2TO - OUTPUT DATA PROCESOR. 01304 M01S01298.1to +++| ODP TITLE OUTPUT DATA PROCESSING. 01305 M01S01299.1to +++|** ODP - OUTPUT DATA PROCESSING. 01306 M01S01300.1to +++|* 01307 M01S01301.1to +++|* ENTRY (PP) = POT POINTER. 01308 M01S01302.1to +++|* (EP) = POINTER TO ENTRY TO PROCESS. 01309 M01S01303.1to +++|* (T4 - T7) = DISK INFORMATION. 01310 M01S01304.1to +++|* (FS+2) = TRACK NUMBER OF FIRST SECTOR TO READ. 01311 M01S01305.1to +++|* (FS+3) = SECTOR NUMBER OF FIRST SECTOR TO READ. 01312 M01S01306.1to +++|* (WC) = POSITION TO START AT IN FIRST SECTOR. 01313 M01S01307.1to +++|* 01314 M01S01308.1to +++|* EXIT (T5) = EST ORDINAL. 01315 M01S01309.1to +++|* 01316 M01S01310.1to +++|* USES T1, BA, CB, WC, CM - CM+4, LN - LN+4. 01317 M01S01311.1to +++|* 01318 M01S01312.1to +++|* CALLS CAB, LDP, SDI, SPA, SUL, UTT. 01319 M01S01313.1to +++| 01320 M01S01314.1to +++| 01321 M01S01315.1to +++| ODP SUBR ENTRY/EXIT 01322 M01S01316.1to +++| LDC BUFF SET BUFFER ADDRESS 01323 M01S01317.1to +++| STD BA 01324 M01S01318.1to +++| LDC EBUF-2 SET CONTROL BYTE TABLE ADDRESS 01325 M01S01319.1to +++| STD CB 01326 M01S01320.1to +++| RJM CAB COMPUTE ALLOWABLE BLOCKSIZE 01327 M01S01321.1to +++| LDD PP 01328 M01S01322.1to +++| ZJP ODP5 IF NO POTS SUPPLIED 01329 M01S01323.1to +++| RJM SPA SET POT ADDRESS OF USER TEXT POT 01330 M01S01324.1to +++| CRD LN READ UP LINE NUMBER 01331 M01S01325.1to +++| LDN LN CONVERT LINE NUMBER TO BINARY 01332 M01S01326.1to +++| STD T1 01333 M01S01327.1to +++| RJM SUL 01334 M01S01328.1to +++| LDD CM 01335 M01S01329.1to +++| SHN 14 01336 M01S01330.1to +++| ADD CM+1 01337 M01S01331.1to +++| ZJN ODP1 IF START AT BEGINNING OF FILE 01338 M01S01332.1to +++| LMC -0 SET LINE NUMBER TO SEARCH ON 01339 M01S01333.1to +++| STM SSEA+1 01340 M01S01334.1to +++| STM SDIA+1 01341 M01S01335.1to +++| SHN -14 01342 M01S01336.1to +++| LMC ADCI 01343 M01S01337.1to +++| STM SSEA 01344 M01S01338.1to +++| STM SDIA 01345 M01S01339.1to +++| RJM SDI SEARCH DISK FOR LINE NUMBER 01346 M01S01340.1to +++| UJN ODP4 TRANSFER LINE TO POTS 01347 M01S01341.1to +++| 01348 M01S01342.1to +++| ODP1 RJM RDD READ THE FIRST SECTOR OF DATA 01349 M01S01343.1to +++| PJN ODP2 IF NOT AN EMPTY FILE 01350 M01S01344.1to +++| LDN 0 01351 M01S01345.1to +++| STD WL 01352 M01S01346.1to +++| UJN ODP4 SEND A *0014* BYTE ONLY 01353 M01S01347.1to +++| 01354 M01S01348.1to +++| ODP2 STD SC SAVE SECTOR WORD COUNT 01355 M01S01349.1to +++| SBD WC 01356 M01S01350.1to +++| PJN ODP3 IF POINTER .LT. WC (ONLY VALID CONDITION) 01357 M01S01351.1to +++| LDN 0 RESET WORD COUNT (NEEDED FOR RECOVERY) 01358 M01S01352.1to +++| STD WC 01359 M01S01353.1to +++| ODP3 RJM RAS READ ADDITIONAL SECTORS UP TO BLOCKSIZE 01360 M01S01354.1to +++| ODP4 LDC BUFF 01361 M01S01355.1to +++| RJM LDP LOAD POTS 01362 M01S01356.1to +++| RJM UTT UPDATE TERMINAL TABLE 01363 M01S01357.1to +++| LDI EP RESTORE EST ORDINAL 01364 M01S01358.1to +++| STD T5 01365 M01S01359.1to +++| LJM ODPX RETURN 01366 M01S01360.1to +++| 01367 M01S01361.1to +++| ODP5 LDN 7 NO POT POINTER FOUND 01368 M01S01362.1to +++| RJM ABT ABORT 01369 M01S01363.1to +++| TITLE PRO - SUBROUTINES. 01370 M01S01364.1to +++| TITLE OUTPUT PROCESSING SUBROUTINES. 01371 M01S01365.1to +++| ANR SPACE 4,10 01372 M01S01366.1to +++|** ANR - ASSURE NETWORK REQUIREMENTS. 01373 M01S01367.1to +++|* 01374 M01S01368.1to +++|* *ANR* ENSURES THAT NO MORE THAN BLOCKSIZE WORDS OF DATA ARE 01375 M01S01369.1to +++|* EVER SENT TO THE TERMINAL IN A SINGLE DOWNLINE BLOCK. IF 01376 M01S01370.1to +++|* THERE ARE LESS THAN BLOCKSIZE WORDS OF DATA REMAINING, ALL 01377 M01S01371.1to +++|* DATA IS SENT. IF THERE ARE BLOCKSIZE OR MORE WORDS OF DATA, 01378 M01S01372.1to +++|* *ANR* MAKES SURE THAT AS MANY WHOLE LINES AS POSSIBLE ARE 01379 M01S01373.1to +++|* SENT WITHOUT EXCEEDING THE BLOCKSIZE LIMIT. A PARTIAL LINE 01380 M01S01374.1to +++|* IS ONLY SENT IN THE CASE WHERE THE FIRST LINE OF DATA 01381 M01S01375.1to +++|* IN THE BUFFER IS LONGER THAN BLOCKSIZE WORDS. 01382 M01S01376.1to +++|* 01383 M01S01377.1to +++|* ENTRY (BA) = BUFFER ADDRESS. 01384 M01S01378.1to +++|* (NW) = USER BLOCKSIZE IN CM WORDS. 01385 M01S01379.1to +++|* (WL) = NUMBER OF WORDS LOADED IN BUFFER. 01386 M01S01380.1to +++|* 01387 M01S01381.1to +++|* EXIT (A) = NUMBER OF WORDS TO SEND TO THE TERMINAL. 01388 M01S01382.1to +++|* (NW) = SAME AS (A). 01389 M01S01383.1to +++|* (CN+4) = OUTPUT AVAILABLE FLAG UPDATED. 01390 M01S01384.1to +++|* 01391 M01S01385.1to +++|* USES S1. 01392 M01S01386.1to +++| 01393 M01S01387.1to +++| 01394 M01S01388.1to +++| ANR3 LDD NW 01395 M01S01389.1to +++| 01396 M01S01390.1to +++| ANR SUBR ENTRY/EXIT 01397 M01S01391.1to +++| LDD WL 01398 M01S01392.1to +++| SBD NW 01399 M01S01393.1to +++| PJN ANR1 IF NUMBER WORDS IN BUFFER .GE. BLOCKSIZE 01400 M01S01394.1to +++| LCN VOPR CLEAR OUTPUT AVAILABLE FLAG 01401 M01S01395.1to +++| RAD CN+4 01402 M01S01396.1to +++| LDD WL SEND ALL THE DATA 01403 M01S01397.1to +++| STD NW 01404 M01S01398.1to +++| UJN ANRX RETURN 01405 M01S01399.1to +++| 01406 M01S01400.1to +++|* ADJUST THE NUMBER OF WORDS TO SEND TO THE TERMINAL TO 01407 M01S01401.1to +++|* INCLUDE AS MANY COMPLETE LINES AS EXIST IN THE FIRST 01408 M01S01402.1to +++|* BLOCKSIZE WORDS. IF NO COMPLETE LINES ARE FOUND, 01409 M01S01403.1to +++|* (LINE IS LONGER THAN BLOCKSIZE WORDS) THEN SEND THE 01410 M01S01404.1to +++|* FIRST BLOCKSIZE-1 WORDS OF THE LINE. 01411 M01S01405.1to +++| 01412 M01S01406.1to +++| ANR1 LDM PRCA 01413 M01S01407.1to +++| SBD TN 01414 M01S01408.1to +++| PJN ANR3 IF MUX TERMINAL 01415 M01S01409.1to +++| LDD NW CHECK BACKWARDS THROUGH DATA FOR EOL 01416 M01S01410.1to +++| STD WL 01417 M01S01411.1to +++| ADD WC 01418 M01S01412.1to +++| SHN 2 01419 M01S01413.1to +++| ADD NW 01420 M01S01414.1to +++| ADD WC 01421 M01S01415.1to +++| ADD BA 01422 M01S01416.1to +++| ADN 1 01423 M01S01417.1to +++| STD S1 01424 M01S01418.1to +++| ANR2 LDI S1 01425 M01S01419.1to +++| ZJN ANR3 IF EOL FOUND 01426 M01S01420.1to +++| LCN 5 01427 M01S01421.1to +++| RAD S1 01428 M01S01422.1to +++| SOD NW 01429 M01S01423.1to +++| NJN ANR2 IF MORE WORDS LEFT TO CHECK 01430 M01S01424.1to +++| SOD WL 01431 M01S01425.1to +++| STD NW 01432 M01S01426.1to +++| LJM ANRX SEND (BLOCKSIZE - 1) WORDS 01433 M01S01427.1to +++| LDP SPACE 4,10 01434 M01S01428.1to +++|** LDP - LOAD DATA INTO POTS. 01435 M01S01429.1to +++|* 01436 M01S01430.1to +++|* ENTRY (A) = BUFFER ADDRESS. 01437 M01S01431.1to +++|* (WC) = WORD INDEX INTO FIRST SECTOR. 01438 M01S01432.1to +++|* (PP) = FIRST POT TO FILL. 01439 M01S01433.1to +++|* (EP) = ENTRY POINTER. 01440 M01S01434.1to +++|* (NW) = USER BLOCKSIZE IN CM WORDS. 01441 M01S01435.1to +++|* (WL) = NUMBER OF WORDS LOADED IN BUFFER. 01442 M01S01436.1to +++|* 01443 M01S01437.1to +++|* EXIT (WL) = NUMBER OF WORDS TRANSFERRED TO POTS. 01444 M01S01438.1to +++|* (CN+4) = OUTPUT AVAILABLE FLAG UPDATED IF RAN OUT 01445 M01S01439.1to +++|* OF POTS. 01446 M01S01440.1to +++|* 01447 M01S01441.1to +++|* USES BA, CM - CM+4, S1, S2, T3. 01448 M01S01442.1to +++|* 01449 M01S01443.1to +++|* CALLS ANR, SPA, UPP. 01450 M01S01444.1to +++| 01451 M01S01445.1to +++| 01452 M01S01446.1to +++| LDP SUBR ENTRY/EXIT 01453 M01S01447.1to +++| STD BA SAVE BUFFER ADDRESS 01454 M01S01448.1to +++| LDN 0 INITIALIZE POT COUNT 01455 M01S01449.1to +++| STD PC 01456 M01S01450.1to +++| LDN 2 SET TO LEAVE ROOM FOR HEADER WORDS 01457 M01S01451.1to +++| STD S2 01458 M01S01452.1to +++| RJM SPA PUT FIRST POT ADDRESS IN (PA - PA+1) 01459 M01S01453.1to +++| LDK ZERL ZERO OUT SECOND WORD OF POT CHAIN HEADER 01460 M01S01454.1to +++| CRD CM 01461 M01S01455.1to +++| LDD PA 01462 M01S01456.1to +++| SHN 14 01463 M01S01457.1to +++| LMD PA+1 01464 M01S01458.1to +++| ADN 1 01465 M01S01459.1to +++| CWD CM 01466 M01S01460.1to +++| RJM ANR ASSURE NETWORK REQUIREMENTS 01467 M01S01461.1to +++| STD WL 01468 M01S01462.1to +++| NJN LDP1 IF DATA AVAILABLE TO TRANSFER 01469 M01S01463.1to +++| STD T3 01470 M01S01464.1to +++| LDM 3,EP 01471 M01S01465.1to +++| STM 2,EP 01472 M01S01466.1to +++| AOD PC COUNT OUTPUT POT 01473 M01S01467.1to +++| LJM LDP5 RETURN A *0014* CONTROL BYTE ONLY 01474 M01S01468.1to +++| 01475 M01S01469.1to +++| LDP1 LDD WC COMPUTE ADDRESS OF FIRST WORD TO TRANSFER 01476 M01S01470.1to +++| SHN 2 01477 M01S01471.1to +++| ADD WC 01478 M01S01472.1to +++| ADD BA 01479 M01S01473.1to +++| ADN 2 01480 M01S01474.1to +++| STM LDPB 01481 M01S01475.1to +++| LDK VCPC-2 01482 M01S01476.1to +++| STD S1 01483 M01S01477.1to +++| STD T3 01484 M01S01478.1to +++| UJN LDP3 ENTER TRANSFER LOOP 01485 M01S01479.1to +++| 01486 M01S01480.1to +++| LDP2 LDD S1 01487 M01S01481.1to +++| SHN 2 01488 M01S01482.1to +++| ADD S1 01489 M01S01483.1to +++| RAM LDPB 01490 M01S01484.1to +++| LDK VCPC 01491 M01S01485.1to +++| STD T3 01492 M01S01486.1to +++| STD S1 01493 M01S01487.1to +++| LDN 0 SET TO NOT LEAVE ROOM FOR HEADER WORDS 01494 M01S01488.1to +++| STD S2 01495 M01S01489.1to +++| RJM UPP 01496 M01S01490.1to +++| NJN LDP3 IF MORE POTS AVAILABLE 01497 M01S01491.1to +++| LDD CN+4 SET OUTPUT AVAILABLE TO RECALL *1TO* 01498 M01S01492.1to +++| SCN VOPR 01499 M01S01493.1to +++| LMN VOPR 01500 M01S01494.1to +++| STD CN+4 01501 M01S01495.1to +++| LDD WL 01502 M01S01496.1to +++| SBD NW 01503 M01S01497.1to +++| STD WL 01504 M01S01498.1to +++| LJM LDPX RETURN 01505 M01S01499.1to +++| 01506 M01S01500.1to +++| LDP3 LDD NW 01507 M01S01501.1to +++| SBD S1 01508 M01S01502.1to +++| STD NW 01509 M01S01503.1to +++| PJN LDP4 IF AT LEAST ONE FULL POT TO TRANSFER 01510 M01S01504.1to +++| ADD S1 01511 M01S01505.1to +++| STD T3 01512 M01S01506.1to +++| LDN 0 SET END OF DATA 01513 M01S01507.1to +++| STD NW 01514 M01S01508.1to +++| LDP4 RJM SPA 01515 M01S01509.1to +++| ADD S2 01516 M01S01510.1to +++| CWM *,T3 TRANSFER WORDS INTO POT 01517 M01S01511.1to +++| LDPB EQU *-1 01518 M01S01512.1to +++| LDD PP 01519 M01S01513.1to +++| STM 2,EP 01520 M01S01514.1to +++| AOD PC COUNT OUTPUT POT 01521 M01S01515.1to +++| LDD NW 01522 M01S01516.1to +++| SBN 1 01523 M01S01517.1to +++| PJP LDP2 IF MORE DATA TO TRANSFER 01524 M01S01518.1to +++| LDD T3 01525 M01S01519.1to +++| SBD S1 01526 M01S01520.1to +++| ZJP LDPX IF DATA ENDS EXACTLY ON A POT BOUNDARY 01527 M01S01521.1to +++| LDP5 LDK ZERL 01528 M01S01522.1to +++| CRD CM 01529 M01S01523.1to +++| LDN 2R"IB" ADD *0014* BYTE TO MARK END OF DATA 01530 M01S01524.1to +++| STD CM 01531 M01S01525.1to +++| LDD PA 01532 M01S01526.1to +++| SHN 14 01533 M01S01527.1to +++| LMD PA+1 01534 M01S01528.1to +++| ADD T3 01535 M01S01529.1to +++| ADD S2 01536 M01S01530.1to +++| CWD CM 01537 M01S01531.1to +++| LJM LDPX RETURN 01538 M01S01532.1to +++| RAS SPACE 4,10 01539 M01S01533.1to +++|** RAS - READ ADDITIONAL SECTORS. 01540 M01S01534.1to +++|* 01541 M01S01535.1to +++|* *RAS* CONTINUES TO READ SECTORS OF DATA INTO THE BUFFER 01542 M01S01536.1to +++|* UNTIL EITHER BLOCKSIZE WORDS HAVE BEEN LOADED OR UNTIL 01543 M01S01537.1to +++|* NO DATA REMAINS TO BE READ. 01544 M01S01538.1to +++|* 01545 M01S01539.1to +++|* ENTRY (BA) = BUFFER ADDRESS. 01546 M01S01540.1to +++|* (SC) = SECTOR WORD COUNT. 01547 M01S01541.1to +++|* (WC) = POSITION IN FIRST SECTOR. 01548 M01S01542.1to +++|* (NW) = USER BLOCKSIZE IN CM WORDS. 01549 M01S01543.1to +++|* (CB) = INDEX INTO CONTROL BYTE TABLE. 01550 M01S01544.1to +++|* (CN - CN+4) = *VROT* WORD. 01551 M01S01545.1to +++|* 01552 M01S01546.1to +++|* EXIT (CB) = UPDATED TO POINT TO CONTROL BYTES OF LAST 01553 M01S01547.1to +++|* SECTOR LOADED. 01554 M01S01548.1to +++|* (WL) = NUMBER OF WORDS OF OUTPUT IN BUFFER. 01555 M01S01549.1to +++|* 01556 M01S01550.1to +++|* USES BA, SC, S1. 01557 M01S01551.1to +++|* 01558 M01S01552.1to +++|* CALLS RDD. 01559 M01S01553.1to +++| 01560 M01S01554.1to +++| 01561 M01S01555.1to +++| RAS SUBR ENTRY/EXIT 01562 M01S01556.1to +++| LDD SC 01563 M01S01557.1to +++| SBD WC 01564 M01S01558.1to +++| STD WL 01565 M01S01559.1to +++| LDD NW GET BLOCKSIZE 01566 M01S01560.1to +++| ADD WC 01567 M01S01561.1to +++| STD S1 01568 M01S01562.1to +++| RAS1 LDD SC 01569 M01S01563.1to +++| SBD S1 01570 M01S01564.1to +++| PJN RASX IF THIS PRU SATISFIES REQUIREMENT 01571 M01S01565.1to +++| LMC -0 01572 M01S01566.1to +++| STD S1 01573 M01S01567.1to +++| LDD SC 01574 M01S01568.1to +++| SHN -6 01575 M01S01569.1to +++| NJN RAS2 IF NOT EOR 01576 M01S01570.1to +++| LDD CN+4 01577 M01S01571.1to +++| SHN 21-6 01578 M01S01572.1to +++| PJN RASX IF NOT LIST FILE 01579 M01S01573.1to +++| RAS2 LDD SC UPDATE BUFFER ADDRESS 01580 M01S01574.1to +++| SHN 2 01581 M01S01575.1to +++| ADD SC 01582 M01S01576.1to +++| RAD BA 01583 M01S01577.1to +++| ADC 502+1 01584 M01S01578.1to +++| SBD CB 01585 M01S01579.1to +++| PJN RASX IF NO MORE BUFFER SPACE 01586 M01S01580.1to +++| LCN 2 01587 M01S01581.1to +++| RAD CB 01588 M01S01582.1to +++| RJM RDD READ DISK 01589 M01S01583.1to +++| STD SC 01590 M01S01584.1to +++| MJP RASX IF EOI 01591 M01S01585.1to +++| RAD WL 01592 M01S01586.1to +++| UJN RAS1 PROCESS NEXT SECTOR 01593 M01S01587.1to +++| 01594 M01S01588.1to +++|* THE CALCULATION IN ROUTINE *RAS* FOR NUMBER OF CM WORDS 01595 M01S01589.1to +++|* NEEDED FOR A NETWORK TERMINAL MUST BE ALTERED IF THE 01596 M01S01590.1to +++|* NUMBER OF WORDS IN A POT IS CHANGED. 01597 M01S01591.1to +++| 01598 M01S01592.1to +++| ERRNZ VCPC-10 NUMBER OF WORDS PER POT 01599 M01S01593.1to +++| RDD SPACE 4,15 01600 M01S01594.1to +++|** RDD - READ DATA FROM DISK. 01601 M01S01595.1to +++|* 01602 M01S01596.1to +++|* ENTRY (BA) = BUFFER ADDRESS. 01603 M01S01597.1to +++|* (CB) = INDEX INTO CONTROL BYTE TABLE. 01604 M01S01598.1to +++|* (T4) = CHANNEL. 01605 M01S01599.1to +++|* (T5) = EQUIPMENT. 01606 M01S01600.1to +++|* (T6) = TRACK. 01607 M01S01601.1to +++|* (T7) = SECTOR. 01608 M01S01602.1to +++|* 01609 M01S01603.1to +++|* EXIT (A) = WORD COUNT = NEGATIVE IF EOI. 01610 M01S01604.1to +++|* (T6 - T7) = UPDATED. 01611 M01S01605.1to +++|* 01612 M01S01606.1to +++|* USES T3, S2, S3. 01613 M01S01607.1to +++|* 01614 M01S01608.1to +++|* CALLS RDS. 01615 M01S01609.1to +++| 01616 M01S01610.1to +++| 01617 M01S01611.1to +++| RDD4 LDN 0 SET EOI 01618 M01S01612.1to +++| STI CB 01619 M01S01613.1to +++| STM 1,CB 01620 M01S01614.1to +++| RDD5 LCN 0 INDICATE EOI 01621 M01S01615.1to +++| 01622 M01S01616.1to +++| RDD SUBR ENTRY/EXIT 01623 M01S01617.1to +++| LDI BA PRESERVE DATA OVERLAID BY CONTROL BYTES 01624 M01S01618.1to +++| STD S2 01625 M01S01619.1to +++| LDM 1,BA 01626 M01S01620.1to +++| STD S3 01627 M01S01621.1to +++| LDD BA READ SECTOR 01628 M01S01622.1to +++| RJM RDS 01629 M01S01623.1to +++| SHN -20 PRESERVE ERROR FLAG 01630 M01S01624.1to +++| STD T3 01631 M01S01625.1to +++| LDM 1,BA MOVE CONTROL BYTES TO TABLE 01632 M01S01626.1to +++| STM 1,CB 01633 M01S01627.1to +++| LDI BA 01634 M01S01628.1to +++| STI CB 01635 M01S01629.1to +++| LDD S2 RESTORE ORIGINAL DATA INTO PLACE 01636 M01S01630.1to +++| STI BA 01637 M01S01631.1to +++| LDD S3 01638 M01S01632.1to +++| STM 1,BA 01639 M01S01633.1to +++| LDD T3 01640 M01S01634.1to +++| NJN RDD4 IF READ ERROR 01641 M01S01635.1to +++| LDI CB 01642 M01S01636.1to +++| NJN RDD1 IF NOT EOF 01643 M01S01637.1to +++| LDM 1,CB 01644 M01S01638.1to +++| ZJN RDD5 IF EOI 01645 M01S01639.1to +++| RDD1 STD T7 UPDATE SECTOR 01646 M01S01640.1to +++| SHN 6 01647 M01S01641.1to +++| PJN RDD2 IF NOT NEW TRACK 01648 M01S01642.1to +++| SHN -6 01649 M01S01643.1to +++| STD T6 SET NEW TRACK 01650 M01S01644.1to +++| LDN 0 RESET SECTOR 01651 M01S01645.1to +++| STD T7 01652 M01S01646.1to +++| RDD2 LDI CB 01653 M01S01647.1to +++| ZJN RDD3 IF EOF 01654 M01S01648.1to +++| LDM 1,CB 01655 M01S01649.1to +++| RDD3 LJM RDDX RETURN 01656 M01S01650.1to +++| SDI SPACE 4,15 01657 M01S01651.1to +++|** SDI - SEARCH DISK FOR BEGINNING LINE. 01658 M01S01652.1to +++|* 01659 M01S01653.1to +++|* ENTRY (T4) = CHANNEL. 01660 M01S01654.1to +++|* (T5) = EQUIPMENT. 01661 M01S01655.1to +++|* (T6) = TRACK. 01662 M01S01656.1to +++|* (T7) = SECTOR. 01663 M01S01657.1to +++|* 01664 M01S01658.1to +++|* EXIT (WC)= POSITION OF BEGINNING OF LINE NUMBER 01665 M01S01659.1to +++|* (WL) = NUMBER OF CM WORDS IN LINE. 01666 M01S01660.1to +++|* 01667 M01S01661.1to +++|* USES FS+2, FS+3, LW, SC, T1, T3. 01668 M01S01662.1to +++|* 01669 M01S01663.1to +++|* CALLS RAS, RDD, SSE, SUL. 01670 M01S01664.1to +++| 01671 M01S01665.1to +++| 01672 M01S01666.1to +++| SDI9 LDN 0 INDICATE NO LINE FOUND 01673 M01S01667.1to +++| STD WL 01674 M01S01668.1to +++| 01675 M01S01669.1to +++| SDI SUBR ENTRY/EXIT 01676 M01S01670.1to +++| LDN 0 PRESET LAST WORD 01677 M01S01671.1to +++| STD WC PRESET CM WORD COUNT 01678 M01S01672.1to +++| SDI1 STD LW 01679 M01S01673.1to +++| SDI2 LDD T6 SAVE DISK INFORMATION 01680 M01S01674.1to +++| STD FS+2 01681 M01S01675.1to +++| LDD T7 01682 M01S01676.1to +++| STD FS+3 01683 M01S01677.1to +++| RJM RDD READ DISK 01684 M01S01678.1to +++| MJN SDI9 IF EOI 01685 M01S01679.1to +++| ZJN SDI1 IF ZERO LENGTH SECTOR 01686 M01S01680.1to +++| STD SC SAVE SECTOR WORD COUNT 01687 M01S01681.1to +++| RJM SSE SEARCH SECTOR 01688 M01S01682.1to +++| ZJN SDI2 IF NOT FOUND 01689 M01S01683.1to +++| LDC BUFF+1 01690 M01S01684.1to +++| STD T1 01691 M01S01685.1to +++| LDD LW 01692 M01S01686.1to +++| SDI3 ZJN SDI5 IF ZERO BYTE FOUND 01693 M01S01687.1to +++| LDN 5 01694 M01S01688.1to +++| SDI4 RAD T1 01695 M01S01689.1to +++| AOD WC COUNT CM WORD 01696 M01S01690.1to +++| LDI T1 01697 M01S01691.1to +++| UJN SDI3 CHECK NEXT WORD 01698 M01S01692.1to +++| 01699 M01S01693.1to +++| SDI5 AOD T1 01700 M01S01694.1to +++| RJM SUL SET LINE NUMBER 01701 M01S01695.1to +++| LDD CM 01702 M01S01696.1to +++| SHN 14 01703 M01S01697.1to +++| ADD CM+1 01704 M01S01698.1to +++| SDIA ADC * -(LINE NUMBER) 01705 M01S01699.1to +++| PJN SDI6 IF FIND MADE 01706 M01S01700.1to +++| LDN 5-1 01707 M01S01701.1to +++| UJN SDI4 LOOP 01708 M01S01702.1to +++| 01709 M01S01703.1to +++| SDI6 RJM RAS READ ADDITIONAL SECTORS UP TO BLOCKSIZE 01710 M01S01704.1to +++| LDD LN+4 01711 M01S01705.1to +++| ZJN SDI10 IF NOT SINGLE LINE 01712 M01S01706.1to +++| LDN 0 01713 M01S01707.1to +++| STD T3 01714 M01S01708.1to +++| SOD T1 01715 M01S01709.1to +++| SDI7 LDN 5 FIND NUMBER OF WORDS IN THE LINE 01716 M01S01710.1to +++| RAD T1 01717 M01S01711.1to +++| AOD T3 01718 M01S01712.1to +++| LDI T1 01719 M01S01713.1to +++| ZJN SDI8 IF EOL FOUND 01720 M01S01714.1to +++| LDD T3 01721 M01S01715.1to +++| SBD WL 01722 M01S01716.1to +++| MJN SDI7 IF MORE WORDS TO CHECK 01723 M01S01717.1to +++| SDI8 LDD T3 SAVE NUMBER OF WORDS 01724 M01S01718.1to +++| STD WL 01725 M01S01719.1to +++| SDI10 LJM SDIX RETURN 01726 M01S01720.1to +++| SSE SPACE 4,15 01727 M01S01721.1to +++|** SSE - SEARCH SECTOR FOR LINE NUMBER OF LAST LINE IN BUFFER. 01728 M01S01722.1to +++|* 01729 M01S01723.1to +++|* ENTRY (BUFF) = SECTOR TO SEARCH. 01730 M01S01724.1to +++|* (A) = SECTOR WORD COUNT. 01731 M01S01725.1to +++|* (LW) = LAST BYTE IN PREVIOUS SECTOR. 01732 M01S01726.1to +++|* 01733 M01S01727.1to +++|* EXIT (A) = 0, IF LINE NUMBER NOT FOUND. 01734 M01S01728.1to +++|* (LW) = IF NUMBER FOUND, LAST BYTE OF PREVIOUS SECTOR. 01735 M01S01729.1to +++|* IF NOT FOUND, LAST BYTE OF CURRENT SECTOR. 01736 M01S01730.1to +++|* 01737 M01S01731.1to +++|* USES LW, S2, T1, T2. 01738 M01S01732.1to +++|* 01739 M01S01733.1to +++|* CALLS SUL. 01740 M01S01734.1to +++| 01741 M01S01735.1to +++| 01742 M01S01736.1to +++| SSE SUBR ENTRY/EXIT 01743 M01S01737.1to +++| STD S2 SET PP WORD COUNT 01744 M01S01738.1to +++| SHN 2 01745 M01S01739.1to +++| RAD S2 01746 M01S01740.1to +++| LDD LW SET LAST WORD FOR SEARCH 01747 M01S01741.1to +++| STM BUFF+1 01748 M01S01742.1to +++| LDC BUFF+1-5 SET STARTING SEARCH ADDRESS 01749 M01S01743.1to +++| STD T2 01750 M01S01744.1to +++| ADD S2 01751 M01S01745.1to +++| STD T1 01752 M01S01746.1to +++| 01753 M01S01747.1to +++|* T1 CONTAINS THE ADDRESS OF BYTE FOUR OF THE SECOND TO LAST 01754 M01S01748.1to +++|* CM WORD IN THE BUFFER. 01755 M01S01749.1to +++| 01756 M01S01750.1to +++| SSE1 LDI T1 01757 M01S01751.1to +++| ZJN SSE3 IF ZERO BYTE FOUND 01758 M01S01752.1to +++| LCN 5 01759 M01S01753.1to +++| RAD T1 01760 M01S01754.1to +++| LMD T2 01761 M01S01755.1to +++| NJN SSE1 IF NOT AT BEGINNING OF BUFFER 01762 M01S01756.1to +++| SSE2 LDM BUFF+1,S2 GET LAST BYTE IN BUFFER 01763 M01S01757.1to +++| STD LW 01764 M01S01758.1to +++| LDN 0 INDICATE FAILURE 01765 M01S01759.1to +++| LJM SSEX EXIT 01766 M01S01760.1to +++| 01767 M01S01761.1to +++| SSE3 AOD T1 01768 M01S01762.1to +++| RJM SUL SET UP FOUND LINE NUMBER 01769 M01S01763.1to +++| LDD CM 01770 M01S01764.1to +++| SHN 14 01771 M01S01765.1to +++| ADD CM+1 01772 M01S01766.1to +++| SSEA ADC * -(LINE NUMBER) 01773 M01S01767.1to +++| MJN SSE2 IF DATA NOT IN THIS SECTOR 01774 M01S01768.1to +++| LDN 1 01775 M01S01769.1to +++| LJM SSEX EXIT 01776 M01S01770.1to +++| SUL SPACE 4,10 01777 M01S01771.1to +++|** SUL - SET UP LINE NUMBER. 01778 M01S01772.1to +++|* 01779 M01S01773.1to +++|* *SUL* CONVERTS A LINE NUMBER UP TO FIVE DIGITS LONG 01780 M01S01774.1to +++|* FROM DISPLAY CODE INTO BINARY. 01781 M01S01775.1to +++|* 01782 M01S01776.1to +++|* ENTRY (T1) = ADDRESS OF FIRST BYTE OF LINE NUMBER. 01783 M01S01777.1to +++|* 01784 M01S01778.1to +++|* EXIT (T1) = UNCHANGED. 01785 M01S01779.1to +++|* (CM - CM+1) = RESULT. 01786 M01S01780.1to +++|* 01787 M01S01781.1to +++|* USES T2. 01788 M01S01782.1to +++| 01789 M01S01783.1to +++| 01790 M01S01784.1to +++| SUL SUBR ENTRY/EXIT 01791 M01S01785.1to +++| LDN 0 CLEAR RESULT 01792 M01S01786.1to +++| STD CM 01793 M01S01787.1to +++| STD CM+1 01794 M01S01788.1to +++| LDI T1 01795 M01S01789.1to +++| SHN -6 01796 M01S01790.1to +++| SBN 1R+ 01797 M01S01791.1to +++| PJN SULX IF NON-NUMERIC 01798 M01S01792.1to +++| ADN 1R+-1R0 01799 M01S01793.1to +++| MJN SULX IF NON-NUMERIC 01800 M01S01794.1to +++| STD CM+1 01801 M01S01795.1to +++| LDI T1 01802 M01S01796.1to +++| LPN 77 01803 M01S01797.1to +++| SBN 1R+ 01804 M01S01798.1to +++| PJN SULX IF NON-NUMERIC 01805 M01S01799.1to +++| ADN 1R+-1R0 01806 M01S01800.1to +++| SUL1 MJN SULX IF NON-NUMERIC 01807 M01S01801.1to +++| STD T2 01808 M01S01802.1to +++| LDD CM+1 01809 M01S01803.1to +++| SHN 2 01810 M01S01804.1to +++| ADD CM+1 01811 M01S01805.1to +++| SHN 1 01812 M01S01806.1to +++| ADD T2 01813 M01S01807.1to +++| STD CM+1 01814 M01S01808.1to +++| LDM 1,T1 01815 M01S01809.1to +++| SHN -6 01816 M01S01810.1to +++| SBN 1R+ 01817 M01S01811.1to +++| SUL2 PJN SULX IF NON-NUMERIC 01818 M01S01812.1to +++| ADN 1R+-1R0 01819 M01S01813.1to +++| MJN SUL1 IF NON-NUMERIC 01820 M01S01814.1to +++| STD T2 01821 M01S01815.1to +++| LDD CM+1 01822 M01S01816.1to +++| SHN 2 01823 M01S01817.1to +++| ADD CM+1 01824 M01S01818.1to +++| SHN 1 01825 M01S01819.1to +++| ADD T2 01826 M01S01820.1to +++| STD CM+1 01827 M01S01821.1to +++| LDM 1,T1 01828 M01S01822.1to +++| LPN 77 01829 M01S01823.1to +++| SBN 1R+ 01830 M01S01824.1to +++| PJN SUL2 IF NON-NUMERIC 01831 M01S01825.1to +++| ADN 1R+-1R0 01832 M01S01826.1to +++| SUL3 MJN SUL1 IF NON-NUMERIC 01833 M01S01827.1to +++| STD T2 01834 M01S01828.1to +++| LDD CM+1 01835 M01S01829.1to +++| SHN 2 01836 M01S01830.1to +++| ADD CM+1 01837 M01S01831.1to +++| SHN 1 01838 M01S01832.1to +++| ADD T2 01839 M01S01833.1to +++| STD CM+1 01840 M01S01834.1to +++| SHN -14 01841 M01S01835.1to +++| STD CM 01842 M01S01836.1to +++| LDM 2,T1 01843 M01S01837.1to +++| SHN -6 01844 M01S01838.1to +++| SBN 1R+ 01845 M01S01839.1to +++| PJN SUL2 IF NON NUMERIC 01846 M01S01840.1to +++| ADN 1R+-1R0 01847 M01S01841.1to +++| MJN SUL3 IF NON-NUMERIC 01848 M01S01842.1to +++| STD T2 01849 M01S01843.1to +++| LDD CM 01850 M01S01844.1to +++| SHN 14 01851 M01S01845.1to +++| ADD CM+1 01852 M01S01846.1to +++| SHN 10 01853 M01S01847.1to +++| ADD CM 01854 M01S01848.1to +++| SHN 14 01855 M01S01849.1to +++| ADD CM+1 01856 M01S01850.1to +++| SHN 1 01857 M01S01851.1to +++| ADD T2 01858 M01S01852.1to +++| STD CM+1 01859 M01S01853.1to +++| SHN -14 01860 M01S01854.1to +++| STD CM 01861 M01S01855.1to +++| LJM SULX RETURN 01862 M01S01856.1to +++| UDA SPACE 4,10 01863 M01S01857.1to +++|** UDA - UPDATE DISK ADDRESSES. 01864 M01S01858.1to +++|* 01865 M01S01859.1to +++|* ENTRY (FS+2) = TRACK NUMBER OF FIRST SECTOR LOADED. 01866 M01S01860.1to +++|* (FS+3) = SECTOR NUMBER OF FIRST SECTOR LOADED. 01867 M01S01861.1to +++|* (WC) = WORD INDEX INTO FIRST SECTOR. 01868 M01S01862.1to +++|* (WL) = NUMBER OF WORDS TRANSFERRED TO POTS. 01869 M01S01863.1to +++|* (CB) = INDEX TO CONTROL BYTES OF LAST SECTOR READ. 01870 M01S01864.1to +++|* 01871 M01S01865.1to +++|* EXIT (A) = 0, IF AT END OF DATA ON ROLLOUT FILE 01872 M01S01866.1to +++|* (FS+2) = TRACK NUMBER OF SECTOR TO BE ACCESSED ON 01873 M01S01867.1to +++|* THE NEXT CALL. 01874 M01S01868.1to +++|* (FS+3) = SECTOR NUMBER OF SECTOR TO BE ACCESSED 01875 M01S01869.1to +++|* ON THE NEXT CALL. 01876 M01S01870.1to +++|* (WL) = CONTINUATION POINT IN SECTOR. 01877 M01S01871.1to +++| 01878 M01S01872.1to +++| 01879 M01S01873.1to +++| UDA SUBR ENTRY/EXIT 01880 M01S01874.1to +++| LCN 2 MARK END OF CONTROL BYTE TABLE 01881 M01S01875.1to +++| RAD CB 01882 M01S01876.1to +++| LDK 7777 01883 M01S01877.1to +++| STI CB 01884 M01S01878.1to +++| STM 1,CB 01885 M01S01879.1to +++| LDC EBUF-2 RESET INDEX TO START OF TABLE 01886 M01S01880.1to +++| STD CB 01887 M01S01881.1to +++| LDD WC 01888 M01S01882.1to +++| RAD WL 01889 M01S01883.1to +++| UDA1 LDI CB 01890 M01S01884.1to +++| ZJN UDA2 IF EOF 01891 M01S01885.1to +++| LDD WL 01892 M01S01886.1to +++| SBM 1,CB 01893 M01S01887.1to +++| MJN UDAX IF UPDATE COMPLETE 01894 M01S01888.1to +++| STD WL 01895 M01S01889.1to +++| NJN UDA2 IF DATA DOES NOT END ON SECTOR BOUNDARY 01896 M01S01890.1to +++| LDM 1,CB 01897 M01S01891.1to +++| SHN -6 01898 M01S01892.1to +++| NJN UDA2 IF LAST SECTOR WAS FULL 01899 M01S01893.1to +++| LDD CN+4 01900 M01S01894.1to +++| SHN 21-6 01901 M01S01895.1to +++| MJN UDA2 IF LIST FILE 01902 M01S01896.1to +++| LCN VOPR NO MORE DATA ON ROLLOUT FILE 01903 M01S01897.1to +++| RAD CN+4 01904 M01S01898.1to +++| LDN 0 01905 M01S01899.1to +++| LJM UDAX EXIT 01906 M01S01900.1to +++| 01907 M01S01901.1to +++| UDA2 LDI CB UPDATE TRACK AND SECTOR 01908 M01S01902.1to +++| NJN UDA3 IF NOT EOF 01909 M01S01903.1to +++| LDM 1,CB 01910 M01S01904.1to +++| UDA3 STD FS+3 01911 M01S01905.1to +++| SHN 6 01912 M01S01906.1to +++| PJN UDA4 IF NOT A NEW TRACK 01913 M01S01907.1to +++| SHN -6 01914 M01S01908.1to +++| STD FS+2 01915 M01S01909.1to +++| LDN 0 01916 M01S01910.1to +++| STD FS+3 01917 M01S01911.1to +++| UDA4 LCN 2 01918 M01S01912.1to +++| RAD CB 01919 M01S01913.1to +++| LJM UDA1 CHECK NEXT SECTOR 01920 M01S01914.1to +++| UTT SPACE 4,10 01921 M01S01915.1to +++|** UTT - UPDATE TERMINAL TABLE. 01922 M01S01916.1to +++|* 01923 M01S01917.1to +++|* ENTRY (CN - CN+4) = *VROT* WORD. 01924 M01S01918.1to +++|* (FS+2) = TRACK NUMBER OF FIRST SECTOR LOADED. 01925 M01S01919.1to +++|* (FS+3) = SECTOR NUMBER OF FIRST SECTOR LOADED. 01926 M01S01920.1to +++|* (TT - TT+1) = TERMINAL TABLE ADDRESS. 01927 M01S01921.1to +++|* (WC) = WORD INDEX INTO FIRST SECTOR. 01928 M01S01922.1to +++|* (WL) = NUMBER OF WORDS TRANSFERRED TO POTS. 01929 M01S01923.1to +++|* (CB) = INDEX INTO CONTROL BYTE TABLE. 01930 M01S01924.1to +++|* 01931 M01S01925.1to +++|* EXIT TERMINAL TABLE WORD *VROT* UPDATED. 01932 M01S01926.1to +++|* SCHEDULE FIELD IN EJT UPDATED IF CONTINUATION. 01933 M01S01927.1to +++|* 01934 M01S01928.1to +++|* USES CM - CM+4. 01935 M01S01929.1to +++|* 01936 M01S01930.1to +++|* CALLS ABT, UDA. 01937 M01S01931.1to +++|* 01938 M01S01932.1to +++|* MACROS MONITOR. 01939 M01S01933.1to +++| 01940 M01S01934.1to +++| 01941 M01S01935.1to +++| UTT SUBR ENTRY/EXIT 01942 M01S01936.1to +++| LDD CN+4 CHECK FOR MORE OUTPUT 01943 M01S01937.1to +++| SHN 21-4 01944 M01S01938.1to +++| PJN UTT2 IF NO MORE OUTPUT 01945 M01S01939.1to +++| LDN 0 01946 M01S01940.1to +++|* LDN 1 (*1RO* CALL) 01947 M01S01941.1to +++| UTTA EQU *-1 01948 M01S01942.1to +++| NJN UTT1 IF NO NEED TO UPDATE DISK ADDRESSES 01949 M01S01943.1to +++| RJM UDA 01950 M01S01944.1to +++| ZJN UTT2 IF NO MORE OUTPUT 01951 M01S01945.1to +++| UTT1 LDD FS+3 STORE SECTOR 01952 M01S01946.1to +++| STD CM+4 01953 M01S01947.1to +++| LDD FS+2 STORE TRACK 01954 M01S01948.1to +++| STD CM+3 01955 M01S01949.1to +++| LDD WL STORE WORD COUNT 01956 M01S01950.1to +++| STD CM+2 01957 M01S01951.1to +++| LDC SCHE*100+30D 01958 M01S01952.1to +++| STD CM 01959 M01S01953.1to +++| LDN 0 01960 M01S01954.1to +++| STD CM+1 01961 M01S01955.1to +++| LDD MA STORE MESSAGE BUFFER 01962 M01S01956.1to +++| CWD CM 01963 M01S01957.1to +++| UJN UTT3 UPDATE SCHEDULE FIELD 01964 M01S01958.1to +++| 01965 M01S01959.1to +++| UTT2 LDD MA 01966 M01S01960.1to +++| CWM UTTB,ON SET REQUEST TO CHANGE JOB STATUS 01967 M01S01961.1to +++| UTT3 LDD TT GET TERMINAL TABLE ADDRESS 01968 M01S01962.1to +++| SHN 14 01969 M01S01963.1to +++| ADD TT+1 01970 M01S01964.1to +++| ADK VUIT 01971 M01S01965.1to +++| CRD CM 01972 M01S01966.1to +++| ADN VROT-VUIT 01973 M01S01967.1to +++| CWD CN 01974 M01S01968.1to +++| 01975 M01S01969.1to +++|* UPDATE EJT - JOB STATUS OR SCHEDULE FIELD. 01976 M01S01970.1to +++| 01977 M01S01971.1to +++| SFA EJT,CM+4 SET EJT ADDRESS 01978 M01S01972.1to +++| STD CM+4 01979 M01S01973.1to +++| SHN -14 01980 M01S01974.1to +++| STD CM+3 01981 M01S01975.1to +++| LDN 0 01982 M01S01976.1to +++| STD CM+2 01983 M01S01977.1to +++| LDN 1 01984 M01S01978.1to +++| STD CM+1 01985 M01S01979.1to +++| MONITOR UTEM 01986 M01S01980.1to +++| LDD CM+1 01987 M01S01981.1to +++| NJN UTT4 IF REJECT 01988 M01S01982.1to +++| LJM UTTX EXIT 01989 M01S01983.1to +++| 01990 M01S01984.1to +++| UTT4 LDN 4 UNEXPECTED EJT STATUS 01991 M01S01985.1to +++| RJM ABT ABORT IAF 01992 M01S01986.1to +++| 01993 M01S01987.1to +++| 01994 M01S01988.1to +++| UTTB VFD 6/JSNE,6/5,6/1,42/DOJS 01995 M01S01989.1to +++| SPACE 4,10 01996 M01S01990.1to +++| QUAL * 01997 M01S01991.1to +++| TITLE BUFFERS. 01998 M01S01992.1to +++| USE BUFFERS 01999 M01S01993.1to +++| BUFFERS SPACE 4,10 02000 M01S01994.1to +++| 02001 M01S01995.1to +++| 02002 M01S01996.1to +++|** GENERAL BUFFERS. 02003 M01S01997.1to +++| 02004 M01S01998.1to +++| BUFF EQU * INPUT/OUTPUT BUFFER 02005 M01S01999.1to +++| TEPS EQU EPFW-2*VCPC*VRQB 02006 M01S02000.1to +++| EBUF EQU TEPS-VRQB*VCPC*5-2 REQUEST QUEUE BUFFER 02007 M01S02001.1to +++| 02008 M01S02002.1to +++| BUFL EQU EBUF-BUFF-2*12 *BUFF* LENGTH - MAXIMUM CONTROL 02009 M01S02003.1to +++|* BYTE COUNT FOR PPU MEMORY 02010 M01S02004.1to +++| ERRNG BUFL-VSEC*500 BUFFER AT LEAST MINIMUM SECTORS LONG 02011 M01S02005.1to +++| IBUFL EQU EBUF-IBUF-2*12 INPUT BUFFER LENGTH 02012 M01S02006.1to +++| ISEC EQU IBUFL/500B INPUT BUFFER IN SECTORS 02013 M01S02007.1to +++| BUFP EQU ISEC*100B/VCPC NUMBER OF POTS IN INPUT BUFFER 02014 M01S02008.1to +++| 02015 M01S02009.1to +++| OVERFLOW /2TO/TTOX,IROB 02016 M01S02010.1to +++| TTL 1TO - TERMINAL INPUT/OUTPUT. 02017 M01S02011.1to +++| 02018 M01S02012.1to +++| 02019 M01S02013.1to +++| END
cdc/nos2.source/opl.opl871/deck/1to.txt · Last modified: by 127.0.0.1