2020-07-05 08:54:22 -04:00
|
|
|
( Native words )
|
2020-06-14 09:48:10 -04:00
|
|
|
CODE EXECUTE
|
2020-06-27 22:01:56 -04:00
|
|
|
DE POP,
|
2020-06-14 09:48:10 -04:00
|
|
|
chkPS,
|
2020-06-18 07:16:40 -04:00
|
|
|
JR, lblexec BWR ( execute-B301 )
|
2020-07-05 08:54:22 -04:00
|
|
|
CODE (s) ( string literal )
|
|
|
|
PC ORG @ 0x2d + ! ( stable ABI JP )
|
|
|
|
( 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 PUSH, HL POP, ( <-- IP )
|
|
|
|
E (HL) LDrr, D 0 LDri,
|
|
|
|
DE INCd,
|
|
|
|
DE ADDIYd,
|
|
|
|
HL PUSH,
|
2020-04-22 21:19:12 -04:00
|
|
|
;CODE
|