663 lines
26 KiB
Plaintext
663 lines
26 KiB
Plaintext
;
|
||
; Hacks to match MacOS (most recent first):
|
||
;
|
||
; <Sys7.1> 8/3/92 Removed the struct elements inserted by <H3>. Worked around
|
||
; hasPwrControls/hasPowerMgr being incorrectly set on Plus/Portable.
|
||
; 9/2/94 SuperMario ROM source dump (header preserved below)
|
||
;
|
||
|
||
;
|
||
; File: SonyEqu.a
|
||
;
|
||
; Contains: xxx put contents here xxx
|
||
;
|
||
; Written by: xxx put writers here xxx
|
||
;
|
||
; Copyright: © 1991-1993 by Apple Computer, Inc., all rights reserved.
|
||
;
|
||
; Change History (most recent first):
|
||
;
|
||
; <SM5> 8/3/93 BH Added drive queue flag (dqManEjBit) for manually ejectable
|
||
; device.
|
||
; <SM4> 12/7/92 rab Roll in Horror changes. Comments follow…
|
||
; <H6> 8/4/92 SWC Increased the maximum head settling time to 100ms so
|
||
; slower-stepping drives won't try to read/write data before
|
||
; they're really ready.
|
||
; <H5> 2/25/92 CMP Added new status code to support speed check status call.
|
||
; <H4> 2/13/92 CMP Added a new control code for enabling/disabling retries and a
|
||
; global flag to indicate if retries are enabled.
|
||
; <H3> 1/21/92 CMP Added support for 32Mhz clock to SWIM2.
|
||
; <SM3> 5/17/92 kc Turn off onMac if undefined.
|
||
; <SM2> 4/16/92 JSM Roll-in change from Reality:
|
||
; <5> 4/14/92 DTY Fix up conditionals so the right offsets get generated for the
|
||
; System build. Moved extra stuff that was in the internal
|
||
; version of SonyEqu.a into this file, so we can get rid of the
|
||
; internal version.
|
||
; <4> 10/1/91 JSM Don’t use onMvMac conditional, Modern Victorian never existed.
|
||
; <3> 1/30/91 gbm sab, #38: Change the ‘already including this file’ variable to
|
||
; all uppercase (for security reasons)
|
||
;
|
||
|
||
; Version: 3.23
|
||
; Created: Friday, October 20, 1989 at 9:52:02 PM
|
||
;
|
||
; File: SonyEqu.a
|
||
;
|
||
; Assembler Interface to the Macintosh Libraries
|
||
; Copyright Apple Computer, Inc. 1984-1990
|
||
; All Rights Reserved
|
||
;
|
||
;--------------------------------------------------------------------
|
||
;
|
||
; The following information was formerly in "private" files that were
|
||
; not released to the general developer community.
|
||
;
|
||
; The information in this file is not needed for normal application
|
||
; development. These equates and macros were necessary for development
|
||
; of the Macintosh ToolBox and Operating System, and are likely to be
|
||
; dependent on their current implementation. Use of any information
|
||
; in this file is likely to cause your software to fail on future
|
||
; versions of Macintosh system software or hardware.
|
||
;
|
||
; Apple Developer Support will not support any use of the following
|
||
; information.
|
||
;
|
||
; In order to prevent any "accidental" use of this information, it has
|
||
; been disabled using the conditional-assembly variable defined below.
|
||
; If you change this to a non-zero value, you're on your own.
|
||
;--------------------------------------------------------------------
|
||
|
||
IF &TYPE('__INCLUDINGSONYEQU__') = 'UNDEFINED' THEN
|
||
__INCLUDINGSONYEQU__ SET 1
|
||
|
||
; If SonyNonPortable is defined to be non-zero, Then a machine type must be specified!
|
||
|
||
IF (&TYPE('SonyNonPortable') = 'UNDEFINED') THEN
|
||
SonyNonPortable EQU 0
|
||
ENDIF
|
||
|
||
IF (&TYPE('onMac') = 'UNDEFINED') THEN
|
||
onMac EQU 0 ; <SM3>
|
||
ENDIF
|
||
|
||
IF (&TYPE('onMacPP') = 'UNDEFINED') THEN
|
||
onMacPP EQU 0
|
||
ENDIF
|
||
|
||
IF (&TYPE('onNuMac') = 'UNDEFINED') THEN
|
||
onNuMac EQU 0
|
||
ENDIF
|
||
|
||
IF (&TYPE('onHcMac') = 'UNDEFINED') THEN
|
||
onHcMac EQU 0
|
||
ENDIF
|
||
|
||
; forDiskDup should be set to 0 for most uses
|
||
|
||
IF (&TYPE('forDiskDup') = 'UNDEFINED') THEN
|
||
forDiskDup EQU forROM ; Only significant for ROM builds.
|
||
ENDIF
|
||
|
||
; Note: supportsDCD means support for pass-thru connector as well.
|
||
; If this is 1, firstDCD and maxDCDcnt equates are needed as well.
|
||
; GetDrive must be adjusted for number of drives, as well!
|
||
|
||
IF onMac THEN
|
||
supportsPWM EQU 1 ; set to 1 if PWM supported
|
||
maxDrvNum EQU 4
|
||
supportsDCD EQU 1 ; set to 1 to include DCD code
|
||
firstDCD EQU 3
|
||
maxDCDcnt EQU 2
|
||
iwmMode EQU $1F
|
||
ENDIF
|
||
|
||
IF onMacPP THEN
|
||
supportsPWM EQU 1 ; set to 1 if PWM supported
|
||
maxDrvNum EQU 5
|
||
supportsDCD EQU 1 ; set to 1 to include DCD code
|
||
firstDCD EQU 4
|
||
maxDCDcnt EQU 2
|
||
iwmMode EQU $17 ; changed for Brian Howard to set half speed
|
||
; <?? same as Mac ??>
|
||
ENDIF
|
||
|
||
IF (&TYPE('onNuMacDCD') = 'UNDEFINED') THEN
|
||
onNuMacDCD EQU 0
|
||
ENDIF
|
||
|
||
IF onNuMac THEN
|
||
supportsPWM EQU 0 ; set to 1 if PWM supported
|
||
IF onNuMacDCD THEN
|
||
maxDrvNum EQU 4
|
||
supportsDCD EQU 1 ; set to 1 to include DCD code
|
||
firstDCD EQU 3
|
||
maxDCDcnt EQU 2
|
||
ELSE
|
||
maxDrvNum EQU 2
|
||
supportsDCD EQU 0 ; set to 1 to include DCD code
|
||
ENDIF
|
||
iwmMode EQU $17
|
||
ENDIF
|
||
|
||
IF onHcMac THEN
|
||
supportsPWM EQU 0 ; set to 1 if PWM supported
|
||
maxDrvNum EQU 5
|
||
supportsDCD EQU 1 ; set to 1 to include DCD code
|
||
firstDCD EQU 4
|
||
maxDCDcnt EQU 2
|
||
iwmMode EQU $17
|
||
ENDIF
|
||
|
||
|
||
IF SonyNonPortable THEN
|
||
|
||
IF (&TYPE('supportsMFM') = 'UNDEFINED') THEN
|
||
supportsMFM EQU 0
|
||
ENDIF
|
||
|
||
; SonyVars Data Structure (offsets):
|
||
; (1) Driver local vars.
|
||
; (2) Drive-specific vars.
|
||
; (3) More driver local vars.
|
||
; (4) Direct-connect driver locals.
|
||
;
|
||
; Drive Constants:
|
||
; (1) Floppy drive constants (tuneable).
|
||
; (2) Floppy drive sense/control constants.
|
||
; (3) Floppy drive formatting constants.
|
||
; (4) Direct-connect drive constants.
|
||
;
|
||
; Driver Constants:
|
||
; (1) Driver Control codes.
|
||
;
|
||
; Driver Vectors:
|
||
; (1) Location of disk routine vectors.
|
||
;
|
||
;_______________________________________________________________________
|
||
|
||
;_______________________________________;
|
||
; ;
|
||
; SonyVars Data Structure (offsets): ;
|
||
;_______________________________________;
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (1) Driver local vars. ; * = known to be used in a copy-
|
||
; protection scheme.
|
||
; +---------------------+ DiskUnitPtr <-----+
|
||
; | | |
|
||
; | "driver local vars" | |
|
||
; | | EjectWait |
|
||
; +---------------------+ <----+ |
|
||
; | | Track | |
|
||
; | drive1 | DrvLclLth |
|
||
; | | DriveMisc | |
|
||
; +---------------------+ <----+ |
|
||
; | | Track |
|
||
; | drive2 | Sony disk driver
|
||
; | | DriveMisc vars, plus
|
||
; +---------------------+ locals for each
|
||
; | | Track diskette drive
|
||
; | driveX | |
|
||
; | | DriveMisc |
|
||
; +---------------------+ |
|
||
; | | FloppyLclEnd |
|
||
; | "more driver vars" | |
|
||
; | | SonyVarEnd <-----+
|
||
; +---------------------+ <-----+
|
||
; | | Track |
|
||
; | driveN | |
|
||
; | | DriveMisc |
|
||
; +---------------------+
|
||
; | | DCD driver vars
|
||
; | driveN | plus locals for
|
||
; | | each DCD drive
|
||
; +---------------------+ |
|
||
; | | DCDCmd |
|
||
; | DCD driver locals | |
|
||
; | | DiskVarLth <-----+
|
||
; +---------------------+
|
||
;
|
||
;_______________________________________________________________________
|
||
;
|
||
|
||
IF supportsMFM THEN
|
||
mfmSectTime EQU 75 ;7.5msec sector time
|
||
maxMFMSectors EQU 18 ;18 MFM sectors/track side (@1440K)
|
||
ENDIF
|
||
|
||
maxGCRSectors EQU 12 ;12 GCR sectors/track side (max)
|
||
diskUnitPtr EQU 0 ; pointer to device control entry
|
||
diskQVE EQU diskUnitPtr+4 ; disk VBL task control block
|
||
drive EQU diskQVE+14 ; * 0001 = int drive, 0002 = ext drive
|
||
wait EQU drive+2 ; extra wait time for speed changes
|
||
sideTrack EQU wait+2 ; destination side/track
|
||
oneToOne EQU sideTrack+2 ; open up rupts flg (no longer used)
|
||
active EQU oneToOne+1 ; * non-zero when driver is active
|
||
timeOut EQU active+1 ; * power time out
|
||
diskBuffer EQU timeOut+2 ; pointer to track data buffer
|
||
firstSect EQU diskBuffer+4 ; low sector number needed on a track
|
||
sectMap EQU firstSect+2 ; bit map of sectors needed on a track
|
||
firstFSeq EQU sectMap+4 ; first file seq # for current r/w request
|
||
fBlksDone EQU firstFSeq+2 ; file blocks done previous to this track
|
||
readErrInit EQU fBlksDone+2 ; init value, read error countdown cntr
|
||
readErrCnt EQU readErrInit+1 ; read error countdown cntr
|
||
recalInit EQU readErrCnt+1 ; init value, recal count
|
||
recalCnt EQU recalInit+1 ; recal count
|
||
wrgSectInit EQU recalCnt+1 ; init value, wrong sector countdown cnt
|
||
wrgSectCnt EQU wrgSectInit+1 ; wrong sector countdown cnt
|
||
badSpdInit EQU wrgSectCnt+1 ; init value, bad speed
|
||
badSpdCnt EQU badSpdInit+1 ; bad speed countdown value
|
||
command EQU badSpdCnt+1 ; I/O command
|
||
headSettle EQU command+2 ; disk head settle time (@100usec)
|
||
spdChgTime EQU headSettle+2 ; motor speed change time (@100usec)
|
||
pwrOnTime EQU spdChgTime+2 ; * power-on wait time (@100usec)
|
||
pwrOffTime EQU pwrOnTime+2 ; * power down time (@1/2sec)
|
||
seekTime EQU pwrOffTime+2 ; seek wait time (@100usec)
|
||
sectTime EQU seekTime+2 ; * sector time (@100usec)
|
||
dskVBLTime EQU sectTime+2 ; VBL task time (@16ms)
|
||
ejectTime EQU dskVBLTime+2 ; Eject time (@100usec)
|
||
ckDelta EQU ejectTime+2 ; delta time before speed recheck
|
||
ejectWait EQU ckDelta+4 ; VBL times after eject to ignore DIP
|
||
|
||
; Format/Verify code reuses some of these fields as follows:
|
||
|
||
gapSync EQU sectMap ; (2) start with 7 groups of intersector sync
|
||
twoSided EQU command ; (1) set non-zero for 2-sided format
|
||
sectSave EQU firstSect ; (2) SectMpSave must follow
|
||
sectMapSave EQU sectMap ; (8) uses SectMap, FirstFSeq, FBlksDone
|
||
sectCnt EQU firstSect ; (2) loop counter . . .
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (2) Drive-specific vars.
|
||
|
||
drvLclLth EQU 66
|
||
drive1 EQU ejectWait+2 ; * internal drive variables
|
||
drive2 EQU drive1+drvLclLth ; * external drive variables
|
||
|
||
IF onMacPP | onHcMac THEN
|
||
drive3 EQU drive2+drvLclLth ; * real external for MacPP
|
||
floppyLclEnd EQU drive3+drvLclLth
|
||
ELSEIF onMac | onNuMac | onMac32 THEN
|
||
floppyLclEnd EQU drive2+drvLclLth
|
||
ENDIF
|
||
|
||
track EQU 0 ; current track location (used for spd)
|
||
writeProt EQU 2 ; * bit7=1=write-protected
|
||
diskInPlace EQU 3 ; * $FC-$FF= just ejected,
|
||
; 0=no disk in place,1=DIP,2=clamped
|
||
installed EQU 4 ; * 0=don't know, 1=inst., $FF=not inst.
|
||
sides EQU 5 ; * bit7=0=1 sided
|
||
dqel EQU 6 ; drive queue element for this drive
|
||
driveQLink EQU 6
|
||
driveQVers EQU 10
|
||
driveSize EQU 18 ; drive block size (DCD only!)
|
||
twoSideFmt EQU 18 ; * non-zero if 2-sided format
|
||
newIntf EQU 19 ; $FF if new interface, $00 for old
|
||
driveErrs EQU 20 ; drive soft errs
|
||
driveS1 EQU 20 ; drive block size (high word)
|
||
driveType EQU 22 ; old OffSpeed (no longer supported)
|
||
driveManf EQU 24
|
||
driveChar EQU 26
|
||
|
||
IF supportsMFM THEN
|
||
mfmDrive EQU 22 ;$FF=SuperDrive, $00=400K or 800K GCR
|
||
mfmDisk EQU 23 ;$FF=MFM, $00=GCR or unformatted
|
||
twoMegFmt EQU 24 ;$FF=2 meg MFM (1440K), $00=1 meg (720K)
|
||
ENDIF
|
||
|
||
driveMisc EQU 27
|
||
spdAdjCnt EQU 24 ; speed adjust count this drive
|
||
trkSpeedTbl EQU 26 ; 5-entry track speed table
|
||
tSTblCode EQU 0 ; first is speed code
|
||
tSTblDelta EQU 2 ; 2% speed code delta
|
||
tSTblTicks EQU 4 ; longword last time checked tick cnt
|
||
trkSTEnd EQU 66 ; end of drive vars
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (3) More driver local vars.
|
||
|
||
wakeTimeCnt EQU floppyLclEnd ; WakeUp remainder count
|
||
saveRegs EQU wakeTimeCnt+2 ; * wakeup routine saves D3-D7,A3-A6 here
|
||
tagBufPtr EQU saveRegs+36 ; if non-zero, pointer to separate
|
||
; buffer for file tags . . .
|
||
tagBufOS EQU tagBufPtr+4 ; temp offset into buffer
|
||
diskErrs EQU tagBufOS+2 ; global soft errors
|
||
passThru EQU diskErrs+2 ; 0 if pass thru on external port
|
||
IF supportsMFM THEN
|
||
hasSuperDrives EQU passThru+1 ; $FF if at least 1 SuperDrive connected
|
||
curSector EQU hasSuperDrives+1 ; current sector being read/written
|
||
ELSE
|
||
sonyExtra EQU passThru+1 ; extra byte
|
||
curSector EQU sonyExtra+1 ; current sector being read/written
|
||
ENDIF
|
||
|
||
tcRdEnable EQU curSector+2 ; (byte) set non-zero to activate reads into cache
|
||
tcInstalled EQU tcRdEnable+1 ; (byte) non-zero when caching is installed and on
|
||
tcDrive EQU tcInstalled+1 ; (word) drive number of cache blks (zero to inval)
|
||
tcSideTrack EQU tcDrive+2 ; (word) side/track of cache blocks
|
||
tcSectMap EQU tcSideTrack+2 ; (long) bitmap of sectors currently cached
|
||
tcBuffer EQU tcSectMap+4 ; (long) pointer to track cache buffer (512+12)*12
|
||
tcNumCached EQU tcBuffer+4 ; (word) number read into cache
|
||
tcNumUsed EQU tcNumCached+2 ; (word actual number used
|
||
lastDrive EQU tcNumUsed+2 ; (word) set at CkDrvNum to previous value of Drive
|
||
timeOutDrive EQU lastDrive+4 ; (word) set at PowerDown to value of Drive
|
||
; Above value should have been +2 since lastDrive is a word.
|
||
timeQEl EQU timeOutDrive+2 ; a time queue element
|
||
|
||
IF onMac | (onMac32 and (NOT(onMacPP | onHcMac | forROM))) THEN
|
||
nextGZProc EQU timeQEl+tmQSize-2 ; (long) saved old GZ proc
|
||
; Above had been +tmQSize, but that changed from $C to $E.
|
||
sonyVarEnd SET nextGZProc+4 ; end of sony vars excluding DCD
|
||
ELSE
|
||
nextGZProc EQU timeQEl+tmQSize ; (long) saved old GZ proc
|
||
driveXlat EQU nextGZProc + 4 ; drive translate table (GetDrive,DiskOpen)
|
||
drvTblPtr EQU driveXlat+((maxDrvNum+1)*2)
|
||
; (long) pointer to DrvTbl to use
|
||
sonyVarEnd SET drvTblPtr+4
|
||
ENDIF
|
||
|
||
IF supportsMFM THEN
|
||
isSWIM EQU sonyVarEnd ;FDC type: $FF=SWIM, $00=IWM
|
||
mfmMode EQU isSWIM+1 ;Current register set selected: $FF=SWIM, $00=IWM
|
||
sonyVarEnd SET mfmMode+1 ; end of sony vars excluding DCD
|
||
ENDIF
|
||
|
||
IF onHcMac THEN
|
||
chipState EQU sonyVarEnd ; Byte holds flag to indicate IWM on or off
|
||
sonyVarEnd SET chipState+2 ; end of sony vars excluding DCD
|
||
ENDIF
|
||
|
||
IF (hasPwrControls | hasPowerMgr) and NOT onHcMac and NOT onMac THEN ; <1.1> <Sys7.1>
|
||
chipState EQU sonyVarEnd ; Bit7 - saved VIA dir, 6..0 - pmgr enables <1.1>
|
||
diskSleepQEL EQU chipState+2 ; sleep/wakeup queue element
|
||
sonyVarEnd SET diskSleepQEL+SleepqRec.SleepqSize ; end of sony vars excluding DCD
|
||
ENDIF
|
||
|
||
IF forDiskDup THEN
|
||
fmtParams EQU sonyVarEnd ;pointer to parameters for special format command
|
||
gcrFmtByte EQU fmtParams+4 ; saved GCR format byte for duplicator
|
||
sonyVarEnd SET gcrFmtByte+1 ; <Sys7.1> removed clock32Mhz <H3> and DisableRetries <H4> (1 byte each)
|
||
ENDIF
|
||
|
||
|
||
IF onMac|onNuMacDCD THEN
|
||
;_______________________________________;
|
||
;
|
||
; (4) Direct-connect driver locals.
|
||
|
||
tagSize EQU 20 ; 20 bytes tags/block
|
||
dcdLclLth EQU 28 ; (use fields through DriveMisc)
|
||
drive3 EQU sonyVarEnd ; first DCD
|
||
drive4 EQU drive3+dcdLclLth ; second DCD
|
||
drive5 EQU drive4+dcdLclLth ; third DCD
|
||
drive6 EQU drive5+dcdLclLth ; fourth DCD
|
||
|
||
ENDIF
|
||
|
||
IF onMacPP|onHcMac THEN
|
||
;_______________________________________;
|
||
;
|
||
; (4) Direct-connect driver locals.
|
||
|
||
tagSize EQU 20 ; 20 bytes tags/block
|
||
dcdLclLth EQU 28 ; (use fields through DriveMisc)
|
||
drive4 EQU sonyVarEnd ; first DCD
|
||
drive5 EQU drive4+dcdLclLth ; second DCD
|
||
drive6 EQU drive5+dcdLclLth ; third DCD
|
||
ENDIF
|
||
|
||
IF onMac|onMacPP|onHcMac|onNuMacDCD THEN
|
||
|
||
|
||
stsRtnAddr EQU drive6+dcdLclLth ; DCD status call return address
|
||
dcdCmd EQU stsRtnAddr+4 ; command byte to DCD
|
||
response EQU dcdCmd ; response byte (command+$80)
|
||
seqNum EQU response+1 ; mb sequence number (sys commands only)
|
||
status EQU seqNum+1 ; returned status bytes
|
||
startBlock EQU status ; starting block # (in commands)
|
||
driveOut EQU startBlock+3 ; we send drive number in this field
|
||
driveIn EQU status+2 ; low 6 bits
|
||
tagBytes EQU status+4 ; tag bytes get stuffed here temporarily
|
||
devType EQU tagBytes ; first 20 bytes of status are written
|
||
devManufctr EQU devType+2 ; in the 20-byte tag buffer
|
||
devChar EQU devManufctr+2
|
||
devBlks EQU devChar ; low 3 bytes of this longword
|
||
devSpares EQU devChar+4
|
||
devBadBlks EQU devSpares+2
|
||
devMisc EQU devBadBlks+2 ; 8 bytes misc
|
||
bufSize EQU tagBytes+tagSize ; number of bytes/block
|
||
lastStatus EQU bufSize+4 ; last status returned
|
||
lastResult EQU lastStatus+4 ; error type
|
||
dcdFlags EQU lastResult+1 ; flag of whether we've done a reset
|
||
chkTime EQU dcdFlags+1 ; 100usec check ready count
|
||
maxTime EQU chkTime+2 ; maximum number of checks
|
||
stsBuffer EQU maxTime+2 ; 512 bytes of status
|
||
devReserve EQU stsBuffer
|
||
devIcon EQU devReserve+44
|
||
devFiller EQU devIcon+256 ; 32 bytes for optional name
|
||
diskVarLth EQU devFiller+32
|
||
stsBufSize EQU diskVarLth-stsBuffer
|
||
|
||
ELSE ;
|
||
diskVarLth EQU sonyVarEnd ;
|
||
ENDIF ;
|
||
|
||
; device characteristics byte:
|
||
|
||
devChEject EQU 4 ; ejectable if 1
|
||
devChWP EQU 3 ; write protected if 1
|
||
devChIcon EQU 2 ; icon available if 1
|
||
|
||
|
||
;_______________________________________;
|
||
; ;
|
||
; Drive Constants: ;
|
||
;_______________________________________;
|
||
|
||
|
||
dqSides EQU -1 ; Bit 7 of this byte: 0=single-sided Sony, 1=double sided
|
||
dqInstall EQU -2 ; 0=unknown, 1=installed, FF=no disk
|
||
dqDIP EQU -3 ; $FC-$FF = disk just ejected,
|
||
; 0 = no disk in place
|
||
; 1 = disk in place
|
||
; 2 = disk has been read
|
||
; >8 = non-ejectable disk
|
||
dqWrPrt EQU -4 ; Bit 7 of this byte: 1=disk is write protected.
|
||
|
||
dqManEjBit EQU 5 ; bit 5 of the dqInstall byte is set after <SM5> <BH 03Aug93>
|
||
; installation for a manual-eject drive
|
||
;_______________________________________;
|
||
;
|
||
; (1) Floppy drive constants (tuneable).
|
||
|
||
kSeekTime EQU 120 ; 12 ms trk-to-trk
|
||
kHdSetTime EQU 100*10 ; 100 ms head settle time <H6><SM4>
|
||
kEjectTime EQU 7500 ; .75 seconds eject time
|
||
kEjectWait EQU -4 ; - number of VBL calls after eject before dip check
|
||
kSectTime EQU 100 ; minimum sector time in 100 us increments (10 ms)
|
||
kPowerOn EQU 4000 ; read/write powerup time in 100 us increments
|
||
kRWPOff EQU 5 ; read/write power off time (in 1/2 seconds)
|
||
kDskVBLTime EQU 30 ; happens every 1/2 second
|
||
kSpdChgTime EQU 1500 ; speed change wait time = 150ms
|
||
kCkDelta EQU 14400 ; speed check delta time (in 1/60 sec) (4 min)
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (2) Floppy drive sense/control constants.
|
||
; (ca1-ca0-sel-ca2).
|
||
|
||
dirLAdr EQU 0 ; dirtn low
|
||
dirHAdr EQU 1
|
||
rdDtaAdr EQU 1 ; side 0 read data
|
||
rdDta1Adr EQU 3 ; side 1 read data
|
||
stepLAdr EQU 4 ; step low and step sense address
|
||
stepHAdr EQU 5
|
||
IF supportsMFM THEN
|
||
mfmModeAdr EQU 6 ;Switch drive into MFM (constant) mode
|
||
gcrModeAdr EQU 7 ;Switch drive into GCR (variable) mode
|
||
ENDIF
|
||
mtrOnAdr EQU 8
|
||
mtrOffAdr EQU 9
|
||
ejectLAdr EQU 12
|
||
ejectHAdr EQU 13
|
||
dipAdr EQU 2 ; disk in place sense address
|
||
mfmDrvAdr EQU 5 ;1=SuperDrive, 0=400K or 800K GCR
|
||
wrProtAdr EQU 6 ; write protect sense address
|
||
sidesAdr EQU 9 ; sense for number of sides
|
||
tk0Adr EQU 10 ; track 0 sense address
|
||
readyAdr EQU 11 ; /Ready sense address
|
||
drvExstAdr EQU 13 ; sense=0 when a drive is connected
|
||
tachAdr EQU 14 ; tach feedback sense address
|
||
newIntfAdr EQU 15 ; implements ready handshake if 1
|
||
IF supportsMFM THEN
|
||
twoMegAdr EQU 15 ;0=1 meg disk, 1=2 meg disk
|
||
ENDIF
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (3) Floppy drive formatting constants.
|
||
|
||
fmtByte EQU $02 ; 2-1 interleave, single-sided
|
||
fmt2Byte EQU $22 ; 2-1 interleave, double-sided
|
||
mustFindCt EQU 1500
|
||
minSync EQU 4 ; min number of inter-sector sync groups
|
||
IF supportsMFM THEN
|
||
|
||
numSDFmts EQU 3 ; 2 GCR + 1 MFM single-density
|
||
numDDFmts EQU 1 ; 1 MFM double-density format
|
||
ELSE
|
||
numSDFmts EQU 2 ; 2 GCR single density formats
|
||
ENDIF
|
||
|
||
IF onMac|onMacPP|onHcMac|onNuMacDCD THEN
|
||
;_______________________________________;
|
||
;
|
||
; (4) Direct-connect drive constants.
|
||
|
||
blkSize EQU 512 ; 512 bytes data/block
|
||
syncByte EQU $AA ; Sync byte for start of transmission
|
||
nonZerStat EQU 1
|
||
comErr EQU 2
|
||
|
||
; New HD20 error codes
|
||
|
||
wrtHsLw EQU $10 ; HSHK low before starting
|
||
wrtHSLwTO EQU $11 ; Time out waiting for HSHK to go low
|
||
wrtHSHighTO EQU $13 ; Time out waiting for HSHK to go high
|
||
rdHsHi EQU $20 ; HSHK high before starting
|
||
rdSyncTO EQU $21 ; Time out waiting for sync ($AA) bye
|
||
rdGroupTO EQU $22 ; Time out waiting for group
|
||
rdHoffSyncTO EQU $24 ; Time out waiting for sync after holdoff
|
||
rdHsHiTO EQU $25 ; Time out waiting for HSHK high
|
||
rdChksumErr EQU $26 ; Checksum error on response packet
|
||
invalidResp EQU $30 ; First byte in response packet was wrong
|
||
sqncNumErr EQU $31 ; Sequence number in response packet was wrong
|
||
dNumberErr EQU $32 ; Drive number in response packet was wrong
|
||
noResp EQU $40 ; No response packet ever received
|
||
|
||
; LastStatus
|
||
|
||
opFailed EQU 24 ; bit to test for operation failed
|
||
bChksum EQU 30 ; bit number for checksum error
|
||
|
||
; DCDFlags
|
||
|
||
resetonce EQU 0
|
||
retryonce EQU 1
|
||
maxTries EQU 4 ; max # times to try command
|
||
tSeekChk EQU 10 ; check during a seek every 1 ms
|
||
tSeekMax EQU 10000 ; max time for seek = 10 secs
|
||
tStsChk EQU 10 ; check during a status every 1 ms
|
||
tStsMax EQU 10000 ; max time for status = 10 secs
|
||
tQuickTime EQU 100
|
||
tNextChk EQU 7 ; check for next block after 700 µsec
|
||
tNextMax EQU 10000 ; max time for next block = 7 secs
|
||
tFVChk EQU 100 ; check during fmt/vfy every 10 ms
|
||
tFVMax EQU 18000 ; max time for fmt/vfy = 3 minutes
|
||
tRstAssert EQU 1000 ; assert reset for 100 msec
|
||
tRstSettle EQU 20000 ; 2 sec wait for busy to settle
|
||
tRstChk EQU 100 ; check during reset every 10 ms
|
||
tRstMax EQU 1600 ; max time for reset = 16 seconds
|
||
|
||
; DCD sense/cntl addr (ca1-ca0-sel-ca2)
|
||
|
||
dcdExist EQU 5 ; /Exist (/Sides=/DrvIn=1 also)
|
||
dcdReset EQU 1 ; for 1ms resets DCD controller
|
||
ENDIF ;
|
||
|
||
;_______________________________________;
|
||
; ;
|
||
; Driver Constants: ;
|
||
;_______________________________________;
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (1) Driver Control codes.
|
||
|
||
verifyCC EQU 5 ; 'verify' control code
|
||
formatCC EQU 6 ; 'format' control code
|
||
tagBufCC EQU 8 ; 'set tag buffer' control code
|
||
tCacheCC EQU 9 ; 'track cache' control
|
||
iconIDCC EQU 20 ; 'get icon id' control code
|
||
iconCC EQU 21 ; 'get icon' control code
|
||
iconLogCC EQU 22 ; 'get logical icon' code
|
||
infoCC EQU 23 ; 'get drive info' code
|
||
RetriesCC EQU 17232 ; 'Enable/Disable Retries' code <H4><SM4>
|
||
IF forDiskDup THEN
|
||
FmtCopyCC EQU $5343 ;one-pass format/copy/verify for disk duplicator
|
||
ENDIF
|
||
GetRawDataCC EQU 18244 ; 'get raw track data' code <1.5>
|
||
|
||
; (2) Driver Status codes.
|
||
|
||
fmtLstCode EQU 6 ;Returns a list of disk formats
|
||
IF supportsMFM THEN
|
||
mfmStsCode EQU 10 ;'Get MFM status' status code
|
||
ENDIF
|
||
SpdChkSts EQU 17232 ; Checks disk speed at a given track <H5><SM4>
|
||
IF forDiskDup THEN
|
||
DupVerSts EQU $4456 ;disk duplicator version supported (to match features)
|
||
FmtByteSts EQU $5343 ;return address header format byte
|
||
ENDIF ; for disk duplicator
|
||
|
||
|
||
;_______________________________________;
|
||
;
|
||
; Driver Vectors: ;
|
||
;_______________________________________;
|
||
|
||
;_______________________________________;
|
||
;
|
||
; (1) Location of disk routine vectors.
|
||
|
||
jFigTrkSpd EQU DiskVars
|
||
jDiskPrime EQU jFigTrkSpd+4
|
||
jRdAddr EQU jDiskPrime+4
|
||
jRdData EQU jRdAddr+4
|
||
jWrData EQU jRdData+4
|
||
jSeek EQU jWrData+4
|
||
jSetUpPoll EQU jSeek+4
|
||
jRecal EQU jSetUpPoll+4
|
||
jControl EQU jRecal+4
|
||
jWakeUp EQU jControl+4
|
||
jReSeek EQU jWakeUp+4
|
||
jMakeSpdTbl EQU jReSeek+4
|
||
jAdrDisk EQU jMakeSpdTbl+4
|
||
jSetSpeed EQU jAdrDisk+4
|
||
niblTbl EQU jSetSpeed+4
|
||
jDiskSel EQU $B40 ; (long) vector to .Sony DiskSelect routine
|
||
jSendCmd EQU $B44 ; (long) vector to .Sony DCD SendCmd routine
|
||
jDCDReset EQU $B48 ; (long) vector to .Sony DCD DCDReset routine
|
||
|
||
IF supportsMFM THEN
|
||
jMRdAddr EQU $680 ; (long) vector to MFM MRdAddr
|
||
jMRdData EQU jMRdAddr+4 ; (long) vector to MFM MRdData
|
||
jMWrData EQU jMRdData+4 ; (long) vector to MFM MWrData
|
||
ENDIF
|
||
|
||
ENDIF ;end exclusion of private information
|
||
|
||
ENDIF ; ...already included |