Twin primes by kodera

\x1e\x02!\x00\x01\x19\x19t\xcbd(\xfa\x13\xcbZ(\xf1!\x03\x01\x06=~##\xb6+ \xf9\xe5\xd9\xd1\x1b\x15\xd5>,\xf7\xd1\x13\x13>
\xf7\xd9\x10\xe7v\xf5\x01\xff\xff\xff\xf1\x18\x18\xc5`i))\x09)DM\x19\xdc8\x00\xc1\xeb>/<\x098\xfc\xedB\xeb\xc3\x00\x80

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

Disassemble:

	ORG	00000H

	LD E,002H		;0000	1E 02 	. . 
	LD HL,00100H		;0002	21 00 01 	! . . 
	ADD HL,DE			;0005	19 	. 
	ADD HL,DE			;0006	19 	. 
	LD (HL),H			;0007	74 	T 
	BIT 4,H		;0008	CB 64 	. D 
	JR Z,$-4		;000A	28 FA 	( . 
	INC DE			;000C	13 	. 
	BIT 3,D		;000D	CB 5A 	. Z 
	JR Z,$-13		;000F	28 F1 	( . 
	LD HL,00103H		;0011	21 03 01 	! . . 
	LD B,03DH		;0014	06 3D 	. = 
	LD A,(HL)			;0016	7E 	~ 
	INC HL			;0017	23 	# 
	INC HL			;0018	23 	# 
	OR (HL)			;0019	B6 	. 
	DEC HL			;001A	2B 	+ 
	JR NZ,$-5		;001B	20 F9 	  . 
	PUSH HL			;001D	E5 	. 
	EXX			;001E	D9 	. 
	POP DE			;001F	D1 	. 
	DEC DE			;0020	1B 	. 
	DEC D			;0021	15 	. 
	PUSH DE			;0022	D5 	. 
	LD A,02CH		;0023	3E 2C 	> , 
	RST 30H			;0025	F7 	. 
	POP DE			;0026	D1 	. 
	INC DE			;0027	13 	. 
	INC DE			;0028	13 	. 
	LD A,00AH		;0029	3E 0A 	> . 
	RST 30H			;002B	F7 	. 
	EXX			;002C	D9 	. 
	DJNZ $-23		;002D	10 E7 	. . 
	HALT			;002F	76 	V 
	PUSH AF			;0030	F5 	. 
	LD BC,0FFFFH		;0031	01 FF FF 	. . . 
	RST 38H			;0034	FF 	. 
	POP AF			;0035	F1 	. 
	JR $+26		;0036	18 18 	. . 
	PUSH BC			;0038	C5 	. 
	LD H,B			;0039	60 	` 
	LD L,C			;003A	69 	I 
	ADD HL,HL			;003B	29 	) 
	ADD HL,HL			;003C	29 	) 
	ADD HL,BC			;003D	09 	. 
	ADD HL,HL			;003E	29 	) 
	LD B,H			;003F	44 	D 
	LD C,L			;0040	4D 	M 
	ADD HL,DE			;0041	19 	. 
	CALL C,00038H		;0042	DC 38 00 	. 8 . 
	POP BC			;0045	C1 	. 
	EX DE,HL			;0046	EB 	. 
	LD A,02FH		;0047	3E 2F 	> / 
	INC A			;0049	3C 	< 
	ADD HL,BC			;004A	09 	. 
	JR C,$-2		;004B	38 FC 	8 . 
	SBC HL,BC		;004D	ED 42 	. B 
	EX DE,HL			;004F	EB 	. 
	JP 08000H		;0050	C3 00 80 	. . . 

download

return top