User Tools

Site Tools


cdc:nos2.source:opl.opl871:common:compddt

Common COMPDDT

3 Modifications

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M01S00001.compddt +++|          CTEXT  COMPDDT - DIRECT DISK TRANSFER.
00002  M01S00002.compddt +++|          IF     -DEF,QUAL$,1
00003  M01S00003.compddt +++|          QUAL   COMPDDT
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M01S00004.compddt +++|          SPACE  4,10
00006  M01S00005.compddt +++|***       DDT - DIRECT DISK TRANSFER.
00007  M01S00006.compddt +++|*         S. L. BETH         79/12/21.
00008  M01S00007.compddt +++|          SPACE  4,10
00009  M01S00008.compddt +++|***       DDT - PROCESS THE DIRECT TRANSFER *PIOM* SUBFUNCTIONS.
00010  M01S00009.compddt +++|*
00011  M01S00010.compddt +++|*         ENTRY  (T5) = EST ORDINAL.
00012  M01S00011.compddt +++|*                (T6) = TRACK.
00013  M01S00012.compddt +++|*                (T7) = SECTOR.
00014  M01S00013.compddt +++|*                (CM+2 - CM+4) = 18/ LWA, 18/ FWA.
00015  M01S00014.compddt +++|*                     LWA = LAST WORD ADDRESS OF TRANSFER IF *EOR* READ.
00016  M01S00015.compddt +++|*                     FWA = FIRST WORD ADDRESS OF TRANSFER.
00017  M01S00016.compddt +++|*                (CM+3 - CM+4) = CM ADDRESS.
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00001.273l780 ---|*                FOR SF = 4 AND PCP ROLLOUT, THE UPPER 6 BITS OF *CM+3*
Line S00002 Modification History
M01 (Added by) 271l716
M02 (Updated by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00019  M02S00002.273l780 ---|*                CONTAIN THE PCP NUMBER.
00020  M01S00017.compddt +++|*                (A) = 6/ SF, 12/ SC.
00021  M01S00018.compddt +++|*                      SF = *PIOM* SUBFUNCTION.
00022  M01S00019.compddt +++|*                      SC = SECTOR COUNT.
00023  M01S00020.compddt +++|*                      7777 = READ TO EOR.
00024  M01S00021.compddt +++|*                *6DE* LOADED (CHVR) + (UERR) SET BY *SETMS* MACRO.
00025  M01S00022.compddt +++|*
00026  M01S00023.compddt +++|*         EXIT   (A) = 0 IF TRANSFER SUCCESSFUL.
00027  M01S00024.compddt +++|*                    = 1/1, 1/L, 4/0, 12/(RDCT)  IF TRANSFER FAILED.
00028  M01S00025.compddt +++|*                      L = 0 IF THE FAILURE WAS DUE TO AN I/O ERROR,
00029  M01S00026.compddt +++|*                          AN ADDRESS ERROR OR AN INACCESSIBLE DEVICE.
00030  M01S00027.compddt +++|*                          THE ERROR CODE, AND OTHER ERROR PROCESSING
00031  M01S00028.compddt +++|*                          INFORMATION IS IN CELL *RDCT* AND IN THE
00032  M01S00029.compddt +++|*                          LOWER 12 BITS OF THE ACCUMULATOR.  SEE
00033  M01S00030.compddt +++|*                          *COMSMSP* FOR A DESCRIPTION OF THE FORMAT OF
00034  M01S00031.compddt +++|*                          *RDCT*.
00035  M01S00032.compddt +++|*                      L = 1 IF INSUFFICIENT FIELD LENGTH FOR TRANSFER.
00036  M01S00033.compddt +++|*                          *RDCT* INFORMATION IS NOT MEANINGFUL IF THIS
00037  M01S00034.compddt +++|*                          BIT IS SET.
00038  M01S00035.compddt +++|*                (T4) = SECTORS TRANSFERED.
00039  M01S00036.compddt +++|*                (T6, T7) UPDATED TO CURRENT POSITION.
00040  M01S00037.compddt +++|*
00041  M01S00038.compddt +++|*         USES   T0, CM - CM+4, T4 - T7.
00042  M01S00039.compddt +++|*
00043  M01S00040.compddt +++|*         MACROS MONITOR, PAUSE.
00044  M01S00041.compddt +++|
00045  M01S00042.compddt +++|
00046  M01S00043.compddt +++| DDT      SUBR               ENTRY/EXIT
00047  M01S00044.compddt +++|          STM    DDTA        SAVE SECTOR COUNT
00048  M01S00045.compddt +++|          SHN    -6          SAVE SUBFUNCTION
00049  M01S00046.compddt +++|          SCN    77
00050  M01S00047.compddt +++|          STM    DDTB
00051  M01S00048.compddt +++|          LDM    CHRV        SET CHANNEL CONTROL
00052  M01S00049.compddt +++|          STD    CM
00053  M01S00050.compddt +++| DDT1     LDD    OA          CHECK OUTPUT REGISTER CLEAR
00054  M01S00051.compddt +++|          CRM    DDTC,ON
00055  M01S00052.compddt +++|          LDM    DDTC
00056  M01S00053.compddt +++|          NJN    DDT1        IF OUTPUT REGISTER NOT CLEAR
00057  M01S00054.compddt +++|          LDD    MA
00058  M01S00055.compddt +++|          CWD    T4
00059  M01S00056.compddt +++|          LDC    **          CHECK FOR *EOR* TRANSFER
00060  M01S00057.compddt +++| DDTA     EQU    *-1
00061  M01S00058.compddt +++|          LMC    7777
00062  M01S00059.compddt +++|          NJN    DDT2        IF NOT *EOR* TRANSFER
00063  M01S00060.compddt +++|          LDN    4           SET *EOR* READ FLAG
00064  M01S00061.compddt +++|          RAM    DDTB
00065  M01S00062.compddt +++|          UJN    DDT3        SET UP CALL
00066  M01S00063.compddt +++|
00067  M01S00064.compddt +++| DDT2     LDM    DDTA        SET SECTOR COUNT
00068  M01S00065.compddt +++|          STD    CM+2
00069  M01S00066.compddt +++| DDT3     LDC    **          SET SUBFUNCTION
00070  M01S00067.compddt +++| DDTB     EQU    *-1
00071  M01S00068.compddt +++|          STD    CM+1
00072  M01S00069.compddt +++|          SHN    -6
00073  M01S00070.compddt +++|          LMN    WDDS
00074  M01S00071.compddt +++|          NJN    DDT3.1      IF NOT DIRECT WRITE
00075  M01S00072.compddt +++|          LDM    UERR        SET REWRITE AND BUFFER FLUSH FLAGS
00076  M01S00073.compddt +++|          SHN    0-6
00077  M01S00074.compddt +++|          LPN    3
00078  M01S00075.compddt +++|          LMN    2
00079  M01S00076.compddt +++|          RAD    CM+1
00080  M01S00077.compddt +++|          ERRNZ     EPRW-100           CODE ASSUMES VALUE
00081  M01S00078.compddt +++|          ERRNZ     EPNF-200           CODE ASSUMES VALUE
00082  M01S00079.compddt +++| DDT3.1   MONITOR  PIOM      INITIATE TRANSFER
00083  M01S00080.compddt +++|          LDD    MA
00084  M01S00081.compddt +++|          CRD    T4
00085  M01S00082.compddt +++|          LDD    CM
00086  M01S00083.compddt +++|          STM    CHRV
00087  M01S00084.compddt +++|          LDD    CM+1        CHECK STATUS
00088  M01S00085.compddt +++|          SHN    21-13
00089  M01S00086.compddt +++|          PJN    DDT5        IF FUNCTION NOT TO BE REISSUED
00090  M01S00087.compddt +++| DDT4     PAUSE  NE
00091  M01S00088.compddt +++|          LDD    MA
00092  M01S00089.compddt +++|          ADN    1
00093  M01S00090.compddt +++|          CRD    CM
00094  M01S00091.compddt +++|          LDD    CM+1
00095  M01S00092.compddt +++|          SHN    21-12
00096  M01S00093.compddt +++|          MJN    DDT3        IF TIME TO REISSUE
00097  M01S00094.compddt +++| DDT4.1   UJN    DDT4        WAIT FOR I/O COMPLETION
00098  M01S00095.compddt +++|
00099  M01S00096.compddt +++| DDT5     ZJN    DDT6        IF NO ERROR
00100  M01S00097.compddt +++|          LPC    40000
00101  M01S00098.compddt +++|          ERRNZ  IFLS-400    CODE IS VALUE DEPENDENT
00102  M01S00099.compddt +++|          SHN    20-16
00103  M01S00100.compddt +++|          NJN    DDT6        IF INSUFFICIENT FL
00104  M01S00101.compddt +++|          LDM    DDTB        SET READ/WRITE FLAG
00105  M01S00102.compddt +++|          SHN    -6+1
00106  M01S00103.compddt +++|          SBN    RDDS*2
00107  M01S00104.compddt +++|          STD    T0
00108  M01S00105.compddt +++|          ZJN    DDT7        IF READ FUNCTION
00109  M01S00106.compddt +++|          LDD    CM+1
00110  M01S00107.compddt +++|          LMK    NRDE
00111  M01S00108.compddt +++|          NJN    DDT7        IF NOT *NOT READY*
00112  M01S00109.compddt +++|          LDM    UERR
00113  M01S00110.compddt +++|          LPN    EPNR
00114  M01S00111.compddt +++|          NJN    DDT7        IF RETURN ON NOT READY SELECTED
00115  M01S00112.compddt +++|          LDC    6000        RETRY OPERATION
00116  M01S00113.compddt +++|          RAD    CM+1
00117  M01S00114.compddt +++|          LDD    MA
00118  M01S00115.compddt +++|          ADN    1
00119  M01S00116.compddt +++|          CWD    CM
00120  M01S00117.compddt +++|          UJN    DDT4.1      PAUSE AND REISSUE OPERATION
00121  M01S00118.compddt +++|
00122  M01S00119.compddt +++| DDT6     LJM    DDTX        RETURN
00123  M01S00120.compddt +++|
00124  M01S00121.compddt +++| DDT7     LDM    DDTD,CM+1   DETERMINE RECOVERABILITY OF ERROR
00125  M01S00122.compddt +++|          SBN    1
00126  M01S00123.compddt +++|          ZJN    DDT8        IF RECOVERABLE ERROR
00127  M01S00124.compddt +++|          SHN    0-21
00128  M01S00125.compddt +++|          NJN    DDT8        IF NON-RECOVERABLE ERROR
00129  M01S00126.compddt +++|          LDD    T0
00130  M01S00127.compddt +++|          SHN    -1
00131  M01S00128.compddt +++| DDT8     LMD    T0          BUILD REPLY STATUS
00132  M01S00129.compddt +++|          SHN    13-1
00133  M01S00130.compddt +++|          LMC    1S17D+1S8D
00134  M01S00131.compddt +++|          LMD    CM+1
00135  M01S00132.compddt +++|          STM    RDCT
00136  M01S00133.compddt +++|          UJN    DDT6        RETURN
00137  M01S00134.compddt +++|
00138  M01S00135.compddt +++|
00139  M01S00136.compddt +++| DDTC     BSS    5
00140  M01S00137.compddt +++|
00141  M01S00138.compddt +++|
00142  M01S00139.compddt +++|*         THE FOLLOWING TABLE IS USED TO DETERMINE MASS STORAGE ERROR
00143  M01S00140.compddt +++|*         RECOVERABILITY.  IT IS INDEXED BY THE ERROR CODE.  ENTRY
00144  M01S00141.compddt +++|*         FORMAT -
00145  M01S00142.compddt +++|*                VFD    10/0
00146  M01S00143.compddt +++|*                VFD    2/RECOVERABILITY INDICATOR
00147  M01S00144.compddt +++|*                            0    NON-RECOVERABLE.
00148  M01S00145.compddt +++|*                            1    RECOVERABLE.
00149  M01S00146.compddt +++|*                            2    RECOVERABLE IF READ REQUEST.
00150  M01S00147.compddt +++|
00151  M01S00148.compddt +++|
00152  M01S00149.compddt +++|          LIST   G
00153  M01S00150.compddt +++| DDTD     EQU    *-1
00154  M01S00151.compddt +++|          ECHO   1,EC=("DREC")
00155  M01S00152.compddt +++|          VFD    10/0,2/REC._EC
00156  M01S00153.compddt +++|          LIST   *
00157  M01S00154.compddt +++|
00158  M01S00155.compddt +++|
00159  M01S00156.compddt +++| QUAL$    IF     -DEF,QUAL$
00160  M01S00157.compddt +++|          QUAL   *
00161  M01S00158.compddt +++| DDT      EQU    /COMPDDT/DDT
00162  M01S00159.compddt +++| QUAL$    ENDIF
00163  M01S00160.compddt +++|          ENDX
cdc/nos2.source/opl.opl871/common/compddt.txt ยท Last modified: by 127.0.0.1