izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

Use SUBHLss, macro more

This commit is contained in:
Virgil Dupras 2020-04-13 19:31:23 -04:00
parent d919a10265
commit 7d184b9e70
2 changed files with 4 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
forth/boot.fs
View File

@ -260,8 +260,7 @@ PC ORG @ 0x1e + ! ( chkPS )
HL DECss,
HL DECss,
HL DECss,
A ORr, ( clear carry )
SP SBCHLss,
SP SUBHLss,
HL POPqq,
CNC RETcc, ( INITIAL_SP >= SP? good )
JR, L1 BWR ( abortUnderflow )
@ -269,8 +268,7 @@ PC ORG @ 0x1e + ! ( chkPS )
L3 BSET ( chkRS )
IX PUSHqq, HL POPqq,
DE RS_ADDR LDddnn,
A ORr, ( clear carry )
DE SBCHLss,
DE SUBHLss,
CNC RETcc, ( IX >= RS_ADDR? good )
JR, L1 BWR ( abortUnderflow )

6
forth/z80c.fs
View File

@ -168,8 +168,7 @@ CODE -
DE POPqq,
HL POPqq,
chkPS,
A ORr,
DE SBCHLss,
DE SUBHLss,
HL PUSHqq,
;CODE
@ -335,8 +334,7 @@ CODE CMP
HL POPqq,
DE POPqq,
chkPS,
A ORr, ( clear carry )
DE SBCHLss,
DE SUBHLss,
( 40 == flagsToBC )
40 CALLnn,
BC PUSHqq,