Data;
alloc flag,0
alloc cmpt1,0
alloc puissance,0
alloc index1,0
alloc color,0
alloc value,0
alloc scale,0
alloc offsetx,0
alloc offsety,0
alloc X,0
alloc Y,0
alloc adrX,0
alloc adrY,0



define console,65536    //addresse du lcd
define con_clk,67582    //adresse de la commande marche du lcd
define con_reset,67577  //adresse de la commande reset du lcd



line0: db 'TEST',0 // metre entre les '' le texte quon veut



Code;
mov #con_clk,1  //turns the console ON
call cls
jmp main

Main:
mov #color,090      //change la couleur du lcd


mov ebx,65536       //l'endroi ou tu ecrit sur lafficheur
mov eax,Line0       //la string a ecrire
call Writestring    //ecrire la string


mov eax,123456789   //valeur a ecrire
call writevalue     //ecrire la valeur

jmp main



//----------------------------------------------------------------------


writelcd:
mov ebx,#y
mul ebx,32
add ebx,#x
add ebx,67584
mov #ebx,#color  //put the chars to console!
ret


cls:
mov #con_reset,1
mov #con_reset,0
ret

Writestring: //EBX = address to write, EAX = the db line to write, then call it.
 cmp #eax,0  //check to see if we have reached end of string "0"
je Writend
 mov #ebx,#eax  //put the chars to console!
 inc ebx        //Bump Console up one cell
 mov #ebx,#color  //output char params
 inc ebx          //next console cell
 inc eax          //next value in the string
jmp Writestring      //keep writing till we hit a 0
Writend:
ret



writevalue:
mov #puissance,1
mov ecx,eax
calcsize:
cmp ecx,10
jle again
div ecx,10
mul #puissance,10
jmp calcsize
again:
cmp eax,#puissance
mov ecx,0
cge convert
call writenumber
div #puissance,10
cmp #puissance,1
jge again
mov ecx,-16
call writenumber
ret

convert:
sub eax,#puissance
add ecx,1
cmp eax,#puissance
jge convert
ret

Writenumber:
add ecx,48
 mov #ebx,ecx
 inc ebx
 mov #ebx,952
 inc ebx
ret


wait:
dec eax
cmp eax,0
jne wait
ret