The Golden Ratio by *yuko*

.\xf0\xd6\xcf\xcf
\xcf:\xf5\xc9\xdf\xdf \x03>\x02\xdf\xdf/\xd6\xc4\x18\xef+\xcb\x1e(\xfb\x8f\xf0C\x9b\x9d\x86\xe6V\x09J\x01\xc8\xabz$\xed\xbf
&'B\x80\xd0\x1ebJ"\x12\x91L|HM\x19\x99\xf0\xab\x8b3\x9dx\xae-N\x1b\x14Q\x97\x85!\xd3\x99\xe1\x0e\xc9s\x97\xec\xd1f>\xdc'~\xe1"?@\x1c\xe5\x8fc~u\xaf\x87\xaf\xc1\x09\xc8\x0f\xf1</\xfd\xde\x83U\xe4\xbe\x17=\xfe\xd1\xd9\xe6\xce\x19\x10\x98s+\xa6\x0f\xd2\x82\x05Qb\xee\xd5\x8a\x90\x1f\x12"\x03\x0eEU\x10\xa68Z\xd3\xb2\x19\xb9\xb1\xb1\x8a4$\x80\x96\xc4\x06
\xf1Fh\x13N\xecX\x00?a`\xdar\xe6d\x04P\x15\x06\x11\x11p\x05\xb0\x90\xca-p3\x9bgg\xeeA\x11\x02\xc9\xf2\x0eA\xc2\xbf\x8cY4_\x96\x1e\x18\x8b\xbf`\x91tR\xf3"\x8b\x03 \x94L\x15\xd0\xe1\xae\x7f#}\xd6\\xec\x803%v

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

Disassemble:

	ORG	00000H

	LD L,0F0H		;0000	2E F0 	. . 
	SUB 0CFH		;0002	D6 CF 	. . 
	RST 8			;0004	CF 	. 
	LD A,(BC)			;0005	0A 	. 
	RST 8			;0006	CF 	. 
	LD A,(0C9F5H)		;0007	3A F5 C9 	: . . 
	RST 18H			;000A	DF 	. 
	RST 18H			;000B	DF 	. 
	JR NZ,$+5		;000C	20 03 	  . 
	LD A,002H		;000E	3E 02 	> . 
	RST 18H			;0010	DF 	. 
	RST 18H			;0011	DF 	. 
	CPL			;0012	2F 	/ 
	SUB 0C4H		;0013	D6 C4 	. . 
	JR $-15		;0015	18 EF 	. . 
	DEC HL			;0017	2B 	+ 
	RR (HL)		;0018	CB 1E 	. . 
	JR Z,$-3		;001A	28 FB 	( . 
	ADC A,A			;001C	8F 	. 
	RET P			;001D	F0 	. 
	LD B,E			;001E	43 	C 
	SBC A,E			;001F	9B 	. 
	SBC A,L			;0020	9D 	. 
	ADD A,(HL)			;0021	86 	. 
	AND 056H		;0022	E6 56 	. V 
	ADD HL,BC			;0024	09 	. 
	LD C,D			;0025	4A 	J 
	LD BC,0ABC8H		;0026	01 C8 AB 	. . . 
	LD A,D			;0029	7A 	Z 
	INC H			;002A	24 	$ 
	DEFB 0EDH;NEXT BYTE ILLEGAL AFTER ED		;002B	ED 	. 
	CP A			;002C	BF 	. 
	LD A,(BC)			;002D	0A 	. 
	LD H,027H		;002E	26 27 	& ' 
	LD B,D			;0030	42 	B 
	ADD A,B			;0031	80 	. 
	RET NC			;0032	D0 	. 
	LD E,062H		;0033	1E 62 	. B 
	LD C,D			;0035	4A 	J 
	LD (09112H),HL		;0036	22 12 91 	" . . 
	LD C,H			;0039	4C 	L 
	LD A,H			;003A	7C 	| 
	LD C,B			;003B	48 	H 
	LD C,L			;003C	4D 	M 
	ADD HL,DE			;003D	19 	. 
	SBC A,C			;003E	99 	. 
	RET P			;003F	F0 	. 
	XOR E			;0040	AB 	. 
	ADC A,E			;0041	8B 	. 
	INC SP			;0042	33 	3 
	SBC A,L			;0043	9D 	. 
	LD A,B			;0044	78 	X 
	XOR (HL)			;0045	AE 	. 
	DEC L			;0046	2D 	- 
	LD C,(HL)			;0047	4E 	N 
	DEC DE			;0048	1B 	. 
	INC D			;0049	14 	. 
	LD D,C			;004A	51 	Q 
	SUB A			;004B	97 	. 
	ADD A,L			;004C	85 	. 
	LD HL,099D3H		;004D	21 D3 99 	! . . 
	POP HL			;0050	E1 	. 
	LD C,0C9H		;0051	0E C9 	. . 
	LD (HL),E			;0053	73 	S 
	SUB A			;0054	97 	. 
	CALL PE,066D1H		;0055	EC D1 66 	. . F 
	LD A,0DCH		;0058	3E DC 	> . 
	DAA			;005A	27 	' 
	LD A,(HL)			;005B	7E 	~ 
	POP HL			;005C	E1 	. 
	LD (0403FH),HL		;005D	22 3F 40 	" ? @ 
	INC E			;0060	1C 	. 
	PUSH HL			;0061	E5 	. 
	ADC A,A			;0062	8F 	. 
	LD H,E			;0063	63 	C 
	LD A,(HL)			;0064	7E 	~ 
	LD (HL),L			;0065	75 	U 
	XOR A			;0066	AF 	. 
	ADD A,A			;0067	87 	. 
	XOR A			;0068	AF 	. 
	POP BC			;0069	C1 	. 
	ADD HL,BC			;006A	09 	. 
	RET Z			;006B	C8 	. 
	RRCA			;006C	0F 	. 
	POP AF			;006D	F1 	. 
	INC A			;006E	3C 	< 
	CPL			;006F	2F 	/ 
	DEFB 0FDH,0DEH,083H	;ILLEGAL SEQUENCE		;0070	FD DE 83 	. . . 
	LD D,L			;0073	55 	U 
	CALL PO,017BEH		;0074	E4 BE 17 	. . . 
	DEC A			;0077	3D 	= 
	CP 0D1H		;0078	FE D1 	. . 
	EXX			;007A	D9 	. 
	AND 0CEH		;007B	E6 CE 	. . 
	ADD HL,DE			;007D	19 	. 
	DJNZ $-102		;007E	10 98 	. . 
	LD (HL),E			;0080	73 	S 
	DEC HL			;0081	2B 	+ 
	AND (HL)			;0082	A6 	. 
	RRCA			;0083	0F 	. 
	JP NC,00582H		;0084	D2 82 05 	. . . 
	LD D,C			;0087	51 	Q 
	LD H,D			;0088	62 	B 
	XOR 0D5H		;0089	EE D5 	. . 
	ADC A,D			;008B	8A 	. 
	SUB B			;008C	90 	. 
	RRA			;008D	1F 	. 
	LD (DE),A			;008E	12 	. 
	LD (00E03H),HL		;008F	22 03 0E 	" . . 
	LD B,L			;0092	45 	E 
	LD D,L			;0093	55 	U 
	DJNZ $-88		;0094	10 A6 	. . 
	JR C,$+92		;0096	38 5A 	8 Z 
	OUT (0B2H),A		;0098	D3 B2 	. . 
	ADD HL,DE			;009A	19 	. 
	CP C			;009B	B9 	. 
	OR C			;009C	B1 	. 
	OR C			;009D	B1 	. 
	ADC A,D			;009E	8A 	. 
	INC (HL)			;009F	34 	4 
	INC H			;00A0	24 	$ 
	ADD A,B			;00A1	80 	. 
	SUB (HL)			;00A2	96 	. 
	CALL NZ,00A06H		;00A3	C4 06 0A 	. . . 
	POP AF			;00A6	F1 	. 
	LD B,(HL)			;00A7	46 	F 
	LD L,B			;00A8	68 	H 
	INC DE			;00A9	13 	. 
	LD C,(HL)			;00AA	4E 	N 
	CALL PE,00058H		;00AB	EC 58 00 	. X . 
	CCF			;00AE	3F 	? 
	LD H,C			;00AF	61 	A 
	LD H,B			;00B0	60 	` 
	JP C,0E672H		;00B1	DA 72 E6 	. R . 
	LD H,H			;00B4	64 	D 
	INC B			;00B5	04 	. 
	LD D,B			;00B6	50 	P 
	DEC D			;00B7	15 	. 
	LD B,011H		;00B8	06 11 	. . 
	LD DE,00570H		;00BA	11 70 05 	. P . 
	OR B			;00BD	B0 	. 
	SUB B			;00BE	90 	. 
	JP Z,0702DH		;00BF	CA 2D 70 	. - P 
	INC SP			;00C2	33 	3 
	SBC A,E			;00C3	9B 	. 
	LD H,A			;00C4	67 	G 
	LD H,A			;00C5	67 	G 
	XOR 041H		;00C6	EE 41 	. A 
	LD DE,0C902H		;00C8	11 02 C9 	. . . 
	JP P,0410EH		;00CB	F2 0E 41 	. . A 
	JP NZ,08CBFH		;00CE	C2 BF 8C 	. . . 
	LD E,C			;00D1	59 	Y 
	INC (HL)			;00D2	34 	4 
	LD E,A			;00D3	5F 	_ 
	SUB (HL)			;00D4	96 	. 
	LD E,018H		;00D5	1E 18 	. . 
	ADC A,E			;00D7	8B 	. 
	CP A			;00D8	BF 	. 
	LD H,B			;00D9	60 	` 
	SUB C			;00DA	91 	. 
	LD (HL),H			;00DB	74 	T 
	LD D,D			;00DC	52 	R 
	DI			;00DD	F3 	. 
	LD (0038BH),HL		;00DE	22 8B 03 	" . . 
	JR NZ,$-106		;00E1	20 94 	  . 
	LD C,H			;00E3	4C 	L 
	DEC D			;00E4	15 	. 
	RET NC			;00E5	D0 	. 
	POP HL			;00E6	E1 	. 
	XOR (HL)			;00E7	AE 	. 
	LD A,A			;00E8	7F 	 
	INC HL			;00E9	23 	# 
	LD A,L			;00EA	7D 	} 
	SUB 05CH		;00EB	D6 5C 	. \ 
	CALL PE,03380H		;00ED	EC 80 33 	. . 3 
	DEC H			;00F0	25 	% 
	HALT			;00F1	76 	V 

download

return top