notaz.gp2x.de
/
megadrive.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
h-int reload test
[megadrive.git]
/
testpico
/
z80_test.s80
1
ORG $0
2
3
init
4
di
5
im $1
6
ld sp, $2000
7
8
loop
9
ld a, ($1000) ; 13
10
or a ; 4
11
jp z, loop ; 10 27 (41 worst)
12
13
ld hl, ($1002) ; src 20
14
ld de, ($1004) ; dst 20
15
ld bc, ($1006) ; len 20
16
17
cp a, 2 ; 7
18
jp z, rd_timing ; 10 77 (118)
19
20
ldir ; 21/16
21
jp end ; 10
22
23
rd_timing
24
ld d, h ; 4
25
ld e, l ; 4
26
inc de ; 6 14 (132)
27
loop_read
28
ld a, (hl) ; 7
29
ld a, (de) ; 7
30
dec bc ; 6
31
ld a, b ; 4
32
or a, c ; 4
33
jp nz,loop_read ; 10 38
34
35
ld a, ($7f08) ; vcnt 13
36
ld de, ($1004) ; dst 20
37
ld (de), a ; 7
38
jp end ; 10 50
39
40
; ---
41
42
BLOCK $38-$
43
44
irq
45
ret
46
47
; ---
48
49
end
50
xor a ; 4
51
ld ($1000), a ; 13
52
jp loop ; 10 27
53