˙˙˙˙ 'Ž$;Berechnung der Eulerschen Zahl e auf ;bis zu 501 Stellen Genauigkeit0;(c) by Joerg Wittich, Donaueschingen@;PANZ EQU 240 ;Anzahl der Glieder (max. 256)`STELLE EQU 155 ;Nachkommastellen/3pLNG EQU 200 ;Laenge der Var.(>1.25*STELLE)€;w˙˙˙˙!' ORG 1000H CALL CLEAR RST 28H  DEFM "Calculating..."0 DEFB 0@ LD A,1P LD (FAK),A ;FAK:=1` LD (SUM),A ;SUM:=1p LD B,ANZ ;FOR I:=1 TO ANZ DO€LOOP LD A,ANZ+1 SUB B CALL DIV ;FAK:=FAK/I CALL ADD ;SUM:=SUM+FAK  DJNZ LOOP0 CALL PŮ˙˙˙˙"'RINT ;WRITE(SUM)@ SCAL 5BHP;`CLEAR LD HL,FAK ;Variablen loeschenp LD DE,FAK+1€ LD BC,LNG+LNG-1 LD (HL),0 LDIR LD A,0CH ;Schirm loeschen  RST 30H0 RET@;PADD PUSH BC` LD HL,SUM+LNGp LD DE,FAK+LNG€ LD B,LNGLP DEC HL DEC ľ˙˙˙˙#'DE LD A,(DE)  ADC A,(HL)0 LD (HL),A@ DJNZ LPP POP BC` RETp;€MUL10 PUSH BC ;Multiplikation mit 10 LD HL,PPUF+LNG LD BC,LNGM1 DEC HL  LD E,(HL)0 PUSH HL@ LD H,0P LD D,H` LD L,Ep ADD HL,HL ;*2€ ADD HL,HL ;*4 ADD HL,Dß˙˙˙˙$'E ;*5 ADD HL,HL ;*10 LD E,B  ADD HL,DE ;+Uebertrag0 LD B,H@ LD E,LP POP HL` LD (HL),Ep DEC C€ JR NZ,M1 POP BC RET; PRINT PUSH BC0 LD HL,080AH ;Printposition@ LD (0C29H),HLP LD HL,SUM ;Kopie in Printpuffer` LD DE,PPUFŠ˙˙˙˙%'p LD BC,LNG€ LDIR RST 28H DEFM "e=" DEFB 0  LD A,(HL)0 OR 30H@ RST 30HP LD (HL),0` LD A,".p RST 30H€ LD BC,300H+STELLEPL CALL MUL10 LD A,(HL) OR 30H RST 30H0 LD (HL),0@ DJNZ PLP LD A,",` RST 30Hp LD B,3€ DEŠ˙˙˙˙&'C C JR NZ,PL POP BC RET ;0DIV PUSH BC@ LD B,LNGP LD C,A` LD DE,FAKp LD L,0€DL PUSH BC LD B,8 PUSH DE LD A,(DE)  LD H,L0 LD L,A@ XOR AP LD E,A` LD D,CpD1 SRL D€ RR E SBC HL,DE JR NC,D2 ADD HL,DE D2 CCß˙˙˙˙'łÚF0 RLA@ DJNZ D1P POP DE` LD (DE),Ap INC DE€ POP BC DJNZ DL POP BC RET ;0FAK DEFS LNG@SUM DEFS LNGPPPUF DEFS LNG˙đ›Č->GPWm¤­ˇŔĚ”\Ü