; Created 31/08/02, 22:01:30

	include		"OS.h"
	xdef		_nostub
	xdef		_ti89
	
	movem.l		d3-d7/a2-a6,-(a7)	
	move.w		#$4c00,a0
	move.l		#3840/4-1,d0
\SaveScr:
	move.l		(a0)+,-(a7)
	dbra		d0,\SaveScr
	
	move.l		($c8).w,a5
	move.l		ScreenClear*4(a5),a0
	jsr		(a0)
	
	lea		-256*5(a7),a7	;alloue de la mem pour la table
	move.l		a7,a6
	move.l		a6,a0
	bsr		GenerateZTable
	lea		Pic(pc),a0	;src
	move.w		#$4c00,a1	;dest
	move.l		a6,a2		;ZTable
	bsr		FastZoom
	lea		256*5(a7),a7	;supprime la table
	
	move.l		ngetchx*4(a5),a0
	jsr		(a0)
	
	move.w		#$4c00+3840,a0
	move.l		#3840/4-1,d0
\RestoreScr:
	move.l		(a7)+,-(a0)
	dbra		d0,\RestoreScr
	movem.l		(a7)+,d3-d7/a2-a6
	rts
	
	include		"fastzoom.asm"
	include		"pic.h"