# Julianisches Datum falsch berechnet (kein Gregorianischer Kalender)

learn

####################### Parametereingabe
ST1 W ST0 SP 		# D Tag
ST2 W D0  SP		# M Monat
ST3 W T0  SP		# Y Jahr
ST4 W f0  SP		# H Stunden
ST5 W :0		# C Minuten
W E15	  SP		# Leerzeile
ST15			# Anzahl	wenn 0, nur JD ausrechnen

####################### Julianisches Datum
60 :5 +4 24 :4 +1 RE3 ABS ST4 4 :4 INT -4 JZ S E0
RE3 ABS ST4 400 :4 INT -4 JNZ S E1
RE3 ABS ST4 100 :4 INT -4 JNZ S E0
M E1 2 ST0 RE2 a SN S E0 1 +1
M E0 RE2 ST0 1 JRNZ S E2		# JRNZ = D2 D0

       2 a JZ S E3   31 +1 S E2
M E3   3 a JZ S E4   59 +1 S E2
M E4   4 a JZ S E5   90 +1 S E2
M E5   5 a JZ S E6  120 +1 S E2
M E6   6 a JZ S E7  151 +1 S E2
M E7   7 a JZ S E8  181 +1 S E2
M E8   8 a JZ S E9  212 +1 S E2
M E9   9 a JZ S E10 243 +1 S E2
M E10 10 a JZ S E11 273 +1 S E2
M E11 11 a JZ S E12 304 +1 S E2
M E12		    334 +1

M E2 4799 +3 ST2 ST4 ST5 365 x2 +1 4 :4 INT +1 400 :5 INT +1 100 :3 INT -1
W A10 W E15				# JD / Leerzeile

####################### Hauptschleife
M E13 RE15 JNZ SP SP 1 -15		# wenn Anzahl 0 wird: fertig

####################### Mondhauptphase
M E14 f1 RE4 -3 180 +3 f0 ST3 ST0 180 a SN S E15 1 ST14 S T0
M E15 T14 180 -3

M T0 RE3 ST0 90 f2 45 f2 20 f2 5 f2 2 f2 1 f2 RE6 ST0 2.3 a JGE S T1 13 +1 S E14
M T1 RE3 ST0 .5 f2 .1 f2 .01 f2 RE14 JZ S T2

####################### Finsternistyp
       .5 ST0 RE6 a JGE S T4
       75 ST0 RE5 a SN  S T4
      289 ST0 RE5 a JGE S T4 2 ST9 S T5	# ringf”rmige SF
M T4  .9  ST0 RE6 a JGE S T3 1 ST9 S T5	# totale SF
M T3 1.12 ST0 RE6 a JGE S T6 3 ST9 S T5 # partielle SF
M T6 13 +1 S E14

M T2  .52 ST0 RE6 a JGE S T7 4 ST9 S T5	# totale MF
M T7 1.52 ST0 RE6 a JGE S T8 5 ST9 S T5	# partielle MF
M T8 1.94 ST0 RE6 a JGE S T9 6 ST9 S T5	# totale Halbschatten-MF
M T9 2.26 ST0 RE6 a JGE S T6 7 ST9	# partielle Halbschatten-MF

M T5 RE1 ST0 1 -0 INT W A10		# JD einer Finsternis
ST2 -0 365.2425 :2 4799 -2 ST3 INT -3 12 x3 1 +3 ST4 INT -4 30 x4 2 +4
W ST0 RE3 W D0 RE2 W T0			# D / M / Y
24 x0 W f0 INT -0 60 x0 W :0 INT -0	# H / C
RE9 W -0 W RCP 13 +1 S E13		# A / Leerzeile

####################### Hilfsfunktion
M f0 ST2 720 ST0 GO GO GO +2 2 :0 :2 INT -2 x0 RT	# f0(x) = 0..x..360

####################### Monddatenfunktion
M f1
.98560910573 ST3 RE1 x3 f0 ST3  11.030992002 +3 f0 ST3
13.17638456  ST4 RE1 x4 f0 ST4 253.41032002  +4 f0 ST4
.1113589041  ST5 RE1 x5 f0 ST5  26.7515021   +5 f0 ST5
.0529534246  ST6 RE1 x6 f0 ST6 223.45661201  -6 E12 f0 ST6
RE3 ST7 282.2 -7 SN ST7 ST8 ST9 ST10
1.93 x10 +3 f0 ST3 ST11 RE4 -11 2 x11 RE4 -5 E12 f0 ST5 +11 E12 f0 SN ST11
1.33 x11 +5 .57 x9 -5 f0 ST5 SN ST9 6.3 x9 +11 +4 .2 x8 +4 f0 ST4 ST8
RE3 -8 2 x8 f0 SN ST8 .6 x8 +4 f0 ST4 ST8 ST9 .15 x7 -6 f0 ST6 -9 f0 SN ST10 ST9
.115 x10 -4 f0 ST4 RE8 +6 RE3 -6 RE3 -6 f0 SN ST6 .15 x6 5.15 x9 +6 ABS ST6 RT

####################### Ann„herungsfunktion
M f2 ST12 a JGE GO RT 14 :12 +1 S E14 SP EP	# (Returnadressen-Wraparound!)

prime
date No_Date
author Alf_Urban
title 43.Finsternisse
tape forward
record
tape release

verify		# must be 6272 (don't make changes to the historic code!)
run
1 GO
8 GO
1999 GO
0 GO
0 GO
5 GO