dos33fsprogs/mist/loadstore.s

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

load_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	#<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

	; actually load it

	lda	#<save_filename
	sta	OUTL
	lda	#>save_filename
	sta	OUTH

	jsr	opendir_filename

	; copy to zero page

	ldx	#0
load_loop:
	lda	$e00,X
	sta	WHICH_LOAD,X
	inx
	cpx	END_OF_SAVE
	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





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