ben
/
crater
espelhamento de https://github.com/earwig/crater
1
1
Fork 0
Código Versões 0 Atividade
An emulator, assembler, and disassembler for the Sega Game Gear
Você não pode selecionar mais de 25 tópicos Os tópicos devem começar com uma letra ou um número, podem incluir traços ('-') e podem ter até 35 caracteres.
179 Commits
2 Branches
577 KiB
 
 
 
 
 
Tag: 643b0184d7
Branches Tags
${ item.name }
Criar branch ${ searchTerm }
de 643b0184d7
${ noResults }
crater/tests/cpu/01_basic_math.asm

94 linhas
2.4 KiB
Original Anotar Histórico 

  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)