mirror of
https://github.com/hsoft/collapseos.git
synced 2024-11-27 12:48:07 +11:00
e4a4a9800d
It's a bit more inconvenient in terms of register protection (BC is much more generally useful than IY), but it makes tight spots such as next and execute much faster, so I think it's worth it.
12 lines
294 B
Plaintext
12 lines
294 B
Plaintext
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 )
|
|
BC PUSH,
|
|
LDA(BC), C ADDr,
|
|
IFC, B INCr, THEN,
|
|
C A LDrr,
|
|
BC INCd,
|
|
;CODE
|