blob: 8d582fda7e7a95c70a77246ce972cd701c42ea1e (
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
|
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
bit PPUSTATUS
lda #$21
sta PPUADDR
lda #$24
sta PPUADDR
; filename
lda #LOW(string_file)
sta <COPY_SOURCE_ADDR
lda #HIGH(string_file)
sta <COPY_SOURCE_ADDR+1
jsr print_text
lda #$21
sta PPUADDR
lda #$64
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
lda #$21
sta PPUADDR
lda #$A4
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 #$21
sta PPUADDR
lda #$E4
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 #$24
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 #$64
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 #$A4
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
lda #$23
sta PPUADDR
lda #$40
sta PPUADDR
jsr draw_footer1
jsr draw_footer2
jsr load_text_palette
lda #$FF
sta <SPRITE_1_Y_TARGET
sta <SPRITE_1_Y_TARGET
sta SPRITE_0_Y
sta SPRITE_1_Y
jsr sprite_dma_copy
lda #0
sta <SCROLL_LINES_TARGET
sta <SCROLL_LINES_TARGET+1
sta <SCROLL_LINES
sta <SCROLL_LINES+1
sta <SELECTED_GAME
sta <SELECTED_GAME+1
sta <SCROLL_LINES_MODULO
show_build_info_infin:
jsr waitblank
lda #%00011110
sta PPUMASK
jmp show_build_info_infin
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
|