forth: make forth/forth.asm spit whole binary
emul/forth/stage{0,1}.asm now only configure constants and append binaries.
This commit is contained in:
parent
966f6df0c5
commit
cf2f6703bb
@ -1,5 +1,3 @@
|
||||
jp init
|
||||
|
||||
.inc "stagec.asm"
|
||||
.inc "forth.asm"
|
||||
|
||||
|
@ -1,5 +1,3 @@
|
||||
jp init
|
||||
|
||||
.inc "stagec.asm"
|
||||
.inc "forth.asm"
|
||||
|
||||
|
@ -2,10 +2,3 @@
|
||||
.equ HERE_INITIAL CODE_END ; override
|
||||
.equ LATEST CODE_END ; override
|
||||
.equ STDIO_PORT 0x00
|
||||
|
||||
init:
|
||||
di
|
||||
; setup stack
|
||||
ld sp, 0xffff
|
||||
call forthMain
|
||||
halt
|
||||
|
@ -103,6 +103,8 @@
|
||||
; *** Stable ABI ***
|
||||
; Those jumps below are supposed to stay at these offsets, always. If they
|
||||
; change bootstrap binaries have to be adjusted because they rely on them.
|
||||
; We're at 0 here
|
||||
jp forthMain
|
||||
.fill 0x17-$
|
||||
JUMPTBL:
|
||||
jp nativeWord
|
||||
@ -683,13 +685,7 @@ abortUnderflow:
|
||||
.db 3
|
||||
BYE:
|
||||
.dw nativeWord
|
||||
; Goodbye Forth! Before we go, let's restore the stack
|
||||
ld sp, (INITIAL_SP)
|
||||
; unwind stack underflow buffer
|
||||
pop af \ pop af \ pop af
|
||||
; success
|
||||
xor a
|
||||
ret
|
||||
halt
|
||||
|
||||
; ( c -- )
|
||||
.db "EMIT"
|
||||
|
Loading…
Reference in New Issue
Block a user