;Writeback routine
;written by Jonah Cohen <ComAsYuAre@aol.com>
;http://jonah.ticalc.org
;
;A highly optimized writeback routine for saving high scores and saved games.
;It saves all data between data_start and data_end.


#include "TI86.inc"			;Clem's include file (http://jonah.ticalc.org/include.zip)

save_data:
	ld hl,_asapvar			;hl->name of program
	rst 20h				;copy to OP1
	rst 10h				;_findsym
	xor a
	ld hl,data_start-_asm_exec_ram+4	;offset
	add hl,de			;hl=pointer to data in original prog
	adc a,b				;in case we overlapped pages
	call _SET_ABS_DEST_ADDR
	xor a				;no absolute addressing now
	ld hl,data_start		;get data from here
	call _SET_ABS_SRC_ADDR
	ld hl,data_end-data_start	;number of bytes to save
	jp _MM_LDIR_SET_SIZE		;copy data and return