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

44 lines
389B
Raw Blame History 

  1. jp	test

  2. 

  3. .inc "core.asm"

  4. .inc "parse.asm"

  5. .inc "zasm/util.asm"

  6. 

  7. testNum:	.db 1

  8. sFoo:		.db "foo", 0

  9. 

  10. test:

  11. 	ld	hl, 0xffff

  12. 	ld	sp, hl

  13. 

  14. 	ld	de, 12

  15. 	ld	bc, 4

  16. 	call	multDEBC

  17. 	ld	a, l

  18. 	cp	48

  19. 	jp	nz, fail

  20. 	call	nexttest

  21. 

  22. 	ld	hl, sFoo

  23. 	call	strlen

  24. 	cp	3

  25. 	jp	nz, fail

  26. 	call	nexttest

  27. 

  28. 	; success

  29. 	xor	a

  30. 	halt

  31. 

  32. nexttest:

  33. 	ld	a, (testNum)

  34. 	inc	a

  35. 	ld	(testNum), a

  36. 	ret

  37. 

  38. fail:

  39. 	ld	a, (testNum)

  40. 	halt

  41. 

  42.