conversione da numero a stringa - Agentgroup

Traduzione della funzione convNS
da C ad assembler
Converte un intero in una stringa
void convNS(int i, char ris[7])
{
int negativo, cont;
negativo = (i < 0);
if (negativo)
i = -i;
ris[6] = '\0'; /* fine stringa */
cont = 5;
do
{
ris[cont] = (i % 10) + '0';
i = i / 10;
cont--;
}
while (i > 0);
if (negativo)
{
ris[cont] = '-';
cont--;
}
for (; cont >=0; cont--)
ris[cont] = ' ';
}

DGROUP group _DATA,_BSS
_TEXT segment byte public 'CODE'
assume cs:_TEXT,ds:DGROUP
;
; void convNS(int i, char ris[7])
;
_convNS proc near
push bp ; salva bp
mov bp,sp ; memorizza sp in bp
push si ; salva si
;
; {
; int negativo, cont;
;
sub sp,4 ; alloco memoria per 2 interi
; uso nomi simbolici per aumentare la leggibilità
ris EQU word ptr [bp+6]
i EQU word ptr [bp+4]
negativo EQU word ptr [bp-2]
cont EQU word ptr [bp-4]
;
; negativo = (i < 0);
;
cmp i,0 ; se i è >= a 0
jge short falso ; salto
; altrimenti
mov negativo,1 ; imposto negativo a 1
jmp short vero ;
falso:
mov negativo,0 ; imposto negativo a 0
vero:
;
; if (negativo)
;
cmp negativo,0 ; se negativo è falso
je short else ; salto

; altrimenti nego i
;
; i = -i;
;
mov ax,i ; carico i in ax
neg ax ; complemento a 2
mov i,ax ; carico ax in i
else:
;
; ris[6] = '\0'; /* fine stringa */
;
mov bx,ris ; carico in bx
; l’indirizzo di ris
mov
byte ptr [bx+6],0 ; metto 0 in ris[6]
; fine stringa
;
; cont = 5;
;
mov cont,5 ; inizializzo cont a 4
; l’ultimo carattere prima
; del fine stringa
; ciclo di conversione
;
; do
; {
; ris[cont] = (i % 10) + '0';
;
inizio_do:
mov ax,i ; carico i in ax
mov bx,10 ; carico 10 in bx
idiv bx ; divido ax per bx
; (con segno)
add
mov
mov
mov
dl,'0' ; in dl ho il resto
; aggiungo il car '0'
bx,ris ; carico in bx
; l’indirizzo di ris
si,cont ; carico cont in si
byte ptr [bx+si],dl
; carico in ris[cont]

; il carattere dl
;
; i = i / 10;
;
mov ax,i ; carico i in ax
mov bx,10 ; carico 10 in bx
idiv bx ; divido ax per bx
; (con segno)
mov i,ax ; metto il risultato in i
;
; cont--;
;
dec cont ; decremento cont
; per spostarmi a sinistra
; nell’array
;
; }
; while (i > 0);
;
cmp i,0 ; finché i è maggiore di 0
jg short inizio_do
;
; if (negativo)
;
cmp
je
negativo,0 ; se negativo è falso
short else_2 ; salto
; altrimenti inserisco un '-'
; nella posizione cont
;
; {
; ris[cont] =;
;
mov
mov
mov
;
; cont--;
bx,ris ; carico in bx
; l’indirizzo di ris
si,cont ; carico cont in si
byte ptr [bx+si],'-'
; carico '-' in ris[cont]

;
dec cont ; decremento cont
else_2:
;
; }
; inserisco spazi dalla posizione cont a 0
; for (; cont >=0; cont--)
; non ho inizializzazione
inizio_for:
; ris[cont] = ' ';
;
cmp cont,0 ; se cont è minore di 0
jl short fine_for ; salto alla fine
mov bx,ris ; carico in bx
; l’indirizzo di ris
mov
mov
si,cont ; carico cont in si
byte ptr [bx+si],' '
; carico ' ' in ris[cont]
dec cont ; decremento cont
jmp short inizio_for
fine_for:
;
;}
;
add sp,4 ; dealloco le var locali
pop si ; ripristina si
pop bp ; ripristina bp
ret
_convNS
_TEXT
_DATA
_DATA
public _convNS
end
; ritorna
endp
ends
segment word public 'DATA'
ends