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/tools/tests/unit/test_symbol.asm

70 lines
917B
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 "str.asm"

  11. .inc "lib/util.asm"

  12. .inc "zasm/util.asm"

  13. .inc "zasm/const.asm"

  14. .equ	SYM_RAMSTART	RAMSTART

  15. .inc "zasm/symbol.asm"

  16. 

  17. testNum:	.db 1

  18. 

  19. sFOO:		.db "FOO", 0

  20. sFOOBAR:	.db "FOOBAR", 0

  21. sOther:		.db "Other", 0

  22. 

  23. test:

  24. 	ld	sp, 0xffff

  25. 

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

  27. 	; string).

  28. 	call	symInit

  29. 	ld	hl, sFOOBAR

  30. 	ld	de, 42

  31. 	call	symRegisterGlobal

  32. 	jp	nz, fail

  33. 	ld	hl, sFOO

  34. 	ld	de, 43

  35. 	call	symRegisterGlobal

  36. 	jp	nz, fail

  37. 

  38. 	ld	hl, sFOO

  39. 	call	symFindVal		; don't match FOOBAR

  40. 	jp	nz, fail

  41. 	ld	a, d

  42. 	or	a

  43. 	jp	nz, fail

  44. 	ld	a, e

  45. 	cp	43

  46. 	jp	nz, fail

  47. 	call	nexttest

  48. 

  49. 	ld	hl, sOther

  50. 	call	symFindVal

  51. 	jp	z, fail

  52. 	call	nexttest

  53. 

  54. 	; success

  55. 	xor	a

  56. 	halt

  57. 

  58. nexttest:

  59. 	ld	hl, testNum

  60. 	inc	(hl)

  61. 	ret

  62. 

  63. fail:

  64. 	ld	a, (testNum)

  65. 	halt

  66. 

  67. 

  68.