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

boot: a little dereferencing to make things a bit faster

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-20 23:30:08 -04:00
parent e569e40665
commit ae14c55feb
2 changed files with 5 additions and 3 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.

8
forth/boot.z80
View File

@ -281,6 +281,7 @@ PC ORG @ 0x1b + ! ( next )
IY INCss, IY INCss,
( continue to execute ) ( continue to execute )
L3 BSET
PC ORG @ 0x34 + ! ( execute ) PC ORG @ 0x34 + ! ( execute )
( DE points to wordref ) ( DE points to wordref )
EXDEHL, EXDEHL,
@ -292,6 +293,7 @@ PC ORG @ 0x34 + ! ( execute )
( DE points to PFA ) ( DE points to PFA )
JP(HL), JP(HL),
L1 BSET
PC ORG @ 0x0f + ! ( compiledWord ) PC ORG @ 0x0f + ! ( compiledWord )
( Execute a list of atoms, which always end with EXIT. ( Execute a list of atoms, which always end with EXIT.
DE points to that list. What do we do: DE points to that list. What do we do:
@ -308,7 +310,7 @@ PC ORG @ 0x0f + ! ( compiledWord )
D (HL) LDrr, D (HL) LDrr,
HL INCss, HL INCss,
HL PUSHqq, IY POPqq, ( --> IP ) HL PUSHqq, IY POPqq, ( --> IP )
0x33 JPnn, ( 33 == execute ) JR, L3 BWR ( execute )
PC ORG @ 0x0c + ! ( cellWord ) PC ORG @ 0x0c + ! ( cellWord )
( Pushes PFA directly ) ( Pushes PFA directly )
@ -330,7 +332,7 @@ PC ORG @ 0x2c + ! ( doesWord )
E (HL) LDrr, E (HL) LDrr,
HL INCss, HL INCss,
D (HL) LDrr, D (HL) LDrr,
0x0e JPnn, ( 0e == compiledWord ) JR, L1 BWR ( compiledWord )
( Core words ) ( Core words )
KEY and EMIT are not defined here. There're KEY and EMIT are not defined here. There're
@ -340,7 +342,7 @@ PC ORG @ 0x2c + ! ( doesWord )
CODE EXECUTE CODE EXECUTE
DE POPqq, DE POPqq,
chkPS, chkPS,
0x33 JPnn, ( 33 == execute ) JR, L3 BWR ( execute )
( a b c -- b c a ) ( a b c -- b c a )
CODE ROT CODE ROT