Sphenic Numbers by *yuko*

\x06d\x14\x1c\x13bk\x198\x0c%\x1a= \x01p4\x190\xf6\x18\xee\x16\x01.8#~60<\xb6\xfe:0\xf6w\x13\x1a\xfe\x06 \xed)+~\xfe
\xd4\x00\x80 \xf7\x10\xe1v

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

Disassemble:

	ORG	00000H

	LD B,064H		;0000	06 64 	. D 
	INC D			;0002	14 	. 
	INC E			;0003	1C 	. 
	INC DE			;0004	13 	. 
	LD H,D			;0005	62 	B 
	LD L,E			;0006	6B 	K 
	ADD HL,DE			;0007	19 	. 
	JR C,$+14		;0008	38 0C 	8 . 
	DEC H			;000A	25 	% 
	LD A,(DE)			;000B	1A 	. 
	DEC A			;000C	3D 	= 
	JR NZ,$+3		;000D	20 01 	  . 
	LD (HL),B			;000F	70 	P 
	INC (HL)			;0010	34 	4 
	ADD HL,DE			;0011	19 	. 
	JR NC,$-8		;0012	30 F6 	0 . 
	JR $-16		;0014	18 EE 	. . 
	LD D,001H		;0016	16 01 	. . 
	LD L,038H		;0018	2E 38 	. 8 
	INC HL			;001A	23 	# 
	LD A,(HL)			;001B	7E 	~ 
	LD (HL),030H		;001C	36 30 	6 0 
	INC A			;001E	3C 	< 
	OR (HL)			;001F	B6 	. 
	CP 03AH		;0020	FE 3A 	. : 
	JR NC,$-8		;0022	30 F6 	0 . 
	LD (HL),A			;0024	77 	W 
	INC DE			;0025	13 	. 
	LD A,(DE)			;0026	1A 	. 
	CP 006H		;0027	FE 06 	. . 
	JR NZ,$-17		;0029	20 ED 	  . 
	ADD HL,HL			;002B	29 	) 
	DEC HL			;002C	2B 	+ 
	LD A,(HL)			;002D	7E 	~ 
	CP 00AH		;002E	FE 0A 	. . 
	CALL NC,08000H		;0030	D4 00 80 	. . . 
	JR NZ,$-7		;0033	20 F7 	  . 
	DJNZ $-29		;0035	10 E1 	. . 
	HALT			;0037	76 	V 
	LD A,(BC)			;0038	0A 	. 

download

return top