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
|
||||
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.
|
||||
|
Loading…
Reference in New Issue
Block a user