Kreatip >> Computer Interest Group UI

Assembler NamaAnda Sederhana

Posted on April 28, 2008. Filed under: Programming | Tags: assembler, program |

Pada Kesempatan kali ini tim kreatip menghadirkan sedikit program sederhana dalam bahasa assembler. Program ini merupakan salah satu tugas kuliah mikroposesor di DTE FTUI. Adapun  Algoritma program sebagai berikut :

Masukkan Nama Anda !
xxxxxxxxx
Apakah Jenis Kelamin Anda (P/W)?
(Jika P) Selamat Datang Mas xxxxxx
(Jika W) Apa Kabar Mbak xxxxxx
(jika #P#W) Maap..Jenis Kelamin anda tidak terdefinisi

Mau Coba Lagi atau Tidak (y/n)?
(jika y) kembali ke Masukkan Nama Anda
(jika n) program selesai.

Selanjutnya, kreatip menghadirkan source program ini, yang mungkin dapat dijadikan referensi bagi teman2 yang sedang mempelajari bahasa assembler.

;————————;
;————————;
;Created by Ardiansyah             ;
;Computer Engineering UI         ;
;——-Kreatip Crew——-;
;————————;

.MODEL SMALL
.DATA

Welcome  DB ‘Selamat Datang di program sederhana ini,Created by Ardiansyah! $’
Keluar  DB 13,10,’Sampai Jumpa Lagi,Kawan. Computer Engineering UI ! $’
NamaAnda DB 13,10,’Masukkan nama anda!’,13,10,’$’
Kelamin  DB 13,10,’Anda Pria(P) atau Wanita(W)?’,13,10,’$’
Pria  DB 13,10,’ Selamat Datang Mas! $’
Wanita  DB 13,10,’  Apa Kabarnya Mbak! $’
Bisex  DB 13,10,’  maaf..Jenis Kelamin anda tidak terdeteksi! $’
MauCobaLagi DB 13,10,’Mau Coba Lagi atau Tidak (y/n)?’,13,10,’$’
Buffer  DB 23,?,6 DUP(?)
Turun  DB 13,10,’$’

.CODE
start :

 

 mov ax,@data
 mov ds,ax
 LEA dx,Welcome
 call Ardi

 mov dx,OFFSET Turun
 call Ardi
 
 mov dx,OFFSET NamaAnda
 call Ardi
 mov ah,0AH
 LEA dx,Buffer
 int 21h
  

 mov dx,OFFSET Kelamin
 call Ardi
 mov ah,1
 int 21h
 or al,20h
 
 cmp al,’p’
 je IsPria
 cmp al,’w’
 je IsWanita
 
 mov dx,OFFSET Bisex
 jmp TampilSalam

 
IsPria:
 mov dx,OFFSET Pria+2
 jmp TampilSalam
 
IsWanita: 
 mov dx,OFFSET Wanita+2
 jmp TampilSalam
  
   
 
Coba:
 mov dx,OFFSET MauCobaLagi
 call Ardi  
 
 mov ah,1
 int 21h
 or al,20h
 
 cmp al,’y’
 je start
 cmp al,’n’
 je GoOut

GoOut : mov  dx,OFFSET Keluar
 call Ardi
 
 .EXIT
 
 

TampilSalam:
 call Ardi

 LEA dx,Buffer+2
 call Ardi

 mov dx,OFFSET Turun
 call Ardi
 
 jmp Coba

Ardi PROC NEAR
 mov ah,9
 int 21h
 RET
Ardi ENDP
END start

Make a Comment

One Response to “Assembler NamaAnda Sederhana”

Comments RSS Feed

Where's The Comment Form?