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

Fill in addresses of constants and variables (and add a few more)

Browse Source
This commit is contained in:
Camden Dixie O'Brien
2026-02-26 18:10:56 +00:00
parent 5dcc5de722
commit dde7d0d710
1 changed files with 69 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

109
wipforth.wat
View File

@@ -1004,61 +1004,90 @@
;; Built-in constants and variables
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\05DOCOL\00\00"
;; "\01\00\00\00"
;; "\00\00\00\00")
(data (i32.const 0x04b8)
"\a8\04\00\00"
"\05DOCOL\00\00"
"\01\00\00\00"
"\00\00\00\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\07DOCONST"
;; "\01\00\00\00"
;; "\01\00\00\00")
(data (i32.const 0x04cc)
"\b8\04\00\00"
"\07DOCONST"
"\01\00\00\00"
"\01\00\00\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\05DOVAR\00\00"
;; "\01\00\00\00"
;; "\02\00\00\00")
(data (i32.const 0x04e0)
"\cc\04\00\00"
"\05DOVAR\00\00"
"\01\00\00\00"
"\02\00\00\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\02R0\00"
;; "\01\00\00\00"
;; "\00\00\01\00")
(data (i32.const 0x04f4)
"\e0\04\00\00"
"\07LIT-CFA"
"\01\00\00\00"
"\10\04\00\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\02S0\00"
;; "\01\00\00\00"
;; "\00\f0\00\00")
(data (i32.const 0x0508)
"\f4\04\00\00"
"\02R0\00"
"\01\00\00\00"
"\00\00\01\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\05STATE\00\00"
;; "\02\00\00\00"
;; "\00\00\00\00")
(data (i32.const 0x0518)
"\08\05\00\00"
"\02S0\00"
"\01\00\00\00"
"\00\f0\00\00")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; "\04BASE\00\00\00"
;; "\02\00\00\00"
;; "\0a\00\00\00")
(data (i32.const 0x0528)
"\18\05\00\00"
"\04TRUE\00\00\00"
"\01\00\00\00"
"\ff\ff\ff\ff")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
(data (i32.const 0x053c)
"\82\05\00\00"
"\05FALSE\00\00"
"\01\00\00\00"
"\00\00\00\00")
(data (i32.const 0x0550)
"\3c\05\00\00"
"\05STATE\00\00"
"\02\00\00\00"
"\00\00\00\00")
(data (i32.const 0x0564)
"\50\05\00\00"
"\04BASE\00\00\00"
"\02\00\00\00"
"\0a\00\00\00")
;; (data (i32.const 0x0578)
;; "\64\05\00\00"
;; "\04HERE\00\00\00"
;; "\02\00\00\00"
;; "\??\??\??\??")
;; (data (i32.const 0x????)
;; "\??\??\??\??"
;; (data (i32.const 0x058c)
;; "\78\05\00\00"
;; "\06LATEST\00"
;; "\02\00\00\00"
;; "\??\??\??\??")
;; Outer interpreter
(data (i32.const 0x05a0)
"\8c\05\00\00"
"\07WORDBUF"
"\02\00\00\00")
;; Skip 0x20 bytes for the word buffer
(data (i32.const 0x05d0)
"\a0\05\00\00"
"\05ERROR\00\00"
"\02\00\00\00"
"\00\00\00\00")
;; The trampoline is a workaround for WebAssembly's lack of indirect
;; jumps and code addresses. Instead of jumping into the next