Apple-2-SW/a2d
1
0
Fork 0
mirror of https://github.com/mi57730/a2d.git synced 2024-11-29 07:49:20 +00:00
Code Issues Projects Releases Wiki Activity

SIF DA: Fix loading from RamWorks RAM Disk

Browse Source
This commit is contained in:
Joshua Bell 2018-12-08 21:27:12 -08:00
parent 21584f128c
commit b3d1102161
1 changed files with 24 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
desk.acc/show.image.file.s
View File

@ -413,13 +413,36 @@ close: jsr close_file
.endproc .endproc
.proc show_dhr_file .proc show_dhr_file
ptr := $06
;; AUX memory half ;; AUX memory half
sta PAGE2ON sta PAGE2OFF
jsr read_file jsr read_file
;; NOTE: Why not just load into Aux directly by setting
;; PAGE2ON? This works unless loading from a RamWorks-based
;; RAM Disk, where things get messed up. This is slightly
;; slower in the non-RamWorks case.
;; TODO: Load directly into Aux if RamWorks is not present.
;; Copy MAIN to AUX
copy16 #hires, ptr
ldx #>hires_size ; number of pages to copy
ldy #0
: sta PAGE2OFF ; from main
lda (ptr),y
sta PAGE2ON ; to aux
sta (ptr),y
iny
bne :-
inc ptr+1
dex
bne :-
;; MAIN memory half ;; MAIN memory half
sta PAGE2OFF sta PAGE2OFF
jsr read_file jsr read_file
jsr close_file
;; TODO: Restore PAGE2 state? ;; TODO: Restore PAGE2 state?