* 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:
parent
a713d948c5
commit
41dd43fce0
@ -27,32 +27,32 @@
|
|||||||
# 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
|
# OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
|
||||||
# COMPUTED
|
# COMPUTED
|
||||||
# OPTION CODE 00002
|
# OPTION CODE 00002
|
||||||
@ -60,24 +60,28 @@
|
|||||||
# OTHER 00002
|
# OTHER 00002
|
||||||
# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
|
# DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
|
||||||
# DECIMAL DISPLAY OF LAT,LONG,ALT
|
# 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
|
# AXO 2DEC 4.652459653 E-5 RADIANS %68-69 CONSTANTS"
|
||||||
# AZ0 2DEC .7753206164 REVOLUTIONS
|
#
|
||||||
# FOR LUNAR ORBITS 504LM VECTOR IS NEEDED:
|
# -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 2DEC -2.700340600 E-5 RADIANS
|
||||||
|
#
|
||||||
# 504LM _2 2DEC -7.514128400 E-4 RADIANS
|
# 504LM _2 2DEC -7.514128400 E-4 RADIANS
|
||||||
|
#
|
||||||
# 504LM _4 2DEC _2.553198641 E-4 RADIANS
|
# 504LM _4 2DEC _2.553198641 E-4 RADIANS
|
||||||
#
|
#
|
||||||
# NONE
|
# 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
|
||||||
@ -103,12 +107,12 @@ 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
|
||||||
@ -119,8 +123,8 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
|||||||
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
|
||||||
@ -154,7 +158,7 @@ P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR
|
|||||||
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
|
||||||
@ -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
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user