Subfactorial FIXED by *yuko*

\xfd!\xb3\x00\x04\x0eabj\xc5\xfd~\x9c\xfd\x86\x00_\x19\x10\xfd\x0e\xff\x1e
\x0c\xedR0\xfb\x19\xfdudi\xfd#\xc1\x0d \xe1\xc5\x06a\xc4\x00\x80\xfd+\xfd~\x9c\xb7(\x01O\xc60\x0d\x0c\x10\xee\xcd\x00\x80{\xcd\x00\x80\x0ed\xfd\x09\xc1x\xfe3 \xb6v\x01

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

Disassemble:

	ORG	00000H

	LD IY,000B3H		;0000	FD 21 B3 00 	. ! . . 
	INC B			;0004	04 	. 
	LD C,061H		;0005	0E 61 	. A 
	LD H,D			;0007	62 	B 
	LD L,D			;0008	6A 	J 
	PUSH BC			;0009	C5 	. 
	LD A,(IY-064H)		;000A	FD 7E 9C 	. ~ . 
	ADD A,(IY+000H)		;000D	FD 86 00 	. . . 
	LD E,A			;0010	5F 	_ 
	ADD HL,DE			;0011	19 	. 
	DJNZ $-1		;0012	10 FD 	. . 
	LD C,0FFH		;0014	0E FF 	. . 
	LD E,00AH		;0016	1E 0A 	. . 
	INC C			;0018	0C 	. 
	SBC HL,DE		;0019	ED 52 	. R 
	JR NC,$-3		;001B	30 FB 	0 . 
	ADD HL,DE			;001D	19 	. 
	LD (IY+064H),L		;001E	FD 75 64 	. U D 
	LD L,C			;0021	69 	I 
	INC IY		;0022	FD 23 	. # 
	POP BC			;0024	C1 	. 
	DEC C			;0025	0D 	. 
	JR NZ,$-29		;0026	20 E1 	  . 
	PUSH BC			;0028	C5 	. 
	LD B,061H		;0029	06 61 	. A 
	CALL NZ,08000H		;002B	C4 00 80 	. . . 
	DEC IY		;002E	FD 2B 	. + 
	LD A,(IY-064H)		;0030	FD 7E 9C 	. ~ . 
	OR A			;0033	B7 	. 
	JR Z,$+3		;0034	28 01 	( . 
	LD C,A			;0036	4F 	O 
	ADD A,030H		;0037	C6 30 	. 0 
	DEC C			;0039	0D 	. 
	INC C			;003A	0C 	. 
	DJNZ $-16		;003B	10 EE 	. . 
	CALL 08000H		;003D	CD 00 80 	. . . 
	LD A,E			;0040	7B 	{ 
	CALL 08000H		;0041	CD 00 80 	. . . 
	LD C,064H		;0044	0E 64 	. D 
	ADD IY,BC		;0046	FD 09 	. . 
	POP BC			;0048	C1 	. 
	LD A,B			;0049	78 	X 
	CP 033H		;004A	FE 33 	. 3 
	JR NZ,$-72		;004C	20 B6 	  . 
	HALT			;004E	76 	V 
	DEFB 001H		;004F	01 	. 

download

return top