blob: acd3910b50a95ab9d4b6f2c03177c389775c5363 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
.segment "HEADER"
.byte 'N', 'E', 'S', $1A
.byte $02
.byte $01
.byte $00
.byte $00
.segment "CODE"
.macro JAL ADDR
jmp ADDR
.endmacro
.macro DEC_MOVEMENT_X ADDR
lda ADDR
rts
.endmacro
.proc bounce
rts
.endproc
.proc chase
JAL bounce
@wait:
DEC_MOVEMENT_X #1
DEC_MOVEMENT_X #2
JAL bounce
DEC_MOVEMENT_X #3
JAL chase
bne @wait
rts
.endproc
.macro NEXT_EXPLOSION_INDEX_X
inx
inx
inx
.endmacro
.scope Explosions
.proc init
@loop:
NEXT_EXPLOSION_INDEX_X
bne @loop
rts
.endproc
.endscope
;;; asan:stack full
|
