izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-12-24 14:18:06 +11:00
Code Issues 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
HL POPqq,
chkPS,
DE HERE LDdd(nn),
( HERE == RAM+4 )
DE RAMSTART 0x04 + LDdd(nn),
B 0 LDrn,
L1 BSET ( loop )
A (HL) LDrr,
@ -404,7 +405,7 @@ L1 BSET ( loop )
A ORr,
JRNZ, L1 BWR ( loop )
DE A LD(dd)r
HERE DE LD(nn)dd,
RAMSTART 0x04 + DE LD(nn)dd,
;CODE
CODE (im1)