rendered paste body 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