;====================================================
;
;	Api92/Api89 Example Source Code
;
;	(c) NeXO Software, Ibrahim - Benoit SCHERRER
;	e-mail : p.c.scherrer@wanadoo.fr
;	web : http://perso.wanadoo.fr/scherrer/ben/
;
;	File>	savepic.asm
;	> Save into the file 'picfile' a picture of
;	the current screen delimited by the area
;	(18,5);(100,50)
;====================================================


;--------------------- Includes ---------------------

	include "tios.h"
	include	"api92.h"
	include "api92cst.h"


;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
;#else
	xdef	_ti92plus
;#endif
;#endif

;#ifdef TI92
tios::MainHandle	equ	$0C
;#endif

;------------ Start of assembly program -------------

	xdef	_main
	xdef	_comment

_main
	lea	PicName(PC),a0		;File Name
	lea	PicRect(PC),a1		;Area to save
	move.w	#tios::MainHandle,d0 ;Handle of Main
	jsr	api92::SaveScreenToPIC	;Save it to PIC

	rts



;------------------- Program Data -------------------

PicRect	dc.b	15,5,100,50
PicName	dc.b	"picfile",0

_comment dc.b	"Save PIC",0

;-------------------- End of program ------------------

	end