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_parse.asm

70 lines
703B
Raw Blame History 

  1. jp	test

  2. 

  3. .inc "core.asm"

  4. .inc "parse.asm"

  5. 

  6. zasmGetPC:

  7. 	ret

  8. 

  9. testNum:	.db 1

  10. 

  11. sFoo:		.db "Foo", 0

  12. saB:		.db "aB", 0

  13. s99:		.db "99", 0

  14. 

  15. test:

  16. 	ld	hl, 0xffff

  17. 	ld	sp, hl

  18. 

  19. 	ld	a, '8'

  20. 	call	parseHex

  21. 	jp	c, fail

  22. 	cp	8

  23. 	jp	nz, fail

  24. 	call	nexttest

  25. 

  26. 	ld	a, 'e'

  27. 	call	parseHex

  28. 	jp	c, fail

  29. 	cp	0xe

  30. 	jp	nz, fail

  31. 	call	nexttest

  32. 

  33. 	ld	a, 'x'

  34. 	call	parseHex

  35. 	jp	nc, fail

  36. 	call	nexttest

  37. 

  38. 	ld	hl, s99

  39. 	call	parseHexPair

  40. 	jp	c, fail

  41. 	cp	0x99

  42. 	jp	nz, fail

  43. 	call	nexttest

  44. 

  45. 	ld	hl, saB

  46. 	call	parseHexPair

  47. 	jp	c, fail

  48. 	cp	0xab

  49. 	jp	nz, fail

  50. 	call	nexttest

  51. 

  52. 	ld	hl, sFoo

  53. 	call	parseHexPair

  54. 	jp	nc, fail

  55. 	call	nexttest

  56. 

  57. 	; success

  58. 	xor	a

  59. 	halt

  60. 

  61. nexttest:

  62. 	ld	a, (testNum)

  63. 	inc	a

  64. 	ld	(testNum), a

  65. 	ret

  66. 

  67. fail:

  68. 	ld	a, (testNum)

  69. 	halt