izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
0
Fork 0
Code Issues Releases Wiki Activity

boot: make routine field 1b 

I forgot to do it earlier. NOP having an opcode of 0, it didn't have
any effect.
This commit is contained in:
Virgil Dupras 2020-04-15 16:24:03 -04:00
parent 6884c5cbe3
commit 2b0186fd58
2 changed files with 6 additions and 4 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.

10
forth/boot.fs
View File

@ -45,18 +45,18 @@ NOP, ( unused )
0 A,, ( prev )
4 A,
L1 BSET ( EXIT )
0x17 A,, ( nativeWord )
0x17 A, ( nativeWord )
0x14 CALLnn, ( popRS )
RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP )
JPNEXT,
NOP, NOP, NOP, ( unused )
NOP, NOP, NOP, NOP, ( unused )
'(' A, 'b' A, 'r' A, ')' A,
PC L1 @ - A,, ( prev )
4 A,
L1 BSET ( BR )
0x17 A,, ( nativeWord )
0x17 A, ( nativeWord )
L2 BSET ( used in CBR )
RAMSTART 0x06 + LDHL(nn), ( RAMSTART+0x06 == IP )
E (HL) LDrr,
@ -67,11 +67,13 @@ L2 BSET ( used in CBR )
RAMSTART 0x06 + LD(nn)HL, ( RAMSTART+0x06 == IP )
JPNEXT,
NOP, ( unused )
'(' A, '?' A, 'b' A, 'r' A, ')' A,
PC L1 @ - A,, ( prev )
5 A,
H@ XCURRENT ! ( set current tip of dict )
0x17 A,, ( nativeWord )
0x17 A, ( nativeWord )
HL POPqq,
chkPS,
A H LDrr,