mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Add drv/at28
This commit is contained in:
parent
76e4422796
commit
4c7dfe0dfe
17
drv/at28.fs
Normal file
17
drv/at28.fs
Normal file
@ -0,0 +1,17 @@
|
||||
( With dst being assumed to be an AT28 EEPROM, perform !
|
||||
operation while doing the right thing. Checks data integrity
|
||||
and ABORT on mismatch.
|
||||
)
|
||||
( a n -- )
|
||||
: AT28!
|
||||
2DUP C! SWAP
|
||||
( as long as writing operation is running, IO/6 will toggle at each
|
||||
read attempt. We know that write is finished when we read the same
|
||||
value twice. )
|
||||
BEGIN ( n1 a )
|
||||
DUP C@ ( n1 a n2 )
|
||||
OVER C@ ( n1 a n2 n3 )
|
||||
= UNTIL
|
||||
( We're finished writing. do we have a mismatch? )
|
||||
C@ = NOT IF ABORT" mismatch" THEN
|
||||
;
|
Loading…
Reference in New Issue
Block a user