User Tools

Site Tools


Action unknown: copypageplugin__copy
cdc:nos2.source:opl.opl871:common:compddt

Common COMPDDT

Library Member Format: MODIFY

Source

Seq #  *Modification Id* Act 
----------------------------+
00001  M00S00001.compddt +++|          CTEXT  COMPDDT - DIRECT DISK TRANSFER.
00002  M00S00002.compddt +++|          IF     -DEF,QUAL$,1
00003  M00S00003.compddt +++|          QUAL   COMPDDT
Line S00001 Modification History
M01 (Added by) 281l803
Seq #  *Modification Id* Act 
----------------------------+
00004  M01S00001.281l803 +++|*         COMMENT  COPYRIGHT CONTROL DATA SYSTEMS INC.  1992.
00005  M00S00004.compddt +++|          SPACE  4,10
00006  M00S00005.compddt +++|***       DDT - DIRECT DISK TRANSFER.
00007  M00S00006.compddt +++|*         S. L. BETH         79/12/21.
00008  M00S00007.compddt +++|          SPACE  4,10
00009  M00S00008.compddt +++|***       DDT - PROCESS THE DIRECT TRANSFER *PIOM* SUBFUNCTIONS.
00010  M00S00009.compddt +++|*
00011  M00S00010.compddt +++|*         ENTRY  (T5) = EST ORDINAL.
00012  M00S00011.compddt +++|*                (T6) = TRACK.
00013  M00S00012.compddt +++|*                (T7) = SECTOR.
00014  M00S00013.compddt +++|*                (CM+2 - CM+4) = 18/ LWA, 18/ FWA.
00015  M00S00014.compddt +++|*                     LWA = LAST WORD ADDRESS OF TRANSFER IF *EOR* READ.
00016  M00S00015.compddt +++|*                     FWA = FIRST WORD ADDRESS OF TRANSFER.
00017  M00S00016.compddt +++|*                (CM+3 - CM+4) = CM ADDRESS.
Line S00001 Modification History
M01 (Added by) 271l716
M02 (Removed by) 273l780
Seq #  *Modification Id* Act 
----------------------------+
00018  M02S00001.273l780 ---|*                FOR SF = 4 AND PCP ROLLOUT, THE UPPER 6 BITS OF *CM+3*
00019  M02S00002.273l780 ---|*                CONTAIN THE PCP NUMBER.
00020  M00S00017.compddt ---|*                (A) = 6/ SF, 12/ SC.
00021  M00S00018.compddt ---|*                      SF = *PIOM* SUBFUNCTION.
00022  M00S00019.compddt ---|*                      SC = SECTOR COUNT.
00023  M00S00020.compddt ---|*                      7777 = READ TO EOR.
00024  M00S00021.compddt ---|*                *6DE* LOADED (CHVR) + (UERR) SET BY *SETMS* MACRO.
00025  M00S00022.compddt ---|*
00026  M00S00023.compddt ---|*         EXIT   (A) = 0 IF TRANSFER SUCCESSFUL.
00027  M00S00024.compddt ---|*                    = 1/1, 1/L, 4/0, 12/(RDCT)  IF TRANSFER FAILED.
00028  M00S00025.compddt ---|*                      L = 0 IF THE FAILURE WAS DUE TO AN I/O ERROR,
00029  M00S00026.compddt ---|*                          AN ADDRESS ERROR OR AN INACCESSIBLE DEVICE.
00030  M00S00027.compddt ---|*                          THE ERROR CODE, AND OTHER ERROR PROCESSING
00031  M00S00028.compddt ---|*                          INFORMATION IS IN CELL *RDCT* AND IN THE
00032  M00S00029.compddt ---|*                          LOWER 12 BITS OF THE ACCUMULATOR.  SEE
00033  M00S00030.compddt ---|*                          *COMSMSP* FOR A DESCRIPTION OF THE FORMAT OF
00034  M00S00031.compddt ---|*                          *RDCT*.
00035  M00S00032.compddt ---|*                      L = 1 IF INSUFFICIENT FIELD LENGTH FOR TRANSFER.
00036  M00S00033.compddt ---|*                          *RDCT* INFORMATION IS NOT MEANINGFUL IF THIS
00037  M00S00034.compddt ---|*                          BIT IS SET.
00038  M00S00035.compddt ---|*                (T4) = SECTORS TRANSFERED.
00039  M00S00036.compddt ---|*                (T6, T7) UPDATED TO CURRENT POSITION.
00040  M00S00037.compddt ---|*
00041  M00S00038.compddt ---|*         USES   T0, CM - CM+4, T4 - T7.
00042  M00S00039.compddt ---|*
00043  M00S00040.compddt ---|*         MACROS MONITOR, PAUSE.
00044  M00S00041.compddt ---|
00045  M00S00042.compddt ---|
00046  M00S00043.compddt ---| DDT      SUBR               ENTRY/EXIT
00047  M00S00044.compddt ---|          STM    DDTA        SAVE SECTOR COUNT
00048  M00S00045.compddt ---|          SHN    -6          SAVE SUBFUNCTION
00049  M00S00046.compddt ---|          SCN    77
00050  M00S00047.compddt ---|          STM    DDTB
00051  M00S00048.compddt ---|          LDM    CHRV        SET CHANNEL CONTROL
00052  M00S00049.compddt ---|          STD    CM
00053  M00S00050.compddt ---| DDT1     LDD    OA          CHECK OUTPUT REGISTER CLEAR
00054  M00S00051.compddt ---|          CRM    DDTC,ON
00055  M00S00052.compddt ---|          LDM    DDTC
00056  M00S00053.compddt ---|          NJN    DDT1        IF OUTPUT REGISTER NOT CLEAR
00057  M00S00054.compddt ---|          LDD    MA
00058  M00S00055.compddt ---|          CWD    T4
00059  M00S00056.compddt ---|          LDC    **          CHECK FOR *EOR* TRANSFER
00060  M00S00057.compddt ---| DDTA     EQU    *-1
00061  M00S00058.compddt ---|          LMC    7777
00062  M00S00059.compddt ---|          NJN    DDT2        IF NOT *EOR* TRANSFER
00063  M00S00060.compddt ---|          LDN    4           SET *EOR* READ FLAG
00064  M00S00061.compddt ---|          RAM    DDTB
00065  M00S00062.compddt ---|          UJN    DDT3        SET UP CALL
00066  M00S00063.compddt ---|
00067  M00S00064.compddt ---| DDT2     LDM    DDTA        SET SECTOR COUNT
00068  M00S00065.compddt ---|          STD    CM+2
00069  M00S00066.compddt ---| DDT3     LDC    **          SET SUBFUNCTION
00070  M00S00067.compddt ---| DDTB     EQU    *-1
00071  M00S00068.compddt ---|          STD    CM+1
00072  M00S00069.compddt ---|          SHN    -6
00073  M00S00070.compddt ---|          LMN    WDDS
00074  M00S00071.compddt ---|          NJN    DDT3.1      IF NOT DIRECT WRITE
00075  M00S00072.compddt ---|          LDM    UERR        SET REWRITE AND BUFFER FLUSH FLAGS
00076  M00S00073.compddt ---|          SHN    0-6
00077  M00S00074.compddt ---|          LPN    3
00078  M00S00075.compddt ---|          LMN    2
00079  M00S00076.compddt ---|          RAD    CM+1
00080  M00S00077.compddt ---|          ERRNZ     EPRW-100           CODE ASSUMES VALUE
00081  M00S00078.compddt ---|          ERRNZ     EPNF-200           CODE ASSUMES VALUE
00082  M00S00079.compddt ---| DDT3.1   MONITOR  PIOM      INITIATE TRANSFER
00083  M00S00080.compddt ---|          LDD    MA
00084  M00S00081.compddt ---|          CRD    T4
00085  M00S00082.compddt ---|          LDD    CM
00086  M00S00083.compddt ---|          STM    CHRV
00087  M00S00084.compddt ---|          LDD    CM+1        CHECK STATUS
00088  M00S00085.compddt ---|          SHN    21-13
00089  M00S00086.compddt ---|          PJN    DDT5        IF FUNCTION NOT TO BE REISSUED
00090  M00S00087.compddt ---| DDT4     PAUSE  NE
00091  M00S00088.compddt ---|          LDD    MA
00092  M00S00089.compddt ---|          ADN    1
00093  M00S00090.compddt ---|          CRD    CM
00094  M00S00091.compddt ---|          LDD    CM+1
00095  M00S00092.compddt ---|          SHN    21-12
00096  M00S00093.compddt ---|          MJN    DDT3        IF TIME TO REISSUE
00097  M00S00094.compddt ---| DDT4.1   UJN    DDT4        WAIT FOR I/O COMPLETION
00098  M00S00095.compddt ---|
00099  M00S00096.compddt ---| DDT5     ZJN    DDT6        IF NO ERROR
00100  M00S00097.compddt ---|          LPC    40000
00101  M00S00098.compddt ---|          ERRNZ  IFLS-400    CODE IS VALUE DEPENDENT
00102  M00S00099.compddt ---|          SHN    20-16
00103  M00S00100.compddt ---|          NJN    DDT6        IF INSUFFICIENT FL
00104  M00S00101.compddt ---|          LDM    DDTB        SET READ/WRITE FLAG
00105  M00S00102.compddt ---|          SHN    -6+1
00106  M00S00103.compddt ---|          SBN    RDDS*2
00107  M00S00104.compddt ---|          STD    T0
00108  M00S00105.compddt ---|          ZJN    DDT7        IF READ FUNCTION
00109  M00S00106.compddt ---|          LDD    CM+1
00110  M00S00107.compddt ---|          LMK    NRDE
00111  M00S00108.compddt ---|          NJN    DDT7        IF NOT *NOT READY*
00112  M00S00109.compddt ---|          LDM    UERR
00113  M00S00110.compddt ---|          LPN    EPNR
00114  M00S00111.compddt ---|          NJN    DDT7        IF RETURN ON NOT READY SELECTED
00115  M00S00112.compddt ---|          LDC    6000        RETRY OPERATION
00116  M00S00113.compddt ---|          RAD    CM+1
00117  M00S00114.compddt ---|          LDD    MA
00118  M00S00115.compddt ---|          ADN    1
00119  M00S00116.compddt ---|          CWD    CM
00120  M00S00117.compddt ---|          UJN    DDT4.1      PAUSE AND REISSUE OPERATION
00121  M00S00118.compddt ---|
00122  M00S00119.compddt ---| DDT6     LJM    DDTX        RETURN
00123  M00S00120.compddt ---|
00124  M00S00121.compddt ---| DDT7     LDM    DDTD,CM+1   DETERMINE RECOVERABILITY OF ERROR
00125  M00S00122.compddt ---|          SBN    1
00126  M00S00123.compddt ---|          ZJN    DDT8        IF RECOVERABLE ERROR
00127  M00S00124.compddt ---|          SHN    0-21
00128  M00S00125.compddt ---|          NJN    DDT8        IF NON-RECOVERABLE ERROR
00129  M00S00126.compddt ---|          LDD    T0
00130  M00S00127.compddt ---|          SHN    -1
00131  M00S00128.compddt ---| DDT8     LMD    T0          BUILD REPLY STATUS
00132  M00S00129.compddt ---|          SHN    13-1
00133  M00S00130.compddt ---|          LMC    1S17D+1S8D
00134  M00S00131.compddt ---|          LMD    CM+1
00135  M00S00132.compddt ---|          STM    RDCT
00136  M00S00133.compddt ---|          UJN    DDT6        RETURN
00137  M00S00134.compddt ---|
00138  M00S00135.compddt ---|
00139  M00S00136.compddt ---| DDTC     BSS    5
00140  M00S00137.compddt ---|
00141  M00S00138.compddt ---|
00142  M00S00139.compddt ---|*         THE FOLLOWING TABLE IS USED TO DETERMINE MASS STORAGE ERROR
00143  M00S00140.compddt ---|*         RECOVERABILITY.  IT IS INDEXED BY THE ERROR CODE.  ENTRY
00144  M00S00141.compddt ---|*         FORMAT -
00145  M00S00142.compddt ---|*                VFD    10/0
00146  M00S00143.compddt ---|*                VFD    2/RECOVERABILITY INDICATOR
00147  M00S00144.compddt ---|*                            0    NON-RECOVERABLE.
00148  M00S00145.compddt ---|*                            1    RECOVERABLE.
00149  M00S00146.compddt ---|*                            2    RECOVERABLE IF READ REQUEST.
00150  M00S00147.compddt ---|
00151  M00S00148.compddt ---|
00152  M00S00149.compddt ---|          LIST   G
00153  M00S00150.compddt ---| DDTD     EQU    *-1
00154  M00S00151.compddt ---|          ECHO   1,EC=("DREC")
00155  M00S00152.compddt ---|          VFD    10/0,2/REC._EC
00156  M00S00153.compddt ---|          LIST   *
00157  M00S00154.compddt ---|
00158  M00S00155.compddt ---|
00159  M00S00156.compddt ---| QUAL$    IF     -DEF,QUAL$
00160  M00S00157.compddt ---|          QUAL   *
00161  M00S00158.compddt ---| DDT      EQU    /COMPDDT/DDT
00162  M00S00159.compddt ---| QUAL$    ENDIF
00163  M00S00160.compddt ---|          ENDX
cdc/nos2.source/opl.opl871/common/compddt.txt ยท Last modified: (external edit)