upload: use A! instead of C!

It makes the tool much more versatile. I'll have adev being included
in all recipes, so it can be assumed.
This commit is contained in:
Virgil Dupras 2020-04-13 12:00:56 -04:00
parent d08a9711c5
commit d0545d555f
2 changed files with 2 additions and 1 deletions

View File

@ -225,6 +225,7 @@ yourself. Tough love they call it.
* `cat stage2.bin ../../forth/readln.fs ../../forth/adev.fs run.fs > stage2r.bin` * `cat stage2.bin ../../forth/readln.fs ../../forth/adev.fs run.fs > stage2r.bin`
* Don't forget `RDLN$` and `ADEV$`. * Don't forget `RDLN$` and `ADEV$`.
* `RLDICT` is like `RLCORE` but with a chosen target. * `RLDICT` is like `RLCORE` but with a chosen target.
* `stripfc` can help you deal with size constraints.
[rc2014]: https://rc2014.co.uk [rc2014]: https://rc2014.co.uk
[romwrite]: https://github.com/hsoft/romwrite [romwrite]: https://github.com/hsoft/romwrite

View File

@ -44,7 +44,7 @@ int main(int argc, char **argv)
set_blocking(fd, 1); set_blocking(fd, 1);
char s[0x40]; char s[0x40];
sprintf(s, sprintf(s,
": _ 0x%04x 0x%04x DO KEY DUP .x I C! LOOP ; _", ": _ 0x%04x 0x%04x DO KEY DUP .x I A! LOOP ; _",
memptr+bytecount, memptr); memptr+bytecount, memptr);
sendcmd(fd, s); sendcmd(fd, s);