mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-05 08:30:55 +11:00
18 lines
533 B
Forth
18 lines
533 B
Forth
|
( 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
|
||
|
|
;
|