mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-23 16:08: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 DECr, JRZ, L1 FWR ( compiled B303 )
|
||||
( cell or does. push PFA ) DE PUSHqq,
|
||||
A DECr, IFZ, JPNEXT, THEN, ( cell )
|
||||
A DECr, JRZ, lblnext BWR ( cell )
|
||||
( continue to does, B302 )
|
||||
|
BIN
emul/forth.bin
BIN
emul/forth.bin
Binary file not shown.
Loading…
Reference in New Issue
Block a user