Jurnal Informasi Tips Trik Tutorial, Blogging, Programming

.model small
.code
org 100h
 
tdata : jmp proses1
 
	arr dw 9,11,8	;definisikan array dan isinya
	;array dideklarasikan dgn dw, sehingga lompatan antar array sebanyak 2 (byte)
 
	teks1 db 13,10,'Nilai Elemen Array 1 = $'
	teks2 db 13,10,'Nilai Elemen Array 2 = $'
	teks3 db 13,10,'Nilai Elemen Array 3 = $'
	teks4 db 13,10,'Hasil Penjumlahan elemen 1 + 2 = $'
	teks5 db 13,10,'Hasil Penjumlahan elemen 2 + 3 = $'
	cmp1 db 13,10,'Hasil Penjumlahan elemen 1 > Hasil Penjumlahan elemen 2$'
	cmp2 db 13,10,'Hasil Penjumlahan elemen 1 = Hasil Penjumlahan elemen 2$'
	cmp3 db 13,10,'Hasil Penjumlahan elemen 1 < Hasil Penjumlahan elemen 2$'
 
proses1 :
	mov ah,09
	lea dx,teks1
	int 21h
 
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,arr		; memasukkan array pertama ke dalam register ax, sehingga ax bernilai 9
 
	; cetak angka
	mov bx, 10
	xor cx,cx
 
ulang1 :
	xor dx,dx
	div bx
	push dx
	inc cx
	cmp ax,0		; bandingkan apakah ax sudah 0
	jne ulang1		; jika tidak, ulangi
 
cetak1 :
	pop dx
	add dl,'0'
	mov ah,02
	int 21h
	loop cetak1
 
proses2 :
	mov ah,09
	lea dx,teks2
	int 21h
 
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,[bx+2]		; memasukkan array ke-2 ke dalam register ax, sehingga ax bernilai 11
 
	; cetak angka
	mov bx, 10
	xor cx,cx
 
ulang2 :
	xor dx,dx
	div bx
	push dx
	inc cx
	cmp ax,0		; bandingkan apakah ax sudah 0
	jne ulang2		; jika tidak, ulangi
 
cetak2 :
	pop dx
	add dl,'0'
	mov ah,02
	int 21h
	loop cetak2
 
proses3 :
	mov ah,09
	lea dx,teks3
	int 21h
 
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,[bx+4]		; memasukkan array ke-3 ke dalam register ax, sehingga ax bernilai 8
 
	; cetak angka
	mov bx, 10
	xor cx,cx
 
ulang3 :
	xor dx,dx
	div bx
	push dx
	inc cx
	cmp ax,0		; bandingkan apakah ax sudah 0
	jne ulang3		; jika tidak, ulangi
 
cetak3 :
	pop dx
	add dl,'0'
	mov ah,02
	int 21h
	loop cetak3
 
proses4 :
	mov ah,09
	lea dx,teks4
	int 21h
 
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,arr		; memasukkan array pertama ke dalam register ax, sehingga ax bernilai 10
	add ax,[bx+2]		; menambahkan ax dgn array ke-2, ax = ax + 11, sehingga ax bernilai 9 + 11 = 20
 
	; cetak angka
	mov bx, 10
	xor cx,cx
 
ulang4 :
	xor dx,dx
	div bx
	push dx
	inc cx
	cmp ax,0		; bandingkan apakah ax sudah 0
	jne ulang4		; jika tidak, ulangi
 
cetak4 :
	pop dx
	add dl,'0'
	mov ah,02
	int 21h
	loop cetak4
 
proses5 :
	mov ah,09
	lea dx,teks5
	int 21h
 
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,[bx+2]		; memasukkan array ke-2 ke dalam register ax, sehingga ax bernilai 11
	add ax,[bx+4]		; menambahkan ax dgn array ke-3, ax = ax + 8, sehingga ax bernilai 11 + 8 = 19
 
	; cetak angka
	mov bx, 10
	xor cx,cx
 
ulang5 :
	xor dx,dx
	div bx
	push dx
	inc cx
	cmp ax,0		; bandingkan apakah ax sudah 0
	jne ulang5		; jika tidak, ulangi
 
cetak5 :
	pop dx
	add dl,'0'
	mov ah,02
	int 21h
	loop cetak5
 
proses6 :
	lea bx,arr 		; mencatat alamat efektif array ke dalam register bx
	mov ax,arr		; memasukkan array pertama ke dalam register ax, sehingga ax bernilai 10
	cmp [bx+4],ax		; bandingkan array ke-3 dgn ax
 
	JB Kecil		; jika ax < array ke-3
	JE Sama			; jika ax = array ke-3
	JA Besar		; jika ax > array ke-3
 
Kecil : 	
	lea dx,cmp1		; memasukkan cmp1 ke dalam register dx
	jmp cetak6		
 
Sama :
	lea dx,cmp2		; memasukkan cmp2 ke dalam register dx
	jmp cetak6
 
Besar :
	lea dx,cmp3		; memasukkan cmp3 ke dalam register dx
	jmp cetak6
 
cetak6 :
	mov ah,09
	int 21h
 
	int 20h
 
end tdata