1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| FONCTION LIRE DECIMAL
.
LIREDECIMAL proc near
Mov al ,6
Mov dx,offset buffer ;buffer contiendra la chaine
Call lirechaine ;lecture au clavier
Call val ;conversion chaine->valeur
Ret
Liredecimal endp
.. FONCTION VAL
.. ;
Val proc near
Mov ax,0
Mov bx,dx ;bx pointe sur buffer
Mov ch,0
Mov cl,[bx+1]
Mov si,2
Repeater:mov dx,10
Mul dx
Mov dl,[bx+si]
Inc si
Sub dl,48
Mov dh,0
Add ax,dx
Loop repeter
Ret
Val endp
.. LA FONCTION LIRECHAINE
.
Lirechaine proc near
Mov bx,dx
Push[bx]
Mov [bx],al
Mov ah,0ah
Int 21h
Mov al,[bx+1]
Pop cx
Mov[bx],ch
Ret
Lirechaine endp |
Partager