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

Use proper RAM addr for HERE in SCPY

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-04 07:34:38 -04:00
parent 80891d7ec1
commit d013c572ad
2 changed files with 3 additions and 2 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.

5
forth/z80c.fs
View File

@ -393,7 +393,8 @@ L1 FSET ( found )
CODE SCPY CODE SCPY
HL POPqq, HL POPqq,
chkPS, chkPS,
DE HERE LDdd(nn), ( HERE == RAM+4 )
DE RAMSTART 0x04 + LDdd(nn),
B 0 LDrn, B 0 LDrn,
L1 BSET ( loop ) L1 BSET ( loop )
A (HL) LDrr, A (HL) LDrr,
@ -404,7 +405,7 @@ L1 BSET ( loop )
A ORr, A ORr,
JRNZ, L1 BWR ( loop ) JRNZ, L1 BWR ( loop )
DE A LD(dd)r DE A LD(dd)r
HERE DE LD(nn)dd, RAMSTART 0x04 + DE LD(nn)dd,
;CODE ;CODE
CODE (im1) CODE (im1)