Ver código fonte

forth: make forth/forth.asm spit whole binary

emul/forth/stage{0,1}.asm now only configure constants and append
binaries.
pull/95/head
Virgil Dupras 4 anos atrás
pai
commit
cf2f6703bb
4 arquivos alterados com 3 adições e 18 exclusões
  1. +0
    -2
      emul/forth/stage0.asm
  2. +0
    -2
      emul/forth/stage1.asm
  3. +0
    -7
      emul/forth/stagec.asm
  4. +3
    -7
      forth/forth.asm

+ 0
- 2
emul/forth/stage0.asm Ver arquivo

@@ -1,5 +1,3 @@
jp init

.inc "stagec.asm"
.inc "forth.asm"



+ 0
- 2
emul/forth/stage1.asm Ver arquivo

@@ -1,5 +1,3 @@
jp init

.inc "stagec.asm"
.inc "forth.asm"



+ 0
- 7
emul/forth/stagec.asm Ver arquivo

@@ -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

+ 3
- 7
forth/forth.asm Ver arquivo

@@ -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"


Carregando…
Cancelar
Salvar