org 100h

        section .text

        mov al,13h
        int 10h

        mov al,1h
        mov dx,3c8h
        out dx,al
        mov cx,63

        inc dx
        mov ah,63

palet:  mov al,0h
        out dx,al
        out dx,al
        dec ah
        mov al,ah
        out dx,al
        loop palet

        mov cx,63
        mov ah,0

palet1: mov al,0h
        out dx,al
        out dx,al
        inc ah
        mov al,ah
        out dx,al
        loop palet1

        mov cx,63
        mov ah,63

palet2: mov al,0h
        out dx,al
        out dx,al
        dec ah
        mov al,ah
        out dx,al
        loop palet2

        mov cx,63
        mov ah,0

palet3: mov al,0h
        out dx,al
        out dx,al
        inc ah
        mov al,ah
        out dx,al
        loop palet3

        mov cx,255

loop: mov ax,255
        sub ax,cx
        add ax,27
        mov bx,100
        call drw
        loop loop

        mov ah,08h
        int 21h
        mov al,03h
        mov ah,00h
        int 10h
        mov ah,00h
        int 21h

drw: mov dx,bx
        shl dx,8h
        shl bx,6h
        add bx,dx               
        add bx,ax

        push ds
        mov ax,0xA000
        mov ds,ax
        mov [bx],cl
        pop ds

        ret