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

Use SUBHLss, macro more

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

6
forth/z80c.fs
View File

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