From 41dd43fce0fedca09d78b0785f2813958914c17d Mon Sep 17 00:00:00 2001 From: rcornbtree <71339659+rcornbtree@users.noreply.github.com> Date: Sun, 20 Sep 2020 17:43:35 -0400 Subject: [PATCH] Proof GROUND_TRACKING_DETERMINATION_PROGRAM #586 (#701) * Update GROUND_TRACKING_DETERMINATION_PROGRAM.agc * Apply suggestions from code review * Recommended character change and spacing changes * Apply suggestions from code review Co-authored-by: James Harris --- .../GROUND_TRACKING_DETERMINATION_PROGRAM.agc | 117 +++++++++--------- 1 file changed, 60 insertions(+), 57 deletions(-) diff --git a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc index 3ecfb3a..e541845 100644 --- a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc +++ b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc @@ -27,57 +27,61 @@ # 16:27 JULY 14, 1969 # Page 654 -# GROUND TRACKING DETERMINATION PROGRAM -- P21 +# GROUND TRACKING DETERMINATION PROGRAM P21 # PROGRAM DESCRIPTION -# MOD NO -- 1 -# MOD BY -- N. M. NEVILLE +# MOD NO - 1 +# MOD BY - N.M.NEVILLE +# FUNCTIONAL DECRIPTION- # -# FUNCTIONAL DESCRIPTION -- -# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT -# THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY). +# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT +# THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY). +# CALLING SEQUENCE - # -# CALLING SEQUENCE -- -# ASTRONAUT REQUEST THROUGH DSKY V37E21E +# ASTRONAUT REQUEST THROUGH DSKY V37E21E +# SUBROUTINES CALLED- # -# SUBROUTINES CALLED -- -# GOPERF4 -# GOFLASH -# THISPREC -# OTHPREC -# LAT-LONG +# GOPERF4 +# GOFLASH +# THISPREC +# OTHPREC +# LAT-LONG +# NORMAL EXIT MODES- # -# NORMAL EXIT MODES -- -# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E +# ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E +# ALARM OR ABORT EXIT MODES- # -# ALARM OR ABORT EXIT MODES -- -# NONE -# -# OUTPUT -- -# OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE -# COMPUTED -# OPTION CODE 00002 -# THIS 00001 -# OTHER 00002 -# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS, MINUTES, SECONDS -# DECIMAL DISPLAY OF LAT,LONG,ALT +# NONE +# OUTPUT - # +# OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE +# COMPUTED +# OPTION CODE 00002 +# THIS 00001 +# OTHER 00002 +# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS +# DECIMAL DISPLAY OF LAT,LONG,ALT # ERASABLE INITIALIZATION REQUIRED -# AX0 2DEC 4.652459653 E-5 RADIANS $68-69 CONSTANTS* -# -AY0 2DEC 2.137535898 E-5 RADIANS -# AZ0 2DEC .7753206164 REVOLUTIONS -# FOR LUNAR ORBITS 504LM VECTOR IS NEEDED: -# 504LM 2DEC -2.700340600 E-5 RADIANS -# 504LM _2 2DEC -7.514128400 E-4 RADIANS -# 504LM _4 2DEC _2.553198641 E-4 RADIANS # -# NONE +# AXO 2DEC 4.652459653 E-5 RADIANS %68-69 CONSTANTS" # +# -AYO 2DEC 2.147535898 E-5 RADIANS +# +# AZO 2DEC .7753206164 REVOLUTIONS +# FOR LUNAR ORBITS 504LM VECTOR IS NEEDED +# +# 504LM 2DEC -2.700340600 E-5 RADIANS +# +# 504LM _2 2DEC -7.514128400 E-4 RADIANS +# +# 504LM _4 2DEC _2.553198641 E-4 RADIANS +# +# NONE # DEBRIS +# # Page 655 -# CENTRALS -- A,Q,L -# OTHER -- THOSE USED BY THE ABOVE LISTED SUBROUTINES -# SEE LEMPREC, LAT-LONG - +# CENTRALS-A,Q,L +# OTHER-THOSE USED BY THE ABOVE LISTED SUBROUTINES +# SEE LEMPREC,LAT-LONG SBANK= LOWSUPER # FOR LOW 2CADR'S. BANK 33 @@ -87,8 +91,8 @@ EBANK= P21TIME COUNT* $$/P21 PROG21 CAF ONE - TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001 - CAF BIT2 # OPTION 2 + TS OPTION2 # ASSUMED VEHICLE IS LM , R2 = 00001 + CAF BIT2 # OPTION 2 TC BANKCALL CADR GOPERF4 TC GOTOPOOH # TERMINATE @@ -103,26 +107,26 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG. TC INTPRET DLOAD DSPTEM1 - STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC + STCALL TDEC1 # INTEGRATE TO TIME SPECIFIED IN TDEC INTSTALL BON CLEAR P21FLAG - P21CONT # ON -- RECYCLE USING BASE VECTOR - VINTFLAG # OFF -- 1ST PASS CALL BASE VECTOR + P21CONT # ON---RECYCLE USING BASE VECTOR + VINTFLAG # OFF--IST PASS CALL BASE VECTOR SLOAD SR1 OPTION2 BHIZ SET - +2 # ZERO -- THIS VEHICLE (LM) - VINTFLAG # ONE -- OTHER VEHICLE (CM) + +2 # ZERO--THIS VEHICLE(LM) + VINTFLAG # ONE--OTHER VEHICLE(CM) CLEAR CLEAR DIM0FLAG INTYPFLG # PRECISION CALL - INTEGRV # CALCULATE - GOTO # AND - P21VSAVE # SAVE BASE VECTOR + INTEGRV # CALCULATE + GOTO # -AND + P21VSAVE # -SAVE BASE VECTOR P21CONT VLOAD - P21BASER # RECYCLE -- INTEG FROM BASE VECTOR + P21BASER # RECYCLE--INTEG FROM BASE VECTOR STOVL RCV # --POS # Page 656 P21BASEV @@ -134,12 +138,12 @@ P21CONT VLOAD MOONFLAG SLOAD BZE P21ORIG - +3 # ZERO = EARTH - SET # ---2 = MOON + +3 # ZERO=EARTH + SET # ---2=MOON MOONFLAG +3 CALL INTEGRVS -P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR +P21VSAVE DLOAD # SAVE CURRENT BASEVECTOR TAT STOVL P21TIME # --TIME RATT1 @@ -151,12 +155,12 @@ P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR STOVL P21VEL # VEL/ FOR N91 DISP RATT UNIT DOT - VATT # U(R).V + VATT # U(R).V DDV ASIN # U(R).U(V) P21VEL - STORE P21GAM # SIN-1 U(R).U(V) , -90 TO +90 + STORE P21GAM # SIN-1 U(R).U(V) , -90 TO &90 SXA,2 SLOAD - P21ORIG # 0 = EARTH + P21ORIG # 0=EARTH OPTION2 SR1 BHIZ +3 @@ -202,4 +206,3 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA V06N43 VN 00643 V6N34 VN 00634 K.01 2DEC .01 -