buat program utk menuliskan tulisan "MID SEMESTER" yang bejalan ke kiri dan ke kanan pd layar monitor, muli baris pertama, lalu bergerak turun setiap ke kanan 3x sampai ke dasar layar kemudian naik kembali ke baris pertama, demikian seterusnya.
tdk dperkenankan menggunakan GOTOXY
Baca Selengkapnya...
Sudah tiga tahun kita berpacaran
Lewati suka, lewati duka
Kini saatnya aku melamarmu
Agar dirimu halal bagiku
Saya terima nikahnya pujaan hatiku milik ayahnya
Dengan mas kawin seperangkat alat shalat
Ditambah dengan mahar sebesar seratus ribu rupiah
Dibayar tunai
Sah.. Sah.. Sah..
Kata orang-orang
Sah.. Sah.. Sah..
Kau istriku yang sah
Setelah itu kita bulan madu
Tapi ada syaratnya
Jangan jauh-jauh
Karena kita saling mencinta
Alhamdulillah
Sah.. Sah.. Sah..
Kata orang-orang
Sah.. Sah.. Sah..
Kau istriku yang sah
Baca Selengkapnya...
klo lgi emosian gni, dkit2 bosen, ap2 bosen,bosen krj bosen kul bosen mkn bosen urip ehhh g denk blm nikah x, g q g bosen urip og. hah sussahnya.....
jilbab baru kit? g,dh lama cm jrg dpake j
hmm tumbn jg c q pake jilbab berMOTE,dtambah jilbab ini dpake pas q wisuda.
huhhhh moment yg mls bggt klo igt,. disiapin mateng2 tp akhirnya ap?hah tw ahhh
aduhhh prtama rasane gmn gtu, tp klo dh da krjaan y g brasa,tp klo pas nganggur haduh g pede pake jilbab ini.gpplah, mw gmn lgi,q bosen pake yg byasany..
bngng
bngng cri solusi yar g emosian,haduh klo igt mggu rasane pgn nangis, eh g, g blh nangis.dh gedhe gtu.. kitie dlu emg ngawur tp kitieHarjanto hrus byk2 mikir dlu sblm britndak..
bngng mw ngmg ap, byk bggt unek2 tp bgng mw ngomgnya gmn,ngomgnya m sp...
1 yg jls yg q tw q kgn setyawan harjanto :'(
kykny g long distance tp brasaaa jauhhhhhhh bggt :)
sayang, kpn bs ktemu :(
udh ahh sgni dlu,g da tmn crita,crita dsni j y,mg g da yg baca.g da yg bc
Baca Selengkapnya...
gara2 acara gagal j malese mpe 2hari gni, dadi kteteran kabeh,isine emosi tok.
hah py marine iki.....
kpn profesionale kit ngono trs,byasa waelah...
Baca Selengkapnya...
Hari datang dan pergi
Terus melintas sepi
Tanpa matahari
Semua yang telah ada
Dalam pelangi jiwaku
Kini musnah sudah
Tak ada lagi kisah asmara
Tak ada lagi senyumanmu
Tak ada lagi tatapan cinta
Kuyakinkan diriku
Kau takkan kembali
Kumeniti pelangi
Dan kuarungi misteri
Tanggalkan mimpi
Kuingin mencari
Kedamaian yang abadi
Di hati ini ..
Baca Selengkapnya...
Ada doa ada lara
Ada tangis dan nestapa
Meragu melebar jiwa
Kadang sendu kadang ceria
Tatap angkuh penuh cela
Tiada lagi kubermanja
Berkeping hati bebudi
Kalang di matamu
Bagai bala singgah kini
Sesat pandanganku kini
Sumbang suara – suara cinta
Tlah berada – ada
Lelah sudah kutersadar diri
Warna cinta membaur berganti
Kelam kini menghantui
Kucari sepi hidupku
Namun tak juga kujumpa
Tak daya kukejar hari
Ada doa ada lara
Ada tangis dan nestapa
Tlah kau beri sepi
Tiada bertepi
Baca Selengkapnya...
Mungkin hanya jiwa yang tak terjaga jua
Dalam doa
Hingga khilaf menyentuh terasa bergetar
Ku berlalu
Saat terasa waktu tlah hilang
Ku terdiam oh
Saat hanya gundah yang bertentangan
Ku bernyanyi
Cinta cita harapan
Dan ku terbawa dalam kisah yang lama
Cinta cita harapan
Dan ku terbawa dalam kisah lama
Amarah yang tak terucapkan jua
Tak terungkap
Walau diri tlah terbelenggu hasrat
Ku bernyanyi
Saat terasa waktu tlah hilang
Ku terdiam oh
Saat hanya gundah yang bertentangan
Ku bernyanyi
Cinta cita harapan
Dan ku terbawa dalam kisah yang lama
Cinta cita harapan
Dan ku terbawa dalam kisah lama
Baca Selengkapnya...
bilang saja kau tak suka
katakan katakan padaku
mungkin semua mesti terjadi
untuk hidup dan kebebasanmu
harusnya aku tau
cintamu tak selamanya indah
cinta yang tlah terjadi
tinggalkan kepedihan di hati
yang aku tau kau akan meninggalkan aku
lupakan semua kisah cinta kita berdua
walau tak mudah aku tuk berpaling darimu
hempaskan semua cinta
Baca Selengkapnya...
ku tak akan mati walau tanpa dirimu iringi langkahku
yg aku tau kau bukanlah yg terbaik untuk diriku
ku tak akan mati walau kau pergi jauh tinggalkan mimpiku
aku kan tetap berdiri melangkah lebih tegar setelah kau pergi
lihatlah aku meskipun tanpamu
masih mampu berlari mengejar semua mimpi
lihatlah aku setelah kau pergi
kan kupastikan untuk lebih bahagia tanpamu
selamanya
ku tak akan mati walau tanpa cintamu iringi langkahku
Baca Selengkapnya...
jika suatu hari aku menikahimu
memilihmu jadi permaisuriku
pastikan kau jadi istri yg paling setia
yakinkan aku tak perlu lagi yg lainnya
jika suatu hari kita berkeluarga
punya rumah sendiri walau senderhana
untukmu untukku meneduhkan rasa rindu
berlindung menyandarkan semua rasa letihku letihmu
jika suatu hari engkau jadi istriku
ingin ku titipkan benihku di rahimmu
tiupkan padanya semua kebaikanmu
besarkan dirinya dengan kasih sayangmu
berdua kita arungi luasnya samudra
bersama kita hadapi kerasnya dunia
jika suatu hari aku meninggalkanmu
ku ingin kau tetap setia menunggu
Baca Selengkapnya...
saat ku sentuh lembut jemarimu
terasa keindahan semakin kurasakan
haripun berlalu kurasa kau smakin jauh
tak terbayangkan durimu semakin kurasakan
terangilah gelap duniaku sampai malam pergi
ingin rasanya kuleburkan segala
kenangan indah bersamamu dulu
kehadiran dirimu yg slalu kurindukan
namun entah mengapa kini kau harus menghilang
Baca Selengkapnya...
maafkan aku yg tak pernah mampu
mengungkapkan segala kejujuran ini
berkali ku coba membunuh segala
rasa di hatiku untuk dirinya
sekian lama kusimpan di hati
berharap semoga kau kan pahami
sungguh ku tak ingin hancurkan segala
bangunan cinta diantara kita
aku telah membagi rasa rindu di hati
yang semestinya hanya terlahir untukmu saja
aku telah mendua membagi rasa cinta
yg seharusnya kupersembahkan untuk saja
Baca Selengkapnya...
disaat engkau datang dan bawakan cinta
indah mewarnai setiap langkahku
dan semaikan semua rasa rinduku
sekian lamanya tertahan waktu
semua yang kucari tlah kudapatkan kini
di dirimu permata bunga hatiku
dan dekaplah slalu rasa rinduku
yakinkan hatimu takkan berpaling
jangan pernah kau pergi dr hatiku
dekaplah cintaku di dalam damaimu
ku ingin kau bertahta di puri hatiku
dampingi aku di sgala suasana
ku ingin kau bertahta di istana cintaku
jadilah kau raja untuk selamanya
Baca Selengkapnya...
Seharusnya engkau disini memelukku disaat aku rindu
semestinya kau slalu ada, menemani langkahku selamanya
mewarnai hidupku dengan cinta
dapatkah engkau sadari betapa hati ini tlah kau bawa
akankah engkau kembali, menjemputku yang menggigil sendiri
memelukku disaat aku rindu
mungkinkah di hatimu msh tersisa untukku
sekeping rasa rindu yg kan kau untai hanya untukku
adakah di hatimu msh tersisa bwtku
sebentuk rasa cinta yg membawamu kembali lagi
Baca Selengkapnya...
tiba saat ku sendiri
kurasakan semua terjadi
kusatukan dengan bumi
jiwa yang tlah terlanjur hampa
dan kusadari bahwa semua telah berlalu
ku berharap bintang kan bersinar lagi
terangi gelapnya sunyi
oh indahnya jika semua kembali seperti dulu
dan waktu pun trus berjalan
melewati gundah hatiku
dan ku sadar ku tak bisa
jika kamu temui aku
ku pasti kan berlalu
berlari ke arah lainnya
^_^
Baca Selengkapnya...
kalender cinta, halah lebay
kalender kita
kalender suami
Baca Selengkapnya...
setyawan harjanto iki, tp r mirip apik asline
Baca Selengkapnya...
r koyo uwong
tembok kamar brsejarah
Baca Selengkapnya...
bayangne rupane dewe yo ngene ki hasile
Baca Selengkapnya...
enek seng mirip iki g?
gambar tgnku jaman smk
Baca Selengkapnya...
q gambar iki pas q ung iso nrimo kehadirane.stiap ktemu nek g shock byasane awak panas, ws koyo wong linglung dadi aneh. tp kui mbiyen
Baca Selengkapnya...
Praktek ke 1
org 100h
proses:
mov ax, 3 ; memilih text mode 80x25
mov ax,103h ; menyediakan 16 warna
mov bx, 0
int 10h
mov ax, 0b800h ; segment video
mov ds, ax ; ds = data segment
mov [02h], 'k'
mov [03h], 2h
mov [04h], 'h'
mov [06h], '.'
int 20h
end proses
**************************** kitieHarjanto ********************************
Praktek k 2
include emu8086.inc ; memaanggil makro bernama emu8086
.model small
.code
org 100h
anyak: jmp proses
teks1 db "Hallo kitieHarjanto..$" ; data type byte...diakhiri $
teks2 db "Betapa hijaunya ..$" ; agar terbaca oleh int 21h / 89h
teks3 db "Aku cantik y ..$" ;
teks4 db "Aku cantik..$"
teks5 db "Aku canti..$"
teks6 db "Aku cant..$"
teks7 db "Aku can ..$"
teks8 db "Aku ca..$"
teks9 db "Aku c..$"
teks10 db "Aku ..$"
proses:
gotoxy 10,5
; menulis string pertama
mov dx, offset teks1
mov ah, 09h
int 21h
gotoxy 10,6
;menulis string kedua
mov dx, offset teks2
mov ah, 09h
int 21h
gotoxy 10,7
;menulis string ketiga
mov dx, offset teks3
mov ah, 09h
int 21h
gotoxy 10,8
;menulis string keempat
mov dx, offset teks4
mov ah, 09h
int 21h
gotoxy 10,9
;menulis string keempat
mov dx, offset teks5
mov ah, 09h
int 21h
gotoxy 10,10
;menulis string kelima
mov dx, offset teks6
mov ah, 09h
int 21h
gotoxy 10,11
;menulis string keenam
mov dx, offset teks7
mov ah, 09h
int 21h
gotoxy 10,12
;menulis string ketujuh
mov dx, offset teks8
mov ah, 09h
int 21h
gotoxy 10,13
;menulis string kedelapan
mov dx, offset teks9
mov ah, 09h
int 21h
gotoxy 10,14
;menulis string kesembilan
mov dx, offset teks10
mov ah, 09h
int 21h
mov ah, 0
int 16h ; tunggu sampai ada tombol yang ditekan
int 20h
end proses
**************************** kitieHarjanto ********************************
cara ngompile (mengubah file menjadi .com)
compile, save, pilih drive mn mw dsave, ok
ada 3 file .asm, .debug, .symbol satu lagi MS DOS application. MS DOS diklik. Klo lgsg ilang brati bener. Tp klo dtambah skrip
mov ah, 0
int 16h ; tunggu sampai ada tombol yang ditekan
hasille klo MS DOS Application diklik g lgsg ilang, nggu ada yang di klik trs baru ilang
**************************** kitieHarjanto ********************************
Praktek ke 3
.model small
.code
org 100h
anyak: jmp proses
kawula db "sega goreng"
proses:
xor bx, bx ; inisialisasi bx = 0
mov cx, 11 ; counter perulangan
ulang:
mov DL, kawula[bx] ; ambil data kawula urutan ke BX
mov ah, 02 ; int 21h servis 02 untuk cetak
int 21h ; 1
inc bx ; mainkan nilai bx => bx;=bx+1
loop ulang ; perintah mengulang
int 20h ; selesai kembali ke OS
end anyak
hasil :
**************************** kitieHarjanto ********************************
praktek ke 4
.model small
.code
org 100h
anyak: jmp proses
kawula db "sega goreng dan
proses:
xor bx, bx ; inisialisasi bx = 0
mov cx, 25 ; counter perulangan
ulang:
mov DL, kawula[bx] ; ambil data kawula urutan ke BX
mov ah, 02 ; int 21h servis 02 untuk cetak
int 21h ; 1
inc bx ; mainkan nilai bx => bx;=bx+1
loop ulang ; perintah mengulang
int 20h ; selesai kembali ke OS
end anyak
**************************** kitieHarjanto ********************************
interrupt è perintah melaksanakan sesuatu
mov cx, 25 è banyak nya data, apabila jumlah meebihi data yg ada maka data yg kebaca akan random (acak)
**************************** kitieHarjanto ********************************
.model small
.code
org 100h
proses:
mov ax, 0F000h ; masukkan nilai segment memory
mov es, ax
mov bx, 0FFF5h ; menunjuk offset memory yang di baca
mov cx, 8 ; counter
ulang:
mov dl,es:[bx][si] ; ambil data alamat es:bx+si
mov ah, 02h ; nilai interrupt untuk cetak 1 huruf ke layar
int 21h ; laksanakan interrupt
inc si ; si := si+1
loop ulang ; lompat ke ulang dari cx=8 sd cx=0
int 20h ;
end proses
**************************** kitieHarjanto ********************************
