cleanup proposed for next staged
This commit is contained in:
		| @@ -2458,7 +2458,7 @@ DSQSUB		CA	MPAC +1		# SQUARES THE SCALAR CONTENTS OF MPAC. | ||||
| 		XCH	MPAC +1 | ||||
| 		EXTEND | ||||
| 		MP	MPAC | ||||
| 		DDOUBL			# AND MAYBE OVERFLOW. | ||||
| 		DDOUBL			# AND MAYBE OVEFLOW. | ||||
| 		DAS	MPAC +1		# AND SET A TO NET OVERFLOW. | ||||
| 		XCH	MPAC | ||||
| 		EXTEND | ||||
|   | ||||
| @@ -1398,8 +1398,8 @@ RTRNMU		STORE	RTMU | ||||
|  | ||||
| # Page 495 | ||||
| # ***** PERIAPO ***** | ||||
| # MOD NO -1			LOG SECTION -- P34-P35, P74-P75 | ||||
| # MOD BY WHITE, P.		DATE 18 JAN 68 | ||||
| # MOD NO -1       LOG SECTION - P34-P35, P74-P75 | ||||
| # MOD BY WHITE.P  DATE  18JAN68 | ||||
| # | ||||
| # FUNCTIONAL DESCRIPTION | ||||
| #	THIS SUBROUTINE COMPUTES THE TWO BODY APOCENTER AND PERICENTER | ||||
|   | ||||
| @@ -2105,7 +2105,7 @@ R56A1		CAF	VB53		# DISPLAY V53 REQUESTING ALTERNATE MARK | ||||
| # Page 782 | ||||
| 		CADR	GOMARK2 | ||||
| 		TCF	GOTOP00H	# V34:  TERMINATE | ||||
| 		TCF	R56A1		# V33:  DONT PROCEED -- JUST ENTER TO MARK | ||||
| 		TCF	R56A1		# V33:  DON'T PROCEED -- JUST ENTER TO MARK | ||||
| 		TC	INTPRET | ||||
| 		DLOAD | ||||
| 			MRKBUF1 +3 | ||||
|   | ||||
| @@ -1358,7 +1358,7 @@ OPDEGOUT	CCS	MPAC		# RANGE IS 90 DEG | ||||
| 		TC	NEGOPT		# IF NEG NON ZERO | ||||
| 		AD	NEG1		# IF NEG ZERO SUBTRACT 1 | ||||
| 		AD	20BIAS | ||||
| BIASCOM		TS	MPAC		# TEST FOR OVERFLOW | ||||
| BIASCOM		TS	MPAC		# TEST FOR OVEFLOW | ||||
| 		TC	+3		# NO OVFLOW | ||||
| 		CAF	BIT15		# IF OVFLOW | ||||
| 		ADS	MPAC | ||||
|   | ||||
| @@ -171,7 +171,7 @@ CDUINC		TS	TEM2		# 1'S COMPL. QUANT. ARRIVES IN ACC.  STORE IT | ||||
| 		AD	ONE | ||||
| 		TCF	+4 | ||||
| 		AD	ONE | ||||
| 		AD	ONE		# OVERFLOW HERE IF 2'S COMPL. IS 180 DEG. | ||||
| 		AD	ONE		# OVEFLOW HERE IF 2'S COMPL. IS 180 DEG. | ||||
| 		COM | ||||
|  | ||||
| 		AD	TEM2		# SULT MOVES FROM 2ND TO 3D QUAD. (OR BACK) | ||||
| @@ -250,7 +250,7 @@ TRANSP2		CAF	XNB1EB | ||||
| #	2.	GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC: | ||||
| #		ENTRY:		RTB | ||||
| #					SIGNMPAC | ||||
| # IN EITHER CASE, RETURN IS TO  THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. | ||||
| # IN EITHER CASE, RETURN IS TO TEH NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. | ||||
|  | ||||
| SIGNMPAC	EXTEND | ||||
| 		DCA	DPOSMAX | ||||
|   | ||||
| @@ -150,7 +150,7 @@ | ||||
| #	SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE | ||||
| #	APPROXIMATION. | ||||
| # | ||||
| # FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDRY BEFORE | ||||
| # FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDARY BEFORE | ||||
| #	INTERSECTING THE STRAIGHT LINE SWITCH.  HOWEVER THE MINLIM IS | ||||
| #	IGNORED IN COMPUTING THE FIRING TIME, SO THAT THE EXTENSION (INTO | ||||
| #	THE COAST REGION) OF THE STRAIGHT LINE SWITCH IS WHAT IS FIRED TO. | ||||
|   | ||||
| @@ -1,5 +1,5 @@ | ||||
| # Copyright:	Public domain. | ||||
| # Filename:	ASCENT_GUIDNCE.agc | ||||
| # Filename:	ASCENT_GUIDANCE.agc | ||||
| # Purpose: 	Part of the source code for Luminary 1A build 099. | ||||
| #		It is part of the source code for the Lunar Module's (LM) | ||||
| #		Apollo Guidance Computer (AGC), for Apollo 11. | ||||
|   | ||||
		Reference in New Issue
	
	Block a user