Back to main page
I've had a lot of visitors but few comments! Let me hear from you! Email me at:
Gene!
This program performs fast plotting with the TI 59 and the PC-100A or C printers. Anyone who has used the Plot 60 program knows that it is painfully slow. This
program uses fast mode to obtain a reduction in execution time of nearly 50 per
cent.
1. Enter the program "before initialisation" as listed below. Be sure to use 2nd-CLR (code 20) at location 019.
2. Perform the hexadecimal code implant sequence. (Make sure the Master Library is installed in the calculator!) Press 10 OP 17 CLR GTO 016 PGM 19 SBR 045 P/R LRN and see 016 55 in the display. Press INS and see 016 55 in the display. Press SST 16 times and see 032 65 in the display. Press INS LRN RST CLR 6 OP 17. If you list the program you will find the code for "after initialisation" as a small separate listing. (Note only the changed steps 014-043 are given, steps 044-159 of the program "after initialisation" are equal to steps 042-157 of the program "before initialisation")
3. Press GTO 216 LRN. Enter your functions. The X value is in the display upon entry to the function and in register 05. You can use all registers above register 14 for intermediate storage. (_do not use (INV) DMS and/or (INV) P/R in your functions_). Once you have calculated the result of your function, press X:T to save the result in the t register, followed by the address of the first instruction of the next function, followed by GTO 118. The last function is followed by 93 GTO 118. Press LRN to return to keyboard control.
4. Enter the printing parameters,
a. Enter the number of function points and press A.
b. Enter Y-min and press R/S.
c. Enter Y-max and press R/S.
d. Enter Xo, the starting value of X, and press R/S.
e. Enter delta-x, the increment in X, and press R/S.
f. Enter the number of tapes and press R/S. Plotting will begin.
Sample to plot, clarifying step 3 above:
Plot 4 functions, Y=0 (aka the X-axis), and three cosines, shifted by 120 degrees. I suggest you use these function parameters, 61 points, Y-min = -1.05, Y-max = +1.05, Xo = -180, delta-x = 6, and one tape. The plot will take about 12.6 minutes.
Function code:
216 29 CP 217 02 2 218 02 2 219 03 3 220 61 GTO 221 01 01 222 18 18 223 39 COS 224 32 X:T 225 02 2 226 03 3 227 01 1 228 61 GTO 229 01 01 230 18 18 231 85 + 232 01 1 233 02 2 234 00 0 235 95 = 236 39 COS 237 32 X:T 238 02 2 239 04 4 240 04 4 241 61 GTO 242 02 01 243 18 18 244 85 + 245 02 2 246 04 4 247 00 0 248 95 = 249 39 COS 250 32 X:T 251 09 9 252 03 3 253 61 GTO 254 01 01 255 18 18Program listing for Plot 60
000 92 RTN 001 76 LBL 002 11 A 003 61 GTO 004 00 00 005 40 40 006 76 LBL 007 12 B 008 61 GTO 009 00 00 010 18 18 011 76 LBL 012 13 C 013 25 CLR 014 69 OP 015 05 05 016 74 SM* 017 90 90 018 12 B 019 20 CLR 020 30 TAN 021 30 TAN 022 61 GTO 023 54 ) 024 00 0 025 93 . 026 01 1 027 34 VX 028 33 X^2 029 35 1/X 030 86 STF 031 71 71 032 35 1/X 033 54 ) 034 66 PAU 035 50 IxI 036 94 +/- 037 73 RC* 038 47 CMS 039 42 STO 040 06 06 041 92 RTN 042 42 STO 043 01 01 044 22 INV 045 44 SUM 046 02 02 047 92 RTN 048 44 SUM 049 02 02 050 92 RTN 051 42 STO 052 03 03 053 92 RTN 054 42 STO 055 04 04 056 92 RTN 057 42 STO 058 08 08 059 22 INV 060 49 PRD 061 02 02 062 43 RCL 063 06 06 064 42 STO 065 00 00 066 43 RCL 067 03 03 068 42 STO 069 05 05 070 12 B 071 13 C 072 97 DSZ 073 00 00 074 00 00 075 72 72 076 98 ADV 077 43 RCL 078 08 08 079 99 PRT 080 43 RCL 081 02 02 082 44 SUM 083 01 01 084 98 ADV 085 97 DSZ 086 08 08 087 00 00 088 64 64 089 00 0 090 92 RTN 091 00 0 092 48 EXC 093 09 09 094 69 OP 095 01 01 096 00 0 097 48 EXC 098 10 10 099 69 OP 100 02 02 101 00 0 102 48 EXC 103 11 11 104 69 OP 105 03 03 106 00 0 107 48 EXC 108 12 12 109 69 OP 110 04 04 111 43 RCL 112 04 04 113 44 SUM 114 05 05 115 92 RTN 116 42 STO 117 14 14 118 01 1 119 53 ( 120 53 ( 121 32 X:T 122 75 - 123 43 RCL 124 01 01 125 54 ) 126 55 / 127 43 RCL 128 02 02 129 54 ) 130 77 GE 131 02 02 132 12 12 133 29 CP 134 22 INV 135 77 GE 136 02 02 137 12 12 138 53 ( 139 53 ( 140 53 ( 141 52 EE 142 65 * 143 04 4 144 85 + 145 09 9 146 75 - 147 59 INT 148 42 STO 149 13 13 150 54 ) 151 65 x 152 05 5 153 42 STO 154 07 07 155 94 +/- 156 75 - 157 59 INT 158 68 NOP 159 68 NOP 160 44 SUM 161 07 07 162 54 ) 163 65 x 164 03 3 165 54 ) 166 53 ( 167 59 INT 168 85 + 169 01 1 170 75 - 171 50 IxI 172 65 x 173 02 2 174 01 1 175 85 + 176 04 4 177 07 7 178 54 ) 179 53 EE 180 94 +/- 181 22 INV 182 57 ENG 183 82 HIR 184 08 08 185 53 ( 186 73 RC* 187 13 13 188 55 / 189 43 RCL 190 07 07 191 22 INV 192 28 LOG 193 33 X^2 194 82 HIR 195 48 48 196 54 ) 197 53 ( 198 22 INV 199 59 INT 200 65 x 201 04 4 202 54 ) 203 59 INT 204 22 INV 205 67 EQ 206 02 02 207 12 12 208 82 HIR 209 18 18 210 74 SM* 211 13 13 212 43 RCL 213 05 05 214 83 GO* 215 14 14After initialisation steps 014-043 look like this when listed on the printer:
014 69 OP 015 05 05 016 0 Note: In LRN mode this step will display as 016 25! 017 92 RTN 018 22 INV 019 58 FIX 020 60 DEG 021 61 GTO 022 00 00 023 26 26 024 54 ) 025 00 0 026 93 . 027 01 1 028 34 VX 029 33 X^2 030 35 1/X 031 86 STF 032 12 12 033 68 NOP 034 43 RCL 035 05 05 036 61 GTO 037 02 02 038 16 16 039 90 LST 040 47 CMS 041 42 STO 042 06 06 043 92 RTNNotes:
33 X^2 = X squared 34 VX = Square root 55 / = Divide 67 EQ = X=T 77 GE = X>=T82 HIR is created by entering STO 82 BST BST DEL
HIR 1-8 are the 8 registers in which the TI-58/9 store pending operations, direct manipulation is possible:
HIR 0x: Store the display in HIR register x (x = 1..8)
HIR 1x: Recall HIR x to display
HIR 2x: Used internally
HIR 3x: HIR x = HIR x + display
HIR 4x: HIR x = HIR x - display
HIR 5x: HIR x = HIR x * display
HIR 6x: HIR x = HIR x / display
HIR 7/8/9x = HIR 6x.
Performing any of the HIR 3/4/5/6x functions with a number between -1 and 1 will change the sign of the implied power of 10, i.e. 0.1 HIR 31 (Add 0.1 to HIR 1) will actually add 10 as 0.1 = 1e-1.
Usual disclaimer rubbish...
For further questions you can contact the author of the above directly:
Email, certainly until 25 July 1997: prinsra@wcg.co.uk
Snail - _NO SAE/IRC = NO REPLY!_
Robert AH Prins 52 Lummis Vale Kesgrave IPSWICH SUFFOLK IP5 2FJ UK