Apple-2-SW/antoine-source
1
0
Fork 0
mirror of https://github.com/antoinevignau/source.git synced 2025-01-01 15:30:02 +00:00
Code Issues Projects Releases Wiki Activity
14d02c2ab0
antoine-source/scsi2/SCSI.Drivers/SCSI Filter startup
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
38 KiB
Plaintext
Raw Blame History

;*******************************************************
;
; SCSI Driver 'Startup' filter.
;
; Written by Matt Gulick. Started July 1,1988
;
; Copyright Apple Computer, Inc. 1988,89
;
;*******************************************************
;*******************************************************
;
; This file contains the 'Startup' filter as defined
; in the ERS.
;
;*******************************************************
;*******************************************************
;
; Revision History:
;
;*******************************************************
;
; July 1, 1988 File started.
; July 21, 1988 reworked logic and added
; a few new subroutines.
; April 10, 1989 Started to add code for
; character devices for the
; Scanner.
STRING PASCAL
BLANKS OFF
PAGESIZE 70
PRINT NOGEN
PRINT NOMDIR
MACHINE M65816
IMPORT wake_me_up
IMPORT get_mm_id
IMPORT get_dvc_ram
IMPORT set_512_mode
IMPORT select_page_num
IMPORT test_unit_rdy
IMPORT start_unit
IMPORT mode_sense
IMPORT read_capacity
IMPORT default_dib
IMPORT rebld_dibs
IMPORT dpi_overide
IMPORT set_our_dp
IMPORT direct_page
IMPORT gsos_dpage
IMPORT main_drvr
IMPORT internal
IMPORT internal_buff
IMPORT get_scsimgr
IMPORT call_type
IMPORT fre_dvc_ram
IMPORT dvc_count
IMPORT rpm_blk_num
IMPORT rebuild
IMPORT part_num
IMPORT do_part_dib
IMPORT first_time
IMPORT part_cnt
IMPORT chk_ram
IMPORT dibicise_new_ram
IMPORT dibicise_new_dib
IMPORT main_caller
IMPORT active_starts
IMPORT tot_dib_cnt
IMPORT t_dvc_blocks
IMPORT auto_sense_data
ENTRY do_inq_parms
ENTRY do_mode_parms
ENTRY do_read_cap
ENTRY do_partition
ENTRY get_nxt_dvc
PRINT OFF
INCLUDE 'scsihd.equates'
INCLUDE 'M16.MEMORY'
INCLUDE 'M16.UTIL'
PRINT ON
EJECT
;*******************************************************
;
; Main Entry point to the 'Startup' filter. This
; 'Filter' is called after the driver is loaded. The
; code that follows sets up the drivers environment,
; then calls 'get_dvc_ram'. On return from the
; 'get_dvc_ram' call, the following structure are in
; place if no error ocured.
;
; dvc_list = Long Pointer to device List
; next_dib = Long Pointer to First DIB
; first_dib = Long Pointer to the beginning
; of the RAM Allocated for the
; new DIBs.
;
; This contains enough RAM for one DIB for
; each device in the device list. If more
; space is needed due to partitioning, then
; the startup filter will be responsible for
; getting that space from the memory manager.
;
; From this point, we need to build the DIB for each
; device.
;
; 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: See Spec.
;
;*******************************************************
EXPORT startup
startup PROC
;-------------------------------------------------------------------------------
IF warm_ss_suprt = true THEN
;
; Check to see if this is a WARM STARTUP
; Call. If it is, we will need to handle
; this a lot differently than a normal
; startup. First of all our DIBs are, for
; the most part, already built. The only
; possible changes might be in respect to
; removable media. In any case we will
; call the warm start routine in the Driver
; Mgmt file to take care of this for us.
;
; Is it a COLD STARTUP?
;
lda >warm_cold_flag
and #$0001
bne @do_warm ;It's Warm
@no_warm_start jmp @chk_dflt ;It's Cold
;
; Check to see if this is for the
; 'default_dib'. If it is, then we need
; to exit with an error. The error is so
; that our default DIB is purged from the
; startup list.
;
@do_warm lda <dib_ptr
cmp #default_dib
bne @not_dflt
lda <dib_ptr+2
cmp #^default_dib
bne @not_dflt
lda #drvr_io ;Error Out.
sec
rts
;
; Yeah, so it's a WARM STARTUP. But
; does this device know what that
; means? We'll see!
;
@not_dflt ldy #dib.dvcchar
lda [dib_ptr],y
and #restartable
beq @no_warm_start ;Not restartable.
;
; Yeah, so it knows what that means!
; But first let's see if it is a new
; DIB.
;
ldy #dib.dvcflag
lda [dib_ptr],y
tax
;
; Compare to default value.
;
cmp #wait_mode++\
cold_dib
beq @in_valid_dib ;Unused DIB. Reject it.
;
; One last check. Is it partitioned
; and if so, does it also have a valid
; block offset?
;
ldy #dib.dvcchar
lda [dib_ptr],y
and #linked_dvc
beq @valid_dib ;Used DIB. Start it.
ldy #dib.start_blk
lda [dib_ptr],y
ldy #dib.start_blk+2
ora [dib_ptr],y
bne @valid_dib ;Used DIB. Start it.
;
; Zero out the Device Number and
; remove link.
;
@in_valid_dib lda #null
ldy #dib.devnum
sta [dib_ptr],y
ldy #dib.dvcchar
lda [dib_ptr],y
and #linked_dvc--\
$ffff
sta [dib_ptr],y
lda #drvr_no_dev ;Error Out.
sec
rts
;
;
@valid_dib txa
and #cold_dib
bne @no_warm_start ;New DIB and Awake. Do Cold Start
;
; Old DIB. But is it asleep?
;
txa
and #relaxing
beq @over_wake_up ;Not asleep.
;
; Call the Warm Restart Routine.
;
jsr wake_me_up
;
; The device is now awake. If it is
; removable we need to see if the
; disk has been changed.
;
@over_wake_up ldy #dib.dvcchar
lda [dib_ptr],y
and #removable
beq @bra_been_had ;Not removable.
;
; Rebuild the DIBs for this device if
; this is the first partition for this
; device.
;
ldy #dib.unitnum
lda [dib_ptr],y
and #max_p_mask
bne @bra_been_had ;Not the head. They've been done already
;
; Current pointer is the first.
;
lda <dib_ptr+2
ldx <dib_ptr
@set_pointer stx <scsi_zp0
sta <scsi_zp0+2
;
; Set the Flags.
;
ldy #dib.dvcflag
lda [scsi_zp0],y
and #dvc_hardofl--\
$ffff
ora #dvc_switch++\
dvc_online
sta [scsi_zp0],y
;
; If there is a forward device
; pointer than get it.
;
ldy #dib.fdvcptr
lda [scsi_zp0],y
tax
ldy #dib.fdvcptr+2
lda [scsi_zp0],y
bne @set_pointer
jsr set_512_mode
lda #$ffff ;Don't Do Post Driver Installs
sta |dpi_overide
jsr rebld_dibs ;Rebuild DIBs and Issue a DISK_SW for each
php
stz |dpi_overide ;Clear the Overide
;
; Restore the origonal Direct Page values.
;
jsr set_our_dp
plp
bcc @bra_been_had
jsr test_unit_rdy
bcc @bra_been_had
;
; For some reason, we cannot talk to the
; device. It must be offline.
;
@chk_switch ldy #dib.dvcflag
lda [dib_ptr],y
and #dvc_online--\
$ffff
sta [dib_ptr],y
;@bra_been_had jmp @links_done
@bra_been_had bra @ive_been_had
ENDIF
;-------------------------------------------------------------------------------
;
; Check to see if this is for the
; 'default_dib'. If it is, then we need
; to build all the devices that we can and
; exit with an error. The error is so that
; our default DIB is purged from the startup
; list. The device dispatcher will then
; call us for the DIB pointed to in the
; 'default_dib's link pointer. This and any
; further 'STARTUP' calls will exit with no
; error, except that no action will be taken
; other than to increment the startup call
; count to be used as a balance for the
; shutdown calls that will eventually be
; issued.
;
@chk_dflt lda <dib_ptr
cmp #default_dib
bne @ive_been_had
lda <dib_ptr+2
cmp #^default_dib
;-------------------------------------------------------------------------------
IF part_suprt = false Then
beq @im_a_virgin
@ive_been_had ;
; Mark the device as started and
; as online.
;
ldy #dib.dvcflag
lda [dib_ptr],y
and #cold_dib--\
$ffff
;===============================================================================
IF character_dvc = true Then
ora #dvc_online
ENDIF
;===============================================================================
sta [dib_ptr],y
ELSE
;-------------------------------------------------------------------------------
bne @ive_been_had
jmp @im_a_virgin
@ive_been_had
;
; Clear the Cold Start Flag.
;
ldy #dib.dvcflag
lda [dib_ptr],y
and #cold_dib--\
$ffff
sta [dib_ptr],y
;
; Check the Partition Bits. If they
; are all clear, then we will set the
; head device link to this device.
;
ldy #dib.unitnum
lda [dib_ptr],y
cmp #$0001
beq @jmp_links_done
and #max_p_mask
bne @not_head
;
; Too far to branch to.
;
@jmp_links_done jmp @links_done
;
; This is not the first or boot device,
; nor is it the first or only logical
; device on this physical device. That
; means that it is probably partitioned.
; This means we need to set the head and
; forward links. The following code will
; do this for us.
;
; Get the Device Number for setting as
; a forward link. Also save the unit
; number (less the partition bits) to
; match the other DIBs from this device.
;
@not_head ldy #dib.devnum
lda [dib_ptr],y
sta @current_dev
ldy #dib.unitnum
lda [dib_ptr],y
and #max_p_mask\
--$ffff
sta @our_unit
ldy #dib.slotnum
lda [dib_ptr],y
sta @our_slot
;
; Start pointer out at the default DIB.
;
lda #default_dib
sta <scsi_zp4
lda #^default_dib
sta <scsi_zp4+2
;
; Main Search loop.
;
; Advance pointer to the next DIB. If
; link is = to zero, then exit loop.
;
@links_loop ldy #dib.linkptr+2
lda [scsi_zp4]
tax
ora [scsi_zp4],y
bne @non_zero
jmp @links_done
@non_zero lda [scsi_zp4],y
@advance sta <scsi_zp4+2
stx <scsi_zp4
;
; Check unit number to see if it is the same.
;
ldy #dib.unitnum
lda [scsi_zp4],y
and #max_p_mask\
--$ffff
cmp @our_unit ;Is it ours?
bne @links_loop ;No. Check the next one.
;
; Check Slot number to see if it is the same.
;
ldy #dib.slotnum
lda [scsi_zp4],y
cmp @our_slot ;Is it ours?
bne @links_loop ;No. Check the next one.
;
; They are equal. Is the forward link = zero?
;
ldy #dib.fdvclnk
lda [scsi_zp4],y
; beq @found_end
; cmp @current_dev
bne @links_loop ;No. Check the next one.
;
; Yes. This DIB has no forward device link.
; We will volunteer the users DIB for the Job.
; Set the head Link in the DIB called and the
; forward link in ours.
;
@found_end lda @current_dev
sta [scsi_zp4],y
ldy #dib.headlnk
lda [scsi_zp4],y
beq @stuff_head
;
; Set Head Pointer to scsi_zp4
;
pha
ldy #dib.headptr
lda [scsi_zp4],y
sta [dib_ptr],y
ldy #dib.headptr+2
lda [scsi_zp4],y
sta [dib_ptr],y
pla
bra @do_head
;
; Set head Pointer to the same as
; in scsi_zp4
;
@stuff_head ldy #dib.headptr
lda <scsi_zp4
sta [dib_ptr],y
ldy #dib.headptr+2
lda <scsi_zp4+2
sta [dib_ptr],y
ldy #dib.devnum
lda [scsi_zp4],y
@do_head ldy #dib.headlnk
sta [dib_ptr],y
;
; Also set the Forward Device Ptr.
;
ldy #dib.fdvcptr
lda <dib_ptr
sta [scsi_zp4],y
ldy #dib.fdvcptr+2
lda <dib_ptr+2
sta [scsi_zp4],y
;
; And the forward link.
;
ldy #dib.devnum
lda [dib_ptr],y
ldy #dib.fdvclnk
sta [scsi_zp4],y
;
; Is it a COLD STARTUP?
;
lda >warm_cold_flag
and #$0001
bne @links_done ;It's Warm. Skip the links
;
; Set the linked bit in both DIBs.
;
ldy #dib.dvcchar
lda [scsi_zp4],y
ora #linked_dvc
sta [scsi_zp4],y
lda [dib_ptr],y
ora #linked_dvc
sta [dib_ptr],y
ENDIF
;-------------------------------------------------------------------------------
;
; Not the first one, so increment the counter
; if we are not beyond what we have for an
; active dib count.
;
@links_done lda |active_starts
cmp |tot_dib_cnt
beq @over_inc
inc |active_starts
@over_inc clc
rts
;
; Local Data storage here.
;
@current_dev dc.w null ;Device Number for this DIB
@our_unit dc.w null ;His unit number less the partition bits.
@our_slot dc.w null ;His slot number
;
; Check to see if we've been called before.
; If not then we need to get the gs/os
; direct page address.
;
@im_a_virgin lda |direct_page
bne @we_have_it
;
; Where is GS/OS Direct Page?
;
tdc
sta |gsos_dpage
;
; We also need to get the SCSI Managers
; ID for the S_DISPATCHER.
;
jsr get_scsimgr
bcs @rts
;
; Get ID from the memory manager. All that
; this does is request a new ID.
;
@we_have_it jsr get_mm_id
;
; Call the get_dvc_ram subroutine.
; This will allocate the space
; that we need for the device list
; returned by the SCSI Manager.
; It then calculates a DIB count
; (Max 256) and allocates RAM for
; those structures. This can be
; increased later if it is needed.
; This can occur if some of the
; devices contain more than one
; partition.
;
jsr get_dvc_ram
bcc @do_dflt_dib ;Check for errors.
jsr fre_dvc_ram ;Dump Get Devices Ram
lda #drvr_no_dev ;Exit
sec
@rts rts
;
; Now we need to build the DIBs for
; these devices. The first one will
; not be built in the default_dib
; area. The default_dib will be
; copied first to the new memory that
; has been allocated. It is here
; that the first DIB will be built.
; After this the last DIB built will
; be copied into the space for the
; next DIB to be built and then
; updated accordingly. We do not use
; the default_dib because this will
; serve to keep this driver active
; even if no devices are present at
; boot time. Just in case a drive
; does come online later.
;
@do_dflt_dib lda <dvc_list ;Advance pointer to the first entry.
adc #$0004 ;Pass Direct page pointer and
sta <dvc_list ;device count. Carry was CLEAR!!!!
lda <dvc_list+2
adc #$0000
sta <dvc_list+2
lda #default_dib
sta <last_dib
lda #^default_dib
sta <last_dib+2
stz |main_caller ;tell the link setter that he was called
clc ;Do Links Also
jsr dibicise_new_ram ;by the main loop
bra @over
@over jsr do_mode_parms ;Do MODE SENSE supplied parms
jsr do_inq_parms ;Do INQUIRY supplied parms
;-------------------------------------------------------------------------------
IF block_dvc = true Then
jsr do_read_cap ;Do READ CAPACITY supplied parms
ENDIF
;-------------------------------------------------------------------------------
IF part_suprt = true Then
jsr do_partition ;Do partition DIBs
ENDIF
;-------------------------------------------------------------------------------
jsr get_nxt_dvc ;Go to the next physical device
bne @over ;But only if they exist.
;
; This SEC is extremely important. At
; this point the startup call was issued
; to the default DIB. We took this
; opertunity to build all of our DIBs
; and we have a count of how many we did
; build. We do not want the device manager
; to keep the default DIB as an active
; device and so we exit with the carry
; set. He will then check the link
; pointer and if it is not zero, he will
; call the startup routine for that dib.
; At that time we will exit with the carry
; clear.
;
; Free Get Devices Ram first.
;
jsr fre_dvc_ram
lda #drvr_io
sec
rts
ENDP
EJECT
;*******************************************************
;
; 'do_inq_parms'
;
; This routine issues an INQUIRY call to the device and
; then uses the data returned to fill in some of the blank
; holes in the DIB.
;
; Inputs: <next_dib = Next DIB start (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Outputs: <next_dib = unchanged (LONG)
; [next_dib] = INQUIRY values set (PTR)
; Removable bit
; Command bitmap
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
EXPORT do_inq_parms
do_inq_parms PROC
;
; Set internal command flag
;
dec |internal
;
; Tell the Main Driver where
; our command structure resides.
;
lda #@start_inq
sta <scsi_mdrvr
lda #^@start_inq
sta <scsi_mdrvr+2
;
; And our buffer
;
lda #internal_buff
sta <buff_ptr
lda #^internal_buff
sta <buff_ptr+2
;
; And our length 0f $40 Bytes
;
lda #$0040
sta <rqst_cnt
stz <rqst_cnt+2
;
; Stuff the pointer to the dib
; that we are building into the
; Direct Page locations. The
; main driver will use this to
; build the SCSI INQUIRY Command
; that we will issue.
;
lda <next_dib
sta <dib_ptr
lda <next_dib+2
sta <dib_ptr+2
;
; Set the Call Type and Issue the
; INQUIRY Command.
;
lda #scsit_stat
sta |call_type
jsr |main_drvr
bcc @over_0 ;Was there an error?
rts ;Yes.
;
; Is the device removable?
;
@over_0 lda |inq.removable\
+internal_buff
and #bit_7
beq @non_remove
;
; Yes. Set the bit in the
; characteristics field.
;
ldy #dib.dvcchar
lda [next_dib],y
ora #removable
sta [next_dib],y
bra @over_1
;
; No. Clear the bit in the
; characteristics field.
;
@non_remove ldy #dib.dvcchar
lda [next_dib],y
and #removable--\
$ffff
sta [next_dib],y
;
; Set a ZP pointer to where the
; command bitmap information will
; be placed.
;
@over_1 clc
lda <next_dib
adc #dib.group0
sta <scsi_zp0
lda <next_dib+2
adc #^dib.group0
sta <scsi_zp0+2
;
; Not all devices conform to the
; Apple Command Command Set. We
; need to check if the Command
; Bitmap is available. If not
; then we will stuff the default
; bitmap and then clear bits as
; the device indicates. This will
; be done elsewhere in response to
; a command not supported error.
;
; First check the return length.
;
ldy #dib.trx_len
lda [dib_ptr],y
cmp #inq.group+5-1 ;End of first group - 1
blt @do_default
;
; We got those bytes. Are they 0?
;
short ;5 Bytes to check. Best done 8 bit
sec ;The Carry will be our flag
lda |inq.group\
+internal_buff
bne @chk_carry ;Must Start w/ Group Zero.
clc ;The Carry will be our flag
ldx #$0005
@chk_bm_loop lda |inq.group\
+internal_buff,x
bne @chk_carry
dex
bpl @chk_bm_loop
sec
@chk_carry longmx
bcs @do_default
;
; There are some devices out there
; that return bogus bitmaps. They
; look correct, but are not. We will
; check the first 4 bytes of the
; Bitmap to see if they support the
; Mandatory Commands. If not, then
; we will use our default bitmap.
;
lda |inq.group\
+internal_buff+1
and @min_cmnds
cmp @min_cmnds
bne @do_default
lda |inq.group\
+internal_buff+3
and @min_cmnds+2
cmp @min_cmnds+2
bne @do_default
;
; Zero out the current data in the
; dib. If there are any holes in
; the information then we are sure
; that those holes are null.
;
ldy #dib.group7\
-dib.group0\
+2
lda #null
@loop_0 sta [scsi_zp0],y
dey
dey
bpl @loop_0
;
; Get the group number for the next
; four bytes of bitmap.
;
; Group x (BYTE)
; Bitmap (LONG)
; Group y (BYTE)
; Bitmap (LONG)
; Group z (BYTE)
; Bitmap (LONG)
; Group '$FF (BYTE)
;
ldx #null
@loop_1 lda |inq.group\
+internal_buff,x
and #$00ff ;Real Code
cmp #$00ff
beq @over_2
cmp #$0007+1
bge @do_default
;
; Convert group number into an
; index into the group table in
; the dib.
;
asl a
asl a
tay
inx
;
; Transfer the bitmap.
;
lda |inq.group\
+internal_buff,x
sta [scsi_zp0],y
inx
inx
iny
iny
lda |inq.group\
+internal_buff,x
sta [scsi_zp0],y
inx
inx
bra @loop_1
;
; The device did not support
; the Command Bitmap in the
; INQUIRY Parms. We need to
; put the default bitmap in
; place.
;
@do_default ldy #dib.group7\
-dib.group0\
+2
@dflt_loop lda default_dib\
+dib.group0,y
sta [scsi_zp0],y
dey
dey
bpl @dflt_loop
;
; Clean exit when done.
;
@over_2 clc
rts
;
; Data Area.
;
; Inquiry Command Packet.
;
@start_inq dc.b $12
dcb.b 11,$00
;
; Data of Minimum Command set that
; must be supported.
;
@min_cmnds
;-------------------------------------------------------------------------------
IF scsi_dtype = direct_acc Then
;
; It is a Direct-Access Device.
;
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = direct_acc
;-------------------------------------------------------------------------------
IF scsi_dtype = seq_acc THEN
;
; It is a Sequential-Access Device.
;
arl ;Cause error if used. Force definition
dc.B $D0,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = seq_acc
;-------------------------------------------------------------------------------
IF scsi_dtype = appl_laser THEN
;
; It is an Apple LaserWriter Device.
;
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = appl_laser
;-------------------------------------------------------------------------------
IF scsi_dtype = proc_dvc THEN
;
; It is a Processor Device.
;
arl ;Cause error if used. Force definition
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = proc_dvc
;-------------------------------------------------------------------------------
IF scsi_dtype = worm_dvc THEN
;
; It is a Write-once Read-multiple Device.
;
arl ;Cause error if used. Force definition
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = worm_dvc
;-------------------------------------------------------------------------------
IF scsi_dtype = read_dacc THEN
;
; It is a Read-only Direct-Access Device.
;
dc.B $90,$00,$23,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = read_dacc
;-------------------------------------------------------------------------------
IF scsi_dtype = scanner THEN
;
; It is a Scanner Device.
;
dc.B $90,$00,$23,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = scanner
;-------------------------------------------------------------------------------
IF scsi_dtype = optic_mem THEN
;
; It is a Optical Memory Device.
;
arl ;Cause error if used. Force definition
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = optic_mem
;-------------------------------------------------------------------------------
IF scsi_dtype = changer THEN
;
; It is a Changer Device.
;
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = changer
;-------------------------------------------------------------------------------
IF scsi_dtype = comm_dvc THEN
;
; It is a Communication Device.
;
arl ;Cause error if used. Force definition
dc.B $98,$A0,$20,$00 ; Group 0 Commands
ENDIF ;scsi_dtype = comm_dvc
;-------------------------------------------------------------------------------
IF scsi_dtype = mcd_40 THEN
;
; It is a Direct Access Magnetic
; Tape Device.
;
dc.B $DF,$77,$FF,$7C ; Group 0 Commands
ENDIF ;scsi_dtype = mcd_40
;-------------------------------------------------------------------------------
ENDP
EJECT
;*******************************************************
;
; 'do_mode_parms'
;
; This routine issues an MODE SENSE call to the device and
; then uses the data returned to fill in some of the blank
; holes in the DIB.
;
; Inputs: <next_dib = Next DIB start (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Outputs: <next_dib = unchanged (LONG)
; [next_dib] = MODE SENSE vals set (PTR)
; Write Protect bit
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
EXPORT do_mode_parms
do_mode_parms PROC
;
; Stuff the pointer to the dib
; that we are building into the
; Direct Page locations. The
; main driver will use this to
; build the SCSI MODE SENSE
; Command that we will issue.
;
lda <next_dib
sta <dib_ptr
lda <next_dib+2
sta <dib_ptr+2
;
; Start the Unit
;
;-------------------------------------------------------------------------------
IF scsi_dtype <> scanner THEN
jsr start_unit
ENDIF
;-------------------------------------------------------------------------------
IF scsi_dtype = mcd_40\
OR scsi_dtype = apple_cd\
OR scsi_dtype = changer THEN
;
; Check for no-media
;
bcc @cd_tape_ok
;
; Check for No Media Error
;
lda |auto_sense_data+\
rqst_sens.sense_key
beq @cd_tape_ok
and #$00ff
cmp #$0002 ;Is there Media?
bne @cd_tape_ok ;Yes.
;
; No Media. Mark the DIB Hard Ofline also.
;
ldy #dib.dvcflag
lda [dib_ptr],y
ora #dvc_hardofl
sta [dib_ptr],y
@cd_tape_ok
ENDIF
;-------------------------------------------------------------------------------
;
; Check if unit Ready
;
jsr test_unit_rdy
;
; Issue MODE SENSE Call
;
jsr mode_sense
bcs @rts ;Was there an error?
;-------------------------------------------------------------------------------
IF scsi_dtype <> apple_cd\
AND scsi_dtype <> changer\
AND scsi_dtype <> scanner THEN
;
; Is the device writable? If CD-ROM
; then don't even bother with this
; code.
;
lda |mode.w_protect\
+internal_buff
and #bit_7
beq @over_1 ;No.
;
; Yes. Set the bit in the
; characteristics field.
;
ldy #dib.dvcchar
lda #write_allow
ora [next_dib],y
sta [next_dib],y
ENDIF
;-------------------------------------------------------------------------------
@over_1 ;Label must always be available.
;-------------------------------------------------------------------------------
IF scsi_dtype <> mcd_40\
AND scsi_dtype <> scanner\
AND scsi_dtype <> appl_laser THEN
;
; Check to see if the device supports
; the page discriptors.
;
lda |mode.blk_disc\
+internal_buff
and #$00ff
beq @clc
;
; Ensure that the device is in
; 512 mode if possible and send
; data from page 1 back to the
; device.
;
lda |mode.page_number\
+internal_buff
and #$ff3f ;Clear the invalid bits.
sta |select_page_num
lda |mode.page_number\
+internal_buff+2
ora #bit_6++\ ;Set AWRE and ARRE bits.
bit_7
sta |select_page_num+2
lda |mode.page_number\
+internal_buff+4
sta |select_page_num+4
lda |mode.page_number\
+internal_buff+6
sta |select_page_num+6
jsr set_512_mode
bcs @rts
@clc
ENDIF
;-------------------------------------------------------------------------------
;
; Exit
;
clc
@rts rts
;
; Data for the MODE SENSE Command
;
@start_mode dc.b $1a
dc.b $00
dc.b $01
dcb.b 9,$00
ENDP
EJECT
;*******************************************************
;
; 'do_read_cap'
;
; This routine issues an READ CAPACITY call to the
; device and then uses the data returned to fill in
; some of the blank holes in the DIB.
;
; Inputs: <next_dib = Next DIB start (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Outputs: <next_dib = unchanged (LONG)
; [next_dib] = READ CAP.. vals set (PTR)
; Block Count
; Block Size
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
EXPORT do_read_cap
do_read_cap PROC
;-------------------------------------------------------------------------------
IF scsi_dtype <> scanner THEN
;
; Stuff the pointer to the dib
; that we are building into the
; Direct Page locations. The
; main driver will use this to
; build the SCSI READ CAPACITY
; Command that we will issue.
;
lda <next_dib
sta <dib_ptr
lda <next_dib+2
sta <dib_ptr+2
;
; Issue the READ CAPACITY Command.
;
jsr read_capacity
bcc @over_0 ;Was there an error?
rts ;Yes.
;
; Get the Block Count (Stored
; High >> Low. Must be switched
; to Low >> High). This is the last
; readable block number. Add 1 to
; it for comparison reasons.
;
@over_0 lda |block.count\
+internal_buff\
+2
xba
adc #$0001
sta |t_dvc_blocks
lda |block.count\
+internal_buff
xba
adc #null
sta |t_dvc_blocks+2
;-------------------------------------------------------------------------------
IF block_dvc = true THEN
beq @over_mo
;
; Some devices do not return a bitmap
; of the commands that they support.
; For these devices we use a default
; minimum command set. If the Block
; Count is > $ffff, then we need to
; update this to support the exrended
; read and write commands.
;
ldy #dib.group1
lda [next_dib],y
ora #$b000 ;Bit 15 = Extended Read
;Bit 13 = Extended Write
;Bit 12 = Extended Seek
sta [next_dib],y
@over_mo
ENDIF
;-------------------------------------------------------------------------------
;
; Get the devices block size (This
; also needs to be switched from
; High >> Low to Low >> High) and
; place it in the dib.
;
lda |block.size\
+internal_buff\
+2
xba
ldy #dib.blksize
sta [next_dib],y
sta <blk_size ;Place on direct page.
lda |block.size\
+internal_buff
xba
ldy #dib.blksize+2
sta [next_dib],y
sta <blk_size+2 ;Place on direct page.
;
; Clean exit.
;
clc
rts
ELSE
;-------------------------------------------------------------------------------
clc
rts
ENDIF
;-------------------------------------------------------------------------------
ENDP
EJECT
;*******************************************************
;
; 'do_partition'
;
; This routine issues a READ call to the device and
; then uses the data returned to check for any
; partitions on the media.
;
; Inputs: <next_dib = Next DIB start (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Outputs: <next_dib = last DIB Built (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
;
; Start of the code segment for this.
;
EXPORT do_partition
do_partition PROC
;-------------------------------------------------------------------------------
IF part_suprt = true Then
;
; Initialize a few values.
;
lda #$ffff ;The following values will be incrimented
sta |first_time ;with zero indication special action.
sta |part_num ;This is set to $ffff so that it will only
;occur on the first pass through.
stz |part_cnt
stz |rpm_blk_num
stz |rebuild
;
; MAIN LOOP OF CODE SEGMENT.
;
jsr do_part_dib
rts
ELSE
;-------------------------------------------------------------------------------
clc
rts
ENDIF
;-------------------------------------------------------------------------------
ENDP
EJECT
;*******************************************************
;
; 'get_nxt_dvc'
;
; This routine checks to see if there are any
; remaining devices in the list handed to us by the
; GET_DEVICES Call to the SCSI Manager. If there are
; devices, then we advance our pointers and exit with
; the Z flag set. The caller can the do a BNE to
; continue his loop ( Z(ero) indicates that there are
; no devices left ).
;
; Inputs: <next_dib = Next DIB start (LONG)
; Acc = Unspecified
; Carry = Unspecified
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Direct Page = Ours
; Data Bank = Ours
;
; Outputs: <next_dib = last DIB Built (LONG)
; Carry = 1
; Acc = Error
; Carry = 0
; Acc = ram_page_cnt
; = 0 no more devices
; Y register = Unspecified
; X register = Unspecified
; P register = 0=M=X=e
; Z=1 if more devices
; Z=0 if no more devices
; Direct Page = Ours
; Data Bank = Ours
;
; Errors: None.
;
;*******************************************************
EXPORT get_nxt_dvc
get_nxt_dvc PROC
;
; Are there any more devices?
;
dec |dvc_count
bne @we_have_more
clc
rts ;Z Flag set here.
;
; Advance the Device Data Pointer
; in the device list from the SCSI
; Manager
;
@we_have_more clc
lda <dvc_list
adc #$0004
sta <dvc_list
lda <dvc_list+2
adc #null
sta <dvc_list+2
;
; Call Check Ram routine. This will
; check to see if there is room for an
; additional DIB. If not then room
; will be made for enough DIBs to cover
; the remaining partitions and devices.
; From this caller, there should be no
; partitions to account for.
;
stz |main_caller
jmp chk_ram
ENDP
END
EJECT
Reference in New Issue View Git Blame Copy Permalink