Tinh Binh Phuong
Tinh Binh Phuong
model small
.stack 100
.data
; khai bao bien, chuoi
nhap_msg db 'Nhap N:$'
nhap_sai_msg db 'Nhap sai!$'
ket_qua_msg db 'Ket qua:$'
.code
main proc
; khoi tao cho DS
mov ax, @data
mov ds, ax
nhap_n:
; in ra thong bao nhap N
lea dx, nhap_msg
mov ah, 9
int 21h
nhap_sai:
; xu ly nhap sai
; in ra chuoi nhap sai
lea dx, nhap_sai_msg
mov ah, 9
int 21h
jmp nhap_n
xu_ly:
; xu ly yeu cau bai toan
mul al ; sau cau lenh nay: AX = N*N
xuat:
lea dx, ket_qua_msg
mov ah, 9
int 21h
in_tung_ky_tu:
pop ax
mov dl, ah
add dl, '0'
mov ah, 2
int 21h
;loop in_tung_ky_tu
dec cx
jne in_tung_ky_tu
; tro ve DOS
mov ah, 4ch
int 21h
main endp
end main