mirror of
https://github.com/adulau/ootp.git
synced 2024-11-22 18:17:10 +00:00
64 lines
2.1 KiB
QBasic
64 lines
2.1 KiB
QBasic
'
|
|
' Copyright (c) 2005,2006 Mark Fullmer
|
|
' Copyright (c) 2009 Mark Fullmer and the Ohio State University
|
|
' All rights reserved.
|
|
'
|
|
' Redistribution and use in source and binary forms, with or without
|
|
' modification, are permitted provided that the following conditions
|
|
' are met:
|
|
' 1. Redistributions of source code must retain the above copyright
|
|
' notice, this list of conditions and the following disclaimer.
|
|
' 2. Redistributions in binary form must reproduce the above copyright
|
|
' notice, this list of conditions and the following disclaimer in the
|
|
' documentation and/or other materials provided with the distribution.
|
|
'
|
|
' THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
|
|
' ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
|
|
' IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
' ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
|
|
' FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
' DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
|
|
' OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
|
|
' HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
|
|
' LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
|
|
' OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
|
|
' SUCH DAMAGE.
|
|
'
|
|
' $Id: SPYRUSP.BAS 13 2009-11-26 16:37:03Z maf $
|
|
'
|
|
|
|
#include "commands.def"
|
|
|
|
Option Explicit
|
|
|
|
' number of blocks
|
|
Const EEBlocks = 16
|
|
|
|
' EEProm has 256 bytes organized here into 16 blocks of 16 bytes
|
|
' the high bit on EEFlag indicates if the next block is in use
|
|
eeprom EEBlock(EEBlocks) as string*16
|
|
eeprom EEFlag(EEBlocks) as byte
|
|
|
|
command &H80 &HA0 SetSpyrusEEBlock(idx as byte, blockData as string*16)
|
|
private idxVal as Byte
|
|
|
|
idxVal = idx and &H7F
|
|
EEBlock(idxVal) = blockData
|
|
EEFlag(idxVal) = idx and &H80
|
|
|
|
end command
|
|
|
|
command &H80 &HA2 GetSpyrusEEBlock(idx as byte, blockData as string*16)
|
|
|
|
if (idx >= EEBlocks) then
|
|
SW1SW2 = swDataNotFound
|
|
exit
|
|
end if
|
|
|
|
blockData = EEBlock(idx)
|
|
if (EEFlag(idx) and &H80) then
|
|
idx = idx or &H80
|
|
end if
|
|
|
|
end command
|
|
|