RLE сжатие (покритикуйте)
Собственно сжатие картинки и разжатие
(причём разжатие занимает всего 20 байт)
Код:
ORG 7E00H
LD HL,4000H
LD DE,8000H
L4 LD B,00H
LD C,(HL)
L3 INC HL
LD A,H
CP 5BH
JR Z,L5
INC B
LD A,FFH
CP B
JR Z,L6
LD A,(HL)
CP C
JR Z,L3
L6 LD A,B
LD (DE),A
INC DE
LD A,C
LD (DE),A
INC DE
JR L4
L5 LD A,0
LD (DE),A
RET
Код:
ORG 7F00H
LD HL,8000H
LD DE,4000H
L2 LD A,(HL)
CP 0
RET Z
LD B,A
INC HL
LD A,(HL)
INC HL
L1 LD (DE),A
INC DE
DJNZ L1
JR L2
Собственно критики хочется, мало ли у кого есть советы...