Equal Temperament by *yuko*

\x1e*k\x01 @\xe7\xe7> \xef\xef\xef\xef\xe7\xe7\xe7>.\xef\xe7\xe7\xe7>
\xef45 \xe5v\x00xA\x0e0\xedo#\xeb\xf5\xc90&\x16&3'q\x83@)6eC1\x11'P2\x96(`4\x92(c6\x99\x94p9\x19\x95sAS\x05\x10D\x00\x00\x13Fad I8\x83

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

Disassemble:

	ORG	00000H

	LD E,02AH		;0000	1E 2A 	. * 
	LD L,E			;0002	6B 	K 
	LD BC,04020H		;0003	01 20 40 	.   @ 
	RST 20H			;0006	E7 	. 
	RST 20H			;0007	E7 	. 
	LD A,020H		;0008	3E 20 	>   
	RST 28H			;000A	EF 	. 
	RST 28H			;000B	EF 	. 
	RST 28H			;000C	EF 	. 
	RST 28H			;000D	EF 	. 
	RST 20H			;000E	E7 	. 
	RST 20H			;000F	E7 	. 
	RST 20H			;0010	E7 	. 
	LD A,02EH		;0011	3E 2E 	> . 
	RST 28H			;0013	EF 	. 
	RST 20H			;0014	E7 	. 
	RST 20H			;0015	E7 	. 
	RST 20H			;0016	E7 	. 
	LD A,00AH		;0017	3E 0A 	> . 
	RST 28H			;0019	EF 	. 
	INC (HL)			;001A	34 	4 
	DEC (HL)			;001B	35 	5 
	JR NZ,$-25		;001C	20 E5 	  . 
	HALT			;001E	76 	V 
	NOP			;001F	00 	. 
	LD A,B			;0020	78 	X 
	LD B,C			;0021	41 	A 
	LD C,030H		;0022	0E 30 	. 0 
	RLD		;0024	ED 6F 	. O 
	INC HL			;0026	23 	# 
	EX DE,HL			;0027	EB 	. 
	PUSH AF			;0028	F5 	. 
	RET			;0029	C9 	. 
	JR NC,$+40		;002A	30 26 	0 & 
	LD D,026H		;002C	16 26 	. & 
	INC SP			;002E	33 	3 
	DAA			;002F	27 	' 
	LD (HL),C			;0030	71 	Q 
	ADD A,E			;0031	83 	. 
	LD B,B			;0032	40 	@ 
	ADD HL,HL			;0033	29 	) 
	LD (HL),065H		;0034	36 65 	6 E 
	LD B,E			;0036	43 	C 
	LD SP,02711H		;0037	31 11 27 	1 . ' 
	LD D,B			;003A	50 	P 
	LD (02896H),A		;003B	32 96 28 	2 . ( 
	LD H,B			;003E	60 	` 
	INC (HL)			;003F	34 	4 
	SUB D			;0040	92 	. 
	JR Z,$+101		;0041	28 63 	( C 
	LD (HL),099H		;0043	36 99 	6 . 
	SUB H			;0045	94 	. 
	LD (HL),B			;0046	70 	P 
	ADD HL,SP			;0047	39 	9 
	ADD HL,DE			;0048	19 	. 
	SUB L			;0049	95 	. 
	LD (HL),E			;004A	73 	S 
	LD B,C			;004B	41 	A 
	LD D,E			;004C	53 	S 
	DEC B			;004D	05 	. 
	DJNZ $+70		;004E	10 44 	. D 
	NOP			;0050	00 	. 
	NOP			;0051	00 	. 
	INC DE			;0052	13 	. 
	LD B,(HL)			;0053	46 	F 
	LD H,C			;0054	61 	A 
	LD H,H			;0055	64 	D 
	JR NZ,$+75		;0056	20 49 	  I 
	JR C,$-123		;0058	38 83 	8 . 

download

return to the top page