Đang tải... (xem toàn văn)
Tổng hợp một số dạng bài tập lập trình ngôn ngữ ASM
[...]... start Bài 8 code segment assume cs:code org 100h ; -start:jmp over tb1 db 10,13,'Nhap so co 1 chu so:$' tb2 db 10,13,'Do la so chan$' tb3 db 10,13,'DO la so le$' over: mov ah,9 lea dx,tb1 int 21h mov ah,1 int 21h mov bl,al sub bl,30h cmp bl,0 je over cmp bl,9 ja over shr bl,1 jc sole mov ah,9 lea dx,tb2 int 21h jmp thoat sole: mov ah,9 lea dx,tb3 int 21h ; thoat: int 20h code ends end start Bài. .. DI tu dong tang dan sau moi lan lap rep movsb ;Lap chuyen du lieu vao xau ten @xuong_dong @write'Ten tach duoc la:' mov ah,9 lea dx,ten int 21h ; thoat: int 20h include proc .asm code ends end start Bài 15 Xâu i x ng ( ư c s d ng thư vi n) include mylib.mac code segment assume cs:code org 100h ; start:jmp over xau db 50 dup(?) xaudao db 50 dup(?) over: @write'Nhap xau:$' lea... lea di,xaudao lea si,xau mov cx,bx repe cmpsb je doixung @xuong_dong @write'Xau do khong doi xung' jmp thoat doixung: @xuong_dong @write'Xau do doi xung' ; -thoat: int 20h include proc .asm code ends end start Bài 16 Đ m t c a xâu ( ư c s d ng thư vi n) include mylib.mac code segment assume cs:code org 100h ; start:jmp over xau db 50 dup(?) d dw 0 over: @write'Nhap xau :' mov cx,0 lea di,xau cld... repe scasb;bo dau cach trong jcxz inkq inc d repne scasb;bo qua tu vua dem cmp cx,0 jnz lap inkq: @xuong_dong @write'so tu cua xau la:' mov ax,d call in_so ; -thoat: int 20h include proc .asm code ends end start Bài 17 Chuy n các ký t sang xâu (s d ng lib) include mylib.mac code segment assume cs:code org 100h ; -start:jmp over xau db 50 dup('$') xauhoa db 50 dup('$') over: @write'nhap xau ky tu:'... stosb qua: inc bx loop lap @xuong_dong @write'Xau ban dau la :' mov ah,9 lea dx,xau int 21h @xuong_dong @write'xau chu hoa la:' mov ah,9 lea dx,xauhoa int 21h ; -thoat: int 20h include proc .asm code ends end start Bài 18 Vi t chương trình trong ch văn b n th c hi n: Xóa màn hình, t con tr vào gi a màn hình, n INSERT liên t c thay i kích thư c con tr to, nh Thoát b ng ESC code segment assume cs:code... ds,ax;dua DS tro vao B800h mov si,0;hoac la : xor si,si mov cx,2000;so lan lap in ra man hinh lap: mov [si],bx add si,2 loop lap mov ah,0;bat phim int 16h ; thoat: int 20h include proc .asm code ends end start Bài 23 Vi t chương trình trong ch h a 256 màu th c hi n: V 1 ư ng th ng có 256 i m nh, m i i m nh có 1 màu cơ b n b t u t màu s 0 Chương trình cho phép b m 1 phím Khi b m phím 1 tr l i ch văn... la 1 so chan add bl,30h mov ah,2 mov dl,bl int 21h jmp thoat nhay: add bl,30h mov ah,2 mov dl,bl int 21h mov ah,2 mov dl,'.' int 21h mov ah,2 mov dl,'5' int 21h ; thoat: int 20h code ends end start Bài 10 code segment assume cs:code org 100h ; start:jmp over tb1 db 'Nhap ky tu 1:$' tb2 db 10,13,'Nhap ky tu 2:$' tb3 db 10,13,'Sau khi sap xep la:$' over: mov ah,9 lea dx,tb1 int 21h mov ah,1 int 21h... int 21h mov cl,al mov ah,9 lea dx,tb3 int 21h ; cmp bl,cl ja nhay inra: mov ah,2 mov dl,bl int 21h mov ah,2 mov dl,cl int 21h jmp thoat nhay: xchg bl,cl jmp inra ; -thoat: int 20h code ends end start Bài 11 code segment assume cs:code org 100h ; start:jmp over tb1 db 10,13,'Nhap 1 . dx,tb3 int 21h add bl,cl shr bl,1 jc nhay;neu so day ra la so 1 thi chung to tong la 1 so le.nguoc lai tong la 1 so chan add bl,30h mov ah,2 mov dl,bl int 21h jmp thoat nhay:. start:jmp over tb1 db 10,13,'Nhap 1<=N<=5 :$' tb2 db 10,13,&apos ;tong tu 1 den N la:$' tong db 0 over: mov ah,9 lea dx,tb1 int 21h mov ah,1 int 21h cmp al,'1'. ja over mov cl,1 sub al,30h tinh: add tong, cl inc cl cmp cl,al ja qua1 jmp tinh qua1: mov ah,9 lea dx,tb2 int 21h mov bl ,tong cmp bl,9 ja qua add bl,30h;doi thanh