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