các bài lập trình hợp ngữ môn kĩ thuật vi xử lý

inc cxinc sijmp nhap;hien thihienhoa:mov tam,cxlea si,xaulea dx,tb2mov ah,9int 21h inhoa: mov al,[si] cmp al,97jae laymov dl,almov ah,2int 21h lay: inc siloop inhoa hienthuong:mov cx,ta

mov ah,1 int 21h

sub al,30h add bl,al

lea dx,tb3 mov ah,9 int 21h

cmp bl,10 jae tachso

mov dl,bl add dl,30h mov ah,2 int 21h

jmp thoat tachso:

mov dl,31h mov ah,2 int 21h

mov ds,ax

lea dx,tb1 mov ah,9 int 21h

mov ah,1 int 21h

mov bl,al sub bl,30h

lea dx,tb2 mov ah,9 int 21h

mov ah,1 int 21h

sub al,30h mov cl,al

lea dx,tb3 mov ah,9

int 21h

cmp bl,cl

jb am sub bl,cl mov dl,bl add dl,30h mov ah,2 int 21h

jmp thoat

am:

mov dl,'-' mov ah,2 int 21h

sub cl,bl mov dl,cl add dl,30h mov ah,2 int 21h

mov bl,al sub bl,30h

lea dx,tb2 mov ah,9 int 21h

mov ah,1 int 21h

sub al,30h

mul bl mov cx,ax

lea dx,tb3 mov ah,9 int 21h

cmp cx,10 jae tachso

mov dl,cl add dl,30h

mov ah,2 int 21h jmp thoattachso:

mov ax,cx mov bl,10 div bl

mov dl,al mov bl,ah

add dl,30h mov ah,2 int 21h

add bl,30h mov dl,bl mov ah,2 int 21h

thoat:

mov ah,76 int 21hmain endpend main

Câu 4: Nhập 2 số có 1 chữ số rồi tính thương,dư

mov ah,0

div bl

mov bl,al

mov cl,ah

int 21h

lea dx,tb mov ah,9 int 21h

lea si,m mov cx,9 mov al,0

docmang: mov al,[si] mov ah,0 mov bl,10 mov tg,cx mov cx,0 chia:

div bl push ax inc cx cmp al,0

je hien mov ah,0 jmp chiahien:

tb2 db 13,10, 'Nhap so 2=$' tb3 db 13,10, 'Tong=$' so1 db 0

mov so1,al jmp nhapso1

nhapso2: lea dx,tb2 mov ah,9 int 21hnhap:

mov ah,1 int 21h cmp al,13

je tong mov bl,al sub bl,30h mov al,so2 mov cl,10 mul cl

add al,bl mov so2,al jmp nhap

lea dx,tb3 mov ah,9 int 21h mov bl,so1 mov al,so2 mov bh,0 mov ah,0 add ax,bx mov cx,0 mov bl,10

chia:

div bl push ax inc cx cmp al,0

je hien mov ah,0 jmp chia

hien:

mov ah,9 int 21h

lea si,m mov cx,10 mov ax,0 mov bx,0

lap:

mov bl,[si] mov bh,0 add ax,bx inc si loop lap

mov bl,10 mov cx,0

chia:

div bl push ax inc cx cmp al,0

je hien

tb1 db 'moi nhap so thu 1:$'

tb2 db 13,10,'moi nhap so thu 2:$'

tb3 db 13,10,'du:$'

tb4 db 13,10,'thuong:$'

so1 db 0

so2 db 0

du db 0

thuong db 0.code

main proc

mov ax,@data mov ds,ax

lea dx,tb1 mov ah,9 int 21h

nhapso1:

mov ah,1 int 21h

cmp al,13

je nhapso2 mov bl,al sub bl,30h mov al,so1 mov cl,10 mul cl

add al,bl mov so1,al jmp nhapso1

nhap:

mov ah,1 int 21h

cmp al,13

je hienkq mov bl,al sub bl,30h mov al,so2 mov cl,10 mul cl

add al,bl mov so2,al jmp nhap

hienkq:

mov al,so1 mov bl,so2 mov ah,0

div bl

mov du,ah mov thuong,al

mov cx,0 mov bl,10

lea dx,tb3 mov ah,9 int 21h

mov al,du

chia:

;mov al,du mov ah,0 div bl push ax inc cx

cmp al,0

je hien

; mov ah,0 jmp chia hien:

pop ax

mov dl,ah add dl,30h mov ah,2 int 21h

loop hien laythuong: lea dx,tb4 mov ah,9 int 21h

mov al,thuong mov bl,10

chia:

div bx

push dx inc cx

cmp ax,0

je hien

mov dx,0 jmp chiahien:

pop dx

add dl,30h mov ah,2 int 21h

loop hien

mov dl,' ' mov ah,2 int 21h

add di,2 mov cx,tg loop docmang

mov ah,76

docmang: mov al,[si]

;mov al,[si] mov ah,0 div bl

cmp ah,0 jne tiep add dl,[si]

tiep:

inc si

loop docmang mov al,dl mov ah,0 mov bl,10 mov cx,0

lea dx,tb mov ah,9 int 21h

lea si,m mov cx,5 ;mov al,0 mov bl,5 mov dl,0

;

docmang: mov al,[si]

;mov al,[si] mov ah,0 div bl

cmp ah,0 jne tiep add dl,[si]

tiep:

inc si

loop docmang mov al,dl mov ah,0 mov bl,10 mov cx,0

pop ax

mov dl,ah

add dl,30h mov ah,2 int 21h

loop hien ra:

mov ah,76 int 21h

mov cx,9 lap:

mov al,[si]+1 cmp al,max jbe qua mov max,al qua:

inc si

loop lap

mov al,max mov ah,0 mov bl,10 mov cx,0

cmp al,0

min db ?

m db 10,22,4,5,6,37,2,49,13,12 code

loop lap

mov al,min mov ah,0 mov bl,10 mov cx,0

je hien mov ah,0 jmp chia

hien:

pop ax

tb1 db 'moi nhap so thu 1:$'

tb2 db 10,13, 'Ma nhi phan cua so vua nhap:$'

lea dx,tb1 mov ah,9 int 21h

nhapso:

mov ah,1 int 21h

cmp al,13

je hienkq mov bl,al sub bl,30h mov al,so mov cl,10 mul cl add al,bl mov so,al jmp nhapso

hienkq:

lea dx,tb2 mov ah,9

int 21h mov al,so mov ah,0

mov cx,0 mov bl,2 mov ah,0

je hien mov ah,0 jmp chia hien:

pop ax mov dl,ah add dl,30h mov ah,2 int 21h

tb1 db 'moi nhap so thu 1:$'

tb2 db 10,13, 'Ma nhi phan cua so vua nhap:$'

lea dx,tb1 mov ah,9 int 21h

nhapso:

mov ah,1 int 21h

cmp al,13

je hienkq mov bl,al sub bl,30h mov al,so mov cl,10 mul cl add al,bl mov so,al jmp nhapso

hienkq:

lea dx,tb2 mov ah,9

int 21h

mov al,so mov ah,0

mov cx,0 mov bl,16

mov ah,0

chia:

;mov al,du

div bl push ax inc cx cmp al,0

je hien mov ah,0 jmp chia hien:

pop ax

mov dl,ah cmp ah,10 jae tach add dl,30h mov ah,2 int 21h loop hien jmp ra tach:

add dl,37h mov ah,2 int 21h loop hien

ra:

mov dl,'H' mov ah,2 int 21h

thoat:

mov ah,76 int 21h main endp end main

Câu 16: Nhập vào xâu kí tự kthuc-enter in ra xâu hoa,xâu thường

.model tiny

.stack 100h

.data

tb1 db 'Nhap xau ky tu bat ky: $'

tb2 db 13,10,'Xau in hoa la: $'

tb3 db 13,10, 'Xau in thuong la:$'

;hien thong bao va nhap xau ky tulea dx,tb1

mov ah,9int 21hmov cx,0 lea si,xaumov ah,1nhap:

int 21hcmp al,13

je hienhoamov [si],al

inc cxinc sijmp nhap

;hien thihienhoa:mov tam,cxlea si,xaulea dx,tb2mov ah,9int 21h

inhoa:

mov al,[si] cmp al,97jae laymov dl,almov ah,2int 21h lay:

inc siloop inhoa hienthuong:mov cx,tam

lea si,xaulea dx,tb3mov ah,9int 21h

inthuong:

mov al,[si]

cmp al,97

jb lay1 mov dl,almov ah,2int 21hlay1:

inc siloop inthuong

ra:

mov ah,76int 21hmain endp

end main

câu 17: Đếm xâu

.model tiny

.stack 100h

.data

tb1 db 'Nhap xau ky tu bat ky: $'

tb2 db 13,10,'Xau in hoa la: $'

tb3 db 13,10, 'Xau in thuong la:$'

;hien thong bao va nhap xau ky tulea dx,tb1

mov ah,9int 21hmov cx,0 lea si,xaumov ah,1nhap:

int 21hcmp al,13

je hienhoamov [si],alinc cxinc sijmp nhap

;hien thihienhoa:mov tam,cxlea si,xaulea dx,tb2mov ah,9int 21h

inhoa:

mov al,[si] cmp al,97

jb lay jmp in2

lay:

add dem,1 in2:

jmp hienthuongtachso:

hienthuong:mov cx,tamlea si,xaulea dx,tb3mov ah,9int 21h

inthuong:

mov al,[si]cmp al,97jae lay1jmp in1

lay1:

add dem1,1 in1:

jae tachso2 mov dl,bladd dl,30hmov ah,2int 21hjmp ra tachso2:

mov dl,31h mov ah,2

end main