+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Calculators (and very old HP Computers) (/forum-3.html)
+--- Forum: General Forum (/forum-4.html)
+--- Thread: could I get a text listing of this hp41 raw file (/thread-4812.html)
could I get a text listing of this hp41 raw file - twdeckard - 09-27-2015 04:44 AM
Greetings,
could I impose to get a text listing of the attached orbit.raw file. I have the Tony Duel tools compiled for my mac but the trick escapes me. Could I impose on someone with the capability handy to upload it as a text listing.
Thanks!
Todd
RE: could I get a text listing of this hp41 raw file - twdeckard - 09-28-2015 02:13 AM
answered my own question. Not the program I thought it was ...
0001 LBL "ORBIT"
0002 SF 27
0003 CLRG
0004 CF 05
0005 2000
0006 STO 00
0007 1839000
0008 STO 01
0009 4.89663E12
0010 STO 03
0011 1631.765625
0012 STO 05
0013 1739000
0014 STO 11
0015 0
0016 GTO 01
0017 LBL B
0018 STO 12
0019 69
0020 *
0021 R^
0022 RCL 00
0023 X<=Y?
0024 X<>Y
0025 RDN
0026 X<=Y?
0027 X<>Y
0028 RDN
0029 ST- 00
0030 P->R
0031 ST+ 05
0032 RCL 05
0033 9
0034 X>Y?
0035 GTO 21
0036 R^
0037 ST+ 04
0038 LBL 01
0039 RCL 04
0040 X^2
0041 RCL 05
0042 X^2
0043 +
0044 2
0045 /
0046 RCL 03
0047 RCL 01
0048 /
0049 -
0050 STO 06
0051 RCL 01
0052 RCL 05
0053 *
0054 STO 07
0055 X^2
0056 RCL 03
0057 /
0058 STO 08
0059 *
0060 2
0061 *
0062 RCL 03
0063 /
0064 1
0065 +
0066 SQRT
0067 STO 09
0068 RCL 08
0069 RCL 01
0070 /
0071 1
0072 -
0073 RCL 09
0074 /
0075 FIX 07
0076 RND
0077 ACOS
0078 RCL 04
0079 RCL 05
0080 *
0081 X>0?
0082 SF 05
0083 RDN
0084 FS?C 05
0085 CHS
0086 RCL 02
0087 +
0088 360
0089 MOD
0090 STO 10
0091 RCL 12
0092 LBL A
0093 STO 12
0094 0
0095 ENTER^
0096 ENTER^
0097 RCL 05
0098 9
0099 X>Y?
0100 GTO 21
0101 RDN
0102 RCL 12
0103 *
0104 RCL 03
0105 RCL 01
0106 X^2
0107 /
0108 RCL 12
0109 *
0110 2
0111 /
0112 RCL 04
0113 X<>Y
0114 -
0115 RCL 12
0116 *
0117 RCL 01
0118 +
0119 R->P
0120 RDN
0121 ST+ 02
0122 RCL 08
0123 RCL 09
0124 RCL 02
0125 RCL 10
0126 -
0127 COS
0128 *
0129 1
0130 +
0131 /
0132 STO 01
0133 RCL 03
0134 X<>Y
0135 /
0136 RCL 06
0137 +
0138 2
0139 *
0140 SQRT
0141 STO 13
0142 RCL 01
0143 *
0144 RCL 07
0145 X<>Y
0146 /
0147 FIX 07
0148 RND
0149 ACOS
0150 RCL 07
0151 RCL 02
0152 RCL 10
0153 -
0154 SIN
0155 *
0156 X<0?
0157 SF 05
0158 RDN
0159 FS?C 05
0160 CHS
0161 LBL 20
0162 STO 14
0163 RCL 13
0164 P->R
0165 STO 05
0166 RDN
0167 STO 04
0168 RCL 01
0169 RCL 11
0170 -
0171 X<0?
0172 GTO 22
0173 LBL 10
0174 FIX 02
0175 ADV
0176 "A="
0177 RCL 01
0178 RCL 11
0179 -
0180 X<0?
0181 CLX
0182 ARCL X
0183 "\177 M"
0184 AVIEW
0185 STOP
0186 "\015="
0187 RCL 02
0188 1
0189 P->R
0190 R->P
0191 ARCL Y
0192 AVIEW
0193 STOP
0194 "V="
0195 ARCL 13
0196 "\177 M/S"
0197 AVIEW
0198 STOP
0199 "V\015="
0200 ARCL 14
0201 AVIEW
0202 STOP
0203 "F="
0204 ARCL 00
0205 AVIEW
0206 STOP
0207 GTO 10
0208 LBL 21
0209 RDN
0210 RDN
0211 2
0212 /
0213 CHS
0214 RCL 05
0215 +
0216 RCL 12
0217 *
0218 X<>Y
0219 RCL 03
0220 RCL 01
0221 X^2
0222 /
0223 RCL 12
0224 *
0225 -
0226 ST+ 04
0227 2
0228 /
0229 CHS
0230 RCL 04
0231 +
0232 RCL 12
0233 *
0234 RCL 01
0235 +
0236 R->P
0237 STO 01
0238 X<>Y
0239 ST+ 02
0240 LBL 00
0241 RCL 04
0242 RCL 05
0243 R->P
0244 STO 13
0245 X<>Y
0246 GTO 20
0247 LBL 22
0248 ST- 01
0249 3
0250 *
0251 RCL 04
0252 X^2
0253 +
0254 ABS
0255 SQRT
0256 CHS
0257 STO 04
0258 GTO 00
0259 .END.