parent
d04fea42dc
commit
c8fa53b43d
@ -29,59 +29,61 @@
|
|||||||
# Please report any errors to info@sandroid.org.
|
# Please report any errors to info@sandroid.org.
|
||||||
|
|
||||||
# Page 456
|
# Page 456
|
||||||
# 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 THROUGH 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.147535898 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
|
# AX0 2DEC 4.652459653 E-5 RADIANS "68-69 CONSTANTS"
|
||||||
#
|
#
|
||||||
|
# -AY0 2DEC 2.147535898 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
|
||||||
# DEBRIS
|
# DEBRIS
|
||||||
|
|
||||||
# Page 457
|
# Page 457
|
||||||
# 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
|
||||||
@ -92,7 +94,7 @@
|
|||||||
COUNT 24/P21
|
COUNT 24/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
|
||||||
@ -193,7 +195,6 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
|||||||
STORE DSPTEM1
|
STORE DSPTEM1
|
||||||
RTB
|
RTB
|
||||||
P21PROG1
|
P21PROG1
|
||||||
|
|
||||||
600SEC 2DEC 60000 # 10 MIN
|
600SEC 2DEC 60000 # 10 MIN
|
||||||
|
|
||||||
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
|
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
|
||||||
|
Loading…
Reference in New Issue
Block a user