MODUL 5 PROGRAM OPERASI PADA LAYAR

5.1 Program Menuliskan Langsung Pada Memori Layar

Listing Program:

.model small

.code

org 100h

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

proses:

Tulis_Kar 40 12 'S' 95

int 20h

end proses

5.2 Program Untuk Membuat Nama Pada Memori Layar

Listing Program:

.model small

.code

org 100h

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

proses:

Tulis_Kar 00 00 'J' 95

Tulis_Kar 01 00 'o' 95

Tulis_Kar 02 00 's' 95

Tulis_Kar 03 00 'a' 95

Tulis_Kar 04 00 'p' 95

Tulis_Kar 05 00 'a' 95

Tulis_Kar 06 00 't' 95

Tulis_Kar 07 00 ' ' 95

Tulis_Kar 08 00 'S' 95

Tulis_Kar 09 00 'i' 95

Tulis_Kar 10 00 'm' 95

Tulis_Kar 11 00 'a' 95

Tulis_Kar 12 00 'n' 95

Tulis_Kar 13 00 'g' 95

Tulis_Kar 14 00 'u' 95

Tulis_Kar 15 00 'n' 95

Tulis_Kar 16 00 's' 95

Tulis_Kar 17 00 'o' 95

Tulis_Kar 18 00 'n' 95

Tulis_Kar 19 00 'g' 95

int 20h

end proses