Minggu, 06 Juli 2008

Assembly Loop Segitiga

Hai temen2 yg lagi kebingungan ngerjain tugas segitiga assembly.. Padahal udah mutar otak tapi ga dapet2 juga jawabannya.. Kasean d..^^
Nih coba aja listing program di bawah ini yang 100% buatan qu..
klo diikutin smua, dijamin 99,99% ga bakalan.. Coba aja klo ga Percaya!!
Let's we Try It!^^



include bantu.mac

.model small
.code
org 100h

var: jmp mulai
kolom db 0
baris db 0

mulai: clrscr
;huruf a kanan menurun
mov kolom,20
mov baris,10
mov cx,5

putar: gotoxy kolom,baris
writec 'a',0ah
inc kolom
inc baris
loop putar


;huruf a kiri menurun
mov kolom,19
mov baris,11
mov cx,4

putar1: gotoxy kolom,baris
writec 97,0ah
dec kolom
inc baris
loop putar1


;huruf a mendatar
mov kolom,17
mov baris,14
mov cx,7

putar2: gotoxy kolom,baris
writec 'a',0ah
inc kolom
loop putar2


int 20h
end var

Tidak ada komentar: