**************************
*** ESTIENNE Sebastien ***
***        2004        ***
**************************

ESC		equ		$1B

*******************************
***   Function clrDisplay   ***
*******************************
clrDisplay
		move.b		#ESC,-(A7)	; empile ESC
		bsr		putChar		; appel de putChar
		add.l		#2,A7		; depile
		move.b		#'[',-(A7)	; empile '['
		bsr		putChar		; etc...
		add.l		#2,A7
		move.b		#'2',-(A7)	; '2'
		bsr		putChar
		add.l		#2,A7
		move.b		#'J',-(A7)	; 'J'
		bsr		putChar
		add.l		#2,A7
		rts
fclrDisplay


********************************
***   Function resetCursor   ***
********************************
resetCursor
		move.b		#ESC,-(A7)	; ESC
		bsr		putChar
		add.l		#2,A7
		move.b		#'[',-(A7)	; '['
		bsr		putChar
		add.l		#2,A7
		move.b		#'H',-(A7)	; 'H'
		bsr		putChar
		add.l		#2,A7
		rts
fresetCursor

******************************
***   Function setCursor   ***
******************************
setCursor
		move.l		A0,-(A7)
		move.b		#ESC,-(A7)	; ESC
		bsr		putChar
		add.l		#2,A7
		move.b		#'[',-(A7)	; '['
		bsr		putChar
		add.l		#2,A7
		move.l		8(A7),-(A7)	; empile no ligne
		bsr		intToStr	; appel de intToStr
		add.l		#4,A7		; on depile
		lea		number,A0	; charge number ds A0
		move.l		A0,-(A7)	; empile @ chaine number
		bsr		putStr		; appel de putStr
		add.l		#4,A7		; on depile
		move.b		#';',-(A7)	; ';'
		bsr		putChar
		add.l		#2,A7
		move.l		12(A7),-(A7)	; empile no colonne
		bsr		intToStr	; etc...
		add.l		#4,A7
		lea		number,A0
		move.l		A0,-(A7)
		bsr		putStr
		add.l		#4,A7
		move.b		#'H',-(A7)	; 'H'
		bsr		putChar
		add.l		#2,A7
		move.l		(A7)+,A0
		rts
fsetCursor

*****************************
***   Function setColor   ***
*****************************
* ESC[x1;x2m avec x1->texte,x2->fond *
* 30=noir, 31=rouge, 32=vert,        *
* 33=orange, 34=bleu, 35=magenta,    *
* 36=cyan, 37=blanc, 38=surbrillant, *
* 41=rouge, 42=vert, 43=orange,      *
* 44=bleu, 45=majenta, 46=cyan,      *
* 47=blanc, 48=surbrillant, 49=noir, *
setColor
		move.l		A0,-(A7)
		move.b		#ESC,-(A7)	; ESC
		bsr		putChar
		add.l		#2,A7
		move.b		#'[',-(A7)	; '['
		bsr		putChar
		add.l		#2,A7
		move.l		12(A7),-(A7)	; recup color text
		bsr		intToStr	; appel de intToStr
		add.l		#4,A7		; on depile
		lea		number,A0	; charge number ds A0
		move.l		A0,-(A7)	; empile @ chaine number
		bsr		putStr		; appel de putStr
		add.l		#4,A7		; on depile
		move.b		#';',-(A7)	; ';'
		bsr		putChar
		add.l		#2,A7
		move.l		8(A7),-(A7)	; recup color font
		bsr		intToStr	; etc...
		add.l		#4,A7
		lea		number,A0
		move.l		A0,-(A7)
		bsr		putStr
		add.l		#4,A7
		move.b		#'m',-(A7)	; 'm'
		bsr		putChar
		add.l		#2,A7
		move.l		(A7)+,A0
		rts
fsetColor

*******************************
***   Function showCursor   ***
*******************************
showCursor
		move.b		#ESC,-(A7)	; ESC
		bsr		putChar
		add.l		#2,A7
		move.b		#'[',-(A7)	; '['
		bsr		putChar
		add.l		#2,A7
		move.b		#'?',-(A7)	; '?'
		bsr		putChar
		add.l		#2,A7
		move.b		#'2',-(A7)	; '2'
		bsr		putChar
		add.l		#2,A7
		move.b		#'5',-(A7)	; '5'
		bsr		putChar
		add.l		#2,A7
		move.b		#'h',-(A7)	; 'h'
		bsr		putChar
		add.l		#2,A7
		rts
fshowCursor

*******************************
***   Function hideCursor   ***
*******************************
hideCursor
		move.b		#ESC,-(A7)	; ESC
		bsr		putChar
		add.l		#2,A7
		move.b		#'[',-(A7)	; '['
		bsr		putChar
		add.l		#2,A7
		move.b		#'?',-(A7)	; '?'
		bsr		putChar
		add.l		#2,A7
		move.b		#'2',-(A7)	; '2'
		bsr		putChar
		add.l		#2,A7
		move.b		#'5',-(A7)	; '5'
		bsr		putChar
		add.l		#2,A7
		move.b		#'l',-(A7)	; 'l'
		bsr		putChar
		add.l		#2,A7
		rts
fhideCursor