kali ini saya akan menjelaskan cara membuat prongram rontok, maksud saya disini adalah semua tulisan rontok seperti daun daun berjatuhan. kali ini saya memakai dosdox untuk membuat program
pertama-tama kita mesti memiliki dosbox nya terlebih dahulu klik disini
jika telah memiliki buka bosbox mu
setelah itu ketikan penrintah berikut:
- mount e c:\tasm (enter)
- e: (enter)
- edit (enter)
setelah ketikan terakhir edit (enter) maka akan muncul tampilan seperti 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,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
atau anda bisa perhatikan gambar di bawah ini
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
atau anda bisa perhatikan gambar di bawah ini
jika telah selesai menbuat program nya simpan lah , kalau saya menyimpannya dengan nama rontok5.asm, setelah itu ketikan perintah berikut
- tasm nama file: tasm rontok5 (enter)
- tlink/t nama file: tlink/t rontok5 (enter)
- nama file: rontok5 (enter)
sekian lah dari saya semoga postingan dari saya ini bisa di pahami anda bisa mengambil program yang saya buat ini silahkan klik link download di bawah ini
0 komentar:
Post a Comment