2021-06-19 00:15:15 +00:00
|
|
|
;-------------------------------
|
|
|
|
; SavePrefs
|
|
|
|
; save preferences to file
|
|
|
|
;
|
2021-06-19 04:28:52 +00:00
|
|
|
; in: ProDOS in not in memory
|
2021-06-19 00:15:15 +00:00
|
|
|
;-------------------------------
|
|
|
|
!macro SavePrefs {
|
2021-06-19 04:28:52 +00:00
|
|
|
jsr SwapProDOS ; ProDOS out -> in
|
2021-06-19 00:15:15 +00:00
|
|
|
lda gChangedPrefs
|
|
|
|
bne +
|
|
|
|
lda #<PREFSFILE
|
|
|
|
sta mliparam+1
|
|
|
|
lda #>PREFSFILE
|
|
|
|
sta mliparam+2
|
2021-06-19 04:28:52 +00:00
|
|
|
jsr DeleteFile ; don't care if this fails
|
2021-06-19 00:26:26 +00:00
|
|
|
jsr CreateTxtFile
|
2021-06-19 00:15:15 +00:00
|
|
|
bcs +
|
|
|
|
lda #<PREFSBUFFER
|
|
|
|
sta mliparam+3
|
|
|
|
lda #>PREFSBUFFER
|
|
|
|
sta mliparam+4
|
|
|
|
jsr OpenFile
|
|
|
|
bcs +
|
|
|
|
ldy #<PREFSVER
|
|
|
|
sty mliparam+2
|
|
|
|
ldy #>PREFSVER
|
|
|
|
sty mliparam+3
|
|
|
|
ldy #<PREFSWRITELEN
|
|
|
|
sty mliparam+4
|
|
|
|
ldy #>PREFSWRITELEN
|
|
|
|
sty mliparam+5
|
|
|
|
jsr WriteFile
|
|
|
|
jsr CloseFile
|
|
|
|
+
|
|
|
|
}
|