commit 70b7a4279934e584f9a7b1e08e242d0a189e17ed parent 1db65aae618a6b7941410052d33808a12af80f34 Author: Henry Wilson <m3henry@googlemail.com> Date: Fri, 16 Jun 2017 14:04:48 +0100 cleaning Diffstat:
| M | main.s | | | 19 | +++++++++++-------- |
1 file changed, 11 insertions(+), 8 deletions(-)
diff --git a/main.s b/main.s @@ -35,18 +35,21 @@ quit: forthword const 10 const 4 .quad flag + .quad greet + .quad dottest + .quad halt + +dottest: forthword + const -8 + .quad dot .quad cr + endword + +greet: forthword string "Hello, World!" .quad print .quad cr - const -8 - .quad dot - .quad cr - const -10 - .quad negate - const 10 - .quad equal - .quad halt + endword flag: forthword flaglp: .quad over