Pustaka Macro

;program makro

               include jmlkrg.mcr

               include tego.mcr

               .model small

               .code

               org 100h

        Tdata : jmp proses

                       kal1 db 10,13,'Cetak kalimat macro$'

                   kal2 db 10,13,'$'

                       A dw 8

                       kal3 db 10,13,'jumlah 4+2=$'

                   kal4 db 10,13,'kurang 4-2=$'

        proses : cetak_klm kal1

                        cetak_klm kal2

                        cetak_kar 'U'

                        cetak_ank A

                        cetak_jumlah kal3

                        cetak_kurang kal4

                        int 20h

        end Tdata

; pustaka macro cetak karakter, kalimat dan angka

cetak_kar macro kar

                 mov ah,02

                 mov dl,kar

                 int 21h

                 endm

cetak_klm macro klm

                 lea dx,klm

                 mov ah,09

                 int 21h