User Tools

Site Tools


cdc:nos2.source:opl.opl871:deck:dio

Deck DIO

11 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.dio     +++|          IDENT  DIO,0
00002  M01S00002.dio     +++|          PERIPH
00003  M01S00003.dio     +++|          BASE   M
00004  M01S00004.dio     +++|          SST
00005  M01S00005.dio     +++|          TITLE  DIO - DEADSTART I/O PROCESSOR.
00006  M01S00006.dio     +++|*COMMENT  DIO - DEADSTART I/O PROCESSOR.
Line S00007 Modification History
M01 (Added by) dio
M02 (Updated by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00007  M02S00007.281l803 ---|          COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978.
00008  M01S00001.281l803 +++|          COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00009  M01S00008.dio     +++| DIO      SPACE  4,10
00010  M01S00009.dio     +++|*****     DIO - DEADSTART I/O PROCESSOR.
00011  M01S00010.dio     +++|*
00012  M01S00011.dio     +++|*         P. D. HAAS.        78/08/04.
00013  M01S00012.dio     +++| DIO      SPACE  4,10
00014  M01S00013.dio     +++|***              *DIO* IS THE CENTRALIZED MEANS OF READING DATA FROM
00015  M01S00014.dio     +++|*         THE DEADSTART MEDIUM, BE IT TAPE OR DISK.  THIS ALLOWS THE
00016  M01S00015.dio     +++|*         OTHER DEADSTART TIME ROUTINES TO REMAIN MORE OR LESS
00017  M01S00016.dio     +++|*         UNAWARE OF THE MEDIUM BEING READ.  TO THIS END, 10B DISK
00018  M01S00017.dio     +++|*         SECTORS WILL BE ASSEMBLED, IF DEADSTART IS FROM RMS, INTO
00019  M01S00018.dio     +++|*         A FACSIMILE OF A TAPE PRU.  COMMANDS ARE ISSUED TO *DIO*
00020  M01S00019.dio     +++|*         VIA AN INTERCOMMUNICATIONS CHANNEL, ACCORDING TO A
00021  M01S00020.dio     +++|*         PROTOCOL RESEMBLING THAT OF A 3000 TYPE TAPE CONTROLLER
00022  M01S00021.dio     +++|*         AND A 6681.  *DIO* IN THE DISPLAY CHANNEL PP FUNCTIONS AS
00023  M01S00022.dio     +++|*         THE 6681, READING DATA FROM AN EXTERNAL EQUIPMENT, AND
00024  M01S00023.dio     +++|*         RETURNING SAME TO THE REQUESTING PP.
00025  M01S00024.dio     +++| DIO      SPACE  4,10
00026  M01S00025.dio     +++|***       OPERATOR MESSAGES.
00027  M01S00026.dio     +++|*
00028  M01S00027.dio     +++|*         REFER TO OPERATORS GUIDE FOR INFORMATION AS TO CAUSE
00029  M01S00028.dio     +++|*         OF ERROR AND RECOMMENDED CORRECTIVE ACTION.
00030  M01S00029.dio     +++|*
00031  M01S00030.dio     +++|*         *SYSTEM TAPE PARITY ERROR.*
00032  M01S00031.dio     +++|*
00033  M01S00032.dio     +++|*         *BLOCK SEQUENCE ERROR.*
00034  M01S00033.dio     +++|*
00035  M01S00034.dio     +++|*         *CHXX, UNYY - SZZZZ.*
00036  M01S00035.dio     +++| DIO      SPACE  4,10
00037  M01S00036.dio     +++|*CALL     COMPMAC
00038  M01S00037.dio     +++|*CALL     COMPCHM
00039  M01S00038.dio     +++|*CALL     COMSDSL
00040  M01S00039.dio     +++|*CALL     COMSMSP
00041  M01S00040.dio     +++|*CALL     COMSPIM
00042  M01S00041.dio     +++|          TITLE  DIRECT LOCATION ASSIGNMENTS.
00043  M01S00042.dio     +++| DIO      SPACE  4,10
00044  M01S00043.dio     +++|****      DIRECT LOCATION ASSIGNMENTS.
00045  M01S00044.dio     +++|
00046  M01S00045.dio     +++|
00047  M01S00046.dio     +++|          ORG    0
00048  M01S00047.dio     +++|          CON    PRS-1       TRANSFER ADDRESS - 1
00049  M01S00048.dio     +++|          BSS    16-*
00050  M01S00049.dio     +++| L1       BSS    1           SCRATCH
00051  M01S00050.dio     +++| L2       BSS    1           SCRATCH
00052  M01S00001.241l630 +++| DT       CON    0           895 DEADSTART READ FLAG
00053  M01S00002.241l630 +++|          ERRNZ  DT-MP       DIRECT CELL LOCATION MUST MATCH IN *OSB*
00054  M01S00051.dio     +++| UN       BSS    4           PHYSICAL DISK ADDRESS
00055  M01S00052.dio     +++| BF       CON    0           TAPE BACKSPACE FUNCTION
00056  M01S00053.dio     +++| RF       CON    0           TAPE READ FUNCTION
00057  M01S00054.dio     +++| SF       CON    0           TAPE STATUS FUNCTION
00058  M01S00055.dio     +++| LT       BSS    1           LOGICAL TRACK FOR BACKSPACE
00059  M01S00056.dio     +++| LS       BSS    1           LOGICAL SECTOR FOR BACKSPACE
00060  M01S00057.dio     +++| DM       BSS    1           DEADSTART MEDIUM
00061  M01S00058.dio     +++| ST       BSS    1           GENERAL STATUS
00062  M01S00059.dio     +++| RC       BSS    1           ERROR RETRY COUNT
00063  M01S00060.dio     +++| WC       BSS    1           WORD COUNT
00064  M01S00061.dio     +++| DH       BSS    1           DEADSTART CHANNEL
00065  M01S00062.dio     +++| IH       BSS    1           INTERCOMMUNICATIONS CHANNEL
00066  M01S00063.dio     +++| ZR       CON    0           ZERO BYTE
00067  M01S00064.dio     +++| TM       CON    0           TAPE MOTION FLAG
00068  M01S00065.dio     +++| CN       BSS    5           CM WORD BUFFER
00069  M01S00066.dio     +++|
00070  M01S00067.dio     +++|          ERRPL  *-IR        OVERFLOW CELLS DESTROYED BY RESIDENT
00071  M01S00068.dio     +++|
00072  M01S00069.dio     +++|          BSS    100-*
00073  M01S00001.ns22000 +++| DN       EQU    57          DECK NUMBER
00074  M01S00070.dio     +++| DP       EQU    60 - 64     CM WORD BUFFER (5 LOCATIONS)
00075  M01S00071.dio     +++| BL       EQU    65          PP BUFFER LIMIT
00076  M01S00072.dio     +++| BC       EQU    66 - 67     BLOCK COUNT (2 LOCATIONS)
00077  M01S00073.dio     +++|****
00078  M01S00001.ns21000 +++|
00079  M01S00002.ns21000 +++|*         IN ORDER TO AVOID CONFLICTS BETWEEN *COMSMSP* AND THE
00080  M01S00003.ns21000 +++|*         *CHTB* MACRO, *DC* IS CHANGED TO *DS*.
00081  M01S00004.ns21000 +++|
00082  M01S00005.ns21000 +++| DS       EQU    DC          DEADSTART CHANNEL
00083  M01S00002.ns22000 +++|          TITLE  MACRO DEFINITIONS.
00084  M01S00003.ns22000 +++|          SPACE  4,10
00085  M01S00004.ns22000 +++|**        JMP - THREADED JUMP.
00086  M01S00005.ns22000 +++|*
00087  M01S00006.ns22000 +++|*
00088  M01S00007.ns22000 +++|*         JMP    ADDR
00089  M01S00008.ns22000 +++|*         ENTRY  *ADDR* = JUMP ADDRESS.
00090  M01S00009.ns22000 +++|
00091  M01S00010.ns22000 +++|
00092  M01S00011.ns22000 +++| JMP      MACRO  ADDR
00093  M01S00012.ns22000 +++|          IF     -DEF,.ADDR,2
00094  M01S00013.ns22000 +++|          NOREF  .ADDR
00095  M01S00014.ns22000 +++| .ADDR    MAX    ADDR,*-40
00096  M01S00015.ns22000 +++|          IFGT   .ADDR,*-40
00097  M01S00016.ns22000 +++|          UJN    .ADDR
00098  M01S00017.ns22000 +++| .ADDR    SET    *-1
00099  M01S00018.ns22000 +++|          ELSE   2
00100  M01S00019.ns22000 +++| .ADDR    SET    *
00101  M01S00020.ns22000 +++|          LJM    ADDR
00102  M01S00021.ns22000 +++| JMP      ENDM
00103  M01S00074.dio     +++|          TITLE  PRESET.
00104  M01S00075.dio     +++| PRS      SPACE  4,10
00105  M01S00076.dio     +++|          ORG    MSFW
00106  M01S00077.dio     +++|
Line S00078 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00107  M02S00078.ns2776  ---| PRS      LDM    MXRL+CM     SET DEADSTART CHANNEL
Line S00079 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00108  M02S00079.ns2776  ---|          STD    T4
Line S00080 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00109  M02S00080.ns2776  ---|          STD    DH
Line S00081 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00110  M02S00081.ns2776  ---|          RJM    C2D         CONVERT FOR STATUS MESSAGE
Line S00082 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00111  M02S00082.ns2776  ---|          STM    DSMA+1
Line S00001 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00112  M02S00001.ns2776  ---|          LDM    MXRL+LA     PRESERVE DISPLAY CONSOLE STATUS
Line S00002 Modification History
M01 (Added by) v23l617
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00113  M02S00002.ns2776  ---|          STD    DN
Line S00083 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00114  M03S00083.ns2776  ---|          LDC    CTDC        MODIFY CHANNEL INSTRUCTIONS
Line S00006 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00115  M02S00006.ns2776  ---|          LDC    CTDS        MODIFY CHANNEL INSTRUCTIONS
Line S00084 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00116  M02S00084.ns2776  ---|          RJM    MCI
Line S00085 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00117  M02S00085.ns2776  ---|          LDN    PC          CHECK DEADSTART CHANNEL
Line S00086 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00118  M02S00086.ns2776  ---|          STD    IH
Line S00087 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00119  M02S00087.ns2776  ---|          LMD    DH
Line S00088 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00120  M02S00088.ns2776  ---|          NJN    PRS1        IF NOT PP COMMUNICATIONS CHANNEL
Line S00089 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00121  M02S00089.ns2776  ---|          LDN    12          SET INTERCOMMUNICATIONS CHANNEL
Line S00090 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00122  M02S00090.ns2776  ---|          STD    IH
Line S00091 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00123  M02S00091.ns2776  ---|          STD    T4
Line S00092 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00124  M02S00092.ns2776  ---|          LDC    CTPC        MODIFY PP INTERCOMMUNICATION CHANNELS
Line S00093 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00125  M02S00093.ns2776  ---|          RJM    MCI
Line S00094 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00126  M02S00094.ns2776  ---| PRS1     LDM    MXRL+T7     DISK SECTOR / DEADSTART FUNCTION
Line S00095 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00127  M02S00095.ns2776  ---|          STD    T7
Line S00096 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00128  M02S00096.ns2776  ---|          LDM    MXRL+T6     TRACK / TAPE STATUS
Line S00097 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00129  M02S00097.ns2776  ---|          STD    T6
Line S00098 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00130  M02S00098.ns2776  ---|          STD    DM
Line S00099 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00131  M02S00099.ns2776  ---|          RJM    PSD         PRESET DRIVERS
Line S00100 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00132  M02S00100.ns2776  ---|          LDN    3           DEFINE CONSTANT 3
Line S00101 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00133  M02S00101.ns2776  ---|          STD    TR
Line S00102 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00134  M02S00102.ns2776  ---|
00135  M01S00001.ns2776  +++| PRS      BSS    0           ENTRY
00136  M01S00002.ns2776  +++|          RJM    BRP         EXECUTE BUFFER RESIDENT PORTION OF PRESET
00137  M01S00003.ns2776  +++|
00138  M01S00103.dio     +++|*         SEARCH FOR *SET* AND TRANSMIT TO PP0.
00139  M01S00104.dio     +++|
00140  M01S00105.dio     +++| PRS2     RJM    RNR         READ NEXT RECORD
00141  M01S00106.dio     +++|          LDM    BUF+5*1+1   CHECK NAME IN *PRFX* TABLE
00142  M01S00107.dio     +++|          SHN    6
00143  M01S00108.dio     +++|          LMM    BUF+5*1+0
00144  M01S00109.dio     +++|          LMC    3RTSE
00145  M01S00110.dio     +++|          NJN    PRS2        IF NOT *SET*
00146  M01S00111.dio     +++|          LDD    DH          PASS CHANNEL DEFINITIONS TO *SET*
00147  M01S00112.dio     +++|          STM    BUF+5*20+T4
00148  M01S00113.dio     +++|          LDD    IH
00149  M01S00114.dio     +++|          STM    BUF+5*20+T5
00150  M01S00003.v23l617 +++|          LDD    DN          PASS CONSOLE STATUS TO *SET*
00151  M01S00004.v23l617 +++|          STM    BUF+5*20+T2
Line S00115 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00152  M02S00115.ns22000 ---|          LDD    WC          TRANSMIT *SET* TO PP0
00153  M01S00022.ns22000 +++|          LCN    20          TRANSMIT *SET* TO PP0
00154  M01S00023.ns22000 +++|          RAD    WC
00155  M01S00116.dio     +++|          SHN    2
00156  M01S00117.dio     +++|          ADD    WC
00157  M01S00118.dio     +++|          OAM.   BUF+5*20,CH
Line S00119 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00158  M02S00119.ns22000 ---|          FJM.   *,CH
00159  M01S00024.ns22000 +++|          LDD    WC
00160  M01S00025.ns22000 +++|          LMC    MXRL/5
00161  M01S00026.ns22000 +++|          NJN    PRS3        IF *SET* DOES NOT EXCEED ONE TAPE PRU
00162  M01S00027.ns22000 +++|          RJM    RNR         READ REMAINDER OF *SET*
00163  M01S00028.ns22000 +++|          LDD    WC
00164  M01S00029.ns22000 +++|          ZJN    PRS3        IF ZERO LENGTH PRU
00165  M01S00030.ns22000 +++|          SHN    2
00166  M01S00031.ns22000 +++|          ADD    WC
00167  M01S00032.ns22000 +++|          OAM.   BUF,CH      TRANSMIT REMAINDER OF *SET*
00168  M01S00033.ns22000 +++| PRS3     FJM.   *,CH        WAIT OUTPUT COMPLETE
00169  M01S00120.dio     +++|          DCN.   CH
00170  M01S00121.dio     +++|          RJM    RNR         READ NEXT RECORD
00171  M01S00122.dio     +++|          LJM    DIO         ENTER IDLE LOOP
Line S00123 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00172  M02S00123.ns2776  ---| PSD      SPACE  4,10
Line S00124 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00173  M02S00124.ns2776  ---|**        PSD - PRESET DRIVERS.
Line S00125 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00174  M02S00125.ns2776  ---|*
Line S00126 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00175  M02S00126.ns2776  ---|*         ENTRY  (A) = 0 IF TAPE DEADSTART.
Line S00127 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00176  M02S00127.ns2776  ---|*                (T6) = TRACK / TAPE STATUS.
Line S00128 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00177  M02S00128.ns2776  ---|*                (T7) = DISK SECTOR / DEADSTART FUNCTION.
Line S00129 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00178  M02S00129.ns2776  ---|*
Line S00130 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00179  M02S00130.ns2776  ---|*         EXIT   (UN) = UNIT NUMBER (DISK DEADSTART).
Line S00131 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00180  M02S00131.ns2776  ---|*                (BF) = BACKSPACE FUNCTION (TAPE DEADSTART).
Line S00132 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00181  M02S00132.ns2776  ---|*                (RF) = READ FUNCTION (TAPE DEADSTART).
Line S00133 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00182  M02S00133.ns2776  ---|*                (SF) = STATUS FUNCTION (TAPE DEADSTART).
Line S00134 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00183  M02S00134.ns2776  ---|*
Line S00135 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00184  M02S00135.ns2776  ---|*         CALLS  CAU, C2D, PDA.
Line S00136 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00185  M02S00136.ns2776  ---|
Line S00137 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00186  M02S00137.ns2776  ---|
Line S00138 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00187  M02S00138.ns2776  ---| PSD3     LDM    MXRL+T5     SET SEEK FUNCTION
Line S00139 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00188  M02S00139.ns2776  ---|          SHN    14
Line S00140 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00189  M02S00140.ns2776  ---|          STM    POSA
Line S00141 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00190  M02S00141.ns2776  ---|          SHN    -14         POSITION ALGORITHM INDEX
Line S00142 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00191  M02S00142.ns2776  ---|          RJM    PDA         PRESET DISK ADDRESS CONVERSION
Line S00003 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00192  M02S00003.ns2776  ---|          LDM    MXRL+DT     GET 895 DEADSTART READ FLAG
Line S00004 Modification History
M01 (Added by) 241l630
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00193  M02S00004.ns2776  ---|          STD    DT
Line S00143 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00194  M02S00143.ns2776  ---|          LDM    MXRL+T4     SET UNIT NUMBER
Line S00144 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00195  M02S00144.ns2776  ---| PSD4     STD    UN
Line S00145 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00196  M02S00145.ns2776  ---|          RJM    C2D         CONVERT FOR STATUS MESSAGE
Line S00146 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00197  M02S00146.ns2776  ---|          STM    DSMA+4
Line S00147 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00198  M02S00147.ns2776  ---|
Line S00148 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00199  M02S00148.ns2776  ---| PSD      SUBR               ENTRY/EXIT
Line S00149 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00200  M02S00149.ns2776  ---|          NJN    PSD3        IF DISK DEADSTART
Line S00150 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00201  M02S00150.ns2776  ---|          LDC    RTR         SET TAPE DRIVER ADDRESS
Line S00151 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00202  M02S00151.ns2776  ---|          STM    RNRA
Line S00152 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00203  M02S00152.ns2776  ---|          LDD    T7
Line S00153 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00204  M02S00153.ns2776  ---|          SHN    -6
Line S00154 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00205  M02S00154.ns2776  ---|          LPN    7
Line S00155 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00206  M02S00155.ns2776  ---|          LMN    1
Line S00156 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00207  M02S00156.ns2776  ---|          NJN    PSD1        IF NOT ATS TAPE SYSTEM
Line S00157 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00208  M02S00157.ns2776  ---|          LCN    0           SET DETAIL STATUS MASK
Line S00158 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00209  M02S00158.ns2776  ---|          STM    GTSB
Line S00159 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00210  M02S00159.ns2776  ---|          RJM    CAU         CHECK ATS UNIT
Line S00160 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00211  M03S00160.ns2776  ---| PSD1     LDD    T7          EXTRACT EQUIPMENT NUMBER
Line S00034 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00212  M02S00034.ns2776  ---| PSD1     LDD    T7          EXTRACT EQUIPMENT (CONTROLLER) NUMBER
Line S00161 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00213  M02S00161.ns2776  ---|          LPC    7000
Line S00162 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00214  M02S00162.ns2776  ---|          ADN    12          SET GENERAL STATUS FUNCTION
Line S00163 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00215  M02S00163.ns2776  ---|          STD    SF
Line S00164 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00216  M02S00164.ns2776  ---|          ADN    40-12       SET READ FUNCTION
Line S00165 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00217  M02S00165.ns2776  ---|          STD    RF
Line S00166 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00218  M02S00166.ns2776  ---|          ADN    112-40      SET DETAILED STATUS FUNCTION
Line S00167 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00219  M02S00167.ns2776  ---|          STM    GTSA
Line S00168 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00220  M02S00168.ns2776  ---|          ADN    113-112     SET BACKSPACE FUNCTION
Line S00169 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00221  M02S00169.ns2776  ---|          STD    BF
Line S00170 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00222  M02S00170.ns2776  ---| PSD2     LDD    T7          EXTRACT UNIT NUMBER
Line S00171 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00223  M02S00171.ns2776  ---|          LPN    17
Line S00172 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00224  M02S00172.ns2776  ---|          LJM    PSD4        CONVERT FOR STATUS MESSAGE
Line S00173 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00225  M02S00173.ns2776  ---| CAU      SPACE  4,10
Line S00174 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00226  M02S00174.ns2776  ---|**        CAU - CHECK ATS UNIT.
Line S00175 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00227  M02S00175.ns2776  ---|*
Line S00176 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00228  M02S00176.ns2776  ---|*         ENTRY  (T7) = WORD 6 OF DEADSTART PANEL.
Line S00177 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00229  M02S00177.ns2776  ---|*
Line S00178 Modification History
M01 (Added by) dio
M02 (Updated by) dio3
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00230  M03S00178.ns2776  ---|*         EXIT   TAPE READ LOOP MODIFIED FOR 200 IPS 6250 DENSITY
Line S00179 Modification History
M01 (Added by) dio
M02 (Updated by) dio3
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00231  M03S00179.ns2776  ---|*                AT 2X PPU SPEED OR ANY 6250 DENSITY AT 1X PPU
Line S00180 Modification History
M01 (Added by) dio
M02 (Updated by) dio3
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00232  M03S00180.ns2776  ---|*                SPEED.
Line S00001 Modification History
M01 (Added by) dio3
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00233  M02S00001.ns2776  ---|*         EXIT   TAPE READ LOOP MODIFIED FOR 200 OR 150 IPS 6250
Line S00002 Modification History
M01 (Added by) dio3
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00234  M02S00002.ns2776  ---|*                DENSITY AT 2X PPU SPEED OR ANY 6250 DENSITY AT 1X PPU
Line S00003 Modification History
M01 (Added by) dio3
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00235  M02S00003.ns2776  ---|*                SPEED.
Line S00181 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00236  M02S00181.ns2776  ---|*
Line S00182 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00237  M02S00182.ns2776  ---|*         USES   T1.
Line S00183 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00238  M02S00183.ns2776  ---|
Line S00184 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00239  M02S00184.ns2776  ---|
Line S00185 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00240  M03S00185.ns2776  ---| CAU2     LDD    T1
Line S00035 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00241  M02S00035.ns2776  ---| CAU2     SBN    2
Line S00036 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00242  M02S00036.ns2776  ---|          PJN    CAUX        IF PP SPEED .GE. 4X
Line S00037 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00243  M02S00037.ns2776  ---|          LDD    T1
Line S00186 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00244  M02S00186.ns2776  ---|          LPN    7
Line S00187 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00245  M02S00187.ns2776  ---|          LMN    5
Line S00188 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00246  M02S00188.ns2776  ---|          ZJN    CAU1        IF 200 IPS UNIT
Line S00004 Modification History
M01 (Added by) dio3
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00247  M02S00004.ns2776  ---|          LMN    6&5
Line S00005 Modification History
M01 (Added by) dio3
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00248  M02S00005.ns2776  ---|          ZJN    CAU1        IF 150 IPS UNIT
Line S00189 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00249  M02S00189.ns2776  ---|
Line S00190 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00250  M02S00190.ns2776  ---| CAU      SUBR               ENTRY/EXIT
Line S00191 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00251  M03S00191.ns2776  ---|          LDD    T7          GET EQUIPMENT NUMBER
Line S00038 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00252  M02S00038.ns2776  ---|          LDD    T7          GET EQUIPMENT (CONTROLLER) NUMBER
Line S00192 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00253  M02S00192.ns2776  ---|          LPC    7000
Line S00193 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00254  M02S00193.ns2776  ---|          ADC    212         ADD UNIT STATUS FUNCTION
Line S00194 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00255  M03S00194.ns2776  ---|          FAN    DC
Line S00195 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00256  M03S00195.ns2776  ---|          ACN    DC
Line S00196 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00257  M03S00196.ns2776  ---|          IAN    DC
Line S00197 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00258  M03S00197.ns2776  ---|          DCN    DC
Line S00007 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00259  M02S00007.ns2776  ---|          FAN    DS
Line S00008 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00260  M02S00008.ns2776  ---|          ACN    DS
Line S00009 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00261  M02S00009.ns2776  ---|          IAN    DS
Line S00010 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00262  M02S00010.ns2776  ---|          DCN    DS
Line S00198 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00263  M02S00198.ns2776  ---|          STD    T1
Line S00199 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00264  M02S00199.ns2776  ---|          LPN    30          CHECK UNIT STATUS
Line S00200 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00265  M02S00200.ns2776  ---|          LMN    30
Line S00201 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00266  M02S00201.ns2776  ---|          NJN    CAUX        IF DENSITY NOT 6250 CPI
Line S00202 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00267  M03S00202.ns2776  ---|          AJM.   CAU2,SC     IF C170 MAINFRAME (2X PPU SPEED)
Line S00039 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00268  M02S00039.ns2776  ---|          LDM    MXRL+T3
Line S00040 Modification History
M01 (Added by) ns22000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00269  M02S00040.ns2776  ---|          NJN    CAU2        IF PP SPEED .GT. 1X
Line S00203 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00270  M02S00203.ns2776  ---| CAU1     LDC    UJNI+2      DISABLE INITIATE TAPE MOTION
Line S00204 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00271  M02S00204.ns2776  ---|          STM    RSTA
Line S00205 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00272  M02S00205.ns2776  ---|          UJN    CAUX        RETURN
Line S00206 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00273  M02S00206.ns2776  ---| MCI      SPACE  4,10
Line S00207 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00274  M02S00207.ns2776  ---|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
Line S00208 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00275  M02S00208.ns2776  ---|*
Line S00209 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00276  M02S00209.ns2776  ---|*         ENTRY  (A) = ADDRESS OF INSTRUCTION LIST.
Line S00210 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00277  M02S00210.ns2776  ---|*                (T4) = CHANNEL NUMBER.
Line S00211 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00278  M02S00211.ns2776  ---|*
Line S00212 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00279  M02S00212.ns2776  ---|*         USES   T1, T2.
Line S00213 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00280  M02S00213.ns2776  ---|
Line S00214 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00281  M02S00214.ns2776  ---|
Line S00215 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00282  M02S00215.ns2776  ---| MCI1     STD    T2          SET INSTRUCTION ADDRESS
Line S00216 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00283  M02S00216.ns2776  ---|          LDI    T2          MODIFY INSTRUCTION
Line S00217 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00284  M02S00217.ns2776  ---|          SCN    37
Line S00218 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00285  M02S00218.ns2776  ---|          LMD    T4
Line S00219 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00286  M02S00219.ns2776  ---|          STI    T2
Line S00220 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00287  M02S00220.ns2776  ---|          AOD    T1          ADVANCE LIST ADDRESS
Line S00221 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00288  M02S00221.ns2776  ---| MCI2     LDI    T1
Line S00222 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00289  M02S00222.ns2776  ---|          NJN    MCI1        IF NOT END OF LIST
Line S00223 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00290  M02S00223.ns2776  ---|
Line S00224 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00291  M02S00224.ns2776  ---| MCI      SUBR               ENTRY/EXIT
Line S00225 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00292  M02S00225.ns2776  ---|          STD    T1          SET LIST ADDRESS
Line S00226 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
00293  M02S00226.ns2776  ---|          UJN    MCI2        ENTER LOOP
00294  M01S00041.ns22000 +++| LRO      SPACE  4,10
00295  M01S00042.ns22000 +++|**        LRO - LOAD RECOVERY OVERLAY.
00296  M01S00043.ns22000 +++|
00297  M01S00044.ns22000 +++|
00298  M01S00045.ns22000 +++| LRO      BSS    0
00299  M01S00046.ns22000 +++|*         LDC    LRO         CHECK NEXT RECORD
00300  M01S00047.ns22000 +++| LRO1     RJM    CSR
00301  M01S00048.ns22000 +++|          NJN    LRO1        IF NOT OVERLAY
00302  M01S00049.ns22000 +++|          LDM    BUF+5*1+1
00303  M01S00050.ns22000 +++|          SHN    6
00304  M01S00051.ns22000 +++|          LMM    BUF+5*1+0
00305  M01S00052.ns22000 +++|          LMC    3RMRC
00306  M01S00053.ns22000 +++|          NJN    LRO1        IF NOT *RCM*
00307  M01S00054.ns22000 +++|          DCN    PC          INDICATE FUNCTION COMPLETE
00308  M01S00055.ns22000 +++|          LJM    DIO         RETURN
00309  M01S00227.dio     +++|          SPACE  4,10
00310  M01S00228.dio     +++|          ERRZR  PC-12       ILLEGAL CHANNEL DEFINITION
00311  M01S00229.dio     +++|          ERRPL  *-PPFW      PRESET OVERFLOWS DRIVER AREA
00312  M01S00230.dio     +++|          TITLE  MAIN ROUTINE.
00313  M01S00231.dio     +++|          ORG    PPFW
00314  M01S00232.dio     +++|
00315  M01S00233.dio     +++| DIO      IAN    PC          INPUT REQUEST
00316  M01S00234.dio     +++|          STD    L1
00317  M01S00235.dio     +++|          SBN    MXDF
00318  M01S00236.dio     +++|          PJN    *           IF ILLEGAL FUNCTION
00319  M01S00237.dio     +++|          LDM    TFPA,L1
00320  M01S00238.dio     +++|          STD    L2
00321  M01S00239.dio     +++|          LJM    0,L2        PROCESS FUNCTION
00322  M01S00240.dio     +++| TFPA     SPACE  4,10
00323  M01S00241.dio     +++|**        TFPA - TABLE OF FUNCTION PROCESSORS.
00324  M01S00242.dio     +++|
00325  M01S00243.dio     +++|
00326  M01S00244.dio     +++| TFPA     INDEX
00327  M01S00245.dio     +++|          INDEX  DPPF,DPP    DROP PP
00328  M01S00246.dio     +++|          INDEX  LPRF,LPR    LOAD PP RESIDENT
00329  M01S00247.dio     +++|          INDEX  IPRF,IPR    INITIALIZE PP RESIDENT
00330  M01S00248.dio     +++|          INDEX  RTBF,RTB    READ TAPE BLOCK
00331  M01S00249.dio     +++|          INDEX  IPPF,IPP    IDLE PP
00332  M01S00250.dio     +++|          INDEX  LSLF,LSL    LOAD SYSTEM LIBRARY
00333  M01S00056.ns22000 +++|          INDEX  LNOF,LNO    LOAD NEXT OVERLAY
00334  M01S00057.ns22000 +++|          INDEX  LTDF,LTD    LOAD SELECTED TEXT DECK
00335  M01S00058.ns22000 +++|          INDEX  LROF,LRO    LOAD RECOVERY OVERLAY
00336  M01S00251.dio     +++|          INDEX  MXDF
00337  M01S00252.dio     +++|          TITLE  FUNCTION PROCESSORS.
00338  M01S00253.dio     +++| DPP      SPACE  4,10
00339  M01S00254.dio     +++|**        DPP - DROP PP.
00340  M01S00255.dio     +++|
00341  M01S00256.dio     +++|
00342  M01S00257.dio     +++| DPP      BSS    0
00343  M01S00258.dio     +++|          RJM    RDT         REWIND DEADSTART TAPE
00344  M01S00259.dio     +++|          RJM    RTU         RELEASE TAPE UNIT
00345  M01S00260.dio     +++|          RJM    CRI         CHECK RESIDENT INITIALIZED
00346  M01S00261.dio     +++|          RJM    WOC         WAIT OUTPUT REGISTER CLEAR
00347  M01S00262.dio     +++|          LDD    DH          RELEASE DEADSTART CHANNEL
00348  M01S00263.dio     +++|          DCHAN
Line S00264 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00349  M02S00264.ns22000 ---|          DCN    PC          INDICATE FUNCTION ACCEPT
00350  M01S00059.ns22000 +++| DPPA     DCN    PC          INDICATE FUNCTION ACCEPT
00351  M01S00060.ns22000 +++|*         PSN                (SYSTEM LIBRARY LOAD)
Line S00265 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00352  M02S00265.273l780 ---|          LDN    NCPL        GET NUMBER OF CONTROL POINTS
Line S00266 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00353  M02S00266.273l780 ---|          CRD    CM
Line S00267 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00354  M02S00267.273l780 ---|          AOD    CM+1        MOVE TO SYSTEM CONTROL POINT
Line S00268 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00355  M02S00268.273l780 ---|          MONITOR  CCAM
00356  M01S00269.dio     +++|          MONITOR  DPPM      DROP PP
00357  M01S00270.dio     +++|          LJM    PPR         EXIT TO PP RESIDENT
00358  M01S00271.dio     +++| IPP      SPACE  4,10
00359  M01S00272.dio     +++|**        IPP - IDLE PP UNTIL (IR+4) .NE. 0.
00360  M01S00273.dio     +++|
00361  M01S00274.dio     +++|
00362  M01S00275.dio     +++| IPP      BSS    0
00363  M01S00276.dio     +++|          LDD    IA          CLEAR (IR+4)
00364  M01S00277.dio     +++|          CRD    IR
00365  M01S00278.dio     +++|          RJM    CRI         CHECK RESIDENT INITIALIZED
00366  M01S00279.dio     +++|          STD    IR+4
00367  M01S00280.dio     +++|          LDD    IA
00368  M01S00281.dio     +++|          CWD    IR
00369  M01S00282.dio     +++|          LDD    DH          RELEASE DEADSTART CHANNEL
00370  M01S00283.dio     +++|          DCHAN
00371  M01S00284.dio     +++|          DCN    PC          INDICATE FUNCTION ACCEPT
00372  M01S00285.dio     +++| IPP1     DELAY              WAIT AWHILE
00373  M01S00286.dio     +++|          LDD    IA          CHECK (IR+4)
00374  M01S00287.dio     +++|          CRD    IR
00375  M01S00288.dio     +++|          LDD    IR+4
00376  M01S00289.dio     +++|          ZJN    IPP1        IF IDLE NOT CLEARED
00377  M01S00290.dio     +++|          LDD    DH          RESERVE DEADSTART CHANNEL
00378  M01S00291.dio     +++|          RCHAN
Line S00292 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00379  M02S00292.ns22000 ---|          LJM    DIO         RETURN
00380  M01S00061.ns22000 +++|          JMP    DIO         RETURN
00381  M01S00293.dio     +++| IPR      SPACE  4,10
00382  M01S00294.dio     +++|**        IPR - INITIALIZE PP RESIDENT.
00383  M01S00295.dio     +++|
00384  M01S00296.dio     +++|
00385  M01S00297.dio     +++| IPR      BSS    0
00386  M01S00298.dio     +++|          DCN    PC          INDICATE FUNCTION ACCEPT
00387  M01S00001.273l780 +++|          LDN    1           SET NO PP DROP
00388  M01S00002.273l780 +++|          STD    T1
00389  M01S00299.dio     +++|          RJM    MSFW+1      INITIALIZE RESIDENT
00390  M01S00300.dio     +++|          SOM    CRIA        SET RESIDENT INITIALIZED
00391  M01S00301.dio     +++|          LDD    DH          RESERVE DEADSTART CHANNEL
00392  M01S00302.dio     +++|          RCHAN
Line S00303 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00393  M02S00303.ns22000 ---|          LJM    DIO         RETURN
00394  M01S00062.ns22000 +++|          JMP    DIO         RETURN
00395  M01S00063.ns22000 +++| LNO      SPACE  4,10
00396  M01S00064.ns22000 +++|**        LNO - LOAD NEXT OVERLAY.
00397  M01S00065.ns22000 +++|
00398  M01S00066.ns22000 +++|
00399  M01S00067.ns22000 +++| LNO      BSS    0
00400  M01S00068.ns22000 +++|          LDN    0           CHECK CURRENT RECORD
00401  M01S00069.ns22000 +++| LNO1     RJM    CSR
00402  M01S00070.ns22000 +++|          NJN    LNO1        IF NOT OVERLAY
00403  M01S00071.ns22000 +++|          LJM    RTB         TRANSMIT TAPE BLOCK
00404  M01S00304.dio     +++| LPR      SPACE  4,10
00405  M01S00305.dio     +++|**        LPR - LOAD PP RESIDENT.
00406  M01S00306.dio     +++|
00407  M01S00307.dio     +++|
00408  M01S00308.dio     +++| LPR      BSS    0
00409  M01S00309.dio     +++|          DCN    PC          INDICATE FUNCTION ACCEPT
00410  M01S00310.dio     +++|          LDN    IR          SKIP DIRECT LOCATIONS BELOW *IR*
00411  M01S00311.dio     +++|          ACN    PC
00412  M01S00312.dio     +++|          IAM    IR,PC
00413  M01S00313.dio     +++|          LDC    PPFW-IR     INPUT PP RESIDENT
00414  M01S00314.dio     +++|          IAM    IR,PC
00415  M01S00315.dio     +++|          DCN    PC
Line S00316 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00416  M02S00316.ns22000 ---|          LJM    DIO         RETURN
00417  M01S00072.ns22000 +++|          JMP    DIO         RETURN
00418  M01S00317.dio     +++| LSL      SPACE  4,10
00419  M01S00318.dio     +++|**        LSL - LOAD SYSTEM LIBRARY.
00420  M01S00319.dio     +++|
00421  M01S00320.dio     +++|
00422  M01S00321.dio     +++| LSL      BSS    0
Line S00322 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00423  M02S00322.ns22000 ---|          LDD    DM
Line S00323 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00424  M02S00323.ns22000 ---|          ZJN    LSL1        IF TAPE DEADSTART
Line S00324 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00425  M02S00324.ns22000 ---|          LJM    DPP         DROP PP
Line S00325 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00426  M02S00325.ns22000 ---|
Line S00326 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00427  M02S00326.ns22000 ---| LSL1     RJM    RDT         REWIND DEADSTART TAPE
00428  M01S00073.ns22000 +++|          RJM    RDT         REWIND DEADSTART TAPE
00429  M01S00327.dio     +++|          RJM    CRI         CHECK RESIDENT INITIALIZED
00430  M01S00328.dio     +++|          STD    BC+1        CLEAR BLOCK COUNT
00431  M01S00329.dio     +++|          STD    BC
00432  M01S00330.dio     +++|          LDN    DSCP        MOVE TO DEADSTART CONTROL POINT
00433  M01S00331.dio     +++|          STD    CM+1
Line S00332 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00434  M02S00332.273l780 ---|          SHN    7
Line S00333 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00435  M02S00333.273l780 ---|          STD    CP
00436  M01S00334.dio     +++|          MONITOR  CCAM
00437  M01S00335.dio     +++|          DCN    PC          INDICATE FUNCTION ACCEPT
00438  M01S00074.ns22000 +++|          STM    DPPA
Line S00336 Modification History
M01 (Added by) dio
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00439  M02S00336.273l780 ---|          PAUSE  NE
00440  M01S00337.dio     +++| LSL2     LDD    RA          READ (RA+2)
00441  M01S00338.dio     +++|          SHN    6
00442  M01S00339.dio     +++|          ADN    2
00443  M01S00340.dio     +++|          CRD    CM
00444  M01S00341.dio     +++|          LDD    CM+4        SET FET ADDRESS
00445  M01S00342.dio     +++|          STD    IR+4
00446  M01S00343.dio     +++|          ZJN    LSL2        IF NOT YET DEFINED
00447  M01S00344.dio     +++|          LDM    BKSC        ENABLE TAPE PARITY ERROR REPORTING
00448  M01S00345.dio     +++|          STM    BKSA
00449  M01S00346.dio     +++| LSL3     RJM    GTS         GET TAPE STATUS
00450  M01S00347.dio     +++|          LPN    3
00451  M01S00348.dio     +++|          LMN    1
00452  M01S00349.dio     +++|          NJN    LSL3        IF REWIND NOT COMPLETE
00453  M01S00350.dio     +++|
00454  M01S00351.dio     +++|*         READ SYSTEM TAPE.
00455  M01S00352.dio     +++|
00456  M01S00353.dio     +++|          RJM    RST         READ SYSTEM TAPE
00457  M01S00354.dio     +++|          LDD    RA
00458  M01S00355.dio     +++|          SHN    6
00459  M01S00356.dio     +++|          ADD    IR+4
00460  M01S00357.dio     +++|          CRD    CM
00461  M01S00358.dio     +++|          LDN    33          SET EOF STATUS
00462  M01S00359.dio     +++|          STD    CM+4
00463  M01S00360.dio     +++|          LDD    RA          STORE EOF STATUS
00464  M01S00361.dio     +++|          SHN    6
00465  M01S00362.dio     +++|          ADD    IR+4
00466  M01S00363.dio     +++|          CWD    CM
00467  M01S00364.dio     +++|          LJM    DPP         DROP PP
00468  M01S00075.ns22000 +++| LTD      SPACE  4,10
00469  M01S00076.ns22000 +++|**        LTD - LOAD SELECTED TEXT DECK.
00470  M01S00077.ns22000 +++|
00471  M01S00078.ns22000 +++|
00472  M01S00079.ns22000 +++| LTD      BSS    0
00473  M01S00080.ns22000 +++|          IAN    PC
00474  M01S00081.ns22000 +++|          RJM    C2D         CONVERT DECK NUMBER
00475  M01S00082.ns22000 +++|          STD    DN
00476  M01S00083.ns22000 +++|          LDN    0
00477  M01S00084.ns22000 +++|          UJN    LTD2        CHECK CURRENT RECORD
00478  M01S00085.ns22000 +++|
00479  M01S00086.ns22000 +++| LTD1     LDM    BUF+2       CHECK TEXT DECK NUMBER
00480  M01S00087.ns22000 +++|          LMD    DN
00481  M01S00088.ns22000 +++|          ZJN    RTB         IF REQUESTED DECK FOUND
00482  M01S00089.ns22000 +++| LTD2     RJM    CSR
00483  M01S00090.ns22000 +++|          NJN    LTD1        IF NOT BINARY RECORD
00484  M01S00091.ns22000 +++|          STD    WC
00485  M01S00092.ns22000 +++|*         UJN    RTB         INDICATE DECK NOT FOUND
00486  M01S00365.dio     +++| RTB      SPACE  4,10
00487  M01S00366.dio     +++|**        RTB - READ TAPE BLOCK.
00488  M01S00367.dio     +++|
00489  M01S00368.dio     +++|
00490  M01S00369.dio     +++| RTB      BSS    0
00491  M01S00370.dio     +++|          DCN    PC          INDICATE FUNCTION ACCEPT
00492  M01S00371.dio     +++|          IJM    *,PC        IF CALLER NOT READY
00493  M01S00372.dio     +++|          LDD    WC          OUTPUT RECORD LENGTH
00494  M01S00373.dio     +++|          OAN    PC
00495  M01S00374.dio     +++|          ZJN    RTB1        IF ZERO LENGTH RECORD
00496  M01S00375.dio     +++|          SHN    2           CONVERT TO BYTE COUNT
00497  M01S00376.dio     +++|          ADD    WC
00498  M01S00377.dio     +++|          FJM    *,PC        WAIT CHANNEL EMPTY
00499  M01S00378.dio     +++|          OAM    BUF,PC      TRANSMIT RECORD
00500  M01S00379.dio     +++| RTB1     FJM    *,PC        WAIT TRANSMISSION COMPLETE
00501  M01S00380.dio     +++|          DCN    PC
00502  M01S00381.dio     +++|          RJM    RNR         READ NEXT RECORD
Line S00382 Modification History
M01 (Added by) dio
M02 (Updated by) ns22000
Seq #  *Modification Id* Act 
----------------------------+
00503  M02S00382.ns22000 ---|          LJM    DIO         RETURN
00504  M01S00093.ns22000 +++|          JMP    DIO         RETURN
00505  M01S00383.dio     +++|          TITLE  SUBROUTINES.
00506  M01S00384.dio     +++| CBN      SPACE  4,10
00507  M01S00385.dio     +++|**        CBN - CHECK BLOCK NUMBER.
00508  M01S00386.dio     +++|*
00509  M01S00387.dio     +++|*         ENTRY  (WC) = WORD COUNT OF BLOCK.
00510  M01S00388.dio     +++|*                (BC - BC+1) = EXPECTED BLOCK NUMBER OF BLOCK.
00511  M01S00389.dio     +++|*
00512  M01S00390.dio     +++|*         EXIT   BLOCK COUNT INCREMENTED.
00513  M01S00391.dio     +++|*                MESSAGE ISSUED IF BLOCK SEQUENCE ERROR.
00514  M01S00392.dio     +++|*
00515  M01S00393.dio     +++|*         USES   BL.
00516  M01S00394.dio     +++|*
00517  M01S00395.dio     +++|*         CALLS  WOG.
00518  M01S00396.dio     +++|
00519  M01S00397.dio     +++|
00520  M01S00398.dio     +++| CBN2     AOD    BC+1        ADVANCE BLOCK COUNT
00521  M01S00399.dio     +++|          SHN    -14
00522  M01S00400.dio     +++|          RAD    BC
00523  M01S00401.dio     +++|
00524  M01S00402.dio     +++| CBN      SUBR               ENTRY/EXIT
00525  M01S00403.dio     +++|          LDD    WC          SET BLOCK LENGTH IN CONTROL WORD
00526  M01S00404.dio     +++|          SHN    2
00527  M01S00405.dio     +++|          ADD    WC
00528  M01S00406.dio     +++|          STM    BUF-1
00529  M01S00407.dio     +++| CBNA     ADC    BUF         SET PP BUFFER LIMIT
00530  M01S00408.dio     +++|*         UJN    CBNX        (BLOCK CHECKING DISABLED)
00531  M01S00409.dio     +++|          STD    BL
00532  M01S00410.dio     +++|          LDM    2,BL        CHECK BLOCK NUMBER
00533  M01S00411.dio     +++|          LMD    BC+1
00534  M01S00412.dio     +++|          NJN    CBN1        IF NOT CORRECT BLOCK
00535  M01S00413.dio     +++|          LDM    1,BL
00536  M01S00414.dio     +++|          LMD    BC
00537  M01S00415.dio     +++|          ZJN    CBN2        IF CORRECT BLOCK
00538  M01S00416.dio     +++| CBN1     LDC    CBNB        *BLOCK SEQUENCE ERROR*
00539  M01S00417.dio     +++|          RJM    WOG         ISSUE MESSAGE AND WAIT OPERATOR GO
00540  M01S00418.dio     +++|          LDM    CBNC        DISABLE FURTHER BLOCK CHECKING
00541  M01S00419.dio     +++|          STM    CBNA
00542  M01S00420.dio     +++|          UJN    CBNX        EXIT
00543  M01S00421.dio     +++|
00544  M01S00422.dio     +++| CBNB     DATA   C*BLOCK SEQUENCE ERROR.*
00545  M01S00423.dio     +++|
00546  M01S00424.dio     +++| CBNC     BSS    0
00547  M01S00425.dio     +++|          LOC    CBNA
00548  M01S00426.dio     +++|          UJN    CBNX
00549  M01S00427.dio     +++|          LOC    *O
00550  M01S00428.dio     +++| CDD      SPACE  4,10
00551  M01S00429.dio     +++|**        CDD - CONNECT DEADSTART DISK.
00552  M01S00430.dio     +++|*
00553  M01S00431.dio     +++|*         USES   ST.
00554  M01S00432.dio     +++|*
00555  M01S00433.dio     +++|*         CALLS  DSM, GDS, POS.
00556  M01S00434.dio     +++|
00557  M01S00435.dio     +++|
00558  M01S00436.dio     +++| CDD2     RJM    POS         POSITION DISK
Line S00437 Modification History
M01 (Added by) dio
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
00559  M02S00437.ns2393  ---|          LDC    DSCP*CPAS+MS2W  CLEAR STATUS MESSAGE
Line S00438 Modification History
M01 (Added by) dio
M02 (Updated by) ns2393
Seq #  *Modification Id* Act 
----------------------------+
00560  M02S00438.ns2393  ---|          CWD    ZR
00561  M01S00439.dio     +++|
00562  M01S00440.dio     +++| CDD      SUBR               ENTRY/EXIT
00563  M01S00441.dio     +++| CDD1     RJM    GDS         GET DISK STATUS (CONNECT)
00564  M01S00442.dio     +++|          LPC    2000
00565  M01S00443.dio     +++|          ZJN    CDD2        IF COUPLER NOT RESERVED
00566  M01S00444.dio     +++|          STD    ST
00567  M01S00445.dio     +++|          RJM    DSM         DISPLAY STATUS MESSAGE
00568  M01S00446.dio     +++|          UJN    CDD1        LOOP
00569  M01S00447.dio     +++| CRI      SPACE  4,10
00570  M01S00448.dio     +++|**        CRI - CHECK PP RESIDENT INITIALIZED.
00571  M01S00449.dio     +++|*
00572  M01S00450.dio     +++|*         EXIT   (A) = 0.
00573  M01S00451.dio     +++|
00574  M01S00452.dio     +++|
00575  M01S00453.dio     +++| CRI      SUBR               ENTRY/EXIT
00576  M01S00454.dio     +++| CRIA     LDN    1
00577  M01S00455.dio     +++|*         LDN    0           (PP RESIDENT INITIALIZED)
00578  M01S00456.dio     +++|          ZJN    CRIX        IF RESIDENT INITIALIZED
00579  M01S00457.dio     +++|          UJN    *           HANG PP
00580  M01S00094.ns22000 +++| CSR      SPACE  4,10
00581  M01S00095.ns22000 +++|**        CSR - CHECK OR SKIP CURRENT RECORD.
00582  M01S00096.ns22000 +++|*
00583  M01S00097.ns22000 +++|*         ENTRY  (A) = 0 TO CHECK RECORD.
00584  M01S00098.ns22000 +++|*                    .NE. 0 TO SKIP RECORD.
00585  M01S00099.ns22000 +++|*
00586  M01S00100.ns22000 +++|*         EXIT   (A) = 0 IF BINARY RECORD (OVERLAY)
00587  M01S00101.ns22000 +++|*
00588  M01S00102.ns22000 +++|*         USES   T4.
00589  M01S00103.ns22000 +++|*
00590  M01S00104.ns22000 +++|*         CALLS  RNR.
00591  M01S00105.ns22000 +++|
00592  M01S00106.ns22000 +++|
00593  M01S00107.ns22000 +++| CSR      SUBR               ENTRY/EXIT
00594  M01S00108.ns22000 +++|          ZJN    CSR2        IF CHECKING CURRENT RECORD
00595  M01S00109.ns22000 +++| CSR1     LDD    WC
00596  M01S00110.ns22000 +++|          LMC    TPLN/5      SET EOR STATUS
00597  M01S00111.ns22000 +++|          STD    T4
00598  M01S00112.ns22000 +++|          RJM    RNR         READ NEXT BLOCK
00599  M01S00113.ns22000 +++|          LDD    T4
00600  M01S00114.ns22000 +++|          ZJN    CSR1        IF NOT NEXT RECORD
00601  M01S00115.ns22000 +++| CSR2     LDM    BUF
00602  M01S00116.ns22000 +++|          LMC    7700
00603  M01S00117.ns22000 +++|          UJN    CSRX        RETURN
00604  M01S00458.dio     +++| DSM      SPACE  4,10
00605  M01S00459.dio     +++|**        DSM - DISPLAY STATUS MESSAGE.
00606  M01S00460.dio     +++|*
00607  M01S00461.dio     +++|*         ENTRY  (ST) = GENERAL STATUS.
00608  M01S00462.dio     +++|*
00609  M01S00463.dio     +++|*         CALLS  C2D.
00610  M01S00464.dio     +++|
00611  M01S00465.dio     +++|
00612  M01S00466.dio     +++| DSM      SUBR               ENTRY/EXIT
00613  M01S00467.dio     +++|          LDD    ST          CONVERT STATUS
00614  M01S00468.dio     +++|          RJM    C2D
00615  M01S00469.dio     +++|          STM    DSMA+10     SET IN MESSAGE
00616  M01S00470.dio     +++|          LDD    ST
00617  M01S00471.dio     +++|          SHN    -6
00618  M01S00472.dio     +++|          RJM    C2D
00619  M01S00473.dio     +++|          STM    DSMA+7
00620  M01S00474.dio     +++|          LDC    DSCP*CPAS+MS2W  STORE MESSAGE
00621  M01S00475.dio     +++|          CWM    DSMA,TR
00622  M01S00476.dio     +++|          UJN    DSMX        RETURN
00623  M01S00477.dio     +++|
00624  M01S00478.dio     +++| DSMA     DATA   C*CHXX, UNYY - SZZZZ.*
00625  M01S00479.dio     +++| RNR      SPACE  4,10
00626  M01S00480.dio     +++|**        RNR - READ NEXT RECORD.
00627  M01S00481.dio     +++|*
00628  M01S00482.dio     +++|*         EXIT   (BUF) = NEXT RECORD ON DEADSTART FILE.
00629  M01S00483.dio     +++|*
00630  M01S00484.dio     +++|*         USES   RC.
00631  M01S00485.dio     +++|*
00632  M01S00486.dio     +++|*         CALLS  RDR, RTR.
00633  M01S00487.dio     +++|
00634  M01S00488.dio     +++|
00635  M01S00489.dio     +++| RNR      SUBR               ENTRY/EXIT
00636  M01S00490.dio     +++|          LDN    10          SET RETRY COUNT
00637  M01S00491.dio     +++|          STD    RC
00638  M01S00492.dio     +++|          RJM    RDR         READ DISK RECORD
00639  M01S00493.dio     +++| RNRA     EQU    *-1
00640  M01S00494.dio     +++|*         RJM    RTR         (TAPE DEADSTART)
00641  M01S00001.ns2393  +++|          LDC    DSCP*200+MS2W
00642  M01S00002.ns2393  +++|          CWD    ZR
00643  M01S00495.dio     +++|          UJN    RNRX        RETURN
00644  M01S00496.dio     +++| RST      SPACE  4,10
00645  M01S00497.dio     +++|**        RST - READ SYSTEM TAPE.
00646  M01S00498.dio     +++|*
00647  M01S00499.dio     +++|*         USES   WC, T1, T2, CM - CM+4, CN - CN+4, DP - DP+4.
00648  M01S00500.dio     +++|*
00649  M01S00501.dio     +++|*         CALLS  CBN, ITM, RNR, SBP, WOC.
00650  M01S00502.dio     +++|
00651  M01S00503.dio     +++|
00652  M01S00504.dio     +++| RST      SUBR               ENTRY/EXIT
00653  M01S00505.dio     +++|          RJM    SRP         SET READ PARAMETERS
00654  M01S00506.dio     +++| RST1     RJM    WOC         WAIT OUTPUT REGISTER CLEAR
00655  M01S00507.dio     +++|          PAUSE  NE
00656  M01S00508.dio     +++|          LDD    RA          READ OUT
00657  M01S00509.dio     +++|          SHN    6
00658  M01S00510.dio     +++|          ADD    IR+4
00659  M01S00511.dio     +++|          ADN    3
00660  M01S00512.dio     +++|          CRD    CN
00661  M01S00513.dio     +++| RST2     LDD    CN+3        LENGTH = OUT - IN+1
00662  M01S00514.dio     +++|          SBD    DP+3
00663  M01S00515.dio     +++|          SHN    14
00664  M01S00516.dio     +++|          ADD    CN+4
00665  M01S00517.dio     +++|          SBD    DP+4
00666  M01S00518.dio     +++|          SBN    1
00667  M01S00519.dio     +++|          PJN    RST3        IF IN+1 .GE OUT
00668  M01S00520.dio     +++| .BSA     ADC    **          (LIMIT - FIRST)
00669  M01S00521.dio     +++| RST3     ADC    -1002
00670  M01S00522.dio     +++|          MJN    RST1        IF NO ROOM FOR ANOTHER BLOCK
00671  M01S00523.dio     +++| RSTA     RJM    ITM         INITIATE TAPE MOTION FOR NEXT READ
00672  M01S00524.dio     +++|*         UJN    *+2         (READ AHEAD DISABLED)
00673  M01S00525.dio     +++|          LDN    2           INCLUDE CONTROL WORDS IN WORD COUNT
00674  M01S00526.dio     +++|          RAD    WC
00675  M01S00527.dio     +++| WCB      SPACE  4,10
00676  M01S00528.dio     +++|**        WCB - WRITE CENTRAL BUFFER.
00677  M01S00529.dio     +++|
00678  M01S00530.dio     +++|
00679  M01S00531.dio     +++| WCB      LDD    DP+3        CHECK IN + WORD COUNT
00680  M01S00532.dio     +++|          SHN    14
00681  M01S00533.dio     +++|          ADD    DP+4
00682  M01S00534.dio     +++|          ADD    WC
00683  M01S00535.dio     +++| .LMA     ADC    -**         (-LIMIT)
00684  M01S00536.dio     +++|          STD    T2          SET SECOND PART WORD COUNT
00685  M01S00537.dio     +++|          LMC    -0
00686  M01S00538.dio     +++|          PJN    WCB3        IF LIMIT NOT REACHED
00687  M01S00539.dio     +++|
00688  M01S00540.dio     +++|*         PROCESS WRAP AROUND BLOCK.
00689  M01S00541.dio     +++|
00690  M01S00542.dio     +++|          ADD    WC          SET FIRST PART WORD COUNT
00691  M01S00543.dio     +++|          STD    T1
00692  M01S00544.dio     +++|          ZJN    WCB1        IF NO FIRST PART
00693  M01S00545.dio     +++|          LDD    DP+3        STORE FIRST PART
00694  M01S00546.dio     +++|          SHN    6
00695  M01S00547.dio     +++|          ADD    RA
00696  M01S00548.dio     +++|          SHN    6
00697  M01S00549.dio     +++|          ADD    DP+4
00698  M01S00550.dio     +++|          CWM    BUF-5,T1
00699  M01S00551.dio     +++| WCB1     LDD    T2          CHECK SECOND PART LENGTH
00700  M01S00552.dio     +++|          ZJN    WCB2        IF NO SECOND PART
00701  M01S00553.dio     +++|          LDD    T1          SET PP BUFFER ADDRESS
00702  M01S00554.dio     +++|          SHN    2
00703  M01S00555.dio     +++|          ADD    T1
00704  M01S00556.dio     +++|          RAM    WCBA
00705  M01S00557.dio     +++|          LDD    RA          STORE SECOND PART
00706  M01S00558.dio     +++|          SHN    6
00707  M01S00559.dio     +++| .FTA     ADC    **          STORE SECOND PART (FIRST)
00708  M01S00560.dio     +++|          CWM    BUF-5,T2
00709  M01S00561.dio     +++| WCBA     EQU    *-1         (RESET)
00710  M01S00562.dio     +++| WCB2     LDD    T2          SET IN AFTER SECOND PART
00711  M01S00563.dio     +++| .FTB     ADC    **          (FIRST)
00712  M01S00564.dio     +++|          STD    DP+4
00713  M01S00565.dio     +++|          SHN    -14
00714  M01S00566.dio     +++|          STD    DP+3
00715  M01S00567.dio     +++|          UJN    WCB4
00716  M01S00568.dio     +++|
00717  M01S00569.dio     +++|*         PROCESS NORMAL BLOCK.
00718  M01S00570.dio     +++|
00719  M01S00571.dio     +++| WCB3     LDD    DP+3        STORE BLOCK
00720  M01S00572.dio     +++|          SHN    6
00721  M01S00573.dio     +++|          ADD    RA
00722  M01S00574.dio     +++|          SHN    6
00723  M01S00575.dio     +++|          ADD    DP+4
00724  M01S00576.dio     +++|          CWM    BUF-5,WC
00725  M01S00577.dio     +++|          LDC    BUF-5       RESET (WCBA)
00726  M01S00578.dio     +++|          STM    WCBA
00727  M01S00579.dio     +++|          LDD    WC          ADVANCE IN
00728  M01S00580.dio     +++|          RAD    DP+4
00729  M01S00581.dio     +++|          SHN    -14
00730  M01S00582.dio     +++|          RAD    DP+3
00731  M01S00583.dio     +++| WCB4     LDD    RA          STORE IN
00732  M01S00584.dio     +++|          SHN    6
00733  M01S00585.dio     +++| .INA     ADC    **          (ADDRESS OF IN)
00734  M01S00586.dio     +++|          CWD    DP
00735  M01S00587.dio     +++|          ADN    1           READ OUT
00736  M01S00588.dio     +++|          CRD    CN
00737  M01S00589.dio     +++|          LDN    DRCM        RECALL CPU
00738  M01S00590.dio     +++|          STD    CM
00739  M01S00591.dio     +++|          LDD    OA
00740  M01S00592.dio     +++|          CWD    CM
00741  M01S00593.dio     +++|          RJM    RNR         READ NEXT RECORD
00742  M01S00594.dio     +++|          RJM    CBN         CHECK BLOCK NUMBER
00743  M01S00595.dio     +++|          LJM    RST2        LOOP
00744  M01S00596.dio     +++| SRP      SPACE  4,10
00745  M01S00597.dio     +++|**        SRP - SET READ PARAMETERS.
00746  M01S00598.dio     +++|*
00747  M01S00599.dio     +++|*         EXIT   (DP - DP+4) = IN POINTER.
00748  M01S00600.dio     +++|*                PARAMETERS INITIALIZED.
00749  M01S00601.dio     +++|*                FIRST TAPE BLOCK READ.
00750  M01S00602.dio     +++|*
00751  M01S00603.dio     +++|*         USES   CM - CM+5, CN - CN+4, T1 - T1+4.
00752  M01S00604.dio     +++|*
00753  M01S00605.dio     +++|*         CALLS  CBN, RNR.
00754  M01S00606.dio     +++|*
00755  M01S00607.dio     +++|*         MACROS PAUSE.
00756  M01S00608.dio     +++|
00757  M01S00609.dio     +++|
00758  M01S00610.dio     +++| SRP      SUBR               ENTRY/EXIT
00759  M01S00611.dio     +++| SRP1     PAUSE  NE
00760  M01S00612.dio     +++|          LDD    RA          READ FILE STATUS
00761  M01S00613.dio     +++|          SHN    6
00762  M01S00614.dio     +++|          ADD    IR+4
00763  M01S00615.dio     +++|          CRD    CM+1
00764  M01S00616.dio     +++|          ADN    1           READ FIRST
00765  M01S00617.dio     +++|          CRD    T1
00766  M01S00618.dio     +++|          ADN    1           READ IN
00767  M01S00619.dio     +++|          CRD    DP
00768  M01S00620.dio     +++|          ADN    1           READ OUT
00769  M01S00621.dio     +++|          CRD    CN
00770  M01S00622.dio     +++|          ADN    1           READ LIMIT
00771  M01S00623.dio     +++|          CRD    CM
00772  M01S00624.dio     +++|          LDD    CM+5
00773  M01S00625.dio     +++|          NJN    SRP1        IF *SYSEDIT* NOT READY
00774  M01S00626.dio     +++|          LDD    T1+3
00775  M01S00627.dio     +++|          LPN    37
00776  M01S00628.dio     +++|          STD    T1+3
00777  M01S00629.dio     +++|
00778  M01S00630.dio     +++|          LDD    CM+3        LIMIT - FIRST
00779  M01S00631.dio     +++|          SBD    T1+3
00780  M01S00632.dio     +++|          SHN    14
00781  M01S00633.dio     +++|          ADD    CM+4
00782  M01S00634.dio     +++|          SBD    T1+4
00783  M01S00635.dio     +++|          STM    .BSA+1
00784  M01S00636.dio     +++|          SHN    -14
00785  M01S00637.dio     +++|          LMC    ADCI
00786  M01S00638.dio     +++|          STM    .BSA
00787  M01S00639.dio     +++|
00788  M01S00640.dio     +++|          LDC    ADCI+77     -LIMIT
00789  M01S00641.dio     +++|          LMD    CM+3
00790  M01S00642.dio     +++|          STM    .LMA
00791  M01S00643.dio     +++|          LCN    0
00792  M01S00644.dio     +++|          LMD    CM+4
00793  M01S00645.dio     +++|          STM    .LMA+1
00794  M01S00646.dio     +++|
00795  M01S00647.dio     +++|          LDD    T1+3        FIRST
00796  M01S00648.dio     +++|          LMC    ADCI
00797  M01S00649.dio     +++|          STM    .FTA
00798  M01S00650.dio     +++|          STM    .FTB
00799  M01S00651.dio     +++|          LDD    T1+4
00800  M01S00652.dio     +++|          STM    .FTA+1
00801  M01S00653.dio     +++|          STM    .FTB+1
00802  M01S00654.dio     +++|
00803  M01S00655.dio     +++|          LDD    IR+3        ADDRESS OF IN
00804  M01S00656.dio     +++|          SHN    14
00805  M01S00657.dio     +++|          ADD    IR+4
00806  M01S00658.dio     +++|          ADN    2
00807  M01S00659.dio     +++|          STM    .INA+1
00808  M01S00660.dio     +++|          SHN    -14
00809  M01S00661.dio     +++|          LMC    ADCI
00810  M01S00662.dio     +++|          STM    .INA
00811  M01S00663.dio     +++|
00812  M01S00664.dio     +++|          LDN    ZERL        CLEAR CONTROL WORD
00813  M01S00665.dio     +++|          CRM    BUF-5,ON
00814  M01S00666.dio     +++|          LDD    TH          SET PRU SIZE IN CONTROL WORD
00815  M01S00667.dio     +++|          STM    BUF-4
00816  M01S00668.dio     +++|          RJM    RNR         READ NEXT RECORD
00817  M01S00669.dio     +++|          RJM    CBN         CHECK BLOCK NUMBER
00818  M01S00670.dio     +++|          LJM    SRPX        RETURN
00819  M01S00671.dio     +++| WOC      SPACE  4,10
00820  M01S00672.dio     +++|**        WOC - WAIT OUTPUT REGISTER CLEAR.
00821  M01S00673.dio     +++|*
00822  M01S00674.dio     +++|*         USES   CM - CM+4.
00823  M01S00675.dio     +++|
00824  M01S00676.dio     +++|
00825  M01S00677.dio     +++| WOC      SUBR               ENTRY/EXIT
00826  M01S00678.dio     +++| WOC1     LDD    OA          READ OUTPUT REGISTER
00827  M01S00679.dio     +++|          CRD    CM
00828  M01S00680.dio     +++|          LDD    CM
00829  M01S00681.dio     +++|          ZJN    WOCX        RETURN IF CLEAR
00830  M01S00682.dio     +++|          LDN    77          DELAY
00831  M01S00683.dio     +++|          SBN    1
00832  M01S00684.dio     +++|          NJN    *-1
00833  M01S00685.dio     +++|          UJN    WOC1        LOOP
00834  M01S00686.dio     +++| WOG      SPACE  4,10
00835  M01S00687.dio     +++|**        WOG - WAIT FOR OPERATOR GO.
00836  M01S00688.dio     +++|*
00837  M01S00689.dio     +++|*         ENTRY  (A) = ADDRESS OF MESSAGE.
00838  M01S00690.dio     +++|*
00839  M01S00691.dio     +++|*         EXIT   (A) = 0.
00840  M01S00692.dio     +++|*                OPERATOR ENTERED *GO,.* OR *GO,SYS.*.
00841  M01S00693.dio     +++|*
00842  M01S00694.dio     +++|*         USES   T3, CM - CM+4.
00843  M01S00695.dio     +++|*
00844  M01S00696.dio     +++|*         MACROS PAUSE.
00845  M01S00697.dio     +++|
00846  M01S00698.dio     +++|
00847  M01S00699.dio     +++| WOG      SUBR               ENTRY/EXIT
00848  M01S00700.dio     +++|          STM    WOGA        SET MESSAGE ADDRESS
00849  M01S00701.dio     +++|          LDN    NCPL
00850  M01S00702.dio     +++|          CRD    CM
00851  M01S00703.dio     +++|          AOD    CM+1        READ SENSE SWITCH WORD AT SYSTEM CP
00852  M01S00704.dio     +++|          SHN    7
00853  M01S00705.dio     +++|          ADN    SNSW
00854  M01S00706.dio     +++|          STD    T3
00855  M01S00707.dio     +++|          CRD    CM
00856  M01S00708.dio     +++|          LDD    CM+3        SET PAUSE BIT
00857  M01S00709.dio     +++|          SCN    1
00858  M01S00710.dio     +++|          LMN    1
00859  M01S00711.dio     +++|          STD    CM+3
00860  M01S00712.dio     +++|          LDC    DSCP*200+MS2W  STORE MESSAGE
00861  M01S00713.dio     +++|          CWM    *,TR
00862  M01S00714.dio     +++| WOGA     EQU    *-1         MESSAGE ADDRESS
00863  M01S00715.dio     +++|          LDD    T3          STORE PAUSE FLAG
00864  M01S00716.dio     +++|          CWD    CM
00865  M01S00717.dio     +++| WOG1     PAUSE  NE
00866  M01S00718.dio     +++|          LDD    T3          CHECK PAUSE BIT
00867  M01S00719.dio     +++|          CRD    CM
00868  M01S00720.dio     +++|          LDD    CM+3
00869  M01S00721.dio     +++|          LPN    1
00870  M01S00722.dio     +++|          ZJN    WOGX        IF PAUSE BIT CLEAR
00871  M01S00723.dio     +++|          UJN    WOG1        LOOP
00872  M01S00724.dio     +++|          TITLE  DISK/TAPE ROUTINES.
00873  M01S00725.dio     +++| BKS      SPACE  4,10
00874  M01S00726.dio     +++|**        BKS - BACKSPACE DEADSTART MEDIUM.
00875  M01S00727.dio     +++|*
00876  M01S00728.dio     +++|*         ENTRY  (RC) = RETRY COUNT.
00877  M01S00729.dio     +++|*
00878  M01S00730.dio     +++|*         EXIT   (RC) DECREMENTED.
00879  M01S00731.dio     +++|*
00880  M01S00732.dio     +++|*         CALLS  DSM, GTS, POS, WOG.
00881  M01S00733.dio     +++|
00882  M01S00734.dio     +++|
00883  M01S00735.dio     +++| BKS4     LDD    LT          RESET DISK ADDRESS
00884  M01S00736.dio     +++|          STD    T6
00885  M01S00737.dio     +++|          LDD    LS
00886  M01S00738.dio     +++|          STD    T7
00887  M01S00739.dio     +++|          RJM    POS         POSITION MASS STORAGE
00888  M01S00740.dio     +++|
00889  M01S00741.dio     +++| BKS      SUBR               ENTRY/EXIT
00890  M01S00742.dio     +++|          RJM    DSM         DISPLAY STATUS MESSAGE
00891  M01S00743.dio     +++|          SOD    RC          DECREMENT RETRY COUNT
00892  M01S00744.dio     +++| BKSA     ZJN    *           IF RETRY COUNT EXHAUSTED
00893  M01S00745.dio     +++|*         ZJN    BKS3        (TAPE ERROR LOADING SYSTEM FILE)
00894  M01S00746.dio     +++|          LDD    DM
00895  M01S00747.dio     +++|          NJN    BKS4        IF DISK DEADSTART
00896  M01S00748.dio     +++| BKS1     RJM    GTS         GET TAPE STATUS
00897  M01S00749.dio     +++|          LPN    2
00898  M01S00750.dio     +++|          NJN    BKS1        IF UNIT BUSY
00899  M01S00751.dio     +++|          LDD    BF          BACKSPACE TAPE
Line S00752 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00900  M02S00752.ns21000 ---|          FAN    DC
00901  M01S00011.ns21000 +++|          FAN    DS
00902  M01S00753.dio     +++| BKS2     RJM    GTS         GET TAPE STATUS
00903  M01S00754.dio     +++|          LPN    2
00904  M01S00755.dio     +++|          NJN    BKS2        IF BACKSPACE NOT COMPLETE
00905  M01S00756.dio     +++|          UJN    BKSX        RETURN
00906  M01S00757.dio     +++|
00907  M01S00758.dio     +++| BKS3     LDC    BKSB        *SYSTEM TAPE PARITY ERROR.*
00908  M01S00759.dio     +++|          RJM    WOG         WAIT FOR OPERATOR *GO.*
00909  M01S00760.dio     +++|          LJM    RTRX        EXIT TAPE READ ROUTINE
00910  M01S00761.dio     +++|
00911  M01S00762.dio     +++| BKSB     DATA   C*SYSTEM TAPE PARITY ERROR.*
00912  M01S00763.dio     +++|
00913  M01S00764.dio     +++| BKSC     BSS    0
00914  M01S00765.dio     +++|          LOC    BKSA
00915  M01S00766.dio     +++|          ZJN    BKS3        IF TAPE ERROR LOADING SYSTEM FILE
00916  M01S00767.dio     +++|          LOC    *O
00917  M01S00768.dio     +++| GDS      SPACE  4,10
00918  M01S00769.dio     +++|**        GDS - GET DISK STATUS.
00919  M01S00770.dio     +++|*
00920  M01S00771.dio     +++|*         EXIT   (A) = (ST) = GENERAL STATUS.
00921  M01S00772.dio     +++|
00922  M01S00773.dio     +++|
00923  M01S00774.dio     +++| GDS      SUBR               ENTRY/EXIT
Line S00775 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00924  M02S00775.ns21000 ---|          FNC    12,DC       GET GENERAL STATUS
Line S00776 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00925  M02S00776.ns21000 ---|          ACN    DC
Line S00777 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00926  M02S00777.ns21000 ---|          IAN    DC
00927  M01S00012.ns21000 +++|          FNC    12,DS       GET GENERAL STATUS
00928  M01S00013.ns21000 +++|          ACN    DS
00929  M01S00014.ns21000 +++|          IAN    DS
00930  M01S00778.dio     +++|          STD    ST
00931  M01S00779.dio     +++|          UJN    GDSX        RETURN
00932  M01S00780.dio     +++| GTS      SPACE  4,10
00933  M01S00781.dio     +++|**        GTS - GET TAPE STATUS.
00934  M01S00782.dio     +++|*
00935  M01S00783.dio     +++|*         EXIT   (A) = (ST) = GENERAL STATUS.
00936  M01S00784.dio     +++|
00937  M01S00785.dio     +++|
00938  M01S00786.dio     +++| GTS1     LDN    70
Line S00787 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00939  M02S00787.ns21000 ---| GTS2     FJM    GTS4,DC     IF STATUS READY
00940  M01S00015.ns21000 +++| GTS2     FJM    GTS4,DS     IF STATUS READY
00941  M01S00788.dio     +++|          SBN    1
00942  M01S00789.dio     +++|          NJN    GTS2        WAIT STATUS READY
Line S00790 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00943  M02S00790.ns21000 ---|          DCN    DC
00944  M01S00016.ns21000 +++|          DCN    DS
00945  M01S00791.dio     +++| GTS3     LDD    SF          REQUEST GENERAL STATUS
Line S00792 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00946  M02S00792.ns21000 ---|          FAN    DC
Line S00793 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00947  M02S00793.ns21000 ---|          ACN    DC
Line S00794 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00948  M02S00794.ns21000 ---|          EJM    GTS1,DC     IF CHANNEL EMPTY
Line S00795 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00949  M02S00795.ns21000 ---| GTS4     IAN    DC
Line S00796 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00950  M02S00796.ns21000 ---|          DCN    DC
00951  M01S00017.ns21000 +++|          FAN    DS
00952  M01S00018.ns21000 +++|          ACN    DS
00953  M01S00019.ns21000 +++|          EJM    GTS1,DS     IF CHANNEL EMPTY
00954  M01S00020.ns21000 +++| GTS4     IAN    DS
00955  M01S00021.ns21000 +++|          DCN    DS
00956  M01S00797.dio     +++|          STD    ST          SET GENERAL STATUS
00957  M01S00798.dio     +++|          SHN    0-13
00958  M01S00799.dio     +++|          ZJN    GTS5        IF ALERT FLAG NOT SET
Line S00800 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00959  M02S00800.ns21000 ---|          FNC    112,DC      GET DETAILED STATUS
00960  M01S00022.ns21000 +++|          FNC    112,DS      GET DETAILED STATUS
00961  M01S00801.dio     +++| GTSA     EQU    *-1
Line S00802 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00962  M02S00802.ns21000 ---|          ACN    DC
Line S00803 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00963  M02S00803.ns21000 ---|          IAN    DC
Line S00804 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00964  M02S00804.ns21000 ---|          DCN    DC
00965  M01S00023.ns21000 +++|          ACN    DS
00966  M01S00024.ns21000 +++|          IAN    DS
00967  M01S00025.ns21000 +++|          DCN    DS
00968  M01S00805.dio     +++|          LPC    7077
00969  M01S00806.dio     +++| GTSB     EQU    *-1
00970  M01S00807.dio     +++|*         LPC    7777        (ATS TAPE SYSTEM)
00971  M01S00808.dio     +++|          NJN    GTS5        IF NOT ONLY WARNING
00972  M01S00809.dio     +++|          LDD    ST          CLEAR ALERT FLAG
00973  M01S00810.dio     +++|          LPN    77
00974  M01S00811.dio     +++|          STD    ST
00975  M01S00812.dio     +++| GTS5     LDD    ST
00976  M01S00813.dio     +++|
00977  M01S00814.dio     +++| GTS      SUBR               ENTRY/EXIT
00978  M01S00815.dio     +++|          UJN    GTS3        GET GENERAL STATUS
00979  M01S00816.dio     +++| ITM      SPACE  4,10
00980  M01S00817.dio     +++|**        ITM - INITIATE TAPE MOTION.
00981  M01S00818.dio     +++|*
00982  M01S00819.dio     +++|*         ENTRY  (TM) = 5005 IF TAPE MOTION INITIATED.
00983  M01S00820.dio     +++|*
00984  M01S00821.dio     +++|*         EXIT   (A) = (TM) = 5005.
00985  M01S00822.dio     +++|*                CHANNEL ACTIVE.
00986  M01S00823.dio     +++|
00987  M01S00824.dio     +++|
00988  M01S00825.dio     +++| ITM      SUBR               ENTRY/EXIT
00989  M01S00826.dio     +++|          LDD    TM
00990  M01S00827.dio     +++|          NJN    ITMX        IF TAPE MOTION ALREADY INITIATED
00991  M01S00828.dio     +++|          LDD    RF          ISSUE READ FUNCTION
Line S00829 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00992  M02S00829.ns21000 ---|          FAN    DC
00993  M01S00026.ns21000 +++|          FAN    DS
00994  M01S00830.dio     +++|          LDC    TPLN+5      SET TAPE MOTION FLAG
00995  M01S00831.dio     +++|          STD    TM
Line S00832 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
00996  M02S00832.ns21000 ---|          ACN    DC
00997  M01S00027.ns21000 +++|          ACN    DS
00998  M01S00833.dio     +++|          UJN    ITMX        RETURN
00999  M01S00834.dio     +++| POS      SPACE  4,10
01000  M01S00835.dio     +++|**        POS - POSITION MASS STORAGE.
01001  M01S00836.dio     +++|*
01002  M01S00837.dio     +++|*         ENTRY  (T6) = LOGICAL TRACK.
01003  M01S00838.dio     +++|*                (T7) = LOGICAL SECTOR.
01004  M01S00839.dio     +++|*                (UN) = UNIT NUMBER.
01005  M01S00840.dio     +++|*                (POSA) = SEEK FUNCTION.
01006  M01S00841.dio     +++|*
01007  M01S00842.dio     +++|*         USES   T2.
01008  M01S00843.dio     +++|*
01009  M01S00844.dio     +++|*         CALLS  DSM, GDS, LDA.
01010  M01S00845.dio     +++|
01011  M01S00846.dio     +++|
01012  M01S00847.dio     +++| POS      SUBR               ENTRY/EXIT
01013  M01S00848.dio     +++|          LDN    0
01014  M01S00849.dio     +++|          STD    T2
01015  M01S00850.dio     +++|          RJM    LDA         CONVERT DISK ADDRESS
01016  M01S00005.241l630 +++|          LDD    DT          SET 895 DEADSTART READ FLAG
01017  M01S00006.241l630 +++|          RAD    UN+2
01018  M01S00851.dio     +++| POS1     SOD    T2
01019  M01S00852.dio     +++|          ZJN    POS2        IF BUSY COUNT EXHAUSTED
Line S00853 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01020  M02S00853.ns21000 ---|          FNC    2,DC        SEEK FUNCTION
01021  M01S00028.ns21000 +++|          FNC    2,DS        SEEK FUNCTION
01022  M01S00854.dio     +++| POSA     EQU    *-1
Line S00855 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01023  M02S00855.ns21000 ---|*         FNC    1,DC        (1 TO 1 INTERLACE)
Line S00856 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01024  M02S00856.ns21000 ---|          ACN    DC
01025  M01S00029.ns21000 +++|*         FNC    1,DS        (1 TO 1 INTERLACE)
01026  M01S00030.ns21000 +++|          ACN    DS
01027  M01S00857.dio     +++|          LDN    4           OUTPUT SEEK PARAMETERS
Line S00858 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01028  M02S00858.ns21000 ---|          OAM    UN,DC
Line S00859 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01029  M02S00859.ns21000 ---|          FJM    *,DC
Line S00860 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01030  M02S00860.ns21000 ---|          DCN    DC
01031  M01S00031.ns21000 +++|          OAM    UN,DS
01032  M01S00032.ns21000 +++|          FJM    *,DS        IF CHANNEL FULL
01033  M01S00033.ns21000 +++|          DCN    DS
01034  M01S00861.dio     +++|          RJM    GDS         GET DISK STATUS
01035  M01S00862.dio     +++|          ZJN    POSX        IF POSITIONING COMPLETE
01036  M01S00863.dio     +++|          LPN    2
01037  M01S00864.dio     +++|          NJN    POS1        IF BUSY
01038  M01S00865.dio     +++| POS2     RJM    DSM         DISPLAY STATUS MESSAGE
01039  M01S00866.dio     +++|          UJN    POS1        LOOP
01040  M01S00867.dio     +++| RDR      SPACE  4,10
01041  M01S00868.dio     +++|**        RDR - READ DISK RECORD.
01042  M01S00869.dio     +++|*
01043  M01S00870.dio     +++|*         ENTRY  (T6) = CURRENT LOGICAL TRACK.
01044  M01S00871.dio     +++|*                (T7) = CURRENT LOGICAL SECTOR.
01045  M01S00872.dio     +++|*
01046  M01S00873.dio     +++|*         EXIT   (A) = 0 IF ERROR.
01047  M01S00874.dio     +++|*                (LT) = (T6) ON ENTRY.
01048  M01S00875.dio     +++|*                (LS) = (T7) ON ENTRY.
01049  M01S00876.dio     +++|*                (WC) = CM WORD COUNT OF RECORD.
01050  M01S00877.dio     +++|*
01051  M01S00878.dio     +++|*         CALLS  CDD, RNS.
01052  M01S00879.dio     +++|
01053  M01S00880.dio     +++|
01054  M01S00881.dio     +++| RDR      SUBR               ENTRY/EXIT
01055  M01S00882.dio     +++|          RJM    CDD         CONNECT
01056  M01S00883.dio     +++| RDR1     LDN    0           CLEAR WORD COUNT
01057  M01S00884.dio     +++|          STD    WC
01058  M01S00885.dio     +++|          LDD    T6          SAVE CURRENT DISK ADDRESS
01059  M01S00886.dio     +++|          STD    LT
01060  M01S00887.dio     +++|          LDD    T7
01061  M01S00888.dio     +++|          STD    LS
01062  M01S00889.dio     +++| RDR2     LDD    WC          READ NEXT SECTOR
01063  M01S00890.dio     +++|          RJM    RNS
01064  M01S00891.dio     +++|          MJN    RDR1        IF DISK ERROR
01065  M01S00892.dio     +++|          RAD    WC
01066  M01S00893.dio     +++|          LMC    TPLN/5
01067  M01S00894.dio     +++|          ZJN    RDR3        IF TAPE PRU ASSEMBLED
01068  M01S00895.dio     +++|          LDD    T2          CHECK SECTOR WORD COUNT
01069  M01S00896.dio     +++|          SHN    -6
01070  M01S00897.dio     +++|          NJN    RDR2        IF NOT EOR
Line S00898 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01071  M02S00898.ns21000 ---| RDR3     FNC    10,DC       RELEASE CONTROLLER / DRIVE
01072  M01S00034.ns21000 +++| RDR3     FNC    10,DS       RELEASE CONTROLLER / DRIVE
01073  M01S00001.dio2    +++|          AJM    *,DS        IF FUNCTION NOT COMPLETE
01074  M01S00899.dio     +++|          UJN    RDRX        RETURN
01075  M01S00900.dio     +++| RDT      SPACE  4,10
01076  M01S00901.dio     +++|**        RDT - REWIND DEADSTART TAPE.
01077  M01S00902.dio     +++|
01078  M01S00903.dio     +++|
01079  M01S00904.dio     +++| RDT      SUBR               ENTRY/EXIT
01080  M01S00905.dio     +++|          LDD    DM
01081  M01S00906.dio     +++|          NJN    RDTX        IF DISK DEADSTART
01082  M01S00907.dio     +++| RDT1     RJM    GTS         GET TAPE STATUS
01083  M01S00908.dio     +++|          LPN    2
01084  M01S00909.dio     +++|          NJN    RDT1        IF UNIT BUSY
01085  M01S00910.dio     +++|          LDD    SF
01086  M01S00911.dio     +++|          SBN    12-10       REWIND TAPE
Line S00912 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01087  M02S00912.ns21000 ---|          FAN    DC
01088  M01S00035.ns21000 +++|          FAN    DS
01089  M01S00913.dio     +++|          UJN    RDTX        RETURN
01090  M01S00914.dio     +++| RNS      SPACE  4,10
01091  M01S00915.dio     +++|**        RNS - READ NEXT SECTOR.
01092  M01S00916.dio     +++|*
01093  M01S00917.dio     +++|*         ENTRY  (A) = BIAS FOR BUFFER ADDRESS.
01094  M01S00918.dio     +++|*
01095  M01S00919.dio     +++|*         EXIT   (A) = (T2) = SECTOR WORD COUNT.
01096  M01S00920.dio     +++|*                (T6) = LOGICAL TRACK FOR NEXT READ.
01097  M01S00921.dio     +++|*                (T7) = LOGICAL SECTOR FOR NEXT READ.
01098  M01S00922.dio     +++|*
01099  M01S00923.dio     +++|*         EREXIT (A) .LT. 0.
01100  M01S00924.dio     +++|*                DISK BACKSPACED.
01101  M01S00925.dio     +++|*
01102  M01S00926.dio     +++|*         USES   T3, L1, L2.
01103  M01S00927.dio     +++|*
01104  M01S00928.dio     +++|*         CALLS  BKS, GDS, POS.
01105  M01S00929.dio     +++|
01106  M01S00930.dio     +++|
01107  M01S00004.ns2776  +++| RNS2.1   LDN    0           ZERO IF *DR* DEADSTART DEVICE
01108  M01S00005.ns2776  +++| RNSB     EQU    *-1
01109  M01S00006.ns2776  +++|          NJN    RNS2.2      IF NOT *DR* DEADSTART DEVICE
01110  M01S00007.ns2776  +++|          LDD    T7
01111  M01S00008.ns2776  +++|          LMC    1200
01112  M01S00009.ns2776  +++|          ZJN    RNS3.1      IF POSSIBLE CYLINDER SWITCH
01113  M01S00010.ns2776  +++|          LMC    1200&2400
01114  M01S00011.ns2776  +++|          ZJN    RNS3.1      IF POSSIBLE CYLINDER SWITCH
01115  M01S00012.ns2776  +++| RNS2.2   UJN    RNS4        RESTORE LINKAGE CELLS AND RETURN
01116  M01S00013.ns2776  +++|
01117  M01S00931.dio     +++| RNS3     AOD    T7          ADVANCE LOGICAL SECTOR
01118  M01S00932.dio     +++|          LMI    T3
Line S00933 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01119  M02S00933.ns2776  ---|          ZJN    RNS4        IF MATCHING SECTOR LINKAGE
01120  M01S00014.ns2776  +++|          ZJN    RNS2.1      IF MATCHING SECTOR LINKAGE
01121  M01S00015.ns2776  +++|          LDI    T3          SET NEXT TRACK
01122  M01S00016.ns2776  +++|          SHN    21-13
01123  M01S00017.ns2776  +++|          PJN    *           IF NOT TRACK SWITCH
01124  M01S00018.ns2776  +++|          SHN    13-21
01125  M01S00019.ns2776  +++|          STD    T6
01126  M01S00934.dio     +++|          LDN    0           SET FIRST SECTOR
01127  M01S00935.dio     +++|          STD    T7
Line S00936 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01128  M02S00936.ns2776  ---|          LDI    T3          SET NEXT TRACK
Line S00937 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01129  M02S00937.ns2776  ---|          STD    T6
Line S00938 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01130  M02S00938.ns2776  ---|          SHN    0-13
Line S00939 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01131  M02S00939.ns2776  ---|          ZJN    *           IF NOT TRACK SWITCH
Line S00940 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01132  M02S00940.ns2776  ---|          RJM    POS         POSITION MASS STORAGE
01133  M01S00020.ns2776  +++| RNS3.1   RJM    POS         POSITION MASS STORAGE
01134  M01S00941.dio     +++| RNS4     LDD    L1          RESTORE CELLS OVERLAID BY LINKAGE
01135  M01S00942.dio     +++|          STI    T3
01136  M01S00943.dio     +++|          AOD    T3
01137  M01S00944.dio     +++|          LDI    T3
01138  M01S00945.dio     +++|          STD    T2
01139  M01S00946.dio     +++|          LDD    L2
01140  M01S00947.dio     +++|          STI    T3
01141  M01S00948.dio     +++|          LDD    T2
01142  M01S00949.dio     +++|
01143  M01S00950.dio     +++| RNS      SUBR               ENTRY/EXIT
01144  M01S00951.dio     +++|          STD    T3          CALCULATE BUFFER ADDRESS
01145  M01S00952.dio     +++|          SHN    2
01146  M01S00953.dio     +++|          ADC    BUF-2
01147  M01S00954.dio     +++|          RAD    T3
01148  M01S00955.dio     +++|          STM    RNSA
01149  M01S00956.dio     +++|          LDI    T3          SAVE LOCATIONS OVERLAID BY LINKAGE
01150  M01S00957.dio     +++|          STD    L1
01151  M01S00958.dio     +++|          LDM    1,T3
01152  M01S00959.dio     +++|          STD    L2
Line S00960 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01153  M02S00960.ns21000 ---|          FNC    4,DC        READ DISK SECTOR
01154  M01S00036.ns21000 +++|          FNC    4,DS        READ DISK SECTOR
Line S00961 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01155  M02S00961.dio1    ---|          LDC    DSLN+2
01156  M01S00001.dio1    +++| RNS1     LDC    DSLN+2
Line S00962 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01157  M02S00962.ns21000 ---|          ACN    DC
Line S00963 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01158  M02S00963.ns21000 ---|          IAM    BUF,DC
01159  M01S00037.ns21000 +++|          ACN    DS
01160  M01S00038.ns21000 +++|          IAM    BUF,DS
01161  M01S00964.dio     +++| RNSA     EQU    *-1
Line S00965 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01162  M02S00965.dio1    ---| RNS1     RJM    GDS         GET DISK STATUS
Line S00966 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01163  M02S00966.dio1    ---|          NJN    RNS2        IF NOT READY
Line S00967 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01164  M02S00967.dio1    ---|          LJM    RNS3        COMPLETE PROCESSING
Line S00968 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01165  M02S00968.dio1    ---|
Line S00969 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01166  M02S00969.dio1    ---| RNS2     LPC    5001
Line S00970 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01167  M02S00970.dio1    ---|          ZJN    RNS1        IF NO ERRORS
Line S00971 Modification History
M01 (Added by) dio
M02 (Updated by) dio1
Seq #  *Modification Id* Act 
----------------------------+
01168  M02S00971.dio1    ---|          RJM    BKS         BACKSPACE DISK
01169  M01S00002.dio1    +++|          RJM    GDS         GET DISK STATUS
01170  M01S00003.dio1    +++|          ZJP    RNS3        IF NO ERRORS
01171  M01S00004.dio1    +++|          SHN    21-13
01172  M01S00005.dio1    +++|          PJN    RNS2        IF NOT ABNORMAL TERMINATION
01173  M01S00006.dio1    +++|          SHN    21-10-21+13
01174  M01S00007.dio1    +++|          PJN    RNS2        IF NOT TO ISSUE CONTINUE
01175  M01S00008.dio1    +++|          FNC    14,DS       ISSUE CONTINUE FUNCTION
01176  M01S00009.dio1    +++|          UJN    RNS1        CONTINUE
01177  M01S00010.dio1    +++|
01178  M01S00011.dio1    +++| RNS2     RJM    BKS         BACKSPACE DISK
01179  M01S00972.dio     +++|          LCN    0
01180  M01S00973.dio     +++|          LJM    RNSX        RETURN
01181  M01S00974.dio     +++| RTR      SPACE  4,10
01182  M01S00975.dio     +++|**        RTR - READ TAPE RECORD.
01183  M01S00976.dio     +++|*
01184  M01S00977.dio     +++|*         EXIT   (WC) = CM WORD COUNT FOR RECORD.
01185  M01S00978.dio     +++|*                (TM) = 0.
01186  M01S00979.dio     +++|*                TO *RSTX* WHEN EOF ENCOUNTERED.
01187  M01S00980.dio     +++|*
01188  M01S00981.dio     +++|*         CALLS  BKS, DV5, GTS, ITM.
01189  M01S00982.dio     +++|
01190  M01S00983.dio     +++|
01191  M01S00984.dio     +++| RTR      SUBR               ENTRY/EXIT
01192  M01S00985.dio     +++| RTR1     RJM    ITM         INITIATE TAPE MOTION
01193  M01S00986.dio     +++|          STD    WC
Line S00987 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01194  M02S00987.ns21000 ---|          IAM    BUF,DC      INPUT TAPE RECORD
01195  M01S00039.ns21000 +++|          IAM    BUF,DS      INPUT TAPE RECORD
01196  M01S00988.dio     +++|          LMC    -0
01197  M01S00989.dio     +++|          ADD    WC
01198  M01S00990.dio     +++|          SBN    3
01199  M01S00991.dio     +++|          PJN    RTR2        IF NOT NOISE
01200  M01S00992.dio     +++|          LDN    0
01201  M01S00993.dio     +++| RTR2     RJM    DV5         DIVIDE BY FIVE
01202  M01S00994.dio     +++|          STD    WC
01203  M01S00995.dio     +++| RTR3     RJM    GTS         GET TAPE STATUS
01204  M01S00996.dio     +++|          LPN    20
01205  M01S00997.dio     +++|          NJN    RTR4        IF EOF
01206  M01S00998.dio     +++|          STD    TM
01207  M01S00999.dio     +++|          LDD    ST
01208  M01S01000.dio     +++|          LPC    4010
01209  M01S01001.dio     +++|          ZJN    RTRX        IF NO ERRORS
01210  M01S01002.dio     +++|          RJM    BKS         BACKSPACE TAPE
01211  M01S01003.dio     +++|          UJN    RTR1        RETRY
01212  M01S01004.dio     +++|
01213  M01S01005.dio     +++| RTR4     LJM    RSTX        EXIT SYSTEM TAPE LOAD
Proceed to Part 1
cdc/nos2.source/opl.opl871/deck/dio.txt ยท Last modified: by 127.0.0.1