TIP-TIP TAMBAHAN MAKRO

Menyimpan Makro dalam File Include. Setelah membuat kumpulan makro, akan menjadi tidak baik kalau harus menyalin semuanya pada setiap program baru. Terdapat cara lebih baik, dengan membuat file yang berisi makro dan dengan menggunakan perintah INCLUDE untuk menyalinnya pada waktu assembly. Hanya makro yang digunakan yang menjadi bagan dari program akhir. Jika kita menggunakan two-pass assembler seperti Microsof Assembler, akan lebih baik untuk menyimpan perintah INCLUDE dalam lingkungan pengecekan kondisi IF1, yang memerintah assembler untuk melibatkan makro hanya pada saat pertama kali:

if1
include lib1.mac
endift
Berikut contoh file makro yang dapat digunakan pada aplikasi yang memerlukan salah satu makro yang ada didalamnya:
; Macro.Inc
; File ini harus di-include pada setiap program sumber yang memerlukan. Program juga harus di-link ke CONSOLE.LIB

call_WritInt locate
cCall mDisplay
cmpj mMove
display_at mshl
exit mult
getYN putchar
inputInt repeat
inputStr startup
jx_ write
1Loop
Extern ReadInt : proc, ReadString : proc
; menulis integer ke konsol
call_WriteInt macro value, radix
push ax
push bx
mov ax, value
mov bx, value
call writeint
pop bx
pop ax
endm
; pemanggilan prosedur kondisional
cCall macro cond, procname
local L1, L2
j&cond L1
jmp L2
L1 : call procname
L2 : exitm
endm

; membandingkan dua operand dan loncat ke
; berdasarkan flag

cmpj macro dest, flag, source, label
cmp dest, source
j&flag label
endm
; menampilkan string pada baris, kolom dalam konsol
display_at macro row, col, string
locate row, col
mDisplay string
endm

; keluar ke Dos dan mengembalikan kode
exitm macro ecode
mov ah, 4Ch
mov al, ecode
int 21h
endm

; mengambil respons Y/N (y/n). Argument harus huruf kapital yang akan
menset ZF
GetYN macro prompt, exact
write prompt
mov ah, 1
int 21h
sub al, 32
cmp al, exact
endm

; menampilkan prompt huruf pada , dan meng-input integer dan menyimpannya pada
inputInt macro row, col, prompt, dest
locate row, col
write prompt
call ReadInt
mov dest, ax
endm

; menampilkan prompt huruf pada , . Kemudian, memasukkan string ASCIIZ dan menyimpannya ke . Maksimum karakter =
inputStr macro row, col, prompt, dest, max
locate row, col
write prompt
push cx
push dx
mov dx, pffset dest
mov cx, max
call ReadString
pop dx
pop cx
endm

; jump eXtented (JX_) ; loncat kondisional ke label NEAR (di mana saja dalam segmen)

irp cond,
jxe&cond macro dest
local L1, L2
j&cond L1
jmp short L2
L1 : jmp dest
L2 :
endm
endm

; Loop ke label NEAR (dimana saja dalam segmen)
1Loop macro dest
local A1, A2
loop A1
jmp A2
A1 : jmp dest
A2 :
endm


; meletakkan kursor pada , pada video halaman 0.
locate macro ro, column
push ax
push bx
push dx
mov bx, 0
mov ah, 2
mov dh, row
mov dl, column
int 10h
pop dx
pop bx
pop ax
endm

; menampilkan $-terminated string
mDisplay macro string
push ax
push dx
push ah, 9
mov dx, offset string
int 21h
pop dx
endm

; memindahkan word atau byte dari memori ke memori
mmove macro dest, source
push ax
if (type dest) EQ 1
mov al, source
mov dest, al
else
if (type dest) EQ 2
mov ax, source
mov dest, ax
endif
endif
pop ax
endm

; menggeser ke kiri, kali dengan melakukan instruksi penggeseran tunggal
mshl macro dest, count
rept count
shl dest, 1
endm
endm
; mengalikan dua operand
mult macro dest, source
push ax
push bx
mov ax, dest
mov bx, source
mul bx
mov dest, ax
pop bx
pop ax
endm
; mengeluluarkan karakter ke konsol
putchar macro char
mov ah, 2
mov dl, char
int 21h
endm
; mengeluarkan karakter kali
repeat macro char, count
local L1
mov cx, count
L1 : mov ah, 2
mov dl, char
int 21h
loop L1
endm

; set DS dan ES ke segmen data. Menyimpan alamat segmen PSP dalam variable
startup macro pspSeg
push ds
mov ax, @data
mov ds, ax
mov es, ax
pop pspSeg
endm

; makro WRITE menulis huruf ke output standar. adalah string yang berada antara tanda kutip. Jika tidak kosong, mengindikasikan bahwa carriage return ditampilkan.
write macro text, creturn
local string, crlf
push ax
push dx
mov ah, 9
int 21h

infb
mov dx, offset crlf
int 21h
endif
pop dx
pop ax
.data
string db text, ‘$’
crlf db 0Dh, 0Ah, ‘$’
.code
endm

; makro berikut menghasilkan delapan makro, yang bernama MSHL, MSHR, MSAR, MROL, MROR, MRCL, dan MRCR.
irp styp,
m&styp macro dest, count
rept count
&styp dest, 1
endm
endm
endm