TITLE	FACT
	ORG	10
START:	L	2,N
	L	3,MAX
	CMP	2,(3)
	BP	OV
	BSR	FACT
	ST	1,RSLT
OV:	HLT
N:	DC	8
MAX:	DC	8
RSLT:	DS	1
FACT:	SUB	2,1
	BNP	RETN
	PUSH	2,1
	BSR	FACT
	POP	3,1
	LEA	0,(1)
	MULT	0,1(3)
	RET
RETN:	LC	1,1
	RET
	ORG	100
STACK:	DS	64
	END