1.Program mencetak 0123456789 ( Gunakan INC )
.model small
.code
org 100h
Proses:
MOV AH,2
MOV DL,30h
MOV CX,0Ah
Ulang:
INT 21h
INC DL
loop Ulang
INT 20h
END Proses
2.Program Mencetak ABCDEFGHIJKLMNOPQRSTUVWXYZ ( Warna Tulisan Merah Dan Warna Dasar Hijau Gunakan DEC )
.Model Small
.code
org 100h
proses :
mov ah, 09h
mov al ,'Z'
mov bh,00
mov bl,00100100b
mov cx,26
ulang :
int 10h
Dec al
Loop ulang
int 20h
end proses
Studi Kasus Modul 2 :
1. Dikekatuhi Register AX=2125h,BX=E573h.Jumlahkan dengan ADD,AX+BX,Simpan hasilnya pada register AX
Diketahui register CX=8756h,DX=ADE1,Jumlahkan Dengan ADD,CX+DX,simpan hasilnya pada register CX,jumlahkan Dengan ADC,BX+DX+CF,Simpan hasilnya pada register BX
.model small
.code
org 100h
Proses:
mov ax,2125h
mov bx,0E573h
add ax,bx
mov cx,8756h
mov dx,0ADE1h
add cx,dx
adc bx,dx
inc al
int 20h
end Proses
2 Diketahui register AX=ABBAh,BX=BAC0h Kurangkan dengan SUB,simpan hasilnya di AX,Diketahui register CX=0123h,DX=00Bah,Kurangkan dengan SBB,CX-DX-CF,Simpan hasilnya pada register CX
.model small
.code
org 100h
TData:
JMP Proses
ALo EQU 0ABBAh
AHi EQU 123h
BLo EQU 0BACh
BHi EQU 00Bah
HslLo DW ?
HslHi DW ?
Proses:
mov ax,ALo
mov bx,BLo
sub ax,BLo
mov HslLo,ax
mov cx,AHi
mov dx,BHi
SBB cx,BHi
mov HslHi,cx
int 20h
end TData
3 Buat Program untuk mengurangkan 0123ABBAh-00BABAC0h
.model small
.code
org 100h
TData:
JMP Proses
ALo EQU 0ABBAh
AHi EQU 0123h
BLo EQU 0BAC0h
BHi EQU 00BAh
HslLo DW ?
HslHi DW ?
Proses:
mov ax,ALo
sub ax,BLo
mov HslLo,ax
mov ax,Ahi
sbb ax,Bhi
mov HslHi,ax
int 20h
end TData
4 Buat Program Perkalian:123h*321h hasil Pada DX,AX
.model small
.code
org 100h
TData:
JMP Proses
A DW 123h
B DW 321h
HslLo DW ?
HslHi DW ?
Proses:
mov ax,A
mul B
mov HslLo,ax
mov HslHi,dx
int 20h
end TData
5 Buat program pembagian 4444h/2
.model small
.code
org 100h
TData:
JMP Proses
A DW 4444h
B Dw 2
Hsl DW ?
Sisa DW ?
Proses:
sub dx,dx
mov ax,A
div B
mov Hsl,ax
mov sisa,dx
int 20h
end TData
Studi Kasus Modul 3 :
1. Membuat program memindahkan data sebagai berikut: A DD EFh , B DD FEh kedalam C DW FEEEh
.model small
.code
org 100h
tdata:
jmp proses
a dd 0EFh
b dd 0FEh
c dw 0FEEEh
Proses:
int 20h
end tdata
Studi Kasus Modul 4 :
1. Membuat program untuk mencetak kalimat: ‘Selamat Datang Di lab computer UNIKA-Medan
.model small
.code
org 100h
TData:
JMP Proses
kalimat DB'SELAMAT DATANG DI LAP KOMPUTER UNIKA-MEDAN'
Proses:
XOR BX,BX
MOV CX,41
Ulang:
MOV DL,kalimat[BX]
MOV AH,02h
int 21h
inc bx
loop Ulang
int 20h
end TData
2. Membuat program dengan output,pada baris 10 kolom 5 tercetak tulisan: ‘ Belajar Assembler sangatlah mudah’(warna tulisan merah,warna dasar hijau)
.model small
.code
org 100h
TData:
JMP Proses
kalo db'Belajar Assembly Sangatlah Mudah'
Proses:
mov ax,1300h
mov bl,00100100b
mov bh,00
mov dl,10
mov dh,5
mov cx,32
lea bp,kalo
int 10h
int 20h
end TData
3. Sama seperti soal 2 tetapi dengan tambahan ‘Belajar Assembler sangatlah mudah’
.model small
.code
org 100h
TData:
JMP Proses
kalo db'Belajar Assembler Sangatlah Mudah'
db' Belajar Assembler Sangatlah Mudah '
Proses:
mov ax,1300h
mov bl,00100100b
mov bh,00
mov dl,10
mov dh,5
mov cx,69
lea bp,kalo
int 10h
int 20h
end TData
4. Membuat program dengan output sbb:
Menu Pilihan Informasi
1.Menampilkan Tanggal Sistem
2.Menampilkan Jam Dos
3. Menampilkan Jam Dos
4. Menampilkan Besar Memori
5. Selesai
.model small
.code
org 100h
data : jmp proses
tabel DB '===============================',13,10,7,7,7,'$'
menu db ' Menu Pilihan Informasi ',13,10,'$'
satu db '1 . Menampilkan Tangal Sistem ',13,10,'$'
dua db '2 . Menampilkan Jam DOS ',13,10,'$'
tiga db '3 . Menampilkan Versi DOS ',13,10,'$'
empat db '4 . Menampilkan Besar Memori ',13,10,'$'
lima db '5 . Selesai ',13,10,'$'
proses : mov ah, 13h
mov bl, 10010110b
mov bh,00
mov cx, 240
lea bp, tabel
int 10h
lea bp, menu
int 10h
lea bp, tabel
int 10h
lea bp, satu
int 10h
lea bp, dua
int 10h
lea bp , tiga
int 10h
lea bp , empat
int 10h
lea bp , lima
int 10h
lea bp, tabel
int 10h
int 20h
end data
Studi Kasus Modul 5 :
1. Membuat program penggunaan stack dengan output:
Merdeka !
Merdeka !
Merdeka !
.model small
.code
org 100h
tdata:
jmp proses
kal db'Merdeka!'
ganti db 13,10,'$'
Proses:
lea dx,kal
push dx
push dx
mov ah,09h
int 21h
lea dx,ganti
pop dx
int 21h
pop dx
int 21h
exit:int 20h
end tdata