diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc index 6e3597291..543463c83 100644 --- a/Luminary099/CONIC_SUBROUTINES.agc +++ b/Luminary099/CONIC_SUBROUTINES.agc @@ -1251,11 +1251,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2 # Page 1190 DEC 5 2DEC .5 + 2DEC -.166666770 + 2DEC .100000392 + 2DEC -.071401086 + 2DEC .055503292 + 2DEC -.047264098 + 2DEC .040694204 TC INTPRET @@ -1269,6 +1275,7 @@ XCOMMON DSQ NORM R1A 0 -12D,1 STODL XI # XI (+6) + R1 SR1 SQRT ROUND DMP @@ -1623,7 +1630,7 @@ TIMERAD STQ SETPD # PL AT 0 BOV CIRCULAR PDDL NORM # 0D=UNIT(ECC) (+3) PL AT 6 - RDESIRED # 35D=ECC (+3) + RDESIRED # 36D=ECC (+3) X1 PDDL DMP # PL AT 8 R1 @@ -1720,7 +1727,7 @@ GETECC DMP SL4 INFINAPO GOTO RTNAPSE -INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC, PERIAPSIS +INFINAPO DLOAD GOTO # RETURNS WITH APOAPSIS IN MPAC,PERIAPSIS LDPOSMAX RTNAPSE # THAT PL IS AT 0. @@ -1740,17 +1747,16 @@ LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. # RRECT ERASE +5 # VRECT ERASE +5 # TAU. ERASE +1 -# XKEP ERASE +1 +# XKEP NEW ERASE +1 # TC ERASE +1 # XPREV ERASE +1 1/MU EQUALS 14D ROOTMU EQUALS 16D 1/ROOTMU EQUALS 18D - # OUTPUT - # RCV ERASE +5 # VCV ERASE +5 -# RC ERASE +1 +# TC ERASE +1 # XPREV ERASE +1 # DEBRIS - @@ -1779,9 +1785,9 @@ KEPC2 EQUALS 36D # R2VEC ERASE +5 # TDESIRED ERASE +1 # GEOMSGN ERASE +0 -# GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT +# GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # Page 1203 -# COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. +# COGA ERASE +1 # INPUT ONLY IF GUESSW IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT # UN ERASE +5 # ONLY USED IF NORMSW IS 1 # VTARGTAG ERASE +0 @@ -1819,8 +1825,8 @@ DCOGA EQUALS 12D # KEPC2 EQUALS 36D # SLOPESW # SOLNSW - # OTHERS - +# # RVEC EQUALS R1VEC # VVEC ERASE +5 # COGAFLAG @@ -1841,6 +1847,7 @@ COSF EQUALS 24D # ITERATOR SUBROUTINE + # ORDERSW MAX EQUALS 14D # CLOBBERS 1/MU MIN EQUALS 8D @@ -1854,10 +1861,12 @@ TWEEKIT EQUALS 40D # MORE KEPLER + # EPSILONT ERASE +1 # MORE LAMBERT + # TERRLAMB EQUALS DELDEP # TPREV EQUALS DEPREV