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

boot: compaction

Browse Source 
It's more hassle than it seems to move the stable ABI...
This commit is contained in:
Virgil Dupras 2020-04-15 20:57:46 -04:00
parent f6727f8e34
commit e1e634c815
2 changed files with 3 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.

11
forth/boot.fs
View File

@ -41,7 +41,6 @@ RAMSTART 0x4e + JPnn, ( RST 30 )
0 JPnn, ( 33, execute ) 0 JPnn, ( 33, execute )
NOP, NOP, ( unused ) NOP, NOP, ( unused )
RAMSTART 0x4e + JPnn, ( RST 38 ) RAMSTART 0x4e + JPnn, ( RST 38 )
NOP, ( unused )
( BOOT DICT ( BOOT DICT
There are only 3 words in the boot dict, but these words' There are only 3 words in the boot dict, but these words'
@ -51,24 +50,20 @@ NOP, ( unused )
'E' A, 'X' A, 'I' A, 'T' A, 'E' A, 'X' A, 'I' A, 'T' A,
0 A,, ( prev ) 0 A,, ( prev )
4 A, 4 A,
H@ XCURRENT ! ( set current tip of dict, 0x43 ) H@ XCURRENT ! ( set current tip of dict, 0x42 )
0x17 A, ( nativeWord ) 0x17 A, ( nativeWord )
0x14 CALLnn, ( popRS ) 0x14 CALLnn, ( popRS )
HL PUSHqq, IY POPqq, ( --> IP ) HL PUSHqq, IY POPqq, ( --> IP )
JPNEXT, JPNEXT,
NOP, NOP, NOP, NOP, ( unused ) CODE (br) ( 0x53 )
CODE (br) ( 0x58 )
L2 BSET ( used in CBR ) L2 BSET ( used in CBR )
E 0 IY+ LDrIXY, E 0 IY+ LDrIXY,
D 1 IY+ LDrIXY, D 1 IY+ LDrIXY,
DE ADDIYss, DE ADDIYss,
JPNEXT, JPNEXT,
NOP, NOP, NOP, NOP, ( unused ) CODE (?br) ( 0x67 )
CODE (?br) ( 0x70 )
HL POPqq, HL POPqq,
chkPS, chkPS,
A H LDrr, A H LDrr,