Câu 1 :

;Cong tru trong pham vi 10 -TH: a+b<=9

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 'Nhap a= $'

tb2 db 10,13,'Nhap b=$'

tb3 db 10,13,'Tong a+b<=9 la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

sub al,30h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov ah,1

int 21h

sub al,30h

add bl,al

add bl,30h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,bl

int 21h

int 20h

code ends

end start

;Cong tru pham vi 10 - TH: a+b>9

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 'Nhap a= $'

tb2 db 10,13,'Nhap b= $'

tb3 db 10,13,'Tong a+b>9 la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

sub al,30h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov ah,1

int 21h

sub al,30h

add bl,al

sub bl,0ah

add bl,30h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,'1'

int 21h

mov ah,2

mov dl,bl

int 21h

int 20h

code ends

end start

;Cong tru pham vi 10 - TH: a+b>9

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 'Nhap a= $'

tb2 db 10,13,'Nhap b= $'

tb3 db 10,13,'Tong a+b>9 la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

sub al,30h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov ah,1

int 21h

sub al,30h

add bl,al

sub bl,0ah

add bl,30h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,'1'

int 21h

mov ah,2

mov dl,bl

int 21h

int 20h

code ends

end start

;Cong tru trong pham vi 10 - TH: a-b<0

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 'Nhap a= $'

tb2 db 10,13,'Nhap b= $'

tb3 db 10,13,'Hieu a-b<0 la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

sub al,30h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov ah,1

int 21h

sub al,30h

sub bl,al

neg bl

add bl,30h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,'-'

int 21h

mov ah,2

mov dl,bl

int 21h

int 20h

code ends

end start

Câu 2:

;Kiem tra ky tu nhap vao co phai la chu so hay khong, sai yeu cau nhap lai

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap 1 chu so: $'

tb2 db 10,13,'Khong phai chu so, nhap lai:$'

tb3 db 10,13,'Ky tu nhap vao la chu so$'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

cmp al,'0'

jb khongphai

cmp al,'9'

ja khongphai

lea dx,tb3

mov ah,9

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

;Kiem tra ky tu nhap vao la chu thuong, sai yeu cau nhap lai

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap vao chu thuong: $'

tb2 db 10,13,'Khong pahi chu thuong, nhap lai:$'

tb3 db 10,13,'Ky tu nhap vao la chu thuong$'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

cmp al,'a'

jb khongphai

cmp al,'z'

ja khongphai

lea dx,tb3

mov ah,9

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

;Kiem tra ky tu nhap vao la chu hoa, sai yeu cau nhap lai

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap vao chu hoa: $'

tb2 db 10,13,'Khong pahi chu hoa, nhap lai:$'

tb3 db 10,13,'Ky tu nhap vao la chu hoa$'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

cmp al,'A'

jb khongphai

cmp al,'Z'

ja khongphai

lea dx,tb3

mov ah,9

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

câu 3 :

;Nhap chu thuong, in ra chu hoa, sai yeu cau nhap lai

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 10,13,'Nhap chu thuong: $'

tb2 db 10,13,'khong phai, nhap lai: $'

tb3 db 10,13,'Chu hoa cua chu thuong vua nhap la: $'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

cmp bl,'a'

jb khongphai

cmp bl,'z'

ja khongphai

mov ah,9

lea dx,tb3

int 21h

and bl,11011111b

mov ah,2

mov dl,bl

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

;Nhap chu hoa, in ra chu thuong, sai yeu cau nhap lai

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 10,13,'Nhap chu hoa: $'

tb2 db 10,13,'khong phai, nhap lai: $'

tb3 db 10,13,'Chu thuong cua chu hoa vua nhap la: $'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

cmp bl,'A'

jb khongphai

cmp bl,'Z'

ja khongphai

mov ah,9

lea dx,tb3

int 21h

or bl,100000b

mov ah,2

mov dl,bl

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

câu 4:

;Xac dinh tinh chan le cua so co mot chu so

code segment

assume cs:code

org 100h

start:jmp over

tb1 db 10,13,'Nhap vao mot chu so: $'

tb2 db 10,13,'Khong phai, nhap lai:$'

tb3 db 10,13,'So do la so chan$'

tb4 db 10,13,'So do la so le$'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

cmp bl,'0'

jb khongphai

cmp bl,'9'

ja khongphai

test bl,1

jz chan

lea dx,tb4

jmp ketthuc

khongphai:

lea dx,tb2

int 21h

jmp nhaplai

chan:

lea dx,tb3

ketthuc:

int 21h

int 20h

code ends

end start

câu 5:

;Doi HEXA ra thap phan chu thuong a->f

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap chu so HEXA thuong ( a->f ): $'

tb2 db 10,13,'Khong phai, nhap lai: $'

tb3 db 10,13,'So thap phan tuong ung la: $'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

cmp bl,'a'

jb khongphai

cmp bl,'f'

ja khongphai

sub bl,31h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,'1'

int 21h

mov dl,bl

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

;Doi HEXA ra thap phan, chu hoa A->F

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap chu so HEXA hoa ( A->F ): $'

tb2 db 10,13,'Khong phai, nhap lai: $'

tb3 db 10,13,'So thap phan tuong ung la: $'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

cmp bl,'A'

jb khongphai

cmp bl,'F'

ja khongphai

sub bl,11h

mov ah,9

lea dx,tb3

int 21h

mov ah,2

mov dl,'1'

int 21h

mov dl,bl

int 21h

jmp ketthuc

khongphai:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

câu 6:

;Nhaap n tu 1-> 5 . dung tinh tong 1->n, sai nhap lai

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 10,13,'Nhap n( 1<=n<=5 )= $'

tb2 db 10,13,'Khong hop le, Nhap lai: $'

tb3 db 10,13,'Tong la: $'

over:

nhaplai:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

cmp bl,'1'

jb khonghop

cmp bl,'5'

ja khonghop

mov ah,9

lea dx,tb3

int 21h

sub bl,30h

xor bh,bh

mov cx,bx

tong:

add bh,bl

dec bl

loop tong

cmp bh,9

ja haichu

add bh,30h

mov ah,2

mov dl,bh

int 21h

jmp ketthuc

haichu:

mov ah,2

mov dl,'1'

int 21h

sub bh,0ah

add bh,30h

mov dl,bh

int 21h

jmp ketthuc

khonghop:

mov ah,9

lea dx,tb2

int 21h

jmp nhaplai

ketthuc:

int 20h

code ends

end start

câu 7:

;In ky tu theo thu tu ma ASCII

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 'Nhap ky tu thu nhat: $'

tb2 db 10,13,'Ky tu thu 2: $'

tb3 db 10,13,'Thu tu la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov ah,1

int 21h

mov cl,al

mov ah,9

lea dx,tb3

int 21h

mov ah,2

cmp cl,bl

jb incl

mov dl,bl

int 21h

mov dl,cl

jmp ketthuc

incl:

mov dl,cl

int 21h

mov dl,bl

ketthuc:

int 21h

int 20h

code ends

end start

câu 8:

;Nhap 1 ky tu, in no ra o dang nhi phan cua ma ASCII

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 'Nhap vao mot ky tu: $'

tb2 db 10,13,'Ma ASCII cua no o dang nhi phan la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov cx,8

mov ah,2

lap:

xor dl,dl

rcl bl,1

adc dl,30h

int 21h

loop lap

int 20h

code ends

end start

câu 9:

;Nhap 1 ky tu, dem chu so 1 trong ma ASCII o dang nhi phan cua no

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 'Nhap vao mot ky tu: $'

tb2 db 10,13,'So chu so 1 la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

lea dx,tb2

int 21h

mov cx,8

mov ah,2

xor dl,dl

lap:

rcl bl,1

adc dl,00h

loop lap

add dl,30h

int 21h

int 20h

code ends

end start

câu 10:

;Nhap mot day ky tu ket thuc bang Enter, inra day dao nguoc

code segment

assume cs:code

org 100h

start: jmp over

tb1 db 'Nhap vao mot day cac ky tu: $'

tb2 db 10,13,'Day ky tu dao nguoc la: $'

over:

mov ah,9

lea dx,tb1

int 21h

mov cx,0

while:

mov ah,1

int 21h

mov bl,al

cmp bl,0dh

je end_while

xor bh,bh

push bx

inc cx

jmp while

end_while:

mov ah,9

lea dx,tb2

int 21h

jcxz ketthuc

mov ah,2

lap:

pop bx

mov dl,bl

int 21h

loop lap

ketthuc:

int 20h

code ends

end start