From 73c2cc8c1dcd422ea3037d5ab714d50be0b88fc1 Mon Sep 17 00:00:00 2001 From: Gary Young Date: Sun, 17 Jul 2016 16:21:48 -0600 Subject: [PATCH 1/7] P76.s replaced whitespace with newline at end of file --- Comanche055/P76.agc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Comanche055/P76.agc b/Comanche055/P76.agc index 5584d91..41d7a29 100644 --- a/Comanche055/P76.agc +++ b/Comanche055/P76.agc @@ -159,4 +159,4 @@ P76SUB1 CLEAR SLOAD +2 # =2.....SET MOONFLAG MOONFLAG RVQ - \ No newline at end of file + From c8e898c39e6854a75c07b02bc489cb424ac9c61d Mon Sep 17 00:00:00 2001 From: Gary Young Date: Tue, 19 Jul 2016 14:17:52 -0600 Subject: [PATCH 2/7] typo corrections for Push Requst to chrislgarry/Apollo-11 --- Comanche055/DOWN-TELEMETRY_PROGRAM.agc | 2 +- Comanche055/ERASABLE_ASSIGNMENTS.agc | 2 +- Comanche055/INTEGRATION_INITIALIZATION.agc | 2 +- Comanche055/INTERPRETER.agc | 6 +++--- Comanche055/JET_SELECTION_LOGIC.agc | 2 +- Comanche055/MEASUREMENT_INCORPORATION.agc | 2 +- Comanche055/P20-P25.agc | 4 ++-- Comanche055/P32-P33_P72-P73.agc | 2 +- Comanche055/P34-35_P74-75.agc | 2 +- Comanche055/P51-P53.agc | 4 ++-- Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 4 ++-- Comanche055/RT8_OP_CODES.agc | 4 ++-- Comanche055/TVCINITIALIZE.agc | 2 +- Comanche055/TVCROLLDAP.agc | 4 ++-- Comanche055/UPDATE_PROGRAM.agc | 2 +- Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc | 4 ++-- Luminary099/P32-P35_P72-P75.agc | 2 +- Luminary099/RTB_OP_CODES.agc | 4 ++-- 18 files changed, 27 insertions(+), 27 deletions(-) diff --git a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc index f75b3bb..01969d0 100644 --- a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc +++ b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc @@ -329,7 +329,7 @@ DNTMEXIT EXTEND # DOWN-TELEMETRY EXIT CA L # RESPECTIVELY TMEXITL EXTEND WRITE DNTM2 -TMRESUME TCF RESUME # EXIT TELEMTRY PROGRAM VIA RESUME. +TMRESUME TCF RESUME # EXIT TELEMETRY PROGRAM VIA RESUME. MINB12 EQUALS -1/8 DNECADR EQUALS TMINDEX diff --git a/Comanche055/ERASABLE_ASSIGNMENTS.agc b/Comanche055/ERASABLE_ASSIGNMENTS.agc index c2b3cc1..24b1cc6 100644 --- a/Comanche055/ERASABLE_ASSIGNMENTS.agc +++ b/Comanche055/ERASABLE_ASSIGNMENTS.agc @@ -1561,7 +1561,7 @@ ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS. ENTRET EQUALS DOTINC # EXIT FROM ENTER DOTRET ERASE # RETURN FROM DOT SUBROUTINE -DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. +DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV. ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH WDCNT EQUALS DOTRET # CHAR COUNTER FOR DSPWD INREL EQUALS DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG ) diff --git a/Comanche055/INTEGRATION_INITIALIZATION.agc b/Comanche055/INTEGRATION_INITIALIZATION.agc index 6e120ec..6012ab7 100644 --- a/Comanche055/INTEGRATION_INITIALIZATION.agc +++ b/Comanche055/INTEGRATION_INITIALIZATION.agc @@ -97,7 +97,7 @@ # # 2.2 SCALING # -# THE INTEGRATION ROUTIEN WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN +# THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN # APPENDIX B OF THE USERS' GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc index 0a2e426..2da11ff 100644 --- a/Comanche055/INTERPRETER.agc +++ b/Comanche055/INTERPRETER.agc @@ -1336,8 +1336,8 @@ UPPOS XCH L # SAVE DECREMENTED UPPER PART. AD HALF TS A # SKIPS ON OVERFLOW TCF +2 - INCR L # RESTORE UPPER TO ROIGINAL VALUE - XCH L # SWAP A + L BACK. + INCR L # RESTORE UPPER TO ORIGINAL VALUE + XCH L # SWAP A + L BANK. TC Q UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT @@ -2458,7 +2458,7 @@ DSQSUB CA MPAC +1 # SQUARES THE SCALAR CONTENTS OF MPAC. XCH MPAC +1 EXTEND MP MPAC - DDOUBL # AND MAYBE OVEFLOW. + DDOUBL # AND MAYBE OVERFLOW. DAS MPAC +1 # AND SET A TO NET OVERFLOW. XCH MPAC EXTEND diff --git a/Comanche055/JET_SELECTION_LOGIC.agc b/Comanche055/JET_SELECTION_LOGIC.agc index b1a14f0..7eed1a9 100644 --- a/Comanche055/JET_SELECTION_LOGIC.agc +++ b/Comanche055/JET_SELECTION_LOGIC.agc @@ -278,7 +278,7 @@ BDZCHECK CA ZNDX BZF TAUCHECK ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY - TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL + TS RWORD1 # HAVE INTRODUCED AN UNDESIRABLE ROLL TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS TAUCHECK CCS TAU diff --git a/Comanche055/MEASUREMENT_INCORPORATION.agc b/Comanche055/MEASUREMENT_INCORPORATION.agc index 7468155..0eca4bb 100644 --- a/Comanche055/MEASUREMENT_INCORPORATION.agc +++ b/Comanche055/MEASUREMENT_INCORPORATION.agc @@ -362,7 +362,7 @@ FAZC CALL GRP2PC # Page 1259 VLOAD VAD # START 3RD PHASE OF INCORP2 - X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR + X789 # 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR DELTAX +12D # INCORPORATION FOR X789 STORE TX789 BON RTB diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index 01d7cde..ed78d03 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -531,7 +531,7 @@ V51NB VN 5100 # 7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y, # CDUX. # -# ERASABLE INTIALIZATION REQUIRED +# ERASABLE INITIALIZATION REQUIRED # # FLAGS SET AND RESET # R21MARK (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2) @@ -782,7 +782,7 @@ PI/4.0 2DEC .785398164 # MARKDATA, BASE ADDRESS OF MARK DATA # REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM # -# SUROUTINES CALLED: +# SUBROUTINES CALLED: # # SXTNB -- SEXT. ANGULAR READINGS TO NAV. BASE COOR. # NBSM -- TRANSFORM FROM NAV. BASE TO STABLE MEMBER diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index 528bf87..2c0f105 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -39,7 +39,7 @@ # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE. P DATE 1JUNE67 +# MOD BY WHITE, P. DATE 1JUNE67 # # PURPOSE # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc index 4d08d51..4537374 100644 --- a/Comanche055/P34-35_P74-75.agc +++ b/Comanche055/P34-35_P74-75.agc @@ -1419,7 +1419,7 @@ RTRNMU STORE RTMU # INPUT # (1) RVEC POSITION VECTOR IN METERS # SCALE FACTOR -- EARTH +29, MOON +27 -# (2) VVEC VELOCITY VECTORY IN METERS/CENTISECOND +# (2) VVEC VELOCITY VECTOR IN METERS/CENTISECOND # SCALE FACTOR -- EARTH +7, MOON +5 # (3) X1 PRIMARY BODY INDICATOR # EARTH -2, MOON -10 diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index 45a488c..4fd4df0 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -318,7 +318,7 @@ V06N89* VN 0689 # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE, # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA # THE KEYBOARD. TO COMPUTE THE LANDING SITE -# ORIENTATION FOR P52 OR P54 +# ORIENTATION FOR P52 OR P54. # # LET: # RLS = LANDING SITE VECTOR IN REF COORDINATES @@ -2105,7 +2105,7 @@ R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK # Page 782 CADR GOMARK2 TCF GOTOP00H # V34: TERMINATE - TCF R56A1 # V33: DON'T PROCEED -- JUST ENTER TO MARK + TCF R56A1 # V33: DONT PROCEED -- JUST ENTER TO MARK TC INTPRET DLOAD MRKBUF1 +3 diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index 263520c..684d8e2 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -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 OVEFLOW +BIASCOM TS MPAC # TEST FOR OVERFLOW TC +3 # NO OVFLOW CAF BIT15 # IF OVFLOW ADS MPAC @@ -2187,7 +2187,7 @@ HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM. MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L # Page 353 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION - EXTEND # IF THIS DAS OVEFLOWS, G/ 745 HR, 39MIN + EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN BZF +2 TC ALMCYCLE CA ZREG # PUT ZREG, ZREGLP INTO MPAC +1. diff --git a/Comanche055/RT8_OP_CODES.agc b/Comanche055/RT8_OP_CODES.agc index a4e348c..1fe63f9 100644 --- a/Comanche055/RT8_OP_CODES.agc +++ b/Comanche055/RT8_OP_CODES.agc @@ -171,7 +171,7 @@ CDUINC TS TEM2 # 1'S COMPL. QUANT. ARRIVES IN ACC. STORE IT AD ONE TCF +4 AD ONE - AD ONE # OVEFLOW HERE IF 2'S COMPL. IS 180 DEG. + AD ONE # OVERFLOW 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 TEH NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. +# IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. SIGNMPAC EXTEND DCA DPOSMAX diff --git a/Comanche055/TVCINITIALIZE.agc b/Comanche055/TVCINITIALIZE.agc index a220e87..4389068 100644 --- a/Comanche055/TVCINITIALIZE.agc +++ b/Comanche055/TVCINITIALIZE.agc @@ -199,7 +199,7 @@ ATTINIT CAE DAPDATR1 # ATTITUDE-ERROR INITIALIZATION LOGIC +8 CCS TTMP1 # TEST TEMPORARY COUNTER TCF ATTINIT +5 # BACK TO REPEAT FOR PITCH ERROR - CA ERRBTMP # ERROS ESTABLISHED AND LIMITED + CA ERRBTMP # ERRORS ESTABLISHED AND LIMITED TS PERRB CA ERRBTMP +1 TS YERRB diff --git a/Comanche055/TVCROLLDAP.agc b/Comanche055/TVCROLLDAP.agc index 1411e69..ea3e79c 100644 --- a/Comanche055/TVCROLLDAP.agc +++ b/Comanche055/TVCROLLDAP.agc @@ -123,7 +123,7 @@ # CONTROL ACCELERATION CONACC, OR ITS RECIPROCAL, 1/CONACC, THE TVC # ROLL DAP GAIN (SEE TVCEXECUTIVE VARIABLE GAIN PACKAGE). JET # FIRING TIME IS SIMPLY THAT REQUIRED TO ACHIEVE THE DESIRED OGARATE, -# SUBJECT TO TEH LIMITATIONS DISCUSSED UNDER FUNCTIONAL DESCRIPTION, +# SUBJECT TO THE LIMITATIONS DISCUSSED UNDER FUNCTIONAL DESCRIPTION, # ABOVE. # # THE THREE CONTROL REGIONS (+, -, AND ZERO TORQUE) ARE COMPRISED OF @@ -150,7 +150,7 @@ # SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE # APPROXIMATION. # -# FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDARY BEFORE +# FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDRY 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. diff --git a/Comanche055/UPDATE_PROGRAM.agc b/Comanche055/UPDATE_PROGRAM.agc index eeec43e..b764b7b 100644 --- a/Comanche055/UPDATE_PROGRAM.agc +++ b/Comanche055/UPDATE_PROGRAM.agc @@ -381,7 +381,7 @@ TIMEDIDL EXTEND TIMEDIDR INHINT CAF ZERO - ZL # PICK UP INCRMENTER (AND ZERO + ZL # PICK UP INCREMENTER (AND ZERO TS MPAC +2 # IT IN CASE OF RESTARTS) AND DXCH UPBUFF +8D # STORE IT DXCH MPAC # INTO MPAC FOR TPAGREE. diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index 2e92de3..b3872b1 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -34,8 +34,8 @@ ## At the get-together of the AGC developers celebrating the 40th anniversary ## of the first moonwalk, Don Eyles (one of the authors of this routine along ## with Peter Adler) has related to us a little interesting history behind the -## naming of the routine. -## +## naming of the routine.
+##
## It traces back to 1965 and the Los Angeles riots, and was inspired ## by disc jockey extraordinaire and radio station owner Magnificent Montague. ## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index e4133c6..8950403 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -30,7 +30,7 @@ # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE.P DATE 1JUNE67 +# MOD BY WHITE, P. DATE 1JUNE67 # # PURPOSE diff --git a/Luminary099/RTB_OP_CODES.agc b/Luminary099/RTB_OP_CODES.agc index aa6cce0..71556ce 100644 --- a/Luminary099/RTB_OP_CODES.agc +++ b/Luminary099/RTB_OP_CODES.agc @@ -129,7 +129,7 @@ CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT TCF +4 AD ONE # Page 1399 - AD ONE # OVEFLOW HERE IF 2S COMPL. IS 180 DEG. + AD ONE # OVERFLOW HERE IF 2S COMPL. IS 180 DEG. COM AD TEM2 # SULT MOVES FROM 2ND TO 3D QUAD. (OR BACK) @@ -167,7 +167,7 @@ PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1 # 2. GENERATE IN MPAC THE SIGNUM FUNCTION OF MPAC: # ENTRY: RTB # SIGNMPAC -# IN EITHER CASE, RETURN IS TO TEH NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. +# IN EITHER CASE, RETURN IS TO THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. SIGNMPAC EXTEND DCA DPOSMAX From fd6a750a56f2396ace8beeddcaf6f841f466bcde Mon Sep 17 00:00:00 2001 From: Gary Young Date: Tue, 19 Jul 2016 23:11:05 -0600 Subject: [PATCH 3/7] revert change for BURN-BABY-BURN... --- Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index b3872b1..60860cc 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -34,8 +34,8 @@ ## At the get-together of the AGC developers celebrating the 40th anniversary ## of the first moonwalk, Don Eyles (one of the authors of this routine along ## with Peter Adler) has related to us a little interesting history behind the -## naming of the routine.
-##
+## naming of the routine. +## ## It traces back to 1965 and the Los Angeles riots, and was inspired ## by disc jockey extraordinaire and radio station owner Magnificent Montague. ## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the From b95807fa98f4eae57ff2694d7924a7ad29f94362 Mon Sep 17 00:00:00 2001 From: Gary Young Date: Tue, 19 Jul 2016 23:52:08 -0600 Subject: [PATCH 4/7] missed a space in BURN... --- Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc index 60860cc..2e92de3 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc @@ -35,7 +35,7 @@ ## of the first moonwalk, Don Eyles (one of the authors of this routine along ## with Peter Adler) has related to us a little interesting history behind the ## naming of the routine. -## +## ## It traces back to 1965 and the Los Angeles riots, and was inspired ## by disc jockey extraordinaire and radio station owner Magnificent Montague. ## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the From d888c310e754350dd5b30846ab0aea7b9cdbc390 Mon Sep 17 00:00:00 2001 From: Gary Young Date: Wed, 20 Jul 2016 14:36:12 -0600 Subject: [PATCH 5/7] revert unintended spacing in MEASUREMENT_INCORPORATION.agc --- Comanche055/MEASUREMENT_INCORPORATION.agc | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Comanche055/MEASUREMENT_INCORPORATION.agc b/Comanche055/MEASUREMENT_INCORPORATION.agc index 0eca4bb..7468155 100644 --- a/Comanche055/MEASUREMENT_INCORPORATION.agc +++ b/Comanche055/MEASUREMENT_INCORPORATION.agc @@ -362,7 +362,7 @@ FAZC CALL GRP2PC # Page 1259 VLOAD VAD # START 3RD PHASE OF INCORP2 - X789 # 7TH, 8TH, 9TH COMPONENT OF STATE VECTOR + X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR DELTAX +12D # INCORPORATION FOR X789 STORE TX789 BON RTB From 7fe8bb674b1c3b710e06bba8a776285d763abfc3 Mon Sep 17 00:00:00 2001 From: Gary Young Date: Sat, 23 Jul 2016 22:16:40 -0600 Subject: [PATCH 6/7] catchup proposed --- Comanche055/INTERPRETER.agc | 4 ++-- Comanche055/JET_SELECTION_LOGIC.agc | 2 +- Comanche055/P20-P25.agc | 2 +- Comanche055/P32-P33_P72-P73.agc | 2 +- Comanche055/P51-P53.agc | 2 +- Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 2 +- Comanche055/RT8_OP_CODES.agc | 2 +- Comanche055/UPDATE_PROGRAM.agc | 2 +- Luminary099/ASCENT_GUIDANCE.agc | 2 +- Luminary099/P32-P35_P72-P75.agc | 4 ++-- Luminary099/RTB_OP_CODES.agc | 2 +- 11 files changed, 13 insertions(+), 13 deletions(-) diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc index 2da11ff..167ce3a 100644 --- a/Comanche055/INTERPRETER.agc +++ b/Comanche055/INTERPRETER.agc @@ -1336,8 +1336,8 @@ UPPOS XCH L # SAVE DECREMENTED UPPER PART. AD HALF TS A # SKIPS ON OVERFLOW TCF +2 - INCR L # RESTORE UPPER TO ORIGINAL VALUE - XCH L # SWAP A + L BANK. + INCR L # RESTORE UPPER TO ROIGINAL VALUE + XCH L # SWAP A + L BACK. TC Q UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT diff --git a/Comanche055/JET_SELECTION_LOGIC.agc b/Comanche055/JET_SELECTION_LOGIC.agc index 88c9867..f39337c 100644 --- a/Comanche055/JET_SELECTION_LOGIC.agc +++ b/Comanche055/JET_SELECTION_LOGIC.agc @@ -278,7 +278,7 @@ BDZCHECK CA ZNDX BZF TAUCHECK ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY - TS RWORD1 # HAVE INTRODUCED AN UNDESIRABLE ROLL + TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS TAUCHECK CCS TAU diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc index ed78d03..77369a4 100644 --- a/Comanche055/P20-P25.agc +++ b/Comanche055/P20-P25.agc @@ -782,7 +782,7 @@ PI/4.0 2DEC .785398164 # MARKDATA, BASE ADDRESS OF MARK DATA # REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM # -# SUBROUTINES CALLED: +# SUBROUTINES CALLED- # # SXTNB -- SEXT. ANGULAR READINGS TO NAV. BASE COOR. # NBSM -- TRANSFORM FROM NAV. BASE TO STABLE MEMBER diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc index 2c0f105..f14286d 100644 --- a/Comanche055/P32-P33_P72-P73.agc +++ b/Comanche055/P32-P33_P72-P73.agc @@ -39,7 +39,7 @@ # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE, P. DATE 1JUNE67 +# MOD BY WHITE.P DATE 1JUNE67 # # PURPOSE # (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index 4fd4df0..644e240 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -318,7 +318,7 @@ V06N89* VN 0689 # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE, # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA # THE KEYBOARD. TO COMPUTE THE LANDING SITE -# ORIENTATION FOR P52 OR P54. +# ORIENTATION FOR P52 OR P54 # # LET: # RLS = LANDING SITE VECTOR IN REF COORDINATES diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index 684d8e2..3ff7295 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -2187,7 +2187,7 @@ HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM. MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L # Page 353 DAS HITEMIN # ADD IN MINUTES CONTRIBUTION - EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR, 39MIN + EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN BZF +2 TC ALMCYCLE CA ZREG # PUT ZREG, ZREGLP INTO MPAC +1. diff --git a/Comanche055/RT8_OP_CODES.agc b/Comanche055/RT8_OP_CODES.agc index 1fe63f9..d729cc2 100644 --- a/Comanche055/RT8_OP_CODES.agc +++ b/Comanche055/RT8_OP_CODES.agc @@ -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 THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. SIGNMPAC EXTEND DCA DPOSMAX diff --git a/Comanche055/UPDATE_PROGRAM.agc b/Comanche055/UPDATE_PROGRAM.agc index b764b7b..13caf9c 100644 --- a/Comanche055/UPDATE_PROGRAM.agc +++ b/Comanche055/UPDATE_PROGRAM.agc @@ -381,7 +381,7 @@ TIMEDIDL EXTEND TIMEDIDR INHINT CAF ZERO - ZL # PICK UP INCREMENTER (AND ZERO + ZL # PICK UP INCREMENTER(AND ZERO TS MPAC +2 # IT IN CASE OF RESTARTS) AND DXCH UPBUFF +8D # STORE IT DXCH MPAC # INTO MPAC FOR TPAGREE. diff --git a/Luminary099/ASCENT_GUIDANCE.agc b/Luminary099/ASCENT_GUIDANCE.agc index caed50f..2463453 100644 --- a/Luminary099/ASCENT_GUIDANCE.agc +++ b/Luminary099/ASCENT_GUIDANCE.agc @@ -1,5 +1,5 @@ # Copyright: Public domain. -# Filename: ASCENT_GUIDANCE.agc +# Filename: ASCENT_GUIDNCE.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. diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc index 8950403..931ea8b 100644 --- a/Luminary099/P32-P35_P72-P75.agc +++ b/Luminary099/P32-P35_P72-P75.agc @@ -29,8 +29,8 @@ # Page 618 # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # -# MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE, P. DATE 1JUNE67 +# MOD NO -1 LOG SECTION -- P32-P35, P72-P75 +# MOD BY WHITE.P DATE 1JUNE67 # # PURPOSE diff --git a/Luminary099/RTB_OP_CODES.agc b/Luminary099/RTB_OP_CODES.agc index 71556ce..a3bec33 100644 --- a/Luminary099/RTB_OP_CODES.agc +++ b/Luminary099/RTB_OP_CODES.agc @@ -167,7 +167,7 @@ PULSEIMU INDEX FIXLOC # ADDRESS OF GYRO COMMANDS SHOULD BE IN X1 # 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 THE NEXT INTERPRETIVE INSTRUCTION IN THE CALLING SEQUENCE. SIGNMPAC EXTEND DCA DPOSMAX From 497b7fff11c8f05f34141016be40e708e84cbd28 Mon Sep 17 00:00:00 2001 From: Gary Young Date: Wed, 27 Jul 2016 15:32:24 -0600 Subject: [PATCH 7/7] cleanup proposed for next staged --- Comanche055/INTERPRETER.agc | 2 +- Comanche055/P34-35_P74-75.agc | 4 ++-- Comanche055/P51-P53.agc | 2 +- Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc | 2 +- Comanche055/RT8_OP_CODES.agc | 4 ++-- Comanche055/TVCROLLDAP.agc | 2 +- Luminary099/ASCENT_GUIDANCE.agc | 2 +- 7 files changed, 9 insertions(+), 9 deletions(-) diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc index 167ce3a..0a2e426 100644 --- a/Comanche055/INTERPRETER.agc +++ b/Comanche055/INTERPRETER.agc @@ -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 diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc index 4537374..254fde4 100644 --- a/Comanche055/P34-35_P74-75.agc +++ b/Comanche055/P34-35_P74-75.agc @@ -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 diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc index 644e240..45a488c 100644 --- a/Comanche055/P51-P53.agc +++ b/Comanche055/P51-P53.agc @@ -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 diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc index 3ff7295..485d719 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc @@ -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 diff --git a/Comanche055/RT8_OP_CODES.agc b/Comanche055/RT8_OP_CODES.agc index d729cc2..a4e348c 100644 --- a/Comanche055/RT8_OP_CODES.agc +++ b/Comanche055/RT8_OP_CODES.agc @@ -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 diff --git a/Comanche055/TVCROLLDAP.agc b/Comanche055/TVCROLLDAP.agc index ea3e79c..ca8f391 100644 --- a/Comanche055/TVCROLLDAP.agc +++ b/Comanche055/TVCROLLDAP.agc @@ -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. diff --git a/Luminary099/ASCENT_GUIDANCE.agc b/Luminary099/ASCENT_GUIDANCE.agc index 8e920cc..dcdee44 100644 --- a/Luminary099/ASCENT_GUIDANCE.agc +++ b/Luminary099/ASCENT_GUIDANCE.agc @@ -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.