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
|
SAVES .rs 4 ; saves locations
LAST_STARTED_SAVE .rs 1 ; id of last used save
save_state:
; saving last started game
jsr enable_prg_ram
lda #0 ; first SRAM bank
jsr select_prg_ram_bank
; storing signature
ldx #0
.signature_loop:
lda saves_signature, x
sta SRAM_SIGNATURE, x
inx
cpx #8
bne .signature_loop
; storing selected game
lda <SELECTED_GAME
sta SRAM_LAST_STARTED_GAME
lda <SELECTED_GAME+1
sta SRAM_LAST_STARTED_GAME+1
; storing scrolling state
lda <SCROLL_LINES_TARGET
sta SRAM_LAST_STARTED_LINE
lda <SCROLL_LINES_TARGET+1
sta SRAM_LAST_STARTED_LINE+1
; storing save ID of last started game
lda <LAST_STARTED_SAVE
sta SRAM_LAST_STARTED_SAVE
jsr disable_prg_ram
rts
load_state:
; loading saved state
jsr enable_prg_ram
lda #0 ; first SRAM bank
jsr select_prg_ram_bank
; check for signature
ldx #0
.signature_loop:
lda saves_signature, x
cmp SRAM_SIGNATURE, x
bne .end
inx
cpx #8
bne .signature_loop
; loading last started game
.if ENABLE_LAST_GAME_SAVING!=0
lda SRAM_LAST_STARTED_GAME
sta <SELECTED_GAME
lda SRAM_LAST_STARTED_GAME+1
sta <SELECTED_GAME+1
; check for invalid value
lda <SELECTED_GAME
sec
sbc #GAMES_COUNT & $FF
lda <SELECTED_GAME+1
sbc #GAMES_COUNT>>8
bcs .ovf
; loading scrolling state
lda SRAM_LAST_STARTED_LINE
sta <SCROLL_LINES_TARGET
lda SRAM_LAST_STARTED_LINE+1
sta <SCROLL_LINES_TARGET+1
.else
lda #0
sta <SELECTED_GAME
sta <SELECTED_GAME+1
sta <SCROLL_LINES_TARGET
sta <SCROLL_LINES_TARGET+1
.endif
; loading last save ID
lda SRAM_LAST_STARTED_SAVE
sta <LAST_STARTED_SAVE
jmp .end
.ovf:
; reset values
lda #0
sta <SELECTED_GAME
sta <SELECTED_GAME+1
sta <SCROLL_LINES_TARGET
sta <SCROLL_LINES_TARGET+1
.end:
jsr disable_prg_ram
rts
load_save:
; loading battery backed save for game if any
pha
tya
pha
txa
pha
lda <LOADER_GAME_SAVE
beq .done ; game has not battery backed saves
; superbank number
sta <LOADER_GAME_SAVE_SUPERBANK
dec <LOADER_GAME_SAVE_SUPERBANK
lda <LOADER_GAME_SAVE_BANK
jsr select_prg_ram_bank
lda #0
sta <COPY_SOURCE_ADDR
sta <COPY_DEST_ADDR
lda #$80
sta <COPY_SOURCE_ADDR+1
lda #$60
sta <COPY_DEST_ADDR+1
jsr enable_prg_ram
jsr read_flash
jsr disable_prg_ram
.done:
pla
tax
pla
tay
pla
rts
; saving battery backed save for game if any
save_save:
pha
tya
pha
txa
pha
lda <LOADER_GAME_SAVE
beq .done ; game has not battery backed saves
; superbank number
sta <LOADER_GAME_SAVE_SUPERBANK
dec <LOADER_GAME_SAVE_SUPERBANK
lda <LOADER_GAME_SAVE_BANK
jsr select_prg_ram_bank
lda #0
sta <COPY_SOURCE_ADDR
sta <COPY_DEST_ADDR
lda #$60
sta <COPY_SOURCE_ADDR+1
lda #$80
sta <COPY_DEST_ADDR+1
jsr enable_prg_ram
jsr write_flash
jsr disable_prg_ram
.done:
pla
tax
pla
tay
pla
rts
save_all_saves:
ldx <LAST_STARTED_SAVE
bne .there_is_save
jmp .done
.there_is_save:
jsr saving_warning_show
ldx <LAST_STARTED_SAVE
dex
txa
and #%11111100 ; ID of first save in group
ora #1 ; plus one
sta <LOADER_GAME_SAVE
lda #0
sta <LOADER_GAME_SAVE_BANK
; copy three banks
ldx #3
.load_all_saves:
; skip if it's last save
lda <LOADER_GAME_SAVE
cmp <LAST_STARTED_SAVE
bne .load_all_saves_skip1
inc <LOADER_GAME_SAVE
.load_all_saves_skip1:
; skip if it's second bank
lda <LOADER_GAME_SAVE_BANK
cmp #2
bne .load_all_saves_skip2
inc <LOADER_GAME_SAVE_BANK
.load_all_saves_skip2:
; store save locations to array
lda <LOADER_GAME_SAVE
ldy <LOADER_GAME_SAVE_BANK
sta SAVES, y
jsr load_save
inc <LOADER_GAME_SAVE
inc <LOADER_GAME_SAVE_BANK
dex
bne .load_all_saves
; second bank always contains last save
ldx <LAST_STARTED_SAVE
txa
ldy #2
sta SAVES, y
dex ; calculating sector start
txa
ora #%00000011
sta <LOADER_GAME_SAVE_SUPERBANK ; superbank number
lda #0
jsr select_prg_ram_bank ; zero bank
; erasing sector
jsr sector_erase
; writing four saves back to flash
ldy #0
.write:
lda SAVES, y
sta <LOADER_GAME_SAVE
sty <LOADER_GAME_SAVE_BANK
jsr save_save
iny
cpy #4
bne .write
jsr saving_warning_hide
.done:
lda #0
sta <LAST_STARTED_SAVE ; no more last started save ID
jsr save_state
rts
saves_signature:
.db 'C','O','O','L','S','A','V','E'
|
