izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity
collapseos/emul/forth/glue1.asm

32 lines
491 B
NASM
Raw Normal View History

forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it.
2020-03-12 15:14:44 +11:00
; Warning: The offsets of native dict entries must be exactly the same between
; glue0.asm and glue1.asm
forth: make prev word field relative This should help with upcoming challenges in bootstrapping z80 code compiled through Forth.
2020-03-23 08:41:59 +11:00
.equ LATEST RAMSTART ; override
emul: add forth target
2020-03-10 13:26:02 +11:00
.equ STDIO_PORT 0x00
jp init
forth: inline kernel/stdio
2020-03-20 08:26:45 +11:00
.equ GETC emulGetC
.equ PUTC emulPutC
forth: put all ASM code in the same file
2020-03-20 08:01:15 +11:00
.inc "forth.asm"
forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it.
2020-03-12 15:14:44 +11:00
emul: add forth target
2020-03-10 13:26:02 +11:00
init:
di
; setup stack
ld sp, 0xffff
call forthMain
halt
emulGetC:
; Blocks until a char is returned
in a, (STDIO_PORT)
cp a ; ensure Z
ret
emulPutC:
out (STDIO_PORT), a
ret
forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it.
2020-03-12 15:14:44 +11:00
forth: make prev word field relative This should help with upcoming challenges in bootstrapping z80 code compiled through Forth.
2020-03-23 08:41:59 +11:00
.out $ ; should be the same as in glue0
forth: add bin dict compilation stage! Big one. This allows us to write higher order words directly in Forth, which is much more convenient than writing post-immediate (see "NOT" structure in diff if you want to see what I mean) structures in ASM. These structures can then be written to ROM (rather than loaded in RAM for definitions loaded at run-time). That's quite a bit of tooling that was added, 2 compilations stages, but I think it's well worth it.
2020-03-12 15:14:44 +11:00
.bin "core.bin"
RAMSTART: