collapseos/blk/593

16 lines
537 B
Plaintext
Raw Normal View History

2020-04-12 21:49:42 -04:00
( With dst being assumed to be an AT28 EEPROM, perform !
operation while doing the right thing. Checks data integrity
and ABORT on mismatch. )
: AT28! ( n a -- )
2020-04-13 14:41:02 -04:00
2DUP C!
2020-04-27 21:28:34 -04:00
( 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. )
2020-04-12 21:49:42 -04:00
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
;