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

boot: optimize (br)

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-15 20:03:56 -04:00
parent 0750e8d0c0
commit a56ace4d3e
3 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
emul/forth/z80c.bin
View File

Binary file not shown.

12
forth/boot.fs
View File

@ -65,16 +65,12 @@ PC L1 @ - A,, ( prev )
L1 BSET ( BR ) L1 BSET ( BR )
0x17 A, ( nativeWord ) 0x17 A, ( nativeWord )
L2 BSET ( used in CBR ) L2 BSET ( used in CBR )
IY PUSHqq, HL POPqq, ( <-- IP ) E 0 IY+ LDrIXY,
E (HL) LDrr, D 1 IY+ LDrIXY,
HL INCss, DE ADDIYss,
D (HL) LDrr,
HL DECss,
DE ADDHLss,
HL PUSHqq, IY POPqq, ( --> IP )
JPNEXT, JPNEXT,
NOP, ( unused ) NOP, NOP, NOP, NOP, ( unused )
'(' A, '?' A, 'b' A, 'r' A, ')' A, '(' A, '?' A, 'b' A, 'r' A, ')' A,
PC L1 @ - A,, ( prev ) PC L1 @ - A,, ( prev )

5
forth/z80a.fs
View File

@ -158,6 +158,11 @@
0x0b OP1qq DECss, 0x0b OP1qq DECss,
0x09 OP1qq ADDHLss, 0x09 OP1qq ADDHLss,
: ADDIXss, 0xdd A, ADDHLss, ;
: ADDIXIX, HL ADDIXss, ;
: ADDIYss, 0xfd A, ADDHLss, ;
: ADDIYIY, HL ADDIYss, ;
: _1rr : _1rr
C@ ( rd rr op ) C@ ( rd rr op )
ROT ( rr op rd ) ROT ( rr op rd )