Text Berjalan Menggunakan Assembly

Yap,, akhirnya inilah postingan pertama aku di tahun 2010. Sebenernya byk waktu buat nulis tapi krn malas lebih besar dari pada badan, ya begini jadinya. Hari ini, hari pertama & terakhir aku ujian di semester 5, why? Itu semua krn aku jarang masuk kuliah, jadi yg bisa ikut ujian hanya 1 mata kuliah. Mata kuliah yg membosankan & sulit di mengerti, mau tau mata kuliahnya?? eng,, ing,, eng,, "Bahasa Pemrograman Assembly". Untuk teorinya pasti gagal krn jarang masuk tapi untuk praktek, InsyaAllah berhasil. Amiin..
Ujian tadi lumayan buat kepalaku pusing, walau hanya buat teks berjalan dari kiri ke kanan. Tapi setelah chat sama temen-temen akhirnya selesai juga tu program walau hasilnya gak sesuai harapan. Hasil program yg aku buat, teksnya berjalan dari kanan ke kiri. Ntah la, semoga saja dosennya berbaik hati & gak menggagalkannya. sepertinya gak lengkap kalau gak memasukkan source code program yg aku buat tadi. So, inilah dia source codenya.

<br /><br />Setcrt Macro Mode<br />Mov AH,00<br />Mov Al, Mode<br />int 10h<br />EndM<br /><br />SetKursor macro x,y<br />Push DX<br />Mov AH, 2<br />Mov DL,X<br />Mov DH,y<br />int 10h<br />Pop DX<br />EndM<br /><br />Printchr macro char<br />Push BX<br />Push CX<br />Mov AH,9<br />Mov AL,Char<br />Mov BL,2<br />Mov CX,1<br />int 10h<br />Pop CX<br />Pop BX<br />EndM<br /><br />Delay macro<br />Local Ulang<br />Local Ulang2<br />Push CX<br />Mov CX,500<br />Ulang:<br />Push CX<br />Mov CX,0<br />Ulang2:<br />Loop Ulang2<br />Pop CX<br />Loop Ulang<br />Pop CX<br />EndM<br /><br />.Model Small<br />.Code<br />Org 100h<br /><br />data:<br />jmp Proses<br />kata DB 'Bahasa Assembly '<br /><br />Proses:<br />Setcrt BH<br />Mov BX,-1<br />Mov CX,16<br />Mov DX,1<br /><br />Ulang:<br />SetKursor DL,DH<br />inc DL<br />Printchr Kata[BX]<br />inc bx<br />loop Ulang<br />mov DL,0<br />Mov CX,16<br /><br />Ulang2:<br />Push CX<br />Push DX<br /><br />Ulang3:<br />Push DX<br />dec Dl<br />dec Dh<br />Setkursor DL,DH<br />Printchr ' '<br />Pop DX<br />Setkursor DL,DH<br />inc DL<br />inc DH<br />mov BX,CX<br />dec BX<br />printchr kata[BX]<br />delay<br />cmp DH,25<br />JL Ulang3<br />Pop DX<br />dec DL<br />Pop CX<br />Loop Ulang2<br />Mov DH,10<br />mov CX,15<br />Mov DL,23<br />Mov BX,0<br /><br />Ulang5:<br />push CX<br />push DX<br />mov CX,24<br /><br />Ulang7:<br />inc DL<br />Setkursor DL,DH<br />Printchr ' '<br />dec DL<br />Setkursor DL,DH<br />Printchr Kata[BX]<br />dec DL<br />delay<br />Loop Ulang7<br />Inc BX<br />Pop DX<br />Inc DL<br />Pop CX<br />Loop Ulang5<br />Mov CX,15<br />Mov BX,0<br />Mov DL,0<br /><br />Ulang8:<br />Push CX<br />Mov CX,24<br /><br />Ulang9:<br />Mov DH,DL<br />Setkursor DL,DH<br />Printchr ' '<br />dec DH<br />Setkursor DL,DH<br />Printchr Kata[BX]<br />delay<br />Loop Ulang9<br />inc BX<br />Pop CX<br />inc DL<br />Loop Ulang8<br />Setcrt bh<br />Int 20h<br />end data<br /><br />