PRAKTIKUM 19

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
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,':  """   STMIK CIKARANG   """  :',13,10
DB  9,9,'+=============================+',13,10 
DB  9,9,':                              :',13,10
DB  9,9,':  1.  Teknik Informatika      :',13,10
DB  9,9,':  2.  Sistem Informasi        :',13,10
DB  9,9,':  3.  Manajemen Informatika   :',13,10
DB  9,9,':  4.  KOmputer Akuntansi      :',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
JMP Ulang
NolY:
MOV PosY,12
JMP Ulang
Selesai:
INT 20h
END TData

PRAKTIKUM 18

 

Tulis_Kar MACRO  X,Y,Kar,Attr
MOV AX,0B800h
MOV ES,AX

MOV AH,Y
MOV AL,160
MUL AH
MOV BX,AX

MOV AH,X
MOV AL,2
MUL AH
ADD BX,AX

MOV AL,Kar
MOV AH,Attr
MOV ES:[BX],AL
MOV ES:[BX+1],AH
ENDM

.MODEL SMALL
.CODE
ORG 100h
Proses:
Tulis_Kar 40 12 '1' 95
Tulis_Kar 41 12 '2' 95
Tulis_Kar 42 12 '4' 95
Tulis_Kar 43 12 '2' 95
Tulis_Kar 44 12 '9' 95
Tulis_Kar 45 12 '0' 95
Tulis_Kar 46 12 '2' 95
Tulis_Kar 47 12 '4' 95
INT 20h
END Proses

TUGAS PRAKTIKUM XII

PRAKTIKUM XII
.MODEL SMALL (Menunjukan bentuk memory yang digunakan dalam program )
.CODE (Menunjukan code segmennya) ORG 100H (Menunjukan program yang dijalankan akan disimpan pada offset 100h)
TData: JMP proses (Lompat ke proses) Kal DB 'LANG LING LUNG  $' (Karakter DB LANG LING LUNG dengan karakter $ sebagai tanda akhir tulisan)
Ganti DB 13,10,'$'(Menunjukan ganti baris)
Stacks DW  ? (Menunjukan akan dilakukan stack)
Proses:
LEA DX , Kal (Ambil alamat offset Kal) PUSH DX (Menyimpan nilai register DX pada stack)
Mov AH,09 (Memindahkan nilai data 09 ke register AH)
INT 21h (Mencetak Karakter)
LEA DX , Ganti (Ambil alamat offset Ganti)
INT 21h (Mencetak karakter )
POP DX (Ambil nilai pada puncak stack dan masukkan ke DX)
INT 21h (Mencetak karakter)
Exit:  INT 20h (Selesai kembali ke DOS ) End TData