commit 623f587a59855fee2cb05ab172f6dfc902a94076 parent 371726cebfffdbcaad94e772de8f4a74088478d4 Author: Henry Wilson <m3henry@googlemail.com> Date: Sat, 17 Jun 2017 14:12:03 +0100 removed newline from input Diffstat:
| M | compile.sh | | | 2 | +- |
| M | main.s | | | 12 | ++++++++---- |
2 files changed, 9 insertions(+), 5 deletions(-)
diff --git a/compile.sh b/compile.sh @@ -1,4 +1,4 @@ #! /bin/bash -gcc -c -o obj/main.o main.s && ld -o bin/aFORTH obj/* && echo "Testing, 123..." | bin/aFORTH +gcc -c -o obj/main.o main.s && ld -o bin/aFORTH obj/* && echo -n "Testing, 123!" | bin/aFORTH echo "Returns:" $? diff --git a/main.s b/main.s @@ -181,10 +181,14 @@ _dot: forthword endword dotdot: forthword - string "..." - do print - do _dotdot - do cr + say "..." + do top + const stack + do nequal + if 1f + say "Stack Empty" +1: do _dotdot + saycr "..." endword _dotdot: forthword