Cancel fractions by *yuko*

\xc5\xe5Aai\xcd\x03\x808@\xd608?\x0e\x09\xf5xT]\x19\x88\x0d \xfbG\xf1_Q\x19\x18\xe5\xd9!\xff\xff#\xd9\xedR\x98\xd90\xf8\xc9\xcdv\x7f\x11
\x00\xaf<\xedR0\xfb\x19\xe5=o \xf4\xe1}\xee0\xbd\xd4\x00\x800\xf6\xe9\x088\xe1<(\xb0x\xd1\xc1\xb7\xf5\xe5\xc5\xd5OxA\xeb\xe7\xd9\x19\x88O\xb4\xb5 \xf4\xe1\xf1\xe7\xf7\xd9\xe1\xf1\xe7}=\xb4>/\xc4-\x00{Z\xd5

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

Disassemble:

	ORG	00000H

	PUSH BC			;0000	C5 	. 
	PUSH HL			;0001	E5 	. 
	LD B,C			;0002	41 	A 
	LD H,C			;0003	61 	A 
	LD L,C			;0004	69 	I 
	CALL 08003H		;0005	CD 03 80 	. . . 
	JR C,$+66		;0008	38 40 	8 @ 
	SUB 030H		;000A	D6 30 	. 0 
	JR C,$+65		;000C	38 3F 	8 ? 
	LD C,009H		;000E	0E 09 	. . 
	PUSH AF			;0010	F5 	. 
	LD A,B			;0011	78 	X 
	LD D,H			;0012	54 	T 
	LD E,L			;0013	5D 	] 
	ADD HL,DE			;0014	19 	. 
	ADC A,B			;0015	88 	. 
	DEC C			;0016	0D 	. 
	JR NZ,$-3		;0017	20 FB 	  . 
	LD B,A			;0019	47 	G 
	POP AF			;001A	F1 	. 
	LD E,A			;001B	5F 	_ 
	LD D,C			;001C	51 	Q 
	ADD HL,DE			;001D	19 	. 
	JR $-25		;001E	18 E5 	. . 
	EXX			;0020	D9 	. 
	LD HL,0FFFFH		;0021	21 FF FF 	! . . 
	INC HL			;0024	23 	# 
	EXX			;0025	D9 	. 
	SBC HL,DE		;0026	ED 52 	. R 
	SBC A,B			;0028	98 	. 
	EXX			;0029	D9 	. 
	JR NC,$-6		;002A	30 F8 	0 . 
	RET			;002C	C9 	. 
	CALL 07F76H		;002D	CD 76 7F 	. V  
	LD DE,0000AH		;0030	11 0A 00 	. . . 
	XOR A			;0033	AF 	. 
	INC A			;0034	3C 	< 
	SBC HL,DE		;0035	ED 52 	. R 
	JR NC,$-3		;0037	30 FB 	0 . 
	ADD HL,DE			;0039	19 	. 
	PUSH HL			;003A	E5 	. 
	DEC A			;003B	3D 	= 
	LD L,A			;003C	6F 	O 
	JR NZ,$-10		;003D	20 F4 	  . 
	POP HL			;003F	E1 	. 
	LD A,L			;0040	7D 	} 
	XOR 030H		;0041	EE 30 	. 0 
	CP L			;0043	BD 	. 
	CALL NC,08000H		;0044	D4 00 80 	. . . 
	JR NC,$-8		;0047	30 F6 	0 . 
	JP (HL)			;0049	E9 	. 
	EX AF,AF'			;004A	08 	. 
	JR C,$-29		;004B	38 E1 	8 . 
	INC A			;004D	3C 	< 
	JR Z,$-78		;004E	28 B0 	( . 
	LD A,B			;0050	78 	X 
	POP DE			;0051	D1 	. 
	POP BC			;0052	C1 	. 
	OR A			;0053	B7 	. 
	PUSH AF			;0054	F5 	. 
	PUSH HL			;0055	E5 	. 
	PUSH BC			;0056	C5 	. 
	PUSH DE			;0057	D5 	. 
	LD C,A			;0058	4F 	O 
	LD A,B			;0059	78 	X 
	LD B,C			;005A	41 	A 
	EX DE,HL			;005B	EB 	. 
	RST 20H			;005C	E7 	. 
	EXX			;005D	D9 	. 
	ADD HL,DE			;005E	19 	. 
	ADC A,B			;005F	88 	. 
	LD C,A			;0060	4F 	O 
	OR H			;0061	B4 	. 
	OR L			;0062	B5 	. 
	JR NZ,$-10		;0063	20 F4 	  . 
	POP HL			;0065	E1 	. 
	POP AF			;0066	F1 	. 
	RST 20H			;0067	E7 	. 
	RST 30H			;0068	F7 	. 
	EXX			;0069	D9 	. 
	POP HL			;006A	E1 	. 
	POP AF			;006B	F1 	. 
	RST 20H			;006C	E7 	. 
	LD A,L			;006D	7D 	} 
	DEC A			;006E	3D 	= 
	OR H			;006F	B4 	. 
	LD A,02FH		;0070	3E 2F 	> / 
	CALL NZ,0002DH		;0072	C4 2D 00 	. - . 
	LD A,E			;0075	7B 	{ 
	LD E,D			;0076	5A 	Z 
	PUSH DE			;0077	D5 	. 

download

return to the top page