Nhập vào số thập phân, đổi ra số thập lục phân.
org 100h
begin:
jmp codebegin
n1 db 0dh,0ah,"Nhap vao gia tri trong he 10 :$"
n2 db 0dh,0ah,"Chuoi thap luc phan cua gia tri la :$"
n3 db 0dh,0ah,100 dup(?)
codebegin:
l0: mov dx,offset n1
call ThongBaoXuat
mov dx,offset n3
call ThongBaoNhap
mov bl,n3[1]
mov bh,0
mov n3[bx+2],'$'
call XuongHang
call ChuyenChuoiRaSo
cmp dx,012ch
ja l0
call XuongHang
call ChuyenSoRaNhiPhan
mov dx,offset n3+2
call ThongBaoXuat
ChuyenChuoiRaSo Proc
mov cx,bx
mov si,2
xor dx,dx
l1: xor ax,ax
mov al,n3[si]
sub al,30h
mov bl,0ah
mov bh,0
push cx
sub cx,1
cmp cx,0
je l3
l2: mul bl
loop l2
l3: add dx,ax
pop cx
inc si
loop l1
ret
ChuyenChuoiRaSo Endp
ChuyenSoRaNhiPhan proc
mov ax,dx
mov bx,10h
mov si,2
xor cx,cx
l4: xor dx,dx
div bx
push dx
inc cx
cmp ax,0
jnz l4
l5: pop dx
cmp dl,9
je l11
add dl,30h
mov n3[si],dl
jmp l12
l11: add dl,37h
mov n3[si],dl
l12: inc si
loop l5
mov n3[si],'$'
ret
ChuyenSoRaNhiPhan Endp
XuongHang Proc
push ax
push dx
mov ah,02h
mov dl,0dh
int 21h
mov dl,0ah
int 21h
pop dx
pop ax
ret
XuongHang Endp
ThongBaoNhap Proc
mov ah,0ah
int 21h
ret
ThongBaoNhap Endp
ThongBaoXuat Proc
mov ah,09h
int 21h
ret
ThongBaoXuat Endp
int 20h
ends code
end begin
;
* Có thể bạn quan tâm:
- Những cuốn sách mà các bạn không thể bỏ qua khi còn trẻ
- Khoá học tin học văn phòng tốt nhất
Chúc các bạn thành công!