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 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 |