izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-09-22 00:28:44 +10:00
Code Issues Releases Wiki Activity

wip

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
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),
(HL) CPr,
IFZ, ( same size? )
B A LDrr, ( loop A times )
BEGIN, BEGIN,
HL INCss, DE INCss,
LDA(DE), LDA(DE),
(HL) CPr, (HL) CPr,
JRNZ, BREAK, ( not equal? break early. NZ is set. ) JRNZ, BREAK, ( not equal? break early. NZ is set. )
A ORr, ( if our char is null, stop ) DJNZ, AGAIN,
HL INCss, THEN,
DE INCss,
JRNZ, AGAIN,
PUSHZ, PUSHZ,
;CODE ;CODE

BIN
emul/forth.bin
View File

Binary file not shown.