És ez a 2 színű:
PutPixel:
.y: equ $ + 1
ld hl, 0
xor a
srl h
rr l
rra
srl h
rr l
rra
ld h, l
ld l, a
.x: equ $ + 1
ld de, 0
ld a,01h
srl e
rla
srl e
rla
srl e
rla
srl e
rla
ld c,a
ld b, high pixelmask
ld a,(bc)
add hl, de
set 7, h
ld c, a
cpl
ld b, a
.color: equ $ + 1
ld a, 0 ;szín érték vagy 00h, vagy 0ffh
and c
ld c, a
ld a, (hl)
and b
or c
ld (hl), a
ret
defs low -$
pixelmask
db 80h,40h,20h,10h,08h,04h,02h,01h