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

69 lines
902B
Raw Blame History 

  1. .equ	RAMSTART	0x4000

  2. .equ	ZASM_REG_MAXCNT		0xff

  3. .equ	ZASM_LREG_MAXCNT	0x40

  4. .equ	ZASM_REG_BUFSZ		0x1000

  5. .equ	ZASM_LREG_BUFSZ		0x200

  6. 

  7. jp	test

  8. 

  9. .inc "core.asm"

  10. .inc "lib/util.asm"

  11. .inc "zasm/util.asm"

  12. .inc "zasm/const.asm"

  13. .equ	SYM_RAMSTART	RAMSTART

  14. .inc "zasm/symbol.asm"

  15. 

  16. testNum:	.db 1

  17. 

  18. sFOO:		.db "FOO", 0

  19. sFOOBAR:	.db "FOOBAR", 0

  20. sOther:		.db "Other", 0

  21. 

  22. test:

  23. 	ld	sp, 0xffff

  24. 

  25. 	; Check that we compare whole strings (a prefix will not match a longer

  26. 	; string).

  27. 	call	symInit

  28. 	ld	hl, sFOOBAR

  29. 	ld	de, 42

  30. 	call	symRegisterGlobal

  31. 	jp	nz, fail

  32. 	ld	hl, sFOO

  33. 	ld	de, 43

  34. 	call	symRegisterGlobal

  35. 	jp	nz, fail

  36. 

  37. 	ld	hl, sFOO

  38. 	call	symFindVal		; don't match FOOBAR

  39. 	jp	nz, fail

  40. 	ld	a, d

  41. 	or	a

  42. 	jp	nz, fail

  43. 	ld	a, e

  44. 	cp	43

  45. 	jp	nz, fail

  46. 	call	nexttest

  47. 

  48. 	ld	hl, sOther

  49. 	call	symFindVal

  50. 	jp	z, fail

  51. 	call	nexttest

  52. 

  53. 	; success

  54. 	xor	a

  55. 	halt

  56. 

  57. nexttest:

  58. 	ld	hl, testNum

  59. 	inc	(hl)

  60. 	ret

  61. 

  62. fail:

  63. 	ld	a, (testNum)

  64. 	halt

  65. 

  66. 

  67.