§ Псевдо

        org     100h
        mov     ax, 0013h
        int     10h

        ; Видеоадрес
        mov     ax, $A000
        mov     es, ax

        ; Палитра
        mov     dx, $3C8
        xor     ax, ax
        out     dx, al
        inc     dx
        mov     cx, 256
@@:     out     dx, al
        out     dx, al
        mov     ah, al
        mov     al, $3F
        out     dx, al
        mov     al, ah
        inc     al
        loop    @b

        ; Заполнить экран мусором
        xor     di, di
        mov     cx, 32000
@@:     mul     bx
        add     ax, cx
        add     bx, ax
        add     ax, dx
        stosw
        loop    @b

        ; Wait.. oh.. shi...
        xor     ax, ax
        int     16h
        ret