cleanup proposed for next staged

This commit is contained in:
Gary Young 2016-07-27 15:32:24 -06:00
parent 1cb2fd5ae0
commit 497b7fff11
7 changed files with 9 additions and 9 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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.

View File

@ -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.