dos33fsprogs/mist/loadstore.s

	;===================================
	;===================================
	; load the game
	;===================================
	;===================================

load_game:
	bit	KEYRESET	; clear keyboard buffer

	;===============================
	; print "are you sure" message

	bit	SET_TEXT	; set text mode

	lda     #' '|$80
	sta	clear_all_color+1
	jsr	clear_all	; clear screen

	lda	#<load_message
	sta	OUTL
	lda	#>load_message
	sta	OUTH
	jsr	move_and_print

	lda	#<are_you_sure
	sta	OUTL
	lda	#>are_you_sure
	sta	OUTH
	jsr	move_and_print

	jsr	page_flip

wait_load_confirmation:
	lda	KEYPRESS
	bpl	wait_load_confirmation

	bit	KEYRESET		; clear keypress

	and	#$7f
	cmp	#'Y'
	bne	done_load

	;===============================
	; print "Which one?"

	jsr	clear_all	; clear screen

	lda	#<which_message
	sta	OUTL
	lda	#>which_message
	sta	OUTH
	jsr	move_and_print

	jsr	page_flip

which_load_confirmation:
	lda	KEYPRESS
	bpl	which_load_confirmation

	bit	KEYRESET		; clear keypress

	and	#$7f
	sec
	sbc	#'1'

	bmi	done_load
	cmp	#5
	bcs	done_load

	; actually load it
	clc
	adc	#LOAD_SAVE1
	sta	WHICH_LOAD

	jsr	load_file

	; copy to zero page

	ldx	#0
load_loop:
	lda	$e00,X
	sta	WHICH_LOAD,X
	inx
	cpx	#(END_OF_SAVE-WHICH_LOAD+1)
	bne	load_loop

	lda	#$ff
	sta	LEVEL_OVER

done_load:

	bit	SET_GR			; turn graphics back on

	rts

	;===================================
	;===================================
	; save the game
	;===================================
	;===================================

	; doesn't do anything yet

save_game:
	bit	KEYRESET	; clear keyboard buffer

	bit	SET_TEXT	; set text mode

	lda     #' '|$80
	sta	clear_all_color+1
	jsr	clear_all	; clear screen

	lda	#<save_message
	sta	OUTL
	lda	#>save_message
	sta	OUTH
	jsr	move_and_print

	lda	#<are_you_sure
	sta	OUTL
	lda	#>are_you_sure
	sta	OUTH
	jsr	move_and_print

	jsr	page_flip

wait_save_confirmation:
	lda	KEYPRESS
	bpl	wait_save_confirmation

	bit	KEYRESET		; clear keypress

	and	#$7f
	cmp	#'Y'
	bne	done_load

	; actually load it


done_store:


	bit	SET_GR			; turn graphics back on

	rts




which_message:
.byte  9,5,"LOAD WHICH GAME (1-5)?",0

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

;save_filename:
;.byte "SAVE0",0