praktek19

cls MACRO

MOV ax,0600h

XOR cx,cx

MOV dx,184Fh

MOV bh,10

INT 10h

ENDM

goto XY 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

MUL ah

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,9,'+=======================================+',13,10

db 9,9,': """ FAKULTAS Di STMIK CIKARANG """ :',13,10

db 9,9,': :',13,10

db 9,9,': TEKNIK INFORMATIKA [S1] :',13,10

db 9,9,': SISTEM INFORMATIKA [S1] :',13,10

db 9,9,': MANAJEMEN INFORMATIKA [D3] :',13,10

db 9,9,': AKUNTANSI KOMPUTER [D3] :',13,10

db 9,9,': :',13,10

db 9,9,'+==========================================+$'

posX db 22

posY db 12

Panah_Atas EQU 72

Panah_Bawah EQU 80

TEnter EQU 0Dh

proses:

cls

gotoXY 0 8

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

JMP selesai

cekY:

CMP PosY,12

JE MaxY

DEC PosY

JMP ulang

maxY:

MOV PosY,15

JMP ulang

Bawah :

CMP PosY,15

JE NolY

INC PosY,12

JMP ulang

NolY:

MOV PosY,12

JMP ulang

selesai:

INT 20h

end Tdata