SHOW:
|
|
- or go back to the newest paste.
1 | !to "sprite.prg",cbm | |
2 | - | * = $0801 |
2 | + | *=$0801 |
3 | !word bend | |
4 | !word 10 | |
5 | !byte $9e | |
6 | !text "2061", 0 | |
7 | bend: !word 0 | |
8 | ||
9 | lda #$01 | |
10 | sta $d015 | |
11 | sta $d027 | |
12 | lda #$40 | |
13 | sta $d000 | |
14 | sta $d001 | |
15 | lda #$80 | |
16 | sta $07f8 | |
17 | mainloop: | |
18 | lda $d012 | |
19 | cmp #$ff | |
20 | bne mainloop | |
21 | ||
22 | lda dir | |
23 | beq down | |
24 | ||
25 | ldx coord | |
26 | dex | |
27 | stx coord | |
28 | stx $d000 | |
29 | stx $d001 | |
30 | cpx #$40 | |
31 | bne mainloop | |
32 | ||
33 | lda #$00 | |
34 | sta dir | |
35 | jmp mainloop | |
36 | ||
37 | down: | |
38 | ldx coord | |
39 | inx | |
40 | stx coord | |
41 | stx $d000 | |
42 | stx $d001 | |
43 | cpx #$e0 | |
44 | bne mainloop | |
45 | ||
46 | lda #$01 | |
47 | sta dir | |
48 | jmp mainloop | |
49 | ||
50 | coord | |
51 | !byte $40 | |
52 | dir | |
53 | !byte 0 |