Langtons Ant by *yuko*

OT]))\x19)\x09\xcd\x03\x80\xd600\xf1\xd9!DD\x1d\x154(\x04\x14\x1455z\x1f8\x0b\x1f8\x02,,-\x18\x09\xc3\x00\x80\x1f8\x02$$%|\xb88\x01D}\xb98\x01M\xbb0\x01]\xd9+|\xb5\xd9 \xceQJ
\xe6\x03\xf6 \xef{\xb9\x0d8\xf5>
\xef\x10\xefv

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

Disassemble:

	ORG	00000H

	LD C,A			;0000	4F 	O 
	LD D,H			;0001	54 	T 
	LD E,L			;0002	5D 	] 
	ADD HL,HL			;0003	29 	) 
	ADD HL,HL			;0004	29 	) 
	ADD HL,DE			;0005	19 	. 
	ADD HL,HL			;0006	29 	) 
	ADD HL,BC			;0007	09 	. 
	CALL 08003H		;0008	CD 03 80 	. . . 
	SUB 030H		;000B	D6 30 	. 0 
	JR NC,$-13		;000D	30 F1 	0 . 
	EXX			;000F	D9 	. 
	LD HL,04444H		;0010	21 44 44 	! D D 
	DEC E			;0013	1D 	. 
	DEC D			;0014	15 	. 
	INC (HL)			;0015	34 	4 
	JR Z,$+6		;0016	28 04 	( . 
	INC D			;0018	14 	. 
	INC D			;0019	14 	. 
	DEC (HL)			;001A	35 	5 
	DEC (HL)			;001B	35 	5 
	LD A,D			;001C	7A 	Z 
	RRA			;001D	1F 	. 
	JR C,$+13		;001E	38 0B 	8 . 
	RRA			;0020	1F 	. 
	JR C,$+4		;0021	38 02 	8 . 
	INC L			;0023	2C 	, 
	INC L			;0024	2C 	, 
	DEC L			;0025	2D 	- 
	JR $+11		;0026	18 09 	. . 
	JP 08000H		;0028	C3 00 80 	. . . 
	RRA			;002B	1F 	. 
	JR C,$+4		;002C	38 02 	8 . 
	INC H			;002E	24 	$ 
	INC H			;002F	24 	$ 
	DEC H			;0030	25 	% 
	LD A,H			;0031	7C 	| 
	CP B			;0032	B8 	. 
	JR C,$+3		;0033	38 01 	8 . 
	LD B,H			;0035	44 	D 
	LD A,L			;0036	7D 	} 
	CP C			;0037	B9 	. 
	JR C,$+3		;0038	38 01 	8 . 
	LD C,L			;003A	4D 	M 
	CP E			;003B	BB 	. 
	JR NC,$+3		;003C	30 01 	0 . 
	LD E,L			;003E	5D 	] 
	EXX			;003F	D9 	. 
	DEC HL			;0040	2B 	+ 
	LD A,H			;0041	7C 	| 
	OR L			;0042	B5 	. 
	EXX			;0043	D9 	. 
	JR NZ,$-48		;0044	20 CE 	  . 
	LD D,C			;0046	51 	Q 
	LD C,D			;0047	4A 	J 
	LD A,(BC)			;0048	0A 	. 
	AND 003H		;0049	E6 03 	. . 
	OR 020H		;004B	F6 20 	.   
	RST 28H			;004D	EF 	. 
	LD A,E			;004E	7B 	{ 
	CP C			;004F	B9 	. 
	DEC C			;0050	0D 	. 
	JR C,$-9		;0051	38 F5 	8 . 
	LD A,00AH		;0053	3E 0A 	> . 
	RST 28H			;0055	EF 	. 
	DJNZ $-15		;0056	10 EF 	. . 
	HALT			;0058	76 	V 

download

return to the top page