Extended Precision e II

About the program

This program calculates "e" to 1300 places, but it does not print the result. The program was originally written by Bjorn Gustavsson and his version appeared in the newsletter of the Swedish club in 1980. [Programbiten 80-4, pages 6-7]

The version presented here has been changed slightly. Modifications include:

Method Used

The method used in this program is the same as the one used in EPe1.

The differences in the storage format are: :fn id=hir.While the program is running, HIR 7 is used instead of R00, because you always need a register for indirect functions.:efn

The method described is implemented in this program in steps 003-012 (the addition of 1.E12 and decrease of HIR\8\(=N)) and steps 027-109 (the division over 99\registers and HIR\7)

The TI-59 Version

User Instructions

The instructions for this version of the program are:

  1. Enter the program.
  2. Press A. The program will stop with a flashing\1 in the display.
  3. Now press 7 EE to start the program in Fast Mode.
  4. When the program has ended, you can find the result in R99 [MSD] through R00\[LSD], 13\digits per register. The program does not print the result.
  5. The result can be displayed performing the following steps for every register, starting with R99, down to R00:
  6. To record the result, you can press E, and insert four card-sides.

If you consider the above method of displaying the result not "Anwenderfreundlich", you are right. To make things a little easier, you can enter the following short program from the keyboard when the program has finished. After having entered it, you can press E, repeatedly followed by R/S to display the result. (If you have a PC-100, you can of course change steps 009 and 016 into PRT) The read-out is complete when a flashing zero appears. .sk Listing of the read-out program .sk

000  76 LBL         015  07  7          030  09  09         045  54  )
001  15  E          016  22 INV         031  82 HIR         046  58 FIX
002  50 IxI         017  57 ENG         032  18  18         047  07  07
003  09  9          018  75  -          033  53  (          048  91 R/S
004  09  9          019  59 INT         034  42 STO         049  22 INV
005  48 EXC         020  91 R/S         035  00  00         050  58 FIX
006  00  00         021  54  )          036  55  ö          051  00  0
007  82 HIR         022  58 FIX         037  01  1          052  69 OP
008  08  08         023  07  07         038  52 EE          053  68  68
009  53  (          024  91 R/S         039  07  7          054  92 RTN
010  73 RC*         025  22 INV         040  22 INV
011  00  00         026  58 FIX         041  57 ENG
012  55  ö          027  97 DSZ         042  75  -
013  01  1          028  00  00         043  59 INT
014  52 EE          029  00  00         044  91 R/S
<\pre>

Listing of the TI-59 Version

000  92 RTN         040  73 RC*         080  53  (          120  04  4
001  82 HIR         041  00  00         081  46 INS         121  96 WRT
002  07  07         042  55  ö          082  55  ö          122  00  0
003  01  1          043  01  1          083  82 HIR         123  92 RTN
004  82 HIR         044  52 EE          084  18  18         124  00  0
005  58  58         045  03  3          085  54  )          125  00  0
006  52 EE          046  75  -          086  59 INT         126  00  0
007  01  1          047  59 INT         087  82 HIR         127  00  0
008  02  2          048  82 HIR         088  36  36         128  00  0
009  22 INV         049  06  06         089  65  x          129  00  0
010  52 EE          050  54  )          090  82 HIR         130  00  0
011  44 SUM         051  53  (          091  18  18         131  00  0
012  99  99         052  53  (          092  54  )          132  00  0
013  82 HIR         053  32 X:T         093  22 INV         133  00  0
014  18  18         054  85  +          094  52 EE          134  00  0
015  66 PAU         055  82 HIR         095  52 EE          135  00  0
016  29 CP          056  16  16         096  01  1          136  00  0
017  67 X=T         057  75  -          097  00  0          137  00  0
018  01  01         058  53  (          098  32 X:T         138  00  0
019  10  10         059  24 CE          099  82 HIR         139  00  0
020  01  1          060  55  ö          100  16  16         140  76 LBL
021  00  0          061  82 HIR         101  72 ST*         141  11  A
022  00  0          062  18  18         102  00  00         142  22 INV
023  42 STO         063  54  )          103  87 IFF         143  57 ENG
024  00  00         064  59 INT         104  00  00         144  22 INV
025  86 STF         065  82 HIR         105  00  00         145  58 FIX
026  00  00         066  06  06         106  27  27         146  60 DEG
027  53  (          067  65  x          107  61 GTO         147  05  5
028  97 DSZ         068  82 HIR         108  00  00         148  06  6
029  00  00         069  18  18         109  01  01         149  05  5
030  00  00         070  85  +          110  81 RST         150  82 HIR
031  40  40         071  32 X:T         111  76 LBL         151  08  08
032  22 INV         072  54  )          112  15  E          152  69 OP
033  86 STF         073  65  x          113  50 IxI         153  17  17
034  00  00         074  01  1          114  01  1          154  47 CMS
035  82 HIR         075  52 EE          115  96 WRT         155  04  4
036  17  17         076  03  3          116  02  2          156  05  5
037  61 GTO         077  82 HIR         117  96 WRT         157  30 TAN
038  00  00         078  46  46         118  03  3          158  33 Xý
039  42  42         079  75  -          119  96 WRT         159  86 STF
<\pre>

The TI-58 Version

User Instructions

The user instructions of this version are almost equal to those of the TI-59 version. The difference is the fact the solution cannot be recorded on magnetic cards.

Listing of the TI-58 Version

To obtain the TI-58 version of the program, you first key in the TI-59 version. Next you make the following modifications in the indicated order:

  1. Change step 012 into "39".
  2. Change step 019 into "09".
  3. Change step 021 into "04".
  4. Change step 022 into "00".
  5. Change step 031 into "39".
  6. Change step 039 into "41".
  7. Change step 106 into "26".
  8. Change steps 111-123 into "0".
  9. Change steps 147-149 into "2" "6" "3".
  10. Delete step 020.
  11. Insert a "4" between steps 150 and 151.

Instead of first entering the TI-59 version, it is of course also possible to make the above changes directly while keying in the program.

If you want to use the read-out program, you have to change step 003 of it into\"3".

The TI-66 Version

User Instructions

The user instructions for this version of the program are:

  1. Set the partitioning to 95.51 [Part 52].
  2. Enter the Calculate Part of the program.
  3. Press A. The program will start directly.
  4. When the program has ended, you can enter the Read-out Part.
  5. The result can now be displayed by pressing E, repeatedly followed by R/S. The read-out is complete when a zero with nine decimal points appears.

Listing of the TI-66 Version [Calculate Part]

000  29 LBL         025  A9 RTN         050  3D  /          075  76 INT
001  10  A          026  05  5          051  33 RCL         076  B4 SM*
002  6B CMS         027  00  0          052  C9  51         077  F5  00
003  03  3          028  32 STO         053  2B  )          078  3C  x
004  01  1          029  F5  00         054  76 INT         079  33 RCL
005  06  6          030  2A  (          055  B2 ST*         080  C9  51
006  32 STO         031  B3 RC*         056  F5  00         081  2B  )
007  C9  51         032  F5  00         057  3C  x          082  1B EE
008  01  1          033  3D  /          058  33 RCL         083  01  1
009  31 INV         034  03  3          059  C9  51         084  00  0
010  34 SUM         035  31 INV         060  3A  +          085  31 INV
011  C9  51         036  75 LOG         061  24 X:T         086  1B EE
012  01  1          037  3B  -          062  2B  )          087  24 X:T
013  02  2          038  76 INT         063  3C  x          088  65 DSZ
014  31 INV         039  B2 ST*         064  03  3          089  F5  00
015  75 LOG         040  F5  00         065  31 INV         090  94  30
016  34 SUM         041  2B  )          066  75 LOG         091  27 GTO
017  C8  50         042  2A  (          067  F4 PD*         092  F5  00
018  33 RCL         043  2A  (          068  F5  00         093  FD  08
019  C9  51         044  24 X:T         069  3B  -
020  66 PAU         045  3A  +          070  2A  (
021  41 CP          046  B3 RC*         071  3D  /
022  31 INV         047  F5  00         072  33 RCL
023  64 X=T         048  3B  -          073  C9  51
024  90  26         049  2A  (          074  2B  )

Listing of the TI-66 Version [Read-out Part]

000 29 LBL 008 F5 00 016 2B ) 024 F5 00 001 18 E 009 3D / 017 42 FIX 025 FB 06 002 05 5 010 07 7 018 FC 07 026 00 0 003 00 0 011 31 INV 019 25 R/S 027 36 1/X 004 32 STO 012 75 LOG 020 31 INV 028 A9 RTN 005 F5 00 013 3B - 021 42 FIX 006 2A ( 014 76 INT 022 65 DSZ 007 B3 RC* 015 25 R/S 023 F5 00 <\pre>

Some last notes about the programs

  • The precision of the results of the various programs is:
  • .fo off
    • For the TI-59 version: 1300 digits.
    • For the TI-58 version: 520 digits.
    • For the TI-66 version: 650 digits.
  • The approximate execution times for the programs are:
  • .fo off
    • For the TI-59 version: 24h30'.
    • For the TI-58 version: 4h15'.
    • For the TI-66 version: 25h00'.
    .fo on
  • To use the programs in Normal Mode, you can press RST R/S R/S when the flashing 1 appears. This is useful when you want to SST through them or use them with a PC-100 in TRACE mode.