aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/msp430/words/zero-equal.asm
diff options
context:
space:
mode:
Diffstat (limited to 'amforth-6.5/msp430/words/zero-equal.asm')
-rw-r--r--amforth-6.5/msp430/words/zero-equal.asm5
1 files changed, 5 insertions, 0 deletions
diff --git a/amforth-6.5/msp430/words/zero-equal.asm b/amforth-6.5/msp430/words/zero-equal.asm
new file mode 100644
index 0000000..2c159e2
--- /dev/null
+++ b/amforth-6.5/msp430/words/zero-equal.asm
@@ -0,0 +1,5 @@
+;C 0= n/u -- flag return true if TOS=0
+ CODEHEADER(XT_ZEROEQUAL,2,"0=")
+ SUB #1,TOS ; borrow (clear cy) if TOS was 0
+ SUBC TOS,TOS ; TOS=-1 if borrow was set
+ NEXT