;
; rta_tst0_e.asm
; ==============
;
; Computation of e
;
;                1
; e = sum       ---
;     [n=0..]    n!
;
; 16.06.2005
;
	_name	e
	mov	e	1	
	mov	n	0	
	mov	f!	1		; 0! =  1
	clr	restgl			; the "restglied" is 0
	cls
loop:
	add	n	1		; 1 to n
	mov	restgl	1		; 1 to restgl
	mul	f!	n		; n to variable "f!" 
	div	restgl	f!		; restgl/f!
	errjump	ende			; 
	add	e	restgl		; accumulate e
	printn	n	3	0	; output of n in internal output text area "Ausgabetext" (3 digits)
	prints	:~			; the ~ is an space
	printn	e	1	15	; output of e with 1.15 digits
	prints  \ 			; newline output
  	cmplt	n	30	loop	; loop n less than 100
ende:
	save	rta_e
	output	e	Computation~finished.~Result~is~also~written~into~file~rta_e.txt
	exit				; programmende
	_end