Lucky numbers by *yuko*

\x1b\x1b\x1a\xb7 \xfbgoBK+~\xb7 \xfb\x03x\xb1 \xf64\xcbt \xef\xcbZ \xe4\xd9\x1b\x1a\xb7 \x0b.D~+\xfe \xd4\x00\x80 \xf7\x010\x04.@#~<\xb1w\xfe:8\xe2q\x10\xf4v 1

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

Disassemble:

	ORG	00000H

	DEC DE			;0000	1B 	. 
	DEC DE			;0001	1B 	. 
	LD A,(DE)			;0002	1A 	. 
	OR A			;0003	B7 	. 
	JR NZ,$-3		;0004	20 FB 	  . 
	LD H,A			;0006	67 	G 
	LD L,A			;0007	6F 	O 
	LD B,D			;0008	42 	B 
	LD C,E			;0009	4B 	K 
	DEC HL			;000A	2B 	+ 
	LD A,(HL)			;000B	7E 	~ 
	OR A			;000C	B7 	. 
	JR NZ,$-3		;000D	20 FB 	  . 
	INC BC			;000F	03 	. 
	LD A,B			;0010	78 	X 
	OR C			;0011	B1 	. 
	JR NZ,$-8		;0012	20 F6 	  . 
	INC (HL)			;0014	34 	4 
	BIT 6,H		;0015	CB 74 	. T 
	JR NZ,$-15		;0017	20 EF 	  . 
	BIT 3,D		;0019	CB 5A 	. Z 
	JR NZ,$-26		;001B	20 E4 	  . 
	EXX			;001D	D9 	. 
	DEC DE			;001E	1B 	. 
	LD A,(DE)			;001F	1A 	. 
	OR A			;0020	B7 	. 
	JR NZ,$+13		;0021	20 0B 	  . 
	LD L,044H		;0023	2E 44 	. D 
	LD A,(HL)			;0025	7E 	~ 
	DEC HL			;0026	2B 	+ 
	CP 020H		;0027	FE 20 	.   
	CALL NC,08000H		;0029	D4 00 80 	. . . 
	JR NZ,$-7		;002C	20 F7 	  . 
	LD BC,00430H		;002E	01 30 04 	. 0 . 
	LD L,040H		;0031	2E 40 	. @ 
	INC HL			;0033	23 	# 
	LD A,(HL)			;0034	7E 	~ 
	INC A			;0035	3C 	< 
	OR C			;0036	B1 	. 
	LD (HL),A			;0037	77 	W 
	CP 03AH		;0038	FE 3A 	. : 
	JR C,$-28		;003A	38 E2 	8 . 
	LD (HL),C			;003C	71 	Q 
	DJNZ $-10		;003D	10 F4 	. . 
	HALT			;003F	76 	V 
	JR NZ,$+51		;0040	20 31 	  1 

download

return to the top page