HP35s-routines/T at master · exzombie/HP35s-routines · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
LBL T
GTO T005
GTO T025
TABULATE1 CK=7B7F
R⬆
x<>y
R⬆
STO J
R⬆
ENTER
R⬇
-
+/-
x<>y
÷
x<>y
R⬇
R⬇
CLx
RCL J
R⬆
R⬆
GTO T026
TABULATE2 CK=4B1C
999999999999
CF 10
REGZ
R⬇
x<> J
CLx
200.202
x<> J
STO(J)
R⬇
ISG J
GTO T033
GTO T054
NEXT
200.202
STO J
RCL(J)
ISG J
GTO T041
+
DSE J
ENTER
STO(J)
ISG J
ENTER
x≥y?
GTO T064
GTO T054
EVAL
STO(J)
XEQ F001
x<> J
CLx
203
x<> J
RCL(J)
x<>y
STOP
GTO T039
SF 10
DONE
CF 10
RTN

CK=42A6
LN=264

Routine TABULATE. Executes program F to evaluate it over the specified interval.
F must take its argument from the stack and put back its result. It must
not overwrite memory allocated to T, but may otherwise do anything. TABULATE
stops evaluation after each point, displaying the current input in the y
register and the current result in the x register. Resume calculation with R/S.

Public subroutines:
T002 TABULATE1 takes three values from the stack: start, stop and steps.
T003 TABULATE2 takes two values from the stack: start and stepsize.

Uses memory: J
Uses routines: F

Private subroutines:
NEXT restores the current position, calculates the next step and stops if done.
EVAL calls F and displays both the result and the input value.