notaz.gp2x.de
/
megadrive.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
blame
|
history
|
raw
|
HEAD
some tests
[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 bc, ($1002) ; src 20
14
ld de, ($1004) ; dst 20 67
15
ld a, ($1001) ; len 13
16
ld h, a ; 4 84 (98)
17
loop_cp
18
ld a, (bc) ; 7
19
ld (de), a ; 7
20
inc bc ; 6
21
inc de ; 6
22
dec h ; 4 30
23
jp nz, loop_cp ; 10 40
24
25
xor a ; 4
26
ld ($1000), a ; 13
27
jp loop ; 10 27
28
29
; ---
30
31
BLOCK $38-$
32
33
irq
34
ret
35