Miroirs/waforth
1
0
Fork 0
mirror of https://github.com/remko/waforth synced 2024-12-27 09:59:29 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

Put pictured output region on a fixed offset after HERE

Browse source
This commit is contained in:
Remko Tronçon 2022-05-15 09:26:10 +02:00
parent 0ccc44a741
commit eedf29d63c
1 changed files with 5 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/waforth.wat
View file

@ -87,8 +87,10 @@
;; RETURN_STACK_BASE := 0x2000
;; STACK_BASE := 0x10000
;; STRINGS_BASE := 0x20000
;; PICTURED_OUTPUT_BASE := 0x21000 (filled backward)
;; DICTIONARY_BASE := 0x21000
;;
;; PICTURED_OUTPUT_OFFSET := 0x200 (offset from HERE; filled backward)
;;
(memory (export "memory") 1600 (; = MEMORY_SIZE_PAGES ;))
;; The header of a WebAssembly module for a compiled word.
@ -235,7 +237,7 @@
;; 6.1.0040
(func $#> (param $tos i32) (result i32)
(i32.store (i32.sub (local.get $tos) (i32.const 8)) (global.get $po))
(i32.store (i32.sub (local.get $tos) (i32.const 4)) (i32.sub (i32.const 0x21000 (; = PICTURED_OUTPUT_BASE ;)) (global.get $po)))
(i32.store (i32.sub (local.get $tos) (i32.const 4)) (i32.sub (i32.add (global.get $here) (i32.const 0x200 (; = PICTURED_OUTPUT_OFFSET ;))) (global.get $po)))
(local.get $tos))
(data (i32.const 135192) "\0c\10\02\00\02#>\00\12\00\00\00")
(elem (i32.const 0x12) $#>)
@ -585,7 +587,7 @@
;; 6.1.0490
(func $<# (param $tos i32) (result i32)
(global.set $po (i32.const 0x21000 (; = PICTURED_OUTPUT_BASE ;)))
(global.set $po (i32.add (global.get $here) (i32.const 0x200 (; = PICTURED_OUTPUT_OFFSET ;))))
(local.get $tos))
(data (i32.const 135580) "\90\11\02\00\02<#\000\00\00\00")
(elem (i32.const 0x30) $<#)