program rontok ke bawah pada assembly

Assalamua'laikum wr.wb

baiklah kali ini saya akan menshare program rontok ke bawah pada assembly , rontok disini yaitu tulisan-tulisan pada program ini setelah dieksekusi akan ronrok ke bawah satu persatu . baiklah langsung saja ikuti langkah-langkah nya berikut ini :

  LANGKAI_LANGKAH Kerjanya sebagai berikut:
1. Jalankan DOSBox 0.74 dengan mengklik menu start dibawah dekstop / dengan klik tombol windows pada keyboard + R
 setelah dklik maka akan muncul seperti pada gambar berikut 


2. Kedua, buat program rontoknya. Ketikkan kode seperti di bawah ini.

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

Save Program ini dengan format .asm contoh, : Rontok.asm

3. Jalankan program dosbox bila sudah di simpan,ikuti langkah berikut ini

-mount f f:\ : tempat lokasi partisi kita menyimpan file program assembly
-f:\>cd 1ca\asm : tempat kita menyimpan file assembly di partisi 
-jika anda menyimpan file assembly di d , maka masukan perintah pertama ke dosbox : mount d d:\

kemudian tasm dan tlink/t programnya jika tidak ada errornya atau kesalahan dapat dijalankan programnya seperti di bawah ini

4.bila dijalankan maka huruf yang ada pada dosbox rontok kebawah seperti gambar dibawah ini :
 

download file ini disini.
Sekian dulu penjelasan postingan kali ini :)
Tunggu terus ya postingan selanjutnya :) Semoga bermanfaat :) jangan lupa untuk memberikan + pada materi ini dan blognya :)
Jazzakumullah khoiron katsiron , nun walqolami wama yasturun , Wassalamua’laikum wr.wb :)



No comments:

Post a Comment