izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-23 19:28:06 +11:00
Code Issues Releases Wiki Activity

forth: remove RAMSTART and RS_ADDR from stable ABI

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-02 11:39:40 -04:00
parent 2481ed4b66
commit 941791d609
5 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
emul/Makefile
View File

@ -104,7 +104,7 @@ updatebootstrap: $(ZASMBIN)
.PHONY: fbootstrap
fbootstrap: forth/stage2
cat ./forth/conf.fs ../forth/boot.fs | ./forth/stage2 > forth/boot.bin
cat ../forth/z80c.fs forth/emul.fs ../forth/icore.fs | ./forth/stage2 | tee forth/z80c.bin > /dev/null
cat ./forth/conf.fs ../forth/z80c.fs forth/emul.fs ../forth/icore.fs | ./forth/stage2 | tee forth/z80c.bin > /dev/null
.PHONY: clean
clean:

BIN
emul/forth/boot.bin
View File

Binary file not shown.

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

4
forth/boot.fs
View File

@ -25,11 +25,11 @@ JP(IY), NOP, ( 17, nativeWord )
0 JPnn, ( 1d, chkPS )
NOP, NOP, ( 20, numberWord )
NOP, NOP, ( 22, litWord )
RAMSTART , ( 24, RAMSTART )
NOP, NOP, ( 24, unused )
NOP, NOP, ( 26, unused )
0 JPnn, ( 28, flagsToBC )
0 JPnn, ( 2b, doesWord )
RS_ADDR , ( 2e, RS_ADDR )
NOP, NOP, ( 2e, unused )
NOP, NOP, ( 30, unused )
NOP, NOP, ( 32, unused )
NOP, NOP, ( 34, unused )

9
forth/z80c.fs
View File

@ -18,6 +18,8 @@
Oh, also: KEY and EMIT are not defined here. There're
expected to be defined in platform-specific code.
This unit expects the same conf as boot.fs.
)
( dummy entry for dict hook )
@ -333,13 +335,12 @@ CODE BYE
;CODE
CODE (resSP)
( INITIAL_SP == 36 )
SP 36 @ LDdd(nn),
( INITIAL_SP == RAM+0 )
SP RAMSTART LDdd(nn),
;CODE
CODE (resRS)
( RS_ADDR == 46 )
IX 46 @ LDddnn,
IX RS_ADDR LDddnn,
;CODE
CODE SCMP