V3.7

[fast-forth/master.git] / MSP430-FORTH / BOOT.4th

diff --git a/MSP430-FORTH/BOOT.4th b/MSP430-FORTH/BOOT.4th
index 89a2804..578ce46 100644 (file)
--- a/MSP430-FORTH/BOOT.4th
+++ b/MSP430-FORTH/BOOT.4th
@@ -61,6 +61,20 @@
 \ --------------------------------------------------------------------------------
 
 
+[UNDEFINED] = [IF]
+\ https://forth-standard.org/standard/core/Equal
+\ =      x1 x2 -- flag         test x1=x2
+CODE =
+SUB @PSP+,TOS   \ 2
+0<> IF          \ 2
+    AND #0,TOS  \ 1
+    MOV @IP+,PC \ 4
+THEN
+XOR #-1,TOS     \ 1 flag Z = 1
+MOV @IP+,PC     \ 4
+ENDCODE
+[THEN]
+
 \ it's an example:
 
 $04 = [IF]      \ if origin of SYSRST is <reset>