Mencetak Huruf Rontok
ke Bawah dan Keatas
Buka
Program Dosbox karna jika di jalankan di CMD printah rontok tidak akan
berjalan, Jika belum memiliki dosbox silahkan klik DOWNLOAD
untuk tasmnya klik DOWNLOAD untuk program tasm ekstrak tasmnya letakan di dalam program assembly misal D: /1CA/ASM/ekstrak tasmnya
Jalankan DOSBox Ketikan printah
a. mount
d d:\1ca\asm
b. d:
Untuk melakukan pemrograman atau yang kita sebut coding, ketikan perintah pada CMD
a. cd \
a. cd \
b. d:
c. cd
1ca/asm
d. edit
atau
bisa dilihan di bawah ini :
Maka
akan muncul program assembly, seperti gambar di bawah ini :
Berikut kode program huruf rontoknya
delay macro
push cx
xor cx,cx
loop1 :
loop loop1
pop cx
endm
Geser macro PosY
push ax
push bx
push cx
xor cx,cx
mov al,26
sub al,PosY
mov cl,al
loop2 :
mov al,byte ptr es:[bx]
mov byte ptr es:[bx+160],al
hilang :
mov byte ptr es:[bx],' '
delay
add bx,160
loop loop2
pop cx
pop bx
pop ax
endm
.model small
.code
org 100h
Tdata : JMP Proses
PosY DB ?
Proses :
mov ax,0B800h
mov es,ax
mov bx,3998
mov cx,25
ulangY :
mov PosY,cl
push cx
mov cx,80
ulangX :
cmp byte ptr es:[bx],33
jb Tdk
Geser PosY
Tdk :
sub bx,2
loop ulangX
pop cx
loop ulangY
exit :
int 20h
end Tdata
Sesudah
memasukan kode program atau coding, save as file nya dengan format (.ASM)
Buka
DOSBOX untuk menguji program yang telah kita buat tadi, dengan mengetikan
perintah :
a. TASM
(nama file) cth : TASM RONTOK.ASM -> untuk melihat apakah program yg kita
buat ada yang error dll.
b. tlink/t
RONTOK-> untuk membuat file objek ke bentuk file yang dapat di eksekusi
(EKTENSI .COM .EXE)
c. kemudian
untuk melihat karakter yang telah kira buat tinggal mengetikan nama file yang
kita buat tadi contoh (RONTOK) enter,
maka akan tampil karakter yg kita buat.
Seperti
di bawah ini :
Jika
Ingin Mencetak Hurup Rontok Ke atas rubah kode program yang sudah saya tebalkan.
delay macro
push cx
xor cx,cx
loop1 :
loop loop1
pop cx
endm
Geser macro PosY
push ax
push bx
push cx
xor cx,cx
mov al,48
sub al,PosY
mov cl,al
loop2 :
mov al,byte ptr es:[bx]
mov byte ptr es:[bx-160],al
hilang :
mov byte ptr es:[bx],' '
delay
sub bx,160
loop loop2
pop cx
pop bx
pop ax
endm
.model small
.code
org 100h
Tdata : JMP Proses
PosY DB ?
Proses :
mov ax,0B800h
mov es,ax
mov bx,3998
mov cx,25
ulangY :
mov PosY,cl
push cx
mov cx,80
ulangX :
cmp byte ptr es:[bx],33
jb Tdk
Geser PosY
Tdk :
sub bx,2
loop ulangX
pop cx
loop ulangY
exit :
int 20h
end Tdata
push cx
xor cx,cx
loop1 :
loop loop1
pop cx
endm
Geser macro PosY
push ax
push bx
push cx
xor cx,cx
mov al,48
sub al,PosY
mov cl,al
loop2 :
mov al,byte ptr es:[bx]
mov byte ptr es:[bx-160],al
hilang :
mov byte ptr es:[bx],' '
delay
sub bx,160
loop loop2
pop cx
pop bx
pop ax
endm
.model small
.code
org 100h
Tdata : JMP Proses
PosY DB ?
Proses :
mov ax,0B800h
mov es,ax
mov bx,3998
mov cx,25
ulangY :
mov PosY,cl
push cx
mov cx,80
ulangX :
cmp byte ptr es:[bx],33
jb Tdk
Geser PosY
Tdk :
sub bx,2
loop ulangX
pop cx
loop ulangY
exit :
int 20h
end Tdata
Simpan
program seperti cara yg sebelumnya
Buka
DOSBOX untuk menguji program yang telah kita buat tadi, dengan mengetikan
perintah :
a. TASM
(nama file) cth : TASM RONTOK.ASM -> untuk melihat apakah program yg kita
buat ada yang error dll.
b. tlink/t
RONTOK-> untuk membuat file objek ke bentuk file yang dapat di eksekusi
(EKTENSI .COM .EXE)
c. kemudian
untuk melihat karakter yang telah kira buat tinggal mengetikan nama file yang
kita buat tadi contoh (RONTOK) enter,
maka akan tampil karakter yg kita buat.
Seperti
di bawah ini :
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon