Belajar Logika dan Pemrograman

Readkey MACRO ; Fungsi untuk pembentukan Titik
mov ah,00
int 16h
endm

SetCRT MACRO Mode ; pemanggilan untuk fungsi Mode Grafiknya
mov ah,00
mov al,Mode
int 10h
endm

PutPixel MACRO X,Y,Warna
push ax
push bx
push cx
push dx
mov ah,12
mov cx,x
mov dx,y
mov al,warna
int 10h
pop dx
pop cx
pop bx
pop ax
endm

delay macro
local ulang
local ulang2
push cx
mov cx,50
ulang :
push cx
mov cx,0
ulang2 :
loop ulang2
pop cx
loop ulang
pop cx
endm


GarisKiri MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
sub dx,ax
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


GarisKanan MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add dx,ax
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm

aksidatar MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov cx,panjang
ulang :
PutPixel bx,y1,warna
delay
add bx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm

aksi3 MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add bx,ax
add bx,ax
add bx,ax
add dx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


aksi5 MACRO x1,y1,panjang,co,warna
local ulang
push ax
push cx
push dx
push bx
mov ax,co
mov bx,x1
mov dx,y1
mov cx,panjang
ulang :
PutPixel bx,dx,warna
delay
add bx,ax
add bx,ax
add bx,ax
sub dx,ax
loop ulang
pop cx
pop dx
pop bx
pop ax
endm


Bintang MACRO klm,brs,panjang,warna
gariskiri klm,brs,panjang,1,warna
gariskanan klm+panjang,brs-panjang,panjang,1,warna
gariskiri klm+panjang*2,brs,panjang,1,warna-2
gariskanan klm+panjang*3,brs-panjang,panjang,1,warna-2
gariskiri klm+panjang*4,brs,panjang,1,warna-3
gariskanan klm+panjang*5,brs-panjang,panjang,1,warna-3

gariskiri klm+panjang*6,brs,panjang,-1,warna-3
gariskanan klm+panjang*5,brs+panjang,panjang,-1,warna-3
gariskiri klm+panjang*4,brs,panjang,-1,warna-2
gariskanan klm+panjang*3,brs+panjang,panjang,-1,warna-2
gariskiri klm+panjang*2,brs,panjang,-1,warna
gariskanan klm+panjang,brs+panjang,panjang,-1,warna

aksi5 klm,brs,panjang*2/3,1,warna
aksidatar klm+panjang*2,brs-panjang*2/3,panjang*2,-1,warna
aksi3 klm,brs-panjang*2/3,panjang*2/3,1,warna
aksi5 klm+panjang*2,brs,panjang*2/3,1,warna-2
aksidatar klm+panjang*4,brs-panjang*2/3,panjang*2-2,-1,warna-2
aksi3 klm+panjang*2,brs-panjang*2/3,panjang*2/3,1,warna-2
aksi5 klm+panjang*4,brs,panjang*2/3,1,warna-3
aksidatar klm+panjang*6,brs-panjang*2/3,panjang*2-2,-1,warna-3
aksi3 klm+panjang*4,brs-panjang*2/3,panjang*2/3,1,warna-3

aksi5 klm+panjang*6,brs,panjang*2/3,-1,warna-3
aksidatar klm+panjang*4,brs+panjang*2/3,panjang*2-2,1,warna-3
aksi3 klm+panjang*6-2,brs+panjang*2/3,panjang*2/3,-1,warna-3
aksi5 klm+panjang*4,brs,panjang*2/3,-1,warna-2
aksidatar klm+panjang*2,brs+panjang*2/3,panjang*2-2,1,warna-2
aksi3 klm+panjang*4-2,brs+panjang*2/3,panjang*2/3,-1,warna-2
aksi5 klm+panjang*2,brs,panjang*2/3,-1,warna
aksidatar klm,brs+panjang*2/3,panjang*2-2,1,warna
aksi3 klm+panjang*2-2,brs+panjang*2/3,panjang*2/3,-1,warna

endm


.Model small
.code
org 100h

proses :
SetCRT 13h ;PENGEMBALIAN MODE GRAFIKNYA
bintang 50,60,30,10
;bintang 19,150,70,10
Readkey
SetCRT 03h
int 20h
end proses