Sphenic Numbers by kodera

$#\x06d#~\xb7\x0e\x08 \x01\x0c\xe5]T\x15\x19~\x81w\x19\xcbT(\xf8\xe1~\xfe3 \xe5\xd5\xd9\xd1\x01\xff\xff\xf7>
\xcd\x00\x80\xd9\x10\xd6v\x00\xc5`i))\x09)DM\x19\xdc0\x00\xc1\xeb>/<\x098\xfc\xedB\xeb\xf5\xc9

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

Disassemble:

	ORG	00000H

	INC H			;0000	24 	$ 
	INC HL			;0001	23 	# 
	LD B,064H		;0002	06 64 	. D 
	INC HL			;0004	23 	# 
	LD A,(HL)			;0005	7E 	~ 
	OR A			;0006	B7 	. 
	LD C,008H		;0007	0E 08 	. . 
	JR NZ,$+3		;0009	20 01 	  . 
	INC C			;000B	0C 	. 
	PUSH HL			;000C	E5 	. 
	LD E,L			;000D	5D 	] 
	LD D,H			;000E	54 	T 
	DEC D			;000F	15 	. 
	ADD HL,DE			;0010	19 	. 
	LD A,(HL)			;0011	7E 	~ 
	ADD A,C			;0012	81 	. 
	LD (HL),A			;0013	77 	W 
	ADD HL,DE			;0014	19 	. 
	BIT 2,H		;0015	CB 54 	. T 
	JR Z,$-6		;0017	28 F8 	( . 
	POP HL			;0019	E1 	. 
	LD A,(HL)			;001A	7E 	~ 
	CP 033H		;001B	FE 33 	. 3 
	JR NZ,$-25		;001D	20 E5 	  . 
	PUSH DE			;001F	D5 	. 
	EXX			;0020	D9 	. 
	POP DE			;0021	D1 	. 
	LD BC,0FFFFH		;0022	01 FF FF 	. . . 
	RST 30H			;0025	F7 	. 
	LD A,00AH		;0026	3E 0A 	> . 
	CALL 08000H		;0028	CD 00 80 	. . . 
	EXX			;002B	D9 	. 
	DJNZ $-40		;002C	10 D6 	. . 
	HALT			;002E	76 	V 
	NOP			;002F	00 	. 
	PUSH BC			;0030	C5 	. 
	LD H,B			;0031	60 	` 
	LD L,C			;0032	69 	I 
	ADD HL,HL			;0033	29 	) 
	ADD HL,HL			;0034	29 	) 
	ADD HL,BC			;0035	09 	. 
	ADD HL,HL			;0036	29 	) 
	LD B,H			;0037	44 	D 
	LD C,L			;0038	4D 	M 
	ADD HL,DE			;0039	19 	. 
	CALL C,00030H		;003A	DC 30 00 	. 0 . 
	POP BC			;003D	C1 	. 
	EX DE,HL			;003E	EB 	. 
	LD A,02FH		;003F	3E 2F 	> / 
	INC A			;0041	3C 	< 
	ADD HL,BC			;0042	09 	. 
	JR C,$-2		;0043	38 FC 	8 . 
	SBC HL,BC		;0045	ED 42 	. B 
	EX DE,HL			;0047	EB 	. 
	PUSH AF			;0048	F5 	. 
	RET			;0049	C9 	. 

download

return top