Bigger power of two by *yuko*

\x1dSK\xcd\x03\x800\x02\x08\xd8\x15\xd60\x120\xf3b$\xcb\x16~\xc6\xf60\x01w$ \xf5%D
\xbe(\xfa0\xebc\x1a\x1c\x12~\xb7(\x05~u\xc60\xff%0\xf8\xc7v

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

Disassemble:

	ORG	00000H

	DEC E			;0000	1D 	. 
	LD D,E			;0001	53 	S 
	LD C,E			;0002	4B 	K 
	CALL 08003H		;0003	CD 03 80 	. . . 
	JR NC,$+4		;0006	30 02 	0 . 
	EX AF,AF'			;0008	08 	. 
	RET C			;0009	D8 	. 
	DEC D			;000A	15 	. 
	SUB 030H		;000B	D6 30 	. 0 
	LD (DE),A			;000D	12 	. 
	JR NC,$-11		;000E	30 F3 	0 . 
	LD H,D			;0010	62 	B 
	INC H			;0011	24 	$ 
	RL (HL)		;0012	CB 16 	. . 
	LD A,(HL)			;0014	7E 	~ 
	ADD A,0F6H		;0015	C6 F6 	. . 
	JR NC,$+3		;0017	30 01 	0 . 
	LD (HL),A			;0019	77 	W 
	INC H			;001A	24 	$ 
	JR NZ,$-9		;001B	20 F5 	  . 
	DEC H			;001D	25 	% 
	LD B,H			;001E	44 	D 
	LD A,(BC)			;001F	0A 	. 
	CP (HL)			;0020	BE 	. 
	JR Z,$-4		;0021	28 FA 	( . 
	JR NC,$-19		;0023	30 EB 	0 . 
	LD H,E			;0025	63 	C 
	LD A,(DE)			;0026	1A 	. 
	INC E			;0027	1C 	. 
	LD (DE),A			;0028	12 	. 
	LD A,(HL)			;0029	7E 	~ 
	OR A			;002A	B7 	. 
	JR Z,$+7		;002B	28 05 	( . 
	LD A,(HL)			;002D	7E 	~ 
	LD (HL),L			;002E	75 	U 
	ADD A,030H		;002F	C6 30 	. 0 
	RST 38H			;0031	FF 	. 
	DEC H			;0032	25 	% 
	JR NC,$-6		;0033	30 F8 	0 . 
	RST 0			;0035	C7 	. 
	HALT			;0036	76 	V 

download

return top