Lucky numbers by *yuko*

\x1b\x1b\x1a\xb7 \xfbgoBK+~\xb7 \xfb\x03x\xb1 \xf64\xcbt \xef\xcbZ \xe4\xd9\x1b\x1a\xb7 
j~+\xfe \xd4\x00\x80 \xf7\x010\x04.?#~<\xb1w\xfe:8\xe3q\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,$+12		;0021	20 0A 	  . 
	LD L,D			;0023	6A 	J 
	LD A,(HL)			;0024	7E 	~ 
	DEC HL			;0025	2B 	+ 
	CP 020H		;0026	FE 20 	.   
	CALL NC,08000H		;0028	D4 00 80 	. . . 
	JR NZ,$-7		;002B	20 F7 	  . 
	LD BC,00430H		;002D	01 30 04 	. 0 . 
	LD L,03FH		;0030	2E 3F 	. ? 
	INC HL			;0032	23 	# 
	LD A,(HL)			;0033	7E 	~ 
	INC A			;0034	3C 	< 
	OR C			;0035	B1 	. 
	LD (HL),A			;0036	77 	W 
	CP 03AH		;0037	FE 3A 	. : 
	JR C,$-27		;0039	38 E3 	8 . 
	LD (HL),C			;003B	71 	Q 
	DJNZ $-10		;003C	10 F4 	. . 
	HALT			;003E	76 	V 
	JR NZ,$+51		;003F	20 31 	  1 

download

return to the top page