izaya/collapseos
1
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Optimize boot binary's word execution code

Browse Source 
Should be significantly faster now. Less push/popping and usage of
DE instead of IY.
This commit is contained in:
Virgil Dupras 2020-04-15 16:09:10 -04:00
parent d8de8a058a
commit d2ec5e271c
3 changed files with 23 additions and 20 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.

41
forth/boot.fs
View File

@ -20,7 +20,7 @@ NOP, ( 0a, unused )
0 JPnn, ( 0e, compiledWord ) 0 JPnn, ( 0e, compiledWord )
0 JPnn, ( 11, pushRS ) 0 JPnn, ( 11, pushRS )
0 JPnn, ( 14, popRS ) 0 JPnn, ( 14, popRS )
JP(IY), NOP, ( 17, nativeWord ) EXDEHL, JP(HL), NOP, ( 17, nativeWord )
0 JPnn, ( 1a, next ) 0 JPnn, ( 1a, next )
0 JPnn, ( 1d, chkPS ) 0 JPnn, ( 1d, chkPS )
NOP, NOP, ( 20, numberWord ) NOP, NOP, ( 20, numberWord )
@ -153,7 +153,6 @@ PC ORG @ 1 + ! ( main )
EXDEHL, EXDEHL,
HL L1 @ LDddnn, HL L1 @ LDddnn,
0x03 CALLnn, ( 03 == find ) 0x03 CALLnn, ( 03 == find )
DE PUSHqq,
0x33 JPnn, ( 33 == execute ) 0x33 JPnn, ( 33 == execute )
PC ORG @ 4 + ! ( find ) PC ORG @ 4 + ! ( find )
@ -261,7 +260,6 @@ L1 BSET ( abortUnderflow )
HL PC 7 - LDddnn, HL PC 7 - LDddnn,
DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT ) DE RAMSTART 0x02 + LDdd(nn), ( RAM+02 == CURRENT )
0x03 CALLnn, ( find ) 0x03 CALLnn, ( find )
DE PUSHqq,
0x33 JPnn, ( 33 == execute ) 0x33 JPnn, ( 33 == execute )
@ -305,17 +303,17 @@ PC ORG @ 0x1b + ! ( next )
E (HL) LDrr, E (HL) LDrr,
HL INCss, HL INCss,
D (HL) LDrr, D (HL) LDrr,
DE PUSHqq,
( continue to execute ) ( continue to execute )
PC ORG @ 0x34 + ! ( execute ) PC ORG @ 0x34 + ! ( execute )
IY POPqq, ( is a wordref ) ( DE points to wordref )
chkPS, EXDEHL,
L 0 IY+ LDrIXY, E (HL) LDrr,
H 0 LDrn, D 0 LDrn,
EXDEHL,
( HL points to code pointer ) ( HL points to code pointer )
IY INCss, DE INCss,
( IY points to PFA ) ( DE points to PFA )
JP(HL), JP(HL),
PC ORG @ 0x0f + ! ( compiledWord ) PC ORG @ 0x0f + ! ( compiledWord )
@ -326,19 +324,19 @@ PC ORG @ 0x0f + ! ( compiledWord )
3. Execute the first atom of the list. ) 3. Execute the first atom of the list. )
RAMSTART 0x06 + LDHL(nn), ( RAMSTART+0x06 == IP ) RAMSTART 0x06 + LDHL(nn), ( RAMSTART+0x06 == IP )
0x11 CALLnn, ( 11 == pushRS ) 0x11 CALLnn, ( 11 == pushRS )
IY PUSHqq, HL POPqq, EXDEHL, ( HL points to PFA )
( While we increase, dereference into DE for execute call
later. )
E (HL) LDrr,
HL INCss, HL INCss,
D (HL) LDrr,
HL INCss, HL INCss,
RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP ) RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP )
( IY still is our atom reference )
L 0 IY+ LDrIXY,
H 1 IY+ LDrIXY,
HL PUSHqq, ( arg for EXECUTE )
0x33 JPnn, ( 33 == execute ) 0x33 JPnn, ( 33 == execute )
PC ORG @ 0x0c + ! ( cellWord ) PC ORG @ 0x0c + ! ( cellWord )
( Pushes PFA directly ) ( Pushes PFA directly )
IY PUSHqq, DE PUSHqq,
JPNEXT, JPNEXT,
PC ORG @ 0x2c + ! ( doesWord ) PC ORG @ 0x2c + ! ( doesWord )
@ -349,8 +347,11 @@ PC ORG @ 0x2c + ! ( doesWord )
linkfrom the PFA, and then continue as a regular linkfrom the PFA, and then continue as a regular
compiledWord. compiledWord.
) )
IY PUSHqq, ( like a regular cell ) DE PUSHqq, ( like a regular cell )
L 2 IY+ LDrIXY, EXDEHL,
H 3 IY+ LDrIXY, HL INCss,
HL PUSHqq, IY POPqq, HL INCss,
E (HL) LDrr,
HL INCss,
D (HL) LDrr,
0x0e JPnn, ( 0e == compiledWord ) 0x0e JPnn, ( 0e == compiledWord )

2
forth/z80c.fs
View File

@ -15,6 +15,8 @@
) )
CODE EXECUTE CODE EXECUTE
DE POPqq,
chkPS,
0x33 JPnn, ( 33 == execute ) 0x33 JPnn, ( 33 == execute )
( a b c -- b c a ) ( a b c -- b c a )