From aaa8e0a7113aea083ac3010394de6aefb0ad6014 Mon Sep 17 00:00:00 2001
From: Laurent Vivier <Laurent@lvivier.info>
Date: Wed, 1 Dec 2004 00:11:36 +0000
Subject: [PATCH] Add MacOS functions SCSIReset(), SCSIGet(), SCSISelect(),
 SCSIcmd(), SCSIRead() and SCSIComplete

---
 second/glue.S | 96 +++++++++++++++++++++++++++++++++++++++++++++++++++
 second/glue.h | 28 +++++++++++++++
 2 files changed, 124 insertions(+)

diff --git a/second/glue.S b/second/glue.S
index 1cd4579..bda3d14 100644
--- a/second/glue.S
+++ b/second/glue.S
@@ -236,3 +236,99 @@ SysError:
 	dc.w	0xA9C9		/* SysError */
 	unlk	%fp
 	rts
+
+#if defined(SCSI_SUPPORT)
+
+	/* SCSI support */
+
+.equ	_SCSIReset,	0x0000
+.equ	_SCSIGet,	0x0001
+.equ	_SCSISelect,	0x0002
+.equ	_SCSICmd,	0x0003
+.equ	_SCSIComplete,	0x0004
+.equ	_SCSIRead,	0x0005
+.equ	_SCSIWrite,	0x0006
+
+.macro	SCSIDispatch selector
+	move.w	#\selector, -(%sp)
+	dc.w	0xA815			/* _SCSIDispatch */
+	move.w	(%sp)+, %d0
+	ext.l	%d0
+.endm
+
+	/* OSErr SCSIReset(void) */
+
+	.global SCSIReset
+SCSIReset:
+	link	%fp, #0
+	clr.w	-(%sp)
+	SCSIDispatch(_SCSIReset)
+	unlk	%fp
+	rts
+
+	/* OSErr SCSIGet(void) */
+
+	.global SCSIGet
+SCSIGet:
+	link	%fp, #0
+	clr.w	-(%sp)
+	SCSIDispatch(_SCSIGet)
+	unlk	%fp
+	rts
+
+	/* OSErr SCSISelect(short targetID) */
+
+	.global SCSISelect
+SCSISelect:
+	link	%fp, #0
+	move.l	8(%fp), %d0	/* targetID */
+	clr.w	-(%sp)
+	move.w	%d0, -(%sp)
+	SCSIDispatch(_SCSISelect)
+	unlk	%fp
+	rts
+
+	/* OSErr SCSICmd(void* buffer, short count) */
+
+	.global SCSICmd
+SCSICmd:
+	link	%fp, #0
+	move.l	8(%fp), %d0	/* buffer */
+	move.l	12(%fp), %d1	/* count */
+	clr.w	-(%sp)
+	move.l	%d0, -(%sp)	/* buffer */
+	move.w	%d1, -(%sp)	/* count */
+	SCSIDispatch(_SCSICmd)
+	unlk	%fp
+	rts
+
+	/* OSErr SCSIRead(void *tibPtr) */
+
+	.global SCSIRead
+SCSIRead:
+	link	%fp, #0
+	move.l	8(%fp), %d0	/* tibPtr */
+	clr.w	-(%sp)
+	move.l	%d0, -(%sp)
+	SCSIDispatch(_SCSIRead)
+	unlk	%fp
+	rts
+
+	/* OSErr SCSIComplete(short *stat, short *message, unsigned long wait)*/
+
+	.global SCSIComplete
+SCSIComplete:
+	link	%fp, #0
+	move.l	%d0, -(%sp)
+	move.l	8(%fp), %d0	/* stat */
+	move.l	12(%fp), %d1	/* message */
+	move.l	16(%fp), %d2	/* wait */
+	clr.w	-(%sp)
+	move.l	%d0, -(%sp)
+	move.l	%d1, -(%sp)
+	move.l	%d2, -(%sp)
+	SCSIDispatch(_SCSIComplete)
+	unlk	%fp
+	rts
+
+#endif /* SCSI_SUPPORT */
diff --git a/second/glue.h b/second/glue.h
index 689697c..c2554fd 100644
--- a/second/glue.h
+++ b/second/glue.h
@@ -190,3 +190,31 @@ extern OSErr PBOpenSync(ParmBlkPtr paramBlock);
 extern OSErr PBCloseSync(ParmBlkPtr paramBlock);
 extern OSErr PBControlSync(ParmBlkPtr paramBlock);
 extern void SysError(short errorCode);
+
+#if defined(SCSI_SUPPORT)
+
+enum {
+   op_inc	= 1,	/* transfer data, increment buffer pointer */
+   op_no_inc	= 2,	/* transfer data, don't increment pointer */
+   op_add	= 3,	/* add long to address */
+   op_mode	= 4,	/* move long to address */
+   op_loop	= 5,	/* decrement counter and loop if > 0 */
+   op_nop	= 6,	/* no operation */
+   op_stop	= 7,    /* stop TIB execution */
+   op_comp	= 8,	/* compare SCSI data with memory */
+};
+
+typedef struct TIB {	/* Transfer Instruction Block */
+   short	opcode;	/* operation code */
+   int		param1;	/* 1st parameter */
+   int		param2;	/* 2nd parameter */
+} __attribute__((packed)) TIB_t;
+
+extern OSErr SCSIReset(void);
+extern OSErr SCSIGet(void);
+extern OSErr SCSISelect(short targetID);
+extern OSErr SCSICmd(void *buffer, short count);
+extern OSErr SCSIRead(void *tibPtr);
+extern OSErr SCSIComplete(short *stat, short *message, unsigned long wait);
+#endif /* SCSI_SUPPORT */
+