Skip to content

GitLab

Commit d980237a authored by Kevin Bracey's avatar Kevin Bracey
Browse files

* ADFS_DiscOp64 and ADFS_ATAPIOp added. 

* New FileCore error passing scheme supported.
* PCI floppy support functional.
* 48-bit LBA support added for ADFS_IDEUserOp and accessing beyond the
  first 128GB of a drive - not thoroughly tested.
* IDE autodetection improved

Version 3.34. Tagged as 'ADFS-3_34'
parent 81c8d7c3
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1955 additions and 387 deletions
Resources/UK/Messages
View file @ d980237a
No preview for this file type
Ver/Tungsten
View file @ d980237a
......@@ -7,7 +7,8 @@ A1 SETL {TRUE}
Top16Write SETL {FALSE}
IOMD SETL {TRUE}
NewTransferCode SETL {TRUE}
FloppyPodule SETL {TRUE}
;Override_PDevNo SETA 37
FloppyPodule SETL {FALSE}
FloppyPCI SETL :LNOT:FloppyPodule
UseDiscOp64 SETL {TRUE}
END
Version
View file @ d980237a
......@@ -25,5 +25,7 @@ test_version SETL {FALSE}
GBLL ByteAddressedHW
GBLA Override_PDevNo
GBLL FloppyPodule
GBLL FloppyPCI
GBLL UseDiscOp64
END
VersionASM
View file @ d980237a
......@@ -7,19 +7,17 @@
GBLS Module_MinorVersion
GBLS Module_Date
GBLS Module_FullVersion
GBLS Module_ApplicationDate2
GBLS Module_ApplicationDate4
GBLS Module_ApplicationDate
GBLS Module_HelpVersion
GBLS Module_ComponentName
GBLS Module_ComponentPath
Module_MajorVersion SETS "3.33"
Module_Version SETA 333
Module_MajorVersion SETS "3.34"
Module_Version SETA 334
Module_MinorVersion SETS ""
Module_Date SETS "18 Sep 2002"
Module_ApplicationDate2 SETS "18-Sep-02"
Module_ApplicationDate4 SETS "18-Sep-2002"
Module_Date SETS "17 Jan 2003"
Module_ApplicationDate SETS "17-Jan-03"
Module_ComponentName SETS "ADFS"
Module_ComponentPath SETS "RiscOS/Sources/FileSys/ADFS/ADFS"
Module_FullVersion SETS "3.33"
Module_HelpVersion SETS "3.33 (18 Sep 2002)"
Module_FullVersion SETS "3.34"
Module_HelpVersion SETS "3.34 (17 Jan 2003)"
END
VersionNum
View file @ d980237a
/* (3.33)
/* (3.34)
*
* This file is automatically maintained by srccommit, do not edit manually.
* Last processed by srccommit version: 1.68.
*
*/
#define Module_MajorVersion_CMHG 3.33
#define Module_MajorVersion_CMHG 3.34
#define Module_MinorVersion_CMHG
#define Module_Date_CMHG 18 Sep 2002
#define Module_Date_CMHG 17 Jan 2003
#define Module_MajorVersion "3.33"
#define Module_Version 333
#define Module_MajorVersion "3.34"
#define Module_Version 334
#define Module_MinorVersion ""
#define Module_Date "18 Sep 2002"
#define Module_Date "17 Jan 2003"
#define Module_ApplicationDate2 "18-Sep-02"
#define Module_ApplicationDate4 "18-Sep-2002"
#define Module_ApplicationDate "17-Jan-03"
#define Module_ComponentName "ADFS"
#define Module_ComponentPath "RiscOS/Sources/FileSys/ADFS/ADFS"
#define Module_FullVersion "3.33"
#define Module_HelpVersion "3.33 (18 Sep 2002)"
#define Module_LibraryVersionInfo "3:33"
#define Module_FullVersion "3.34"
#define Module_HelpVersion "3.34 (17 Jan 2003)"
#define Module_LibraryVersionInfo "3:34"
hdr/ADFS
View file @ d980237a
......@@ -54,6 +54,9 @@ SWIClass SETS ADFSSWI_Name
AddSWI ECCSAndRetries ; &40250
AddSWI LockIDE ; &40251
AddSWI FreeSpace64 ; &40252
AddSWI IDEDeviceInfo ; &40253
AddSWI DiscOp64 ; &40254
AddSWI ATAPIOp ; &40255
ADFSSWICheckValue * @
......
s/ADFS
View file @ d980237a
......@@ -51,6 +51,7 @@ ARM810support SETL {FALSE}
GET Hdr:HALEntries
GET Hdr:PCI
GET Hdr:Podule
GET Hdr:DMA
GET s.NewBits
GET s.ADFSMacros
......@@ -65,6 +66,7 @@ ARM810support SETL {FALSE}
GET s.ADFS13
GET s.ADFS14
GET s.IDEDetect
GET s.ATAPI
GET s.ADFS15
GET s.ADFS17
GET s.ADFS18
......
s/ADFS_SA
View file @ d980237a
......@@ -49,6 +49,14 @@ C15 CN 15
; exit: corrupts r0,r1,r2
;
ADFSsync ROUT
[ HAL
Push "lr"
MOV r0, #1
MOV r1, r0
MOV r2, r1
SWI XOS_SynchroniseCodeAreas
Pull "pc"
|
MRC ARM_config_cp,0,r2,ARM_ID_reg,C0,0
AND r2,r2,#&F000
CMP r2,#&A000
......@@ -73,7 +81,9 @@ ADFSsync ROUT
MOV r0,r0
02
]
MOVS pc,lr
MOV pc,lr
] ;HAL
] ;StrongARM
......
s/ATAPI 0 → 100644
View file @ d980237a
; Copyright 2003 Tematic Ltd
;
; Licensed under the Apache License, Version 2.0 (the "License");
; you may not use this file except in compliance with the License.
; You may obtain a copy of the License at
;
; http://www.apache.org/licenses/LICENSE-2.0
;
; Unless required by applicable law or agreed to in writing, software
; distributed under the License is distributed on an "AS IS" BASIS,
; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
; See the License for the specific language governing permissions and
; limitations under the License.
;
;*********************************************************************
DoSwiATAPIOp ROUT
;
; Direct user interface for ATAPI commands.
; Must not be called in background.
;
; Entry:
; R0 = b0 = action
; 1 => reset device (R1-R4 unused)
; 0 => process command
; b15 = device
; b23..b16 = controller number
; b25..b24 = transfer direction
; 00 => no transfer (R3-R4 unused)
; 01 => read
; 10 => write
; 11 reserved
; R1 = length of control block (control block must be 12)
; R2 -> control block
; R3 -> buffer for data transfer
; R4 = length to transfer
; R5 = timeout in centiseconds (0 = default)
; SB -> static workspace
; MODE: SVC
; IRQ state: unknown
;
; Exit:
; VS => error
; R0 -> error block
; VC => no error
; R0 = command status (0 or a disc error number)
; Parameter block updated
; R3 updated
; R4 updated
; All other registers preserved
; IRQ state: preserved but IRQs enabled during call
[ Debug21
DLINE "DoSwiATAPIOp",cc
]
[ Debug24
DREG R0,"(",cc
DREG R1,",",cc
DREG R2,",",cc
DREG R3,",",cc
DREG R4,",",cc
DREG R5,",",cc
DLINE ")"
]
[ HAL
Push "R1,R2,R6,R7,R9,IDECtrl,IDE,LR"
|
Push "R1,R2,R6,R7,R9,IDE,LR"
]
SavePSR LR
Push "LR"
ATAPIOp_EntryR1 * 4
; Check that we have an IDE controller
AND LR,R0,#&FF:SHL:WinIDEControllerShift
sbaddr R9,WinIDEHardware
[ TwinIDEHardware
CMP LR,#1:SHL:WinIDEControllerShift
ADDEQ R9,R9,#SzWinIDEHardware
LDRLSB LR,[R9,#WinIDEIRQDevNo]
MOVHI LR,#0
|
TEQ LR,#0
LDREQB LR,[R9,#WinIDEIRQDevNo]
MOVNE LR,#0
]
TEQS LR,#0 ; got controller?
baddr R0,BadDriveErrBlk,EQ ; if not, R0 -> error block
BEQ %FT89 ; ...and branch
[ {TRUE}
TST R0,#bit0
; KJB just a quicky to prevent blow-ups while locked - see below
LDREQB LR,[R2] ; abort now rather than later
SUBEQ LR,R1,#1
LDREQB LR,[R2,LR]
]
; We do have a controller to talk to - lock it
BL LockIDEController
baddr R0,DriverInUseErrBlk,VS ; if error, R0 -> error block
BVS %FT89 ; ...and branch
MOV R7,R0 ; save R0
[ {FALSE}
; KJB - don't do this for now - CDFSSoftATAPI passes blocks from ROM
; Check parameter block is valid address
TST R7,#bit0
BNE %FT03
MOV R0,R2
ADD R1,R0,R1 ; bytes we need in parameter block
SWI XOS_ValidateAddress ; check the addresses
BCS %FT82 ; branch if invalid
03
]
; Enable interrupts so timers work
WritePSRc SVC_mode,LR
; Set R5 = timeout
TEQS R5,#0 ; default timeout?
MOVEQ R5,#WinIDETimeoutUser
; Set IDE -> IDE controller
[ TwinIDEHardware
STR R9,WinIDECurrentHW
]
[ HAL
ASSERT WinIDECtrlPtr = 0
LDMIA R9,{IDECtrl,IDE}
|
LDR IDE,[R9,#WinIDEPtr]
]
; Check if user wants to issue command or reset device
; R7 = original R0
TSTS R7,#bit0 ; 0 => reset
BNE %FT30 ; branch if reset
; Set up R6 to point to data transfer routine (or 0) and R1 to be either
; ReadSecsOp or WriteSecsOp for WinIDEInstallTransferCode
MOV R6,#0 ; assume no data transfer
AND LR,R7,#WinIDEDirectionMask ; direction bits
TEQS LR,#WinIDEDirectionWrite ; write?
LDREQ R6,[R9,#WinIDEWritePtr] ; if write, R6 -> write code
MOVEQ R1,#WriteSecsOp ; R1 = write sectors
TEQS LR,#WinIDEDirectionRead ; else read?
LDREQ R6,[R9,#WinIDEReadPtr] ; if read, R6 -> read code
MOVEQ R1,#ReadSecsOp ; R1 = read sectors
; If data transfer requested, validate buffer address, install transfer
; code and set R1 -> buffer
TEQS R6,#0 ; data transfer requested?
BEQ %FT05 ; branch if not
; R1 = value to determine what transfer code is needed
; R3 -> buffer
; R4 = buffer length
; R6 -> data transfer routine
[ :LNOT: NewTransferCode
[ Debug21
DLINE "Installing transfer code..."
]
BL WinIDEInstallTransferCode ; install RAM code (R1->R0)
[ Debug21
DLINE "Installation successful"
]
]
MOV R0,R3 ; R0 -> start of buffer
ADD R1,R0,R4 ; R1 -> end of buffer
SWI XOS_ValidateAddress ; check the addresses
BCS %FT82 ; branch if invalid
; buffer addresses are valid
05
; Set up PACKET command
MOV R0,#0
STRB R0,WinIDEParmPrecomp ; DMA and OVL bits 0
STRB R0,WinIDEParmSecCount ; tag = 0
STRB R0,WinIDEParmLBA0to7 ; n/a
MOV R0,#WinIDEATAPIByteCount:AND:&FF
STRB R0,WinIDEParmLBA8to15 ; byte count low
MOV R0,#WinIDEATAPIByteCount:SHR:8
STRB R0,WinIDEParmLBA16to23 ; byte count high
TST R7,#bit15
MOVEQ R0,#IDEDrvHeadMagicBits+0:SHL:IDEDriveShift
MOVNE R0,#IDEDrvHeadMagicBits+1:SHL:IDEDriveShift
STRB R0,WinIDEParmDrvHead
MOV R0,#IDECmdPacket:OR:bit8
STRB R0,WinIDECommandCode ; so transfer routines know
BL WinIDECommandDisc ; (R0->R0,V)
BVS %FT70
; Allow time for drive to go busy (upto 400ns according to ATA spec).
07 MOV R0,#1*2 ; 1/2 us units
BL DoMicroDelay
; Start timer
STR R5,WinTickCount
10
; Wait for !BSY or timeout
; !BSY rather than interrupt as not ALL commands end with interrupt
BL WinIDEWaitNotBusy ; NE => busy
MOVNE R0,#WinIDEErrTimeout ; if still busy, error...
BNE %FT70 ; ...branch
LDRB R0,IDERegStatus
TSTS R0,#ATAPIStatusDRQ ; ready for data?
BNE %FT15
; Not ready for data - check for error
BL WinIDEDecodeATAPIStatus ; if error, decode status...
B %FT70 ; ...and branch
15
; Transfer the command packet
[ Debug24
DLINE "Moving command packet"
]
LDR R1,[R13,#ATAPIOp_EntryR1]
16 CMP R1,#1
LDRHSB LR,[R2],#1
LDRHIB R7,[R2],#1
ORRHI LR,LR,R7,LSL #8
SUBHS R1,R1,#2
[ NewTransferCode
STRHSH LR,IDERegData
|
STRHS LR,IDERegData
]
BHI %BT16
MOV R1,R3 ; R1 -> buffer
20
STR R5,WinTickCount ; reset timeout counter
LDRB LR,IDERegAltStatus ; delay before checking result
BL WinIDEWaitNotBusy ; NE => busy
MOVNE R0,#WinIDEErrTimeout ; if still busy, error...
BNE %FT70 ; ...branch
LDRB R0,IDERegStatus
TST R0,#ATAPIStatusDRQ
BNE %FT25
; Not ready for data - check for error
BL WinIDEDecodeATAPIStatus ; if error, decode status...
B %FT70 ; ...and branch
25
; Check if transfer requested
TEQS R6,#0 ; any transfer routine?
BEQ %FT50 ; branch if not
; Transfer requested - check data length
CMPS R4,#0 ; any data (left) to move
BLE %FT50 ; branch if not
LDRB R0,IDERegLBAMid
LDRB LR,IDERegLBAHigh
ORR R7,R0,LR,LSL #8 ; R0 = length of this chunk
[ Debug24
DREG R7,"Transfer size="
]
ADD R3,R3,R7
SUB R4,R4,R7
; DRQ and data transfer requested: move data
27 MOV R0,R7
MOV LR,PC ; set link
MOV PC,R6 ; branch to routine
; data transfer routine returns here (all flags preserved)
SUBS R7,R7,#512 ; it transferred 1 sector max
BGT %BT27 ; if more to go, do it again
B %BT20 ; back to Check_Status_B state
;****** Never fall through
30
; Reset device
; R5 = timeout for drive !busy
; IDE -> controller
; Send DEVICE RESET command (immediately)
MOV R0,#0
TST R7,#bit15
MOVEQ R0,#IDEDrvHeadMagicBits+0:SHL:IDEDriveShift
MOVNE R0,#IDEDrvHeadMagicBits+1:SHL:IDEDriveShift
STRB R0,IDERegDrvHead
MOV R0,#IDECmdDeviceReset
STRB R0,IDERegCommand
; Start timer
STR R5,WinTickCount
MOV R0,#1*2 ; 1/2 us units
BL DoMicroDelay
; Wait for drive to be not busy so can return register contents
BL WinIDEWaitNotBusy ; NE => busy
MOVNE R0,#WinIDEErrTimeout ; if so, error...
BNE %FT70 ; ...and branch
; Check for error
LDRB R0,IDERegStatus
TSTS R0,#IDEStatusErrorBits
BEQ %FT50
BL WinIDEDecodeATAPIStatus ; if error, decode status...
B %FT70 ; ...and branch
50
; No error
MOV R0,#0 ; all ok
70
[ Debug24
DREG R0,"Completed - status=",,Byte
]
; Transfer done or no data transfer requested
; R0 = status to return to user
; Cancel timer to speed up ticker routine
MOV LR,#0
STR LR,WinTickCount
; unlock IDE controller
BL UnlockIDEController
; Return
Pull "LR"
BIC LR,LR,#V_bit
RestPSR LR,,cf
[ HAL
Pull "R1,R2,R6,R7,R9,IDECtrl,IDE,PC" ; restore IRQ state and return
|
Pull "R1,R2,R6,R7,R9,IDE,PC" ; restore IRQ state and return
]
;****** Never fall through
82
; bad parameter block or buffer address (controller is locked)
baddr R0,BadAddressErrBlk ; R0 -> error block
BL UnlockIDEController
89
; call international stuff to make R0 -> international error block
BL copy_error ; (R0->R0)
Pull "LR"
ORR LR,LR,#V_bit
RestPSR LR,,cf
[ HAL
Pull "R1,R2,R6,R7,R9,IDECtrl,IDE,PC"
|
Pull "R1,R2,R6,R7,R9,IDE,PC"
]
END
s/Adfs00
View file @ d980237a
......@@ -389,7 +389,7 @@ DefGlobals
DefGlobStart # 0
; WINNIE
# 1
NewErrorsFlag # 1 ;<>0 if our FileCore expects new error codes
= 0
SpecifiedWinnie # 1
= &FF
......@@ -477,6 +477,8 @@ HAL_IRQEnable_routine a4 8
HAL_IRQDisable_routine a4 8
HAL_IRQStatus_routine a4 8
HAL_CounterDelay_routine a4 8
HAL_FIQEnable_routine a4 8
HAL_FIQDisableAll_routine a4 8
]
;Low level workspace
......
s/Adfs05
View file @ d980237a
......@@ -53,7 +53,7 @@ $GetAroundBleedingAAsmYetAgain
[ Dev
[ Debug
; Set to true for debugging through the tube
Host_Debug SETL F
Host_Debug SETL T
; Set to true to robustify debugging in IRQ mode
Debug_MaybeIRQ SETL T
......
s/Adfs12
View file @ d980237a
......@@ -188,7 +188,7 @@ WinInit ROUT
; Indicate no cmd currently running
; R0 = 0
STRB R0,WinIDECommandActive
STR R0,WinIDECommandActive
; Flag both IDE drives not initialised
; R0 = 0
......@@ -289,7 +289,7 @@ WinInit ROUT
BVS %FT80
MOV R0,#0 ; -SRST IEN
STRB R0,[R4,#:INDEX:IDERegDigOutput]
STRB R0,[R4,#:INDEX:IDERegDevCtrl]
[ TwinIDEHardware
Push "R9,R12"
......@@ -325,12 +325,19 @@ WinInit ROUT
MOV R14,#1
STRB R14,[R9,#WinIDEBusNo]
MOV R0,#0
BL WinIDESetDefaultTimings
[ TwinIDEHardware
MOV R0,#2
BL WinIDESetDefaultTimings
]
TEQ R3,#0
BLNE WinClaimIDEIRQs
BVS %FT80
MOV R0,#0 ; -SRST IEN
STRB R0,[R4,#:INDEX:IDERegDigOutput]
STRB R0,[R4,#:INDEX:IDERegDevCtrl]
]
[ :LNOT:AutoDetectIDE
......@@ -465,7 +472,7 @@ WinInit ROUT
LDR R2,WinIDEHardware+WinIDECtrlPtr
]
MOV R0,#0 ; -SRST IEN
STRB R0,[R2,#:INDEX:IDERegDigOutput]
STRB R0,[R2,#:INDEX:IDERegDevCtrl]
15
; Read CMOS spin down delay and save
......@@ -996,12 +1003,7 @@ WinMount ROUT
MOVCS LR,#&FF ; if ST506, say no disc specified
STRCSB LR,SpecifiedWinnie
[ IDEFixedLowSector
baddr R5,WinnieTestDiscRec ; R5 -> test disc record
|
baddr R5,WinnieTestDiscRec,CS ; R5 -> ST506 test disc record
baddr R5,WinIDETestDiscRec,CC ; R5 -> IDE test disc record
]
; IDE: we need to get the InitDriveParms flag from the boot block on
; completion of the read
......@@ -1021,7 +1023,7 @@ WinMount ROUT
02
]
[ BigDisc
[ BigDisc:LAND::LNOT:NewErrors
BVS %FT82 ; branch if read failed
|
BVS %FT80 ; branch if read failed
......@@ -1100,7 +1102,9 @@ WinMount ROUT
TEQS R6,R4 ; matches?
[ Debug21
DREG R5,"R5="
BREG R4,"Stored="
BREG R6,"Calced="
DLINE "Boot block checksum ",cc