ben
/
crater
peilaus alkaen https://github.com/earwig/crater
1
1
Fork 0
Koodi Julkaisut 0 Toiminta
An emulator, assembler, and disassembler for the Sega Game Gear
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.
118 Commitit
2 Branchit
577 KiB
 
 
 
 
 
Puu: 8babffb562
Branchit Tagit
${ item.name }
Create branch ${ searchTerm }
from '8babffb562'
${ noResults }
crater/tests/01_basic_math.asm

94 rivejä
2.4 KiB
Raaka Blame Historia 

  1. ;; Copyright (C) 2014-2015 Ben Kurtovic <ben.kurtovic@gmail.com>

  2. ;; Released under the terms of the MIT License. See LICENSE for details.

  3. 

  4. ; ----- CRATER UNIT TESTING SUITE ---------------------------------------------

  5. 

  6. ; This file contains test cases for basic arithmetic operations on registers,

  7. ; without involving memory or control flow.

  8. 

  9. .include	"_header.asm"

  10. 

  11. test:

  12. 	ld	a, 0

  13. 	ld	b, 0

  14. 	ld	c, 0

  15. 	ld	d, 0

  16. 	ld	e, 0

  17. 	ld	h, 0

  18. 	ld	l, 0

  19. 	emu	rassert(a=$00, b=$00, c=$00, d=$00, e=$00, h=$00, l=$00)

  20. 

  21. 	inc	a

  22. 	emu	rassert(a=$01, b=$00, c=$00, d=$00, e=$00, h=$00, l=$00)

  23. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  24. 

  25. 	inc	b

  26. 	emu	rassert(a=$01, b=$01, c=$00, d=$00, e=$00, h=$00, l=$00)

  27. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  28. 

  29. 	inc	c

  30. 	emu	rassert(a=$01, b=$01, c=$01, d=$00, e=$00, h=$00, l=$00)

  31. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  32. 

  33. 	inc	d

  34. 	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$00, h=$00, l=$00)

  35. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  36. 

  37. 	inc	e

  38. 	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$00, l=$00)

  39. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  40. 

  41. 	inc	h

  42. 	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$01, l=$00)

  43. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  44. 

  45. 	inc	l

  46. 	emu	rassert(a=$01, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  47. 	emu	fassert(s=0, z=0, f5=0, h=0, f3=0, pv=0, n=0)

  48. 

  49. 	inc	a

  50. 	inc	a

  51. 	inc	a

  52. 	emu	rassert(a=$04, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  53. 

  54. 	ld	a, 42

  55. 	emu	rassert(a=$2A, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  56. 

  57. 	inc	a

  58. 	emu	rassert(a=$2B, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  59. 	emu	fassert(s=0, z=0, f5=1, h=0, f3=0, pv=0, n=0)

  60. 

  61. 	ld	a, $0F

  62. 	emu	rassert(a=$0F, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  63. 

  64. 	inc	a

  65. 	emu	rassert(a=$10, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  66. 	emu	fassert(s=0, z=0, f5=0, h=1, f3=0, pv=0, n=0)

  67. 

  68. 	ld	a, $FE

  69. 	inc	a

  70. 	emu	rassert(a=$FF, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  71. 	emu	fassert(s=1, z=0, f5=1, h=1, f3=1, pv=0, n=0)

  72. 

  73. 	inc	a

  74. 	emu	rassert(a=$00, b=$01, c=$01, d=$01, e=$01, h=$01, l=$01)

  75. 	emu	fassert(s=0, z=1, f5=0, h=1, f3=0, pv=1, n=0)

  76. 

  77. 	inc	bc

  78. 	inc	de

  79. 	inc	hl

  80. 	emu	rassert(a=$00, b=$01, c=$02, d=$01, e=$02, h=$01, l=$02)

  81. 	emu	fassert(s=0, z=1, f5=0, h=1, f3=0, pv=1, n=0)

  82. 

  83. 	ld	c, $FF

  84. 	inc	bc

  85. 	emu	rassert(a=$00, b=$02, c=$00, d=$01, e=$02, h=$01, l=$02)

  86. 

  87. 	ld	b, $FF

  88. 	ld	c, $FE

  89. 	inc	bc

  90. 	emu	rassert(a=$00, b=$FF, c=$FF, d=$01, e=$02, h=$01, l=$02)

  91. 

  92. 	inc	bc

  93. 	emu	rassert(a=$00, b=$00, c=$00, d=$01, e=$02, h=$01, l=$02)