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:
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 instructions for this version of the program are:
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:
- Change step 012 into "39".
- Change step 019 into "09".
- Change step 021 into "04".
- Change step 022 into "00".
- Change step 031 into "39".
- Change step 039 into "41".
- Change step 106 into "26".
- Change steps 111-123 into "0".
- Change steps 147-149 into "2" "6" "3".
- Delete step 020.
- 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:
- Set the partitioning to 95.51 [Part 52].
- Enter the Calculate Part of the program.
- Press A. The program will start directly.
- When the program has ended, you can enter the Read-out Part.
- 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