Skip to main content

Browse the archive

Revision 49926c64aa2d4ea8cd64b4eaa626d22f43bfaeeb authored by Ron Burkey on 12 October 2018, 13:13:55 UTC, committed by Ron Burkey on 12 October 2018, 13:13:55 UTC 
Added a cli switch (--simulation) to yaYUL.  What this does is to react
 
to comments in *.agc files that include the strings -SIMULATION or
+SIMULATION.  The former are automatically commented out if --simulation
is used, while the latter are commented out is --simulation is *not*
used.  All of that was for the sole purpose of adding a -SIMULATION
specifier to a single line in Validation.agc that proves inconvenient
sometimes for simulations of the AGC electronics.  There's a new target
in the top-level Makefile (namely Validation-hardware-simulation) that
isn't one of the default ones, but which when used, builds a separate
rope (Validation/Validation-hardware-simulation.agc.bin) and html with
that one inconvenient line in Validation.agc commented out.  Overkill, I
know.
1 parent 0a720cd
Raw File
RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc 
### FILE="Main.annotation"
## Copyright:	Public domain.
## Filename:	RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
## Purpose:	Part of the source code for Artemis (i.e., Colossus 3),
##		build 072.  This is for the Command Module's (CM) 
##		Apollo Guidance Computer (AGC), for 
##		Apollo 15-17.
## Assembler:	yaYUL
## Contact:	Sergio Navarro <sergionavarrog@gmail.com>
## Website:	www.ibiblio.org/apollo/index.html
## Page Scans:	www.ibiblio.org/apollo/ScansForConversion/Artemis072/
## Mod history:	2009-08-27 SN	Adapted from corresponding Comanche 055 file.
## 		2009-09-04 JL	Minor fixes.
##		2010-02-20 RSB	Un-##'d this header.
##		2017-02-08 RSB	Proofed comment text by diff'ing vs Comanche 55
##				and/or octopus/ProoferComments as most-appropriate.

## Page 1036
# CALCULATION OF  AMGB, AMBG     ONCE EVERY SECOND
#
#  AMGB =  1	SIN(PSI)		0
#	   0	COS(PSI)COS(PHI)	SIN(PHI)
#	   0	-COS(PSI)SIN(PHI)	COS(PHI)
#
#  AMBG =  1	-TAN(PSI)COS(PHI)	TAN(PSI)SIN(PHI)
#	   0	COS(PHI)/COS(PSI)	-SIN(PHI)/COS(PSI)
#	   0	SIN(PHI)		COS(PHI)
#
#  WHERE PHI AND PSI ARE CDU ANGLES

		SETLOC	DAPS8
		BANK
		
		COUNT*	$$/DAPEX
		EBANK=	KMPAC
AMBGUPDT	CA	FLAGWRD6	# CHECK FOR RCS AUTOPILOT
		MASK	DPCONFIG
		EXTEND
		BZMF	ENDOFJOB	# BIT15 = 0, BIT14 = 1
		MASK	DAP2BIT		# IF NOT RCS, EXIT
		EXTEND
		BZF	ENDOFJOB	# TO PROTECT TVC DAP ON SWITCHOVER
		
		CA	CDUZ	
		TC	SPSIN2
		TS	AMGB1		# CALCULATE AMGB
		CA	CDUZ
		TC	SPCOS2
		TS	CAPSI		# MUST CHECK FOR GIMBAL LOCK
		CAF	QUADANGL	# = 7.25  DEGREES JET QUAD ANGULAR OFFSET
		EXTEND
		MSU	CDUX
		COM			# CDUX - 7.25 DEG
		TC	SPCOS1
		TS	AMGB8
		EXTEND
		MP	CAPSI
		TS	AMGB4
		CAF	QUADANGL
		EXTEND
		MSU	CDUX
		COM			# CDUX - 7.25 DEG
		TC	SPSIN1
		TS	AMGB5
		EXTEND
		MP	CAPSI
		COM
## Page 1037
		TS	AMGB7
		TCF	ENDOFJOB
		SETLOC	FFTAG12
		BANK

		COUNT*	$$/DAPEX
QUADANGL	DEC	660		# = 7.25 DEGREES
back to top