---

mov ax, 0
    mov bx, 0
    mov cx, 0
    mov dx, 0
    mov si, 64

    mov di, 0f600h

    in ax, 2



jb  width

width:
    mov dx, ax

jmp a

A:
    mov ax, dx
    sub si, ax

    in ax, 3


jb  length

length:
    mov al, al

jmp b
b:
    mov [01h], al

    mov cx, 134
    mov ah, 0
    rep
stosw
jmp S

red:
    mov cx, si
    mov ah, 0
    rep
stosw

S:
    mov cx, dx
    mov ah, 64
    mov al, 32
    rep
stosw

    mov al, [01h]
inc bl
cmp bl, al
jl  red

    mov bl, 0

blue:
    mov cx, si
    mov ah, 0
    rep
stosw

    mov cx, dx
    mov ah, 16
    mov al, 32
    rep
stosw

    mov al, [01h]
inc bl
cmp bl, al
jl  blue
    mov bl, 0

yellow:
    mov cx, si
    mov ah, 0
    rep
stosw

    mov cx, dx
    mov ah, 96
    mov al, 32
    rep
stosw

    mov al, [01h]
inc bl
cmp bl, al
jl  yellow

mov bl, 0

hlt