Overview
-This program uses equatorial coordinates at 2000/01/01 and gives equatorial coordinates at another date.
-In this program, we have the brightest stars...
Registers
* R00 = Time from 2000/01/01 ( unit = 1000 Julian years ) ( Register R00 is to be initialized before executing this program )
R01 = temp
R02 = temp
Flags: /
Subroutines: /
| 01 LBL "SIR" 02 6.4509 03 16.43 04 CHS 05 XEQ 10 06 RTN 07 LBL "CAN" 08 6.2357 09 52.4144 10 CHS 11 XEQ 10 12 RTN 13 LBL "TOL" 14 14.3936 15 60.5002 16 CHS 17 XEQ 10 18 RTN 19 LBL "ARC" 20 14.154 21 19.1056 22 XEQ 10 23 RTN 24 LBL "VEG" 25 18.3656 26 38.4701 27 XEQ 10 28 RTN 29 LBL "CAP" 30 5.1641 31 45.5953 32 XEQ 10 33 RTN 34 LBL "RIG" 35 5.1432 36 8.1206 37 CHS 38 XEQ 10 39 RTN 40 LBL "PRO" 41 7.3918 42 5.133 43 XEQ 10 44 RTN |
45 LBL "ACH" 46 1.3743 47 57.1412 48 CHS 49 XEQ 10 50 RTN 51 LBL "HAD" 52 14.0349 53 60.2223 54 CHS 55 XEQ 10 56 RTN 57 LBL "ALT" 58 19.5047 59 8.5206 60 XEQ 10 61 RTN 62 LBL "BET" 63 5.551 64 7.2425 65 XEQ 10 66 RTN 67 LBL "ALD" 68 4.3555 69 16.3033 70 XEQ 10 71 RTN 72 LBL "ACR" 73 12.2636 74 63.0557 75 CHS 76 XEQ 10 77 RTN 78 LBL "SPI" 79 13.2512 80 11.0941 81 CHS 82 XEQ 10 83 RTN 84 LBL "ANT" 85 16.2924 86 26.2555 87 CHS 88 XEQ 10 |
89 RTN 90 LBL "POL" 91 7.4519 92 28.0134 93 XEQ 10 94 RTN 95 LBL "FOM" 96 22.5739 97 29.372 98 CHS 99 XEQ 10 100 RTN 101 LBL "DEN" 102 20.4126 103 45.1649 104 XEQ 10 105 RTN 106 LBL "BEC" 107 12.4743 108 59.412 109 CHS 110 XEQ 10 111 RTN 112 LBL "REG" 113 10.0822 114 11.5802 115 XEQ 10 116 RTN 117 LBL "CAS" 118 7.3436 119 31.5318 120 XEQ 10 121 RTN 122 LBL "GAC" 123 12.311 124 57.0648 125 CHS 126 XEQ 10 127 RTN 128 LBL "ADH" 129 6.5838 130 28.582 131 CHS 132 XEQ 10 |
133 RTN 134 LBL "ALI" 135 12.5402 136 55.5735 137 XEQ 10 138 RTN 139 LBL "BEL" 140 5.2508 141 6.2059 142 XEQ 10 143 RTN 144 LBL "SHA" 145 17.3337 146 37.0614 147 CHS 148 XEQ 10 149 RTN 150 LBL "AVI" 151 8.2231 152 59.3034 153 CHS 154 XEQ 10 155 RTN 156 LBL "ALN" 157 5.3613 158 1.1207 159 CHS 160 XEQ 10 161 RTN 162 LBL "ELN" 163 5.2618 164 28.3627 165 XEQ 10 166 RTN 167 LBL "MIA" 168 9.1312 169 69.4302 170 CHS 171 XEQ 10 172 RTN 173 LBL "ATR" 174 16.484 175 69.014 176 CHS |
177 XEQ 10 178 RTN 179 LBL "MIR" 180 3.2419 181 49.514 182 XEQ 10 183 RTN 184 LBL "ALK" 185 13.4732 186 49.1848 187 XEQ 10 188 RTN 189 LBL "REG" 190 8.0932 191 47.2012 192 CHS 193 XEQ 10 194 RTN 195 LBL "ALH" 196 6.3743 197 16.2357 198 XEQ 10 199 RTN 200 LBL "KAU" 201 18.241 202 34.2305 203 CHS 204 XEQ 10 205 RTN 206 LBL "DUB" 207 11.0344 208 61.4504 209 XEQ 10 210 RTN 211 LBL "WEZ" 212 7.0823 213 26.2336 214 CHS 215 XEQ 10 216 RTN 217 LBL "MIR" 218 6.2242 219 17.5721 220 CHS 221 LBL 10 |
222 HR 223 X<>Y 224 HR 225 15 226 * 227 4999 228 RCL 00 229 * 230 8386 231 + 232 RCL 00 233 * 234 6406161 235 STO 02 236 + 237 RCL 00 238 * 239 6 240 10^X 241 / 242 STO 01 243 CLX 244 5056 245 RCL 00 246 * 247 30408 248 + 249 RCL 00 250 * 251 RCL 02 252 + 253 RCL 00 254 * 255 CHS 256 6 257 10^X 258 / 259 X<> 01 260 + 261 90 262 - 263 1162 264 RCL 00 265 * 266 1185.1 |
267 + 268 RCL 00 269 * 270 556753 271 - 272 RCL 00 273 * 274 5 275 10^X 276 / 277 CHS 278 STO T 279 RDN 280 1 281 X<>Y 282 RDN 283 P-R 284 R^ 285 X<>Y 286 P-R 287 RDN 288 R-P 289 X<> Z 290 ST- Y 291 X<> Z 292 P-R 293 R^ 294 R-P 295 X<>Y 296 RDN 297 R-P 298 X<> T 299 90 300 + 301 RCL 01 302 - 303 15 304 / 305 24 306 MOD 307 HMS 308 X<>Y 309 HMS 310 X<>Y 311 END |
( 1154 bytes / SIZE 003 )
| STACK | INPUTS | OUTPUTS |
| Y | / | decl ( ° . ' " ) |
| X | / | RA (hh.mnss) |
Example: 2060/01/01 = 21915 / 365250 = 0.06 STO 00
XEQ "SIR" >>>> RA = 6h47m50s Sirius ( alpha CMa )
X<>Y Decl = -16°47'02"
XEQ "CAN" or R/S >>>> RA = 6h25m17s Canopus ( alpha Car )
X<>Y Decl = -52°43'53"
XEQ "TOL" or R/S >>>> RA = 14h44m14s Toliman ( alpha Cen )
X<>Y Decl = -61°05'17"
XEQ "ARC" or R/S >>>> RA = 14h18m29s Arcturus ( alpha Boo )
X<>Y Decl = 18°54'22"
XEQ "VEG" or R/S >>>> RA = 18h38m57s Vega ( alpha Lyr )
X<>Y Decl = 38°50'19"
XEQ "CAP" or R/S >>>> RA = 5h21m07s Capella ( alpha Aur )
X<>Y Decl = 46°03'27"
XEQ "RIG" or R/S >>>> RA = 5h17m25s Rigel ( beta Ori )
X<>Y Decl = -8°08'16"
XEQ "PRO" or R/S >>>> RA = 7h42m29s Procyon ( alpha CMi )
X<>Y Decl = 5°04'58"
XEQ "ACH" or R/S >>>> RA = 1h39m56s Achernar ( alpha Eri )
X<>Y Decl = -56°55'60"
XEQ "HAD" or R/S >>>> RA = 14h08m08s Hadar ( beta Cen )
X<>Y Decl = -60°39"28"
XEQ "ALT" or R/S >>>> RA = 19h53m40s Altaïr ( alpha Aql )
X<>Y Decl = 9°01'32"
XEQ "BET" or R/S >>>> RA = 5h58m25s Betelgeuse ( alpha Ori )
X<>Y Decl = 7°24'42"
XEQ "ALD" or R/S >>>> RA = 4h39m22s Aldebaran ( alpha Tau )
X<>Y Decl = 16°37'36"
XEQ "ACR" or R/S >>>> RA = 12h30m00s Acrux ( alpha Cru )
X<>Y Decl = -63°25'50"
XEQ "SPI" or R/S >>>> RA = 13h28m22s Spica ( alpha Vir )
X<>Y Decl = -11°28'18"
XEQ "ANT" or R/S >>>> RA = 16h33m06s Antares ( alpha Sco )
X<>Y Decl = -26°33'29"
XEQ "POL" or R/S >>>> RA = 7h49m01s Pollux ( beta Gem )
X<>Y Decl = 27°52'32"
XEQ "FOM" or R/S >>>> RA = 23h00m55s Fomalhaut ( alpha PsA )
X<>Y Decl = -29°17'60"
XEQ "DEN" or R/S >>>> RA = 20h43m29s Deneb ( alpha Cyg )
X<>Y Decl = 45°29'52"
XEQ "BEC" or R/S >>>> RA = 12h51m17s Becrux ( beta Cru )
X<>Y Decl = -60°00'54"
XEQ "REG" or R/S >>>> RA = 10h11m34s Regulus ( alpha Leo )
X<>Y Decl = 11°40'16"
XEQ "CAS" or R/S >>>> RA = 7h38m26s Castor ( alpha Gem )
X<>Y Decl = 31°45'06"
XEQ "GAC" or R/S >>>> RA = 12h34m32s Gacrux ( gamma Cru )
X<>Y Decl = -57°26'38"
XEQ "ADH" or R/S >>>> RA = 7h00m60s Adhara ( epsilon CMa )
X<>Y Decl = -29°03'30"
XEQ "ALI" or R/S >>>> RA = 12h56m38s Alioth ( epsilon UMa )
X<>Y Decl = 55°38'07"
XEQ "BEL" or R/S >>>> RA = 5h28m21s Bellatrix ( gamma Ori )
X<>Y Decl = 6°23'53"
XEQ "SHA" or R/S >>>> RA = 17h37m42s Shaula ( lambda Sco )
X<>Y Decl = -37°08'21"
XEQ "AVI" or R/S >>>> RA = 8h23m45s Avior ( epsilon Car )
X<>Y Decl = -59°42'17"
XEQ "ALN" or R/S >>>> RA = 5h39m16s Alnilam ( epsilon Ori )
X<>Y Decl = -1°10'10"
XEQ "ELN" or R/S >>>> RA = 5h30m06s El Nath ( beta Tau )
X<>Y Decl = 28°39'13"
XEQ "MIA" or R/S >>>> RA = 9h13m51s Miaplacidus ( beta Car )
X<>Y Decl = -69°58'01"
XEQ "ATR" or R/S >>>> RA = 16h55m05s Atria ( alpha TrA )
X<>Y Decl = -69°07'32"
XEQ "MIR" or R/S >>>> RA = 3h28m38s Mirfak ( alpha Per )
X<>Y Decl = 50°04'07"
XEQ "ALK" or R/S >>>> RA = 13h49m54s Alkaid ( nu UMa )
X<>Y Decl = 49°00'58"
XEQ "REG" or R/S >>>> RA = 8h11m23s Regor ( gamma Vel )
X<>Y Decl = -47°31'00"
XEQ "ALH" or R/S >>>> RA = 6h41m11s Alhena ( gamma Gen )
X<>Y Decl = 16°20'31"
XEQ "KAU" or R/S >>>> RA = 18h28m09s Kaus Aust. ( epsilon Sgr )
X<>Y Decl = -34°20'48"
XEQ "DUB" or R/S >>>> RA = 11h07m23s Dubhe ( alpha UMa )
X<>Y Decl = 61°25'35"
XEQ "WEZ" or R/S >>>> RA = 7h10m49s Al Wazor ( delta CMa )
X<>Y Decl = -26°29'36"
XEQ "MIR" or R/S >>>> RA = 6h25m21s Murzim ( beta CMa )
X<>Y Decl = -17°59'27"