| commit | 94f1e76762631172b18f933fda5993b84cdb608b | [log] [tgz] |
|---|---|---|
| author | swissChili <swisschili@fastmail.com> | Sat Jan 29 21:55:45 2022 -0800 |
| committer | swissChili <swisschili@fastmail.com> | Sat Jan 29 21:55:45 2022 -0800 |
| tree | 6798f09c03d83dcb595fa2706ef0a7cbbf941ccc | |
| parent | e4d2e288935e0935ae7cd7b6e7e57e77c474af99 [diff] [blame] |
Add core words
diff --git a/DICTNRY.ASM b/DICTNRY.ASM index d180f8d..7a78fe8 100644 --- a/DICTNRY.ASM +++ b/DICTNRY.ASM
@@ -85,6 +85,14 @@ NEXT + ;; ( char address -- ) + DEFWORD_RAW SETCHAR, 'C!' + POP BX + POP AX + MOV BYTE [BX], AL + NEXT + + ;; Code field address DEFWORD_RAW CFA, '>CFA' POP BX @@ -128,6 +136,7 @@ NEXT + ;; ( start length -- ) DEFWORD_RAW CMOVE_HERE, 'CMOVE,' POP CX RSPUSH SI