antoine-source/scsi2/SCSI.Drivers/SCSI Filter open
Antoine Vignau d29484938c Our SCSI-2 Audio Driver
What we wrote to make audio hearable on a SCSI-2 CD-ROM drive ;-)
2023-03-08 10:15:14 +01:00

1 line
6.1 KiB
Plaintext

;*******************************************************
;
; SCSI Driver 'Open' Filter
;
; Written by Matt Gulick. Started June 8,1988
;
; Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************
;*******************************************************
;
; This file contains the subroutines needed by the
; SCSI Driver to respond to the Open call number
; $0001. In a Block Device Driver this will return no
; error and perform no function. In the case of a
; Character device however, this will need to prepare
; the target device for Data I/O that may be sent to
; it.
;
;*******************************************************
;*******************************************************
;
; Revision History:
;
;*******************************************************
; June 8, 1988 File started.
; June 20 1988 Registers in and out are
;
; April 11 1989 Added Character Device Code.
STRING PASCAL
BLANKS OFF
PAGESIZE 70
PRINT NOGEN
PRINT NOMDIR
MACHINE M65816
IMPORT test_unit_rdy
IMPORT auto_sense_data
IMPORT reserve_unit
PRINT OFF
INCLUDE 'scsihd.equates'
INCLUDE 'M16.MEMORY'
INCLUDE 'M16.UTIL'
PRINT ON
EJECT
IF block_dvc = true\
AND character_dvc = false THEN
;*******************************************************
;
; This routine is used as the Open code for a Block
; Device Driver.
;
; Inputs: None.
;
; Outputs: Acc = 0
; Carry = 0
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = GS/OS Direct Page
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
ENDIF
;-------------------------------------------------------------------------------
IF character_dvc = true\
AND block_dvc = false THEN
;*******************************************************
;
; This routine is used as the Open code for a
; Character Device Driver. This code is commented out
; so that is available to any one who uses this SCSI
; Driver Skeleton.
;
; Inputs: None.
;
; Outputs: Acc = Error
; Carry = Set or Clear
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = GS/OS Direct Page
; Data Bank = Ours
;
; Errors: Already Open Error $0024
; For other errors see Spec.
;
;*******************************************************
ENDIF
;-------------------------------------------------------------------------------
EXPORT open
open PROC
;-------------------------------------------------------------------------------
IF block_dvc = true\
AND character_dvc = false THEN
;
; Is the device online?
;
ldy #dib.dvcflag
lda [dib_ptr],y
and #dvc_online
bne @open ;Yes.
;
; Device is currently offline.
;
lda #drvr_off_line
sec
rts
;
; Return ok.
;
@open lda #$0000
clc
rts
ENDIF
;-------------------------------------------------------------------------------
IF character_dvc = true\
AND block_dvc = false THEN
;
; Is the device online?
;
ldy #dib.dvcflag
lda [dib_ptr],y
and #dvc_online
bne @open ;Yes.
;
; Device is currently offline.
;
lda #drvr_off_line
sec
rts
;
; Check if Open.
;
@open lda |open_flag
bne @alrdy_opn
;-------------------------------------------------------------------------------
IF scsi_dtype = scanner\
OR scsi_dtype = appl_laser THEN
;
; It's a character device. Prepare it
; for operation.
;
; Set flag so that we will do this
; at most 2 times for this call.
;
@try_again lda #$ffff
sta @loop_cnt
;
; Is the Unit Ready for
; communications?
;
jsr |test_unit_rdy
bcc @its_ready ;Yes.
;
; No. But why not?
;
lda |auto_sense_data+\
rqst_sens.sense_key
and #$00ff
beq @its_ready ;I quess it was only kidding.
;
; Is it doing somthing for sombody
; right now?
;
cmp #$0002
bne @check_6 ;No.
;
; Yes it is. The Device is not yet
; ready.
;
@dvc_busy lda #drvr_busy
sec
rts
;
; Was it maybe reset or powered up
; again?
;
@check_6 cmp #$0006
beq @handle_6 ;Yes.
;
; No. The Device has Problems.
;
@io_error lda #drvr_io
sec
rts
;
; The auto sensing should have cleared
; this state, so lets try it again.
; But only a second time.
;
@handle_6 inc @loop_cnt
beq @try_again
bra @io_error
@loop_cnt dc.w null ;Loop Counter.
;
; The Device is Ready. Issue a
; RESERVE UNIT Call to ensure that
; nobody else can talk to the Scanner
; while we have it opened.
;
@its_ready jsr reserve_unit
bcs @io_error
;
; Make sure that it's block size is
; 1 byte/block. This will make it easy
; to get what the user requests if at
; all possible.
;
ELSE
;-------------------------------------------------------------------------------
Insert Your Code Here.
ENDIF
;-------------------------------------------------------------------------------
inc |open_flag
lda #$0000
clc
rts
@alrdy_opn lda #drvr_prior_open
sec
rts
ENDIF
;-------------------------------------------------------------------------------
;
; Internal Data Area for Open and Close.
;
EXPORT open_flag
open_flag dc.w $0000
ENDP
END
EJECT