Commit | Line | Data |
---|---|---|
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 |