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
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
.MEMORYMAP
SLOTSIZE $2000
DEFAULTSLOT 0
SLOT 0 $8000
SLOT 1 $E000
SLOT 2 $0000
.ENDME
.ROMBANKMAP
BANKSTOTAL 3
BANKSIZE $2000
BANKS 3
.ENDRO
.bank 0
.org $0000
RESET:
SEI ; disable IRQs
CLD ; disable decimal mode
LDX #$40
STX $4017.W ; disable APU frame IRQ
LDX #$FF
TXS ; Set up stack
INX ; now X = 0
STX $2000.W ; disable NMI
STX $2001.W ; disable rendering
STX $4010.W ; disable DMC IRQs
vblankwait1: ; First wait for vblank to make sure PPU is ready
BIT $2002
BPL vblankwait1
clrmem:
LDA #$00
STA $0000, x
STA $0100, x
STA $0200, x
STA $0400, x
STA $0500, x
STA $0600, x
STA $0700, x
LDA #$FE
STA $0300, x
INX
BNE clrmem
vblankwait2: ; Second wait for vblank, PPU is ready after this
BIT $2002
BPL vblankwait2
LDA #%10000000 ;intensify blues
STA $2001
loop:
; read the controller state
JSR read_controller1
; if A is not pressed, return
LDX #$00
LDA buttons_pressed.w, X
CMP #$00
BEQ loop
LDY current_state.w
CPY #$00
BEQ turn_green
CPY #$01
BEQ turn_red
turn_blue:
LDA #%10000000
STA $2001
LDA #$00
STA current_state.w
JMP color_set
turn_green:
LDA #%01000000
STA $2001
LDA #$01
STA current_state.w
JMP color_set
turn_red:
LDA #%00100000
STA $2001
LDA #$02
STA current_state.w
JMP color_set
color_set:
JMP loop
read_controller1:
; latch
LDA #$01
STA $4016
LDA #$00
STA $4016
; clock
LDX #$00
read_controller1_values:
CPX #$08
BPL end_read_controller1
LDA $4016
AND #%00000001
STA buttons_pressed.w, X
INX
JMP read_controller1_values
end_read_controller1:
RTS
NMI:
RTI
.bank 1 slot 1
.orga $FFFA ;first of the three vectors starts here
.dw NMI ;when an NMI happens (once per frame if enabled) the
;processor will jump to the label NMI:
.dw RESET ;when the processor first turns on or is reset, it will jump
;to the label RESET:
.dw 0 ;external interrupt IRQ is not used in this tutorial
.bank 2 slot 2
.org $0000
buttons_pressed: .ds 8, $00
current_state: .ds 1, $00
|