Langtons Ant by *yuko*

OT]))\x19)\x09\xcd\x03\x80\xd600\xf1\xd9!DD\x1d\x144(\x04\x15\x1555z\xe6\x02=\xcbB \x03\x85o\xaf\x84g\xb88\x01D}\xb98\x01M\xbb0\x01]\xd9\xdb\xc3+}\xb4\xd9 \xd5QK
\xe6\x03\xf6 \xffy\x0c\xba8\xf5>
\xff\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 	. 
	INC D			;0014	14 	. 
	INC (HL)			;0015	34 	4 
	JR Z,$+6		;0016	28 04 	( . 
	DEC D			;0018	15 	. 
	DEC D			;0019	15 	. 
	DEC (HL)			;001A	35 	5 
	DEC (HL)			;001B	35 	5 
	LD A,D			;001C	7A 	Z 
	AND 002H		;001D	E6 02 	. . 
	DEC A			;001F	3D 	= 
	BIT 0,D		;0020	CB 42 	. B 
	JR NZ,$+5		;0022	20 03 	  . 
	ADD A,L			;0024	85 	. 
	LD L,A			;0025	6F 	O 
	XOR A			;0026	AF 	. 
	ADD A,H			;0027	84 	. 
	LD H,A			;0028	67 	G 
	CP B			;0029	B8 	. 
	JR C,$+3		;002A	38 01 	8 . 
	LD B,H			;002C	44 	D 
	LD A,L			;002D	7D 	} 
	CP C			;002E	B9 	. 
	JR C,$+3		;002F	38 01 	8 . 
	LD C,L			;0031	4D 	M 
	CP E			;0032	BB 	. 
	JR NC,$+3		;0033	30 01 	0 . 
	LD E,L			;0035	5D 	] 
	EXX			;0036	D9 	. 
	IN A,(0C3H)		;0037	DB C3 	. . 
	DEC HL			;0039	2B 	+ 
	LD A,L			;003A	7D 	} 
	OR H			;003B	B4 	. 
	EXX			;003C	D9 	. 
	JR NZ,$-41		;003D	20 D5 	  . 
	LD D,C			;003F	51 	Q 
	LD C,E			;0040	4B 	K 
	LD A,(BC)			;0041	0A 	. 
	AND 003H		;0042	E6 03 	. . 
	OR 020H		;0044	F6 20 	.   
	RST 38H			;0046	FF 	. 
	LD A,C			;0047	79 	Y 
	INC C			;0048	0C 	. 
	CP D			;0049	BA 	. 
	JR C,$-9		;004A	38 F5 	8 . 
	LD A,00AH		;004C	3E 0A 	> . 
	RST 38H			;004E	FF 	. 
	DJNZ $-15		;004F	10 EF 	. . 
	HALT			;0051	76 	V 

download

return to the top page