;====================================================
;
;	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>	exceptio.asm
;	> This example shows how you can use
;	easly interuptions or exceptions with
;	the Api92/Api89 library
;====================================================
;--------------------- Includes ---------------------
	include "tios.h"
	include	"api92.h"
	include "api92cst.h"
	xdef	_ti89
;------------ Start of assembly program -------------
	xdef	_main
	xdef	_comment
_main:
	jsr	api92::ClearScreen
	move.w	#20,counter
	move.l	#INT1_VECTOR,a0			;Set new timer routine address
	lea	timer_routine(PC),a1
	jsr	api92::SetIntVector
	move.l	a1,save_old_vect
	clr.w	d0				;Set small font
	jsr	api92::SetFont
	lea	title(PC),a0			;Draw string
	jsr	api92::draw_sString
	jsr	api92::WaitKey
	move.l	#INT1_VECTOR,a0			;Restore old timer routine
	move.l	save_old_vect(PC),a1
	jsr	api92::SetIntVector
	rts
timer_routine:
	subq.w	#1,counter
	bne.s	\skip
	move.w	#10,counter
	move.l	#LCD_MEM,a0
	adda.w	#30+6,a0
	moveq.w #12,d0			;13 lines
\invert	not.l	(a0)			;invert
	lea	30(a0),a0
	dbra.s	d0,\invert
\skip	move.l	save_old_vect(PC),-(a7)		;call old timer routine
	rts
;------------------- Program Data -------------------
save_old_vect:	dc.l	0
counter		dc.w	0
title		dc.b	5,5,"It is very simple to use exceptions !",0
_comment	dc.b	"Example of exeption Handler",0
;-------------------- End of program ------------------
	end