SCSI/ASPI

开发平台：
MultiPlatform

drv_philips.c：源码内容
							/* @(#)drv_philips.c	1.34 00/01/28 Copyright 1997 J. Schilling */
#ifndef lint
static	char sccsid[] =
	"@(#)drv_philips.c	1.34 00/01/28 Copyright 1997 J. Schilling";
#endif
/*
 *	CDR device implementation for
 *	Philips/Yamaha/Ricoh/Plasmon
 *
 *	Copyright (c) 1997 J. Schilling
 */
/*
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2, or (at your option)
 * any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; see the file COPYING.  If not, write to
 * the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 */
#include <mconfig.h>
#include <stdio.h>
#include <standard.h>
#include <intcvt.h>
#include <scg/scsireg.h>
#include <scg/scsitransp.h>
#include <scg/scgcmd.h>
#include <scg/scsidefs.h>	/* XXX Only for DEV_RICOH_RO_1060C */
#include "cdrecord.h"
extern	int	debug;
extern	int	lverbose;
LOCAL	int	load_unload_philips		__PR((SCSI *scgp, int));
LOCAL	int	philips_load			__PR((SCSI *scgp));
LOCAL	int	philips_unload			__PR((SCSI *scgp));
LOCAL	int	philips_dumbload		__PR((SCSI *scgp));
LOCAL	int	philips_dumbunload		__PR((SCSI *scgp));
LOCAL	int	recover_philips			__PR((SCSI *scgp, int));
LOCAL	int	speed_select_yamaha		__PR((SCSI *scgp, int *speedp, int dummy));
LOCAL	int	speed_select_philips		__PR((SCSI *scgp, int *speedp, int dummy));
LOCAL	int	speed_select_oldphilips		__PR((SCSI *scgp, int *speedp, int dummy));
LOCAL	int	speed_select_dumbphilips	__PR((SCSI *scgp, int *speedp, int dummy));
LOCAL	int	speed_select_pioneer		__PR((SCSI *scgp, int *speedp, int dummy));
LOCAL	int	philips_getdisktype		__PR((SCSI *scgp, cdr_t *dp, dstat_t *dsp));
LOCAL	BOOL	capacity_philips		__PR((SCSI *scgp, long *lp));
LOCAL	int	first_writable_addr_philips	__PR((SCSI *scgp, long *, int, int, int, int));
LOCAL	int	next_wr_addr_philips		__PR((SCSI *scgp, int track, track_t *trackp, long *ap));
LOCAL	int	reserve_track_philips		__PR((SCSI *scgp, unsigned long));
LOCAL	int	scsi_cdr_write_philips		__PR((SCSI *scgp, caddr_t bp, long sectaddr, long size, int blocks, BOOL islast));
LOCAL	int	write_track_info_philips	__PR((SCSI *scgp, int));
LOCAL	int	write_track_philips		__PR((SCSI *scgp, long, int));
LOCAL	int	open_track_philips		__PR((SCSI *scgp, cdr_t *dp, int track, track_t *track_info));
LOCAL	int	open_track_oldphilips		__PR((SCSI *scgp, cdr_t *dp, int track, track_t *track_info));
LOCAL	int	open_track_yamaha		__PR((SCSI *scgp, cdr_t *dp, int track, track_t *track_info));
LOCAL	int	close_track_philips		__PR((SCSI *scgp, int track, track_t *trackp));
LOCAL	int	fixation_philips		__PR((SCSI *scgp, int, int, int, int tracks, track_t *trackp));
LOCAL	int	philips_attach			__PR((SCSI *scgp, cdr_t *));
LOCAL	int	plasmon_attach			__PR((SCSI *scgp, cdr_t *));
LOCAL	int	ricoh_attach			__PR((SCSI *scgp, cdr_t *));
LOCAL	int	philips_getlilo			__PR((SCSI *scgp, long *lilenp, long *lolenp));
struct cdd_52x_mode_page_21 {	/* write track information */
		MP_P_CODE;		/* parsave & pagecode */
	Uchar	p_len;			/* 0x0E = 14 Bytes */
	Uchar	res_2;
	Uchar	sectype;
	Uchar	track;
	Uchar	ISRC[9];
	Uchar	res[2];
};
struct cdd_52x_mode_page_23 {	/* speed selection */
		MP_P_CODE;		/* parsave & pagecode */
	Uchar	p_len;			/* 0x06 = 6 Bytes */
	Uchar	speed;
	Uchar	dummy;
	Uchar	res[4];
};
#if defined(_BIT_FIELDS_LTOH)	/* Intel byteorder */
struct yamaha_mode_page_31 {	/* drive configuration */
		MP_P_CODE;		/* parsave & pagecode */
	Uchar	p_len;			/* 0x02 = 2 Bytes */
	Uchar	res;
	Ucbit	dummy		: 4;
	Ucbit	speed		: 4;
};
#else				/* Motorola byteorder */
struct yamaha_mode_page_31 {	/* drive configuration */
		MP_P_CODE;		/* parsave & pagecode */
	Uchar	p_len;			/* 0x02 = 2 Bytes */
	Uchar	res;
	Ucbit	speed		: 4;
	Ucbit	dummy		: 4;
};
#endif
struct cdd_52x_mode_data {
	struct scsi_mode_header	header;
	union cdd_pagex	{
		struct cdd_52x_mode_page_21	page21;
		struct cdd_52x_mode_page_23	page23;
		struct yamaha_mode_page_31	page31;
	} pagex;
};
cdr_t	cdr_philips_cdd521O = {
	0,
	CDR_TAO|CDR_TRAYLOAD,
	"philips_cdd521_old",
	"driver for Philips old CDD-521",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	philips_load,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_oldphilips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_oldphilips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_philips_dumb = {
	0,
	CDR_TAO|CDR_TRAYLOAD,
	"philips_dumb",
	"driver for Philips CDD-521 with pessimistic assumptions",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	philips_dumbload,
	philips_dumbunload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_dumbphilips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_oldphilips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_philips_cdd521 = {
	0,
	CDR_TAO|CDR_TRAYLOAD,
	"philips_cdd521",
	"driver for Philips CDD-521",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	philips_load,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_philips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_philips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_philips_cdd522 = {
	0,
	CDR_TAO|CDR_DAO|CDR_TRAYLOAD,
	"philips_cdd522",
	"driver for Philips CDD-522",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	philips_load,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_philips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_philips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_kodak_pcd600 = {
	0,
	CDR_TAO|CDR_TRAYLOAD,
	"kodak_pcd_600",
	"driver for Kodak PCD-600",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	philips_load,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_philips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_oldphilips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_plasmon_rf4100 = {
	0,
	CDR_TAO|CDR_TRAYLOAD,
	"plasmon_rf4100",
	"driver for Plasmon RF 4100",
	0,
	drive_identify,
	plasmon_attach,
	philips_getdisktype,
	philips_load,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_philips,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_philips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_pioneer_dw_s114x = {
	0,
	CDR_TAO|CDR_TRAYLOAD|CDR_SWABAUDIO,
	"pioneer_dws114x",
	"driver for Pioneer DW-S114X",
	0,
	drive_identify,
	philips_attach,
	philips_getdisktype,
	scsi_load,
	scsi_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_pioneer,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
/*	open_track_yamaha,*/
/*???*/	open_track_oldphilips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_yamaha_cdr100 = {
	0,
	CDR_TAO|CDR_DAO|CDR_CADDYLOAD|CDR_SWABAUDIO,
	"yamaha_cdr100",
	"driver for Yamaha CDR-100 / CDR-102",
	0,
	drive_identify,
	philips_attach,
	drive_getdisktype,
	(int(*)__PR((SCSI *)))cmd_dummy,
	philips_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_yamaha,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_yamaha,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_ricoh_ro1060 = {
	0,
	CDR_TAO|CDR_DAO|CDR_CADDYLOAD,
	"ricoh_ro1060c",
	"driver for Ricoh RO-1060C",
	0,
	drive_identify,
	ricoh_attach,
	philips_getdisktype,
	scsi_load,
	scsi_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_yamaha,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_philips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
cdr_t	cdr_ricoh_ro1420 = {
	0,
	CDR_TAO|CDR_DAO|CDR_CADDYLOAD,
	"ricoh_ro1420c",
	"driver for Ricoh RO-1420C",
	0,
	drive_identify,
	ricoh_attach,
	philips_getdisktype,
	scsi_load,
	scsi_unload,
	buf_dummy,
	recovery_needed,
	recover_philips,
	speed_select_yamaha,
	select_secsize,
	next_wr_addr_philips,
	reserve_track_philips,
	scsi_cdr_write_philips,
	no_sendcue,
	open_track_philips,
	close_track_philips,
	(int(*)__PR((SCSI *, int, track_t *, int, int)))cmd_dummy,
	cmd_dummy,
	read_session_offset_philips,
	fixation_philips,
	blank_dummy,
};
LOCAL int
load_unload_philips(scgp, load)
	SCSI	*scgp;
	int	load;
{
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->flags = SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xE7;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	scmd->cdb.g1_cdb.count[1] = !load;
	
	scgp->cmdname = "philips medium load/unload";
	if (scsicmd(scgp) < 0)
		return (-1);
	return (0);
}
LOCAL int
philips_load(scgp)
	SCSI	*scgp;
{
	return (load_unload_philips(scgp, 1));
}
LOCAL int
philips_unload(scgp)
	SCSI	*scgp;
{
	return (load_unload_philips(scgp, 0));
}
LOCAL int
philips_dumbload(scgp)
	SCSI	*scgp;
{
	int	ret;
	scgp->silent++;
	ret = load_unload_philips(scgp, 1);
	scgp->silent--;
	if (ret < 0)
		return (scsi_load(scgp));
	return (0);
}
LOCAL int
philips_dumbunload(scgp)
	SCSI	*scgp;
{
	int	ret;
	scgp->silent++;
	ret = load_unload_philips(scgp, 0);
	scgp->silent--;
	if (ret < 0)
		return (scsi_unload(scgp));
	return (0);
}
LOCAL int
recover_philips(scgp, track)
	SCSI	*scgp;
	int	track;
{
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->flags = SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xEC;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	
	scgp->cmdname = "philips recover";
	if (scsicmd(scgp) < 0)
		return (-1);
	return (0);
}
LOCAL int
speed_select_yamaha(scgp, speedp, dummy)
	SCSI	*scgp;
	int	*speedp;
	int	dummy;
{
	struct	scsi_mode_page_header	*mp;
	char				mode[256];
	int				len = 16;
	int				page = 0x31;
	struct yamaha_mode_page_31	*xp;
	struct cdd_52x_mode_data md;
	int	count;
	int	speed = 1;
	if (speedp) {
		speed = *speedp;
	} else {
		fillbytes((caddr_t)mode, sizeof(mode), '');
		if (!get_mode_params(scgp, page, "Speed/Dummy information",
			(u_char *)mode, (u_char *)0, (u_char *)0, (u_char *)0, &len)) {
			return (-1);
		}
		if (len == 0)
			return (-1);
		mp = (struct scsi_mode_page_header *)
			(mode + sizeof(struct scsi_mode_header) +
			((struct scsi_mode_header *)mode)->blockdesc_len);
		xp = (struct yamaha_mode_page_31 *)mp;
		speed = xp->speed;
	}
	fillbytes((caddr_t)&md, sizeof(md), '');
	count  = sizeof(struct scsi_mode_header) +
		sizeof(struct yamaha_mode_page_31);
	speed >>= 1;
	md.pagex.page31.p_code = 0x31;
	md.pagex.page31.p_len =  0x02;
	md.pagex.page31.speed = speed;
	md.pagex.page31.dummy = dummy?1:0;
	
	return (mode_select(scgp, (Uchar *)&md, count, 0, scgp->inq->data_format >= 2));
}
LOCAL int
speed_select_philips(scgp, speedp, dummy)
	SCSI	*scgp;
	int	*speedp;
	int	dummy;
{
	struct	scsi_mode_page_header	*mp;
	char				mode[256];
	int				len = 20;
	int				page = 0x23;
	struct cdd_52x_mode_page_23	*xp;
	struct cdd_52x_mode_data	md;
	int				count;
	int				speed = 1;
	if (speedp) {
		speed = *speedp;
	} else {
		fillbytes((caddr_t)mode, sizeof(mode), '');
		if (!get_mode_params(scgp, page, "Speed/Dummy information",
			(u_char *)mode, (u_char *)0, (u_char *)0, (u_char *)0, &len)) {
			return (-1);
		}
		if (len == 0)
			return (-1);
		mp = (struct scsi_mode_page_header *)
			(mode + sizeof(struct scsi_mode_header) +
			((struct scsi_mode_header *)mode)->blockdesc_len);
		xp = (struct cdd_52x_mode_page_23 *)mp;
		speed = xp->speed;
	}
	fillbytes((caddr_t)&md, sizeof(md), '');
	count  = sizeof(struct scsi_mode_header) +
		sizeof(struct cdd_52x_mode_page_23);
	md.pagex.page23.p_code = 0x23;
	md.pagex.page23.p_len =  0x06;
	md.pagex.page23.speed = speed;
	md.pagex.page23.dummy = dummy?1:0;
	
	return (mode_select(scgp, (Uchar *)&md, count, 0, scgp->inq->data_format >= 2));
}
LOCAL int
speed_select_pioneer(scgp, speedp, dummy)
	SCSI	*scgp;
	int	*speedp;
	int	dummy;
{
	if (speedp != 0 && *speedp < 2) {
		*speedp = 2;
		if (lverbose)
			printf("WARNING: setting to minimum speed (2).n");
	}
	return (speed_select_philips(scgp, speedp, dummy));
}
LOCAL int
speed_select_oldphilips(scgp, speedp, dummy)
	SCSI	*scgp;
	int	*speedp;
	int	dummy;
{
	if (lverbose)
		printf("WARNING: ignoring selected speed.n");
	if (dummy) {
		errmsgno(EX_BAD, "Cannot set dummy writing for this device.n");
		return (-1);
	}
	return (0);
}
LOCAL int
speed_select_dumbphilips(scgp, speedp, dummy)
	SCSI	*scgp;
	int	*speedp;
	int	dummy;
{
	if (speed_select_philips(scgp, speedp, dummy) < 0)
		return (speed_select_oldphilips(scgp, speedp, dummy));
	return (0);
}
#define	IS(what,flag)	printf("  Is %s%sn", flag?"":"not ",what);
LOCAL int
philips_getdisktype(scgp, dp, dsp)
	SCSI	*scgp;
	cdr_t	*dp;
	dstat_t	*dsp;
{
	char	sbuf[16];
	long	dummy;
	long	lilen;
	long	lolen;
	msf_t	msf;
	int	audio = -1;
	scgp->silent++;
	dummy = (*dp->cdr_next_wr_address)(scgp, 0, (track_t *)0, &lilen);
	scgp->silent--;
	/*
	 * Check for "Command sequence error" first.
	 */
	if ((dsp->ds_cdrflags & RF_WRITE) != 0 &&
	    dummy < 0 &&
	    (scsi_sense_key(scgp) != SC_ILLEGAL_REQUEST ||
						scsi_sense_code(scgp) != 0x2C)) {
		errmsgno(EX_BAD, "Drive needs to reload the media to return to proper status.n");
		unload_media(scgp, dp, F_EJECT);
		load_media(scgp, dp, TRUE);
	}
	scgp->silent++;
	if (read_subchannel(scgp, sbuf, 0, 12, 0, 1, 0xf0) >= 0) {
		if (sbuf[2] ==0 && sbuf[3] == 8)
			audio = (sbuf[7] & 0x40) != 0;
	}
	scgp->silent--;
	if (lverbose && dummy >= 0 && lilen == 0) {
		scgp->silent++;
		dummy = philips_getlilo(scgp, &lilen, &lolen);
		scgp->silent--;
		if (dummy >= 0) {
/*			printf("lead-in len: %d lead-out len: %dn", lilen, lolen);*/
			lba_to_msf(-150 - lilen, &msf);
			printf("ATIP info from disk:n");
			if (audio >= 0)
				IS("unrestricted", audio);
			if (audio == 1 || (audio == 0 && (sbuf[7] & 0x3F) != 0x3F))
				printf("  Disk application code: %dn", sbuf[7] & 0x3F);
			printf("  ATIP start of lead in:  %ld (%02d:%02d/%02d)n",
				-150 - lilen, msf.msf_min, msf.msf_sec, msf.msf_frame);
			if (capacity_philips(scgp, &lolen)) {
				lba_to_msf(lolen, &msf);
				printf(
				"  ATIP start of lead out: %ld (%02d:%02d/%02d)n",
				lolen, msf.msf_min, msf.msf_sec, msf.msf_frame);
			}
			lba_to_msf(-150 - lilen, &msf);
			pr_manufacturer(&msf,
					FALSE,		/* Always not erasable */
					audio>0);	/* Audio from read subcode */
		}
	}
	if (capacity_philips(scgp, &lolen)) {
		dsp->ds_maxblocks = lolen;
		dsp->ds_maxrblocks = disk_rcap(&msf, dsp->ds_maxblocks,
					FALSE,		/* Always not erasable */
					audio>0);	/* Audio from read subcode */
	}
	scgp->silent++;
	/*read_subchannel(scgp, bp, track, cnt, msf, subq, fmt); */
	if (read_subchannel(scgp, sbuf, 0, 14, 0, 0, 0xf1) >= 0)
		scsiprbytes("Disk bar code:", (Uchar *)sbuf, 14 - scsigetresid(scgp));
	scgp->silent--;
	return (drive_getdisktype(scgp, dp, dsp));
}
LOCAL BOOL
capacity_philips(scgp, lp)
	SCSI	*scgp;
	long	*lp;
{
	long	l = 0L;
	BOOL	succeed = TRUE;
	scgp->silent++;
	if (read_B0(scgp, FALSE, NULL, &l) >= 0) {
		if (debug)
			printf("lead out B0: %ldn", l);
		*lp = l;
	} else if (read_trackinfo(scgp, 0xAA, &l, NULL, NULL, NULL, NULL) >= 0) {
		if (debug)
			printf("lead out AA: %ldn", l);
		*lp = l;
	} if (read_capacity(scgp) >= 0) {
		l = scgp->cap->c_baddr + 1;
		if (debug)
			printf("lead out capacity: %ldn", l);
	} else {
		succeed = FALSE;
	}
	*lp = l;
	scgp->silent--;
	return (succeed);
}
struct	fwa {
	char	len;
	char	addr[4];
	char	res;
};
LOCAL int
first_writable_addr_philips(scgp, ap, track, isaudio, preemp, npa)
	SCSI	*scgp;
	long	*ap;
	int	track;
	int	isaudio;
	int	preemp;
	int	npa;
{
		 struct	fwa	fwa;
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)&fwa, sizeof(fwa), '');
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->addr = (caddr_t)&fwa;
	scmd->size = sizeof(fwa);
	scmd->flags = SCG_RECV_DATA|SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xE2;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	scmd->cdb.g1_cdb.addr[0] = track;
	scmd->cdb.g1_cdb.addr[1] = isaudio ? (preemp ? 5 : 4) : 1;
	scmd->cdb.g1_cdb.count[0] = npa?1:0;
	scmd->cdb.g1_cdb.count[1] = sizeof(fwa);
	
	scgp->cmdname = "first writeable address philips";
	if (scsicmd(scgp) < 0)
		return (-1);
	if (ap)
		*ap = a_to_4_byte(fwa.addr);
	return (0);
}
LOCAL int
next_wr_addr_philips(scgp, track, trackp, ap)
	SCSI	*scgp;
	int	track;
	track_t	*trackp;
	long	*ap;
{
/*	if (first_writable_addr_philips(scgp, ap, 0, 0, 0, 1) < 0)*/
	if (first_writable_addr_philips(scgp, ap, 0, 0, 0, 0) < 0)
		return (-1);
	return (0);
}
LOCAL int
reserve_track_philips(scgp, len)
	SCSI	*scgp;
	unsigned long len;
{
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->flags = SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xE4;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	i_to_4_byte(&scmd->cdb.g1_cdb.addr[3], len);
	
	scgp->cmdname = "philips reserve_track";
	if (scsicmd(scgp) < 0)
		return (-1);
	return (0);
}
LOCAL int
scsi_cdr_write_philips(scgp, bp, sectaddr, size, blocks, islast)
	SCSI	*scgp;
	caddr_t	bp;		/* address of buffer */
	long	sectaddr;	/* disk address (sector) to put */
	long	size;		/* number of bytes to transfer */
	int	blocks;		/* sector count */
	BOOL	islast;		/* last write for track */
{
	return (write_xg0(scgp, bp, 0, size, blocks));
}
LOCAL int
write_track_info_philips(scgp, sectype)
	SCSI	*scgp;
	int	sectype;
{
	struct cdd_52x_mode_data md;
	int	count = sizeof(struct scsi_mode_header) +
			sizeof(struct cdd_52x_mode_page_21);
	fillbytes((caddr_t)&md, sizeof(md), '');
	md.pagex.page21.p_code = 0x21;
	md.pagex.page21.p_len =  0x0E;
				/* is sectype ok ??? */
	md.pagex.page21.sectype = sectype;
	md.pagex.page21.track = 0;	/* 0 : create new track */
	
	return (mode_select(scgp, (Uchar *)&md, count, 0, scgp->inq->data_format >= 2));
}
LOCAL int
write_track_philips(scgp, track, sectype)
	SCSI	*scgp;
	long	track;		/* track number 0 == new track */
	int	sectype;
{
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->flags = SCG_DISRE_ENA|SCG_CMD_RETRY;
/*	scmd->flags = SCG_DISRE_ENA;*/
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xE6;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	g1_cdbaddr(&scmd->cdb.g1_cdb, track);
	scmd->cdb.g1_cdb.res6 = sectype;
	
	scgp->cmdname = "philips write_track";
	if (scsicmd(scgp) < 0)
		return (-1);
	return (0);
}
LOCAL int
open_track_philips(scgp, dp, track, track_info)
	SCSI	*scgp;
	cdr_t	*dp;
	int	track;
	track_t *track_info;
{
	if (select_secsize(scgp, track_info->secsize) < 0)
		return (-1);
	if (write_track_info_philips(scgp, track_info->sectype) < 0)
		return (-1);
	if (write_track_philips(scgp, 0, track_info->sectype) < 0)
		return (-1);
	return (0);
}
LOCAL int
open_track_oldphilips(scgp, dp, track, track_info)
	SCSI	*scgp;
	cdr_t	*dp;
 	int	track;
	track_t	*track_info;
{
	if (write_track_philips(scgp, 0, track_info->sectype) < 0)
		return (-1);
	return (0);
}
LOCAL int
open_track_yamaha(scgp, dp, track, track_info)
	SCSI	*scgp;
	cdr_t	*dp;
 	int	track;
	track_t	*track_info;
{
	if (select_secsize(scgp, track_info->secsize) < 0)
		return (-1);
	if (write_track_philips(scgp, 0, track_info->sectype) < 0)
		return (-1);
	return (0);
}
LOCAL int
close_track_philips(scgp, track, trackp)
	SCSI	*scgp;
	int	track;
	track_t	*trackp;
{
	return (scsi_flush_cache(scgp));
}
LOCAL int
fixation_philips(scgp, onp, dummy, type, tracks, trackp)
	SCSI	*scgp;
	int	onp;	/* open next program area */
	int	dummy;
	int	type;	/* TOC type 0: CD-DA, 1: CD-ROM, 2: CD-ROM/XA1, 3: CD-ROM/XA2, 4: CDI */
	int	tracks;
	track_t	*trackp;
{
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->flags = SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->timeout = 8 * 60;		/* Needs up to 4 minutes */
	scmd->cdb.g1_cdb.cmd = 0xE9;
	scmd->cdb.g1_cdb.lun = scgp->lun;
	scmd->cdb.g1_cdb.count[1] = (onp ? 8 : 0) | type;
	
	scgp->cmdname = "philips fixation";
	if (scsicmd(scgp) < 0)
		return (-1);
	return (0);
}
static const char *sd_cdd_521_error_str[] = {
	"0300tray out",				/* 0x03 */
	"6200write data error with CU",		/* 0x32 */	/* Yamaha */
	"6300monitor atip error",			/* 0x33 */
	"6400absorbtion control error",		/* 0x34 */
#ifdef	YAMAHA_CDR_100
	/* Is this the same ??? */
	"12000write operation in progress",		/* 0x50 */
#endif
	"12700unable to read TOC/PMA/Subcode/ATIP",	/* 0x57 */
	"13200operator medium removal request",	/* 0x5a */
	"14500verify failed",			/* 0x65 */
	"20100illegal track number",			/* 0x81 */
	"20200command now not valid",		/* 0x82 */
	"20300medium removal is prevented",		/* 0x83 */
	"20400tray out",				/* 0x84 */
	"20500track at one not in PMA",		/* 0x85 */
	"24000stopped on non data block",		/* 0xa0 */
	"24100invalid start adress",			/* 0xa1 */
	"24200attampt to cross track-boundary",	/* 0xa2 */
	"24300illegal medium",			/* 0xa3 */
	"24400disk write protected",			/* 0xa4 */
	"24500application code conflict",		/* 0xa5 */
	"24600illegal blocksize for command",	/* 0xa6 */
	"24700blocksize conflict",			/* 0xa7 */
	"25000illegal transfer length",		/* 0xa8 */
	"25100request for fixation failed",		/* 0xa9 */
	"25200end of medium reached",		/* 0xaa */
#ifdef	REAL_CDD_521
	"25300non reserved reserved track",		/* 0xab */
#else
	"25300illegal track number",			/* 0xab */
#endif
	"25400data track length error",		/* 0xac */
	"25500buffer under run",			/* 0xad */
	"25600illegal track mode",			/* 0xae */
	"25700optical power calibration error",	/* 0xaf */
	"26000calibration area almost full",		/* 0xb0 */
	"26100current program area empty",		/* 0xb1 */
	"26200no efm at search address",		/* 0xb2 */
	"26300link area encountered",		/* 0xb3 */
	"26400calibration area full",		/* 0xb4 */
	"26500dummy data blocks added",		/* 0xb5 */
	"26600block size format conflict",		/* 0xb6 */
	"26700current command aborted",		/* 0xb7 */
	"27000program area not empty",		/* 0xb8 */
#ifdef	YAMAHA_CDR_100
	/* Used while writing lead in in DAO */
	"27000write leadin in progress",		/* 0xb8 */
#endif
	"27100parameter list too large",		/* 0xb9 */
	"27700buffer overflow",			/* 0xbf */	/* Yamaha */
	"30000no barcode available",			/* 0xc0 */
	"30100barcode reading error",		/* 0xc1 */
	"32000recovery needed",			/* 0xd0 */
	"32100cannot recover track",			/* 0xd1 */
	"32200cannot recover pma",			/* 0xd2 */
	"32300cannot recover leadin",		/* 0xd3 */
	"32400cannot recover leadout",		/* 0xd4 */
	"32500cannot recover opc",			/* 0xd5 */
	"32600eeprom failure",			/* 0xd6 */
	"34000laser current over",			/* 0xe0 */	/* Yamaha */
	"34100servo adjustment over",		/* 0xe0 */	/* Yamaha */
	NULL
};
static const char *sd_ro1420_error_str[] = {
	"0400logical unit is in process of becoming ready", /* 04 00 */
	"11200radial skating error",				/* 09 80 */
	"11201sledge servo failure",				/* 09 81 */
	"11202pll no lock",					/* 09 82 */
	"11203servo off track",				/* 09 83 */
	"11204atip sync error",				/* 09 84 */
	"11205atip/subcode jumped error",			/* 09 85 */
	"127300subcode not found",				/* 57 C0 */
	"127301atip not found",				/* 57 C1 */
	"127302no atip or subcode",				/* 57 C2 */
	"127303pma error",					/* 57 C3 */
	"127304toc read error",				/* 57 C4 */
	"127305disk informatoion error",			/* 57 C5 */
	"144200read in leadin",				/* 64 80 */
	"144201read in leadout",				/* 64 81 */
	"20100illegal track",				/* 81 00 */
	"20200command not now valid",			/* 82 00 */
	"22000reserve track check error",			/* 90 00 */
	"22001verify blank error",				/* 90 01 */
	"22101mode of last track error",			/* 91 01 */
	"22200header search error",				/* 92 00 */
	"23001header monitor error",				/* 98 01 */
	"23002edc error",					/* 98 02 */
	"23003read link, run-in run-out",			/* 98 03 */
	"23004last one block error",				/* 98 04 */
	"23005illegal blocksize",				/* 98 05 */
	"23006not all data transferred",			/* 98 06 */
	"23007cdbd over run error",				/* 98 07 */
	"24000stopped on non_data block",			/* A0 00 */
	"24100invalid start address",			/* A1 00 */
	"24300illegal medium",				/* A3 00 */
	"24600illegal blocksize for command",		/* A6 00 */
	"25100request for fixation failed",			/* A9 00 */
	"25200end of medium reached",			/* AA 00 */
	"25300illegal track number",				/* AB 00 */
	"25500buffer underrun",				/* AD 00 */
	"25600illegal track mode",				/* AE 00 */
	"257200power range error",				/* AF 80 */
	"257201moderation error",				/* AF 81 */
	"257202beta upper range error",			/* AF 82 */
	"257203beta lower range error",			/* AF 83 */
	"257204alpha upper range error",			/* AF 84 */
	"257205alpha lower range error",			/* AF 85 */
	"257206alpha and power range error",			/* AF 86 */
	"26000calibration area almost full",			/* B0 00 */
	"26100current program area empty",			/* B1 00 */
	"26200no efm at search address",			/* B2 00 */
	"26400calibration area full",			/* B4 00 */
	"26500dummy blocks added",				/* B5 00 */
	"27200write audio on reserved track",		/* BA 00 */
	"302200syscon rom error",				/* C2 80 */
	"302201syscon ram error",				/* C2 81 */
	"302220efm encoder error",				/* C2 90 */
	"302221efm decoder error",				/* C2 91 */
	"302222servo ic error",				/* C2 92 */
	"302223motor controller error",			/* C2 93 */
	"302224dac error",					/* C2 94 */
	"302225syscon eeprom error",				/* C2 95 */
	"302240block decoder communication error",		/* C2 A0 */
	"302241block encoder communication error",		/* C2 A1 */
	"302242block encoder/decoder path error",		/* C2 A2 */
	"30300CD-R engine selftest error",			/* C3 xx */
	"30400buffer parity error",				/* C4 00 */
	"30500data transfer error",				/* C5 00 */
	"3400012V failure",					/* E0 00 */
	"34100undefined syscon error",			/* E1 00 */
	"34101syscon communication error",			/* E1 01 */
	"34102unknown syscon error",				/* E1 02 */
	"34200syscon not ready",				/* E2 00 */
	"34300command rejected",				/* E3 00 */
	"34400command not accepted",				/* E4 00 */
	"34500verify error at beginning of track",		/* E5 00 */
	"34501verify error at ending of track",		/* E5 01 */
	"34502verify error at beginning of lead-in",		/* E5 02 */
	"34503verify error at ending of lead-in",		/* E5 03 */
	"34504verify error at beginning of lead-out",	/* E5 04 */
	"34505verify error at ending of lead-out",		/* E5 05 */
	"37700command phase timeout error",			/* FF 00 */
	"37701data in phase timeout error",			/* FF 01 */
	"37702data out phase timeout error",			/* FF 02 */
	"37703status phase timeout error",			/* FF 03 */
	"37704message in phase timeout error",		/* FF 04 */
	"37705message out phase timeout error",		/* FF 05 */
	NULL
};
LOCAL int
philips_attach(scgp, dp)
	SCSI	*scgp;
	cdr_t	*dp;
{
	scsi_setnonstderrs(scgp, sd_cdd_521_error_str);
	return (0);
}
LOCAL int
plasmon_attach(scgp, dp)
	SCSI	*scgp;
	cdr_t	*dp;
{
	scgp->inq->data_format = 1;	/* Correct the ly */
	scsi_setnonstderrs(scgp, sd_cdd_521_error_str);
	return (0);
}
LOCAL int
ricoh_attach(scgp, dp)
	SCSI	*scgp;
	cdr_t	*dp;
{
	if (dp == &cdr_ricoh_ro1060) {
		errmsgno(EX_BAD, "No support for Ricoh RO-1060Cn");
		return (-1);
	}
	scsi_setnonstderrs(scgp, sd_ro1420_error_str);
	return (0);
}
LOCAL int
philips_getlilo(scgp, lilenp, lolenp)
	SCSI	*scgp;
	long	*lilenp;
	long	*lolenp;
{
		 char	buf[4];
		 long	li, lo;
	register struct	scg_cmd	*scmd = scgp->scmd;
	fillbytes((caddr_t)scmd, sizeof(*scmd), '');
	scmd->addr = buf;
	scmd->size = sizeof(buf);;
	scmd->flags = SCG_RECV_DATA|SCG_DISRE_ENA;
	scmd->cdb_len = SC_G1_CDBLEN;
	scmd->sense_len = CCS_SENSE_LEN;
	scmd->target = scgp->target;
	scmd->cdb.g1_cdb.cmd = 0xEE;	/* Read session info */
	scmd->cdb.g1_cdb.lun = scgp->lun;
	g1_cdblen(&scmd->cdb.g1_cdb, sizeof(buf));
	scgp->cmdname = "philips read session info";
	if (scsicmd(scgp) < 0)
		return (-1);
	if (scgp->verbose)
		scsiprbytes("Session info data: ", (u_char *)buf, sizeof(buf) - scsigetresid(scgp));
	li = a_to_u_2_byte(buf);
	lo = a_to_u_2_byte(&buf[2]);
	if (lilenp)
		*lilenp = li;
	if (lolenp)
		*lolenp = lo;
	return (0);
}

						