TUGAS ASSEMBLER 3 PRAK18

tulis_Kar MACRO X,Y,Kar,Attr

MOV AX,0B800h

MOV ES,AX ; ES Menunjuk pada segment layar

MOV AH,Y

MOV AL,160

MUL AH ; Hitung offset baris

MOV BX,AX ; Simpan hasilnya pada BX

MOV AH,X

MOV AL,2

MUL AH ; Hitung offset kolom

ADD BX,AX ; Tambahkan hasilnya pada BX

MOV AL,Kar ; AL=karakter yang akan ditampilkan

MOV AH,Attr ; AH=Atribut yang akan ditampilkan

MOV ES:[BX],AL ; Tampilkan Karakter dan atributnya

MOV ES:[BX+1],AH ; pada posisi kolom X dan baris Y

ENDM

;/===============================================\;

; Program : LAYAR1.ASM ;

; Author : S’to ;

; ;

; Fungsi : Menampilkan karakter dan atributnya ;

; dengan menuliskannya langsung pada ;

; memory layar ;

;\===============================================/;

.MODEL SMALL

.CODE

ORG 100h

Proses :

Tulis_Kar 40 12 'D' 95

Tulis_Kar 41 12 'I' 95

Tulis_Kar 42 12 'R' 95

Tulis_Kar 43 12 'M' 95

Tulis_Kar 44 12 'A' 95

Tulis_Kar 45 12 'N' 95

Tulis_Kar 46 12 ' ' 95

Tulis_kar 47 12 '1' 95

Tulis_Kar 48 12 '2' 95

Tulis_Kar 49 12 '4' 95

Tulis_Kar 50 12 '2' 95

Tulis_Kar 51 12 '9' 95

Tulis_Kar 52 12 '0' 95

Tulis_Kar 53 12 '4' 95

Tulis_Kar 54 12 '6' 95

; Tulis karakter 'S' dengan

; no atribut 95 pada posisi

INT 20h ; kolom 40 dan baris 12

END Proses

HASIL PROSES RUN