assembly-256 warna (2)

kayaknya ga sesuai judul...
cuma bisa nampilin 16 warna ..

baru segini ilmunya, mungkin nanti kalo berhasil ... insya allah akan saya posting lagi :P
jam 12 malam nanti terakhir pengumpulan.. hmm, ya apa adanya aja...bukan ada apanya..hihi

yaa setidaknya agak slim dikit programnya..


go macro x,y
MOV AX,1300h    ; Servis 13h subfungsi 00
MOV BH,00   ; Halaman tampilan 0  
MOV DL,x  ; Posisi X
MOV DH,y   ; Posisi Y 

endm

.MODEL SMALL
.CODE
ORG 100h

TData : JMP Proses
Kal0 DB ' '

Proses:

go 0,0
MOV BL,00000000b   ; warna hitam
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 1,0
MOV BL,00011001b   ;warna biru
MOV CX,1    ; Banyaknya karakter dalam string 
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 2,0
MOV BL,00100000b  ; warna hijau
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 3,0
MOV BL,0111111b   ; biru muda
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !       

go 4,0
MOV BL,01001100b   ;merah
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 5,0
MOV BL,01010101b   ;ungu
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 6,0
MOV BL,10100000b  ;orange
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 7,0
MOV BL,10000000b  ;abu2 muda
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 8,0
MOV BL,11000000b   ;abu2 tua
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 9,0
MOV BL,01101001b   ;abu2 tua
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 10,0
MOV BL,10010000b   ;biru terang
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !       

go 11,0
MOV BL,10100000b   ;hijau terang
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !   

go 12,0
MOV BL,10110000b   ;biru muda  terang
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat ! 

go 13,0
MOV BL,01111111b   ;putih
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat ! 

go 14,0
MOV BL,11010000b   ;biru muda  terang
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat ! 

go 15,0                                                                
MOV BL,11100000b    ;orange
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !

go 16,0 
MOV BL,11110000b   ;biru muda  terang                                                         
MOV CX,1    ; Banyaknya karakter dalam string
LEA BP,Kal0 ; ES:BP alamat string
INT 10h       ; Cetak kalimat !



INT 20h        ; Selesai, kembali ke DOS
END TData



hasilnya:

 

okeh....semoga bermanfaat.