RLE сжатие (покритикуйте)

[Vladson]

Собственно сжатие картинки и разжатие
(причём разжатие занимает всего 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

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

[Advertiser]