blob: 435c31f15b939e34247e97d9a2475dfaa867d838 (
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
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
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
|
PRG_RAM_PRESENT .rs 1 ; PRG RAM present flag
; build info
show_build_info:
; detect flash memory type
jsr flash_detect
; detect CHR RAM size
jsr detect_chr_ram_size
; check presense of PRG RAM
jsr prg_ram_detect
; clear screen
jsr clear_screen
.ifdef string_commit
print_commit:
lda #$21
sta PPUADDR
lda #$04
sta PPUADDR
; filename
lda #LOW(string_commit)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_commit)
sta <COPY_SOURCE_ADDR+1
jsr print_text
.endif
print_filename:
bit PPUSTATUS
lda #$21
sta PPUADDR
lda #$44
sta PPUADDR
; filename
lda #LOW(string_file)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_file)
sta <COPY_SOURCE_ADDR+1
jsr print_text
print_build_date:
lda #$21
sta PPUADDR
lda #$84
sta PPUADDR
; build date
lda #LOW(string_build_date)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_build_date)
sta <COPY_SOURCE_ADDR+1
jsr print_text
print_build_time:
lda #$21
sta PPUADDR
lda #$C4
sta PPUADDR
; build time
lda #LOW(string_build_time)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_build_time)
sta <COPY_SOURCE_ADDR+1
jsr print_text
lda #$22
sta PPUADDR
lda #$04
sta PPUADDR
; console region/type
lda #LOW(string_console_type)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_console_type)
sta <COPY_SOURCE_ADDR+1
jsr print_text
lda <CONSOLE_TYPE
and #$08
beq .console_type_no_NEW
lda #LOW(string_new)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_new)
sta <COPY_SOURCE_ADDR+1
jsr print_text
.console_type_no_NEW:
lda <CONSOLE_TYPE
and #$01
beq .console_type_no_NTSC
lda #LOW(string_ntsc)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_ntsc)
sta <COPY_SOURCE_ADDR+1
jsr print_text
.console_type_no_NTSC:
lda <CONSOLE_TYPE
and #$02
beq .console_type_no_PAL
lda #LOW(string_pal)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_pal)
sta <COPY_SOURCE_ADDR+1
jsr print_text
.console_type_no_PAL:
lda <CONSOLE_TYPE
and #$04
beq .console_type_no_DENDY
lda #LOW(string_dendy)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_dendy)
sta <COPY_SOURCE_ADDR+1
jsr print_text
.console_type_no_DENDY:
; flash memory type and size
print_flash_type:
lda #$22
sta PPUADDR
lda #$44
sta PPUADDR
lda #LOW(string_flash)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_flash)
sta <COPY_SOURCE_ADDR+1
jsr print_text
; is it writable?
lda <FLASH_TYPE
bne .writable
lda #LOW(string_read_only)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_read_only)
sta <COPY_SOURCE_ADDR+1
jsr print_text
jmp print_chr_size
; yes, it's writable
.writable:
lda #LOW(string_writable)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_writable)
sta <COPY_SOURCE_ADDR+1
jsr print_text
; how many memory?
lda <FLASH_TYPE
sec
sbc #20
asl A
tay
lda flash_sizes, y
sta <COPY_SOURCE_ADDR
lda flash_sizes+1, y
sta <COPY_SOURCE_ADDR+1
jsr print_text
print_chr_size:
lda #$22
sta PPUADDR
lda #$84
sta PPUADDR
lda #LOW(string_chr_ram)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_chr_ram)
sta <COPY_SOURCE_ADDR+1
jsr print_text
lda <CHR_RAM_SIZE
asl A
tay
lda chr_ram_sizes, y
sta <COPY_SOURCE_ADDR
lda chr_ram_sizes+1, y
sta <COPY_SOURCE_ADDR+1
jsr print_text
print_prg_ram:
lda #$22
sta PPUADDR
lda #$C4
sta PPUADDR
lda #LOW(string_prg_ram)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_prg_ram)
sta <COPY_SOURCE_ADDR+1
jsr print_text
lda PRG_RAM_PRESENT
beq .not_present
lda #LOW(string_present)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_present)
sta <COPY_SOURCE_ADDR+1
jmp .end
.not_present:
lda #LOW(string_not_available)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_not_available)
sta <COPY_SOURCE_ADDR+1
.end:
jsr print_text
; draw header
lda #$20
sta PPUADDR
lda #$00
sta PPUADDR
jsr draw_header1
jsr draw_header2
; draw footer
lda #$23
sta PPUADDR
lda #$40
sta PPUADDR
jsr draw_footer1
jsr draw_footer2
jsr load_text_attributes
; disable arraows
lda #$FF
sta <SPRITE_Y_TARGET
sta SPRITE_0_Y
sta SPRITE_1_Y
; disable scrolling
inc SCROLL_LOCK
; enable PPU
jsr waitblank_simple
lda #%00001000 ; first nametable
sta PPUCTRL
lda #%00011110 ; enable sprites
sta PPUMASK
; start dimming
jsr dim_base_palette_in
show_build_info_infin:
jsr waitblank
lda BUTTONS
and #%00000011
beq show_build_info_infin
jsr dim_base_palette_out
jmp Start
prg_ram_detect:
lda #0
sta PRG_RAM_PRESENT
jsr enable_prg_ram
lda #$AA
sta $7000
cmp $7000
bne .end
lda #$55
sta $7000
cmp $7000
bne .end
lda #1
sta PRG_RAM_PRESENT
.end:
jsr disable_prg_ram
rts
|
