Цвет настроения - красный

 Не помню, с чего все началось, но года два назад я выложил на pouet.net программу, которая за 14 байт превращает экран в красный цвет:

; to compile: pasmo --tapbas red.asm red.tap label.txt huj.txt --listing
 org #9012
start
ld a,c;18
OUT ($FE), A
LD ($5C8D),A
ld ($5C48),A
CALL $0D6B
jr $
END start

За прошедшее время многое поменялось, поэтому вышло короче, 7 байт:

; to compile: pasmo --tapbas red.asm red.tap label.txt huj.txt --listing
 org #9012
start
ld a,c;18
OUT ($FE), A
X: ld (hl),c
inc hl
jr X
END start

Но это не предел, был выложен другой вариант(5 байт):

ORG #9212

start
begin: out (#70),a
x: EQU $-1
inc hl
jr x
END start

Забыл сказать, что HellMood предложил вариант для MS-Dos(6 байт)

org 100h
use16
X: les cx,[si]
inc sp
stosb
jmp short X+1

Эту версию усовершенствовали:

org 100h
use16
PUSH SI
LES AX,[SI]
STOSW
RET

Все версии, для компиляции понадобятся ассемблеры FlatAssembler или Pasmo.