Apple-2-SW/dos33fsprogs
1
0
Fork 0
mirror of https://github.com/deater/dos33fsprogs.git synced 2024-11-18 21:06:31 +00:00
Code Issues Projects Releases Wiki Activity
b3fa4c1d0e
dos33fsprogs/mist/loadstore.s

204 lines
2.6 KiB
ArmAsm
Raw Normal View History

mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
;===================================
;===================================
; load the game
;===================================
;===================================
load_game:
lda #<load_message
sta OUTL
lda #>load_message
sta OUTH
mist: loading from all 5 save games works
2020-09-02 02:06:12 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
jsr confirm_slot
mist: loading from all 5 save games works
2020-09-02 02:06:12 +00:00
bcs done_load
; actually load it
clc
adc #LOAD_SAVE1
mist: load games work again
2020-09-02 01:31:15 +00:00
sta WHICH_LOAD
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: load games work again
2020-09-02 01:31:15 +00:00
jsr load_file
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
; copy to zero page
ldx #0
load_loop:
lda $e00,X
sta WHICH_LOAD,X
inx
mist: nibel: add animated head over projector
2020-08-18 06:25:51 +00:00
cpx #(END_OF_SAVE-WHICH_LOAD+1)
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
bne load_loop
lda #$ff
sta LEVEL_OVER
done_load:
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
bit SET_GR ; turn graphics back on
rts
;===================================
;===================================
; save the game
;===================================
;===================================
save_game:
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
lda #<save_message
sta OUTL
lda #>save_message
sta OUTH
jsr confirm_slot
bcs done_save
pha
;========================
; actually save
actually_save:
;===============================
; first load something from
; disk1/track0 to seek the head there
lda WHICH_LOAD
pha
lda #LOAD_SAVE1
sta WHICH_LOAD
jsr load_file
pla
sta WHICH_LOAD
; copy save data to $d00
ldx #0
copy_loop:
lda WHICH_LOAD,X
sta $d00,X
inx
cpx #(END_OF_SAVE-WHICH_LOAD+1)
bne copy_loop
; spin up disk
jsr driveon
; actually save it
pla
clc
adc #11
sta requested_sector+1
jsr sector_write
jsr driveoff
done_save:
jsr change_location ; restore graphics
rts
;================================
; confirm and get slot number
;================================
; call with first message in OUTL/OUTH
; return: carry set if skipping
confirm_slot:
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
bit KEYRESET ; clear keyboard buffer
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
;===============================
; print "are you sure" message
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
bit SET_TEXT ; set text mode
mist: clear background to black before printing messages
2020-06-19 20:35:54 +00:00
lda #' '|$80
sta clear_all_color+1
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
jsr clear_all ; clear screen
jsr move_and_print
lda #<are_you_sure
sta OUTL
lda #>are_you_sure
sta OUTH
jsr move_and_print
jsr page_flip
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
wait_confirmation:
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
lda KEYPRESS
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
bpl wait_confirmation
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
bit KEYRESET ; clear keypress
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
and #$7f
cmp #'Y'
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
bne dont_do_it
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
;===============================
; print "Which one?"
jsr clear_all ; clear screen
lda #<which_message
sta OUTL
lda #>which_message
sta OUTH
jsr move_and_print
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
jsr page_flip
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
which_slot:
lda KEYPRESS
bpl which_slot
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
bit KEYRESET ; clear keypress
mist: add load game support had to move around the ZP a bit. HGR in title messes with $7X addresses
2020-06-19 20:29:56 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
and #$7f
sec
sbc #'1'
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
bmi dont_do_it
cmp #5
bcs dont_do_it
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
clc
rts
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
dont_do_it:
sec
rts
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
mist: loading from all 5 save games works
2020-09-02 02:06:12 +00:00
which_message:
mist: add save game support had to shar a lot of code with load support so would fit not much room left
2020-09-05 04:34:14 +00:00
.byte 9,5,"WHICH SLOT (1-5)?",0
mist: start adding for load-game support
2020-06-19 19:46:28 +00:00
load_message:
.byte 10,5,"LOAD GAME FROM DISK",0
save_message:
.byte 11,5,"SAVE GAME TO DISK",0
are_you_sure:
.byte 10,7,"ARE YOU SURE? (Y/N)",0
mist: load games work again
2020-09-02 01:31:15 +00:00
;save_filename:
;.byte "SAVE0",0
Reference in New Issue Copy Permalink