HP-67 and HP-97 diagnositc programs (long)
Message #1 Posted by Klaus on 28 Oct 2006, 8:03 a.m.
Reminded by a recent thread, I searched my magnetic cards for the different versions of the diagnostic program for the HP-67. I found versions "A" and "C". Here is the listing:
Differences:
-Ver C uses DSZ, Ver A uses ISZ
-Ver C checks sto-arithmetic
-Ver C uses shifted alpha-labels
-...
CLRG = Clear Reg
Rup = Roll up (R arrow up)
Rdn = Roll down
X<>Y or P<>S means exchange
PSE = Pause
SQRT(X) = X^0.5
F0? = Flag 0?
SF0 = Set flag 0
PRT X = PrintX
# Ver A Ver C
001 LBL A LBL 0
002 CLRG CLRG
003 P<>S P<>S
004 CLRG CLRG
005 CF 3 RTN
006 7 LBL a
007 . RND
008 7 RCL I
009 7 X!=Y?
010 7 R/S
011 7 LBL 2
012 7 DSZ I
013 7 LBL 5
014 7 RCL I
015 7 RTN
016 CHS LBL c
017 EEX RCL (i)
018 CHS RCL I
019 7 X!=Y?
020 7 R/S
021 X<>Y ST +0
022 Rup DSZ I
023 Rup GTO c
024 Rup 3
025 Rup EEX
026 Rdn 2
027 PSE RCL 0
028 LBL 0 X!=Y?
029 STO (i) R/S
030 RCL (i) RTN
031 X!=Y? LBL e
032 GTO 1 1
033 ISZ I -
034 RCL E RTN
035 RCL 0 LBL A
036 X=Y? 5
037 GTO 2 7
038 GTO 0 GSB 0
039 LBL 1 PSE
040 RCL I GSB e
041 RTN ENTER
042 LBL 2 Rdn
043 2 X<>Y
044 5 Rup
045 STO I Rup
046 SIN X<>Y
047 SIN^-1 Rup
048 GSB 3 X!=0?
049 COS X!=Y?
050 COS^-1 RTN
051 GSB 3 GSB e
052 TAN X>Y?
053 TAN^-1 RTN
054 GSB 3 GSB e
055 ->P X=Y?
056 ->R RTN
057 GSB 3 GSB e
058 SIN X<=Y?
059 ->H.MS GTO 1
060 H.MS-> RTN
061 SIN^-1 LBL 1
062 GSB 3 GSB e
063 LOG STO I
064 10^x RCL I
065 GSB 3 X<>Y
066 LN X!=Y?
067 e^X RTN
068 GSB 3 GSB 2
069 X^2 X!=0?
070 SQRT(X) GTO 3
071 GSB 3 RTN
072 ENTER LBL 3
073 Y^X GSB 2
074 LastX X=0?
075 1/x RTN
076 Y^X GSB 2
077 GSB 3 X<0?
078 ENTER RTN
079 + GSB 2
080 LastX X>0?
081 - GTO 4
082 GSB 3 RTN
083 ENTER LBL 4
084 * DSZ I
085 LastX F2?
086 / GTO 5
087 GSB 3 DSZ I
088 1/X F1?
089 1 GTO 5
090 + DSZ I
091 FRC F3?
092 1/X GTO 6
093 LastX GTO 5
094 + LBL 6
095 INT DSZ I
096 GSB 3 F0?
097 D->R GTO 7
098 R->D GTO 5
099 GSB 3 LBL 7
100 EEX SF2
101 2 SF1
102 X<>Y CF0
103 % DSZ I
104 GSB 3 F3?
105 GTO 4 GTO 5
106 LBL 3 DSZ I
107 RND F0?
108 RCL I GTO 5
109 X!=Y? DSZ I
110 R/S F2?
111 ISZ I GTO 8
112 RCL I GTO 5
113 RTN LBL 8
114 LBL 4 DSZ I
115 1 F1?
116 - GTO 9
117 RCL I GTO 5
118 X<=Y? LBL 9
119 RTN DSZ I
120 ISZ I F2?
121 2 GTO 5
122 + GSB 2
123 RCL I DSP 7
124 X>Y? DEG
125 RTN SIN
126 ISZ I SIN^-1
127 RCL I GSB a
128 X=0? COS
129 RTN COS^-1
130 ISZ I GSB a
131 RCL I TAN
132 X!=0? TAN^-1
133 GTO 5 GSB a
134 RTN ->P
135 LBL 5 ->R
136 ISZ I GSB a
137 RCL I SIN
138 X<0? ->HMS
139 RTN HMS->
140 ISZ I SIN^-1
141 RCL I GSB a
142 X>0? LOG
143 GTO 5 10^x
144 RTN GSB a
145 LBL 5 LN
146 ISZ I e^X
147 RCL I GSB a
148 F0? SQRT(X)
149 RTN X^2
150 ISZ I GSB a
151 RCL I ENTER
152 F1? Y^X
153 RTN Lastx
154 ISZ I 1/X
155 F2? Y^X
156 RTN GSB a
157 ISZ I ENTER
158 RCL I +
159 F3? LastX
160 RTN -
161 ISZ I GSB a
162 SF0 ENTER
163 SF1 *
164 SF2 LastX
165 SF3 /
166 F0? GSB a
167 GTO 6 SQRT(X)
168 RTN FRC
169 LBL 6 LastX
170 ISZ I INT
171 RCL I +
172 F1? X^2
173 GTO 6 GSB a
174 RTN D->R
175 LBL 6 R->D
176 ISZ I GSB a
177 RCL I EEX
178 F2? 2
179 GTO 6 X<>Y
180 RTN %
181 LBL 6 GSB a
182 ISZ I DSP 1
183 RCL I LBL b
184 F3? RCL I
185 GTO 6 STO (i)
186 RTN DSZ I
187 LBL 6 GTO b
188 EEX 2
189 7 4
190 PRT X X<>I
191 ENG GSB c
192 DSP 4 GSB 0
193 PRT X LBL d
194 SCI DSZ I
195 PRT X RCL I
196 CF0 ABS
197 CF1 STO (i)
198 FIX 2
199 DSP 2 4
200 RTN X!=Y?
201 R/S GTO d
202 STO I
203 GSB c
204 9
205 EEX
206 8
207 7
208 1/X
209 8
210 CHS
211 *
212 SF0
213 CF1
214 SF3
215 RAD
216 DSP 3
217 ENG
218 PRT X
219 SCI
220 PRT X
221 DSP 1
222 FIX
223 PRT X
224 R/S
| 
Go back to the main exhibit hall