mirror of
https://github.com/elliotnunn/boot3.git
synced 2024-06-29 01:29:34 +00:00
5b0f0cc134
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included. The Tools directory, containing mostly junk, is also excluded.
99 lines
3.0 KiB
Plaintext
99 lines
3.0 KiB
Plaintext
;
|
|
; File: SCSIMgrInitDB.a
|
|
;
|
|
; Contains: DB Lite SCSI Manager c80 initialization routines
|
|
;
|
|
; Written by: James Blair
|
|
;
|
|
; Copyright: © 1992, 1994 by Apple Computer, Inc. All rights reserved.
|
|
;
|
|
; This file is used in these builds: ROM
|
|
;
|
|
; Change History (most recent first):
|
|
;
|
|
; <SM2> 1/26/94 rab Removed padForOverpatch stuff from the end of this file
|
|
; (SuperMario does not use itÉ).
|
|
; <SM1> 2/5/93 CSS Checkin from Horror.
|
|
; <H2> 3/3/92 SWC Added overpatch padding.
|
|
; <H1> 2/10/92 SWC jab/Added dual SCSI bus code for DBLite to HORROR.
|
|
;
|
|
|
|
BLANKS ON ; assembler accepts spaces & tabs in operand field
|
|
STRING ASIS ; generate string as specified
|
|
PRINT OFF ; do not send subsequent lines to the listing file
|
|
; don't print includes
|
|
|
|
IF (&TYPE('dbugSCSIDB') = 'UNDEFINED') THEN
|
|
dbugSCSIDB EQU 0 ; for debugging purposes
|
|
ENDIF
|
|
LOAD 'StandardEqu.d' ; from StandardEqu.a and for building ROMs
|
|
INCLUDE 'HardwareEqu.a' ;
|
|
INCLUDE 'SCSI.a' ; <SM1> CSS
|
|
INCLUDE 'SCSIPriv.a'
|
|
INCLUDE 'UniversalEqu.a' ; for TestFor
|
|
|
|
PRINT ON ; do send subsequent lines to the listing files
|
|
|
|
SCSIInitDB PROC EXPORT ;
|
|
|
|
EXPORT InitMgr_SCSIDB
|
|
|
|
IMPORT SCSIMgr_DB
|
|
IMPORT DoSCSIReset_DB
|
|
IMPORT DoSCSIGet_DB
|
|
IMPORT DoSCSISelect_Dc80
|
|
|
|
WITH scsiGlobalRecord
|
|
|
|
;-------------------------------------------------------------
|
|
;
|
|
; Initialization code for the DB Lite SCSI Manager
|
|
|
|
InitMgr_SCSIDB
|
|
movem.l intrRegs, -(sp) ; save all registers, for convenience
|
|
moveq.l #0, zeroReg ; initialize "zeroReg"
|
|
movea.l SCSIGlobals, a4 ; get ptr to structure
|
|
|
|
moveq.l #numSelectorsDB-1, d1 ; loop count
|
|
lea.l SCSIMgr_DB, a1 ; get start of SCSI Mgr code
|
|
move.l a1, d0 ; remember base address
|
|
lea OffsetTblDB, a1 ; address of offset table
|
|
movea.l a4, a0 ; point to base of old SCSI Mgr jump table
|
|
@MakeJmpTbl
|
|
moveq.l #0, d2 ; clear high word
|
|
move.w (a1)+, d2 ; get the next offset
|
|
add.l d0, d2 ; compute the address
|
|
move.l d2, (a0)+ ; install it in the jump table
|
|
dbra d1, @MakeJmpTbl ; loop for all vectors
|
|
|
|
lea.l DoSCSISelect_Dc80, a1 ; point to Dual SCSIc80 Select proc
|
|
move.l a1, jvSelect(a4) ; use this Select routine
|
|
|
|
move.l SCSIBase,base5380_1(a4) ; load addresses for the internal controller
|
|
move.l SCSIDMA,pdma5380_1(a4) ;
|
|
move.l SCSIHsk,hhsk5380_1(a4) ;
|
|
|
|
clr.l G_SCSIDevMap0(a4) ; initialize SCSI Device Map 0
|
|
clr.l G_SCSIDevMap1(a4) ; initialize SCSI Device Map 1
|
|
|
|
@InitDone
|
|
movem.l (sp)+, intrRegs ; restore registers
|
|
rts
|
|
|
|
|
|
|
|
;-------------------------------------------------------------
|
|
;
|
|
OffsetTblDB
|
|
DC.W DoSCSIReset_DB-SCSIMgr_DB ; 0: SCSIReset
|
|
DC.W DoSCSIGet_DB-SCSIMgr_DB ; 1: SCSIGet
|
|
DC.W DoSCSISelect_Dc80-SCSIMgr_DB ; 2: SCSISelect
|
|
|
|
;==========================================================================
|
|
|
|
|
|
ENDWITH
|
|
|
|
END
|
|
|