User Tools

Site Tools


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

01718232429 RETURN ADDRESS PP303536414259 PP CP *1TO*

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

01112232429 TN FP NP3035364748535459 NP EJTO RT FT

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

01112232429 TN FP LP3035364748535459 LP 0 NP RT

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

01112232429 TN FP NP30353647485354555659 NP EJTO RT FT PFIC

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

01112232429 TN P2 P1303536474859 P1 TK EQ

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