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 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
|
data segment
msg db "entrez un nomber : $"
res db "le resultat est : $"
var db 0
data ends
code segment
assume ds:data, cs:code
retour proc
mov dl,0ah
mov ah,02h
int 21h
ret
retour endp; procédure permettant le retour à la ligne
debut:
mov ax,data
mov ds,ax
mov dx,offset msg
mov ah,09h
int 21h
call retour
mov ah,01h
int 21h
sub al,30h
mov var,al
call retour
mov dx,offset msg
mov ah,09h
int 21h
call retour
mov ah,01h
int 21h
sub al,30h
mov bl,al
call retour
mov dx,offset res
mov ah,09h
int 21h
call retour
add bl,var
cmp bl,9
jg sup
add bl,30h
mov dl,bl
mov ah,02h
int 21h
jmp fin
sup :
mov ah,0
mov al,bl
mov dl,10
div dl
mov cl,ah
mov ch,al
add ch,30h
mov dl,ch
mov ah,02h
int 21h
add cl,30h
mov dl,cl
mov ah,02h
int 21h
fin:
mov ah,4ch
int 21h
code ends
end debut |
Partager