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.
36 Révisions
2 Branches
2.8 MiB
 
 
 
 
 
Aborescence: ec73b63ba1
Branches Tags
${ item.name }
Créer la branche ${ searchTerm }
de 'ec73b63ba1'
${ noResults }
crater/tests/01_basic_math.asm

87 lignes
2.2 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, $0F

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

  56. 

  57. 	inc	a

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

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

  60. 

  61. 	ld	a, $FE

  62. 	inc	a

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

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

  65. 

  66. 	inc	a

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

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

  69. 

  70. 	inc	bc

  71. 	inc	de

  72. 	inc	hl

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

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

  75. 

  76. 	ld	c, $FF

  77. 	inc	bc

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

  79. 

  80. 	ld	b, $FF

  81. 	ld	c, $FE

  82. 	inc	bc

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

  84. 

  85. 	inc	bc

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