Contoh Program Assembler

Berikut contoh program dengan menggunakan assembly,
;=====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=====