Back to main page | Email me at: Gene!

This program allows you to experiment with standard algebraic logic on the HP-67/97. You can use parentheses and even an equal sign. You can have up to 13 pending operations!

Initial Instructions:
Assignments made to the top row of user defined keys are as follows:

a ->  CLR   b ->  Y^X    c ->  CHS   d ->  (    e ->  )
A ->  +     B ->  -      C ->  *     D ->  /    E ->  =

Line      Instruction
01         LBL a
02         CF 1
03         CF 2
04         CF 3
05         CL REG
06         P <> S
07         CL REG
08         1
09         2
10         STO D
11         1
12         CHS
13         STO E
14         CLX
15         RTN
16         LBL A
17         6
18         1
19         GTO 0
20         LBL B
21         5
22         1
23         GTO 0
24         LBL C
25         4
26         2
27         GTO 0
28         LBL D
29         3
30         2
31         GTO 0
32         LBL b
33         1
34         4
35         GTO 0
36         LBL c
37         2
38         3
39         GTO 0
40         LBL d
41         5
42         LBL 0
43         EEX
44         1
45         /
46         STO C
47         INT
48         X NE 0
49         GTO 0
50         F? 1
51         GSB 3
52         LBL 0
53         RDN
54         F? 3
55         GSB 2
56         RCL C
57         INT
58         X = 0
59         GTO 0
60         RCL E
61         X < 0
62         GTO 0
63         ST I
64         RCL (i)
65         FRAC
66         RCL C
67         FRAC
68         X > Y
69         GTO 0
70         RCL (i)
71         INT
72         X NE 0
73         GSB 1
74         LBL 0
75         RCL E
76         1
77         +
78         STO E
79         ST I
80         1
81         3
82         X < = Y
83         SIN-1
84         RCL C
85         STO (i)
86         RCL D
87         ST I
88         RCL (i)
89         CF 1
90         GTO B
91         LBL e
92         1
93         STO C
94         X <> Y
95         F? 3
96         GSB 2
97         RCL E
98         X < 0
99         SQRT
100        ST I
101        RCL (i)
102        INT
103        X = 0
104        GTO A
105        GSB 1
106        GTO e
107        LBL A
108        RCL E
109        1
110        -
111        STO E
112        RCL D
113        ST I
114        RCL (i)
115        SF 1
116        GTO B
117        LBL E
118        1
119        STO C
120        X <> Y
121        F? 3
122        GSB 2
123        RCL E
124        X < 0
125        GTO O
126        ST I
127        RCL (i)
128        GSB 1
129        GTO E
130        LBL 0
131        RCL (i)
132        GSB a
133        RDN
134        RDN
135        SF 3
136        GTO b
137        LBL 2
138        2
139        1
140        RCL D
141        1
142        +
143        STO D
144        ST I
145        -
146        X < 0
147        SQRT
148        RDN
149        STO (i)
150        RCL C
151        INT
152        X NE 0
153        RTN
154        LBL 3
155        RCL E
156        1
157        +
158        STO E
159        ST I
160        4
161        .
162        2
163        STO (i)
164        RDN
165        RDN
166        RTN
167        LBL 1
168        RCL D
169        1
170        -
171        STO D
172        ST I
173        RCL (i)
174        ISZ
175        RCL (i)
176        RUP
177        ST I
178        RDN
179        GSB (i)
180        RCL D
181        F? 2
182        EEX
183        0
184        +
185        STO D
186        ST I
187        1
188        3
189        -
190        X < 0
191        SQRT
192        X <> Y
193        STO (i)
194        RCL E
195        1
196        -
197        STO E
198        RTN
199        LBL 1
200        Y^X
201        RTN
202        LBL 2
203        CHS
204        LBL 0
205        SF 2
206        RTN
207        LBL 3
208        /
209        RTN
210        LBL 4
211        *
212        RTN
213        LBL 5
214        CHS
215        LBL 6
216        +
217        LBL B
218        RTN
219        SF 3
220        RTN
221        R/S
222        R/S
223        R/S
224        R/S