perfect square free by *yuko*

\x1e
\x01\x02\x01i>[\xff#\xe5>/<\xedR0\xfb\xfe0 \xff}\xc6:\xff\xe1}\xfec\xc8>,\xff\xd6\x0c\x10\xe2#\x0c\x0cA\xcf>]\xffv

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

Disassemble:

	ORG	00000H

	LD E,00AH		;0000	1E 0A 	. . 
	LD BC,00102H		;0002	01 02 01 	. . . 
	LD L,C			;0005	69 	I 
	LD A,05BH		;0006	3E 5B 	> [ 
	RST 38H			;0008	FF 	. 
	INC HL			;0009	23 	# 
	PUSH HL			;000A	E5 	. 
	LD A,02FH		;000B	3E 2F 	> / 
	INC A			;000D	3C 	< 
	SBC HL,DE		;000E	ED 52 	. R 
	JR NC,$-3		;0010	30 FB 	0 . 
	CP 030H		;0012	FE 30 	. 0 
	JR NZ,$+1		;0014	20 FF 	  . 
	LD A,L			;0016	7D 	} 
	ADD A,03AH		;0017	C6 3A 	. : 
	RST 38H			;0019	FF 	. 
	POP HL			;001A	E1 	. 
	LD A,L			;001B	7D 	} 
	CP 063H		;001C	FE 63 	. C 
	RET Z			;001E	C8 	. 
	LD A,02CH		;001F	3E 2C 	> , 
	RST 38H			;0021	FF 	. 
	SUB 00CH		;0022	D6 0C 	. . 
	DJNZ $-28		;0024	10 E2 	. . 
	INC HL			;0026	23 	# 
	INC C			;0027	0C 	. 
	INC C			;0028	0C 	. 
	LD B,C			;0029	41 	A 
	RST 8			;002A	CF 	. 
	LD A,05DH		;002B	3E 5D 	> ] 
	RST 38H			;002D	FF 	. 
	HALT			;002E	76 	V 

download

return top