mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-22 04:31:30 +00:00
92 lines
1.5 KiB
Plaintext
92 lines
1.5 KiB
Plaintext
|
|
||
|
|
;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
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
|