mirror of https://github.com/hsoft/collapseos.git
12 lines
310 B
Plaintext
12 lines
310 B
Plaintext
CODE (s) ( 0xd4, string literal )
|
|
( Like (n) but instead of being followed by a 2 bytes
|
|
number, it's followed by a string. When called, puts the
|
|
string's address on PS )
|
|
IY PUSHqq, HL POPqq, ( <-- IP )
|
|
E (HL) LDrr, D 0 LDrn,
|
|
DE INCss,
|
|
DE ADDIYss,
|
|
HL PUSHqq,
|
|
;CODE
|
|
( END OF STABLE ABI )
|