cdo/wipforth
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Compile >CFA

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-27 16:18:15 +00:00
parent a8c51d0703
commit c2b0c55893
1 changed files with 23 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
wipforth.wat
View File

@@ -1313,6 +1313,29 @@
;; 1+ BRANCH [-28] \ Increment address, loop to alignment check ;; 1+ BRANCH [-28] \ Increment address, loop to alignment check
;; ; ;; ;
(data (i32.const 0x081c)
"\8c\07\00\00"
"\04>CFA\00\00\00"
"\00\00\00\00"
"\08\02\00\00" ;; DUP
"\70\07\00\00" ;; NAME-LEN
"\18\04\00\00" ;; LIT
"\05\00\00\00" ;; 5
"\c0\02\00\00" ;; +
"\c0\02\00\00" ;; +
"\08\02\00\00" ;; DUP
"\18\04\00\00" ;; LIT
"\03\00\00\00" ;; 3
"\8c\03\00\00" ;; AND
"\b4\04\00\00" ;; 0BRANCH
"\10\00\00\00" ;; 16
"\90\02\00\00" ;; 1+
"\a4\04\00\00" ;; BRANCH
"\e4\ff\ff\ff" ;; -28
"\0c\04\00\00") ;; EXIT
;; => 0x50 bytes
;; : DIGIT ( byte -- value ) ;; : DIGIT ( byte -- value )
;; DUP DUP 48 >= SWAP 57 <= AND \ Test if 0-9 ;; DUP DUP 48 >= SWAP 57 <= AND \ Test if 0-9
;; 0BRANCH [20] \ Jump to A-Z test if not ;; 0BRANCH [20] \ Jump to A-Z test if not