From d0545d555f78418c552f3596026d96325e1e30f9 Mon Sep 17 00:00:00 2001
From: Virgil Dupras <hsoft@hardcoded.net>
Date: Mon, 13 Apr 2020 12:00:56 -0400
Subject: [PATCH] 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.
---
 recipes/rc2014/README.md | 1 +
 tools/upload.c           | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/recipes/rc2014/README.md b/recipes/rc2014/README.md
index 540ca81..4f6fccd 100644
--- a/recipes/rc2014/README.md
+++ b/recipes/rc2014/README.md
@@ -225,6 +225,7 @@ yourself. Tough love they call it.
 * `cat stage2.bin ../../forth/readln.fs ../../forth/adev.fs run.fs > stage2r.bin`
 * Don't forget `RDLN$` and `ADEV$`.
 * `RLDICT` is like `RLCORE` but with a chosen target.
+* `stripfc` can help you deal with size constraints.
 
 [rc2014]: https://rc2014.co.uk
 [romwrite]: https://github.com/hsoft/romwrite
diff --git a/tools/upload.c b/tools/upload.c
index fb60935..3d34168 100644
--- a/tools/upload.c
+++ b/tools/upload.c
@@ -44,7 +44,7 @@ int main(int argc, char **argv)
     set_blocking(fd, 1);
     char s[0x40];
     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);
     sendcmd(fd, s);