partition by parity by *yuko*

\xf5\xcd\x03\x800\xfa\x0e
\x15\\xf1\xb9(\xfa\x12\x130\xf8\x16\xec\.O\x1a\x13#\xbe \x0b\xb7 \xf7+~\xcd\x00\x80\xb9 \xf8\x14 \xe9\x06\x05.P44~\xf60w\xfe:8\xd9\x91w#\x10\xf2y\xcd\x00\x80\x06\x05+t\x10\xfc61\x08\xb7(\xc4v
0

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

Disassemble:

	ORG	00000H

	PUSH AF			;0000	F5 	. 
	CALL 08003H		;0001	CD 03 80 	. . . 
	JR NC,$-4		;0004	30 FA 	0 . 
	LD C,00AH		;0006	0E 0A 	. . 
	DEC D			;0008	15 	. 
	LD E,H			;0009	5C 	\ 
	POP AF			;000A	F1 	. 
	CP C			;000B	B9 	. 
	JR Z,$-4		;000C	28 FA 	( . 
	LD (DE),A			;000E	12 	. 
	INC DE			;000F	13 	. 
	JR NC,$-6		;0010	30 F8 	0 . 
	LD D,0ECH		;0012	16 EC 	. . 
	LD E,H			;0014	5C 	\ 
	LD L,04FH		;0015	2E 4F 	. O 
	LD A,(DE)			;0017	1A 	. 
	INC DE			;0018	13 	. 
	INC HL			;0019	23 	# 
	CP (HL)			;001A	BE 	. 
	JR NZ,$+13		;001B	20 0B 	  . 
	OR A			;001D	B7 	. 
	JR NZ,$-7		;001E	20 F7 	  . 
	DEC HL			;0020	2B 	+ 
	LD A,(HL)			;0021	7E 	~ 
	CALL 08000H		;0022	CD 00 80 	. . . 
	CP C			;0025	B9 	. 
	JR NZ,$-6		;0026	20 F8 	  . 
	INC D			;0028	14 	. 
	JR NZ,$-21		;0029	20 E9 	  . 
	LD B,005H		;002B	06 05 	. . 
	LD L,050H		;002D	2E 50 	. P 
	INC (HL)			;002F	34 	4 
	INC (HL)			;0030	34 	4 
	LD A,(HL)			;0031	7E 	~ 
	OR 030H		;0032	F6 30 	. 0 
	LD (HL),A			;0034	77 	W 
	CP 03AH		;0035	FE 3A 	. : 
	JR C,$-37		;0037	38 D9 	8 . 
	SUB C			;0039	91 	. 
	LD (HL),A			;003A	77 	W 
	INC HL			;003B	23 	# 
	DJNZ $-12		;003C	10 F2 	. . 
	LD A,C			;003E	79 	Y 
	CALL 08000H		;003F	CD 00 80 	. . . 
	LD B,005H		;0042	06 05 	. . 
	DEC HL			;0044	2B 	+ 
	LD (HL),H			;0045	74 	T 
	DJNZ $-2		;0046	10 FC 	. . 
	LD (HL),031H		;0048	36 31 	6 1 
	EX AF,AF'			;004A	08 	. 
	OR A			;004B	B7 	. 
	JR Z,$-58		;004C	28 C4 	( . 
	HALT			;004E	76 	V 
	LD A,(BC)			;004F	0A 	. 
	DEFB 030H		;0050	30 	0 

download

return top