passport/src/prefs.save.a

;-------------------------------
; SavePrefs
; save preferences to file
;
; in:  ProDOS in not in memory
;-------------------------------
!macro SavePrefs {
         jsr   SwapProDOS            ; ProDOS out -> in
         lda   gChangedPrefs
         bne   +
         lda   #<PREFSFILE
         sta   mliparam+1
         lda   #>PREFSFILE
         sta   mliparam+2
         jsr   DeleteFile            ; don't care if this fails
         jsr   CreateTxtFile
         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
+
}