2016-07-07 08:47:26 +00:00
|
|
|
# Copyright: Public domain.
|
|
|
|
# Filename: GROUND_TRACKING_DETERMINATION_PROGRAM.agc
|
|
|
|
# Purpose: Part of the source code for Comanche, build 055.
|
|
|
|
# It is part of the source code for the Command Module's (CM)
|
|
|
|
# Apollo Guidance Computer (AGC), Apollo 11.
|
|
|
|
# Assembler: yaYUL
|
|
|
|
# Reference: pp. 456-459
|
|
|
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
|
|
|
# Website: www.ibiblio.org/apollo.
|
2016-12-28 16:11:25 +00:00
|
|
|
# Mod history: 2009-05-07 OH Transcription Batch 1 Assignment
|
2016-07-07 08:47:26 +00:00
|
|
|
# 2009-05-20 RSB Corrected a couple of DIMOFLAG to DIM0FLAG.
|
|
|
|
#
|
2016-12-28 16:11:25 +00:00
|
|
|
# The contents of the "Comanche055" files, in general, are transcribed
|
|
|
|
# from scanned documents.
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
|
|
|
# Assemble revision 055 of AGC program Comanche by NASA
|
2016-12-28 16:11:25 +00:00
|
|
|
# 2021113-051. April 1, 1969.
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
|
|
|
# This AGC program shall also be referred to as Colossus 2A
|
|
|
|
#
|
|
|
|
# Prepared by
|
2016-07-11 12:35:15 +00:00
|
|
|
# Massachusetts Institute of Technology
|
2016-07-07 08:47:26 +00:00
|
|
|
# 75 Cambridge Parkway
|
|
|
|
# Cambridge, Massachusetts
|
|
|
|
#
|
|
|
|
# under NASA contract NAS 9-4065.
|
|
|
|
#
|
|
|
|
# Refer directly to the online document mentioned above for further information.
|
|
|
|
# Please report any errors to info@sandroid.org.
|
|
|
|
|
|
|
|
# Page 456
|
2018-04-02 10:19:34 +00:00
|
|
|
# GROUND TRACKING DETERMINATION PROGRAM P21
|
2016-07-07 08:47:26 +00:00
|
|
|
# PROGRAM DESCRIPTION
|
2018-04-02 10:19:34 +00:00
|
|
|
# MOD NO - 1
|
|
|
|
# MOD BY - N.M.NEVILLE
|
|
|
|
# FUNCTIONAL DECRIPTION-
|
|
|
|
#
|
|
|
|
# TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
|
|
|
|
# THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
|
|
|
|
# CALLING SEQUENCE -
|
|
|
|
#
|
|
|
|
# ASTRONAUT REQUEST THROUGH DSKY V37E21E
|
|
|
|
# SUBROUTINES CALLED-
|
|
|
|
#
|
|
|
|
# GOPERF4
|
|
|
|
# GOFLASH
|
|
|
|
# THISPREC
|
|
|
|
# OTHPREC
|
|
|
|
# LAT-LONG
|
|
|
|
# NORMAL EXIT MODES-
|
|
|
|
#
|
|
|
|
# ASTRONAUT REQUEST THROUGH DSKY TO TERMINATE PROGRAM V34E
|
|
|
|
# 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
|
2016-07-07 08:47:26 +00:00
|
|
|
# ERASABLE INITIALIZATION REQUIRED
|
|
|
|
#
|
2018-04-02 10:19:34 +00:00
|
|
|
# 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
|
2016-07-07 08:47:26 +00:00
|
|
|
#
|
2018-04-02 10:19:34 +00:00
|
|
|
# 504LM _2 2DEC -7.514128400 E-4 RADIANS
|
|
|
|
#
|
|
|
|
# 504LM _4 2DEC _2.553198641 E-4 RADIANS
|
|
|
|
#
|
|
|
|
# NONE
|
2016-07-07 08:47:26 +00:00
|
|
|
# DEBRIS
|
|
|
|
|
|
|
|
# Page 457
|
2018-04-02 10:19:34 +00:00
|
|
|
# CENTRALS-A,Q,L
|
|
|
|
# OTHER-THOSE USED BY THE ABOVE LISTED SUBROUTINES
|
|
|
|
# SEE LEMPREC,LAT-LONG
|
2016-07-07 08:47:26 +00:00
|
|
|
SBANK= LOWSUPER # FOR LOW 2CADR'S.
|
|
|
|
|
|
|
|
BANK 33
|
|
|
|
SETLOC P20S
|
|
|
|
BANK
|
|
|
|
|
|
|
|
EBANK= P21TIME
|
|
|
|
COUNT 24/P21
|
2016-12-28 16:11:25 +00:00
|
|
|
|
2016-07-07 08:47:26 +00:00
|
|
|
PROG21 CAF ONE
|
2018-04-02 10:19:34 +00:00
|
|
|
TS OPTION2 # ASSUMED VEHICLE IS LM , R2 = 00001
|
2016-07-07 08:47:26 +00:00
|
|
|
CAF BIT2 # OPTION 2
|
|
|
|
TC BANKCALL
|
|
|
|
CADR GOPERF4
|
|
|
|
TC GOTOP00H # TERMINATE
|
|
|
|
TC +2 # PROCEED VALUE OF ASSUMED VEHICLE OK
|
|
|
|
TC -5 # R2 LOADED THROUGH DSKY
|
|
|
|
P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
|
|
|
TC BANKCALL
|
|
|
|
CADR GOFLASH
|
|
|
|
TC GOTOP00H # TERM
|
|
|
|
TC +2 # PROCEED VALUES OK
|
|
|
|
TC -5 # TIME LOADED THROUGH DSKY
|
|
|
|
TC INTPRET
|
2016-12-28 16:11:25 +00:00
|
|
|
DLOAD
|
2016-07-07 08:47:26 +00:00
|
|
|
DSPTEM1
|
|
|
|
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
|
|
|
|
INTSTALL
|
|
|
|
BON SET
|
|
|
|
P21FLAG
|
|
|
|
P21CONT # ON...RECYCLE USING BASE VECTOR
|
|
|
|
VINTFLAG # OFF..1ST PASS CALC BASE VECTOR
|
|
|
|
SLOAD SR1
|
|
|
|
OPTION2
|
|
|
|
BHIZ CLEAR
|
|
|
|
+2 # ZERO..THIS VEHICLE (CM)
|
|
|
|
VINTFLAG # ONE...OTHER VEHICLE(LM)
|
|
|
|
CLEAR CLEAR
|
|
|
|
DIM0FLAG
|
|
|
|
INTYPFLG # PRECISION
|
|
|
|
CALL
|
|
|
|
INTEGRV # CALCULATE
|
|
|
|
GOTO # .AND
|
|
|
|
P21VSAVE # ..SAVE BASE VECTOR
|
2016-12-28 16:11:25 +00:00
|
|
|
P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
|
2016-07-07 08:47:26 +00:00
|
|
|
P21BASER
|
2016-12-28 16:11:25 +00:00
|
|
|
# Page 458
|
2016-07-07 08:47:26 +00:00
|
|
|
STOVL RCV # ..POS
|
|
|
|
P21BASEV
|
|
|
|
STODL VCV # ..VEL
|
|
|
|
P21TIME
|
|
|
|
STORE TET # ..TIME
|
|
|
|
CLEAR CLEAR
|
|
|
|
DIM0FLAG
|
|
|
|
MOONFLAG
|
|
|
|
SLOAD BZE
|
|
|
|
P21ORIG
|
|
|
|
+3 # ZERO = EARTH
|
|
|
|
SET # ...2 = MOON
|
|
|
|
MOONFLAG
|
|
|
|
CALL
|
|
|
|
INTEGRVS
|
|
|
|
P21VSAVE DLOAD # SAVE CURRENT BASE VECTOR
|
|
|
|
TAT
|
|
|
|
STOVL P21TIME # ..TIME
|
|
|
|
RATT1
|
|
|
|
STOVL P21BASER # ..POS B-29 OR B-27
|
|
|
|
VATT1
|
|
|
|
STORE P21BASEV # ..VEL B-7 OR B-5
|
|
|
|
ABVAL SL*
|
|
|
|
0,2
|
|
|
|
STOVL P21VEL # /VEL/ FOR N73 DSP
|
|
|
|
RATT
|
|
|
|
UNIT DOT
|
|
|
|
VATT # U(R).(V)
|
|
|
|
DDV ASIN # U(R).U(V)
|
|
|
|
P21VEL
|
|
|
|
STORE P21GAM # SIN-1 U(R).U(V), -90 TO +90
|
|
|
|
SXA,2 SET
|
|
|
|
P21ORIG # 0 = EARTH 2 = MOON
|
|
|
|
P21FLAG
|
|
|
|
P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
|
|
|
LUNAFLAG
|
|
|
|
X2
|
|
|
|
BZE SET
|
|
|
|
+2 # 0 = EARTH
|
|
|
|
LUNAFLAG
|
|
|
|
VLOAD
|
|
|
|
RATT
|
|
|
|
STODL ALPHAV
|
|
|
|
TAT
|
|
|
|
CLEAR CALL
|
|
|
|
ERADFLAG
|
|
|
|
LAT-LONG
|
|
|
|
DMP # MPAC = ALT, METERS B-29
|
|
|
|
K.01
|
|
|
|
STORE P21ALT # ALT/100 FOR N73 DSP
|
2016-12-28 16:11:25 +00:00
|
|
|
# Page 459
|
2016-07-07 08:47:26 +00:00
|
|
|
EXIT
|
|
|
|
CAF V06N43 # DISPLAY LAT,LONG,ALT
|
|
|
|
TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
|
|
|
|
CADR GOFLASH # ALT = METERS B-29 BOTH EARTH/MOON
|
|
|
|
TC GOTOP00H # TERM
|
|
|
|
TC GOTOP00H
|
|
|
|
TC INTPRET # V32E RECYCLE
|
|
|
|
DLOAD DAD
|
|
|
|
P21TIME
|
|
|
|
600SEC # 600 SECONDS OR 10 MIN
|
|
|
|
STORE DSPTEM1
|
2016-12-28 16:11:25 +00:00
|
|
|
RTB
|
2016-07-07 08:47:26 +00:00
|
|
|
P21PROG1
|
|
|
|
600SEC 2DEC 60000 # 10 MIN
|
|
|
|
|
|
|
|
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
|
|
|
|
OCT 00000 # TO BE INTEGRATED
|
|
|
|
V06N43 VN 00643
|
|
|
|
V6N34 VN 00634
|
|
|
|
K.01 2DEC .01
|
|
|
|
|