1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 19:08:06 +11:00

forth: remove RAMSTART and RS_ADDR from stable ABI

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

View File

@ -104,7 +104,7 @@ updatebootstrap: $(ZASMBIN)
.PHONY: fbootstrap .PHONY: fbootstrap
fbootstrap: forth/stage2 fbootstrap: forth/stage2
cat ./forth/conf.fs ../forth/boot.fs | ./forth/stage2 > forth/boot.bin 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 .PHONY: clean
clean: clean:

Binary file not shown.

Binary file not shown.

View File

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

View File

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