2434 lines
300 KiB
Plaintext
2434 lines
300 KiB
Plaintext
{{
|
|
┌─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ File Allocation Table Engine │
|
|
│ │
|
|
│ Author: Kwabena W. Agyeman │
|
|
│ Updated: 1/18/2009 │
|
|
│ Designed For: P8X32A │
|
|
│ │
|
|
│ Copyright (c) 2009 Kwabena W. Agyeman │
|
|
│ See end of file for terms of use. │
|
|
│ │
|
|
│ Driver Info: │
|
|
│ │
|
|
│ The FATEngine runs a SD/SDHC/MMC driver in the next free cog on the propeller chip when called. │
|
|
│ │
|
|
│ The driver, is only guaranteed and tested to work at an 80Mhz system clock or higher. The driver is designed for the P8X32A │
|
|
│ so port B will not be operational. │
|
|
│ │
|
|
│ Nyamekye, │
|
|
└─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|
|
|
|
{{
|
|
|
|
ANPASSUNGEN HIVE-PROJECT
|
|
|
|
Informationen : hive-project.de
|
|
Kontakt : drohne235@googlemail.com
|
|
System : TriOS
|
|
Name : Komponente von Administra-Flash
|
|
Chip : Administra
|
|
Version : 00
|
|
Subversion : 01
|
|
|
|
Hinweise :
|
|
|
|
Alle Änderungen am Originalquelltext sind mit der Marke "@hive" gekennzeichnet. Die unveränderte
|
|
Originalquelle wird nur auskommentiert.
|
|
|
|
Logbuch :
|
|
|
|
25-03-2010-dr235 - änderung der fehlerstrings in fehlernummern für eine bessere auswertung
|
|
27-03-2010-dr235 - listVolumeLabel eingefügt
|
|
28-03-2010-dr235 - änderung des openFile parameters "modus" von 0-term-string zu 8bit-parameter
|
|
12-04-2010-dr235 - getDirCluster & setDirCluster für dir-marker system zugefügt
|
|
09-06-2010-dr085 - frida hat den fehler gefunden, welcher eine korrekte funktion der fatengine
|
|
nach einem bootvorgang von administra verhinderte :)
|
|
14-06-2010-dr085 - löschen der semaphore vor dem bootvorgang
|
|
|
|
Notizen :
|
|
|
|
|
|
}}
|
|
CON
|
|
''
|
|
Data_Out_Pin = 10 '' ─ Data Out - To SD Card DO Pin.
|
|
''
|
|
Clock_Pin = 11 '' ─ Clock - To SD Card CLK Pin.
|
|
''
|
|
Data_In_Pin = 12 '' ─ Data In - To SD Card DI Pin.
|
|
''
|
|
Chip_Select_Pin = 13 '' ─ Chip Select - To SD Card CS.
|
|
|
|
'frida HUB_Lock = 0 ' Hub Lock To use for multiple files open with multiple copies of this object at once.
|
|
|
|
' FEHLERNUMMERN '@hive
|
|
|
|
err_noError = 0
|
|
err_fsysUnmounted = 1
|
|
err_fsysCorrupted = 2
|
|
err_fsysUnsupported = 3
|
|
err_notFound = 4
|
|
err_fileNotFound = 5
|
|
err_dirNotFound = 6
|
|
err_fileReadOnly = 7
|
|
err_endOfFile = 8
|
|
err_endOfDirectory = 9
|
|
err_endOfRoot = 10
|
|
err_dirIsFull = 11
|
|
err_dirIsNotEmpty = 12
|
|
err_checksumError = 13
|
|
err_rebootError = 14
|
|
err_bpbCorrupt = 15
|
|
err_fsiCorrupt = 16
|
|
err_dirAlreadyExist = 17
|
|
err_fileAlreadyExist = 18
|
|
err_outOfDiskFreeSpace = 19
|
|
err_diskIOError = 20
|
|
|
|
|
|
OBJ
|
|
|
|
rtc : "admflash-rtc.spin"
|
|
' debugx : "pterm" 'debug
|
|
|
|
VAR
|
|
|
|
byte dataBlock[512]
|
|
|
|
word cardTime
|
|
word cardDate
|
|
|
|
byte cardUniqueIDCopy[17]
|
|
byte partitionMountedFlag
|
|
|
|
byte fileOpenFlag
|
|
byte fileReadWriteFlag
|
|
|
|
long partitionStart
|
|
long partitionSize
|
|
|
|
byte sectorsPerCluster
|
|
byte numberOfFATs
|
|
word reservedSectorCount
|
|
|
|
long FATSectorSize
|
|
|
|
word rootDirectorySectors
|
|
word rootDirectorySectorNumber
|
|
|
|
long hiddenSectors
|
|
|
|
long firstDataSector
|
|
long countOfClusters
|
|
|
|
long FATType
|
|
long rootCluster
|
|
|
|
word fileSystemInfo
|
|
word backupBootSector
|
|
|
|
long freeClusterCount
|
|
long nextFreeCluster
|
|
|
|
long volumeIdentification
|
|
|
|
word externalFlags
|
|
byte mediaType
|
|
byte unformatedNameBuffer[13]
|
|
byte formatedNameBuffer[12]
|
|
|
|
byte directoryEntryName[12]
|
|
byte directoryEntry[32]
|
|
|
|
long currentDirectory
|
|
long currentFile
|
|
|
|
long currentCluster
|
|
long currentByte
|
|
|
|
' long previousDirectory
|
|
long currentSize
|
|
|
|
long previousCluster
|
|
long previousByte
|
|
|
|
byte sdvolumeLabel[12] 'frida
|
|
|
|
PUB readShort '' 28 Stack Longs
|
|
|
|
readData(@result, 2)
|
|
|
|
PUB readLong '' 28 Stack Longs
|
|
|
|
readData(@result, 4)
|
|
|
|
PUB writeShort(value) '' 29 Stack Longs
|
|
|
|
writeData(@value, 2)
|
|
|
|
PUB writeLong(value) '' 29 Stack Longs
|
|
|
|
writeData(@value, 4)
|
|
|
|
PUB readData(addressToPut, count) | index '' 25 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Reads data from the file that is currently open for reading and advances the position by that amount of data. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is not currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ AddressToPut - A pointer to the start of a data buffer to read to from disk. │
|
|
'' │ Count - The amount of data to read from disk. The data buffer must be atleast this large. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
count #>= 0
|
|
repeat while((count > 0) and readWriteCurrentCluster("R", "F"))
|
|
|
|
index := (currentByte & $1FF)
|
|
result := (count <# (512 - index))
|
|
|
|
bytemove(addressToPut, @dataBlock[index], result)
|
|
|
|
count -= result
|
|
currentByte += result
|
|
addressToPut += result
|
|
currentByte <#= (currentSize - 1)
|
|
|
|
PUB writeData(addressToGet, count) | index '' 25 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Writes data to the file that is currently open for writing and advances the position by that amount of data. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is not currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ This throws an error if the file is open for reading only. │
|
|
'' │ │
|
|
'' │ Max writable file size is 2,147,483,136 bytes. Exceeding this throws an error. │
|
|
'' │ │
|
|
'' │ AddressToGet - A pointer to the start of a data buffer to write to disk. │
|
|
'' │ Count - The amount of data to write to disk. The data buffer must be atleast this large. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
count #>= 0
|
|
repeat while((count > 0) and readWriteCurrentCluster("W", "F"))
|
|
|
|
index := (currentByte & $1FF)
|
|
result := (count <# (512 - index))
|
|
|
|
bytemove(@dataBlock[index], addressToGet, result)
|
|
flushCharacters
|
|
|
|
count -= result
|
|
currentByte += result
|
|
addressToGet += result
|
|
currentSize #>= currentByte
|
|
|
|
PUB readCharacter '' 22 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Reads a character from the file that is currently open for reading and advances the position by one. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is not currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ Returns the next character to read from the file. At the end of file returns the last character in the file repeatedly. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(readWriteCurrentCluster("R", "F"))
|
|
|
|
result := blockToByte(currentByte++)
|
|
currentByte <#= (currentSize - 1)
|
|
|
|
PUB writeCharacter(character) '' 23 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Writes a character to the file that is currently open for writing and advances the position by one. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is not currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ This throws an error if the file is open for reading only. │
|
|
'' │ │
|
|
'' │ Max writable file size is 2,147,483,136 bytes. Exceeding this throws an error. │
|
|
'' │ │
|
|
'' │ Character - A character to write to the file. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(readWriteCurrentCluster("W", "F"))
|
|
|
|
byteToBlock(currentByte++, character)
|
|
|
|
ifnot($1FF & currentByte--)
|
|
flushCharacters
|
|
|
|
currentSize #>= ++currentByte
|
|
|
|
PUB writeCharacters(characters) '' 27 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Writes a string of characters to the file that is currently open for writing and advances the position by string length. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is not currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ This throws an error if the file is open for reading only. │
|
|
'' │ │
|
|
'' │ Max writable file size is 2,147,483,136 bytes. Exceeding this throws an error. │
|
|
'' │ │
|
|
'' │ Characters - A pointer to a string of characters to write to the file. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
repeat strsize(characters)
|
|
writeCharacter(byte[characters++])
|
|
|
|
PUB flushCharacters '' 12 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Writes buffered data to disk. All file writes are buffered and are not written to disk immediantly. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(partitionMountedFlag and fileOpenFlag and fileReadWriteFlag)
|
|
readWriteCurrentSector("W")
|
|
|
|
PUB getCharacterPosition '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the current character position within a file for reading and writing. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (currentByte & (partitionMountedFlag and fileOpenFlag))
|
|
|
|
PUB setCharacterPosition(position) | backUpPosition '' 17 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Sets the current character position within a file for reading and writing. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ Position - A character position in the file. Set to false to go to the begining of the file and true to go to the end. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(partitionMountedFlag and fileOpenFlag)
|
|
|
|
position := ((position <# (currentSize - 1)) #> 0)
|
|
backUpPosition := position
|
|
|
|
currentByte >>= 9
|
|
position >>= 9
|
|
|
|
if(position <> currentByte)
|
|
flushCharacters
|
|
|
|
currentByte /= sectorsPerCluster
|
|
position /= sectorsPerCluster
|
|
|
|
if(position <> currentByte)
|
|
if(position < currentByte)
|
|
currentByte := 0
|
|
currentCluster := currentFile
|
|
|
|
repeat until(position == currentByte++)
|
|
|
|
readWriteFATBlock(currentCluster, "R")
|
|
currentCluster := readFATEntry(currentCluster)
|
|
|
|
if((currentCluster =< 1) or (FATEndOfClusterValue =< currentCluster))
|
|
partitionMountedFlag := false
|
|
' abort @FSCorrupted '@hive
|
|
abort err_fsysCorrupted
|
|
|
|
result := true
|
|
|
|
currentByte := backUpPosition
|
|
|
|
if(result)
|
|
readWriteCurrentSector("R")
|
|
|
|
PUB closeFile '' 15 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Closes the currently open file in the current directory. Files opened for writing that are not closed will be corrupted. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
flushCharacters
|
|
if(partitionMountedFlag and fileOpenFlag~)
|
|
|
|
currentByte := previousByte
|
|
currentCluster := previousCluster
|
|
|
|
readWriteCurrentSector("R")
|
|
|
|
wordToBlock((currentByte + 18), readClock)
|
|
|
|
if(fileReadWriteFlag)
|
|
|
|
wordToBlock((currentByte + 22), cardTime)
|
|
wordToBlock((currentByte + 24), cardDate)
|
|
longToBlock((currentByte + 28), currentSize)
|
|
|
|
dataBlock[(currentByte + 11) & $1FF] |= $20
|
|
|
|
readWriteCurrentSector("W")
|
|
|
|
PUB openFile(fileName, mode) '' 33 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Opens a file in the current directory for reading or writing. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ The "." and ".." entries are ignored by this function. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the file. │
|
|
'' │ │
|
|
'' │ FileName - The name of the file to open for reading or writing. │
|
|
'' │ Mode - A string of characters containing the mode to open the file in. R-Read, W-Write, A-Append. Default read. │
|
|
'' │ │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listFind(formatName(fileName), @fileNotFound))
|
|
result := unformatName(listFind(formatName(fileName), err_fileNotFound)) '@hive
|
|
|
|
if(listIsDirectory)
|
|
' abort @fileNotFound '@hive
|
|
abort err_fileNotFound
|
|
|
|
currentFile := listCluster
|
|
|
|
ifnot(currentFile)
|
|
currentFile := createClusterChain(0)
|
|
|
|
readWriteCurrentSector("R")
|
|
dataBlock[(currentByte + 11) & $1FF] |= $20
|
|
wordToBlock((currentByte + 18), readClock)
|
|
wordToBlock((currentByte + 26), (currentFile & $FFFF))
|
|
wordToBlock((currentByte + 20), (currentFile >> 16))
|
|
readWriteCurrentSector("W")
|
|
|
|
' fileReadWriteFlag := findCharacter(mode, "W") '@hive
|
|
fileReadWriteFlag := mode == "W"
|
|
|
|
if(listIsReadOnly and fileReadWriteFlag)
|
|
' abort string("File Read Only") '@hive
|
|
abort err_fileReadOnly
|
|
|
|
currentSize := listSize
|
|
previousByte := currentByte
|
|
previousCluster := currentCluster
|
|
' currentByte := ((findCharacter(mode, "A") and fileReadWriteFlag) & currentSize) '@hive
|
|
currentByte := (( (mode == "A") and fileReadWriteFlag) & currentSize)
|
|
currentCluster := currentFile
|
|
|
|
readWriteCurrentSector("R")
|
|
fileOpenFlag := true
|
|
|
|
PUB newFile(fileName) '' 40 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Creates a new file in the current directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the file. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ FileName - The name of the new file to create. Must be a new unique name in the current directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listNew(formatName(fileName), $20, readClock, cardTime, 0, "F")) '@hive
|
|
unformatName(listNew(formatName(fileName), $20, readClock, cardTime, 0, "F")) '@hive
|
|
listReset
|
|
|
|
PUB newDirectory(directoryName) '' 40 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Creates a new directory in the current directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the directory. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ DirectoryName - The name of the new directory to create. Must be a new unique name in the current directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listNew(formatName(directoryName), $30, readClock, cardTime, 0, "D")) '@hive
|
|
unformatName(listNew(formatName(directoryName), $30, readClock, cardTime, 0, "D"))
|
|
|
|
directoryName := currentDirectory
|
|
currentDirectory := currentFile
|
|
|
|
listNew(@dot, $10, cardDate, cardTime, currentDirectory, "F")
|
|
listNew(@dotdot, $10, cardDate, cardTime, directoryName, "F")
|
|
|
|
currentDirectory := directoryName
|
|
listReset
|
|
|
|
PUB deleteEntry(entryName) '' 32 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Deletes a file or directory in the current directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ Cannot delete non empty directories. This throws and error. │
|
|
'' │ │
|
|
'' │ The "." and ".." entries are ignored by this function. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the file or directory. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ EntryName - The name of the file or directory to delete. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listFind(formatName(entryName), @fileOrDirectoryNotFound)) '@hive
|
|
result := unformatName(listFind(formatName(entryName), err_notFound))
|
|
|
|
if(listIsDirectory)
|
|
|
|
previousByte := currentByte~
|
|
previousCluster := currentCluster
|
|
currentCluster := listCluster
|
|
|
|
repeat
|
|
entryName := listDirectory("R")
|
|
|
|
ifnot(entryName)
|
|
quit
|
|
|
|
if(byte[entryName] <> ".")
|
|
' abort string("Directory Is Not Empty") '@hive
|
|
abort err_dirIsNotEmpty
|
|
|
|
currentByte := previousByte
|
|
currentCluster := previousCluster
|
|
|
|
readWriteCurrentSector("R")
|
|
|
|
byteToBlock(currentByte, $E5)
|
|
readWriteCurrentSector("W")
|
|
|
|
destroyClusterChain(listCluster)
|
|
listReset
|
|
|
|
PUB renameEntry(entryNameToChange, entryNameToChangeTo) '' 33 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Renames a file or directory in the current directory. The new name must be unique in the current directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ The "." and ".." entries are ignored by this function. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the file or directory. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ EntryNameToChange - The name of the file or directory to change. │
|
|
'' │ EntryNameToChangeTo - The name of the file or directory to change to. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
listDuplicate(formatName(entryNameToChangeTo))
|
|
' result := unformatName(listFind(formatName(entryNameToChange), @fileOrDirectoryNotFound)) '@hive
|
|
result := unformatName(listFind(formatName(entryNameToChange), err_notFound))
|
|
|
|
bytemove(@dataBlock[currentByte & $1FF], formatName(entryNameToChangeTo), 11)
|
|
|
|
wordToBlock((currentByte + 18), readClock)
|
|
wordToBlock((currentByte + 22), cardTime)
|
|
wordToBlock((currentByte + 24), cardDate)
|
|
dataBlock[(currentByte + 11) & $1FF] |= $20
|
|
|
|
readWriteCurrentSector("W")
|
|
listReset
|
|
|
|
PUB changeAttributes(entryName, newAttributes) '' 33 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Changes the attributes of a file or directory in the current directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ The "." and ".." entries are ignored by this function. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the file or directory. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ EntryName - The name of the file or directory to change the attributes of. │
|
|
'' │ NewAttributes - A string of characters containing the new set of attributes. A-Archive, S-System, H-Hidden, R-Read Only. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listFind(formatName(entryName), @fileOrDirectoryNotFound)) '@hive
|
|
result := unformatName(listFind(formatName(entryName), err_notFound))
|
|
|
|
byteToBlock((currentByte + 11), (($20 & findCharacter(newAttributes, "A")) | (listIsDirectory & $10) | ($4 & findCharacter(newAttributes, "S")) | ($2 & findCharacter(newAttributes, "H")) | ($1 & findCharacter(newAttributes, "R"))))
|
|
wordToBlock((currentByte + 18), readClock)
|
|
wordToBlock((currentByte + 22), cardTime)
|
|
wordToBlock((currentByte + 24), cardDate)
|
|
|
|
readWriteCurrentSector("W")
|
|
' listReset '@hive
|
|
|
|
PUB changeDirectory(directoryName) '' 32 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Searches the current directory for the specified directory and enters that directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the name of the direcotry. List functions are not valid after calling this function. │
|
|
'' │ │
|
|
'' │ DirectoryName - The name of the directory to search for in the current directory and enter into. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' result := unformatName(listFind(listCase(directoryName, formatName(directoryName)), @directoryNotFound)) '@hive
|
|
result := unformatName(listFind(listCase(directoryName, formatName(directoryName)), err_dirNotFound))
|
|
|
|
ifnot(listIsDirectory)
|
|
' abort @directoryNotFound '@hive
|
|
abort err_dirNotFound
|
|
|
|
currentDirectory := listCluster
|
|
listReset
|
|
|
|
PUB getDirCluster:cluster
|
|
|
|
result := currentDirectory
|
|
|
|
PUB setDirCluster(cluster)
|
|
|
|
currentDirectory := cluster
|
|
listReset
|
|
|
|
PUB listSearch(entryName) '' 32 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns a pointer to the name of the serached for file or direcotry in the current directory. │
|
|
'' │ │
|
|
'' │ Additionally this function validates the other listing functions to get information about the next file or directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ EntryName - The name of the file or directory to search for in the current directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
' return unformatName(listFind(listCase(entryName, formatName(entryName)), @fileOrDirectoryNotFound)) '@hive
|
|
return unformatName(listFind(listCase(entryName, formatName(entryName)), err_notFound))
|
|
|
|
PUB listName '' 26 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns a pointer to the name of the next file or direcotry in the current directory. Returns zero on wrap arround. │
|
|
'' │ │
|
|
'' │ Additionally this function validates the other listing functions to get information about the next file or directory. │
|
|
'' │ │
|
|
'' │ If the partition is not mounted or an error occurs this function will abort and return a string describing that error. │
|
|
'' │ │
|
|
'' │ After listing the last file or directory "listReset" must be called to to list from the first file or direcotry again. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return unformatName(listDirectory("R"))
|
|
|
|
PUB listReset '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Resets "listName" to list from the first file or directory in the current directory. │
|
|
'' │ │
|
|
'' │ List functions are not valid after calling this function. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
ifnot(fileOpenFlag)
|
|
|
|
currentByte := 0
|
|
currentCluster := currentDirectory
|
|
|
|
bytefill(@directoryEntry, 0, 32)
|
|
bytefill(@directoryEntryName, 0, 12)
|
|
|
|
PUB listSize '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the size of current file or directory pointed to by "listName". Directories have no size. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that files information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the size of the file or directory in bytes. Maximum file size is 2,147,483,136 bytes. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[28] | (directoryEntry[29] << 8) | (directoryEntry[30] << 16) | (directoryEntry[31] << 24)) <# $7FFFFE00) #> 0)
|
|
|
|
PUB listCreationDay '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation day of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation day of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (directoryEntry[16] & $1F)
|
|
|
|
PUB listCreationMonth '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation month of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation month of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[17] & $1) << 3) | (directoryEntry[16] >> 5))
|
|
|
|
PUB listCreationYear '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation year of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation year of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return ((directoryEntry[17] >> 1) + 1980)
|
|
|
|
PUB listCreationSeconds '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation second of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation second of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[14] & $1F) << 1) + (directoryEntry[13] / 100))
|
|
|
|
PUB listCreationMinutes '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation minute of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation minute of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[15] & $7) << 3) | (directoryEntry[14] >> 5))
|
|
|
|
PUB listCreationHours '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the creation hour of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the creation hour of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (directoryEntry[15] >> 3)
|
|
|
|
PUB listAccessDay '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last day of access of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the last acess day of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (directoryEntry[18] & $1F)
|
|
|
|
PUB listAccessMonth '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last month of access of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the last acess month of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[19] & $1) << 3) | (directoryEntry[18] >> 5))
|
|
|
|
PUB listAccessYear '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last year of access of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the last acess year of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return ((directoryEntry[19] >> 1) + 1980)
|
|
|
|
PUB listModificationDay '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last day of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification day of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (directoryEntry[24] & $1F)
|
|
|
|
PUB listModificationMonth '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last month of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification month of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[25] & $1) << 3) | (directoryEntry[24] >> 5))
|
|
|
|
PUB listModificationYear '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last year of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification year of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return ((directoryEntry[25] >> 1) + 1980)
|
|
|
|
PUB listModificationSeconds '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last second of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification second of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return ((directoryEntry[22] & $1F) << 1)
|
|
|
|
PUB listModificationMinutes '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last minute of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification minute of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (((directoryEntry[23] & $7) << 3) | (directoryEntry[22] >> 5))
|
|
|
|
PUB listModificationHours '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Gets the last hour of modification of the current file or directory pointed to by "listName". │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns the modification hour of the file or directory. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
return (directoryEntry[23] >> 3)
|
|
|
|
PUB listIsReadOnly '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns whether or not the current file or directory pointed to by "listName" is read only. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns true or false. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= (directoryEntry[11] & $1)
|
|
|
|
PUB listIsHidden '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns whether or not the current file or directory pointed to by "listName" is hidden. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns true or false. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= (directoryEntry[11] & $2)
|
|
|
|
PUB listIsSystem '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns whether or not the current file or directory pointed to by "listName" is a system file. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns true or false. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= (directoryEntry[11] & $4)
|
|
|
|
PUB listIsDirectory '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns whether or not the current file or directory pointed to by "listName" is a directory. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns true or false. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= (directoryEntry[11] & $10)
|
|
|
|
PUB listIsArchive '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns whether or not the current file or directory pointed to by "listName" has been modified since the last backup. │
|
|
'' │ │
|
|
'' │ If a file is currently open this function will retrieve that file's information. │
|
|
'' │ │
|
|
'' │ If "listName" did not succed or was not previously called the value returned is invalid. │
|
|
'' │ │
|
|
'' │ Returns true or false. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= (directoryEntry[11] & $20)
|
|
|
|
PUB listVolumeLabel
|
|
'' return: zeiger auf string mit volume-label
|
|
|
|
'return unformatName(listDirectory("V")) 'frida
|
|
if(partitionMountedFlag) 'frida
|
|
return @sdvolumeLabel 'frida
|
|
|
|
|
|
PUB checkPartitionMounted '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns true if the file system is still currently mounted and false if not. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= partitionMountedFlag
|
|
|
|
PUB checkFileOpen '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns true if a file is still currently open and false if not. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
result or= fileOpenFlag
|
|
|
|
PUB checkUsedSectorCount(mode) '' 18 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns the current used sector count on this partition. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ In fast mode this function will return the last valid used sector count if avialable. This is an estimate value. │
|
|
'' │ │
|
|
'' │ In slow mode this function will compute the used sector count by scanning the entire FAT. This can take a long time. │
|
|
'' │ │
|
|
'' │ One sector is equal to 512 bytes. Multiply the used sector count by 512 to determine the number of used bytes. │
|
|
'' │ │
|
|
'' │ This function also finds the next free cluster for creating new files and directories. │
|
|
'' │ │
|
|
'' │ Call this function when running out of disk space to find the next free cluster if available. │
|
|
'' │ │
|
|
'' │ If the last valid used sector count is not avialable when using fast mode this function will enter slow mode, │
|
|
'' │ │
|
|
'' │ Mode - A character specifing the mode to use. F-Fast, S-Slow. Default slow. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(partitionMountedFlag)
|
|
return ((countOfClusters * sectorsPerCluster) - checkFreeSectorCount(mode))
|
|
|
|
PUB checkFreeSectorCount(mode) '' 14 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Returns the current free sector count on this partition. │
|
|
'' │ │
|
|
'' │ Will do nothing if a file is currently open or if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ In fast mode this function will return the last valid free sector count if avialable. This is an estimate value. │
|
|
'' │ │
|
|
'' │ In slow mode this function will compute the free sector count by scanning the entire FAT. This can take a long time. │
|
|
'' │ │
|
|
'' │ One sector is equal to 512 bytes. Multiply the free sector count by 512 to determine the number of free bytes. │
|
|
'' │ │
|
|
'' │ This function also finds the next free cluster for creating new files and directories. │
|
|
'' │ │
|
|
'' │ Call this function when running out of disk space to find the next free cluster if available. │
|
|
'' │ │
|
|
'' │ If the last valid free sector count is not avialable when using fast mode this function will enter slow mode, │
|
|
'' │ │
|
|
'' │ Mode - A character specifing the mode to use. F-Fast, S-Slow. Default slow. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
if(partitionMountedFlag)
|
|
flushCharacters
|
|
|
|
if(findByte(mode, "f", "F") and (freeClusterCount <> $FFFFFFFF))
|
|
result := freeClusterCount
|
|
|
|
else
|
|
repeat mode from 0 to (countOfClusters + 1)
|
|
|
|
ifnot(FATEntryNumber(mode))
|
|
readWriteFATBlock(mode, "R")
|
|
|
|
result -= (not(readFATEntry(mode)))
|
|
|
|
ifnot(result)
|
|
nextFreeCluster := ((mode + 1) <# (countOfClusters + 1))
|
|
|
|
freeClusterCount := result
|
|
readWriteCurrentSector("R")
|
|
|
|
result *= sectorsPerCluster
|
|
|
|
PUB bootPartition(fileName, checkDisk) | bootSectors[64] '' 102 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Reboots the propeller chip to run the selected file from memory. The file should be a valid spin BIN or EEPROM file. │
|
|
'' │ │
|
|
'' │ Will do nothing if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ FileName - The name of the file to reboot from. │
|
|
'' │ CheckDisk - Unmounts the partition before booting if "C". │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
longfill(@bootSectors, 0, 64)
|
|
openFile(fileName~, string("R"))
|
|
|
|
repeat (listSize <# 32768)
|
|
result += readCharacter
|
|
|
|
ifnot($1FF & fileName++)
|
|
bootSectors[fileName >> 9] := (partitionStart + FATFirstSectorInCluster(currentCluster) + FATWorkingSectorInCluster)
|
|
|
|
result &= $FF
|
|
setCharacterPosition(6)
|
|
fileName := readShort
|
|
closeFile
|
|
|
|
if((result and (result <> $14)) or (fileName <> $10))
|
|
' abort string("Checksum Error") '@hive
|
|
abort err_checksumError
|
|
|
|
if(findByte(checkDisk, "c", "C"))
|
|
unmountPartition
|
|
|
|
readWriteBlock(@bootSectors, "B")
|
|
' abort string("Reboot Error") '@hive
|
|
abort err_rebootError
|
|
|
|
PUB formatPartition(partition, volumeLabel, checkDisk) '' 34 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Permanetly deletes all information on the loaded FAT16/32 file system. Unloads the loaded FAT16/32 file system. │
|
|
'' │ │
|
|
'' │ Will do nothing if the card is not mounted. This throws an error. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
mountPartition(partition, checkdisk)
|
|
|
|
repeat while(readWriteCurrentCluster("R", "D"))
|
|
bytefill(@dataBlock, 0, 512)
|
|
readWriteCurrentSector("W")
|
|
currentByte += 512
|
|
|
|
' result := unformatName(listNew(formatName(volumeLabel), $8, readClock, cardTime, 0, 0)) '@hive
|
|
unformatName(listNew(formatName(volumeLabel), $8, readClock, cardTime, 0, 0)) '@hive
|
|
|
|
bytefill(@dataBlock, 0, 512)
|
|
repeat volumeLabel from reservedSectorCount to (rootDirectorySectorNumber - 1)
|
|
readWriteBlock(volumeLabel, "W")
|
|
|
|
readWriteFATBlock(0, "R")
|
|
writeFATEntry(0, ($0FFFFF00 | mediaType))
|
|
writeFATEntry(1, $0FFFFFFF)
|
|
readWriteFATBlock(0, "W")
|
|
|
|
listReset
|
|
|
|
PUB mountPartition(partition, checkDisk) '' 28 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Loads a FAT16/32 file system with up to 1,099,511,627,776 bytes for use. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' │ │
|
|
'' │ File sizes up to 2,147,483,136 bytes are supported. │
|
|
'' │ │
|
|
'' │ Directory sizes up to 65,536 entries are supported. │
|
|
'' │ │
|
|
'' │ Additionally check disk flags can be setup so that check disk is called on any improperly unmounted partition. │
|
|
'' │ │
|
|
'' │ Returns a pointer to the volume label. │
|
|
'' │ │
|
|
'' │ Parition - Partition number to mount (between 0 and 3). The default partition number is 0. │
|
|
'' │ CheckDisk - Raises the check disk flag upon mounting. C-Raise Flag │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
'' @hive:
|
|
'' return: fehlernummer
|
|
|
|
unmountPartition
|
|
|
|
partitionStart := 0
|
|
readWriteBlock(0, "M")
|
|
|
|
bytemove(@cardUniqueIDCopy, @cardUniqueID, 17)
|
|
readWriteBlock(0, "R")
|
|
|
|
if(blockToWord(510) <> $AA55)
|
|
' abort @FSCorrupted '@hive
|
|
abort err_fsysCorrupted
|
|
|
|
partition := (((partition <# 3) #> 0) << 4)
|
|
if((blockToByte(0) <> $EB) and (blockToByte(0) <> $E9))
|
|
|
|
'case(blockToByte(450 + partition) & $F)
|
|
' $0 .. $3, $5, $7 .. $A, $D, $F: abort @FSUnsupported
|
|
|
|
'volumeIdentification := blockToLong(440)
|
|
'partitionSize := blockToLong(458 + partition)
|
|
|
|
partitionStart := blockToLong(454 + partition)
|
|
readWriteBlock(0, "R")
|
|
|
|
if(blockToWord(510) <> $AA55)
|
|
' abort string("BPB Corrupt") '@hive
|
|
abort err_bpbCorrupt
|
|
|
|
|
|
|
|
if(blockToWord(11) <> 512)
|
|
' abort @FSUnsupported '@hive
|
|
abort err_fsysUnsupported
|
|
|
|
sectorsPerCluster := blockToByte(13)
|
|
reservedSectorCount := blockToWord(14)
|
|
numberOfFATs := blockToByte(16)
|
|
externalFlags := 0
|
|
|
|
partitionSize := blockToWord(19)
|
|
ifnot(partitionSize)
|
|
partitionSize := blockToLong(32)
|
|
|
|
FATSectorSize := blockToWord(22)
|
|
ifnot(FATSectorSize)
|
|
FATSectorSize := blockToLong(36)
|
|
|
|
mediaType := blockToByte(21)
|
|
hiddenSectors := blockToLong(28)
|
|
|
|
rootDirectorySectors := (blockToWord(17) >> 4)
|
|
rootDirectorySectorNumber := (reservedSectorCount + (numberOfFATs * FATSectorSize))
|
|
|
|
firstDataSector := (rootDirectorySectorNumber + rootDirectorySectors)
|
|
countOfClusters := ((partitionSize - firstDataSector) / sectorsPerCluster)
|
|
|
|
nextFreeCluster := 2
|
|
freeClusterCount := $FFFFFFFF
|
|
|
|
if(countOfClusters < 4085)
|
|
' abort @FSUnsupported '@hive
|
|
abort err_fsysUnsupported
|
|
|
|
FATType := false
|
|
if(countOfClusters => 65525)
|
|
FATType := true
|
|
|
|
volumeIdentification := blockToLong(39 + (28 & FATType))
|
|
dataBlock[37 + (28 & FATType)] |= ($3 & findByte(checkDisk, "c", "C"))
|
|
readWriteBlock(0, "W")
|
|
|
|
if(FATType)
|
|
if(blockToWord(40) & $80)
|
|
numberOfFATs := 1
|
|
externalFlags := (blockToWord(40) & $F)
|
|
|
|
if(blockToWord(42))
|
|
' abort @FSUnsupported '@hive
|
|
abort err_fsysUnsupported
|
|
|
|
rootCluster := blockToLong(44)
|
|
fileSystemInfo := blockToWord(48)
|
|
backupBootSector := blockToWord(50)
|
|
|
|
readWriteBlock(fileSystemInfo, "R")
|
|
|
|
if(blockToWord(510) <> $AA55)
|
|
' abort string("FSI Corrupt") '@hive
|
|
abort err_fsiCorrupt
|
|
|
|
freeClusterCount := blockToLong(488)
|
|
nextFreeCluster := blockToLong(492)
|
|
|
|
if(nextFreeCluster == $FFFFFFFF)
|
|
nextFreeCluster := 2
|
|
|
|
partitionMountedFlag := true
|
|
|
|
currentDirectory := 0
|
|
listReset
|
|
|
|
' return unformatName(listDirectory("V")) '@hive
|
|
result := listDirectory("V") 'frida
|
|
bytemove(@sdvolumeLabel, result, 12) 'frida
|
|
return 0
|
|
|
|
PUB unmountPartition '' 18 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Unloads the loaded FAT16/32 file system. Closes the currently open file in the current directory. │
|
|
'' │ │
|
|
'' │ If an error occurs this function will abort and return a pointer to a string describing that error. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
closeFile
|
|
if(partitionMountedFlag~)
|
|
|
|
currentDirectory := 0
|
|
listReset
|
|
|
|
readWriteBlock(0, "R")
|
|
dataBlock[37 + (28 & FATType)] &= $FC
|
|
readWriteBlock(0, "W")
|
|
|
|
if(FATType)
|
|
readWriteBlock(fileSystemInfo, "R")
|
|
longToBlock(freeClusterCount, 488)
|
|
longToBlock(nextFreeCluster, 492)
|
|
readWriteBlock(fileSystemInfo, "W")
|
|
|
|
PUB FATEngine '' 3 Stack Longs
|
|
|
|
'' ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
'' │ Initializes the file system driver to run on a new cog. │
|
|
'' │ │
|
|
'' │ Returns the new cog's ID on sucess or -1 on failure. │
|
|
'' └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
|
|
cardLockID := locknew 'frida
|
|
|
|
'debugverbindung
|
|
'debugx.start(115200) ' Start des Debug-Terminals
|
|
|
|
slowTiming := ((constant(250_000 << 12) / clkfreq) << 20)
|
|
fastTiming := ((constant(2_500_000 << 8) / clkfreq) << 24)
|
|
|
|
CCFAddress := @cardCommandFlag
|
|
CEFAddress := @cardErrorFlag
|
|
|
|
CDBAddress := @cardDataBlockAddress
|
|
CSAAddress := @cardSectorAddress
|
|
|
|
CUIDAddress := @cardUniqueID
|
|
return cognew(@initialization, @cardSectorCount)
|
|
|
|
PRI listDuplicate(entryName) ' 27 Stack Longs
|
|
|
|
closeFile
|
|
listReset
|
|
|
|
repeat
|
|
|
|
result := listDirectory("R")
|
|
|
|
if(strcomp(result, entryName))
|
|
|
|
if(listIsDirectory)
|
|
' abort string("Directory Already Exist") '@hive
|
|
abort err_dirAlreadyExist
|
|
|
|
' abort string("File Already Exist") '@hive
|
|
abort err_fileAlreadyExist
|
|
|
|
while(result)
|
|
|
|
{
|
|
PRI listFind(entryName, errorMessage) ' 28 Stack Longs '@hive
|
|
|
|
closeFile
|
|
listReset
|
|
|
|
repeat
|
|
|
|
result := listDirectory("R")
|
|
|
|
ifnot(result)
|
|
abort errorMessage
|
|
|
|
until(strcomp(entryName, result))
|
|
|
|
currentByte -= 32
|
|
}
|
|
|
|
PRI listFind(entryName, errorMessage) | strptr ' 28 Stack Longs
|
|
|
|
closeFile
|
|
listReset
|
|
|
|
repeat
|
|
result := err_noError
|
|
strptr := listDirectory("R")
|
|
|
|
ifnot(strptr)
|
|
abort errorMessage
|
|
|
|
until(strcomp(entryName, strptr))
|
|
|
|
currentByte -= 32
|
|
|
|
PRI listNew(entryName, entryAttributes, entryDate, entryTime, entryCluster, entryType) ' 36 Stack Longs
|
|
|
|
listDuplicate(entryName)
|
|
listReset
|
|
|
|
repeat while(readWriteCurrentCluster("W", "D"))
|
|
|
|
if((blockToByte(currentByte) <> $E5) and blockToByte(currentByte))
|
|
currentByte += 32
|
|
|
|
else
|
|
|
|
if(entryType == "D")
|
|
entryCluster := createClusterChain(0)
|
|
currentFile := entryCluster
|
|
readWriteCurrentSector("R")
|
|
|
|
bytefill(@dataBlock[currentByte & $1FF], 0, 32)
|
|
bytemove(@dataBlock[currentByte & $1FF], entryName, 11)
|
|
|
|
byteToBlock((currentByte + 11), entryAttributes)
|
|
|
|
wordToBlock((currentByte + 14), entryTime)
|
|
wordToBlock((currentByte + 16), entryDate)
|
|
wordToBlock((currentByte + 18), entryDate)
|
|
wordToBlock((currentByte + 22), entryTime)
|
|
wordToBlock((currentByte + 24), entryDate)
|
|
|
|
wordToBlock((currentByte + 26), (entryCluster & $FFFF))
|
|
wordToBlock((currentByte + 20), (entryCluster >> 16))
|
|
|
|
readWriteCurrentSector("W")
|
|
return entryName
|
|
|
|
' abort string("Directory Is Full") '@hive
|
|
abort err_dirIsFull
|
|
|
|
PRI listDirectory(volumeIDAttribute) ' 23 Stack Longs
|
|
|
|
if(fileOpenFlag)
|
|
closeFile
|
|
'listReset 'frida
|
|
|
|
repeat while(readWriteCurrentCluster("R", "D") and blockToByte(currentByte))
|
|
|
|
if((blockToByte(currentByte) == $E5) or (((volumeIDAttribute == "V") ^ blockToByte(currentByte + 11)) & $8))
|
|
currentByte += 32
|
|
|
|
else
|
|
|
|
bytemove(@directoryEntry, @dataBlock[currentByte & $1FF], 32)
|
|
bytemove(@directoryEntryName, @directoryEntry, 11)
|
|
|
|
if(directoryEntryName == $5)
|
|
directoryEntryName := $E5
|
|
|
|
currentByte += 32
|
|
return @directoryEntryName
|
|
|
|
listReset
|
|
|
|
PRI listCluster ' 3 Stack Longs
|
|
|
|
result := directoryEntry[26]
|
|
result.byte[1] := directoryEntry[27]
|
|
result.byte[2] := directoryEntry[20]
|
|
result.byte[3] := directoryEntry[21]
|
|
|
|
if((result == 1) or (FATEndOfClusterValue =< result))
|
|
' abort @FSCorrupted '@hive
|
|
abort err_fsysCorrupted
|
|
|
|
PRI listCase(unformatedName, formatedName) ' 5 Stack Longs
|
|
|
|
if(byte[unformatedName++] == ".")
|
|
result := @dot
|
|
|
|
if(byte[unformatedName++] == ".")
|
|
result := @dotdot
|
|
|
|
repeat strsize(unformatedName)
|
|
case byte[unformatedName++]
|
|
9 .. 10, 13, 32:
|
|
other:
|
|
result := formatedName
|
|
quit
|
|
|
|
PRI readWriteCurrentCluster(readWrite, fileOrDirectory) ' 19 Stack Longs
|
|
|
|
ifnot((fileOrDirectory <> "D") or partitionMountedFlag)
|
|
' abort @FSUnmounted '@hive
|
|
abort err_fsysUnmounted
|
|
|
|
'Needs to return true if it got the data and false if it didn't.
|
|
|
|
ifnot(currentByte & $1FF)
|
|
|
|
if(fileOpenFlag and (currentByte => $7FFFFE00))
|
|
return false 'abort string("End of File")
|
|
|
|
ifnot(fileOpenFlag or (currentByte < constant(65536 * 32)))
|
|
return false 'abort string("End of Directory")
|
|
|
|
ifnot(currentcluster or FATType or ((currentByte >> 9) < rootDirectorySectors))
|
|
return false 'abort string("End of Root")
|
|
|
|
if(currentByte and (not(FATWorkingSectorInCluster)) and (FATType or currentcluster))
|
|
|
|
result := currentCluster
|
|
ifnot(result)
|
|
result := rootCluster
|
|
|
|
readWriteFATBlock(result, "R")
|
|
fileOrDirectory := readFATEntry(result)
|
|
|
|
if(fileOrDirectory =< 1)
|
|
partitionMountedFlag := false
|
|
' abort @FSCorrupted '@hive
|
|
abort err_fsysCorrupted
|
|
|
|
if(fileOrDirectory => FATEndOfClusterValue)
|
|
'if(fileOpenFlag and (currentByte < (currentSize - 1)))
|
|
' partitionMountedFlag := false
|
|
' abort @FSCorrupted
|
|
|
|
if(readWrite == "R")
|
|
ifnot(fileOpenFlag)
|
|
ifnot(currentCluster)
|
|
' abort string("End of Root") '@hive
|
|
abort err_endOfRoot
|
|
|
|
' abort string("End of Directory") '@hive
|
|
abort err_endOfDirectory
|
|
|
|
else
|
|
' abort string("End of File") '@hive
|
|
abort err_endOfFile
|
|
|
|
fileOrDirectory := createClusterChain(result)
|
|
currentCluster := fileOrDirectory
|
|
readWriteCurrentSector("R")
|
|
|
|
return true
|
|
|
|
PRI readWriteCurrentSector(readWrite) ' 9 Stack Longs
|
|
|
|
result := FATFirstSectorInCluster(currentCluster) + FATWorkingSectorInCluster
|
|
|
|
ifnot(currentCluster)
|
|
result := rootDirectorySectorNumber + (currentByte >> 9)
|
|
|
|
if(FATType)
|
|
result := FATFirstSectorInCluster(rootCluster) + FATWorkingSectorInCluster
|
|
|
|
readWriteBlock(result, readWrite)
|
|
|
|
PRI findByte(byteToCompare, thisByte, thatByte) ' 6 Stack Longs
|
|
|
|
if((byteToCompare == thisByte) or (byteToCompare == thatByte))
|
|
return true
|
|
|
|
PRI findCharacter(charactersToSearch, characterToFind) | convertedCharacter ' 6 Stack Longs
|
|
|
|
repeat strsize(charactersToSearch)
|
|
|
|
convertedCharacter := byte[charactersToSearch++]
|
|
case convertedCharacter
|
|
"a" .. "z": convertedCharacter -= 32
|
|
|
|
if(convertedCharacter == characterToFind)
|
|
return true
|
|
|
|
PRI unformatName(name) ' 4 Stack Longs
|
|
|
|
if(name)
|
|
|
|
unformatedNameBuffer[12] := 0
|
|
|
|
bytefill(@unformatedNameBuffer, " ", 12)
|
|
bytemove(@unformatedNameBuffer, name, 8)
|
|
|
|
repeat while(unformatedNameBuffer[++result] <> " ")
|
|
unformatedNameBuffer[result++] := "."
|
|
|
|
bytemove(@unformatedNameBuffer[result], @byte[name][8], 3)
|
|
|
|
if(unformatedNameBuffer[result] == " ")
|
|
unformatedNameBuffer[--result] := " "
|
|
|
|
return @unformatedNameBuffer
|
|
|
|
PRI formatName(name) ' 4 Stack Longs
|
|
|
|
formatedNameBuffer[11] := 0
|
|
|
|
bytefill(@formatedNameBuffer, " ", 11)
|
|
|
|
repeat strsize(name--)
|
|
|
|
if(byte[++name] == ".")
|
|
result := 0
|
|
|
|
repeat strsize(++name)
|
|
|
|
if((result < 3) and (byte[name] > 31))
|
|
formatedNameBuffer[8 + result++] := byte[name++]
|
|
|
|
quit
|
|
|
|
if((result < 8) and (byte[name] > 31))
|
|
formatedNameBuffer[result++] := byte[name]
|
|
|
|
repeat result from 0 to 10
|
|
|
|
case formatedNameBuffer[result]
|
|
"a" .. "z": formatedNameBuffer[result] -= 32
|
|
$22, "*" .. ",", "." .. "/", ":" .. "?", "[" .. "]", "|", $7F: formatedNameBuffer[result] := "_"
|
|
|
|
if(formatedNameBuffer == " ")
|
|
formatedNameBuffer := "_"
|
|
|
|
if(formatedNameBuffer == $E5)
|
|
formatedNameBuffer := $5
|
|
|
|
return @formatedNameBuffer
|
|
|
|
PRI createClusterChain(clusterToLink) ' 14 Stack Longs
|
|
|
|
readWriteFATBlock(nextFreeCluster, "R")
|
|
repeat result from nextFreeCluster to (countOfClusters + 1)
|
|
|
|
ifnot(FATEntryNumber(result))
|
|
readWriteFATBlock(result, "R")
|
|
|
|
ifnot(readFATEntry(result))
|
|
|
|
writeFATEntry(result, true)
|
|
readWriteFATBlock(result, "W")
|
|
|
|
nextFreeCluster := ((result + 1) <# (countOfClusters + 1))
|
|
|
|
if(clusterToLink)
|
|
|
|
readWriteFATBlock(clusterToLink, "R")
|
|
writeFATEntry(clusterToLink, result)
|
|
readWriteFATBlock(clusterToLink, "W")
|
|
|
|
bytefill(@dataBlock, 0, 512)
|
|
|
|
repeat clusterToLink from 0 to (sectorsPerCluster - 1)
|
|
readWriteBlock((FATFirstSectorInCluster(result) + clusterToLink), "W")
|
|
|
|
quit
|
|
|
|
if(result => (countOfClusters + 1))
|
|
' abort string("Out Of Disk Free Space") '@hive
|
|
abort err_outOfDiskFreeSpace
|
|
|
|
PRI destroyClusterChain(clusterToDestroy) ' 14 Stack Longs
|
|
|
|
repeat while((1 < clusterToDestroy) and (clusterToDestroy < FATEndOfClusterValue))
|
|
|
|
ifnot(result and (FATBlockNumber(result) == FATBlockNumber(clusterToDestroy)))
|
|
readWriteFATBlock(clusterToDestroy, "R")
|
|
|
|
result := clusterToDestroy
|
|
clusterToDestroy := readFATEntry(clusterToDestroy)
|
|
writeFATEntry(result, false)
|
|
|
|
if(FATBlockNumber(result) <> FATBlockNumber(clusterToDestroy))
|
|
readWriteFATBlock(result, "W")
|
|
|
|
if(result)
|
|
readWriteFATBlock(result, "W")
|
|
|
|
PRI readFATEntry(cluster) ' 8 Stack Longs
|
|
|
|
cluster := FATEntryNumber(cluster)
|
|
|
|
ifnot(FATType)
|
|
return blockToWord(cluster)
|
|
|
|
return (blockTolong(cluster) & $0FFFFFFF)
|
|
|
|
PRI writeFATEntry(cluster, value) ' 10 Stack Longs
|
|
|
|
cluster := FATEntryNumber(cluster)
|
|
|
|
ifnot(FATType)
|
|
wordToBlock(cluster, value)
|
|
else
|
|
longToBlock(cluster, ((value & $0FFFFFFF) | (blockTolong(cluster) & $F0000000)))
|
|
|
|
PRI readWriteFATBlock(cluster, readWrite) ' 10 Stack Longs
|
|
|
|
cluster := FATBlockNumber(cluster)
|
|
result := externalFlags
|
|
|
|
repeat ((numberOfFATs & (readWrite == "W")) | (-(readWrite == "R")))
|
|
readWriteBlock((reservedSectorCount + cluster + (FATSectorSize * result++)), readWrite)
|
|
|
|
PRI FATBlockNumber(cluster) ' 4 Stack Longs
|
|
|
|
return (cluster >> (8 + FATType))
|
|
|
|
PRI FATEntryNumber(cluster) ' 4 Stack Longs
|
|
|
|
return ((cluster & ($FF >> (-FATType))) << (1 - FATType))
|
|
|
|
PRI FATEndOfClusterValue ' 3 Stack Longs
|
|
|
|
return ($FFF0 | (FATType & $0FFFFFF0))
|
|
|
|
PRI FATWorkingSectorInCluster ' 3 Stack Longs
|
|
|
|
return ((currentByte >> 9) // sectorsPerCluster)
|
|
|
|
PRI FATFirstSectorInCluster(cluster) ' 4 Stack Longs
|
|
|
|
return (((cluster - 2) * sectorsPerCluster) + firstDataSector)
|
|
|
|
PRI blockToLong(index) ' 4 Stack Longs
|
|
|
|
bytemove(@result, @dataBlock[index & $1FF], 4)
|
|
|
|
PRI blockToWord(index) ' 4 Stack Longs
|
|
|
|
bytemove(@result, @dataBlock[index & $1FF], 2)
|
|
|
|
PRI blockToByte(index) ' 4 Stack Longs
|
|
|
|
return dataBlock[index & $1FF]
|
|
|
|
PRI longToBlock(index, value) ' 5 Stack Longs
|
|
|
|
bytemove(@dataBlock[index & $1FF], @value, 4)
|
|
|
|
PRI wordToBlock(index, value) ' 5 Stack Longs
|
|
|
|
bytemove(@dataBlock[index & $1FF], @value, 2)
|
|
|
|
PRI byteToBlock(index, value) ' 5 Stack Longs
|
|
|
|
dataBlock[index & $1FF] := value
|
|
|
|
PRI readClock ' 3 + 11 Stack Longs
|
|
|
|
repeat while(lockset(cardLockID))
|
|
cardTime := ((rtc.getSeconds >> 1) | (rtc.getMinutes << 5) | (rtc.getHours << 11))
|
|
cardDate := (rtc.getDate | (rtc.getMonth << 5) | ((rtc.getYear - 1980) << 9))
|
|
|
|
lockclr(cardLockID)
|
|
return cardDate
|
|
|
|
PRI readWriteBlock(address, command) ' 5 Stack Longs
|
|
|
|
if(strcomp(@cardUniqueID, @cardUniqueIDCopy) or (command == "M"))
|
|
repeat while(lockset(cardLockID))
|
|
|
|
if command == "B" 'frida
|
|
lockclr(cardLockID) 'frida
|
|
lockret(cardLockID) 'frida
|
|
|
|
cardSectorAddress := (address + (partitionStart & (command <> "B")))
|
|
cardDataBlockAddress := (@dataBlock & (command <> "B"))
|
|
cardCommandFlag := command
|
|
repeat while(cardCommandFlag)
|
|
|
|
command := cardErrorFlag~
|
|
lockclr(cardLockID)
|
|
|
|
if(command)
|
|
partitionMountedFlag := false
|
|
' abort string("Disk I/O Error") '@hive
|
|
abort err_diskIOError
|
|
|
|
DAT 'ASM-Code
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' SD/SDHC/MMC Driver
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
org
|
|
|
|
' //////////////////////Initialization/////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
initialization neg phsa, #1 ' Setup clock counter.
|
|
movs ctra, #((Clock_Pin <# 31) #> 0) '
|
|
movi ctra, #%0_00100_000 '
|
|
|
|
mov outa, chipSelectPin ' Setup I/O Pins.
|
|
or outa, dataInPin '
|
|
mov dira, chipSelectPin '
|
|
or dira, dataInPin '
|
|
or dira, clockPin '
|
|
|
|
mov cardCounter, fiveHundredAndTwelve ' Skip to instruction handle.
|
|
jmp #instructionWait '
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Command Center
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
instructionRetry cmp cardBuffer, #"M" wc, wz ' Try at most 8 more times to mount the card.
|
|
if_c cmp cardBuffer, #"F" wc, wz '
|
|
if_nc_or_z djnz cardBuffer, #mountCard '
|
|
|
|
cmp cardBuffer, #"R" wz ' Try at most twice to read the specified block.
|
|
if_z djnz cardBuffer, #readBlock '
|
|
|
|
cmp cardBuffer, #"W" wz ' Try at most twice to write the specified block.
|
|
if_z djnz cardBuffer, #writeBlock '
|
|
|
|
cmp cardBuffer, #"B" wz ' Reboot the chip if booting failure.
|
|
if_z mov buffer, #$80 '
|
|
if_z clkset buffer '
|
|
|
|
instructionError wrbyte maxPositiveInteger, CEFAddress ' Assert Error Flag and unmount card.
|
|
instructionUnmount mov cardMounted, #0 '
|
|
|
|
' //////////////////////Instruction Handle/////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
instructionLoop wrbyte fiveHundredAndTwelve, CCFAddress ' Wait for a command to come.
|
|
instructionWait rdbyte cardBuffer, CCFAddress '
|
|
test cardMounted, maxPositiveInteger wc '
|
|
|
|
cmp cardBuffer, #"B" wz ' If rebooting was requested do it.
|
|
if_z_and_nc jmp #instructionError '
|
|
if_z_and_c jmp #rebootChip '
|
|
|
|
cmp cardBuffer, #"R" wz ' If read block was requested do it.
|
|
if_z_and_nc jmp #instructionError '
|
|
if_z_and_c jmp #readBlock '
|
|
|
|
cmp cardBuffer, #"W" wz ' If write block was requested do it.
|
|
if_z_and_nc jmp #instructionError '
|
|
if_z_and_c jmp #writeBlock '
|
|
|
|
djnz cardCounter, #instructionSkip ' Poll the card every so often.
|
|
mov cardCounter, fiveHundredAndTwelve '
|
|
if_nc jmp #instructionSkip '
|
|
call #cardStatus '
|
|
|
|
instructionSkip cmp cardBuffer, #"M" wz ' If mounting was requested do it.
|
|
if_nz jmp #instructionWait '
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Mount Card
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mountCard mov SPITiming, slowTiming ' Setup SPI parameters.
|
|
|
|
mov counter, #80 ' Send out for more than 1 millisecond.
|
|
seventyFourClocks call #readSPI '
|
|
djnz counter, #seventyFourClocks '
|
|
|
|
' //////////////////////Go Idle State//////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov counter, #80 ' Setup counter to try a few times.
|
|
|
|
enterIdleStateLoop mov SPICommandOut, #($40 | 0) ' Send out command 0.
|
|
mov SPIParameterOut, #0 '
|
|
movs commandSPICRC, #$95 '
|
|
call #commandSPI '
|
|
call #shutdownSPI '
|
|
|
|
cmp SPIResponceIn, #1 wz ' Try a few times.
|
|
if_nz djnz counter, #enterIdleStateLoop '
|
|
tjz counter, #instructionRetry '
|
|
|
|
' //////////////////////Send Interface Condition///////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov SPICommandOut, #($40 | 8) ' Send out command 8.
|
|
mov SPIParameterOut, #$1AA '
|
|
movs commandSPICRC, #$87 '
|
|
call #commandSPI '
|
|
call #longSPI '
|
|
call #shutdownSPI '
|
|
|
|
test SPIResponceIn, #$7E wz ' If failure goto SD 1.X initialization.
|
|
if_nz jmp #exitIdleState_SD '
|
|
|
|
and SPILongIn, #$1FF ' SD 2.0 initialization.
|
|
cmp SPILongIn, #$1AA wz '
|
|
if_nz jmp #instructionRetry '
|
|
|
|
' //////////////////////Send Operating Condition///////////////////////////////////////////////////////////////////////////////
|
|
|
|
exitIdleState_SD mov cardType, #0 ' Card type is MMC.
|
|
|
|
mov counter, #80 ' Setup counter to try a few times.
|
|
|
|
exitIdleStateLoop_SD mov SPICommandOut, #($40 | 55) ' Send out command 55.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
call #shutdownSPI '
|
|
|
|
test SPIResponceIn, #$7E wz ' If failure goto MMC initialization. '
|
|
if_nz jmp #exitIdleState_MMC '
|
|
|
|
mov SPICommandOut, #($40 | 41) ' Send out command 41 with HCS bit set.
|
|
mov SPIParameterOut, HCSBitMask '
|
|
call #commandSPI '
|
|
call #shutdownSPI '
|
|
|
|
cmp SPIResponceIn, #0 wz ' Try a few times.
|
|
if_nz djnz counter, #exitIdleStateLoop_SD '
|
|
tjz counter, #instructionRetry '
|
|
|
|
djnz cardType, #readOCR ' Card type is SD and skip MMC initialization.
|
|
|
|
' //////////////////////Send Operating Condition///////////////////////////////////////////////////////////////////////////////
|
|
|
|
exitIdleState_MMC mov counter, #80 ' Setup counter to try a few times.
|
|
|
|
exitIdleStateLoop_MMC mov SPICommandOut, #($40 | 1) ' Send out command 1.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
call #shutdownSPI '
|
|
|
|
cmp SPIResponceIn, #0 wz ' Try a few times.
|
|
if_nz djnz counter, #exitIdleStateLoop_MMC '
|
|
tjz counter, #instructionRetry '
|
|
|
|
' //////////////////////Read OCR Register//////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
readOCR mov SPICommandOut, #($40 | 58) ' Ask the card for its OCR register.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
call #longSPI '
|
|
call #shutdownSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
|
|
test SPILongIn, OCRCheckMask wz ' If voltage not supported abort.
|
|
shl SPILongIn, #1 wc '
|
|
if_z_or_nc jmp #instructionRetry '
|
|
|
|
shl SPILongIn, #1 wc ' SDHC supported or not.
|
|
if_c mov SPIShift, #0 '
|
|
if_nc mov SPIShift, #9 '
|
|
|
|
' //////////////////////Set Block Length///////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov SPICommandOut, #($40 | 16) ' Send out command 16.
|
|
mov SPIParameterOut, fiveHundredAndTwelve '
|
|
call #commandSPI '
|
|
call #shutdownSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
|
|
' //////////////////////Read CSD Register//////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov SPICommandOut, #($40 | 9) ' Ask the card for its CSD register.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
call #repsonceSPI '
|
|
cmp SPIResponceIn, #$FE wz '
|
|
if_nz jmp #instructionRetry '
|
|
|
|
mov counter, #16 ' Setup to read the CSD register.
|
|
movd readCSDModify, #CSDRegister '
|
|
|
|
readCSDLoop call #readSPI ' Read the CSD register in.
|
|
readCSDModify mov 0, SPIDataIn '
|
|
add readCSDModify, fiveHundredAndTwelve '
|
|
djnz counter, #readCSDLoop '
|
|
|
|
call #wordSPI ' Shutdown SPI clock.
|
|
call #shutdownSPI '
|
|
|
|
' //////////////////////Read CID Register//////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov SPICommandOut, #($40 | 10) ' Ask the card for its CID register.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
call #repsonceSPI '
|
|
cmp SPIResponceIn, #$FE wz '
|
|
if_nz jmp #instructionRetry '
|
|
|
|
mov counter, #16 ' Setup to read the CID register.
|
|
mov buffer, CUIDAddress '
|
|
|
|
readCIDLoop call #readSPI ' Read the CID register in.
|
|
wrbyte SPIDataIn, buffer '
|
|
add buffer, #1 '
|
|
djnz counter, #readCIDLoop '
|
|
|
|
wrbyte fiveHundredAndTwelve, buffer ' Clear the last byte for string compare.
|
|
|
|
call #wordSPI ' Shutdown SPI clock.
|
|
call #shutdownSPI '
|
|
|
|
' //////////////////////Setup Card Variables///////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov SPITiming, fastTiming ' Setup SPI parameters.
|
|
|
|
testn cardType, #0 wz, wc ' Determine CSD structure version.
|
|
if_nz test CSDRegister, #$40 wc '
|
|
if_nz test CSDRegister, #$80 wz '
|
|
|
|
if_nc_and_z mov counter, (CSDRegister + 6) ' Extract card size.
|
|
if_nc_and_z and counter, #$3 '
|
|
if_nc_and_z shl counter, #10 '
|
|
if_nc_and_z mov buffer, (CSDRegister + 7) '
|
|
if_nc_and_z shl buffer, #2 '
|
|
if_nc_and_z mov cardSize, (CSDRegister + 8) '
|
|
if_nc_and_z shr cardSize, #6 '
|
|
if_nc_and_z or cardSize, counter '
|
|
if_nc_and_z or cardSize, buffer '
|
|
|
|
if_c_and_z mov counter, (CSDRegister + 7) ' Extract card size.
|
|
if_c_and_z and counter, #$3F '
|
|
if_c_and_z shl counter, #16 '
|
|
if_c_and_z mov buffer, (CSDRegister + 8) '
|
|
if_c_and_z shl buffer, #8 '
|
|
if_c_and_z mov cardSize, (CSDRegister + 9) '
|
|
if_c_and_z or cardSize, counter '
|
|
if_c_and_z or cardSize, buffer '
|
|
|
|
if_nc_and_z mov buffer, (CSDRegister + 9) ' Extract card size multiplier.
|
|
if_nc_and_z and buffer, #$3 '
|
|
if_nc_and_z shl buffer, #1 '
|
|
if_nc_and_z mov cardSizeMultiplier, (CSDRegister + 10) '
|
|
if_nc_and_z shr cardSizeMultiplier, #7 '
|
|
if_nc_and_z or cardSizeMultiplier, buffer '
|
|
|
|
if_nc_and_z mov cardReadBlockLength, (CSDRegister + 5) ' Extract read block length.
|
|
if_nc_and_z and cardReadBlockLength, #$F '
|
|
|
|
if_nc_and_z sub cardReadBlockLength, #9 ' Compute card sector count for version 1.0 CSD.
|
|
if_nc_and_z add cardSizeMultiplier, #2 '
|
|
if_z add cardSize, #1 '
|
|
if_nc_and_z shl cardSize, cardReadBlockLength '
|
|
if_nc_and_z shl cardSize, cardSizeMultiplier '
|
|
|
|
if_c_and_z shl cardSize, #10 ' Compute card sector count for version 2.0 CSD.
|
|
|
|
max cardSize, maxPositiveInteger ' Limit maximum partition size.
|
|
|
|
if_nz neg cardSize, #1 ' Unknown CSD structure. Card size to -1.
|
|
|
|
wrlong cardSize, par ' Update Card Size.
|
|
|
|
mov cardSizeMinusOne, cardSize ' Compute maximum allowed addressable sector.
|
|
sub cardSizeMinusOne, #1 '
|
|
|
|
neg cardMounted, #1 ' Return.
|
|
jmp #instructionLoop '
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Read Block
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
readBlock rdlong SPIParameterOut, CSAAddress ' Read a block.
|
|
max SPIParameterOut, cardSizeMinusOne '
|
|
shl SPIParameterOut, SPIShift '
|
|
mov SPICommandOut, #($40 | 17) '
|
|
call #commandSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
call #repsonceSPI '
|
|
cmp SPIResponceIn, #$FE wz '
|
|
if_nz jmp #instructionRetry '
|
|
|
|
mov counter, fiveHundredAndTwelve ' Setup loop.
|
|
readBlockModify rdlong buffer, CDBAddress '
|
|
|
|
readBlockLoop call #readSPI ' Read data into memory.
|
|
wrbyte SPIDataIn, buffer '
|
|
add buffer, #1 '
|
|
djnz counter, #readBlockLoop '
|
|
|
|
call #wordSPI ' Shutdown SPI clock.
|
|
call #shutdownSPI '
|
|
|
|
readBlock_ret jmp #instructionLoop ' Return. Become RET instruction when rebooting.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Write Block
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
writeBlock rdlong SPIParameterOut, CSAAddress ' Write a block.
|
|
max SPIParameterOut, cardSizeMinusOne '
|
|
shl SPIParameterOut, SPIShift '
|
|
mov SPICommandOut, #($40 | 24) '
|
|
call #commandSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionRetry ' If failure abort.
|
|
|
|
mov SPIDataOut, #$FE ' Send start of data token.
|
|
call #writeSPI '
|
|
|
|
mov counter, fiveHundredAndTwelve ' Setup loop.
|
|
rdlong buffer, CDBAddress '
|
|
|
|
writeBlockLoop rdbyte SPIDataOut, buffer ' Write data out from memory.
|
|
add buffer, #1 '
|
|
call #writeSPI '
|
|
djnz counter, #writeBlockLoop '
|
|
|
|
call #wordSPI ' Write out the 16 bit CRC.
|
|
|
|
call #repsonceSPI ' If failure abort.
|
|
and SPIDataIn, #$1F '
|
|
cmp SPIDataIn, #$5 wz '
|
|
if_nz jmp #instructionRetry '
|
|
|
|
call #cardBusy ' Shutdown SPI clock.
|
|
call #shutdownSPI '
|
|
|
|
jmp #instructionLoop ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Reboot Chip
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
rebootChip rdlong buffer, CDBAddress ' Check to make sure a reboot was requested.
|
|
tjnz buffer, #instructionError '
|
|
|
|
' //////////////////////Shutdown Cogs//////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov counter, #8 ' Setup cog stop loop.
|
|
cogid buffer '
|
|
|
|
rebootCogLoop sub counter, #1 ' Stop all cogs but this one.
|
|
cmp counter, buffer wz '
|
|
if_nz cogstop counter '
|
|
tjnz counter, #rebootCogLoop '
|
|
|
|
' //////////////////////Setup Memory///////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov counter, #64 ' Setup to grab all sector addresses.
|
|
rdlong buffer, CSAAddress '
|
|
|
|
rebootSectorLoadLoop rdlong cardRebootSectors, buffer ' Get all addresses of the 64 sectors of new code into memory.
|
|
add buffer, #4 '
|
|
add rebootSectorLoadLoop, fiveHundredAndTwelve '
|
|
djnz counter, #rebootSectorLoadLoop '
|
|
|
|
' //////////////////////Clear Memory///////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov counter, fiveHundredAndTwelve ' Clear all memory. Leave buffer the pointer at 0.
|
|
shl counter, #6 '
|
|
mov buffer, #0 '
|
|
rebootCodeClearLoop sub counter, #4 '
|
|
wrlong buffer, counter '
|
|
tjnz counter, #rebootCodeClearLoop '
|
|
|
|
' //////////////////////Fill Memory////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
mov readBlock, #0 ' Fill these two commands with NOPs.
|
|
mov readBlockModify, #0 '
|
|
|
|
mov cardCounter, #64 ' Ready to fill all memory. Pointer already at 0.
|
|
|
|
rebootCodeFillLoop mov SPIParameterOut, cardRebootSectors ' Reuse read block code. Finish if next sector is 0.
|
|
tjz SPIParameterOut, #rebootReady '
|
|
add rebootCodeFillLoop, #1 '
|
|
call #readBlock '
|
|
djnz cardCounter, #rebootCodeFillLoop '
|
|
|
|
' //////////////////////Boot Interpreter///////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
rebootReady rdword buffer, #$A ' Setup the stack markers.
|
|
sub buffer, #4 '
|
|
wrlong rebootStackMark, buffer '
|
|
sub buffer, #4 '
|
|
wrlong rebootStackMark, buffer '
|
|
|
|
rdbyte buffer, #$4 ' Switch to new clock mode.
|
|
clkset buffer '
|
|
|
|
coginit rebootInterpreter ' Restart running new code.
|
|
|
|
cogid buffer ' Shutdown.
|
|
cogstop buffer '
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Card Status
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
cardStatus mov SPICommandOut, #($40 | 13) ' Send out command 13.
|
|
mov SPIParameterOut, #0 '
|
|
call #commandSPI '
|
|
call #byteSPI '
|
|
call #shutdownSPI '
|
|
|
|
tjnz SPIResponceIn, #instructionUnmount ' If failure abort.
|
|
tjnz SPILongIn, #instructionUnmount '
|
|
|
|
cardStatus_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Card Busy
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
cardBusy mov counter, writeTimeout ' Setup loop.
|
|
|
|
cardBusyLoop call #readSPI ' Wait until card is not busy.
|
|
cmp SPIDataIn, #0 wz '
|
|
if_z djnz counter, #cardBusyLoop '
|
|
tjz counter, #instructionRetry '
|
|
|
|
cardBusy_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Command SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
commandSPI andn outa, chipSelectPin ' Activate the SPI bus.
|
|
call #readSPI '
|
|
|
|
mov SPIDataOut, SPICommandOut ' Send out command.
|
|
call #writeSPI '
|
|
|
|
movs writeSPI, #32 ' Send out parameter.
|
|
mov SPIDataOut, SPIParameterOut '
|
|
call #writeSPI '
|
|
movs writeSPI, #8 '
|
|
|
|
commandSPICRC mov SPIDataOut, #0 ' Send out CRC token.
|
|
call #writeSPI '
|
|
|
|
call #repsonceSPI ' Read in responce.
|
|
|
|
commandSPI_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Responce SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
repsonceSPI mov SPIResponceIn, readTimeout ' Setup responce poll counter.
|
|
|
|
repsonceSPILoop call #readSPI ' Poll for responce.
|
|
cmp SPIDataIn, #$FF wz '
|
|
if_z djnz SPIResponceIn, #repsonceSPILoop '
|
|
|
|
mov SPIResponceIn, SPIDataIn ' Move responce into return value.
|
|
|
|
repsonceSPI_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Long SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
longSPI add readSPI, #16 ' Read in 32, 16, or 8 bits.
|
|
wordSPI add readSPI, #8 '
|
|
byteSPI call #readSPI '
|
|
movs readSPI, #8 '
|
|
|
|
mov SPILongIn, SPIDataIn ' Move long into return value.
|
|
|
|
byteSPI_ret ' Return.
|
|
wordSPI_ret '
|
|
longSPI_ret ret '
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Shutdown SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
shutdownSPI call #readSPI ' Shutdown SPI bus.
|
|
or outa, chipSelectPin '
|
|
call #readSPI '
|
|
|
|
shutdownSPI_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Read SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
readSPI mov SPICounter, #8 ' Setup counter to read in 1 - 32 bits. Default 8.
|
|
mov SPIDataIn, #0 wc '
|
|
|
|
mov phsa, #0 ' Start clock low.
|
|
mov frqa, SPITiming '
|
|
|
|
readSPILoop waitpne clockPin, clockPin ' Get bit.
|
|
rcl SPIDataIn, #1 '
|
|
waitpeq clockPin, clockPin '
|
|
test dataOutPin, ina wc '
|
|
|
|
djnz SPICounter, #readSPILoop ' Loop
|
|
|
|
mov frqa, #0 ' Stop clock high.
|
|
rcl SPIDataIn, #1 '
|
|
|
|
readSPI_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Write SPI
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
writeSPI mov SPICounter, #8 ' Setup counter to write out 1 - 32 bits. Default 8.
|
|
ror SPIDataOut, SPICounter '
|
|
|
|
mov phsa, #0 ' Start clock low.
|
|
mov frqa, SPITiming '
|
|
|
|
writeSPILoop shl SPIDataOut, #1 wc ' Set bit.
|
|
waitpne clockPin, clockPin '
|
|
muxc outa, dataInPin '
|
|
waitpeq clockPin, clockPin '
|
|
|
|
djnz SPICounter, #writeSPILoop ' Loop.
|
|
|
|
mov frqa, #0 ' Stop clock high.
|
|
or outa, dataInPin '
|
|
|
|
writeSPI_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' CRC7 Augmentation
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
CRC7 mov CRCCounter, #7 ' Get variables ready.
|
|
|
|
CRC7Loop shl CRCBuffer, #1 ' Do the CRC7 calculation.
|
|
test CRCBuffer, #$80 wc '
|
|
if_c xor CRCBuffer, #$9 '
|
|
djnz CRCCounter, #CRC7Loop '
|
|
|
|
CRC7_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' CRC16 Augmentation
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
CRC16 mov CRCCounter, #16 ' Get variables ready.
|
|
|
|
CRC16Loop shl CRCBuffer, #1 ' Do the CRC16 calculation.
|
|
test CRCBuffer, CRC16TestBit wc '
|
|
if_c xor CRCBuffer, CRC16Polynomial '
|
|
djnz CRCCounter, #CRC16Loop '
|
|
|
|
CRC16_ret ret ' Return.
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
' Data
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
cardMounted long 0
|
|
|
|
' //////////////////////Constants//////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
fiveHundredAndTwelve long $200 ' Constant 512.
|
|
maxPositiveInteger long $7FFFFFFF ' Constant 2,147,483,647.
|
|
|
|
CRC16TestBit long $10000 ' The CRC16 test bit mask.
|
|
CRC16Polynomial long $1021 ' The CRC16 polynomial bit mask.
|
|
|
|
OCRCheckMask long %00_000000_00110000_00000000_00000000 ' Parameter check mask for OCR bits.
|
|
HCSBitMask long %01_000000_00000000_00000000_00000000 ' Parameter bit mask for HCS bit.
|
|
|
|
rebootInterpreter long ($0001 << 18) | ($3C01 << 4) ' Spin interpreter boot information.
|
|
rebootStackMark long $FFF9FFFF ' Stack mark used for spin code.
|
|
|
|
' //////////////////////Configuration Settings/////////////////////////////////////////////////////////////////////////////////
|
|
|
|
slowTiming long 0 ' 250KHz Clock speed.
|
|
fastTiming long 0 ' 2.5MHz Clock speed.
|
|
|
|
readTimeout long 250_000 ' Read timeout of 100 milliseconds at 2.5Mhz clock.
|
|
writeTimeout long 625_000 ' Write timeout of 250 milliseconds at 2.5Mhz clock.
|
|
|
|
' //////////////////////Pin Masks//////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
dataOutPin long (|<((Data_Out_Pin <# 31) #> 0))
|
|
clockPin long (|<((Clock_Pin <# 31) #> 0))
|
|
dataInPin long (|<((Data_In_Pin <# 31) #> 0))
|
|
chipSelectPin long (|<((Chip_Select_Pin <# 31) #> 0))
|
|
dataOutOff long 0
|
|
|
|
' //////////////////////Addresses//////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
CCFAddress long 0
|
|
CEFAddress long 0
|
|
|
|
CUIDAddress long 0
|
|
|
|
CDBAddress long 0
|
|
CSAAddress long 0
|
|
|
|
|
|
DAT 'Variable Array
|
|
|
|
' //////////////////////Variable Array/////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
cardCommandFlag byte 0
|
|
cardErrorFlag byte 0
|
|
|
|
cardLockID byte 0 'frida ((HUB_Lock <# 7) #> 0)
|
|
cardUniqueID byte 0[17]
|
|
|
|
cardDataBlockAddress long 0
|
|
cardSectorAddress long 0
|
|
cardSectorCount long 0
|
|
|
|
DAT 'String Array
|
|
|
|
' //////////////////////String Array///////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
dot byte ". ", 0
|
|
dotdot byte ".. ", 0
|
|
|
|
{ '@hive
|
|
FSUnmounted byte "File System Unmounted", 0
|
|
FSCorrupted byte "File System Corrupted", 0
|
|
FSUnsupported byte "File System Unsupported", 0
|
|
|
|
fileOrDirectoryNotFound byte "File Or Directory Not Found", 0
|
|
fileNotFound byte "File Not Found", 0
|
|
directoryNotFound byte "Directory Not Found", 0
|
|
}
|
|
|
|
' //////////////////////Run Time Variables/////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
buffer res 1
|
|
counter res 1
|
|
|
|
' //////////////////////Card Variables/////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
cardBuffer res 1
|
|
cardCounter res 1
|
|
|
|
cardType res 1
|
|
cardSize res 1
|
|
|
|
cardSizeMultiplier res 1
|
|
cardSizeMinusOne res 1
|
|
|
|
cardReadBlockLength res 1
|
|
cardWriteBlockLength res 1
|
|
|
|
CSDRegister res 16
|
|
CIDRegister res 16
|
|
|
|
cardRebootSectors res 64
|
|
|
|
' //////////////////////SPI Variables//////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
SPICommandOut res 1
|
|
SPIParameterOut res 1
|
|
SPIResponceIn res 1
|
|
SPILongIn res 1
|
|
|
|
SPIShift res 1
|
|
SPITiming res 1
|
|
|
|
SPIDataIn res 1
|
|
SPIDataOut res 1
|
|
|
|
SPIBuffer res 1
|
|
SPICounter res 1
|
|
|
|
' //////////////////////CRC Variables//////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
CRCBuffer res 1
|
|
CRCCounter res 1
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
fit 496
|
|
|
|
' /////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
|
|
|
|
{{
|
|
|
|
┌─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
|
|
│ TERMS OF USE: MIT License │
|
|
├─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┤
|
|
│Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation │
|
|
│files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, │
|
|
│modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the │
|
|
│Software is furnished to do so, subject to the following conditions: │
|
|
│ │
|
|
│The above copyright notice and this permission notice shall be included in all copies or substantial portions of the │
|
|
│Software. │
|
|
│ │
|
|
│THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE │
|
|
│WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR │
|
|
│COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, │
|
|
│ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. │
|
|
└─────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
|
|
}}
|