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

z80: remove remaining indirections in execute calls

Browse Source 
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
blk/283
View File

@ -1,14 +1,14 @@
H@ ORG ! H@ ORG !
0 JPnn, ( 00, main ) NOP, NOP, NOP, ( 03, unused ) 0 JPnn, ( 00, main ) NOP, NOP, NOP, ( unused )
NOP, NOP, ( 06, unused ) NOP, NOP, ( 08, LATEST ) NOP, NOP, ( unused ) NOP, NOP, ( 08, LATEST )
NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused ) NOP, NOP, NOP, NOP, NOP, NOP, NOP, ( 0a, unused )
0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS ) 0 JPnn, ( 11, pushRS ) 0 JPnn, ( 14, popRS )
NOP, NOP, NOP, ( 17, unused ) NOP, NOP, NOP, ( unused )
0 JPnn, ( 1a, next ) 0 JPnn, ( unused ) 0 JPnn, ( 1a, next ) NOP, NOP, NOP, ( unused )
NOP, NOP, NOP, NOP, ( 20, unused ) NOP, NOP, NOP, NOP, ( unused )
NOP, NOP, NOP, NOP, ( 24, unused ) NOP, NOP, NOP, NOP, ( unused )
0 JPnn, ( RST 28 ) 0 JPnn, ( RST 28 )
NOP, NOP, NOP, NOP, NOP, ( 2b, unused ) NOP, NOP, NOP, NOP, NOP, ( unused )
0 JPnn, ( RST 30 ) 0 JPnn, ( RST 30 )
0 JPnn, ( 33, execute ) NOP, NOP, ( unused ) NOP, NOP, NOP, NOP, NOP, ( unused )
0 JPnn, ( RST 38 ) 0 JPnn, ( RST 38 )

2
blk/298
View File

@ -3,7 +3,7 @@ lblofl BSET ( abortUnderflow )
HL PC 7 - LDddnn, HL PC 7 - LDddnn,
DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT ) DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT )
lblfind @ CALLnn, lblfind @ CALLnn,
0x33 BJP, ( 33 == execute ) JR, L2 FWR ( execute, B301 )

2
blk/299
View File

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

3
blk/301
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 ( We don't apply BIN( reliably on stable ABI stuff, we
might need to adjust addr. Ugly, but well... ) might need to adjust addr. Ugly, but well... )
BIN( @ [IF] BIN( @ [IF]

BIN
emul/forth.bin
View File

Binary file not shown.