collapseos/blk/328

15 lines
272 B
Plaintext
Raw Normal View History

2020-04-23 11:19:12 +10:00
CODE S=
DE POPqq,
HL POPqq,
chkPS,
BEGIN,
2020-04-23 11:19:12 +10:00
LDA(DE),
(HL) CPr,
JRNZ, BREAK, ( not equal? break early. NZ is set. )
2020-04-23 11:19:12 +10:00
A ORr, ( if our char is null, stop )
HL INCss,
DE INCss,
JRNZ, AGAIN,
2020-04-23 11:19:12 +10:00
PUSHZ,
;CODE