Compile SPACE?
This commit is contained in:
29
wipforth.wat
29
wipforth.wat
@@ -1113,6 +1113,35 @@
|
|||||||
;; OR OR OR \ Or all results together
|
;; OR OR OR \ Or all results together
|
||||||
;; ;
|
;; ;
|
||||||
|
|
||||||
|
(data (i32.const 0x0600)
|
||||||
|
"\e4\05\00\00"
|
||||||
|
"\06SPACE?\00"
|
||||||
|
"\00\00\00\00"
|
||||||
|
"\08\02\00\00" ;; DUP
|
||||||
|
"\18\04\00\00" ;; LIT
|
||||||
|
"\09\00\00\00" ;; 9
|
||||||
|
"\fc\02\00\00" ;; =
|
||||||
|
"\28\02\00\00" ;; SWAP
|
||||||
|
"\08\02\00\00" ;; DUP
|
||||||
|
"\18\04\00\00" ;; LIT
|
||||||
|
"\0a\00\00\00" ;; 10
|
||||||
|
"\fc\02\00\00" ;; =
|
||||||
|
"\28\02\00\00" ;; SWAP
|
||||||
|
"\08\02\00\00" ;; DUP
|
||||||
|
"\18\04\00\00" ;; LIT
|
||||||
|
"\0d\00\00\00" ;; 13
|
||||||
|
"\fc\02\00\00" ;; =
|
||||||
|
"\28\02\00\00" ;; SWAP
|
||||||
|
"\18\04\00\00" ;; LIT
|
||||||
|
"\20\00\00\00" ;; 32
|
||||||
|
"\fc\02\00\00" ;; =
|
||||||
|
"\98\03\00\00" ;; OR
|
||||||
|
"\98\03\00\00" ;; OR
|
||||||
|
"\98\03\00\00" ;; OR
|
||||||
|
"\0c\04\00\00") ;; EXIT
|
||||||
|
|
||||||
|
;; => 0x68 bytes
|
||||||
|
|
||||||
;; : WORD ( -- len )
|
;; : WORD ( -- len )
|
||||||
;; 0 \ Initial length
|
;; 0 \ Initial length
|
||||||
;;
|
;;
|
||||||
|
|||||||
Reference in New Issue
Block a user