;====================================================
;
;	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"
doorsos::MainHandle	equ	$0C
;------------ Start of assembly program -------------
	xdef	_main
	xdef	_comment
_main
	lea	PicName(PC),a0		;File Name
	lea	PicRect(PC),a1		;Area to save
	move.w	#doorsos::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