mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-30 21:08:05 +11:00
Reduce the scope of the stable ABI
Only 2>R in actually needed in the RSP family (for LOOP). Reducing the scope of the stable ABI makes porting to other arches easier.
This commit is contained in:
parent
bc8144b4be
commit
abb4dc8bd7
18
blk/286
18
blk/286
@ -1,16 +1,16 @@
|
|||||||
CODE >R ( 0xa8 )
|
CODE 2>R ( 0xa9 )
|
||||||
HL POPqq,
|
|
||||||
17 BCALL, ( 17 == pushRS )
|
|
||||||
;CODE NOP, NOP, NOP,
|
|
||||||
CODE 2>R ( 0xb9 )
|
|
||||||
DE POPqq, HL POPqq,
|
DE POPqq, HL POPqq,
|
||||||
17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,
|
17 BCALL, ( 17 == pushRS ) EXDEHL, 17 BCALL,
|
||||||
;CODE NOP, NOP, NOP,
|
;CODE ( END OF STABLE ABI )
|
||||||
CODE R> ( 0xce )
|
CODE >R
|
||||||
|
HL POPqq,
|
||||||
|
17 BCALL, ( 17 == pushRS )
|
||||||
|
;CODE
|
||||||
|
CODE R>
|
||||||
20 BCALL, ( 20 == popRS )
|
20 BCALL, ( 20 == popRS )
|
||||||
HL PUSHqq,
|
HL PUSHqq,
|
||||||
;CODE
|
;CODE
|
||||||
CODE 2R> ( 0xdc )
|
CODE 2R>
|
||||||
20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,
|
20 BCALL, ( 20 == popRS ) EXDEHL, 20 BCALL,
|
||||||
HL PUSHqq, DE PUSHqq,
|
HL PUSHqq, DE PUSHqq,
|
||||||
;CODE ( END OF STABLE ABI )
|
;CODE
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user