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