diff options
Diffstat (limited to 'src/Machine.purs')
-rw-r--r-- | src/Machine.purs | 27 |
1 files changed, 27 insertions, 0 deletions
diff --git a/src/Machine.purs b/src/Machine.purs new file mode 100644 index 0000000..7ee4a55 --- /dev/null +++ b/src/Machine.purs @@ -0,0 +1,27 @@ +-- Machine constants +module Machine where + +import Prelude + +-- | Machine’s word size +wordsize :: Int +wordsize = 2 + +-- | Code offset in default dataspace 4 in `wordsize` +codeOffset :: Int +codeOffset = 0x40000 `div` wordsize +-- | Code section size in `wordsize` +codeSize :: Int +codeSize = (128*1024) `div` wordsize + +-- | Pagesize in `wordsize`, documentation sometimes calls this `ps` +pagesize :: Int +pagesize = 512 `div` wordsize + +-- | Max size af a single code module, `cms`, in words +codeModuleSize :: Int +codeModuleSize = 4096 + +defaultDsId :: Int +defaultDsId = 4 + |