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.
657 Commits
4 Branches
13MB
Tree: c5c6ef4c6c
Branches Tags
${ item.name }
Create branch ${ searchTerm }
from 'c5c6ef4c6c'
${ noResults }
collapseos/tests/unit/test_util_z.asm

37 lines
326B
Raw Blame History 

  1. jp	test

  2. 

  3. .inc "core.asm"

  4. .inc "str.asm"

  5. .inc "lib/util.asm"

  6. .inc "zasm/util.asm"

  7. 

  8. testNum:	.db 1

  9. sFoo:		.db "foo", 0

  10. 

  11. test:

  12. 	ld	hl, 0xffff

  13. 	ld	sp, hl

  14. 

  15. 	ld	hl, sFoo

  16. 	call	strlen

  17. 	cp	3

  18. 	jp	nz, fail

  19. 	call	nexttest

  20. 

  21. 	; success

  22. 	xor	a

  23. 	halt

  24. 

  25. nexttest:

  26. 	ld	a, (testNum)

  27. 	inc	a

  28. 	ld	(testNum), a

  29. 	ret

  30. 

  31. fail:

  32. 	ld	a, (testNum)

  33. 	halt

  34. 

  35.