! 
! ****************************************************************************
! *                                                                          *
! *  Copyright (c) 1996                                                      *
! *  by DIGITAL Equipment Corporation, Maynard, Mass.                        *
! *                                                                          *
! *  This software is furnished under a license and may be used and  copied  *
! *  only  in  accordance  with  the  terms  of  such  license and with the  *
! *  inclusion of the above copyright notice.  This software or  any  other  *
! *  copies  thereof may not be provided or otherwise made available to any  *
! *  other person.  No title to and ownership of  the  software  is  hereby  *
! *  transferred.                                                            *
! *                                                                          *
! *  The information in this software is subject to change  without  notice  *
! *  and  should  not  be  construed  as  a commitment by DIGITAL Equipment  *
! *  Corporation.                                                            *
! *                                                                          *
! *  DIGITAL assumes no responsibility for the use or  reliability  of  its  *
! *  software on equipment which is not supplied by DIGITAL.                 *
! *                                                                          *
! ****************************************************************************
! ********************************************************************************************************************************
!  Created: 25-NOV-1996 18:14:25 by OpenVMS SDL EV1-52     
!  Source:  17-FEB-1995 23:48:07 $64$DUA2130:[IOGEN.SRC]INQUIRYDEF.SDL;1 
! ********************************************************************************************************************************
 
!*** MODULE $INQUIRYDEF ***
literal INQUIRY$M_DEV_TYPE = %X'1F';
literal INQUIRY$M_QUALIFIER = %X'E0';
literal SCSI$K_DISK = 0;
literal SCSI$K_TAPE = 1;
literal SCSI$K_PRINTER = 2;
literal SCSI$K_CPU = 3;
literal SCSI$K_WORM = 4;
literal SCSI$K_CDROM = 5;
literal SCSI$K_SCANNER = 6;
literal SCSI$K_OPTICAL = 7;
literal SCSI$K_CHANGER = 8;
literal SCSI$K_COMM = 9;
literal INQUIRY$M_REMOVABLE = %X'80';
literal INQUIRY$M_ANSI_VERSION = %X'7';
literal INQUIRY$M_RD_FORMAT = %X'F';
literal INQUIRY$K_LENGTH = 36;
literal INQUIRY$S_INQUIRY = 36;
macro INQUIRY$L_HW_ID = 0,0,32,0 %;
macro INQUIRY$B_DEV_TYPE = 0,0,8,0 %;   !  device type
macro INQUIRY$V_DEV_TYPE = 0,0,5,0 %;
literal INQUIRY$S_DEV_TYPE = 5;
macro INQUIRY$V_QUALIFIER = 0,5,3,0 %;
literal INQUIRY$S_QUALIFIER = 3;
macro INQUIRY$B_MEDIA = 1,0,8,0 %;      !  media type
macro INQUIRY$V_REMOVABLE = 1,7,1,0 %;  !  media is removable
macro INQUIRY$B_VERSION = 2,0,8,0 %;    !  ANSI version
macro INQUIRY$V_ANSI_VERSION = 2,0,3,0 %;
literal INQUIRY$S_ANSI_VERSION = 3;
macro INQUIRY$B_FORMAT = 3,0,8,0 %;     !  data format
macro INQUIRY$V_RD_FORMAT = 3,0,4,0 %;
literal INQUIRY$S_RD_FORMAT = 4;        !  response data format
macro INQUIRY$B_ADD_LENGTH = 4,0,8,0 %; !  additional length
macro INQUIRY$B_CAPABILITIES = 7,0,8,0 %; !  things this device can do
macro INQUIRY$T_VENDOR_ID = 8,0,64,0 %;
literal INQUIRY$S_VENDOR_ID = 8;        !  DEC vendor id
macro INQUIRY$T_PRODUCT_ID = 16,0,0,0 %;
literal INQUIRY$S_PRODUCT_ID = 16;      !  DEC product id
macro INQUIRY$T_REV_LEVEL = 32,0,32,0 %;
literal INQUIRY$S_REV_LEVEL = 4;        !  OEM vendor id
 
!*** MODULE $SPTBDEF ***
literal SPTB$K_LENGTH = 76;
literal SPTB$S_SPTBDEF = 76;
macro SPTB$L_SIZE = 0,0,32,0 %;         !  actual size allocated
macro SPTB$L_LKID = 4,0,32,0 %;         !  thread's SCSIPOLL lock id
macro SPTB$L_CHANNEL = 8,0,32,0 %;      !  thread's channel to the SCSI port
macro SPTB$L_RETRIES = 12,0,32,1 %;     !  number of retries left on this port
macro SPTB$Q_IOSB = 16,0,64,1 %;
literal SPTB$S_IOSB = 8;                !  IOSB for polling operation
macro SPTB$W_STATUS = 16,0,16,0 %;      !  completion status
macro SPTB$W_RETLEN = 18,0,16,0 %;      !  bytes read from port
macro SPTB$L_SCSI_ID = 24,0,32,0 %;     !  current SCSI ID to poll in thread
macro SPTB$L_LUN = 28,0,32,0 %;         !  current LUN to poll in thread
macro SPTB$PS_BUSARRAY = 32,0,32,1 %;   !  address of CRB's busarray entry list
macro SPTB$T_INQUIRYBUF = 40,0,0,0 %;
literal SPTB$S_INQUIRYBUF = 36;         !  buffer for SCSI INQUIRY command