mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-24 14:28:06 +11:00
Move SCPY from z80c to icore
This way, it can be affected by memory mappers.
This commit is contained in:
parent
05c38424c7
commit
64e441d059
Binary file not shown.
@ -181,6 +181,15 @@
|
||||
0x0e _c RAM+
|
||||
;
|
||||
|
||||
: SCPY
|
||||
BEGIN ( a )
|
||||
_c DUP _c C@ ( a c )
|
||||
_c DUP _c C, ( a c )
|
||||
_c NOT IF _c DROP EXIT THEN
|
||||
1 _c + ( a+1 )
|
||||
AGAIN
|
||||
;
|
||||
|
||||
: (entry)
|
||||
_c HERE _c @ ( h )
|
||||
_c WORD ( h s )
|
||||
|
@ -390,24 +390,6 @@ L1 FSET ( found )
|
||||
DE PUSHqq,
|
||||
;CODE
|
||||
|
||||
CODE SCPY
|
||||
HL POPqq,
|
||||
chkPS,
|
||||
( HERE == RAM+4 )
|
||||
DE RAMSTART 0x04 + LDdd(nn),
|
||||
B 0 LDrn,
|
||||
L1 BSET ( loop )
|
||||
A (HL) LDrr,
|
||||
LD(DE)A,
|
||||
HL INCss,
|
||||
DE INCss,
|
||||
B INCr,
|
||||
A ORr,
|
||||
JRNZ, L1 BWR ( loop )
|
||||
DE A LD(dd)r
|
||||
RAMSTART 0x04 + DE LD(nn)dd,
|
||||
;CODE
|
||||
|
||||
CODE (im1)
|
||||
IM1,
|
||||
EI,
|
||||
|
Loading…
Reference in New Issue
Block a user