mirror of
https://github.com/peterferrie/prorwts2.git
synced 2024-06-16 17:29:30 +00:00
fix floppy driver loading to aux mem
This commit is contained in:
parent
68e6fb322b
commit
1a24dbb9f6
25
PRORWTS2.S
25
PRORWTS2.S
|
@ -76,7 +76,7 @@ ver_02 = 1
|
||||||
mem_swap = 0 ;set to 1 if zpage can be swapped between main and aux, and swap_zp is unsuitable
|
mem_swap = 0 ;set to 1 if zpage can be swapped between main and aux, and swap_zp is unsuitable
|
||||||
;(caches index registers in code instead of zpage)
|
;(caches index registers in code instead of zpage)
|
||||||
load_high = 0 ;set to 1 to load to top of RAM (either main or banked, enables a himem check)
|
load_high = 0 ;set to 1 to load to top of RAM (either main or banked, enables a himem check)
|
||||||
load_aux = 0 ;load to aux memory
|
load_aux = 0 ;load to aux memory, requires either swap_scrn or load_banked
|
||||||
load_banked = 1 ;set to 1 to load into banked RAM instead of main RAM (can be combined with load_aux for aux banked)
|
load_banked = 1 ;set to 1 to load into banked RAM instead of main RAM (can be combined with load_aux for aux banked)
|
||||||
lc_bank = 1 ;load into specified bank (1 or 2) if load_banked=1
|
lc_bank = 1 ;load into specified bank (1 or 2) if load_banked=1
|
||||||
one_page = 0 ;set to 1 if verbose mode says that you should (smaller code)
|
one_page = 0 ;set to 1 if verbose mode says that you should (smaller code)
|
||||||
|
@ -602,13 +602,15 @@ bankram
|
||||||
lda LCBANK2 - ((lc_bank - 1) * 8)
|
lda LCBANK2 - ((lc_bank - 1) * 8)
|
||||||
lda LCBANK2 - ((lc_bank - 1) * 8)
|
lda LCBANK2 - ((lc_bank - 1) * 8)
|
||||||
} ;load_banked = 1
|
} ;load_banked = 1
|
||||||
!if load_aux = 1 {
|
|
||||||
sta SETAUXWR + (load_banked * 4) ;SETAUXWR or SETAUXZP
|
|
||||||
} ;load_aux = 1
|
|
||||||
!if enable_floppy = 1 {
|
!if enable_floppy = 1 {
|
||||||
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
|
||||||
|
@ -623,7 +625,13 @@ reladr sta reloc, y
|
||||||
iny
|
iny
|
||||||
bne -
|
bne -
|
||||||
inc scratchhi
|
inc scratchhi
|
||||||
|
!if (load_aux and (load_banked xor 1)) = 1 {
|
||||||
|
sta CLRAUXWR
|
||||||
|
} ;load_aux = 1 and load_banked = 0
|
||||||
inc reladr + 2
|
inc reladr + 2
|
||||||
|
!if (load_aux and (load_banked xor 1)) = 1 {
|
||||||
|
sta SETAUXWR
|
||||||
|
} ;load_aux = 1 and load_banked = 0
|
||||||
dex
|
dex
|
||||||
bne -
|
bne -
|
||||||
plp
|
plp
|
||||||
|
@ -679,9 +687,6 @@ unrdrvsel1 lda DRV0EN + 1
|
||||||
sta phase
|
sta phase
|
||||||
ldx #$22
|
ldx #$22
|
||||||
jsr seek
|
jsr seek
|
||||||
jsr readadr
|
|
||||||
lda curtrk
|
|
||||||
sta trackd2
|
|
||||||
+ inc driveind + 1
|
+ inc driveind + 1
|
||||||
} ;allow_multi = 1
|
} ;allow_multi = 1
|
||||||
unrdrvoff1 lda MOTOROFF
|
unrdrvoff1 lda MOTOROFF
|
||||||
|
@ -716,8 +721,14 @@ multicopy
|
||||||
iny
|
iny
|
||||||
bne -
|
bne -
|
||||||
!if three_pages = 1 {
|
!if three_pages = 1 {
|
||||||
|
!if (load_aux and (load_banked xor 1)) = 1 {
|
||||||
|
sta CLRAUXWR
|
||||||
|
} ;load_aux = 1 and load_banked = 0
|
||||||
inc multicopy + 2
|
inc multicopy + 2
|
||||||
inc multicopy + 5
|
inc multicopy + 5
|
||||||
|
!if (load_aux and (load_banked xor 1)) = 1 {
|
||||||
|
sta SETAUXWR
|
||||||
|
} ;load_aux = 1 and load_banked = 0
|
||||||
dex
|
dex
|
||||||
bne multicopy
|
bne multicopy
|
||||||
} ;three_pages = 1
|
} ;three_pages = 1
|
||||||
|
|
Loading…
Reference in New Issue
Block a user