mirror of https://github.com/lianthony/NT4.0
You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
131 lines
3.5 KiB
131 lines
3.5 KiB
/*****************************************************************************
|
|
*
|
|
* COPYRIGHT 1993 - COLORADO MEMORY SYSTEMS, INC.
|
|
* ALL RIGHTS RESERVED.
|
|
*
|
|
******************************************************************************
|
|
*
|
|
* FILE: \SE\DRIVER\DEVICE\JUMBO\SRC\0X1100E.C
|
|
*
|
|
* FUNCTION: cqd_CmdSetSpeed
|
|
*
|
|
* PURPOSE: Set the operating speed of the tape drive and the corresponding
|
|
* transfer rate of the FDC.
|
|
*
|
|
* HISTORY:
|
|
* $Log: J:\se.vcs\driver\q117cd\src\0x1100e.c $
|
|
*
|
|
* Rev 1.5 11 Jan 1994 14:40:20 KEVINKES
|
|
* Removed magic numbers.
|
|
*
|
|
* Rev 1.4 21 Dec 1993 15:31:22 KEVINKES
|
|
* Changed the 10 sec waitcc to a 4ms sleep and commented the code.
|
|
*
|
|
* Rev 1.3 08 Dec 1993 19:09:04 CHETDOUG
|
|
* Use xfer_rate.tape instead of tape_speed for select speed
|
|
* command and the speed unavailable check.
|
|
*
|
|
* Rev 1.2 08 Nov 1993 14:02:02 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.1 25 Oct 1993 14:35:46 KEVINKES
|
|
* Changed kdi_wt2ticks to kdi_wt004ms.
|
|
*
|
|
* Rev 1.0 18 Oct 1993 17:17:46 KEVINKES
|
|
* Initial Revision.
|
|
*
|
|
*****************************************************************************/
|
|
#define FCT_ID 0x1100e
|
|
#include "include\public\adi_api.h"
|
|
#include "include\public\frb_api.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_CmdSetSpeed
|
|
(
|
|
/* INPUT PARAMETERS: */
|
|
|
|
CqdContextPtr cqd_context,
|
|
dUByte tape_speed
|
|
|
|
/* UPDATE PARAMETERS: */
|
|
|
|
/* OUTPUT PARAMETERS: */
|
|
|
|
)
|
|
/* COMMENTS: *****************************************************************
|
|
*
|
|
* DEFINITIONS: *************************************************************/
|
|
{
|
|
|
|
/* DATA: ********************************************************************/
|
|
|
|
dStatus status; /* dStatus or error condition.*/
|
|
dUByte drive_config;
|
|
dUByte new_speed;
|
|
|
|
/* CODE: ********************************************************************/
|
|
|
|
/* Initialize the rate context. */
|
|
cqd_InitializeRate(cqd_context, tape_speed);
|
|
|
|
if ((status = cqd_StopTape(cqd_context)) != DONT_PANIC) {
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
/* Send the select speed command. */
|
|
if ((status = cqd_SendByte(cqd_context, FW_CMD_SELECT_SPEED)) != DONT_PANIC) {
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
/* Wait for the command to be received */
|
|
kdi_Sleep(cqd_context->kdi_context, INTERVAL_CMD, dFALSE);
|
|
|
|
/* Setup and send the speed argument */
|
|
new_speed = (dUByte)(cqd_context->xfer_rate.tape + CMD_OFFSET);
|
|
|
|
if ((status = cqd_SendByte(cqd_context, new_speed)) != DONT_PANIC) {
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
/* Wait for the argument to be received */
|
|
kdi_Sleep(cqd_context->kdi_context, INTERVAL_CMD, dFALSE);
|
|
|
|
/* Configure the FDC to the new transfer rate */
|
|
cqd_ConfigureFDC(cqd_context);
|
|
|
|
/* Read the new drive config and validate that the speed */
|
|
/* is set to the desired transfer rate. */
|
|
if ((status = cqd_Report(cqd_context,
|
|
FW_CMD_REPORT_CONFG,
|
|
(dUWord *)&drive_config,
|
|
READ_BYTE,
|
|
dNULL_PTR))
|
|
!= DONT_PANIC) {
|
|
|
|
return status;
|
|
|
|
}
|
|
|
|
drive_config &= XFER_RATE_MASK;
|
|
drive_config >>= XFER_RATE_SHIFT;
|
|
if (drive_config != cqd_context->xfer_rate.tape) {
|
|
|
|
status = kdi_Error(ERR_SPEED_UNAVAILBLE, FCT_ID, ERR_SEQ_1);
|
|
|
|
}
|
|
|
|
return status;
|
|
}
|