mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 17:28:06 +11:00
z80: small optimization in cell execution
This commit is contained in:
parent
035532acf7
commit
aca9bc9058
2
blk/301
2
blk/301
@ -9,5 +9,5 @@ lblexec BSET L1 FSET ( B299 ) L2 FSET ( B298 )
|
|||||||
A ORr, IFZ, EXDEHL, JP(HL), THEN,
|
A ORr, IFZ, EXDEHL, JP(HL), THEN,
|
||||||
A DECr, JRZ, L1 FWR ( compiled B303 )
|
A DECr, JRZ, L1 FWR ( compiled B303 )
|
||||||
( cell or does. push PFA ) DE PUSHqq,
|
( cell or does. push PFA ) DE PUSHqq,
|
||||||
A DECr, IFZ, JPNEXT, THEN, ( cell )
|
A DECr, JRZ, lblnext BWR ( cell )
|
||||||
( continue to does, B302 )
|
( continue to does, B302 )
|
||||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user