Nth prime by *yuko*

>2!\xfd\xff\x19\x1b\xba0\x1a\x190\xf5\x190\xf2+\xbc0\xeet\x18\xf3v\xaf>/<\xedR0\xfb\x19\xc3\x00\x80\xaf`hT]))\x19)P_\x19\xcd\x03\x800\x03\x088\xdf\xd600\xebPX\x1b\x1a\xb7 \xfb+\xb4\xb5 \xf6z/g{/o)+0\x17\x11`y\x19>1\xdc\x00\x80=8\x06\x11\x10'\x19>9\xcd\x00\x80\x18\x17\x11
\x00\xedR\x198\x1a\x1ed\xedR\x198\x10\x11\xe8\x03\xedR\x198\x04\x11\xe8\x03\xdf\x11d\x00\xdf\x1e
\xdf\x1e\x01\xdf>
\xcd\x00\x80\x18\x8f

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

Disassemble:

	ORG	00000H

	LD A,032H		;0000	3E 32 	> 2 
	LD HL,0FFFDH		;0002	21 FD FF 	! . . 
	ADD HL,DE			;0005	19 	. 
	DEC DE			;0006	1B 	. 
	CP D			;0007	BA 	. 
	JR NC,$+28		;0008	30 1A 	0 . 
	ADD HL,DE			;000A	19 	. 
	JR NC,$-9		;000B	30 F5 	0 . 
	ADD HL,DE			;000D	19 	. 
	JR NC,$-12		;000E	30 F2 	0 . 
	DEC HL			;0010	2B 	+ 
	CP H			;0011	BC 	. 
	JR NC,$-16		;0012	30 EE 	0 . 
	LD (HL),H			;0014	74 	T 
	JR $-11		;0015	18 F3 	. . 
	HALT			;0017	76 	V 
	XOR A			;0018	AF 	. 
	LD A,02FH		;0019	3E 2F 	> / 
	INC A			;001B	3C 	< 
	SBC HL,DE		;001C	ED 52 	. R 
	JR NC,$-3		;001E	30 FB 	0 . 
	ADD HL,DE			;0020	19 	. 
	JP 08000H		;0021	C3 00 80 	. . . 
	XOR A			;0024	AF 	. 
	LD H,B			;0025	60 	` 
	LD L,B			;0026	68 	H 
	LD D,H			;0027	54 	T 
	LD E,L			;0028	5D 	] 
	ADD HL,HL			;0029	29 	) 
	ADD HL,HL			;002A	29 	) 
	ADD HL,DE			;002B	19 	. 
	ADD HL,HL			;002C	29 	) 
	LD D,B			;002D	50 	P 
	LD E,A			;002E	5F 	_ 
	ADD HL,DE			;002F	19 	. 
	CALL 08003H		;0030	CD 03 80 	. . . 
	JR NC,$+5		;0033	30 03 	0 . 
	EX AF,AF'			;0035	08 	. 
	JR C,$-31		;0036	38 DF 	8 . 
	SUB 030H		;0038	D6 30 	. 0 
	JR NC,$-19		;003A	30 EB 	0 . 
	LD D,B			;003C	50 	P 
	LD E,B			;003D	58 	X 
	DEC DE			;003E	1B 	. 
	LD A,(DE)			;003F	1A 	. 
	OR A			;0040	B7 	. 
	JR NZ,$-3		;0041	20 FB 	  . 
	DEC HL			;0043	2B 	+ 
	OR H			;0044	B4 	. 
	OR L			;0045	B5 	. 
	JR NZ,$-8		;0046	20 F6 	  . 
	LD A,D			;0048	7A 	Z 
	CPL			;0049	2F 	/ 
	LD H,A			;004A	67 	G 
	LD A,E			;004B	7B 	{ 
	CPL			;004C	2F 	/ 
	LD L,A			;004D	6F 	O 
	ADD HL,HL			;004E	29 	) 
	DEC HL			;004F	2B 	+ 
	JR NC,$+25		;0050	30 17 	0 . 
	LD DE,07960H		;0052	11 60 79 	. ` Y 
	ADD HL,DE			;0055	19 	. 
	LD A,031H		;0056	3E 31 	> 1 
	CALL C,08000H		;0058	DC 00 80 	. . . 
	DEC A			;005B	3D 	= 
	JR C,$+8		;005C	38 06 	8 . 
	LD DE,02710H		;005E	11 10 27 	. . ' 
	ADD HL,DE			;0061	19 	. 
	LD A,039H		;0062	3E 39 	> 9 
	CALL 08000H		;0064	CD 00 80 	. . . 
	JR $+25		;0067	18 17 	. . 
	LD DE,0000AH		;0069	11 0A 00 	. . . 
	SBC HL,DE		;006C	ED 52 	. R 
	ADD HL,DE			;006E	19 	. 
	JR C,$+28		;006F	38 1A 	8 . 
	LD E,064H		;0071	1E 64 	. D 
	SBC HL,DE		;0073	ED 52 	. R 
	ADD HL,DE			;0075	19 	. 
	JR C,$+18		;0076	38 10 	8 . 
	LD DE,003E8H		;0078	11 E8 03 	. . . 
	SBC HL,DE		;007B	ED 52 	. R 
	ADD HL,DE			;007D	19 	. 
	JR C,$+6		;007E	38 04 	8 . 
	LD DE,003E8H		;0080	11 E8 03 	. . . 
	RST 18H			;0083	DF 	. 
	LD DE,00064H		;0084	11 64 00 	. D . 
	RST 18H			;0087	DF 	. 
	LD E,00AH		;0088	1E 0A 	. . 
	RST 18H			;008A	DF 	. 
	LD E,001H		;008B	1E 01 	. . 
	RST 18H			;008D	DF 	. 
	LD A,00AH		;008E	3E 0A 	> . 
	CALL 08000H		;0090	CD 00 80 	. . . 
	JR $-111		;0093	18 8F 	. . 

download

return top