Membuat Program Rontok Kekanan

Nama : Putri Rizki Amalia

Kelas : 1 CB

NIM : 061430700546

Mata Kuliah : Praktek Bahasa Rakitan

Saya akan memposting "Membuat Program Rontok ke Kanan" Masih dalam program DOSbox 0,74. 

Proses Kerjanya sebagai berikut:

1. Jalankan DOSBox 0.74 dan 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

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