MODUL 2 MENCETAK KALIMAT DALAM MONITOR

2.1 Mencetak Kalimat dengan Fungsi DOS

Listing Program:

.model small

.code

org 100h

Tdata:

JMP     Proses

Kal0    DB 'LABORATORIUM FISIKA KOMPUTASI'

DB 13,10,'$'

Kal1    DB 'THE BEST'

DB 13,10,'$'

Kal2    DB 'YANG LAIN'

DB 13,10,'NOTHING','$'

Proses:

mov ah,09h                             ; nilai servis

mov dx,offset Kal0                 ; ambil alamat offset

int 21h                                     ; cetak karakter sampai tanda $

lea dx,Kal1                              ; ambil alamat offset Kal1

mov dx,offset Kal1                 ; ambil alamat offset

int 21h                                     ; cetak karakter sampai tanda $

lea dx,Kal2                              ; ambil alamat offset Kal2

int 21h                                     ; cetak karakter sampai tanda $

int 20h                                     ; selesai, kembali ke DOS

end      Tdata

2.2   Mencetak Kalimat dengan Atributnya

Listing Program:

model small

.code

org 100h

Tdata:

JMP     Proses

Kal0    DB 'LABORATORIUM FISIKA KOMPUTASI'

DB 13,10,'$'

Kal1    DB 'THE BEST'

DB 13,10,'$'

Kal2    DB 'YANG LAIN'

DB 13,10,'$'

            Kal3    DB 'NOTHING' 

                        DB 13,10,'$'

Proses:

mov ax,1300h             ; nilai servis 13h subfungsi 00

mov bl,01010010b                  ; atribut tulisan

mov bh,00                               ; halaman tampilan 0

mov dl,5                                  ; posisi X

mov dh,3                                 ; posisi Y

mov cx,29                               ; banyaknya karakter dalam string

lea bp,kal0                               ; ES:BP alamat string

int 10h                                     ; cetak kalimat

mov dl,15                                ; posisi X                    

mov dh,5                                 ; posisi Y                    

mov cx,8                                 ; banyaknya karakter dalam string                 

lea bp,Kal1                              ; ES:BP alamat string             

int 10h                                     ; cetak kalimat

mov dl,14                                ; posisi X                    

mov dh,7                                 ; posisi Y                    

mov cx,10                               ; banyaknya karakter dalam string                 

lea bp,Kal2                              ; ES:BP alamat string             

int 10h                                     ; cetak kalimat

mov dl,15                                ; posisi X                    

mov dh,9                                 ; posisi Y                    

mov cx,7                                 ; banyaknya karakter dalam string                 

lea bp,Kal3                              ; ES:BP alamat string             

int 10h                                     ; cetak kalimat

int 20h                                     ; selesai, kembali ke DOS

end      Tdata