;====================================================
;
;	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>	progresb.asm
;	> This is an example showing the use of
;	the progress bar
;====================================================


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

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


;#ifdef TIPLUS
;#ifdef TI89
	xdef	_ti89
OX	equ	-40
OY	equ	-20
;#else
	xdef	_ti92plus
;#endif
;#endif

;#ifdef TI89
;#else
OX	equ	0
OY	equ	0
;#endif


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

	xdef	_main
	xdef	_comment

_main
	lea	ieInterface(PC),a0
	jsr	api92::InterfaceEngine

	move.w	#199,d0		;nb laps
	lea	ProgressBarHeader(PC),a0
	clr.w	(a0)

\loop	jsr	api92::ProgressBarComponent
	add.w	#1,(a0)

	move.w	#2000,d1
\wait	dbra.s	d1,\wait
	dbra.s	d0,\loop

	jsr	api92::WaitKey
	
	rts



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

ProgressBarHeader:
	dc.w	0		;Current value
	dc.w	82+OX,66+OY	;X,Y
	dc.w	10		;nb square
	dc.w	200		;Max Value

ieInterface
	dc.b	IE_WIN2,50+OX,40+OY,189+OX,80+OY,"ProgressBar Example",0
	dc.b	IE_SETFONT,0
	dc.b	IE_STRING,80+OX,58+OY,"Please Wait...",0
	dc.b	IE_SOLIDRECT,80+OX,64+OY,162+OX,72+OY
	dc.b	IE_END

_comment dc.b	"ProgressBar Demo",0

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

	end