1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-22 00:48:45 +10:00
This commit is contained in:
Virgil Dupras 2020-05-25 07:45:19 -04:00
parent c668433c5d
commit a776df27d2
2 changed files with 13 additions and 11 deletions

24
blk/328
View File

@ -1,14 +1,16 @@
CODE S= CODE S=
DE POPqq, DE POPqq, HL POPqq, chkPS,
HL POPqq, HL DECss, DE DECss,
chkPS, LDA(DE),
BEGIN, (HL) CPr,
LDA(DE), IFZ, ( same size? )
(HL) CPr, B A LDrr, ( loop A times )
JRNZ, BREAK, ( not equal? break early. NZ is set. ) BEGIN,
A ORr, ( if our char is null, stop ) HL INCss, DE INCss,
HL INCss, LDA(DE),
DE INCss, (HL) CPr,
JRNZ, AGAIN, JRNZ, BREAK, ( not equal? break early. NZ is set. )
DJNZ, AGAIN,
THEN,
PUSHZ, PUSHZ,
;CODE ;CODE

Binary file not shown.