изврат над шрифтом ZX

 Раскопал этот набросок в исходниках, вышло нечто:

org $8000
MAIN
 ld hl,$3D00
 ld de,$4000
flp
 push de
 ld b,8
fl2 ld a,(hl)
 and $F0
 rra
 ld c,a
 ld a,(hl)
 and $0F
 add a,a
 or c
  ld (de),a
 inc hl
 inc d
djnz fl2
 pop de
 inc e
 jp p,flp
ret

А хорошо бы извратиться до конца и сжать размер до 4 точек в ширину, но пока не выходит.