OSDN Git Service
(root)
/
fast-forth
/
master.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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>
\ it's an example:
$04 = [IF] \ if origin of SYSRST is <reset>