Sierpinski Fractal by kodera

\xcd\x03\x80\xc6\xd1Gy\x8f\x10\xfd$\x01|\x0f\xe7G_\x1cMk
\x0c\xff- \xfa>*\xff\x10\xf2v\xf5\xe5\x19_\xfe\x040\x13p#6\x7f$p,q%6\x7f,q\xe1\xf1\xc9\xee \xc3\x1fV\xe7_W\xe7\x18\xe0

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

Disassemble:

	ORG	00000H

	CALL 08003H		;0000	CD 03 80 	. . . 
	ADD A,0D1H		;0003	C6 D1 	. . 
	LD B,A			;0005	47 	G 
	LD A,C			;0006	79 	Y 
	ADC A,A			;0007	8F 	. 
	DJNZ $-1		;0008	10 FD 	. . 
	INC H			;000A	24 	$ 
	LD BC,00F7CH		;000B	01 7C 0F 	. | . 
	RST 20H			;000E	E7 	. 
	LD B,A			;000F	47 	G 
	LD E,A			;0010	5F 	_ 
	INC E			;0011	1C 	. 
	LD C,L			;0012	4D 	M 
	LD L,E			;0013	6B 	K 
	LD A,(BC)			;0014	0A 	. 
	INC C			;0015	0C 	. 
	RST 38H			;0016	FF 	. 
	DEC L			;0017	2D 	- 
	JR NZ,$-4		;0018	20 FA 	  . 
	LD A,02AH		;001A	3E 2A 	> * 
	RST 38H			;001C	FF 	. 
	DJNZ $-12		;001D	10 F2 	. . 
	HALT			;001F	76 	V 
	PUSH AF			;0020	F5 	. 
	PUSH HL			;0021	E5 	. 
	ADD HL,DE			;0022	19 	. 
	LD E,A			;0023	5F 	_ 
	CP 004H		;0024	FE 04 	. . 
	JR NC,$+21		;0026	30 13 	0 . 
	LD (HL),B			;0028	70 	P 
	INC HL			;0029	23 	# 
	LD (HL),07FH		;002A	36 7F 	6  
	INC H			;002C	24 	$ 
	LD (HL),B			;002D	70 	P 
	INC L			;002E	2C 	, 
	LD (HL),C			;002F	71 	Q 
	DEC H			;0030	25 	% 
	LD (HL),07FH		;0031	36 7F 	6  
	INC L			;0033	2C 	, 
	LD (HL),C			;0034	71 	Q 
	POP HL			;0035	E1 	. 
	POP AF			;0036	F1 	. 
	RET			;0037	C9 	. 
	XOR 020H		;0038	EE 20 	.   
	JP 0561FH		;003A	C3 1F 56 	. . V 
	RST 20H			;003D	E7 	. 
	LD E,A			;003E	5F 	_ 
	LD D,A			;003F	57 	W 
	RST 20H			;0040	E7 	. 
	JR $-30		;0041	18 E0 	. . 

download

return top