PLOT 60 IN FAST MODE by Robert Prins

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.


User Instructions:

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  18
Program 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  14
After 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 RTN
Notes:
33 X^2 = X squared
34 VX  = Square root
55  /  = Divide
67 EQ  = X=T
77 GE  = X>=T 
82 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

Visitors since 6/13/97