izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-24 01:58:06 +11:00
Code Issues Releases Wiki Activity

z80: inline cellWord in stable ABI

Browse Source
This commit is contained in:
Virgil Dupras 2020-06-14 10:05:34 -04:00
parent 40f92b9bab
commit 38d5a9f303
3 changed files with 2 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
blk/283
View File

@ -1,7 +1,8 @@
H@ ORG ! H@ ORG !
0 JPnn, ( 00, main ) 0 JPnn, ( 03, find ) 0 JPnn, ( 00, main ) 0 JPnn, ( 03, find )
NOP, NOP, ( 06, unused ) NOP, NOP, ( 08, LATEST ) NOP, NOP, ( 06, unused ) NOP, NOP, ( 08, LATEST )
NOP, ( 0a, unused ) 0 JPnn, ( 0b, cellWord ) NOP, ( 0a, unused )
( 0b cellWord, push PFA ) DE PUSHqq, JR, 0x0c A, ( next )
0 JPnn, ( 0e, compiledWord ) 0 JPnn, ( 11, pushRS ) 0 JPnn, ( 0e, compiledWord ) 0 JPnn, ( 11, pushRS )
0 JPnn, ( 14, popRS ) 0 JPnn, ( 14, popRS )
EXDEHL, JP(HL), NOP, ( 17, nativeWord ) EXDEHL, JP(HL), NOP, ( 17, nativeWord )
@ -13,4 +14,3 @@ NOP, NOP, ( 24, addrWord ) NOP, NOP, ( 26, unused )
0 JPnn, ( RST 30 ) 0 JPnn, ( RST 30 )
0 JPnn, ( 33, execute ) NOP, NOP, ( unused ) 0 JPnn, ( 33, execute ) NOP, NOP, ( unused )
0 JPnn, ( RST 38 ) 0 JPnn, ( RST 38 )

16
blk/303
View File

@ -1,16 +0,0 @@
PC ORG @ 0x0c + ! ( cellWord )
( Pushes PFA directly )
DE PUSHqq,
JPNEXT,

BIN
emul/forth.bin
View File

Binary file not shown.