ben
/
crater
miroir de https://github.com/earwig/crater
1
1
Bifurcation 0
Code Versions 0 Activité
An emulator, assembler, and disassembler for the Sega Game Gear
Vous ne pouvez pas sélectionner plus de 25 sujets Les noms de sujets doivent commencer par une lettre ou un nombre, peuvent contenir des tirets ('-') et peuvent comporter jusqu'à 35 caractères.
157 Révisions
2 Branches
1002 KiB
 
 
 
 
 
Aborescence: 49237080a2
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de '49237080a2'
${ noResults }
crater/tests/z80/01_basic_math.asm

94 lignes
2.4 KiB
Brut Annotations Historique 

  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)