kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Proof GROUND_TRACKING_DETERMINATION_PROGRAM #586 (#701)

Browse Source 
* 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 <wopian@wopian.me>
This commit is contained in:
rcornbtree 2020-09-20 17:43:35 -04:00 committed by GitHub
parent a713d948c5
commit 41dd43fce0
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 60 additions and 57 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

117
Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
View File

@ -27,57 +27,61 @@
# 16:27 JULY 14, 1969 # 16:27 JULY 14, 1969
# Page 654 # Page 654
# GROUND TRACKING DETERMINATION PROGRAM -- P21 # GROUND TRACKING DETERMINATION PROGRAM P21
# PROGRAM DESCRIPTION # PROGRAM DESCRIPTION
# MOD NO -- 1 # MOD NO - 1
# MOD BY -- N. M. NEVILLE # MOD BY - N.M.NEVILLE
# FUNCTIONAL DECRIPTION-
# #
# FUNCTIONAL DESCRIPTION -- # TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT # THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
# 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
# GOPERF4 # GOFLASH
# GOFLASH # THISPREC
# THISPREC # OTHPREC
# OTHPREC # LAT-LONG
# LAT-LONG # NORMAL EXIT MODES-
# #
# NORMAL EXIT MODES -- # ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E # ALARM OR ABORT EXIT MODES-
# #
# ALARM OR ABORT EXIT MODES -- # NONE
# NONE # OUTPUT -
#
# 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
# #
# 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 # 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 # DEBRIS
#
# Page 655 # Page 655
# CENTRALS -- A,Q,L # CENTRALS-A,Q,L
# OTHER -- THOSE USED BY THE ABOVE LISTED SUBROUTINES # OTHER-THOSE USED BY THE ABOVE LISTED SUBROUTINES
# SEE LEMPREC, LAT-LONG # SEE LEMPREC,LAT-LONG
SBANK= LOWSUPER # FOR LOW 2CADR'S. SBANK= LOWSUPER # FOR LOW 2CADR'S.
BANK 33 BANK 33
@ -87,8 +91,8 @@
EBANK= P21TIME EBANK= P21TIME
COUNT* $$/P21 COUNT* $$/P21
PROG21 CAF ONE PROG21 CAF ONE
TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001 TS OPTION2 # ASSUMED VEHICLE IS LM , R2 = 00001
CAF BIT2 # OPTION 2 CAF BIT2 # OPTION 2
TC BANKCALL TC BANKCALL
CADR GOPERF4 CADR GOPERF4
TC GOTOPOOH # TERMINATE TC GOTOPOOH # TERMINATE
@ -103,26 +107,26 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
TC INTPRET TC INTPRET
DLOAD DLOAD
DSPTEM1 DSPTEM1
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC STCALL TDEC1 # INTEGRATE TO TIME SPECIFIED IN TDEC
INTSTALL INTSTALL
BON CLEAR BON CLEAR
P21FLAG P21FLAG
P21CONT # ON -- RECYCLE USING BASE VECTOR P21CONT # ON---RECYCLE USING BASE VECTOR
VINTFLAG # OFF -- 1ST PASS CALL BASE VECTOR VINTFLAG # OFF--IST PASS CALL BASE VECTOR
SLOAD SR1 SLOAD SR1
OPTION2 OPTION2
BHIZ SET BHIZ SET
+2 # ZERO -- THIS VEHICLE (LM) +2 # ZERO--THIS VEHICLE(LM)
VINTFLAG # ONE -- OTHER VEHICLE (CM) VINTFLAG # ONE--OTHER VEHICLE(CM)
CLEAR CLEAR CLEAR CLEAR
DIM0FLAG DIM0FLAG
INTYPFLG # PRECISION INTYPFLG # PRECISION
CALL CALL
INTEGRV # CALCULATE INTEGRV # CALCULATE
GOTO # AND GOTO # -AND
P21VSAVE # SAVE BASE VECTOR P21VSAVE # -SAVE BASE VECTOR
P21CONT VLOAD P21CONT VLOAD
P21BASER # RECYCLE -- INTEG FROM BASE VECTOR P21BASER # RECYCLE--INTEG FROM BASE VECTOR
STOVL RCV # --POS STOVL RCV # --POS
# Page 656 # Page 656
P21BASEV P21BASEV
@ -134,12 +138,12 @@ P21CONT VLOAD
MOONFLAG MOONFLAG
SLOAD BZE SLOAD BZE
P21ORIG P21ORIG
+3 # ZERO = EARTH +3 # ZERO=EARTH
SET # ---2 = MOON SET # ---2=MOON
MOONFLAG MOONFLAG
+3 CALL +3 CALL
INTEGRVS INTEGRVS
P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR P21VSAVE DLOAD # SAVE CURRENT BASEVECTOR
TAT TAT
STOVL P21TIME # --TIME STOVL P21TIME # --TIME
RATT1 RATT1
@ -151,12 +155,12 @@ P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR
STOVL P21VEL # VEL/ FOR N91 DISP STOVL P21VEL # VEL/ FOR N91 DISP
RATT RATT
UNIT DOT UNIT DOT
VATT # U(R).V VATT # U(R).V
DDV ASIN # U(R).U(V) DDV ASIN # U(R).U(V)
P21VEL 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 SXA,2 SLOAD
P21ORIG # 0 = EARTH P21ORIG # 0=EARTH
OPTION2 OPTION2
SR1 BHIZ SR1 BHIZ
+3 +3
@ -202,4 +206,3 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
V06N43 VN 00643 V06N43 VN 00643
V6N34 VN 00634 V6N34 VN 00634
K.01 2DEC .01 K.01 2DEC .01