;Bai1/Nhap vao 2 so 0<a,b<=9.hay in ra tong cña chung

code segment

assume cs:code

org 100h

start: jmp over

xau1 db 'Nhap a= $'

xau2 db 0ah,0dh,'Nhap b= $'

xau3 db 0ah,0dh,'Tong la: $'

over:

mov ah,9

lea dx,xau1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

lea dx,xau2

int 21h

mov ah,1

int 21h

add bl,al

sub bl,30h

mov ah,9

lea dx,xau3

int 21h

cmp bl,'9'

jbe inra

mov dl,'1'

mov ah,2

int 21h

sub bl,10

inra:

mov ah,2

mov dl,bl

int 21h

 int 20h

code ends

end start

;Bµi2/Cho bl=19.Hay nhap so;a,2<=a<=9 va in ra thuong va du cua ;bl chia cho a bang phuong phap tru dan

code segment

assume cs:code

org 100h

start: jmp over

xau1 db 'Nhap a= $'

xau2 db 0ah,0dh,'Du = $'

xau3 db 0ah,0dh, 'Thuong = $'

over: mov ah,9

lea dx,xau1

int 21h

mov ah,1

int 21h

and al,0fh

xor bx,bx

mov bh,19

lap:inc bl

sub bh,al

cmp bh,al

jae lap

mov ah,9

lea dx,xau3

int 21h

mov ah,2

mov dl,bl

or dl,30h

int 21h

mov ah,9

lea dx,xau2

int 21h

mov ah,2

mov dl,bh

or dl,30h

int 21h

 int 20h

code ends

end start

;Bai3/Tim UCLN cual;1<=a,b<=32767(su dung thu vien)(cn03.asm)

include mylib.mac

code segment

assume cs:code

org 100h

start: jmp over

a dw ?

b dw ?

over: @write'Nhap a= '

call nhap_so

mov a,ax

@xuongdong

@write'Nhap b= '

call nhap_so

mov b,ax

mov bx,a

@xuongdong

lap: cmp ax,bx

ja qua

je het

sub bx,ax

jmp lap

qua:

sub ax,bx

cmp ax,bx

jne lap

het:

@write'UCLN cua a va b la: ' mov ax,bx

call in_so

int 20h

include proc.asm

code ends

end start

;Bai4/Nhap 2 so 1<=a,b<=9.

Hay in ra ;hieu cua chung (cn04.asm)

code segment

assume cs:code

org 100h

start: jmp over

xau1 db 'Nhap a= $'

xau2 db 0ah,0dh,'Nhap b= $'

xau3 db 0ah,0dh,'Hieu = $'

over: mov ah,9

lea dx,xau1

int 21h

mov ah,1

int 21h

mov bl,al

mov ah,9

lea dx,xau2

int 21h

mov ah,1

int 21h

sub bl,al

mov ah,9

lea dx,xau3

int 21h

mov ah,2

cmp bl,0

jg qua

mov dl,'-'

int 21h

neg bl

qua:

mov dl,bl

add dl,30h

int 21h

 int 20h

code ends

end start

;Bai 5/Nhap mot ki tu tuy y. Hay in ra ma ASCII cua no o dang nhi phan; (cn05.asm)

code segment

assume cs:code

org 100h

start: jmp over

       xau1 db 'Nhap 1 ky tu : $'

       xau2 db 0ah,0dh,'Ma nhi phan cua ky tu la: $'

over:

       mov ah,9

       lea dx,xau1

       int 21h

       mov ah,1

       int 21h

       mov bl,al

       mov ah,9

       lea dx,xau2

       int 21h

       xor bh,bh

       mov ah,2

lap:

       mov dl,30h

       rol bl,1

       adc dl,0

       int 21h

       inc bh

       cmp bh,4

       jne qua

       mov dl,32

       int 21h

qua:

       cmp bh,8

       jb lap

       int 20h

       code ends

       end start

;Bai 6/Nhap so nguyen duong 2<=N<=32767.Hay xac dinh N co phai la so nguyen to khong (duoc su dung thu vien)

include mylib.mac

code segment

assume cs: code

org 100h

start: jmp over

n dw 0

over:

 @write ' Nhap vao 1 so : n = '

 call nhap_so

 mov n,ax

 mov cx,2

lap:

mov ax,n

 xor dx,dx

 div cx

 inc cx

 cmp dx,0

 je thoat

 cmp cx,n

 jb lap

 @xuongdong

 @write' Day la so nguyen to ! '

 jmp het

thoat: @xuongdong

 @write ' Day khong phai la so nguyen to !'

het:    int 20h

include proc.asm

code ends

int 21h

het:

int 20h

code ends

end start

;Bai 7/Nhap mot ki tu neu do la chu hoa thi in ra thong bao chu hoa, neu chu thuong thi in thong bao chu thuong

code segment

assume cs:code

org 100h

start: jmp over

xau db 'Nhap 1 ky tu: $'

xau1 db 0ah,0dh,'ky tu vua nhap la chu hoa$'

xau2 db 0ah,0dh,'ky tu vua nhap khong phai chu hoa $'

over:

mov ah,9

lea dx,xau

int 21h

mov ah,1

int 21h

cmp al,'A'

jb khac

cmp al,'Z'

ja khac

mov ah,9

lea dx,xau1

int 21h

jmp het

khac:

mov ah,9

lea dx,xau2

int 21h

het:

int 20h

code ends

end start

;Bai 8/Hay in ra bang ma ASCII mo rong(cn08.asm)

code segment

assume cs:code

org 100h

start: jmp over

xau db '               BANG MA ASCII MO RONG ', 0ah,0dh ,'$'

xau2 db '      $'

xau3 db 0ah,0dh,'$'

over:

mov ah,9

lea dx,xau

int 21h

xor bh,bh

mov bl,127

lap:mov ah,2

mov dl,bl

inc bl

int 21h

mov ah,9

lea dx,xau2

int 21h

cmp bl,255

je thoat

inc bh

cmp bh,10

jb lap

xor bh,bh

mov ah,9

lea dx,xau3

int 21h

jmp lap

thoat:int 20h

code ends

end start

;Bai 9/Nhap N nguyen duong xac dinh N co phai la so ching phuong ko?(cn09.asm)

include mylib.mac

code segment

assume cs:code

org 100h

start: jmp over

n dw ?

over:

@write'Nhap N= '

call nhap_so

mov n,ax

@xuongdong

mov cx,1

lap:

mov ax,cx

mul cx

cmp ax,n

je qua

inc cx

cmp cx,n

jb lap

@write'So da nhap khong phai la so chinh phuong'

jmp het

qua:

@write'Day la so chinh phuong'

het:

int 20h

include proc.asm

code ends

end start

;Bai10/Nhap mot ki tu neu do la chu thuong thi thong bao do la chu ;thuong nguoc lai thi thong bao do khong phai la chu thuong(cn10.asm)

code segment

assume cs:code

org 100h

start: jmp over

xau db 'Nhap 1 ky tu: $'

xau1 db 0ah,0dh,'ky tu vua nhap la chu thuong$'

xau2 db 0ah,0dh,'ky tu vua nhap khong phai chu thuong $'

over:

mov ah,9

lea dx,xau

int 21h

mov ah,1

int 21h

cmp al,'a'

jb khac

cmp al,'z'

ja khac

mov ah,9

lea dx,xau1

int 21h

jmp het

khac:

mov ah,9

lea dx,xau2

int 21h

het:

int 20h

code ends

end start