Program Rontok ke Kanan dengan bahasa 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 rontok 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 

stelah itu ketik Mount E C:\TASM .

   Setelah itu ketik E: , kemudian ketik edit dan enter 

2.      Kemudian ketikan perintah seperti perintah yang ada di gambar tersebut

   3.      Kemudian simpan program dengan extention (.asm) seperti yang ada pada contoh (rontok.asm)

   Kemudian jalankan program dengan cara berikut

Ccoing programnya :

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,45

SUB AL,PosY

MOV CL,AL 

Loop2:

MOV AL,BYTE PTR ES:[BX] 

MOV BYTE PTR ES:[BX+20],AL 

Hilang:

MOV BYTE PTR ES:[BX],' ' 

Delay 

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

Artikel ini dapat didownload Disini

Semoga Bermanfaat :)

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 :)