Nth prime by *yuko*

!\xf7\x00\x13\x198\x0b\x198\xf6\x198\xf3#6v\x18\xf5\xaf`hT]))\x19)P_\x19\xcd\x03\x800\x02\x08\xd8\xd600\xec\xebh\x0e\xf6\x03#
\xb7 \xfa\x1b\xb2\xb3 \xf5)\x17G+\x0ee\x1e
\x04\x0c\xdd!\xff\xff\xdd#\xedR0\xfa?\x10\xf7\x19}\x02\xdd\xe5\xe1|\xb5 \xe7
\x0d\xee0\xcd\x00\x80\xbb \xf6\x18\xad:

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

Disassemble:

	ORG	00000H

	LD HL,000F7H		;0000	21 F7 00 	! . . 
	INC DE			;0003	13 	. 
	ADD HL,DE			;0004	19 	. 
	JR C,$+13		;0005	38 0B 	8 . 
	ADD HL,DE			;0007	19 	. 
	JR C,$-8		;0008	38 F6 	8 . 
	ADD HL,DE			;000A	19 	. 
	JR C,$-11		;000B	38 F3 	8 . 
	INC HL			;000D	23 	# 
	LD (HL),076H		;000E	36 76 	6 V 
	JR $-9		;0010	18 F5 	. . 
	XOR A			;0012	AF 	. 
	LD H,B			;0013	60 	` 
	LD L,B			;0014	68 	H 
	LD D,H			;0015	54 	T 
	LD E,L			;0016	5D 	] 
	ADD HL,HL			;0017	29 	) 
	ADD HL,HL			;0018	29 	) 
	ADD HL,DE			;0019	19 	. 
	ADD HL,HL			;001A	29 	) 
	LD D,B			;001B	50 	P 
	LD E,A			;001C	5F 	_ 
	ADD HL,DE			;001D	19 	. 
	CALL 08003H		;001E	CD 03 80 	. . . 
	JR NC,$+4		;0021	30 02 	0 . 
	EX AF,AF'			;0023	08 	. 
	RET C			;0024	D8 	. 
	SUB 030H		;0025	D6 30 	. 0 
	JR NC,$-18		;0027	30 EC 	0 . 
	EX DE,HL			;0029	EB 	. 
	LD L,B			;002A	68 	H 
	LD C,0F6H		;002B	0E F6 	. . 
	INC BC			;002D	03 	. 
	INC HL			;002E	23 	# 
	LD A,(BC)			;002F	0A 	. 
	OR A			;0030	B7 	. 
	JR NZ,$-4		;0031	20 FA 	  . 
	DEC DE			;0033	1B 	. 
	OR D			;0034	B2 	. 
	OR E			;0035	B3 	. 
	JR NZ,$-9		;0036	20 F5 	  . 
	ADD HL,HL			;0038	29 	) 
	RLA			;0039	17 	. 
	LD B,A			;003A	47 	G 
	DEC HL			;003B	2B 	+ 
	LD C,065H		;003C	0E 65 	. E 
	LD E,00AH		;003E	1E 0A 	. . 
	INC B			;0040	04 	. 
	INC C			;0041	0C 	. 
	LD IX,0FFFFH		;0042	DD 21 FF FF 	. ! . . 
	INC IX		;0046	DD 23 	. # 
	SBC HL,DE		;0048	ED 52 	. R 
	JR NC,$-4		;004A	30 FA 	0 . 
	CCF			;004C	3F 	? 
	DJNZ $-7		;004D	10 F7 	. . 
	ADD HL,DE			;004F	19 	. 
	LD A,L			;0050	7D 	} 
	LD (BC),A			;0051	02 	. 
	PUSH IX		;0052	DD E5 	. . 
	POP HL			;0054	E1 	. 
	LD A,H			;0055	7C 	| 
	OR L			;0056	B5 	. 
	JR NZ,$-23		;0057	20 E7 	  . 
	LD A,(BC)			;0059	0A 	. 
	DEC C			;005A	0D 	. 
	XOR 030H		;005B	EE 30 	. 0 
	CALL 08000H		;005D	CD 00 80 	. . . 
	CP E			;0060	BB 	. 
	JR NZ,$-8		;0061	20 F6 	  . 
	JR $-81		;0063	18 AD 	. . 
	DEFB 03AH		;0065	3A 	: 

download

return top