Apple-2-SW/pitch-dark
1
0
Fork 0
mirror of https://github.com/a2-4am/pitch-dark.git synced 2025-01-21 07:31:21 +00:00
Code Issues Projects Releases Wiki Activity

z4, z5: remember save-slot to $52

Browse Source
This commit is contained in:
Peter Ferrie 2018-03-22 21:55:00 -07:00
parent 88a666239e
commit 9e11caa63c
2 changed files with 54 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
src/onbeyond/z4/z4.s
View File

@ -402,8 +402,7 @@ skipupper
dey dey
bne - bne -
txa txa
clc ora #$b0
adc #$af
sta callback3+1 sta callback3+1
lda $da86 lda $da86
sta loadcall1+1 sta loadcall1+1
@ -437,6 +436,12 @@ skipupper
dey dey
bne - bne -
ldy #slot_end-saveslot
- lda saveslot-1, y
sta $d7e6, y
dey
bne -
lda #<brand lda #<brand
sta $ddf0 sta $ddf0
lda #>brand lda #>brand
@ -485,6 +490,16 @@ call80 jsr $c300
sta $37 sta $37
rts rts
saveslot lda #'P'
sta $50
lda #'D'
sta $51
lda $e3
ora #$30
sta $52
rts
slot_end
brand jsr $dbda brand jsr $dbda
lda #$da lda #$da
sta $ddf0 sta $ddf0
@ -543,9 +558,7 @@ hddreaddir1
} else { ;ver_02 = 0 } else { ;ver_02 = 0
stz adrlo stz adrlo
} ;ver_02 } ;ver_02
ldy #>hdddirbuf jsr hddreaddirsec
sty adrhi
jsr hddseekrd
;include volume directory header in count ;include volume directory header in count
@ -626,7 +639,12 @@ hddnextent ldy #0
ldx hdddirbuf + NEXT_BLOCK_LO ldx hdddirbuf + NEXT_BLOCK_LO
lda hdddirbuf + NEXT_BLOCK_HI lda hdddirbuf + NEXT_BLOCK_HI
!if might_exist = 1 {
jsr hddreaddirsec
bcc hddfirstent
} else { ;might_exist
bcs hddreaddir1 bcs hddreaddir1
} ;might_exist
hddfoundname iny hddfoundname iny
lda (bloklo), y lda (bloklo), y
@ -1527,16 +1545,16 @@ hddreaddirsel
asl reqcmd asl reqcmd
lsr reqcmd lsr reqcmd
} ;allow_multi } ;allow_multi
} ;rwts_mode
hddreaddirsec hddreaddirsec
!if allow_trees = 0 { !if allow_trees = 0 {
hddreaddirsect ldy #>hdddirbuf hddreaddirsect ldy #>hdddirbuf
} else { ;allow_trees = 1 } else { ;allow_trees = 1
ldy #>hdddirbuf ldy #>hdddirbuf
hddreaddirsect hddreaddirsect
} ;allow_trees } ;allow_trees
sty adrhi sty adrhi
} ;rwts_mode
hddseekrd ldy #cmdread hddseekrd ldy #cmdread
!if (aligned_read + enable_write) > 1 { !if (aligned_read + enable_write) > 1 {
hddseekrdwr sty command hddseekrdwr sty command

36
src/onbeyond/z5/z5.s
View File

@ -397,8 +397,7 @@ skipupper
dey dey
bne - bne -
txa txa
clc ora #$b0
adc #$af
sta callback3+1 sta callback3+1
lda $914 lda $914
sta loadcall1+1 sta loadcall1+1
@ -432,6 +431,12 @@ skipupper
dey dey
bne - bne -
ldy #slot_end-saveslot
- lda saveslot-1, y
sta $d7f2, y
dey
bne -
lda #<brand lda #<brand
sta $ddb6 sta $ddb6
lda #>brand lda #>brand
@ -485,6 +490,16 @@ call80 jsr $c300
sta $37 sta $37
rts rts
saveslot lda #'P'
sta $50
lda #'D'
sta $51
lda $e7
ora #$30
sta $52
rts
slot_end
brand jsr $db5b brand jsr $db5b
lda #$5b lda #$5b
sta $ddb6 sta $ddb6
@ -543,9 +558,7 @@ hddreaddir1
} else { ;ver_02 = 0 } else { ;ver_02 = 0
stz adrlo stz adrlo
} ;ver_02 } ;ver_02
ldy #>hdddirbuf jsr hddreaddirsec
sty adrhi
jsr hddseekrd
;include volume directory header in count ;include volume directory header in count
@ -626,7 +639,12 @@ hddnextent ldy #0
ldx hdddirbuf + NEXT_BLOCK_LO ldx hdddirbuf + NEXT_BLOCK_LO
lda hdddirbuf + NEXT_BLOCK_HI lda hdddirbuf + NEXT_BLOCK_HI
!if might_exist = 1 {
jsr hddreaddirsec
bcc hddfirstent
} else { ;might_exist
bcs hddreaddir1 bcs hddreaddir1
} ;might_exist
hddfoundname iny hddfoundname iny
lda (bloklo), y lda (bloklo), y
@ -1527,16 +1545,16 @@ hddreaddirsel
asl reqcmd asl reqcmd
lsr reqcmd lsr reqcmd
} ;allow_multi } ;allow_multi
} ;rwts_mode
hddreaddirsec hddreaddirsec
!if allow_trees = 0 { !if allow_trees = 0 {
hddreaddirsect ldy #>hdddirbuf hddreaddirsect ldy #>hdddirbuf
} else { ;allow_trees = 1 } else { ;allow_trees = 1
ldy #>hdddirbuf ldy #>hdddirbuf
hddreaddirsect hddreaddirsect
} ;allow_trees } ;allow_trees
sty adrhi sty adrhi
} ;rwts_mode
hddseekrd ldy #cmdread hddseekrd ldy #cmdread
!if (aligned_read + enable_write) > 1 { !if (aligned_read + enable_write) > 1 {
hddseekrdwr sty command hddseekrdwr sty command