Subfactorial FIXED by *yuko*

.\x01\xcbA(\x02++\xfd#\xfd^<A\x19\x10\xfd|\xb5\x1e
\x04\xedR0\xfb\x19\x05\xfdu<h\xfd\xb6= \xe3y=(\x02\xfd+\xfd~<\xc60\xcd\x00\x800\xf4\x0cy\xfe3 \xc5v\xda

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

Disassemble:

	ORG	00000H

	LD L,001H		;0000	2E 01 	. . 
	BIT 0,C		;0002	CB 41 	. A 
	JR Z,$+4		;0004	28 02 	( . 
	DEC HL			;0006	2B 	+ 
	DEC HL			;0007	2B 	+ 
	INC IY		;0008	FD 23 	. # 
	LD E,(IY+03CH)		;000A	FD 5E 3C 	. ^ < 
	LD B,C			;000D	41 	A 
	ADD HL,DE			;000E	19 	. 
	DJNZ $-1		;000F	10 FD 	. . 
	LD A,H			;0011	7C 	| 
	OR L			;0012	B5 	. 
	LD E,00AH		;0013	1E 0A 	. . 
	INC B			;0015	04 	. 
	SBC HL,DE		;0016	ED 52 	. R 
	JR NC,$-3		;0018	30 FB 	0 . 
	ADD HL,DE			;001A	19 	. 
	DEC B			;001B	05 	. 
	LD (IY+03CH),L		;001C	FD 75 3C 	. U < 
	LD L,B			;001F	68 	H 
	OR (IY+03DH)		;0020	FD B6 3D 	. . = 
	JR NZ,$-27		;0023	20 E3 	  . 
	LD A,C			;0025	79 	Y 
	DEC A			;0026	3D 	= 
	JR Z,$+4		;0027	28 02 	( . 
	DEC IY		;0029	FD 2B 	. + 
	LD A,(IY+03CH)		;002B	FD 7E 3C 	. ~ < 
	ADD A,030H		;002E	C6 30 	. 0 
	CALL 08000H		;0030	CD 00 80 	. . . 
	JR NC,$-10		;0033	30 F4 	0 . 
	INC C			;0035	0C 	. 
	LD A,C			;0036	79 	Y 
	CP 033H		;0037	FE 33 	. 3 
	JR NZ,$-57		;0039	20 C5 	  . 
	HALT			;003B	76 	V 
	DEFB 0DAH		;003C	DA 	. 

download

return top