collapseos/emul/forth/glue1.asm

35 lines
661 B
NASM
Raw Normal View History

; Warning: The offsets of native dict entries must be exactly the same between
; glue0.asm and glue1.asm
.equ LATEST CODE_END ; override
2020-03-09 22:26:02 -04:00
.equ STDIO_PORT 0x00
jp init
2020-03-19 17:26:45 -04:00
.equ GETC emulGetC
.equ PUTC emulPutC
.inc "forth.asm"
2020-03-09 22:26:02 -04: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
.out $ ; should be the same as in glue0, minus 2
; stage0 spits, at the beginning of the binary, the address of the latest word
; Therefore, we can set the LATEST label to here and we should be good.
CODE_END:
.bin "core.bin"
RAMSTART: