Practical Numbers by *yuko*

}\xee\xf4(5#\x11\x01\x00BK\xe5\xedB8\x05 \xfa\xeb\x09\xebbk\x03\xb7\xedB\xe10\xed\xb7\xedR\x190\xe1\xe5\xd9\xe1\x0e
Z\xf5\xb7\x13\xedB0\xfb\x09\xeb{\xf60- \xf0\xcdv\x7f\xf10\xfay\xe5\xd9

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

Disassemble:

	ORG	00000H

	LD A,L			;0000	7D 	} 
	XOR 0F4H		;0001	EE F4 	. . 
	JR Z,$+55		;0003	28 35 	( 5 
	INC HL			;0005	23 	# 
	LD DE,00001H		;0006	11 01 00 	. . . 
	LD B,D			;0009	42 	B 
	LD C,E			;000A	4B 	K 
	PUSH HL			;000B	E5 	. 
	SBC HL,BC		;000C	ED 42 	. B 
	JR C,$+7		;000E	38 05 	8 . 
	JR NZ,$-4		;0010	20 FA 	  . 
	EX DE,HL			;0012	EB 	. 
	ADD HL,BC			;0013	09 	. 
	EX DE,HL			;0014	EB 	. 
	LD H,D			;0015	62 	B 
	LD L,E			;0016	6B 	K 
	INC BC			;0017	03 	. 
	OR A			;0018	B7 	. 
	SBC HL,BC		;0019	ED 42 	. B 
	POP HL			;001B	E1 	. 
	JR NC,$-17		;001C	30 ED 	0 . 
	OR A			;001E	B7 	. 
	SBC HL,DE		;001F	ED 52 	. R 
	ADD HL,DE			;0021	19 	. 
	JR NC,$-29		;0022	30 E1 	0 . 
	PUSH HL			;0024	E5 	. 
	EXX			;0025	D9 	. 
	POP HL			;0026	E1 	. 
	LD C,00AH		;0027	0E 0A 	. . 
	LD E,D			;0029	5A 	Z 
	PUSH AF			;002A	F5 	. 
	OR A			;002B	B7 	. 
	INC DE			;002C	13 	. 
	SBC HL,BC		;002D	ED 42 	. B 
	JR NC,$-3		;002F	30 FB 	0 . 
	ADD HL,BC			;0031	09 	. 
	EX DE,HL			;0032	EB 	. 
	LD A,E			;0033	7B 	{ 
	OR 030H		;0034	F6 30 	. 0 
	DEC L			;0036	2D 	- 
	JR NZ,$-14		;0037	20 F0 	  . 
	CALL 07F76H		;0039	CD 76 7F 	. V  
	POP AF			;003C	F1 	. 
	JR NC,$-4		;003D	30 FA 	0 . 
	LD A,C			;003F	79 	Y 
	PUSH HL			;0040	E5 	. 
	EXX			;0041	D9 	. 

download

return top