;File: SCSITraps.a
;
; Version 2.0a3
;
; Copyright 1986-1987  Apple Computer, Inc. All Rights Reserved
;
; This file contains the glue for Pascal Calls to the SCSI manager
;
; modifications:
;	4-feb-87	KLH		removed SCSIDisconnect, SCSIReselect, SCSIReselAtn.


;Routine Selectors

_scsiReset		EQU	0
_scsiGet		EQU	1
_scsiSelect		EQU	2
_scsiCmd		EQU	3
_scsiComplete	EQU	4
_scsiRead		EQU	5
_scsiWrite		EQU	6
_scsiRBlind		EQU	8
_scsiWBlind		EQU	9
_scsiStat		EQU	10

;************** NEW SCSI selectors ***************

_scsiSelAtn		EQU	11
_scsiMsgIn		EQU	12
_scsiMsgOut		EQU	13
	
	
_SCSIDispatch	EQU	$AC15		;with Auto-pop bit set

	MACRO
	SCSIDispatch 
	MOVE.L	(SP)+,A0			;get return address
	MOVE.W #&SYSLIST[1],-(SP)	;push selector value
	MOVE.L	A0,-(SP)			;push return address
	DC.W	_SCSIDispatch   	;the trap!
	ENDM

	

SCSIReset	FUNC	EXPORT
		SCSIDispatch _scsiReset

SCSIGet		FUNC	EXPORT
		SCSIDispatch _scsiGet

SCSISelect	FUNC	EXPORT
		SCSIDispatch _scsiSelect

SCSICmd		FUNC	EXPORT
		SCSIDispatch _scsiCmd

SCSIComplete	FUNC	EXPORT
		SCSIDispatch _scsiComplete

SCSIRead	FUNC	EXPORT
		SCSIDispatch _scsiRead

SCSIWrite	FUNC	EXPORT
		SCSIDispatch _scsiWrite

SCSIRBlind	FUNC	EXPORT
		SCSIDispatch _scsiRBlind

SCSIWBlind	FUNC	EXPORT
		SCSIDispatch _scsiWBlind

SCSIStat	FUNC	EXPORT
		SCSIDispatch _scsiStat

;************** NEW SCSI TRAPS ***************

SCSISelAtn	FUNC	EXPORT
		SCSIDispatch _scsiSelAtn

SCSIMsgIn	FUNC	EXPORT
		SCSIDispatch _scsiMsgIn

SCSIMsgOut	FUNC	EXPORT
		SCSIDispatch _scsiMsgOut
		
		END