340 lines
9.8 KiB
C
340 lines
9.8 KiB
C
/*****************************************************************************
|
||
*
|
||
* COPYRIGHT 1993 - COLORADO MEMORY SYSTEMS, INC.
|
||
* ALL RIGHTS RESERVED.
|
||
*
|
||
******************************************************************************
|
||
*
|
||
* FILE: \SE\DRIVER\Q117CD\SRC\0X1101A.C
|
||
*
|
||
* FUNCTION: cqd_ReportCMSVendorInfo
|
||
*
|
||
* PURPOSE: Determine the drive type of a CMS drive.
|
||
*
|
||
* HISTORY:
|
||
* $Log: J:\se.vcs\driver\q117cd\src\0x1101a.c $
|
||
*
|
||
* Rev 1.13 15 May 1995 10:46:50 GaryKiwi
|
||
* Phoenix merge from CBW95s
|
||
*
|
||
* Rev 1.12.1.0 11 Apr 1995 18:03:28 garykiwi
|
||
* PHOENIX pass #1
|
||
*
|
||
* Rev 1.16 03 Mar 1995 10:04:50 BOBLEHMA
|
||
* Change the firmware number if a Phoenix drive (QIC80W) by forcing the
|
||
* prototype bit on. This will keep the firmware versions increasing
|
||
* instead of having versions less than 63 messing up the code.
|
||
*
|
||
* Rev 1.15 08 Feb 1995 09:40:48 BOBLEHMA
|
||
* Set the model field to qic 40 or qic 80 explicitly for the old
|
||
* firmware drives. (they dont support the vendor_id).
|
||
*
|
||
* Rev 1.14 30 Jan 1995 14:24:50 BOBLEHMA
|
||
* Changed device_descriptor.version to cqd_context->firmware_version.
|
||
* Removed debug code referencing manufacture_date.
|
||
*
|
||
* Rev 1.13 26 Jan 1995 14:59:56 BOBLEHMA
|
||
* Added support for the Phoenix drive QIC_80W.
|
||
*
|
||
* Rev 1.12 23 Nov 1994 10:11:06 MARKMILL
|
||
* When setting the drive_class element in the device_descriptor structure,
|
||
* if the drive is a QIC-3020 on a 500 Kbps FDC, the drive class is casted to
|
||
* QIC-3010. Also, a new device_descriptor data element native_class is set to
|
||
* indicate the native mode of the drive. This new info is used in
|
||
* cqd_CmdLoadTape to decide whether to attempt to set the transfer rate of the
|
||
* tape drive.
|
||
*
|
||
* Rev 1.11 17 Feb 1994 11:37:58 KEVINKES
|
||
* Added an extra parameter to WaitCC.
|
||
*
|
||
* Rev 1.10 21 Jan 1994 18:22:38 KEVINKES
|
||
* Fixed compiler warnings.
|
||
*
|
||
* Rev 1.9 18 Jan 1994 16:21:04 KEVINKES
|
||
* Updated debug code.
|
||
*
|
||
* Rev 1.8 12 Jan 1994 16:00:28 KEVINKES
|
||
* Removed calls to report drive training info.
|
||
*
|
||
* Rev 1.7 12 Jan 1994 15:33:52 KEVINKES
|
||
* Added a toggle for CMS mode to disable it in Jumbo C drives.
|
||
*
|
||
* Rev 1.6 16 Dec 1993 13:21:52 KEVINKES
|
||
* Modified so that cms mode is never enabled and is always disabled
|
||
* if detected.
|
||
*
|
||
* Rev 1.5 13 Dec 1993 16:30:38 KEVINKES
|
||
* Cleaned up and commented the code. Also removed code to
|
||
* enable pegasus support
|
||
*
|
||
* Rev 1.4 23 Nov 1993 18:50:08 KEVINKES
|
||
* Modified CHECKED_DUMP calls for debugging over the serial port.
|
||
*
|
||
* Rev 1.3 08 Nov 1993 14:02:50 KEVINKES
|
||
* Removed all bit-field structures, removed all enumerated types, changed
|
||
* all defines to uppercase, and removed all signed data types wherever
|
||
* possible.
|
||
*
|
||
* Rev 1.2 25 Oct 1993 14:26:12 KEVINKES
|
||
* Changed ERR_UNSUPPORTED_RATE to ERR_FW_SPEED_UNAVALIABLE.
|
||
*
|
||
* Rev 1.1 22 Oct 1993 11:11:50 KEVINKES
|
||
* Changed ERR_UNSUPPORTED_RATE to ERR_FW_SPEED_NOT_AVAILABLE.
|
||
*
|
||
* Rev 1.0 18 Oct 1993 17:18:02 KEVINKES
|
||
* Initial Revision.
|
||
*
|
||
*****************************************************************************/
|
||
#define FCT_ID 0x1101a
|
||
#include "include\public\adi_api.h"
|
||
#include "include\public\frb_api.h"
|
||
#include "include\public\vendor.h"
|
||
#include "include\private\kdi_pub.h"
|
||
#include "include\private\cqd_pub.h"
|
||
#include "q117cd\include\cqd_defs.h"
|
||
#include "q117cd\include\cqd_strc.h"
|
||
#include "q117cd\include\cqd_hdr.h"
|
||
/*endinclude*/
|
||
|
||
dStatus cqd_ReportCMSVendorInfo
|
||
(
|
||
/* INPUT PARAMETERS: */
|
||
|
||
CqdContextPtr cqd_context,
|
||
dUWord vendor_id
|
||
|
||
/* UPDATE PARAMETERS: */
|
||
|
||
/* OUTPUT PARAMETERS: */
|
||
|
||
)
|
||
/* COMMENTS: *****************************************************************
|
||
*
|
||
* DEFINITIONS: *************************************************************/
|
||
{
|
||
|
||
/* DATA: ********************************************************************/
|
||
|
||
dStatus status=DONT_PANIC; /* Status or error condition.*/
|
||
dUByte cms_status;
|
||
|
||
/* CODE: ********************************************************************/
|
||
|
||
/*
|
||
* The QIC-117 spec says that a drives firmware number can range from
|
||
* 0 to 127. The 8th bit is used for prototype drives. The T1000
|
||
* drive was using firmware number 128, but was changed to 1 to stay
|
||
* in spec.
|
||
*
|
||
* The driver has much code depending on firmware versions being greater
|
||
* than X to signify features of the drive. To avoid totally screwing
|
||
* up the entire driver, we will determine if the drive is a T1000 (or
|
||
* any other new drive) and adjust the firmware version by setting the
|
||
* prototype bit (giving fw 128, ...).
|
||
*/
|
||
if ((vendor_id & VENDOR_MASK) == CMS_VEND_NO_NEW &&
|
||
(vendor_id & ~VENDOR_MASK) == CMS_QIC80W) {
|
||
|
||
cqd_context->firmware_version |= PROTOTYPE_BIT;
|
||
|
||
}
|
||
|
||
cqd_context->cms_mode = dFALSE;
|
||
cqd_context->pegasus_supported = dFALSE;
|
||
|
||
if (cqd_context->firmware_version >= FIRM_VERSION_60) {
|
||
|
||
/* If the drive is greater than or equal to FW 60
|
||
* the skip_n_segs cmd is supported */
|
||
cqd_context->drive_parms.seek_mode = SEEK_SKIP;
|
||
|
||
if (cqd_context->firmware_version >= FIRM_VERSION_87) {
|
||
|
||
/* If the drive is greater than or equal to FW 87
|
||
* the extended skip_n_segs cmd is supported */
|
||
cqd_context->drive_parms.seek_mode = SEEK_SKIP_EXTENDED;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
if (cqd_context->firmware_version < FIRM_VERSION_110) {
|
||
|
||
/* Try to put the drive in a 250Kbps transfer mode. If it succeeds
|
||
* the drive is QIC40 else it's a QIC_80.
|
||
*/
|
||
if ((status = cqd_SendByte(cqd_context, FW_CMD_SELECT_SPEED)) == DONT_PANIC) {
|
||
|
||
kdi_Sleep(cqd_context->kdi_context, INTERVAL_CMD, dFALSE);
|
||
|
||
if ((status = cqd_SendByte(cqd_context, TAPE_250Kbps + CMD_OFFSET)) ==
|
||
DONT_PANIC) {
|
||
|
||
status = cqd_WaitCommandComplete(cqd_context, INTERVAL_SPEED_CHANGE, dFALSE);
|
||
|
||
if (status == DONT_PANIC) {
|
||
|
||
cqd_context->device_descriptor.native_class = QIC40_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC40_DRIVE;
|
||
cqd_context->device_descriptor.model = MODEL_CMS_QIC40;
|
||
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC40_DRIVE\n", 0l);
|
||
|
||
} else if (kdi_GetErrorType(status) == ERR_FW_SPEED_NOT_AVAILABLE) {
|
||
|
||
cqd_context->device_descriptor.native_class = QIC80_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC80_DRIVE;
|
||
cqd_context->device_descriptor.model = MODEL_CMS_QIC80;
|
||
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC80_DRIVE\n", 0l);
|
||
status = DONT_PANIC;
|
||
|
||
}
|
||
}
|
||
}
|
||
|
||
} else {
|
||
|
||
switch (vendor_id & ~VENDOR_MASK) {
|
||
|
||
case CMS_QIC40:
|
||
|
||
cqd_context->device_descriptor.native_class = QIC40_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC40_DRIVE;
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC40_DRIVE\n", 0l);
|
||
|
||
break;
|
||
|
||
case CMS_QIC80:
|
||
case CMS_QIC80_STINGRAY:
|
||
|
||
cqd_context->device_descriptor.native_class = QIC80_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC80_DRIVE;
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC80_DRIVE\n", 0l);
|
||
|
||
break;
|
||
|
||
case CMS_QIC80W:
|
||
|
||
cqd_context->device_descriptor.native_class = QIC80W_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC80W_DRIVE;
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC80W_DRIVE\n", 0l);
|
||
|
||
break;
|
||
|
||
case CMS_QIC3010:
|
||
|
||
cqd_context->device_descriptor.native_class = QIC3010_DRIVE;
|
||
cqd_context->device_descriptor.drive_class = QIC3010_DRIVE;
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC3010_DRIVE\n", 0l);
|
||
|
||
break;
|
||
|
||
case CMS_QIC3020:
|
||
case CMS_TR3:
|
||
|
||
cqd_context->device_descriptor.native_class = QIC3020_DRIVE;
|
||
|
||
//
|
||
// Cast drive to 3010 if it's connected to a 500 Kbps FDC
|
||
//
|
||
|
||
if( cqd_context->xfer_rate.fdc == FDC_500Kbps ) {
|
||
cqd_context->device_descriptor.drive_class = QIC3010_DRIVE;
|
||
} else {
|
||
cqd_context->device_descriptor.drive_class = QIC3020_DRIVE;
|
||
}
|
||
|
||
kdi_CheckedDump(
|
||
QIC117INFO,
|
||
"Q117i: Drive Type QIC3020_DRIVE\n", 0l);
|
||
|
||
break;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
|
||
if (cqd_context->firmware_version >= FIRM_VERSION_60) {
|
||
|
||
/*
|
||
* The drive occasionally comes up in CMS
|
||
* mode and we must make sure it's disabled.
|
||
*/
|
||
|
||
|
||
/* For versions of 110 and greater, the drive type may be QIC3020. */
|
||
/* Let's just issue the Rpt_cmsdStatus command. */
|
||
|
||
if ((status = cqd_SetDeviceMode(cqd_context,
|
||
DIAGNOSTIC_1_MODE)) != DONT_PANIC) {
|
||
|
||
return status;
|
||
|
||
}
|
||
|
||
if ((status = cqd_Report(
|
||
cqd_context,
|
||
FW_CMD_RPT_CMS_STATUS,
|
||
(dUWord *)&cms_status,
|
||
READ_BYTE,
|
||
dNULL_PTR)) != DONT_PANIC) {
|
||
|
||
return status;
|
||
|
||
}
|
||
|
||
if (((cms_status & CMS_STATUS_CMS_MODE) != 0) &&
|
||
(cqd_context->firmware_version < FIRM_VERSION_110)) {
|
||
|
||
if ((status = cqd_SendByte(
|
||
cqd_context,
|
||
FW_CMD_CMS_MODE_OLD)) != DONT_PANIC) {
|
||
|
||
return status;
|
||
|
||
}
|
||
|
||
|
||
}
|
||
|
||
/* Put drive back into its original mode. */
|
||
|
||
if ((status = cqd_SetDeviceMode(cqd_context,
|
||
PRIMARY_MODE)) != DONT_PANIC) {
|
||
|
||
return status;
|
||
|
||
}
|
||
|
||
if (((cms_status & CMS_STATUS_CMS_MODE) != 0) &&
|
||
(cqd_context->firmware_version >= FIRM_VERSION_110)) {
|
||
|
||
if ((status = cqd_ToggleParams(
|
||
cqd_context,
|
||
CMS_MODE)) != DONT_PANIC) {
|
||
|
||
return status;
|
||
|
||
}
|
||
|
||
}
|
||
|
||
}
|
||
|
||
return status;
|
||
}
|