Apple-2-SW/prorwts2
1
0
Fork 0
mirror of https://github.com/peterferrie/prorwts2.git synced 2024-06-09 03:29:31 +00:00
Code Issues Projects Releases Wiki Activity

fix floppy driver loading to aux LC mem

Browse Source
This commit is contained in:
Peter Ferrie 2021-02-22 12:02:36 -08:00
parent 1a24dbb9f6
commit bf99886d11
1 changed files with 17 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
PRORWTS2.S
View File

@ -263,7 +263,9 @@ init jsr SETKBD
sta unrdrvoff2 + 1 sta unrdrvoff2 + 1
} else { ;no_interrupts = 0 } else { ;no_interrupts = 0
sta unrdrvoff4 + 1 sta unrdrvoff4 + 1
!if one_shot = 1 {
sta unrdrvoff5 + 1 sta unrdrvoff5 + 1
} ;one_shot = 1
} ;no_interrupts = 1 } ;no_interrupts = 1
!if (might_exist + poll_drive) > 0 { !if (might_exist + poll_drive) > 0 {
sta unrdrvoff3 + 1 sta unrdrvoff3 + 1
@ -606,11 +608,6 @@ bankram
ldx #>unrelocdsk ldx #>unrelocdsk
ldy #<unrelocdsk ldy #<unrelocdsk
plp plp
} ;enable_floppy = 1
!if load_aux = 1 {
sta SETAUXWR + (load_banked * 4) ;SETAUXWR or SETAUXZP
} ;load_aux = 1
!if enable_floppy = 1 {
php php
beq copydrv beq copydrv
ldx #>unrelochdd ldx #>unrelochdd
@ -620,8 +617,17 @@ copydrv stx scratchhi
sty scratchlo sty scratchlo
ldx #>((codeend - rdwrpart) + $ff) ldx #>((codeend - rdwrpart) + $ff)
ldy #0 ldy #0
!if (load_aux and (load_banked xor 1)) = 1 {
sta SETAUXWR
} ;load_aux = 1 and load_banked = 0
- lda (scratchlo), y - lda (scratchlo), y
!if (load_aux + load_banked) > 1 {
sta SETAUXZP
} ;load_aux = 1 and load_banked = 1
reladr sta reloc, y reladr sta reloc, y
!if (load_aux + load_banked) > 1 {
sta CLRAUXZP
} ;load_aux = 1 and load_banked = 1
iny iny
bne - bne -
inc scratchhi inc scratchhi
@ -635,6 +641,9 @@ reladr sta reloc, y
dex dex
bne - bne -
plp plp
!if (load_aux + load_banked) > 1 {
sta SETAUXZP
} ;load_aux = 1 and load_banked = 1
!if swap_scrn = 1 { !if swap_scrn = 1 {
beq + beq +
jsr saveslot jsr saveslot
@ -708,6 +717,9 @@ unrdrvoff1 lda MOTOROFF
ldx #>(hddcodeend + $ff - reloc) ldx #>(hddcodeend + $ff - reloc)
} ;three_pages = 1 } ;three_pages = 1
ldy #0 ldy #0
!if load_aux = 1 {
sta SETAUXWR + (load_banked * 4) ;SETAUXWR or SETAUXZP
} ;load_aux = 1
multicopy multicopy
- lda unrelochdd, y - lda unrelochdd, y
sta reloc, y sta reloc, y