Генерация шрифтов

 

Вот чем я занимался вчера, пока не было интернета. Простой код для преобразования стандартного системного шрифта:

device zxspectrum128
        ORG #6000
begin
ld de,$4000
ld hl,$3d00
flp:
push de
chlp:
ld a,(hl)
rra
and $F8
ld c,a
ld a,(hl)
and $0F
or c
ld (de),a
inc hl
inc d
ld a,d
and 7
jr nz,chlp
pop de
inc e
jr nz,flp
jr $
end
display /d,end-begin
savesna "genf1.sna",begin

Выглядит неплохо, но строчные буквы мне не понравились.

device zxspectrum128

        ORG #6000

begin

ld de,$4000

ld hl,$3d00

flp:

push de

chlp:

ld a,(hl)

rra

and $F8

ld c,a

ld a,(hl)

and $0F

ld b,a;*

rra;*

or b;*

or c

ld (de),a

inc hl

inc d

ld a,d

and 7

jr nz,chlp

pop de

inc e

jr nz,flp

jr $

end

display /d,end-begin

savesna "genf2.sna",begin

Исходники.