leap year by ySas

.B]w-\xcd\x03\x808\x1b\x87\xfe\x14 \xf4\xe7,~\x0f,\x86\xfe\x90(\xf7\xe6\x03 \x02\x1e6\xc5\x1d\x1a\x1f\xcd\xffv0\xf8\xc9\x15\\xe4\xc2\xca\xf2@\xe0\xc2\xca\xd8@\xc2@\xe8\xde\xdcA\xe6\xd2@

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

Disassemble:

	ORG	00000H

	LD L,042H		;0000	2E 42 	. B 
	LD E,L			;0002	5D 	] 
	LD (HL),A			;0003	77 	W 
	DEC L			;0004	2D 	- 
	CALL 08003H		;0005	CD 03 80 	. . . 
	JR C,$+29		;0008	38 1B 	8 . 
	ADD A,A			;000A	87 	. 
	CP 014H		;000B	FE 14 	. . 
	JR NZ,$-10		;000D	20 F4 	  . 
	RST 20H			;000F	E7 	. 
	INC L			;0010	2C 	, 
	LD A,(HL)			;0011	7E 	~ 
	RRCA			;0012	0F 	. 
	INC L			;0013	2C 	, 
	ADD A,(HL)			;0014	86 	. 
	CP 090H		;0015	FE 90 	. . 
	JR Z,$-7		;0017	28 F7 	( . 
	AND 003H		;0019	E6 03 	. . 
	JR NZ,$+4		;001B	20 02 	  . 
	LD E,036H		;001D	1E 36 	. 6 
	PUSH BC			;001F	C5 	. 
	DEC E			;0020	1D 	. 
	LD A,(DE)			;0021	1A 	. 
	RRA			;0022	1F 	. 
	CALL 076FFH		;0023	CD FF 76 	. . V 
	JR NC,$-6		;0026	30 F8 	0 . 
	RET			;0028	C9 	. 
	DEC D			;0029	15 	. 
	LD E,H			;002A	5C 	\ 
	CALL PO,0CAC2H		;002B	E4 C2 CA 	. . . 
	JP P,0E040H		;002E	F2 40 E0 	. @ . 
	JP NZ,0D8CAH		;0031	C2 CA D8 	. . . 
	LD B,B			;0034	40 	@ 
	JP NZ,0E840H		;0035	C2 40 E8 	. @ . 
	SBC A,0DCH		;0038	DE DC 	. . 
	LD B,C			;003A	41 	A 
	AND 0D2H		;003B	E6 D2 	. . 
	LD B,B			;003D	40 	@ 

download

return top