adei heriyanto: LATIHAN XIX

SLAMAT MALAM ......
wadduuuhhh waduuuhhh mudah"n belum telat ...
gini nie klo koneksi lambat bikin ngantuk dan akhirnya ketiduran ...
y langsung aja kita sekarang mw posting hasil dari latihan XIX ..
nah ini dy koding'a

cls macro
    mov ax,0600h
    xor cx,cx
    mov dx,184fh
    mov bh,10
    int 10h
endm

gotoxy macro x,y
    mov ah,02
    xor bx,bx
    mov dh,y
    mov dl,x
    int 10h
endm

simpanL macro
    local ulang
    mov ax,0b800h
    mov es,ax
    mov cx,4000
    xor bx,bx
    ulang :
    mov al,es :[bx]
    mov layar [bx],al
    inc bx
    loop ulang
endm

balikl macro
local ulang
mov cx,4000
xor bx,bx
ulang :
mov al, layar [bx]
mov es :[bx],al
inc bx
loop ulang
endm

sorot macro x,y
    local ulang
    mov bl,y
    mov al,160
    mul bl
    mov bx, ax
    mov al,x
    mov ah,2
    add bx,ax
    inc bx
    mov cx,25
    ulang:
    mov byte ptr es :[bx],4fh
    add bx,2
    loop ulang
endm
readkey macro
    mov ah, 00
    int 16h
endm
menuL macro string
    mov ah,09
    lea dx,string
    int 21h
endm

.model small
.code
org 100h
tdata: jmp proses
Layar DB 4000 DUP (?)
menu db 9,4, '+=======================+',13,10,07
db 9,4, '|_____ADEI HERIYANTO____|',13,10,07
db 9,4, '|        (11429003)           |',13,10,07
db 9,4, '|         SEMESTER V        |',13,10,07
db 9,4, '|    TEKNIK INFORMATIKA   |',13,10,07
db 9,4, '|        STMIK CIKARANG   |',13,10,07
db 9,4, '+=======================+$'
posx db 22
posy db 12
panah_atas equ 72
panah_bawah equ 80
tenter equ 0dh
proses:
menul menu
simpanl
ulang:
balikl
sorot posx,posy
masukan:
readkey
cmp ah,panah_bawah
je bawah
cmp ah,panah_atas
je ceky
cmp al,tenter
jne masukan

ceky:
cmp posy,12
je maxy
dec posy
jmp ulang
maxy:
mov posy,15
jmp ulang
bawah:
cmp posy,15
je noly
inc posy
jmp ulang
noly:
mov posy,12
jmp ulang
int 20h
end tdata

nah itu kodingannya...

dan ini hasil outputnya