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 ;; Built-in constants and variables
;; (data (i32.const 0x????) (data (i32.const 0x04b8)
;; "\??\??\??\??" "\a8\04\00\00"
;; "\05DOCOL\00\00" "\05DOCOL\00\00"
;; "\01\00\00\00" "\01\00\00\00"
;; "\00\00\00\00") "\00\00\00\00")
;; (data (i32.const 0x????) (data (i32.const 0x04cc)
;; "\??\??\??\??" "\b8\04\00\00"
;; "\07DOCONST" "\07DOCONST"
;; "\01\00\00\00" "\01\00\00\00"
;; "\01\00\00\00") "\01\00\00\00")
;; (data (i32.const 0x????) (data (i32.const 0x04e0)
;; "\??\??\??\??" "\cc\04\00\00"
;; "\05DOVAR\00\00" "\05DOVAR\00\00"
;; "\01\00\00\00" "\01\00\00\00"
;; "\02\00\00\00") "\02\00\00\00")
;; (data (i32.const 0x????) (data (i32.const 0x04f4)
;; "\??\??\??\??" "\e0\04\00\00"
;; "\02R0\00" "\07LIT-CFA"
;; "\01\00\00\00" "\01\00\00\00"
;; "\00\00\01\00") "\10\04\00\00")
;; (data (i32.const 0x????) (data (i32.const 0x0508)
;; "\??\??\??\??" "\f4\04\00\00"
;; "\02S0\00" "\02R0\00"
;; "\01\00\00\00" "\01\00\00\00"
;; "\00\f0\00\00") "\00\00\01\00")
;; (data (i32.const 0x????) (data (i32.const 0x0518)
;; "\??\??\??\??" "\08\05\00\00"
;; "\05STATE\00\00" "\02S0\00"
;; "\02\00\00\00" "\01\00\00\00"
;; "\00\00\00\00") "\00\f0\00\00")
;; (data (i32.const 0x????) (data (i32.const 0x0528)
;; "\??\??\??\??" "\18\05\00\00"
;; "\04BASE\00\00\00" "\04TRUE\00\00\00"
;; "\02\00\00\00" "\01\00\00\00"
;; "\0a\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" ;; "\04HERE\00\00\00"
;; "\02\00\00\00" ;; "\02\00\00\00"
;; "\??\??\??\??") ;; "\??\??\??\??")
;; (data (i32.const 0x????) ;; (data (i32.const 0x058c)
;; "\??\??\??\??" ;; "\78\05\00\00"
;; "\06LATEST\00" ;; "\06LATEST\00"
;; "\02\00\00\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 ;; The trampoline is a workaround for WebAssembly's lack of indirect
;; jumps and code addresses. Instead of jumping into the next ;; jumps and code addresses. Instead of jumping into the next