Tuesday, April 22, 2008

Tugas Mikroposesor (InputNama&JenisKelamin)

Akhirnya..tugas proyek mikroprosesor dari Pak Adhe jadi juga..sederhana seh..tapi semoga bermanfaat..SourceCOdenya sebagaimana di bawah ini..ow iya..biar lebih mudah..dilampirin deh file .asm nya..bisa dilihat didownload disini :

http://www.indowebster.com/Ardiansyah.html

ow iya tampilannya kira2 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.

;------------------------;
;------------------------;
;Created by Ardiansyah ;
;Computer Engineering UI ;
;------------------------;
;------------------------;

.MODEL SMALL
.DATA

NamaAnda DB 13,10,'Masukkan nama anda!',13,10,'$'
Kelamin DB 13,10,'Apakah Jenis Kelamin Anda (P/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
mov dx,OFFSET NamaAnda
mov ah,9
int 21h
mov ah,0AH
LEA dx,Buffer
int 21h


mov dx,OFFSET Kelamin
mov ah,9
int 21h
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
mov ah,9
int 21h

mov ah,1
int 21h
or al,20h

cmp al,'y'
je start
cmp al,'n'

.EXIT



TampilSalam:
mov ah,9
int 21h

LEA dx,Buffer+2
mov ah,9
int 21h

mov dx,OFFSET Turun
mov ah,9
int 21h

jmp Coba

END start

No comments: