Circumference of circle by *yuko*

\xef\xebc\xa6d7\xbaK\xd6\xd3Zt:\x86Hh\x93\xb6\x84<\xebN\x89\xe3}\xa45\xb7J\xba\xa3\xe9\xb47\x8dG5UE{7\x85
#\xaf\xedg\xc8\xeb\xc6+\xfe/ \x02>
\xcd\x00\x80\xefv

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

Disassemble:

	ORG	00000H

	RST 28H			;0000	EF 	. 
	EX DE,HL			;0001	EB 	. 
	LD H,E			;0002	63 	C 
	AND (HL)			;0003	A6 	. 
	LD H,H			;0004	64 	D 
	SCF			;0005	37 	7 
	CP D			;0006	BA 	. 
	LD C,E			;0007	4B 	K 
	SUB 0D3H		;0008	D6 D3 	. . 
	LD E,D			;000A	5A 	Z 
	LD (HL),H			;000B	74 	T 
	LD A,(04886H)		;000C	3A 86 48 	: . H 
	LD L,B			;000F	68 	H 
	SUB E			;0010	93 	. 
	OR (HL)			;0011	B6 	. 
	ADD A,H			;0012	84 	. 
	INC A			;0013	3C 	< 
	EX DE,HL			;0014	EB 	. 
	LD C,(HL)			;0015	4E 	N 
	ADC A,C			;0016	89 	. 
	EX (SP),HL			;0017	E3 	. 
	LD A,L			;0018	7D 	} 
	AND H			;0019	A4 	. 
	DEC (HL)			;001A	35 	5 
	OR A			;001B	B7 	. 
	LD C,D			;001C	4A 	J 
	CP D			;001D	BA 	. 
	AND E			;001E	A3 	. 
	JP (HL)			;001F	E9 	. 
	OR H			;0020	B4 	. 
	SCF			;0021	37 	7 
	ADC A,L			;0022	8D 	. 
	LD B,A			;0023	47 	G 
	DEC (HL)			;0024	35 	5 
	LD D,L			;0025	55 	U 
	LD B,L			;0026	45 	E 
	LD A,E			;0027	7B 	{ 
	SCF			;0028	37 	7 
	ADD A,L			;0029	85 	. 
	LD A,(BC)			;002A	0A 	. 
	INC HL			;002B	23 	# 
	XOR A			;002C	AF 	. 
	RRD		;002D	ED 67 	. G 
	RET Z			;002F	C8 	. 
	EX DE,HL			;0030	EB 	. 
	ADD A,02BH		;0031	C6 2B 	. + 
	CP 02FH		;0033	FE 2F 	. / 
	JR NZ,$+4		;0035	20 02 	  . 
	LD A,00AH		;0037	3E 0A 	> . 
	CALL 08000H		;0039	CD 00 80 	. . . 
	RST 28H			;003C	EF 	. 
	HALT			;003D	76 	V 

download

return to the top page