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