mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-24 02:58:06 +11:00
0892193cbe
I don't remove z80a.fs yet because build process needs it, but that will change shortly.
17 lines
195 B
Plaintext
17 lines
195 B
Plaintext
( dd nn -- )
|
|
: LDdd(nn),
|
|
0xed A,
|
|
SWAP <<4 0x4b OR A,
|
|
A,,
|
|
;
|
|
|
|
( nn dd -- )
|
|
: LD(nn)dd,
|
|
0xed A,
|
|
<<4 0x43 OR A,
|
|
A,,
|
|
;
|
|
|
|
: JP(IX), IX DROP JP(HL), ;
|
|
: JP(IY), IY DROP JP(HL), ;
|