From b31dcba4ea3314343aece10e794ca12df94c78b1 Mon Sep 17 00:00:00 2001 From: Naren Ratan Date: Wed, 11 Dec 2019 22:15:06 +0000 Subject: Add another count register --- jonesforth.S | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/jonesforth.S b/jonesforth.S index 4af6701..53c1b7a 100644 --- a/jonesforth.S +++ b/jonesforth.S @@ -26,7 +26,8 @@ #define E x17 // End pointer #define OUTB x11 // Output buffer pointer -#define n x10 // Count register +#define n x9 // Count register +#define m x10 // Count register // Stack macros .macro push s,x; str \x,[\s,-8]!; .endm // e.g. push D,x0 pushes x0 to data stack @@ -116,6 +117,10 @@ def "n"; push D,n; NEXT; def "n!"; pop D,n; NEXT def "n+"; add n,n,1; NEXT; def "n-"; sub n,n,1; NEXT def "n0"; mov n,0; NEXT +def "m"; push D,m; NEXT; def "m!"; pop D,m; NEXT +def "m+"; add m,m,1; NEXT; def "m-"; sub m,m,1; NEXT +def "m0"; mov m,0; NEXT + def KEY; bl key; push D,x0; NEXT; key: cmp K,E; b.ge fill; ldrb w0,[K],1; ret // Fill buffer if exhausted and read next character -- cgit 1.4.1-2-gfad0