.TITLE EXAMP.MAC

	.MCALL .TTYOUT, .EXIT, .PRINT
	


	N = 70.		;N - вхякн гмювюыху жхтп

;	опнцпюллю бшвхякемхъ ясллш он тнплске:
;	E = 1/0! + 1/1! + 1/2! + 1/3! + 1/4! + 1/5! + ...

EXP:	.PRINT	#MESSAG 	
	MOV	#N,R5		
FIRST:	MOV	#N+1,R0		
	MOV	#A,R1		
SECOND:	ASL	@R1		
	MOV	@R1,-(SP)	
	ASL	@R1		
	ASL	@R1		
	ADD	(SP)+,(R1)+	
	DEC	R0		
	BNE	SECOND		
	MOV	#N,R0		
THIRD:	MOV	-(R1),R3	
	MOV	#-1,R2		
FOURTH:	INC	R2		
	SUB	R0,R3		
	BCC	FOURTH		
	ADD	R0,R3		
	MOV	R3,@R1		
	ADD	R2,-2(R1)	
	DEC	R0		
	BNE	THIRD		
	MOV	-(R1),R0	
FIFTH:	SUB	#10.,R0		
	BCC	FIFTH		
	ADD	#10.+'0,R0	
	.TTYOUT			
	CLR	@R1		
	DEC	R5		
	BNE	FIRST		
	.EXIT			
A:	.REPT	N+1
	.WORD	1		
	.ENDR
MESSAG:	.ASCII	/E = 2./ <200>
	.EVEN
	.END	EXP