85f8543e17
After having done my initial handshaking, I thought the rest of the job was only a matter of implementing the protocol, but I was wrong. There were many issues to fix before I could reliably communicate with my 328P, mostly timing. Now, I seem to be able to reliably extract fuse information, but only in batch mode (that is, run "asp$ aspfl@" directly, then running "(spid)" before running the next command). If I try to interact with the chip in a single asp$ session, I sometimes get wrong values (but no sync error! that's worrying...).
15 lines
567 B
Plaintext
15 lines
567 B
Plaintext
: _cmd ( b4 b3 b2 b1 -- r4 )
|
|
(spix) DROP DUP (spix) DROP SWAP (spix) = ( b4 f )
|
|
SWAP (spix) SWAP ( r4 f ) NOT IF ABORT" AVR err" THEN ;
|
|
: asp$ ( -- )
|
|
( RESET pulse ) (spie) (spid) (spie)
|
|
( wait 20ms ) 2000 0 DO LOOP
|
|
( enable prog ) 0 0 0x53 0xac _cmd DROP ;
|
|
: asprdy ( -- f ) 0 0 0 0xf0 _cmd NOT ;
|
|
: aspfl@ ( -- lfuse ) 0 0 0 0x50 _cmd ;
|
|
: aspfh@ ( -- hfuse ) 0 0 0x08 0x58 _cmd ;
|
|
: aspfe@ ( -- efuse ) 0 0 0x00 0x58 _cmd ;
|
|
: aspfl! ( lfuse -- ) 0 0xa0 0xac _cmd ;
|
|
: aspfh! ( hfuse -- ) 0 0xa8 0xac _cmd ;
|
|
: aspfe! ( efuse -- ) 0 0xa4 0xac _cmd ;
|