Add small performance test to compute Z80 actual speed.
This commit is contained in:
parent
a80c52bedd
commit
1156e03305
17
src/performance_test.asm
Normal file
17
src/performance_test.asm
Normal file
@ -0,0 +1,17 @@
|
|||||||
|
SECTION code
|
||||||
|
|
||||||
|
PUBLIC _performance_test
|
||||||
|
_performance_test:
|
||||||
|
in a,($A0)
|
||||||
|
|
||||||
|
ld de,$0100
|
||||||
|
loop:
|
||||||
|
ld a,($d000) ; 13
|
||||||
|
|
||||||
|
dec de ; 6
|
||||||
|
ld a,d ; 4
|
||||||
|
or e ; 4
|
||||||
|
jp nz,loop ; 10
|
||||||
|
|
||||||
|
jp _performance_test
|
||||||
|
|
Loading…
Reference in New Issue
Block a user