izaya
/
collapseos
mirror of https://github.com/hsoft/collapseos.git
1
1
Fork 0
Code Issues 0 Releases 0 Wiki Activity
Mirror of CollapseOS
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
601 Commits
4 Branches
13MB
Tree: 9ab292a6d5
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from '9ab292a6d5'
${ noResults }
collapseos/apps/memt/main.asm

34 lines
445B
Raw Blame History 

  1. memtMain:

  2. 	ld	de, memtEnd

  3. .loop:

  4. 	ld	b, 0

  5. .iloop:

  6. 	ld	a, b

  7. 	ld	(de), a

  8. 	ld	a, (de)

  9. 	cp	b

  10. 	jr	nz, .notMatching

  11. 	djnz	.iloop

  12. 	inc	de

  13. 	xor	a

  14. 	cp	d

  15. 	jr	nz, .loop

  16. 	cp	e

  17. 	jr	nz, .loop

  18. 	; we rolled over 0xffff, stop

  19. 	ld	hl, .sOk

  20. 	xor	a

  21. 	jp	printstr	; returns

  22. .notMatching:

  23. 	ld	hl, .sNotMatching

  24. 	call	printstr

  25. 	ex	de, hl

  26. 	ld	a, 1

  27. 	jp	printHexPair	; returns

  28. .sNotMatching:

  29. 	.db	"Not matching at pos ", 0xd, 0xa, 0

  30. .sOk:

  31. 	.db	"OK", 0xd, 0xa, 0

  32. memtEnd: