permutation date by *yuko*

.I#\x0e\x09~\xb9t0\xf8<w.O~\x87\x87\x87+\x86\xfe\x140\xef>\x06+\xbe(\xe9.K\xbe(\xe4\x0f.Q\xbe(\xde\xfd\xcbSF \x14.JE]\x13\x1a\xbe(\xcb\x10\xf9#\x0d \xf3~+\xc60\xcdv\x7f0\xf7\x18\xb7\xda

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

Disassemble:

	ORG	00000H

	LD L,049H		;0000	2E 49 	. I 
	INC HL			;0002	23 	# 
	LD C,009H		;0003	0E 09 	. . 
	LD A,(HL)			;0005	7E 	~ 
	CP C			;0006	B9 	. 
	LD (HL),H			;0007	74 	T 
	JR NC,$-6		;0008	30 F8 	0 . 
	INC A			;000A	3C 	< 
	LD (HL),A			;000B	77 	W 
	LD L,04FH		;000C	2E 4F 	. O 
	LD A,(HL)			;000E	7E 	~ 
	ADD A,A			;000F	87 	. 
	ADD A,A			;0010	87 	. 
	ADD A,A			;0011	87 	. 
	DEC HL			;0012	2B 	+ 
	ADD A,(HL)			;0013	86 	. 
	CP 014H		;0014	FE 14 	. . 
	JR NC,$-15		;0016	30 EF 	0 . 
	LD A,006H		;0018	3E 06 	> . 
	DEC HL			;001A	2B 	+ 
	CP (HL)			;001B	BE 	. 
	JR Z,$-21		;001C	28 E9 	( . 
	LD L,04BH		;001E	2E 4B 	. K 
	CP (HL)			;0020	BE 	. 
	JR Z,$-26		;0021	28 E4 	( . 
	RRCA			;0023	0F 	. 
	LD L,051H		;0024	2E 51 	. Q 
	CP (HL)			;0026	BE 	. 
	JR Z,$-32		;0027	28 DE 	( . 
	BIT 0,(IY+053H)		;0029	FD CB 53 46 	. . S F 
	JR NZ,$+22		;002D	20 14 	  . 
	LD L,04AH		;002F	2E 4A 	. J 
	LD B,L			;0031	45 	E 
	LD E,L			;0032	5D 	] 
	INC DE			;0033	13 	. 
	LD A,(DE)			;0034	1A 	. 
	CP (HL)			;0035	BE 	. 
	JR Z,$-51		;0036	28 CB 	( . 
	DJNZ $-5		;0038	10 F9 	. . 
	INC HL			;003A	23 	# 
	DEC C			;003B	0D 	. 
	JR NZ,$-11		;003C	20 F3 	  . 
	LD A,(HL)			;003E	7E 	~ 
	DEC HL			;003F	2B 	+ 
	ADD A,030H		;0040	C6 30 	. 0 
	CALL 07F76H		;0042	CD 76 7F 	. V  
	JR NC,$-7		;0045	30 F7 	0 . 
	JR $-71		;0047	18 B7 	. . 
	DEFB 0DAH		;0049	DA 	. 

download

return top