Contoh Program Assembly from : VeRZaW#021

Kali ini saya akan share Contoh pemprograman Bahasa Assembly ,Kalian udah tau kan Assembly itu apa ?? itu lho bahasa rakitan rakitan gitu :) ,nih kalau ada yang belum tau aku kasih Link tentang Program Assembly :p Klik Disini Ok sekarang lanjut aja ya ke tema kita :D , langsung saja saya kasih kan tidak usah pake Link Link an segala kelamaan :D ,, monggo di baca :


;=====Start Program=====

.MODEL SMALL
.CODE
org 100h 

posisi macro baris,kolom
mov ah,02h
mov dh,baris
mov dl,kolom
mov bh,00h
int 10h
endm 

cls proc near
mov ah,06h
mov cx,0000h
mov dh,24
mov dl,79
mov al,00
mov bh,1Ah
int 10h 
jmp subp
POSISI 0,0
;ret
cls endp

awal: posisi 0,0
jmp proses 
KAL0 DB ' << MASUKKAN PILIHAN MENU >> $' 
KALZ DB 13,10,' *************************** $' 
KALY DB 13,10, ' $'
KAL1 DB 13,10, '1. PENJUMLAHAN (BILANGAN KURANG DARI 10) $'
KAL2 DB 13,10, '2. INPUT KALIMAT $'
KAL3 DB 13,10, '3. CETAK STRING $' 
KAL4 DB 13,10, '4. KELUAR $'
KAL5 DB 13,10, 'PILIHLAH APA YANG KAMU INGINKAN [1..4] : $' 
KAL6 DB 13,10, 'Tekan (y/Y) untuk mengulang atau sembarang tombol untuk keluar!!$' 

kata1 DB 13,10,'PENJUMLAHAN $'

kata2 DB 13,10,'INPUT KALIMAT $' 

kata3 DB 13,10,'CETAK STRING $' 

PROGRAM1: call P1 

PROGRAM2: call P2

PROGRAM3: call P3

proses: call cls 

SUBP: 
mov ah,09h
mov dx,offset kal0
int 21h 
mov ah,09h
mov dx,offset kalz
int 21h 
mov ah,09h
mov dx,offset kalY
int 21h 
mov ah,09h
mov dx,offset kal1
int 21h 
mov ah,09h
mov dx,offset kal2
int 21h 
mov ah,09h
mov dx,offset kal3
int 21h 
mov ah,09h
mov dx,offset kal4
int 21h 
mov ah,09h
mov dx,offset kal5
int 21h 

MOV AH,01H
INT 21H
MOV DL,AL 

cmp DL,'1'
JL AWAL

CMP DL,'4'
JG AWAL 

CMP DL,'1'
JE PROGRAM1 

CMP DL,'2'
JE PROGRAM2

CMP DL,'3'
JE PROGRAM3

CMP DL,'4'
JE EXIT 


INT 20H 

p1 proc near
mov ah,09h
mov dx,offset kata1
int 21h 

A: jmp start 

kalB db 13,10, 'masukkan bilangan pertama: $'
kalC db 13,10, 'masukkan bilangan kedua: $'
kalD db 13,10, 'total penjumlahan: $'

start:

mov ah,09h
lea dx,kalB
int 21h

mov ah,01h
int 21h
mov bh,al 
;add bh,30h

mov ah,09h
lea dx,kalC
int 21h

mov ah,01h
int 21h
mov bl,al

mov ah,09h
lea dx,kalD
int 21h 

add bh,bl

mov ah,02h
sub bh,30h
mov dl,bh
int 21h

jmp PERULANGAN
ret
p1 endp 

p2 proc near
mov ah,09h
mov dx,offset kata2
int 21h 


MULEI: 
MOV CL,30H 
JMP PROS
KALH DB 13,10,'Ketikkan satu kalimat:$'
KALI DB 13,10,'Kalimat yang diinput adalah:$'
KALJ DB 13,10,'Cetak dari belakang:$',13,10 
KALK DB 13,10,'panjang string adalah:$' 
KALX DB 13,10,'$'
KALL DB 13,10,'Jumlah Huruf Vokal:$' 
KALM DB 13,10,'Jumlah Huruf Konsonan:$'
KATA DB 10,?,10 DUP (?) 


VOKAL: INC CL 
JMP PLUS 


PROS: 
;============= CETAK STRING ================

MOV AH,09H
MOV DX,OFFSET KALH
INT 21H 


;============= INPUT STRING ================

MOV AH,0AH
LEA DX,KATA
INT 21H

;============= CETAK STRING ================

MOV AH,09H
MOV DX,OFFSET KALI
INT 21H

;============ CETAK VARIABEL STRING DG MODEL COMPARASI ==========

MOV BX,OFFSET KATA+2 


CET:
MOV DL,[BX] 
CMP DL,0DH 
JE BELAKANG 

MOV AH,02H
INT 21H

CMP DL,'a'
JE VOKAL 
CMP DL,'i'
JE VOKAL
CMP DL,'u'
JE VOKAL
CMP DL,'e'
JE VOKAL
CMP DL,'o'
JE VOKAL
CMP DL,'A'
JE VOKAL
CMP DL,'I'
JE VOKAL
CMP DL,'U'
JE VOKAL
CMP DL,'E'
JE VOKAL
CMP DL,'O'
JE VOKAL 

PLUS:INC BX
JMP CET 

;============= CETAK KATA DARI BELAKANG ==================

BELAKANG:MOV AH,09H
MOV DX,OFFSET KALJ
INT 21H 
MOV AH,09H
MOV DX,OFFSET KALX 
INT 21H 

CETAK1: 
MOV DL,[BX] 
CMP DL,KATA+1 
JE VOKAL1 

MOV AH,02H 
INT 21H
DEC BX
JMP CETAK1


;============ CETAK JUMLAH VOKAL ================

VOKAL1:
MOV AH,09H
MOV DX,OFFSET KALL
INT 21H

MOV DL,CL
;ADD DL,30H
MOV AH,02H
INT 21H 


;============ CETAK JUMLAH KONSONAN ===============

KONSONAN:
MOV AH,09H
MOV DX,OFFSET KALM
INT 21H

MOV BX,OFFSET KATA+1 
MOV DL,[BX] 
ADD DL,30H 
SUB DL,CL 
ADD DL,30H 
MOV AH,02H
INT 21H 


;============= CETAK PANJANG STRING ================

AKHIR:
MOV AH,09H
MOV DX,OFFSET KALK
INT 21H

MOV BX,OFFSET KATA+1
MOV DL,[BX]
ADD DL,30H
MOV AH,02H
INT 21H 

jmp PERULANGAN
ret
p2 endp

P3 proc near
mov ah,09h
mov dx,offset kata3
int 21h 

B:
JMP KLIK
KALE DB 13,10,'CETAK MULAI DARI: $'
KALF DB ' S/D: $' 
KALG DB 13,10,'HASIL : $'

KLIK: 
MOV AH,09H ;CETAK KAL1
LEA DX,KALE
INT 21H

MOV AH,01H ;BACA INPUTAN DARI
INT 21H
MOV BH,AL ;PINDAH INPUTAN KE BH

MOV AH,09H ;CETAK KAL2
LEA DX,KALF
INT 21H

MOV AH,01H ;BACA INPUTAN SAMPAI 
INT 21H
MOV BL,AL ;PINDAH INPUTAN KE BL

MOV AH,09H ;CETAK HASIL
LEA DX,KALG
INT 21H 


CMP BL,BH ;BANDINGKAN BL DENGAN BH
JG ASCEND ;BILA BL LEBIH BESAR, MAKA JUMP KE ASCEND

JMP DESCEND ;BILA TIDAK, JUMP KE DESCEND

DESCEND: 
MOV AH,02H ;INTERUPT CETAK
MOV DL,BH ;ISI DL DENGAN BH
INT 21H ;CETAK DL 

mov ah,02h
mov dl,0ah
int 21h 

DEC BH ;KURANGI BH 1H
CMP BH,BL ;BANDINGKAN BH DENGAN BL
JG DESCEND ;BILA BH LEBIH BESAR, JUMP KE DESCEND

ASCEND: 
MOV AH,02H ;PERINTAH CETAK
MOV DL,BH ;ISI DL DENGAN BH
INT 21H ;PERINTAH CETAK DL 

mov ah,02h
mov dl,0ah
int 21h 

INC BH ;TAMBAHKAN BH DENGAN 1H
CMP BH,BL ;BANDINGKAN BH DENGAN BL
JLE ASCEND ;BILA BH LEBIH KECIL, JNP KE ASCEND

JMP PERULANGAN 
ret
P3 endp

PERULANGAN: 
MOV AH,09H
LEA DX,KAL6
INT 21H 

MOV AH,01H
INT 21H
MOV BH,AL

CMP BH,'Y' 
JE AWAL

CMP BH,'y'
JE AWAL 
EXIT:
INT 20H
;=====End Program=====

Selesai :D Sekian Contoh dari Program Asembly :D semoga Bermanfaat ya Broo :D 

Anda baru saja membaca artikel yang berkategori Programer dengan judul Contoh Program Assembly from : VeRZaW#021. Anda bisa bookmark halaman ini dengan URL http://predator-technology.blogspot.com/2013/08/contoh-program-assembly-from-verzaw021.html. Terima kasih!

Ditulis oleh: VeRZaW#021 - 25 August 2013