*COMDECK  COMS885 
 885      CTEXT  COMS885 - 885 DISK DEFINTIONS. 
          SPACE  4,10 
          IF     -DEF,QUAL$,1 
          QUAL   885
          BASE   D
*         COMMENT COPYRIGHT CONTROL DATA CORPORATION. 1978. 
          TITLE  COMS885 - 885 DISK DEFINITIONS.
 885      SPACE  4,10 
***       COMS885 - 885 DISK DEFINITIONS. 
* 
*         R. A. TURGEON            5-22-78
          SPACE  4,10 
***       COMS885 - 885 DISK DEFINITIONS. 
* 
*         COMS885 DEFINES THE CONTROLLER FUNCTIONS AND ASSOCIATED 
*         PARAMETER BLOCKS FOR 885 USAGE.  COMS885 ALSO DEFINES THE 
*         AREA USED IN THE GENERAL AND DETAIL STATUS BLOCKS RETURNED BY 
*         THE CONTROLLER. 
          SPACE  4,10 
**        885 CONTROLLER FUNCTIONS. 
  
  
 DCON     EQU    0000B             CONNECT COMMAND
 D1SK     EQU    0001B             SEEK 1 TO 1 INTERLACE
 D2SK     EQU    0002B             SEEK 2 TO 1 INTERLACE
 DRED     EQU    0004B             READ COMMAND 
 DWRT     EQU    0005B             WRITE COMMAND
 DWRV     EQU    0006B             WRITE VERIFY COMMAND 
 DRDC     EQU    0007B             READ CHECKWORD 
 DOPC     EQU    0010B             OPERATION COMPLETE 
 DDRS     EQU    0011B             DISABLE OPPOSITE RESERVE 
 DGST     EQU    0012B             GENERAL STATUS 
 DDSS     EQU    0013B             DETAILED STATUS (SHORT BLOCK = 12D)
 DCNT     EQU    0014B             CONTINUE COMMAND 
 DDSK     EQU    0015B             DROP SEEKS 
 DDVR     EQU    0020B             DRIVE RELEASE
 DRCA     EQU    0021B             RETURN CYLINDER ADDRESS
 DSCF     EQU    0022B             SET/CLEAR FLAW 
 DDST     EQU    0023B             DETAILED STATUS (LONG BLOCK = 20D) 
 DRDG     EQU    0024B             READ GAP SECTOR
 DWRG     EQU    0025B             WRITE GAP SECTOR 
 DWVG     EQU    0026B             WRITE VERIFY GAP SECTOR
 DRCG     EQU    0027B             READ CHECKWORD GAP SECTOR
 DRFD     EQU    0030B             READ FACTORY DATA
 DRUM     EQU    0031B             READ UTILITY FLAW MAP
 DRDS     EQU    0040B             READ SHORT 
 DSSO     EQU    0041B             SELECT STROBE AND OFFSET 
 DRFS     EQU    0034B             READ FLAWED SECTOR 
 DWLS     EQU    0035B             WRITE LAST SECTOR (1 TO 1 ONLY)
 DWVL     EQU    0036B             WRITE VERIFY LAST SECTOR (1 TO 1)
 DWFS     EQU    0037B             WRITE FLAWED SECTOR
 DDDS     EQU    0300B             DISK DEADSTART (03XX, XX= UNIT NO.)
 DCCC     EQU    0042B             CLEAR COUPLER CONNECTS 
 SPA      SPACE  4,10 
**        885 DISK SEEK PARAMETER ARRAY.
* 
**T  WORD0       12/ DRIVE NO.
**T, WORD1       12/ CYLINDER NO. 
**T, WORD2       12/ TRACK NO.
**T, WORD3       12/ SECTOR NO. 
  
  
 SPDN     EQU    0                 DRIVE NUMBER 
 SPCY     EQU    1                 CYLINDER NUMBER
 SPTK     EQU    2                 TRACK NUMBER 
 SPST     EQU    3                 SECTOR NUMBER
 GST      SPACE  4,10 
**        GENERAL STATUS REPLY WORD.
* 
**T  WORD0       12/ GENERAL STATUS.
* 
*         IF DEFINED BIT IS SET, CONDITION HAS BEEN DETECTED. 
  
  
 GSAT     DFN    11,1              ABNORMAL TERMINATION, SEE BITS 8 OR 9
 GSCR     DFN    10,1              COUPLER RESERVED 
 GSNR     DFN    9,1               NON-RECOVERABLE ERROR
 GSRP     DFN    8,1               RECOVERY IN PROGRESS 
 GSCE     DFN    7,1               CHECKWORD ERROR, SEE BIT 6 
 GSCA     DFN    6,1               CORRECTABLE ADDRESS ERROR
 GSDM     DFN    4,1               DISK DRIVE MALFUNCTION 
 GSDR     DFN    3,1               DISK DRIVE RESERVED
 GSAE     DFN    2,1               AUTOLOAD ERROR 
 GSBS     DFN    1,1               DRIVE BUSY 
 DST      SPACE  4,10 
**        DETAILED STATUS REPLY BLOCK.
* 
**T  WORD0       8/ STROBE/OFFSET RETRY COUNT, 4/ ADDRESS ERROR STATUS. 
**T, WORD1       4/ CHECKWORD ERROR STATUS, 4/-, 4/ COMMAND CODE
**T, WORD2       8/ COMMAND CODE, 2/-, 1/ ET, 1/- 
*                ET = ERROR THRESHOLD EXCEEDED. 
**T, WORD3       2/-, 4/ CONTROLWARE REV., 6/ UNIT NUMBER 
**T, WORD4-6     32/ FAILING DISK ADDRESS, 4/ DSU STATUS
**T, WORD6-11    DSU STATUS 
**T, WORD12      1/ WRITE ERROR, 2/-, 9/ PP WORD ADDR OF CORR READ ERR
**T, WORD13      12/ CORRECTION VECTOR WORD 1.
**T, WORD14      12/ CORRECTION VECTOR WORD 2.
**T, WORD15-16   CONTROLLER STATUS
**T, WORD17      1/ D, 1/ C, ,/ B, 1/ A, 8/ LAST FUNCTION.
*                D = ACCESS D OF COUPLER IS CONNECTED.
*                C = ACCESS C OF COUPLER IS CONNECTED.
*                B = ACCESS B OF COUPLER IS CONNECTED.
*                A = ACCESS A OF COUPLER IS CONNECTED.
**T, WORD18      8/ 2ND TO LAST FUNC, 4/ 3RD TO LAST FUNC 
**T, WORD19      4/ 3RD TO LAST FUNC, 8/ 4TH TO LAST FUNC 
* 
* 
  
  
DSWRC     EQU    0                 RETRY COUNT WORD 
 DSRC     DFN    4,8               STROBE/OFFSET RETRY COUNT
DSWAE     EQU    0                 ADDRESS ERROR WORD 
 DSAE     DFN    0,1               DISK ADDRESS ERROR 
 AECN     DFN    2,1               CYLINDER NUMBER MISMATCH 
 AETN     DFN    1,1               TRACK NUMBER MISMATCH
 AESN     DFN    0,1               SECTOR NUMBER MISMATCH 
DSWCE     EQU    1                 CHECKWORD ERROR STATUS/SECTOR COUNT
 DSAK     DFN    11,1              ADDRESS CHECKWORD ERROR
 DSNA     DFN    10,1              NON-CORRECTABLE ADDRESS CHECKWORD
 DSDC     DFN    9,1               DATA CHECKWORD ERROR 
 DSND     DFN    8,1               NON-CORRECTABLE DATA CHECKWORD 
DSWCC     EQU    2                 COMMAND CODE 
 DSCC     DFN    4,8               LOWER EIGHT BITS OF COMMAND ISSUED 
DSWTE     EQU    2                 ERROR THRESHOLD EXCEEDED 
 DSTE     DFN    1,1               ERROR THRESHOLD EXCEEDED 
DSWRV     EQU    3                 CONTROLWARE REVISION LEVEL 
 DSRV     DFN    6,4               CONTROLWARE REVISION NO. 
DSWDN     EQU    3                 DISK DRIVE NO. 
 DSDN     DFN    0,6               DISK DRIVE ASSOCIATED WITH STATUS
DSWFA     EQU    4                 DISK ADDRESS OF FAILING SECTOR 
 DSTF     DFN    11,1              TRACK FLAW BIT 
 DSFM     DFN    10,1              FACTORY DATA OR FLAW MAP BIT 
 DSCU     DFN    0,6               UPPER PORTION OF FAILING CYLINDER AD 
DSWF2     EQU    DSWFA+1           SECOND WORD OF FAILING DISK ADDRESS
 DSCL     DFN    8,4               LOWER PORTION OF FAILING CYLINDER AD 
 DSTK     DFN    0,8               FAILING TRACK ADDRESS
DSWF3     EQU    DSWFA+2           THIRD WORD OF FAILING DISK ADDRESS 
 DSST     DFN    4,8               FAILING SECTOR ADDRESS 
DSWWE     EQU    12                WRITE ERROR
 DSWE     DFN    11,1              1 TO 1 WRITE ERROR 
DSWWB     EQU    12                WORD BIAS OF CORRECTABLE READ ERROR
 DSWB     DFN    0,9               WORD BIAS OF CORRECTABLE READ ERROR
DSWC1     EQU    13                CORRECTION VECTOR WORD 1 
 DSC1     DFN    0,12              CORRECTION VECTOR WORD 1 
DSWC2     EQU    14                CORRECTION VECTOR WORD 2 
 DSC2     DFN    0,12              CORRECTION VECTOR WORD 2 
DSWAR     EQU    17                COUPLER ACCESS CONNECTED 
 DSAD     DFN    11,1              ACCESS D CONNECTED 
 DSAC     DFN    10,1              ACCESS C CONNECTED 
 DSAB     DFN    9,1               ACCESS B CONNECTED 
 DSAA     DFN    8,1               ACCESS A CONNECTED 
DSLF      EQU    17                LAST FUNCTION
 DSLF     DFN    0,8               LAST FUNCTION
DSWHT     EQU    18                FUNCTION HISTORY TABLE 
DSWH1     EQU    19                FUNCTION HISTORY TABLE 
  
 SLNS     EQU    12                DETAIL STATUS LENGTH (SHORT) 
 SLNL     EQU    20                DETAIL STATUS LENGTH (LONG)
 SDA      SPACE  4,10 
**        SPECIAL DISK ADDRESSES
* 
* 
  
  
 IMCS     EQU    842               INNERMOST CYLINDER FOR 885 
 MTKS     EQU    40D               MAXIMUM NO. OF TRACKS
 MSRS     EQU    32D               MAXIMUM NO. OF SECTORS 
  
 CSDD     EQU    841               CYL. ADDR. FOR D/S SECTOR
 TSDD     EQU    1                 TRK. ADDR. FOR D/S SECTOR
 SSDD     EQU    30                SCR. ADDR. FOR D/S SECTOR
  
  
  
 DSSC     EQU    IMCS-2            CTI CYLINDER 
          SPACE 4,10
          BASE   *
          IF     -DEF,QUAL$,1 
          QUAL   *
          ENDX
