mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 17:58:07 +11:00
z80: remove remaining indirections in execute calls
We now have a stable ABI that is pretty cleared up...
This commit is contained in:
parent
42818d25be
commit
035532acf7
24
blk/283
24
blk/283
@ -1,14 +1,14 @@
|
||||
H@ ORG !
|
||||
0 JPnn, ( 00, main ) NOP, NOP, NOP, ( 03, unused )
|
||||
NOP, NOP, ( 06, unused ) NOP, NOP, ( 08, LATEST )
|
||||
0 JPnn, ( 00, main ) NOP, NOP, NOP, ( unused )
|
||||
NOP, NOP, ( unused ) NOP, NOP, ( 08, LATEST )
|
||||
NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused )
|
||||
0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS )
|
||||
NOP, NOP, NOP, ( 17, unused )
|
||||
0 JPnn, ( 1a, next ) 0 JPnn, ( unused )
|
||||
NOP, NOP, NOP, NOP, ( 20, unused )
|
||||
NOP, NOP, NOP, NOP, ( 24, unused )
|
||||
0 JPnn, ( RST 28 )
|
||||
NOP, NOP, NOP, NOP, NOP, ( 2b, unused )
|
||||
0 JPnn, ( RST 30 )
|
||||
0 JPnn, ( 33, execute ) NOP, NOP, ( unused )
|
||||
0 JPnn, ( RST 38 )
|
||||
0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS )
|
||||
NOP, NOP, NOP, ( unused )
|
||||
0 JPnn, ( 1a, next ) NOP, NOP, NOP, ( unused )
|
||||
NOP, NOP, NOP, NOP, ( unused )
|
||||
NOP, NOP, NOP, NOP, ( unused )
|
||||
0 JPnn, ( RST 28 )
|
||||
NOP, NOP, NOP, NOP, NOP, ( unused )
|
||||
0 JPnn, ( RST 30 )
|
||||
NOP, NOP, NOP, NOP, NOP, ( unused )
|
||||
0 JPnn, ( RST 38 )
|
||||
|
2
blk/298
2
blk/298
@ -3,7 +3,7 @@ lblofl BSET ( abortUnderflow )
|
||||
HL PC 7 - LDddnn,
|
||||
DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT )
|
||||
lblfind @ CALLnn,
|
||||
0x33 BJP, ( 33 == execute )
|
||||
JR, L2 FWR ( execute, B301 )
|
||||
|
||||
|
||||
|
||||
|
2
blk/299
2
blk/299
@ -13,4 +13,4 @@ PC ORG @ 1 + ! ( main )
|
||||
EXDEHL,
|
||||
HL L1 @ LDddnn,
|
||||
lblfind @ CALLnn,
|
||||
0x33 BJP, ( 33 == execute )
|
||||
JR, L1 FWR ( execute, B301 )
|
||||
|
3
blk/301
3
blk/301
@ -1,4 +1,5 @@
|
||||
lblexec BSET PC ORG @ 0x34 + ! ( execute. DE -> wordref )
|
||||
lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 )
|
||||
( DE -> wordref )
|
||||
( We don't apply BIN( reliably on stable ABI stuff, we
|
||||
might need to adjust addr. Ugly, but well... )
|
||||
BIN( @ [IF]
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user