User Tools

Site Tools


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

Deck DIO Part 001

11 Modifications

Listing Sections

Source

Seq #  *Modification Id* Act 
----------------------------+
01214  M01S01006.dio     +++| RTU      SPACE  4,10
01215  M01S01007.dio     +++|**        RTU - RELEASE TAPE UNIT.
01216  M01S01008.dio     +++|
01217  M01S01009.dio     +++|
01218  M01S01010.dio     +++| RTU      SUBR               ENTRY/EXIT
01219  M01S01011.dio     +++|          LDD    DM
01220  M01S01012.dio     +++|          NJN    RTUX        IF DISK DEADSTART
01221  M01S01013.dio     +++|          LDD    SF
01222  M01S01014.dio     +++|          SBN    12-1
Line S01015 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
Seq #  *Modification Id* Act 
----------------------------+
01223  M02S01015.ns21000 ---| RTU1     FAN    DC          RELEASE UNIT RESERVATION
01224  M01S00040.ns21000 +++| RTU1     FAN    DS          RELEASE UNIT RESERVE
01225  M01S01016.dio     +++|          UJN    RTUX        RETURN
01226  M01S01017.dio     +++|          SPACE  4,10
01227  M01S01018.dio     +++|**        COMMON DECKS.
01228  M01S01019.dio     +++|
01229  M01S01020.dio     +++|
01230  M01S01021.dio     +++|*CALL     COMPC2D
01231  M01S01022.dio     +++|*CALL     COMPDV5
01232  M01S00021.ns2776  +++|          LIST   X
01233  M01S01023.dio     +++|*CALL     COMPLDA
Line S01024 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01234  M02S01024.ns2776  ---|          SPACE  4,10
Line S01025 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01235  M02S01025.ns2776  ---|**        CHANNEL TABLES.
Line S01026 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01236  M02S01026.ns2776  ---|
Line S01027 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01237  M02S01027.ns2776  ---|
Line S01028 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01238  M02S01028.ns2776  ---|          CHTB   PC
Line S01029 Modification History
M01 (Added by) dio
M02 (Updated by) ns21000
M03 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01239  M03S01029.ns2776  ---|          CHTB   DC
Line S00041 Modification History
M01 (Added by) ns21000
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01240  M02S00041.ns2776  ---|          CHTB   DS
01241  M01S00022.ns2776  +++|          LIST   *
01242  M01S00023.ns2776  +++|          TITLE  BUFFER RESIDENT PRESET.
01243  M01S00024.ns2776  +++| BRP      SPACE  4,10
01244  M01S00025.ns2776  +++|**        BRP - BUFFER RESIDENT PRESET.
01245  M01S00026.ns2776  +++|*
01246  M01S00027.ns2776  +++|*         EXIT   CHANNEL INSTRUCTIONS MODIFIED.
01247  M01S00028.ns2776  +++|*                DRIVERS PRESET.
01248  M01S00029.ns2776  +++|*                CONSTANT 3 (TR) DEFINED.
01249  M01S00030.ns2776  +++|*
01250  M01S00031.ns2776  +++|*         USES   DH, DM, DN, IH, T4, T6, T7.
01251  M01S00032.ns2776  +++|*
01252  M01S00033.ns2776  +++|*         CALLS  C2D, MCI, PSD.
01253  M01S00034.ns2776  +++|
01254  M01S00035.ns2776  +++|
01255  M01S00036.ns2776  +++| BRP      SUBR               ENTRY/EXIT
01256  M01S00037.ns2776  +++|          LDM    MXRL+CM     SET DEADSTART CHANNEL
01257  M01S00038.ns2776  +++|          STD    T4
01258  M01S00039.ns2776  +++|          STD    DH
01259  M01S00040.ns2776  +++|          RJM    C2D         CONVERT FOR STATUS MESSAGE
01260  M01S00041.ns2776  +++|          STM    DSMA+1
01261  M01S00042.ns2776  +++|          LDM    MXRL+LA     PRESERVE DISPLAY CONSOLE STATUS
01262  M01S00043.ns2776  +++|          STD    DN
01263  M01S00044.ns2776  +++|          LDC    CTDS        MODIFY CHANNEL INSTRUCTIONS
01264  M01S00045.ns2776  +++|          RJM    MCI
01265  M01S00046.ns2776  +++|          LDN    PC          CHECK DEADSTART CHANNEL
01266  M01S00047.ns2776  +++|          STD    IH
01267  M01S00048.ns2776  +++|          LMD    DH
01268  M01S00049.ns2776  +++|          NJN    BRP1        IF NOT PP COMMUNICATIONS CHANNEL
01269  M01S00050.ns2776  +++|          LDN    12          SET INTERCOMMUNICATIONS CHANNEL
01270  M01S00051.ns2776  +++|          STD    IH
01271  M01S00052.ns2776  +++|          STD    T4
01272  M01S00053.ns2776  +++|          LDC    CTPC        MODIFY PP INTERCOMMUNICATION CHANNELS
01273  M01S00054.ns2776  +++|          RJM    MCI
01274  M01S00055.ns2776  +++| BRP1     LDM    MXRL+T7     DISK SECTOR / DEADSTART FUNCTION
01275  M01S00056.ns2776  +++|          STD    T7
01276  M01S00057.ns2776  +++|          LDM    MXRL+T6     TRACK / TAPE STATUS
01277  M01S00058.ns2776  +++|          STD    T6
01278  M01S00059.ns2776  +++|          STD    DM
01279  M01S00060.ns2776  +++|          RJM    PSD         PRESET DRIVERS
01280  M01S00061.ns2776  +++|          LDN    3           DEFINE CONSTANT 3
01281  M01S00062.ns2776  +++|          STD    TR
01282  M01S00063.ns2776  +++|          UJP    BRPX        RETURN
01283  M01S00064.ns2776  +++|          TITLE  BUFFER RESIDENT PRESET SUBROUTINES.
01284  M01S00065.ns2776  +++| CAU      SPACE  4,10
01285  M01S00066.ns2776  +++|**        CAU - CHECK ATS UNIT.
01286  M01S00067.ns2776  +++|*
01287  M01S00068.ns2776  +++|*         ENTRY  (T7) = WORD 6 OF DEADSTART PANEL.
01288  M01S00069.ns2776  +++|*
01289  M01S00070.ns2776  +++|*         EXIT   TAPE READ LOOP MODIFIED FOR 200 OR 150 IPS 6250
01290  M01S00071.ns2776  +++|*                DENSITY AT 2X PPU SPEED OR ANY 6250 DENSITY AT 1X PPU
01291  M01S00072.ns2776  +++|*                SPEED.
01292  M01S00073.ns2776  +++|*
01293  M01S00074.ns2776  +++|*         USES   T1.
01294  M01S00075.ns2776  +++|
01295  M01S00076.ns2776  +++|
01296  M01S00077.ns2776  +++| CAU2     SBN    2
01297  M01S00078.ns2776  +++|          PJN    CAUX        IF PP SPEED .GE. 4X
01298  M01S00079.ns2776  +++|          LDD    T1
01299  M01S00080.ns2776  +++|          LPN    7
01300  M01S00081.ns2776  +++|          LMN    5
01301  M01S00082.ns2776  +++|          ZJN    CAU1        IF 200 IPS UNIT
01302  M01S00083.ns2776  +++|          LMN    6&5
01303  M01S00084.ns2776  +++|          ZJN    CAU1        IF 150 IPS UNIT
01304  M01S00085.ns2776  +++|
01305  M01S00086.ns2776  +++| CAU      SUBR               ENTRY/EXIT
01306  M01S00087.ns2776  +++|          LDD    T7          GET EQUIPMENT (CONTROLLER) NUMBER
01307  M01S00088.ns2776  +++|          LPC    7000
01308  M01S00089.ns2776  +++|          ADC    212         ADD UNIT STATUS FUNCTION
01309  M01S00090.ns2776  +++|          FAN    DS
01310  M01S00091.ns2776  +++|          ACN    DS
01311  M01S00092.ns2776  +++|          IAN    DS
01312  M01S00093.ns2776  +++|          DCN    DS
01313  M01S00094.ns2776  +++|          STD    T1
01314  M01S00095.ns2776  +++|          LPN    30          CHECK UNIT STATUS
01315  M01S00096.ns2776  +++|          LMN    30
01316  M01S00097.ns2776  +++|          NJN    CAUX        IF DENSITY NOT 6250 CPI
01317  M01S00098.ns2776  +++|          LDM    MXRL+T3
01318  M01S00099.ns2776  +++|          NJN    CAU2        IF PP SPEED .GT. 1X
01319  M01S00100.ns2776  +++| CAU1     LDC    UJNI+2      DISABLE INITIATE TAPE MOTION
01320  M01S00101.ns2776  +++|          STM    RSTA
01321  M01S00102.ns2776  +++|          UJN    CAUX        RETURN
01322  M01S00103.ns2776  +++| MCI      SPACE  4,10
01323  M01S00104.ns2776  +++|**        MCI - MODIFY CHANNEL INSTRUCTIONS.
01324  M01S00105.ns2776  +++|*
01325  M01S00106.ns2776  +++|*         ENTRY  (A) = ADDRESS OF INSTRUCTION LIST.
01326  M01S00107.ns2776  +++|*                (T4) = CHANNEL NUMBER.
01327  M01S00108.ns2776  +++|*
01328  M01S00109.ns2776  +++|*         USES   T1, T2.
01329  M01S00110.ns2776  +++|
01330  M01S00111.ns2776  +++|
01331  M01S00112.ns2776  +++| MCI1     STD    T2          SET INSTRUCTION ADDRESS
01332  M01S00113.ns2776  +++|          LDI    T2          MODIFY INSTRUCTION
01333  M01S00114.ns2776  +++|          SCN    37
01334  M01S00115.ns2776  +++|          LMD    T4
01335  M01S00116.ns2776  +++|          STI    T2
01336  M01S00117.ns2776  +++|          AOD    T1          ADVANCE LIST ADDRESS
01337  M01S00118.ns2776  +++| MCI2     LDI    T1
01338  M01S00119.ns2776  +++|          NJN    MCI1        IF NOT END OF LIST
01339  M01S00120.ns2776  +++|
01340  M01S00121.ns2776  +++| MCI      SUBR               ENTRY/EXIT
01341  M01S00122.ns2776  +++|          STD    T1          SET LIST ADDRESS
01342  M01S00123.ns2776  +++|          UJN    MCI2        ENTER LOOP
01343  M01S00124.ns2776  +++| PSD      SPACE  4,10
01344  M01S00125.ns2776  +++|**        PSD - PRESET DRIVERS.
01345  M01S00126.ns2776  +++|*
01346  M01S00127.ns2776  +++|*         ENTRY  (A) = 0 IF TAPE DEADSTART.
01347  M01S00128.ns2776  +++|*                (T6) = TRACK / TAPE STATUS.
01348  M01S00129.ns2776  +++|*                (T7) = DISK SECTOR / DEADSTART FUNCTION.
01349  M01S00130.ns2776  +++|*
01350  M01S00131.ns2776  +++|*         EXIT   (UN) = UNIT NUMBER (DISK DEADSTART).
01351  M01S00132.ns2776  +++|*                (BF) = BACKSPACE FUNCTION (TAPE DEADSTART).
01352  M01S00133.ns2776  +++|*                (RF) = READ FUNCTION (TAPE DEADSTART).
01353  M01S00134.ns2776  +++|*                (SF) = STATUS FUNCTION (TAPE DEADSTART).
01354  M01S00135.ns2776  +++|*
01355  M01S00136.ns2776  +++|*         CALLS  CAU, C2D, PDA.
01356  M01S00137.ns2776  +++|
01357  M01S00138.ns2776  +++|
01358  M01S00139.ns2776  +++| PSD3     LDM    MXRL+T5     SET SEEK FUNCTION
01359  M01S00140.ns2776  +++|          SHN    14
01360  M01S00141.ns2776  +++|          STM    POSA
01361  M01S00142.ns2776  +++|          SHN    -14         POSITION ALGORITHM INDEX
01362  M01S00143.ns2776  +++|          LPN    77
01363  M01S00144.ns2776  +++|          LMN    AIDR
01364  M01S00145.ns2776  +++|          RAM    RNSB        ZERO FOR CDSS II DEADSTART DEVICE
01365  M01S00146.ns2776  +++|          LMN    AIDR
01366  M01S00147.ns2776  +++|          LPN    77
01367  M01S00148.ns2776  +++|          RJM    PDA         PRESET DISK ADDRESS CONVERSION
01368  M01S00149.ns2776  +++|          LDM    MXRL+DT     GET 895 DEADSTART READ FLAG
01369  M01S00150.ns2776  +++|          STD    DT
01370  M01S00151.ns2776  +++|          LDM    MXRL+T4     SET UNIT NUMBER
01371  M01S00152.ns2776  +++| PSD4     STD    UN
01372  M01S00153.ns2776  +++|          RJM    C2D         CONVERT FOR STATUS MESSAGE
01373  M01S00154.ns2776  +++|          STM    DSMA+4
01374  M01S00155.ns2776  +++|
01375  M01S00156.ns2776  +++| PSD      SUBR               ENTRY/EXIT
01376  M01S00157.ns2776  +++|          NJN    PSD3        IF DISK DEADSTART
01377  M01S00158.ns2776  +++|          LDC    RTR         SET TAPE DRIVER ADDRESS
01378  M01S00159.ns2776  +++|          STM    RNRA
01379  M01S00160.ns2776  +++|          LDD    T7
01380  M01S00161.ns2776  +++|          SHN    -6
01381  M01S00162.ns2776  +++|          LPN    7
01382  M01S00163.ns2776  +++|          LMN    1
01383  M01S00164.ns2776  +++|          NJN    PSD1        IF NOT ATS TAPE SYSTEM
01384  M01S00165.ns2776  +++|          LCN    0           SET DETAIL STATUS MASK
01385  M01S00166.ns2776  +++|          STM    GTSB
01386  M01S00167.ns2776  +++|          RJM    CAU         CHECK ATS UNIT
01387  M01S00168.ns2776  +++| PSD1     LDD    T7          EXTRACT EQUIPMENT (CONTROLLER) NUMBER
01388  M01S00169.ns2776  +++|          LPC    7000
01389  M01S00170.ns2776  +++|          ADN    12          SET GENERAL STATUS FUNCTION
01390  M01S00171.ns2776  +++|          STD    SF
01391  M01S00172.ns2776  +++|          ADN    40-12       SET READ FUNCTION
01392  M01S00173.ns2776  +++|          STD    RF
01393  M01S00174.ns2776  +++|          ADN    112-40      SET DETAILED STATUS FUNCTION
01394  M01S00175.ns2776  +++|          STM    GTSA
01395  M01S00176.ns2776  +++|          ADN    113-112     SET BACKSPACE FUNCTION
01396  M01S00177.ns2776  +++|          STD    BF
01397  M01S00178.ns2776  +++| PSD2     LDD    T7          EXTRACT UNIT NUMBER
01398  M01S00179.ns2776  +++|          LPN    17
01399  M01S00180.ns2776  +++|          LJM    PSD4        CONVERT FOR STATUS MESSAGE
01400  M01S00181.ns2776  +++|
01401  M01S00182.ns2776  +++|          LIST   G
01402  M01S00183.ns2776  +++| PDA      HERE
01403  M01S00184.ns2776  +++|          LIST   *
01404  M01S01030.dio     +++|          SPACE  4,10
01405  M01S00185.ns2776  +++|**        CHANNEL TABLES.
01406  M01S00186.ns2776  +++|
01407  M01S00187.ns2776  +++|
01408  M01S00188.ns2776  +++|          CHTB   PC
01409  M01S00189.ns2776  +++|          CHTB   DS
01410  M01S00190.ns2776  +++|          SPACE  4,10
01411  M01S00191.ns2776  +++|          ERRNG  7777-*      PRESET OVERFLOWS PP MEMORY
01412  M01S00192.ns2776  +++|          SPACE  4,10
01413  M01S01031.dio     +++|**        BUFFER.
01414  M01S01032.dio     +++|
01415  M01S01033.dio     +++|
Line S01034 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01416  M02S01034.ns2776  ---| BUF      EQU    CTPC+5
01417  M01S00193.ns2776  +++| BUF      EQU    BRPX+5
01418  M01S01035.dio     +++|          SPACE  4,10
Line S01036 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01419  M02S01036.ns2776  ---|          ERRPL  BUF+TPLN+5-10000  BUFFER OVERFLOWS PP MEMORY
Line S01037 Modification History
M01 (Added by) dio
M02 (Updated by) ns2776
Seq #  *Modification Id* Act 
----------------------------+
01420  M02S01037.ns2776  ---|          ERRPL  *-MXRL+4    *DIO* OVERFLOWS ONE TAPE PRU
01421  M01S00194.ns2776  +++|          ERRNG  10000-BUF-TPLN-5  BUFFER OVERFLOWS PP MEMORY
01422  M01S00195.ns2776  +++|          ERRNG  MXRL-*-5    *DIO* OVERFLOWS ONE TAPE PRU
01423  M01S01038.dio     +++|
01424  M01S01039.dio     +++|          END
cdc/nos2.source/opl.opl871/deck/dio.001.txt ยท Last modified: by 127.0.0.1