leap year by kodera

@%w\xcd\x03\x808\x05\xc5\x1e+\xbb\xd2v\x7f\xe7~\x0f$\x86$\xfeH(\xf7\xe6\x81\xe7\xe7\xe7e\x00\xb7
\x1f\xc4\x00\x80\xd8\x1a\x13\x18\xf7\xd2\xe7\xdc\xde\xe9\xc3\xd8\xca\xc2\xe1\xf2\xca\xc2\xe4\\x15

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

Disassemble:

	ORG	00000H

	LD B,B			;0000	40 	@ 
	DEC H			;0001	25 	% 
	LD (HL),A			;0002	77 	W 
	CALL 08003H		;0003	CD 03 80 	. . . 
	JR C,$+7		;0006	38 05 	8 . 
	PUSH BC			;0008	C5 	. 
	LD E,02BH		;0009	1E 2B 	. + 
	CP E			;000B	BB 	. 
	JP NC,07F76H		;000C	D2 76 7F 	. V  
	RST 20H			;000F	E7 	. 
	LD A,(HL)			;0010	7E 	~ 
	RRCA			;0011	0F 	. 
	INC H			;0012	24 	$ 
	ADD A,(HL)			;0013	86 	. 
	INC H			;0014	24 	$ 
	CP 048H		;0015	FE 48 	. H 
	JR Z,$-7		;0017	28 F7 	( . 
	AND 081H		;0019	E6 81 	. . 
	RST 20H			;001B	E7 	. 
	RST 20H			;001C	E7 	. 
	RST 20H			;001D	E7 	. 
	LD H,L			;001E	65 	E 
	NOP			;001F	00 	. 
	OR A			;0020	B7 	. 
	LD A,(BC)			;0021	0A 	. 
	RRA			;0022	1F 	. 
	CALL NZ,08000H		;0023	C4 00 80 	. . . 
	RET C			;0026	D8 	. 
	LD A,(DE)			;0027	1A 	. 
	INC DE			;0028	13 	. 
	JR $-7		;0029	18 F7 	. . 
	JP NC,0DCE7H		;002B	D2 E7 DC 	. . . 
	SBC A,0E9H		;002E	DE E9 	. . 
	JP 0CAD8H		;0030	C3 D8 CA 	. . . 
	JP NZ,0F2E1H		;0033	C2 E1 F2 	. . . 
	JP Z,0E4C2H		;0036	CA C2 E4 	. . . 
	LD E,H			;0039	5C 	\ 
	DEC D			;003A	15 	. 

download

return top