А вдруг кому надо (треугольник Серпинского)

[Vladson]

Как-то от нечего делать написал такую фигнюшку, хотелось бы узнать у профессионалов, я дурак или псих ?

	ORG	#8000
	LD	DE,#4000
RAND	
	LD	HL,#0103
	LD	A,H
	ADD	L
	RLCA
	LD	H,A
	ADD	L
	RLCA
	LD	L,A
	LD	(RAND+1),HL
POS	
	LD	BC,#0000
	AND	3
	CP	1
	JR	Z,R1
	CP	2
	JR	Z,R2
	CP	3
	JR	Z,R3
	DEC	DE
	LD	A,D
	OR	E
	CP	0
	RET	Z
	JR	RAND
OK_	
	LD	(POS+1),BC
	LD	A,#BF
	SUB	B
	RET	C
	CALL	#22B0
	LD	B,A
	INC	B
	LD	A,#01
	RRCA
	DJNZ	($-1)
	LD	B,A
	LD	A,(HL)
	OR	B
	LD	(HL),A
	LD	A,#7F
	IN	A,(#FE)
	BIT	0,A
	JR	NZ,RAND
	RET
R1
	LD	A,B
	ADD	192
	RRA
	LD	B,A
	LD	A,C
	ADD	127
	RRA
	LD	C,A
	JR	OK_
R2
	SRL	B
	SRL	C
	JR	OK_
R3
	SRL	B
	LD	A,C
	ADD	255
	RRA
	LD	C,A
	JR	OK_

[Advertiser]