izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-25 04:48:06 +11:00
Code Issues 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 )
NOP, NOP, ( unused )
RAMSTART 0x4e + JPnn, ( RST 38 )
NOP, ( unused )
( BOOT DICT
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,
0 A,, ( prev )
4 A,
H@ XCURRENT ! ( set current tip of dict, 0x43 )
H@ XCURRENT ! ( set current tip of dict, 0x42 )
0x17 A, ( nativeWord )
0x14 CALLnn, ( popRS )
HL PUSHqq, IY POPqq, ( --> IP )
JPNEXT,
NOP, NOP, NOP, NOP, ( unused )
CODE (br) ( 0x58 )
CODE (br) ( 0x53 )
L2 BSET ( used in CBR )
E 0 IY+ LDrIXY,
D 1 IY+ LDrIXY,
DE ADDIYss,
JPNEXT,
NOP, NOP, NOP, NOP, ( unused )
CODE (?br) ( 0x70 )
CODE (?br) ( 0x67 )
HL POPqq,
chkPS,
A H LDrr,