; Shows all colors in 256-color mode.

Ideal
Model Tiny
CodeSeg
P186
Org 100h

Proc        Prog

            mov ax,13h
            int 10h
            push 0A000h
            pop es
            xor ah,ah
            xor di,di
            mov si,8
TLineLoop:  mov bx,25
LineLoop:   mov al,ah
            mov dx,32
BlkLoop:    mov cx,10
            rep stosb
            inc al
            dec dx
            jnz BlkLoop
            dec bx
            jnz LineLoop
            add ah,32
            dec si
            jnz TLineLoop
            xor ah,ah
            int 16h
            mov ax,3
            int 10h
            ret

EndP        Prog

End Prog

