mirror of
https://github.com/a2-4am/passport.git
synced 2024-05-28 21:41:27 +00:00
100 lines
2.9 KiB
Plaintext
100 lines
2.9 KiB
Plaintext
;-------------------------------
|
|
; CreateFileOnRAMDisk
|
|
; create 140KB file on RAM disk (filename is hardcoded)
|
|
;
|
|
; in: ProDOS is not in memory
|
|
; RAMDiskImagePath populated
|
|
; out: if C set, creation failed (A contains MLI error code)
|
|
; if C clear, creation succeeded (A clobbered, gRAMDiskRef contains file refnum)
|
|
; all other flags clobbered
|
|
; all registers clobbered
|
|
; ProDOS is not in memory
|
|
;-------------------------------
|
|
CreateFileOnRAMDisk
|
|
jsr SwapProDOS ; ProDOS out -> in (preserves flags)
|
|
jsr DeleteFileOnRAMDisk ; always safe to call
|
|
lda #<RAMDiskImagePath
|
|
sta mliparam+1
|
|
lda #>RAMDiskImagePath
|
|
sta mliparam+2
|
|
jsr Create140KFile
|
|
bcs +
|
|
sta gRAMDiskRef
|
|
+ jmp SwapProDOS ; ProDOS in -> out (preserves flags)
|
|
|
|
;-------------------------------
|
|
; DeleteFileOnRAMDisk
|
|
; delete our temporary image file on RAM disk
|
|
;
|
|
; always safe to call
|
|
; gracefully returns if no RAM disk was detected
|
|
; gracefully closes file before deleting, if it was open
|
|
; does not return any error status because no one cares
|
|
;
|
|
; in: ProDOS is in memory
|
|
; out: all registers and flags clobbered
|
|
; gRAMDiskRef=0
|
|
; ProDOS is in memory
|
|
;-------------------------------
|
|
DeleteFileOnRAMDisk
|
|
lda RAMDiskImagePath
|
|
beq @exit ; no RAM disk available
|
|
|
|
lda gRAMDiskRef
|
|
beq +
|
|
jsr CloseFile ; close existing file
|
|
lda #0
|
|
sta gRAMDiskRef
|
|
+
|
|
lda #<RAMDiskImagePath
|
|
sta mliparam+1
|
|
lda #>RAMDiskImagePath
|
|
sta mliparam+2
|
|
jsr DeleteFile ; delete file, ignore error
|
|
@exit rts
|
|
|
|
;-------------------------------
|
|
; WriteRAMToDisk - write image file in RAM to physical disk
|
|
; if RAM disk is in use
|
|
; in: ProDOS is in memory
|
|
; out: if error, C set and A contains error code
|
|
; if success, C clear
|
|
; if a key is pressed, C clear and A contains keycode
|
|
; all other flags clobbered
|
|
; all registers clobbered
|
|
; ProDOS is in memory
|
|
;-------------------------------
|
|
WriteRAMToDisk
|
|
lda #0
|
|
sta mliparam+2
|
|
sta mliparam+3
|
|
sta mliparam+4
|
|
sta gTrack
|
|
lda gRAMDiskRef
|
|
jsr SetMark
|
|
|
|
jsr RestartProgress ; restart progress bar
|
|
|
|
@writeRAMToDiskLoop
|
|
lda #$00
|
|
sta mliparam+2
|
|
sta mliparam+4
|
|
lda #$10
|
|
sta mliparam+3
|
|
sta mliparam+5
|
|
lda gRAMDiskRef
|
|
jsr ReadFile
|
|
jsr IncProgress
|
|
jsr WriteTrackSecondPass
|
|
bcs @exit
|
|
lda KEY
|
|
bmi @exit
|
|
inc gTrack
|
|
lda gTrack
|
|
cmp #$23
|
|
bne @writeRAMToDiskLoop
|
|
|
|
jsr IncProgress
|
|
clc
|
|
@exit rts
|