falling number by *yuko*

D.!~#\x04\xbe8\xfa45+~(\xff\x10\xfa\x010\x04#~<\xb1w\xfe:8\xe3q\x10\xf4v
01

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

Disassemble:

	ORG	00000H

	LD B,H			;0000	44 	D 
	LD L,021H		;0001	2E 21 	. ! 
	LD A,(HL)			;0003	7E 	~ 
	INC HL			;0004	23 	# 
	INC B			;0005	04 	. 
	CP (HL)			;0006	BE 	. 
	JR C,$-4		;0007	38 FA 	8 . 
	INC (HL)			;0009	34 	4 
	DEC (HL)			;000A	35 	5 
	DEC HL			;000B	2B 	+ 
	LD A,(HL)			;000C	7E 	~ 
	JR Z,$+1		;000D	28 FF 	( . 
	DJNZ $-4		;000F	10 FA 	. . 
	LD BC,00430H		;0011	01 30 04 	. 0 . 
	INC HL			;0014	23 	# 
	LD A,(HL)			;0015	7E 	~ 
	INC A			;0016	3C 	< 
	OR C			;0017	B1 	. 
	LD (HL),A			;0018	77 	W 
	CP 03AH		;0019	FE 3A 	. : 
	JR C,$-27		;001B	38 E3 	8 . 
	LD (HL),C			;001D	71 	Q 
	DJNZ $-10		;001E	10 F4 	. . 
	HALT			;0020	76 	V 
	LD A,(BC)			;0021	0A 	. 
	JR NC,$+51		;0022	30 31 	0 1 

download

return top