Gray code by ySas

\xd7G5\x13\x18YC\x0c\x0b\x01E\x00NS=\xff#\xae \xfb\xcd\x03\x80\xff\x04\xcb\x00= \xfbP\x15>
\xff{\x1f\xabo&\x18\x0c)\xcb\x020\xf8|\xef\xfa'\x00\x1c\x10\xe9v

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

Disassemble:

	ORG	00000H

	RST 10H			;0000	D7 	. 
	LD B,A			;0001	47 	G 
	DEC (HL)			;0002	35 	5 
	INC DE			;0003	13 	. 
	JR $+91		;0004	18 59 	. Y 
	LD B,E			;0006	43 	C 
	INC C			;0007	0C 	. 
	DEC BC			;0008	0B 	. 
	LD BC,00045H		;0009	01 45 00 	. E . 
	LD C,(HL)			;000C	4E 	N 
	LD D,E			;000D	53 	S 
	DEC A			;000E	3D 	= 
	RST 38H			;000F	FF 	. 
	INC HL			;0010	23 	# 
	XOR (HL)			;0011	AE 	. 
	JR NZ,$-3		;0012	20 FB 	  . 
	CALL 08003H		;0014	CD 03 80 	. . . 
	RST 38H			;0017	FF 	. 
	INC B			;0018	04 	. 
	RLC B		;0019	CB 00 	. . 
	DEC A			;001B	3D 	= 
	JR NZ,$-3		;001C	20 FB 	  . 
	LD D,B			;001E	50 	P 
	DEC D			;001F	15 	. 
	LD A,00AH		;0020	3E 0A 	> . 
	RST 38H			;0022	FF 	. 
	LD A,E			;0023	7B 	{ 
	RRA			;0024	1F 	. 
	XOR E			;0025	AB 	. 
	LD L,A			;0026	6F 	O 
	LD H,018H		;0027	26 18 	& . 
	INC C			;0029	0C 	. 
	ADD HL,HL			;002A	29 	) 
	RLC D		;002B	CB 02 	. . 
	JR NC,$-6		;002D	30 F8 	0 . 
	LD A,H			;002F	7C 	| 
	RST 28H			;0030	EF 	. 
	JP M,00027H		;0031	FA 27 00 	. ' . 
	INC E			;0034	1C 	. 
	DJNZ $-21		;0035	10 E9 	. . 
	HALT			;0037	76 	V 

download

return top