z80: remove remaining indirections in execute calls

We now have a stable ABI that is pretty cleared up...
This commit is contained in:
Virgil Dupras 2020-06-18 07:50:20 -04:00
parent 42818d25be
commit 035532acf7
5 changed files with 16 additions and 15 deletions

24
blk/283
View File

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

View File

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

View File

@ -13,4 +13,4 @@ PC ORG @ 1 + ! ( main )
EXDEHL,
HL L1 @ LDddnn,
lblfind @ CALLnn,
0x33 BJP, ( 33 == execute )
JR, L1 FWR ( execute, B301 )

View File

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

Binary file not shown.