diff --git a/Comanche055/ALARM_AND_ABORT.s b/Comanche055/ALARM_AND_ABORT.s index 5f7eab03..b865464 100644 --- a/Comanche055/ALARM_AND_ABORT.s +++ b/Comanche055/ALARM_AND_ABORT.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/AUTOMATIC_MANEUVERS.s b/Comanche055/AUTOMATIC_MANEUVERS.s index 3aff078..177f86c 100644 --- a/Comanche055/AUTOMATIC_MANEUVERS.s +++ b/Comanche055/AUTOMATIC_MANEUVERS.s @@ -490,7 +490,7 @@ ZEROCMDS CAF ZERO TS TAU1 TS TAU2 T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS) - DCA JETADDR # HAVE BEEN DETERINED + DCA JETADDR # HAVE BEEN DETERMINED DXCH T5LOC # RESET T5LOC FOR PHASE3 TCF RESUME diff --git a/Comanche055/CM_BODY_ATTITUDE.s b/Comanche055/CM_BODY_ATTITUDE.s index 048a601..9761c84 100644 --- a/Comanche055/CM_BODY_ATTITUDE.s +++ b/Comanche055/CM_BODY_ATTITUDE.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.s b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.s index 96ecd42..6efa3bc 100644 --- a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.s +++ b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.s @@ -32,7 +32,7 @@ # Page 1063 # SUBROUTINE TO READ GIMBAL ANGLES AND FORM DIFFERENCES. GIMBAL ANGLES ARE SAVED IN 2'S COMPLEMENT, BUT THE -# DIFFERENECES ARE IN 1'S COMP. ENTER AND READ ANGLES EACH .1 SEC. +# DIFFERENCES ARE IN 1'S COMP. ENTER AND READ ANGLES EACH .1 SEC. # # CM/DSTBY = 1 FOR DAP OPERATION # CM/DSTBY = 0 TO TERMINATE DAP OPERATION @@ -289,7 +289,7 @@ T5IDLER1 2CADR T5IDLOC # Page 1070 # THIS SECTION CALCULATES THE ANGULAR BODY RATES EACH .1 SEC. THE ANGULAR RATES ARE THOSE ALONG THE BODY AXES -# XB, YB, ZB, AND ARE NORMALLY DESIGNATED P, Q, R. REQIREMENT: TEMPORARILY ERASE. JETEM, JETEM +1 +# XB, YB, ZB, AND ARE NORMALLY DESIGNATED P, Q, R. REQUIREMENT: TEMPORARILY ERASE. JETEM, JETEM +1 # # SINCE RESTARTS ZERO THE JET OUTPUT CHANNELS, NO ATTEMPT IS MADE TO RESTART THE ENTRY DAPS. THAT IS, # THE 0.1 SEC DAPS WILL MISS A CYCLE, AND WILL PICK UP AT THE NEXT 0.1 SEC UPDATE. MOST OF THE TIME THE 2 SEC @@ -1079,7 +1079,7 @@ TIMETST5 CS ONE # SECTION JETCALL EXAMINES CONTENTS OF JET TIMES IN LIST, ESTABLISHES WTLST ENTRIES, AND EXECUTES CORRESPONDING # JET CODES. A POSITIVE NZ NUMBER IN A TIME REGISTER INDICATES THAT A WTLST CALL IS TO BE MADE, AND ITS JET BITS -# EXECUTED. A +0 INDICATES THAT THE TIME INTERVAL DOES NOT APPLY, BUT THE CORRESPOINDING JET BITS ARE TO BE +# EXECUTED. A +0 INDICATES THAT THE TIME INTERVAL DOES NOT APPLY, BUT THE CORRESPONDING JET BITS ARE TO BE # EXECUTED. A NEG NUMBER INDICATES THAT THE TIME INTERVAL HAS BEEN PROCESSED. IN EVENT OF +0 OR -1, THE # SUBSEQUENT TIME REGISTER IS EXAMINED FOR POSSIBLE ACTION. THUS JET BITS TO BE EXECUTED MAY COME FROM MORE # THAN ONE REGISTER. diff --git a/Comanche055/CONIC_SUBROUTINES.s b/Comanche055/CONIC_SUBROUTINES.s index 9bd7ac8..d2972fe 100644 --- a/Comanche055/CONIC_SUBROUTINES.s +++ b/Comanche055/CONIC_SUBROUTINES.s @@ -69,7 +69,7 @@ # FUNCTIONAL DESCRIPTION -- # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO # BE UPDATED ALONG A CONIC TRAJECTORY, COMPUTES THE NEW, UPDATED STATE VECTOR. THE TRAJECTORY MAY BE ANY CONIC -# SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERPOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE +# SECTION -- CIRCULAR, ELLIPTIC, PARABOLIC, HYPERBOLIC, OR RECTILINEAR WITH RESPECT TO THE EARTH OR THE MOON. THE # USE OF THE SUBROUTINE CAN BE EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION # TECHNIQUE IS UTILIZED IN THE COMPUTATION. @@ -106,7 +106,7 @@ # RESPECTIVELY, IS THE CENTRAL BODY # TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP) # MAY BE POS OR NEG AND ABSOLUTE VALUE MAY BE GREATER OR LESS THAN ONE ORBITAL PERIOD. -# XKEPNEW +17 FOR EARTH DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WTIH THAT OF TAU. +# XKEPNEW +17 FOR EARTH DP GUESS OF ROOT X OF KEPLERS EQN IN SQRT(METERS).SIGN SHOULD AGREE WITH THAT OF TAU. # +16 FOR MOON AND ABS VALUE SHOULD BE LESS THAN THAT CORRESPONDING TO A PERIOD, VIZ, 2PI SQRT(SEMI- # MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET # BY KEPLER TO A POOR BUT VALID GUESS. @@ -284,9 +284,9 @@ # FUNCTIONAL DESCRIPTION -- # THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, -# PROVIDES THE OPTION OF COMUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A +# PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE -# EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WTIHOUT INTRODUCING ANY CODING CHANGES, +# EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. # # THE RESTRICTIONS ARE -- @@ -387,7 +387,7 @@ # STATE IS TO BE UPDATED ALONG A CONIC TRAJECTORY, CALCULATES THE CORRESPONDING TIME-OF-FLIGHT AND, IN ADDITION, # PROVIDES THE OPTION OF COMPUTING THE NEW UPDATED STATE VECTOR. THE RESULTING TRAJECTORY MAY BE A SECTION OF A # CIRCLE, ELLIPSE, PARABOLA, OR HYPERBOLA WITH RESPECT TO THE EARTH OR THE MOON. THE USE OF THE SUBROUTINE CAN BE -# EXTENDED USING OTHER PRIMARY BODIES BY SIMMPE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, +# EXTENDED USING OTHER PRIMARY BODIES BY SIMPLE ADDITIONS TO THE MUTABLE WITHOUT INTRODUCING ANY CODING CHANGES, # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. # # IF THE DESIRED RADIUS IS BEYOND THE RADIUS OF APOCENTER OF THE CONIC OR BELOW THE RADIUS OF PERICENTER, @@ -1776,7 +1776,7 @@ MUTABLE 2DEC* 3.986032 E10 B-36* # MUE LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY. -# ERASABLE ASSIGNEMENTS +# ERASABLE ASSIGNMENTS # KEPLER SUBROUTINE @@ -1825,7 +1825,7 @@ KEPC2 EQUALS 36D # R2VEC ERASE +5 # TDESIRED ERASE +1 # GEOMSGN ERASE +0 -# GUESSW # 0 IF COGA GUESS AVIABLE, 1 IF NOT +# GUESSW # 0 IF COGA GUESS AVAILABLE, 1 IF NOT # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO. # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT # UN ERASE +5 # ONLY USED IF NORMSW IS 1 diff --git a/Comanche055/CSM_GEOMETRY.s b/Comanche055/CSM_GEOMETRY.s index b845bb5..8a77811 100644 --- a/Comanche055/CSM_GEOMETRY.s +++ b/Comanche055/CSM_GEOMETRY.s @@ -33,9 +33,9 @@ BANK # THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT -# VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WTIH THE SEXTANT LINE OF SIGHT. +# VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT. # -# THE INPUTS ARE: 1) THE SEXTAND SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE +# THE INPUTS ARE: 1) THE SEXTANT SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE # MARK VAC AREA. 2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR # JOB VAC AREA. # @@ -83,7 +83,7 @@ SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET # ERENECED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES # REFERENCED TO THE OPTICS COORDINATE SYSTEM. # -# THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO THE PRESENT STABLE MEMMBER COORDINATES STORED AT STAR. 2) SAME ANGLE +# THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO THE PRESENT STABLE MEMBER COORDINATES STORED AT STAR. 2) SAME ANGLE # INPUT AS *SMNB*, I.E., SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU. A CALL # TO CDUTRIG WILL PROVIDE THIS INPUT. # @@ -111,7 +111,7 @@ CALCSXA ITA VLOAD # PUSHDOWN 00-26D, 28D, 30D, 32D-36D # SIGHT LIES ALONG THE STAR VECTOR. # # THE INPUTS ARE: 1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR. 2) THE NAVIGATION BASE -# COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STROED AT XNB, YNB,AND +# COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STORED AT XNB, YNB, AND # ZNB. # # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART diff --git a/Comanche055/DISPLAY_INTERFACE_ROUTINES.s b/Comanche055/DISPLAY_INTERFACE_ROUTINES.s index 8eb4aba..d50d74e 100644 --- a/Comanche055/DISPLAY_INTERFACE_ROUTINES.s +++ b/Comanche055/DISPLAY_INTERFACE_ROUTINES.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -79,12 +79,12 @@ # IS TO THE USER'S CALLING LOC +1. # 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. # 3. ALL ROUTINES THAT END IN R START A SEPARATE JOB (MAKEPLAY) WITH USER'S JOB PRIORITY. -# 4. ALL ROUTIENS NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE +# 4. ALL ROUTINES NOT ENDING IN R BRANCH DIRECTLY TO MAKEPLAY WHICH MAKES THESE DISPLAYS A PART OF THE # USER'S JOB. -# 5. ALL DISPLAY ROUTIENS ARE CALLED VIA BANKCALL. +# 5. ALL DISPLAY ROUTINES ARE CALLED VIA BANKCALL. # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE # DESCRIPTION OF RESTARTS). -# 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPOSES. A TERMINATE (V34) BRANCHES +# 7. ALL FLASHING DISPLAYS HAVE 3 RETURNS TO THE USER FROM ASTRONAUT RESPONSES. A TERMINATE (V34) BRANCHES # TO THE USER'S CALL CADR +1. A PROCEED (V33) BRANCHES TO THE USER'S CALL CADR +2. AN ENTER OR RECYCLE # (V32) BRANCHES TO THE USER'S CALL CADR +3. # 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL @@ -485,7 +485,7 @@ # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE # OVER AGAIN. # -# SPECIAL CONSIDERATONS -- +# SPECIAL CONSIDERATIONS -- # Page 1464 # 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS # 2. GODSP(R), REGODSP(R), GOMARK(R) ALWAYS TURN ON THE FLASH IF ENTERED WITH A PASTE VERB REQUEST. @@ -638,7 +638,7 @@ COPYPACS INDEX COPINDEX TC Q -# PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERUPTING A GOPLAY DISPLAY +# PINCHEK CHECKS TO SEE IF THE CURRENT MARK REQUEST IS MADE BY THE ASTRONAUT WHILE INTERRUPTING A GOPLAY DISPLAY # (A NORMAL OR A PRIO). IF THE ASTRONAUT TRIES TO MARK DURING A PRIO, THE CHECK FAIL LIGHT GOES ON AND THE MARK # REQUEST IS ENDED. IF HE TRIES TO MARK DURING A NORM, THE MARK IS ALLOWED. IN THIS CASE THE NORM IS PUT TO SLEEP # UNTIL ALL MARKING IS FINISHED. diff --git a/Comanche055/DOWN-TELEMETRY_PROGRAM.s b/Comanche055/DOWN-TELEMETRY_PROGRAM.s index f6c6027..f75b3bb 100644 --- a/Comanche055/DOWN-TELEMETRY_PROGRAM.s +++ b/Comanche055/DOWN-TELEMETRY_PROGRAM.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -106,7 +106,7 @@ # 1. DOWNLISTS. DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE # DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER # EXECUTION. -# 2. EACH DOWNLINK LIST CONSISTES OF A CONTROL LIST AND A NUMBER OF +# 2. EACH DOWNLINK LIST CONSISTS OF A CONTROL LIST AND A NUMBER OF # SUBLISTS. # 3. A SUBLIST REFERS TO A SNAPSHOT OR DATA COMMON TO THE SAME OR OTHER # DOWNLINK LISTS. ANY SUBLIST CONTAINING COMMON DATA NEEDS TO BE @@ -122,7 +122,7 @@ # SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT # HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY. # B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6. -# SAME AS 1DNADR, BUT WTIH THE 4 UNUSED BITS OF THE ECADR FORMAT +# SAME AS 1DNADR, BUT WITH THE 4 UNUSED BITS OF THE ECADR FORMAT # FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE- # PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY. # C. DNCHAN DOWNLIST CHANNEL ADDRESS. @@ -347,7 +347,7 @@ SUBLIST EQUALS DNQ # AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP # WILL BEGIN. # -# ONCE INITITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY +# ONCE INITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY # BY THE FOLLOWING: # # 1. A FRESH START diff --git a/Comanche055/DOWNLINK_LISTS.s b/Comanche055/DOWNLINK_LISTS.s index e772786..4de2ae1 100644 --- a/Comanche055/DOWNLINK_LISTS.s +++ b/Comanche055/DOWNLINK_LISTS.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/ENTRY_LEXICON.s b/Comanche055/ENTRY_LEXICON.s index a692067..20dfc5c 100644 --- a/Comanche055/ENTRY_LEXICON.s +++ b/Comanche055/ENTRY_LEXICON.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/ERASABLE_ASSIGNMENTS.s b/Comanche055/ERASABLE_ASSIGNMENTS.s index 7388dc0..c2b3cc1 100644 --- a/Comanche055/ERASABLE_ASSIGNMENTS.s +++ b/Comanche055/ERASABLE_ASSIGNMENTS.s @@ -87,7 +87,7 @@ # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS # Page 38 -# IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH +# IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH # IS NOT ACTIVE IN PARALLEL # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. @@ -492,7 +492,7 @@ ERADFLAG = 017D # EARTH, COMPUTE EARTH, USED FIXED ERADFBIT = BIT13 # BIT 12 FLAG 1 -NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWD +NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWED NOP01BIT = BIT12 # BIT 11 FLAG 1 @@ -1564,7 +1564,7 @@ DOTRET ERASE # RETURN FROM DOT SUBROUTINE DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH WDCNT EQUALS DOTRET # CHAR COUNTER FOR DSPWD -INREL EQUALS DOTRET # INPUT BUFFER SELECTIOR ( X,Y,Z, REG ) +INREL EQUALS DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG ) MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1. @@ -2181,7 +2181,7 @@ TDELTAV EQUALS TET +2 # B(6)TMP POSITION DEVIATION KM*2(14) TNUV EQUALS TDELTAV +6 # B(6)TMP VEL DEVIATION KM(-1/2)*2(14) RCV EQUALS TNUV +6 # B(6)TMP CONIC POSITION KM*2(-14) VCV EQUALS RCV +6 # B(6)TMP CONIC VELOCITY KM(-1/2)*2(6) -TC EQUALS VCV +6 # B(2)TMP TIME SINCE RECITIFICATION +TC EQUALS VCV +6 # B(2)TMP TIME SINCE RECTIFICATION XKEP EQUALS TC +2 # B(2)TMP ROOT OF KEPLER EQ KM(1/2)*2(-10) # **** TEMP -- IN VAC AREA **** @@ -3541,7 +3541,7 @@ TNITPREV EQUALS TNIT +2 # I(2) AXISCODE EQUALS TNITPREV +2 # I(1)IN # P30'S-P17 COMMON STORAGE. (24D) -RACT3 EQUALS GRP2SVQ +1 # I(6)TMP POSITION OF ACTIE AT TPI TIME. +RACT3 EQUALS GRP2SVQ +1 # I(6)TMP POSITION OF ACTIVE AT TPI TIME. VACT3 EQUALS RACT3 +6 # I(6)TMP VELOCITY OF ACTIVE AT TPI TIME. RPASS3 EQUALS VACT3 +6 # I(6)TMP POSITION OF PASSIVE AT TPI TIME. VPASS3 EQUALS RPASS3 +6 # I(6)TMP VELOCITY OF PASSIVE AT TPI TIME. diff --git a/Comanche055/EXECUTIVE.s b/Comanche055/EXECUTIVE.s index 7548f2c..ea92c99 100644 --- a/Comanche055/EXECUTIVE.s +++ b/Comanche055/EXECUTIVE.s @@ -47,7 +47,7 @@ NOVAC INHINT TS EXECTEM1 TCF NOVAC2 # ENTER EXECUTIVE BANK. -# TO ENTER A JOB REQUEST REQUIREING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. +# TO ENTER A JOB REQUEST REQUIRING A VAC AREA -- E.G., ALL (PARTIALLY) INTERPRETIVE JOBS. FINDVAC INHINT TS NEWPRIO @@ -157,7 +157,7 @@ NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET. NOVAC3 TS EXECTEM2 INDEX LOCCTR CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF - TCF NEXTCORE # THE CORESPONDING CORE SET IS AVAILABLE. + TCF NEXTCORE # THE CORRESPONDING CORE SET IS AVAILABLE. NO.CORES DEC 6 TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE @@ -319,7 +319,7 @@ JOBWAKE3 CAF COREINC ADS LOCCTR CCS EXECTEM2 TCF JOBWAKE4 - CS ONE # EXIT IF SLEEPIG JOB NOT FOUND. + CS ONE # EXIT IF SLEEPING JOB NOT FOUND. TS LOCCTR TCF ENDFIND @@ -448,7 +448,7 @@ EJ2 TS BUF +1 TC 2 # Page 1220 -# IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTIEN IS NOT A JOB IN ITSELF, +# IDLING AND COMPUTER ACTIVITY (GREEN) LIGHT MAINTENANCE. THE IDLING ROUTINE IS NOT A JOB IN ITSELF, # BUT RATHER A SUBROUTINE OF THE EXECUTIVE. EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK. diff --git a/Comanche055/EXTENDED_VERBS.s b/Comanche055/EXTENDED_VERBS.s index aa44901..a503699 100644 --- a/Comanche055/EXTENDED_VERBS.s +++ b/Comanche055/EXTENDED_VERBS.s @@ -27,7 +27,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/FRESH_START_AND_RESTART.s b/Comanche055/FRESH_START_AND_RESTART.s index d0be47d..8c89614 100644 --- a/Comanche055/FRESH_START_AND_RESTART.s +++ b/Comanche055/FRESH_START_AND_RESTART.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -99,7 +99,7 @@ # # 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14 # 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK -# 3. MAKE ALL EXECUTEVE REGISTERS AVAILABLE +# 3. MAKE ALL EXECUTIVE REGISTERS AVAILABLE # 4. MAKE ALL VAC AREAS AVAILABLE # 5. CLEAR DSKY REGISTERS # 6. ZERO NUMEROUS SWITCHES @@ -130,7 +130,7 @@ # B. ALARMS # # 1107 PHASE TABLE ERROR -# 1110 RESTART WTIH NO ACTIVE GROUPS +# 1110 RESTART WITH NO ACTIVE GROUPS # Page 183 BANK 10 @@ -1000,7 +1000,7 @@ RENDN00 CS MMNUMBER EXTEND BZF KILL20 - CA FLAGWRD0 # IS RENDZVOO FLAG SET + CA FLAGWRD0 # IS RENDEZVOO FLAG SET MASK RNDVZBIT CCS A TCF STATQUO @@ -1233,7 +1233,7 @@ RCSADDR4 2CADR RCSATT 3.1SEC OCT 37312 # 2.5 + 0.6 SEC -# FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ETRY FOR EACH +# FOR VERB 37 TWO TABLES ARE MAINTAINED. EACH TABLE HAS AN ENTRY FOR EACH # MAJOR MODE THAT CAN BE STARTED FROM THE KEYBOARD. THE ENTRIES ARE PUT # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST, # Page 206 diff --git a/Comanche055/GIMBAL_LOCK_AVOIDANCE.s b/Comanche055/GIMBAL_LOCK_AVOIDANCE.s index 779d4c7..9cd8718 100644 --- a/Comanche055/GIMBAL_LOCK_AVOIDANCE.s +++ b/Comanche055/GIMBAL_LOCK_AVOIDANCE.s @@ -18,7 +18,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.s b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.s index bc624d7..de0a100 100644 --- a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.s +++ b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.s b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.s index 7a49ef3..d184781 100644 --- a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.s +++ b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.s @@ -21,7 +21,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -201,7 +201,7 @@ PIPJOBB INDEX NDXCTR AINGOTN PDDL DDV DATAPL +4 SL4 DMPR - DEC585 # DEC585 HAS BEEN REDEVINED FOR LEM + DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM RTB SGNAGREE STORE DSPTEM2 @@ -426,7 +426,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED # # FUNCTIONAL DESCRIPTION # -# THIS SECTON CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS +# THIS SECTION CONSISTS OF PRELAUNCH ALIGNMENT AND GYRO DRIFT TESTS # INTEGRATED TOGETHER TO SAVE WORDS. COMPASS IS COMPLETELY RESTART # PROOFED EXCEPT FOR THE FIRST 30 SECONDS OR SO. PERFORMANCE TESTS OF # THE IRIGS IS RESTART PROOFED ENOUGH TO GIVE 75 PERCENT CONFIDENCE THAT @@ -457,7 +457,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED # TO PERFORM AS PART OF COMPASS # # 1. OPTICAL VERIFICATION: V 65 E -# 2. AXIMUTH CHANGE: V 78 E +# 2. AZIMUTH CHANGE: V 78 E # # SUBROUTINES CALLED # diff --git a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.s b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.s index 3948cb8..0cfdcbb 100644 --- a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.s +++ b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.s @@ -420,7 +420,7 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT # Page 1430 # THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIX REGISTERS # BEGINNING AT THE ECADR ARRIVING IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS 16 PULSES (.25 CDU COUNTS). THE -# UNSENT PORTION OF THE COMMAND IS LEFT INTACT AT TEH INPUT COMMAND REGISTERS. +# UNSENT PORTION OF THE COMMAND IS LEFT INTACT IN THE INPUT COMMAND REGISTERS. EBANK= 1400 # VARIABLE, ACTUALLY. diff --git a/Comanche055/INTER-BANK_COMMUNICATION.s b/Comanche055/INTER-BANK_COMMUNICATION.s index f79019c..3795b50 100644 --- a/Comanche055/INTER-BANK_COMMUNICATION.s +++ b/Comanche055/INTER-BANK_COMMUNICATION.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/INTERPRETER.s b/Comanche055/INTERPRETER.s index 20f716e..0a2e426 100644 --- a/Comanche055/INTERPRETER.s +++ b/Comanche055/INTERPRETER.s @@ -78,7 +78,7 @@ DANZIG CA BANKSET # SET BBANK BEFORE TESTING NEWJOB SO THAT NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM TCF OPJUMP # THE LAST PAIR RETRIEVED. IF SO, EXECUTE. - # EDOP IS SET TO ZERO ON ITS RE-EDITIING. + # EDOP IS SET TO ZERO ON ITS RE-EDITING. CCS NEWJOB # SEE IF A JOB OF HIGHER PRIORITY IS TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS. @@ -209,7 +209,7 @@ ITR13 INDEX CYR # Page 1113 # PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN -# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARTGHMETIC OPERATION PERFORMED +# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED # IS THE SAME AS THE TYPE OF OPERAND DESIRED (ALL ADD/SUBTRACT ETC.). EXCEPTIONS TO THIS GENERAL RULE ARE LISTED # BELOW (NOTE THAT IN EVERY CASE THE MODE REGISTER IS LEFT INTACT): # @@ -226,7 +226,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN MASK CYR # 20, THIS OP REQUIRES SPECIAL ATTENTION. AD -OCT10 # (NO -0). CCS A - TCF REGUP # FOR ALL CODES GREATEER THAN OCT 7. + TCF REGUP # FOR ALL CODES GREATER THAN OCT 7. -OCT10 OCT -10 @@ -401,10 +401,10 @@ STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE INCR LOC ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR. - AD NEGONE # (YUL CAN'T REMOVE 1 BECAUSE OF EARLY CCS) + AD NEGONE # (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS) DOSTORE TS ADDRWD - MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ARASABLE + MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO. MASK B12T14 EXTEND @@ -518,7 +518,7 @@ TLOAD INDEX ADDRWD DCA 0 DXCH MPAC TMODE CAF ONE - TCF NEWMODE # DECLEARE TRIPLE PRECISION MODE. + TCF NEWMODE # DECLARE TRIPLE PRECISION MODE. SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE @@ -1047,7 +1047,7 @@ POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO DXCH VBUF # SAVING X IN VBUF TCF POLY2 -POLYLOOP TS POLYCNT # SAVE DECREMENTD LOOP COUNTER +POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER CS TWO ADS POLISH # REGRESS COEFFICIENT POINTER @@ -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 BANCK. + INCR L # RESTORE UPPER TO ROIGINAL VALUE + XCH L # SWAP A + L BACK. TC Q UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT @@ -1361,7 +1361,7 @@ DMPR TC DMPSUB TCF DANZIG DDV EXTEND - INDEX ADDRWD # MOVE DIVIDENT INTO BUF. + INDEX ADDRWD # MOVE DIVIDEND INTO BUF. DCA 0 TCF BDDV +4 @@ -1787,7 +1787,7 @@ GENSCL CS ADDRWD # PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO DDV/BDDV CS ONE # INITIALIZATION TS DVSIGN # +-1 FOR POSITIVE QUOTIENT -- -0 FOR NEG. - TS DVNORMCT # DIVIDENT NORMALIZATION COUNT. + TS DVNORMCT # DIVIDEND NORMALIZATION COUNT. TS MAXDVSW # NEAR-ONE DIVIDE FLAG. CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART @@ -1803,7 +1803,7 @@ BUFZERO TS MPAC +2 # ZERO THIS. TCF +2 TCF OVF+ -1 # MAJOR PART OF DIVIDEND IS NEG. NON-ZERO - XCH BUF +1 # SHIFT DIVIDENT AND DIVISOR LEFT 14 + XCH BUF +1 # SHIFT DIVIDEND AND DIVISOR LEFT 14 XCH BUF XCH MPAC +1 XCH MPAC @@ -1819,7 +1819,7 @@ SGNDVOVF EXTEND DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET TS MPAC # SET DP MPAC TO +-POSMAX. TC FINALDV +3 - CAF ONE # SET OVEFLOW INDICATOR AND EXIT. + CAF ONE # SET OVERFLOW INDICATOR AND EXIT. TS OVFIND TC DANZIG @@ -1943,7 +1943,7 @@ BUFNEG CCS A DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION - DDOUBL # OVEFLOW WILL OCCUR. + DDOUBL # OVERFLOW WILL OCCUR. DDOUBL DDOUBL DDOUBL @@ -1959,7 +1959,7 @@ BUFNEG CCS A MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE. BIASHI DEC .4192 B-1 # SQRT CONSTANTS. - TCF MAXDV # CHECK TO SEE IF THAY ARE NOW EQUAL. + TCF MAXDV # CHECK TO SEE IF THEY ARE NOW EQUAL. # Page 1167 # THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES @@ -2287,7 +2287,7 @@ LARGE2 INDEX FIXLOC # Page 1178 # IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST -# 14 PLACES BEFORE TEH DIVIDE, NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO. +# 14 PLACES BEFORE THE DIVIDE, NOTE THAT IN THIS CASE, THE MAJOR PART OF EACH COMPONENT IS ZERO. SMALL TS MPTEMP # NEGATIVE OF PRE-DIVIDE SHIFT COUNT. @@ -2626,7 +2626,7 @@ NORMTEST CCS CYL # SEE IF ARGUMENT NOW NORMALIZED AT # Page 1187 # TRIGONOMETRIC FUNCTION PACKAGE. -# THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAIALABLE AS INTERPRETIVE OPERATIONS: +# THE FOLLOWING TRIGONOMETRIC FUNCTIONS ARE AVAILABLE AS INTERPRETIVE OPERATIONS: # 1. SIN COMPUTES (1/2)SINE(2 PI MPAC). # 2. COS COMPUTES (1/2)COSINE(2 PI MPAC). # 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC). diff --git a/Comanche055/INTERRUPT_LEAD_INS.s b/Comanche055/INTERRUPT_LEAD_INS.s index c36ad41..85fdd14 100644 --- a/Comanche055/INTERRUPT_LEAD_INS.s +++ b/Comanche055/INTERRUPT_LEAD_INS.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/JET_SELECTION_LOGIC.s b/Comanche055/JET_SELECTION_LOGIC.s index f59608f..b1a14f0 100644 --- a/Comanche055/JET_SELECTION_LOGIC.s +++ b/Comanche055/JET_SELECTION_LOGIC.s @@ -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 @@ -365,7 +365,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD # SWITCH TO AC ROLL. # -# NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIREABLE ROLL +# NOTE THAT IF ONE QUAD FAILS (E.G. B FAILED), Z-TRANSLATION IS STILL POSSIBLE AND THAT THE UNDESIRABLE ROLL # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC. # # WORD MAKE UP....RTABLE @@ -386,7 +386,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED # THIS WORD MAY THEN BE ADDED TO THE WORD SELECTED FROM THE YZ-TRANSLATION TABLE, WHICH HAS THE SAME TYPE OF # CODING AS ABOVE, AND THE NET ROLL DETERMINED BY SHIFTING THE RESULTANT WORD RIGHT 8 PLACES AND SUBTRACTING FOUR. # -# THE WORD CORRESPONDING TO THE BD ROLL HAS A SIMILAR INTEPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED +# THE WORD CORRESPONDING TO THE BD ROLL HAS A SIMILAR INTERPRETATION, EXCEPT THAT BITS 12, 13, 14 ARE CODED # (AS ABOVE) TO GIVE THE NET ROLL TORQUE. # ROLL TRANS QUADFAIL BIAS diff --git a/Comanche055/KALCMANU_STEERING.s b/Comanche055/KALCMANU_STEERING.s index 2156c78..18cb6d1 100644 --- a/Comanche055/KALCMANU_STEERING.s +++ b/Comanche055/KALCMANU_STEERING.s @@ -18,7 +18,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -89,7 +89,7 @@ INCRDCDU TS KSPNDX TCF INCRDCDU # LOOP FOR THREE AXES RELINT -# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER +# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER TMANUCHK TC TIMECHK TC POSTJUMP diff --git a/Comanche055/KEYRUPT_UPRUPT.s b/Comanche055/KEYRUPT_UPRUPT.s index cfa480d..19493c2 100644 --- a/Comanche055/KEYRUPT_UPRUPT.s +++ b/Comanche055/KEYRUPT_UPRUPT.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.s b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.s index 0a072a8..534fb1f 100644 --- a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.s +++ b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.s @@ -21,7 +21,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/MEASUREMENT_INCORPORATION.s b/Comanche055/MEASUREMENT_INCORPORATION.s index 7cfb133..7468155 100644 --- a/Comanche055/MEASUREMENT_INCORPORATION.s +++ b/Comanche055/MEASUREMENT_INCORPORATION.s @@ -362,7 +362,7 @@ FAZC CALL GRP2PC # Page 1259 VLOAD VAD # START 3RD PHASE OF INCORP2 - X789 # 7TH, 8TH, 9TH COMPONENTN OF STATE VECTOR + X789 # 7TH,8TH,9TH,COMPONENT OF STATE VECTOR DELTAX +12D # INCORPORATION FOR X789 STORE TX789 BON RTB diff --git a/Comanche055/ORBITAL_INTEGRATION.s b/Comanche055/ORBITAL_INTEGRATION.s index 14c51aa..836472e 100644 --- a/Comanche055/ORBITAL_INTEGRATION.s +++ b/Comanche055/ORBITAL_INTEGRATION.s @@ -227,9 +227,9 @@ GAMCOMP VLOAD VSR1 # Page 1339 36D STORE BETAM - NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM + NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM 33D - SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO. + SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO. DLOAD* ASCALE,1 STORE S1 diff --git a/Comanche055/P20-P25.s b/Comanche055/P20-P25.s index d6303f3..01d7cde 100644 --- a/Comanche055/P20-P25.s +++ b/Comanche055/P20-P25.s @@ -420,7 +420,7 @@ DE-GR-50 TC 2PHSCHNG # # ABORT MODES: P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE # -# INPUT: NONE REQURIES, NORMALLY CALLED BY P23 +# INPUT: NONE REQUIRED, NORMALLY CALLED BY P23 # # OUTPUT: TRUNNION BIAS ANGLE: ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT # (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE @@ -714,17 +714,17 @@ DECRM61 TS R61CNTR # # INPUT # -# UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE-OF-SIGHT (BASIC REF. SYSTEM) +# UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE-OF-SIGHT (BASIC REF. SYSTEM) # -# USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR) +# USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR) # -# RCLP, RELATIVE CSM TO LM POSITION VECTOR +# RCLP,RELATIVE CSM TO LM POSITION VECTOR # # OUTPUT # -# USTAR, MODIFIED FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR) +# USTAR,MODIFIED FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR) # -# BVECTOR = 9 DIMENTIONAL BVECTOR (1/2 UNIT VEC.) +# BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.) # # DELTAQ = MEASURED DEVIATION # @@ -1407,7 +1407,7 @@ INITB STORE W +90D,1 # CLEAR 54 - 89 # # OMETATHSM = (REFSMMAT)(OMEGATH). # -# (10) OBTAIN GIMBAL ANGLE INCREMETNS FOR 0.1 SECOND. +# (10) OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND. # # DTHETASM = (0.1)(OMEGATHSM) # @@ -1776,7 +1776,7 @@ FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000). # ..... S22.1 ORBITAL NAVIGATION ROUTINE # MOD 1 # -# FUNCTONAL DESCRIPTION +# FUNCTIONAL DESCRIPTION # 1. UPDATE CSM STATE VECTOR # 2. UPDATE LANDMARK POSITION # 3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS @@ -2706,8 +2706,8 @@ DP1MIN 2DEC 6000 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION CADR R02BOTH # KNOWN. ALARMS IF NOT. - CAF THREE # ALLOW ASTRONAUT TO SELECT DESURED - TS OPTION1 # TRACKING ATTITUDE AXIS + CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED + TS OPTION1 # TRACKING ATTITUDE AXIS. CAF ONE TS OPTION1 +1 CAF VB04N06 # V 04 N 06 diff --git a/Comanche055/P30-P37.s b/Comanche055/P30-P37.s index 5ded0b3..4f2d137 100644 --- a/Comanche055/P30-P37.s +++ b/Comanche055/P30-P37.s @@ -207,7 +207,7 @@ V16N35 VN 1635 V06N45 VN 0645 # Page 639 -# PROGRAM DESCRPTION S30.1 DATE 9NOV66 +# PROGRAM DESCRIPTION S30.1 DATE 9NOV66 # MOD NO 1 LOG SECTION P30,P37 # MOD BY RAMA AIYAWAR ** # MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67 diff --git a/Comanche055/P32-P33_P72-P73.s b/Comanche055/P32-P33_P72-P73.s index 20889f6..528bf87 100644 --- a/Comanche055/P32-P33_P72-P73.s +++ b/Comanche055/P32-P33_P72-P73.s @@ -39,10 +39,10 @@ # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE, P. DATE 1 JUNE 67 +# MOD BY WHITE. P DATE 1JUNE67 # # PURPOSE -# (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE FOLLOWING +# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE FOLLOWING # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE # (CDH) MANEUVER. @@ -50,12 +50,12 @@ # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR -# APPROVAL BY THE ASTRRONAUT/GROUND. +# APPROVAL BY THE ASTRONAUT/GROUND. # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED # THRUSTING PROGRAM. # # ASSUMPTIONS -# (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE +# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE # POSITION. diff --git a/Comanche055/P34-35_P74-75.s b/Comanche055/P34-35_P74-75.s index 84e6591..eea2d1e 100644 --- a/Comanche055/P34-35_P74-75.s +++ b/Comanche055/P34-35_P74-75.s @@ -20,7 +20,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -31,14 +31,14 @@ # Page 460 -# TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74) +# TRANSFER PHASE INITIATION (TPI) PROGRAMS (P34 AND P74) # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 # MOD BY WHITE, P. DATE: 1 JUNE 67 # # PURPOSE # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS # REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER -# PHASE INITITATION (TPI) MANEUVER, GIVEN -- +# PHASE INITIATION (TPI) MANEUVER, GIVEN -- # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI). # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO @@ -759,7 +759,7 @@ NOVRWRT VLOAD PUSH # Page 478 # ***** S34/35.4 ***** -S34/35.4 STQ SETPD NO ASTRONAUT OVERWRITE +S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE NORMEX 0D GOTO @@ -1023,14 +1023,14 @@ EPSFOUR 2DEC .0416666666 # # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE # TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE -# SLIGHTLYOUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS +# SLIGHTLY OUT OF THE ORBITAL PLANE, THIS SUBROUTINE ROTATES THIS # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE # TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. # -# THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMUTATIONS AND +# THE LAMBERT SUBROUTINE IS UTILIZED FOR THE CONIC COMPUTATIONS AND # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION # TRAJECTORY COMPUTATIONS. # diff --git a/Comanche055/P37_P70.s b/Comanche055/P37_P70.s index 544f574..0cbac46 100644 --- a/Comanche055/P37_P70.s +++ b/Comanche055/P37_P70.s @@ -44,7 +44,7 @@ # DESCRIPTION # A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE # TIME OF IGNITION. INITIALLY A CONIC TRAJECTORY IS DETERMINED AND RESULTING IGNITION AND REENTRY PARAMETERS ARE -# DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WTIH THE +# DISPLAYED TO THE ASTRONAUT. THEN IF THE ASTRONAUT SO DESIRES, A PRECISION TRAJECTORY IS DETERMINED WITH THE # RESULTING IGNITION AND REENTRY PARAMETERS DISPLAYED. UPON FINAL ACCEPTANCE BY THE ASTRONAUT, THE PROGRAM # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41). # diff --git a/Comanche055/P40-P47.s b/Comanche055/P40-P47.s index 72acab8..8d87759 100644 --- a/Comanche055/P40-P47.s +++ b/Comanche055/P40-P47.s @@ -802,7 +802,7 @@ SURELY.9 EXIT RN # ACTIVE VEHICLE RADIUS VECTOR AT T1 STOVL RINIT # Page 701 - VN # ACTIVE VEHICLE VELOCITY VECTORY AT T1 + VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1 STODL VINIT PIPTIME STORE TNIT diff --git a/Comanche055/P51-P53.s b/Comanche055/P51-P53.s index baf2fba..cf7fe50 100644 --- a/Comanche055/P51-P53.s +++ b/Comanche055/P51-P53.s @@ -28,7 +28,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -317,8 +317,8 @@ V06N89* VN 0689 # # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE, # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA -# THE KEYBOARD. TO COMPUT THE LANDING SITE -# ORIENTATIION FOR P52 OR P54. +# THE KEYBOARD. TO COMPUTE THE LANDING SITE +# ORIENTATION FOR P52 OR P54 # # LET: # RLS = LANDING SITE VECTOR IN REF COORDINATES @@ -742,7 +742,7 @@ CSSUN 2DEC .24148 # (COS 15)/4 # FUNCTION # THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX) -# WITH RESPECT TO REFERENCE INTERTIAL. EACH STAR IN THE CATALOG IS TESTED +# WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED # TO DETERMINE IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON. IF A # STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STARS OF LOWER INDEX. # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS @@ -1633,7 +1633,7 @@ MKDNCDR ECADR MARKDOWN # MOD. NO. 2 21 DEC 66 # MOD. BY STURLAUGSON # -# FUNCTIONAL DESCRIPTIION: +# FUNCTIONAL DESCRIPTION: # # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2 @@ -1682,7 +1682,7 @@ R53A CA MARKINDX # NUMBER OF MARKS CADR OPTSTALL TC CURTAINS INDEX MARKSTAT - CCS QPRET # NUMNBER OF MARKS ACTUALLY DONE + CCS QPRET # NUMBER OF MARKS ACTUALLY DONE TCF R53B TCF +2 # ZERO TCF +1 # CCS HOLE diff --git a/Comanche055/P61-P67.s b/Comanche055/P61-P67.s index c09d0d2..df610cc 100644 --- a/Comanche055/P61-P67.s +++ b/Comanche055/P61-P67.s @@ -23,7 +23,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -343,7 +343,7 @@ POSECADR 2CADR CM/POSE # MOD BY: R. HIRSCHKOP # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS # FUNCTION: 1. TO START ENTRY GUIDANCE AT .05G SELECTING ROLL ATTITUDE, CONSTANT DRAG LEVEL, AND -# DRAG THRESHHOLD, KA, WHICH ARE KEYED TO THE .05G POINT. +# DRAG THRESHOLD, KA, WHICH ARE KEYED TO THE .05G POINT. # 2. SELECT FINAL PHASE P67 IF V < 27000 FPS WHEN .2G OCCURS. # 3. ITERATE FOR UP-CONTROL SOLUTION P65 IF V > 27000 FPS AND IF ALTITUDE RATE AND DRAG # LEVEL CONDITIONS ARE SATISFIED. ENTER P65 WHEN CONSTANT DRAG CONTROLLER HAS BROUGHT RANGE @@ -516,7 +516,6 @@ SERVCAD2 = SERVCAD1 # MOD NO: 0 DATE: 21 FEB 67 # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67 # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS. -# # FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62 # FIRST, TEST TO SEE IF AVERAGEG IS ON. IF NOT, UPDATE THE STATE VECTOR TO PRESENT TIME + TOLERANCE # AND TURN ON AVERAGEG AT THAT TIME, AND CONTINUE. OTHERWISE CONTINUE: SEE IF IMU Y AXIS IS @@ -950,7 +949,7 @@ DUMPFISH GOTO # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 21 NOV 67 VARIABLE MU ADDED. # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 21 MAR 68 ACCEPT DIFFERENT EARTH/MOON SCALE # -# FUNCTONAL DESCRIPTION: EARTH CENTERED VIS VIVA CALCULATION OF TERMINAL VELOCITY AND GAMMA (REL TO +# FUNCTIONAL DESCRIPTION: EARTH CENTERED VIS VIVA CALCULATION OF TERMINAL VELOCITY AND GAMMA (REL TO # HORIZONTAL) GIVEN THE SCALAR QUANTITIES: PRESENT RADIUS AND VELOCITY AND THE TERMINAL RADIUS. # THE USER MUST APPEND PROPER SIGN TO GAMMA, SINCE IT IS CALCULATED AS A POSITIVE NUMBER. # THE EQUATIONS ARE diff --git a/Comanche055/P76.s b/Comanche055/P76.s index 9adb9c8..5584d91 100644 --- a/Comanche055/P76.s +++ b/Comanche055/P76.s @@ -37,7 +37,7 @@ # BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER # VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE # STATES CORRESPOND TO THE SAME TIME. -# 3) ERASABLE INIITIALIZATION REQUIRED -- NONE. +# 3) ERASABLE INITIALIZATION REQUIRED -- NONE. # 4) CALLING SEQUENCES AND EXIT MODES -- CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E. # EXITS BY TCF ENDOFJOB. # 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS. diff --git a/Comanche055/PHASE_TABLE_MAINTENANCE.s b/Comanche055/PHASE_TABLE_MAINTENANCE.s index 247b4bd..0ffc0d0 100644 --- a/Comanche055/PHASE_TABLE_MAINTENANCE.s +++ b/Comanche055/PHASE_TABLE_MAINTENANCE.s @@ -99,7 +99,7 @@ DSPMMJOB EQUALS DSPMMJB # WHERE EACH LETTER OR NUMBER STANTS FOR A BIT. THE G'S STAND FOR THE GROUP, OCTAL 1-7, THE P'S FOR THE PHASE, # OCTAL 0 - 127. 0'S MUST BE 0. IF ONE WISHES TO HAVE THE TBASE OF GROUP G TO BE SET AT THIS TIME, # T IS SET TO 1, OTHERWISE IT IS SET TO 0. SIMILARLY IF ONE WISHES TO SET LONGBASE, THEN L IS SET TO 1, OTHERWISE -# IT IS SET TO 0. SOME EXAMLES, +# IT IS SET TO 0. SOME EXAMPLES, # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0, # OCT 00003 # MAKING GROUP 3 INACTIVE # diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.s b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.s index 266b32b..2da9bfe 100644 --- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.s +++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.s @@ -84,7 +84,7 @@ # Page 308 # 2) EXTENDED VERBS TO TO THE EXTENDED VERB FAN AS PART OF THE # PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE -# RESPONSIBILITY OF THE EXTEDED VERB CALLED TO EVENTUALLY +# RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY # CHANGE PRIORITY (IF NECESSARY) AD DO AN ENDOFJOB. # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON. # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS `V37' IN THE @@ -136,7 +136,7 @@ # THE FOLLOWING ARE OF GENERAL INTEREST -- # # REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL -# TABLE TO FIND APPROPRIATE PACE NUMBERS. +# TABLE TO FIND APPROPRIATE PAGE NUMBERS. # # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL. # OF RELATED INTEREST NVSBWAIT @@ -1128,7 +1128,7 @@ GODSPALM TC POSTJUMP # S'S ARE THE SF ROUTINE 1 CODE NUMBER # # IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE -# COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMONENTS IN NOUN. +# COMPONENT NUMBER IS GREATER THAN THE NUMBER OF COMPONENTS IN NOUN. # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.) # # IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA @@ -1656,7 +1656,7 @@ SEPMIN XCH Q # FIND WHOLE MINUTES IN BIT13 ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1. ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC. -# THIS IS A SPECIAL PURPOS VERB FOR DISPLAYING A DOUBLE PRECISION AGC +# THIS IS A SPECIAL PURPOSE VERB FOR DISPLAYING A DOUBLE PRECISION AGC # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS # OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE @@ -2817,7 +2817,7 @@ SETVAC CAF TCFINDVC # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY. # IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. -# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH +# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH # COMPONENT 1 DELAY (LOW BITS) # COMPONENT 2 TASK ADRES (12 BIT) # COMPONENT 3 BBCON @@ -2921,11 +2921,11 @@ ENDRELDS EQUALS # PLACE 0VVVVVVVNNNNNNN INTO A. # V'S ARE THE 7-BIT VERB CODE. N'S ARE THE 7-BIT NOUN CODE. # -# IF NVSUB IS CALLED WTIH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE +# IF NVSUB IS CALLED WITH THE FOLLOWING NEGATIVE NUMBERS (RATHER THAN THE # VERB-NOUN CODE) IN A, THEN THE DISPLAY IS BLANKED AS FOLLOWS --- # -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY. # -# NVSUB CAN BE USED WTIH MACHINE CADR TO BE SPECIFIED BY PLACING THE CADR INTO +# NVSUB CAN BE USED WITH MACHINE CADR TO BE SPECIFIED BY PLACING THE CADR INTO # MPAC+2 BEFORE THE STANDARD NVSUB CALL. # # NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY @@ -2942,7 +2942,7 @@ ENDRELDS EQUALS # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY # KEY, EXCEPT ERROR LIGHT RESET. # IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS, -# PROCED WITOHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE, +# PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE, INITIALIZE EXECUTIVE, # RECALL PART OF RECALTST IF ENDIDLE WAS USED, # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST, # MONITOR SET UP. @@ -2960,14 +2960,14 @@ ENDRELDS EQUALS # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT # ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE # `CHECKLIST' NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE `CHECKLIST' -# NOUN. GO TO NVSUB AGAIN WTIH THE `PLEASE PERFORM' VERB AND ZEROS IN THE +# NOUN. GO TO NVSUB AGAIN WITH THE `PLEASE PERFORM' VERB AND ZEROS IN THE # LOW 7 BITS. THIS `PASTES UP' THE `PLEASE PERFORM' VERB INTO THE VERB # LIGHTS. # # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL # Page 370 # PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN -# A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASED INT THE VERB +# A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB # LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS # SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB diff --git a/Comanche055/PINBALL_NOUN_TABLES.s b/Comanche055/PINBALL_NOUN_TABLES.s index 8fbd97a..f75fe46 100644 --- a/Comanche055/PINBALL_NOUN_TABLES.s +++ b/Comanche055/PINBALL_NOUN_TABLES.s @@ -20,7 +20,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -120,7 +120,7 @@ # (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING # ROUTINES ARE IN THE SAME BANK AS THE TABLES. THEY ARE CALLED BY DXCH Z. -# LODNNTAB LOADS NNADTEM WTIH THE NNADTAB ENTRY, NNTYPTEM WITH THE +# LODNNTAB LOADS NNADTEM WITH THE NNADTAB ENTRY, NNTYPTEM WITH THE # NNTYPTAB ENTRY. IF THE NOUN IS MIXED, IDADITEM IS LOADED WITH THE FIRST # IDADDTAB ENTRY, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD # IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR @@ -165,7 +165,7 @@ LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L. MIXCON = OCT50 # FIRST MIXED NOUN =40. (DEC 40) -# GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES. +# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES. # Page 271 GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1. @@ -214,7 +214,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE OCT 00000 # 23 SPARE ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC) ECADR DSPTEM1 # 25 CHECKLIST - # (USED WTIH PLEASE PERFORM ONLY) + # (USED WITH PLEASE PERFORM ONLY) ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON ECADR SMODE # 27 SELF TEST ON/OFF SWITCH # Page 272 @@ -588,7 +588,7 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC) OCT 15340 OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8) OCT 21032 - OCT 34631 # ELEVATION DETREES + OCT 34631 # ELEVATION DEGREES OCT 23146 OCT 14340 # TRIM DEGREES OCT 24145 diff --git a/Comanche055/R30.s b/Comanche055/R30.s index 1ee43f8..d16ec10 100644 --- a/Comanche055/R30.s +++ b/Comanche055/R30.s @@ -259,7 +259,7 @@ DOTICK CAF 1SEC # RE-REQUEST TICKTEST. MASK V82FLAGS INDEX A TC +1 - TC TASKOVER # IF NO FLAGBITS SET DONT' CHANGE TFF OR + TC TASKOVER # IF NO FLAGBITS SET DONT CHANGE TFF OR # -TPER, BUT CONTINUE LOOP. TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC. diff --git a/Comanche055/R31.s b/Comanche055/R31.s index 3d11ea5..8fef656 100644 --- a/Comanche055/R31.s +++ b/Comanche055/R31.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/R60_62.s b/Comanche055/R60_62.s index f436b2b..26b3b83 100644 --- a/Comanche055/R60_62.s +++ b/Comanche055/R60_62.s @@ -159,7 +159,7 @@ V06N18 VN 0618 # BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES. # THE DIRECTION IN WHICH THIS AXIS IS TO BE POINTED MUST APPEAR AS A HALF UNIT DOUBLE PRECISION VECTOR IN # SUCCESSIVE LOCATIONS OF ERASABLE MEMORY BEGINNING WITH THE ADDRESS CALLED POINTVSM. THE COMPONENTS OF THIS -# VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMTION VECPOINT COMPUTES A SET OF THREE GIMBAL +# VECTOR ARE GIVEN IN STABLE MEMBER COORDINATES. WITH THIS INFORMATION VECPOINT COMPUTES A SET OF THREE GIMBAL # ANGLES (2'S COMPLEMENT) CORRESPONDING TO THE CROSS-PRODUCT ROTATION BETWEEN SCAXIS AND POINTVSM AND STORES THEM # IN T(MPAC) BEFORE RETURNING TO THE CALLER. # diff --git a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.s b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.s index 20a7872..4116427 100644 --- a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.s +++ b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.s @@ -397,7 +397,7 @@ KRESUME1 TCF RESUME # END PHASE 1 # MASK BIT3 # ADS RCSFLAGS # -# THEREAFTER, THE ATTITUDE ERRORS GENERATED BY THE USER SHOULD BE TRANFERRED TO THE FOLLOWING LOCATIONS IN EBANK6: +# THEREAFTER, THE ATTITUDE ERRORS GENERATED BY THE USER SHOULD BE TRANSFERED TO THE FOLLOWING LOCATIONS IN EBANK6: # # AK SCALED 180 DEGREES NOTE: THESE LOCATIONS ARE SUBJECT # AK1 SCALED 180 DEGREES TO CHANGE diff --git a/Comanche055/RESTARTS_ROUTINE.s b/Comanche055/RESTARTS_ROUTINE.s index fb0de01..cfe42ea 100644 --- a/Comanche055/RESTARTS_ROUTINE.s +++ b/Comanche055/RESTARTS_ROUTINE.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/RESTART_TABLES.s b/Comanche055/RESTART_TABLES.s index bd25dd2..293e119 100644 --- a/Comanche055/RESTART_TABLES.s +++ b/Comanche055/RESTART_TABLES.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/RT8_OP_CODES.s b/Comanche055/RT8_OP_CODES.s index c823fdb..a4e348c 100644 --- a/Comanche055/RT8_OP_CODES.s +++ b/Comanche055/RT8_OP_CODES.s @@ -20,7 +20,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -162,7 +162,7 @@ INCRCDUS CAF LOCTHETA LOCTHETA ADRES THETAD # THE FOLLOWING ROUTINE INCREMENTS IN 2'S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1'S COMPL. -# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCRMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2'S COMPL. +# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2'S COMPL. # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL. CDUINC TS TEM2 # 1'S COMPL. QUANT. ARRIVES IN ACC. STORE IT @@ -264,9 +264,9 @@ DPMODE CAF ZERO # SETS MPAC +2 TO ZERO IN THE PROCESS TCF SLOAD2 # RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW -# UP WHEN THE VECTOR BEING UNITIZED IS VERY SAMLL -- IT WILL BLOW UP WHEN ALL COMPONENT ARE ZERO. IF NORMUNIT +# UP WHEN THE VECTOR BEING UNITIZED IS VERY SMALL -- IT WILL BLOW UP WHEN ALL COMPONENT ARE ZERO. IF NORMUNIT # IS USED AND THE UPPER ORDER HALVES OF ALL COMPONENTS ARE ZERO, THE MAGNITUDE RETURNS IN 36D WILL BE TOO LARGE -# BY A FACTOR OF 2(13) AND THE SQURED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26). +# BY A FACTOR OF 2(13) AND THE SQUARED MAGNITUDE RETURNED AT 34D WILL BE TOO BIG BY A FACTOR OF 2(26). NORMUNX1 CAF ONE TCF NORMUNIT +1 diff --git a/Comanche055/SERVICER207.s b/Comanche055/SERVICER207.s index f9316be..19cc951 100644 --- a/Comanche055/SERVICER207.s +++ b/Comanche055/SERVICER207.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -617,7 +617,7 @@ NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1 PIPASR EXTEND DCA TIME2 DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE - CS ZERO # INITIALIZAE THESE AT NEG ZERO. + CS ZERO # INITIALIZE THESE AT NEG ZERO. TS TEMX TS TEMY TS TEMZ diff --git a/Comanche055/SERVICE_ROUTINES.s b/Comanche055/SERVICE_ROUTINES.s index 64479cc..4b89e09 100644 --- a/Comanche055/SERVICE_ROUTINES.s +++ b/Comanche055/SERVICE_ROUTINES.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/STABLE_ORBIT.s b/Comanche055/STABLE_ORBIT.s index c1a21d5..b5c972c 100644 --- a/Comanche055/STABLE_ORBIT.s +++ b/Comanche055/STABLE_ORBIT.s @@ -86,7 +86,7 @@ # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME # (8) DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL -# CORDINATES +# COORDINATES # # SUBROUTINES USED # diff --git a/Comanche055/SXTMARK.s b/Comanche055/SXTMARK.s index a6ad217..803c053 100644 --- a/Comanche055/SXTMARK.s +++ b/Comanche055/SXTMARK.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -520,7 +520,7 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK TC RESUME # Page 232 -# PROGRAM DESCRIPTON MKVB51 AND MKVB50 +# PROGRAM DESCRIPTION MKVB51 AND MKVB50 # # AUTHOR: BARNERT DATE: 2-15-67 MOD: 0 # PURPOSE: FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING, diff --git a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.s b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.s index a92f944..fbff01d 100644 --- a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.s +++ b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.s @@ -18,7 +18,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Comanche055/T4RUPT_PROGRAM.s b/Comanche055/T4RUPT_PROGRAM.s index e36a18d..cdc0b8e 100644 --- a/Comanche055/T4RUPT_PROGRAM.s +++ b/Comanche055/T4RUPT_PROGRAM.s @@ -19,7 +19,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -244,7 +244,7 @@ QUIKOFF EXTEND # PROGRAM NAME: IMUMON # # FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN -# CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUROUTINES ARE: +# CHANNEL 30 AND CALLS THE APPROPRIATE SUBROUTINES. THE BITS PROCESSED AND THEIR RELEVANT SUBROUTINES ARE: # # FUNCTION BIT SUBROUTINE CALLED # -------- --- ----------------- @@ -577,7 +577,7 @@ NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES. # # ERASABLE INITIALIZATION: # 1) FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0. -# 2) RESTART WTIH GROUPS ACTIVE: SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR +# 2) RESTART WITH GROUPS ACTIVE: SAME AS FRESH START EXCEPT C(CDUZ) NOT CHANGED SO GIMBAL MONITOR # PROCEEDS AS BEFORE. # # ALARMS: 1) MGA REGION (2) CAUSES GIMBAL LOCK LAMP TO BE LIT. @@ -863,7 +863,7 @@ IMUOP2 CAF BIT2 # SEE IF FAILED ISS TURN-ON SEQ IN PROG. # # JOBS OR TASKS INITIATED: NONE. # -# SUBROUTINES CALLED: 1) SETISSW, AND 2) ALARM (SEE FUNCITONAL DESCRIPTION). +# SUBROUTINES CALLED: 1) SETISSW, AND 2) ALARM (SEE FUNCTIONAL DESCRIPTION). # # ERASABLE INITIALIZATION: SEE IMUMON FOR INITIALIZATION OF IMODES30. THE RELEVANT BITS ARE 5, 7, 8, 9, AND 10. # @@ -1240,7 +1240,7 @@ ENDZOPT TC ZEROPCDU # ZERO OCDU COUNTERS ZEROPCDU CAF ZERO TS CDUS # ZERO IN CDUS, -20 IN CDUT - TS ZONE # INITIALZE SHAFT MONITOR ZONE. + TS ZONE # INITIALIZE SHAFT MONITOR ZONE CS 20DEGS TS CDUT TC Q diff --git a/Comanche055/TIME_OF_FREE_FALL.s b/Comanche055/TIME_OF_FREE_FALL.s index 83714b0..435a83f 100644 --- a/Comanche055/TIME_OF_FREE_FALL.s +++ b/Comanche055/TIME_OF_FREE_FALL.s @@ -31,7 +31,7 @@ # Page 1373 # THE TFF SUBROUTINES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER # KNOW WHICH ORIGIN APPLIES. IT IS THE USER WHO KNOWS, AND WHO SUPPLIES RONE, VONE, AND 1/SQRT(MU) AT THE -# APPROPIRATE SCALE LEVEL FOR THE PROPER PRIMARY BODY. +# APPROPRIATE SCALE LEVEL FOR THE PROPER PRIMARY BODY. # # EARTH ORIGIN POSITION -29 METERS # VELOCITY -7 METERS/CENTISECOND @@ -81,7 +81,7 @@ NRMAG = 32D # PRESENT RADIUS M E: (-29+NR) TFFX = 34D # TFFTEM = 36D # TEMPORARY # Page 1374 -# REGISTERS S1, S2 ARE UNTOUCED BY ANY TFF SUBROUTINE +# REGISTERS S1, S2 ARE UNTOUCHED BY ANY TFF SUBROUTINE # INDEX REGISTERS X1, X2 ARE USED BY ALL TFF SUBROUTINES. THEY ARE ESTAB- # LISHED IN TFF/CONIC AND MUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT # SUBROUTINES. @@ -139,7 +139,7 @@ TFFTEM = 36D # TEMPORARY # TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHTED BY NR. FOR VGAMCALC. # M:(-36+2NR) # TFF/RTMU E:(17) M:(14) 1/SQRT(MU) -# TFFVSQ E:(20) M:(18) 1/M -(V SQ/MU): PRESENT VELOCITY, NORMLIZED. FOR VGAMCALC +# TFFVSQ E:(20) M:(18) 1/M -(V SQ/MU): PRESENT VELOCITY,NORMLIZED. FOR VGAMCALC # TFFALFA E:(26-NR) 1/M ALFA, WEIGHTED BY NR # M:(24-NR) # TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED @@ -341,7 +341,7 @@ DUMPRPRA RVQ # 2 3 2 # 1/3 - X/5 + X /7 - X /8 ... (X < 1.0) # -# CALLING SEQUENC: TIME TO RTERM TIME TO PERIGEE +# CALLING SEQUENCE: TIME TO RTERM TIME TO PERIGEE # CALL CALL # CALCTFF CALCTPER # C(MPAC) = TERMNL RAD M C(MPAC) = PERIGEE RAD M diff --git a/Comanche055/TPI_SEARCH.s b/Comanche055/TPI_SEARCH.s index b31452b..36a7058 100644 --- a/Comanche055/TPI_SEARCH.s +++ b/Comanche055/TPI_SEARCH.s @@ -45,7 +45,7 @@ # # THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA # SUBROUTINE TO COMPUTE THE SEARCH START AND END TIMES. THE SEARCH IS THEN MADE IN AN ITERATIVE LOOP USING THE -# LAMBERT SUBROUTINE TO COMPUTE TEH VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME. EXIT FROM THE SEARCH LOOP +# LAMBERT SUBROUTINE TO COMPUTE THE VELOCITIES REQUIRED AT TPI TIME AND AT TPF TIME. EXIT FROM THE SEARCH LOOP # IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN # THE SECTOR SEARCHED. # diff --git a/Comanche055/TVCDAPS.s b/Comanche055/TVCDAPS.s index c6ba2ca..ed346ff 100644 --- a/Comanche055/TVCDAPS.s +++ b/Comanche055/TVCDAPS.s @@ -365,7 +365,7 @@ YOFFSET EXTEND YACLIM TCR ACTLIM # YAW ACTUATOR-COMMAND-LIMITER -YOUT CS YCMD # INCRMENTAL YAW COMMAND +YOUT CS YCMD # INCREMENTAL YAW COMMAND AD CMDTMP ADS TVCYAW # UPDATE THE ERROR COUNTER (NO RESTART- # PROTECT, SINCE ERROR CNTR ZEROED) diff --git a/Comanche055/TVCEXECUTIVE.s b/Comanche055/TVCEXECUTIVE.s index 578ab5b..09cc153 100644 --- a/Comanche055/TVCEXECUTIVE.s +++ b/Comanche055/TVCEXECUTIVE.s @@ -100,7 +100,7 @@ ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART- XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START) XCH OGAPAST - CAE OGAD # PREPARE ROLL FDAI NEEDLE WTIH FLY-TO + CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO EXTEND # ERROR (COMMAND - MEASURED) MSU OGANOW TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS @@ -149,7 +149,7 @@ GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER TS VCNTRTMP -EXECCOPY INCR TVCEXPHS # RESTART-PROTECT TEH COPYCYCLE (1) +EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1) CAE MASSTMP # CSMMASS KG B+16 TS CSMMASS diff --git a/Comanche055/TVCRESTARTS.s b/Comanche055/TVCRESTARTS.s index da4d43f..e030f4c 100644 --- a/Comanche055/TVCRESTARTS.s +++ b/Comanche055/TVCRESTARTS.s @@ -122,7 +122,7 @@ # # OTHER INTERFACES....DOTVCON AND RCSDAPON (T5 BITS), ELRSKIP (CALLS IT) # -# ERASABLE ININTIALIZATION REQUIRED.... +# ERASABLE INITIALIZATION REQUIRED.... # # *T5 BITS (1,0), TVCPHASE (-2,-1,0,1,2,3), TVCEXPHS (1 THRU 6) # *TVC DAP VARIABLES @@ -197,7 +197,7 @@ ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS TCF NOQRSM -CMDSOUT LXCH BANKRUPT # CONTNUE PREPARATION OF OUTCOUNTERS +CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS EXTEND QXCH QRUPT diff --git a/Comanche055/TVCROLLDAP.s b/Comanche055/TVCROLLDAP.s index 160acc1..1411e69 100644 --- a/Comanche055/TVCROLLDAP.s +++ b/Comanche055/TVCROLLDAP.s @@ -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/Comanche055/TVCSTROKETEST.s b/Comanche055/TVCSTROKETEST.s index 1844343..cd7ad15 100644 --- a/Comanche055/TVCSTROKETEST.s +++ b/Comanche055/TVCSTROKETEST.s @@ -41,8 +41,8 @@ # IMMEDIATELY. IF NOT CSM/LM, PROGRAM EXITS WITH NO ACTION. # HACK (STROKE TEST) GENERATES THE WAVEFORM BY DUMPING PULSE BURSTS # OF PROPER SIGN AND IN PROPER SEQUENCE DIRECTLY INTO -# TVCPITCH, WORKING IN CONJUNCITON WITH BOTH PITCH AND YAW -# TVC DAPS, WITH INTERMEDIAT WAITLIST CALLS. NOTE, HOWEVER +# TVCPITCH, WORKING IN CONJUNCTION WITH BOTH PITCH AND YAW +# TVC DAPS, WITH INTERMEDIATE WAITLIST CALLS. NOTE, HOWEVER # THAT THE STROKE TEST IS PERFORMED ONLY IN THE PITCH AXIS. # AN EXAMPLE WAVEFORM IS GIVEN BELOW, TO DEMONSTRATE STROKE- # TEST PARAMETER SELECTION. diff --git a/Comanche055/UPDATE_PROGRAM.s b/Comanche055/UPDATE_PROGRAM.s index 3b86857..eeec43e 100644 --- a/Comanche055/UPDATE_PROGRAM.s +++ b/Comanche055/UPDATE_PROGRAM.s @@ -22,7 +22,7 @@ # This AGC program shall also be referred to as Colossus 2A # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -122,7 +122,7 @@ # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED. # # 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL) -# ENTRIES DATA DEFINITITIONS SCALE FACTORS: +# ENTRIES DATA DEFINITIONS SCALE FACTORS: # Page 1499 # V71E CONTIGUOUS BLOCK UPDATE VERB # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE diff --git a/Comanche055/WAITLIST.s b/Comanche055/WAITLIST.s index e9b1d30..fe6d1f7 100644 --- a/Comanche055/WAITLIST.s +++ b/Comanche055/WAITLIST.s @@ -55,7 +55,7 @@ # C(LST2 +16) = 2CADR OF TASK9 # # WARNINGS -- -# 1) 1 <= C(A) <= 16250D (1 CENTISCOND TO 162.5 SEC) +# 1) 1 <= C(A) <= 16250D (1 CENTISECOND TO 162.5 SEC) # 2) 9 TASKS MAXIMUM # 3) TASKS CALLED UNDER INTERRUPT INHIBITED # 4) TASKS END BY TC TASKOVER @@ -472,7 +472,7 @@ NOQBRSM DXCH ARUPT # LONGEXIT AND LONGEXIT+1 # LONGTIME AND LONGTIME+1 # -# *** THE FOLLOWING IS TO BE IN FIXED-FIXED AND UNSWITCHED ERASIBLE ** +# *** THE FOLLOWING IS TO BE IN FIXED-FIXED AND UNSWITCHED ERRASIBLE *** BLOCK 02 EBANK= LST1 diff --git a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.s b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.s index 8ddcf42..e2dc67c 100644 --- a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.s +++ b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.s @@ -78,7 +78,7 @@ # IN R2 THE BBCON OF SELF-CHECK, AND IN R3 THE TOTAL NUMBER OF ERRORS DETECTED BY SELF-CHECK SINCE THE LAST MAN # INITIATED FRESH START (SLAP1). # -# SHOW-BANKSUM STARTING WTIH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2 +# SHOW-BANKSUM STARTING WITH BANK 0 DISPLAYS IN R1 THE BANK SUM (A +-NUMBER EQUAL TO THE BANK NUMBER), IN R2 # THE BANK NUMBER, AND IN R3 THE BUGGER WORD. # # ERASABLE INITIALIZATION REQUIRED diff --git a/Luminary099/AOSTASK_AND_AOSJOB.s b/Luminary099/AOSTASK_AND_AOSJOB.s index 83fba58..3e0dba1 100644 --- a/Luminary099/AOSTASK_AND_AOSJOB.s +++ b/Luminary099/AOSTASK_AND_AOSJOB.s @@ -391,7 +391,7 @@ DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND AD BIT1 ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF - EXTEND # DIVIDENT. + EXTEND # DIVIDEND. BZMF GOODNEG # GET -ABS(DIVIDEND) # Page 1493 CS A diff --git a/Luminary099/AOTMARK.s b/Luminary099/AOTMARK.s index e83936a..047f614 100644 --- a/Luminary099/AOTMARK.s +++ b/Luminary099/AOTMARK.s @@ -157,7 +157,7 @@ COASCODE INDEX FIXLOC TC INTPRET # COMPUTE X AND Y PLANE VECTORS # Page 248 -# THE OPTAXIS SOBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND +# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND # ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS # @@ -243,7 +243,7 @@ OANB SETPD STQ GOTO GCTR # Page 250 -# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINAGES FOR LUNAR +# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS. # # GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC diff --git a/Luminary099/ASCENT_GUIDANCE.s b/Luminary099/ASCENT_GUIDANCE.s index d59444b..2463453 100644 --- a/Luminary099/ASCENT_GUIDANCE.s +++ b/Luminary099/ASCENT_GUIDANCE.s @@ -374,7 +374,7 @@ ASCTERM3 TCF ENDOFJOB ASCTERM4 EXIT INHINT TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO - CADR ZATTEROR # THE DAP COMMANDED ERRORSss. + CADR ZATTEROR # THE DAP COMMANDED ERRORS. TCF ASCTERM1 +1 CHECKALT DLOAD DSU @@ -425,7 +425,7 @@ OFFROT CLRGO SETXFLAG = CHECKYAW CHECKYAW SET - XOVINFLG # PROHIBIT X-AXIS OVERRRIDE + XOVINFLG # PROHIBIT X-AXIS OVERRIDE DLOAD VXSC ATY LAXIS @@ -473,7 +473,7 @@ ENGOFF RTB PIPTIME TTOGO DCOMP EXIT - TC TPAGREE # FORCH SIGN AGREEMENT ON MPAC, MPAC +1. + TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1. CAF EBANK7 TS EBANK EBANK= TGO diff --git a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.s b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.s index ac4a0d2..05e18b9 100644 --- a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.s +++ b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.s @@ -46,7 +46,7 @@ # WHEN POINTING A SPACECRAFT AXIS (I.E., X, Y, Z, THE AOT, THRUST AXIS, ETC.) THE SUBROUTINE VECPOINT MAY BE # USED TO GENERATE THIS SET OF DESIRED CDU ANGLES (SEE DESCRIPTION IN R60). # -# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALEN ROTATION (COF ALSO U) AND THE +# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALENT ROTATION (COF ALSO U) AND THE # MAGNITUDE OF THE ROTATION (AM) TO BRING THE S/C FROM ITS INITIAL ORIENTATION TO ITS FINAL ORIENTATION. # THIS DIRECTION REMAINS FIXED BOTH IN INERTIAL COORDINATES AND IN COMMANDED S/C AXES THROUGHOUT THE # _ @@ -86,7 +86,7 @@ # A) AM LESS THAN .25 DEGREES (MINANG) # B) AM GREATER THAN 170 DEGREES (MAXANG) # -# IF AM IS LESS THAN .25 DEGREES, NO COMPLICATED AUTOMATIC MANEUVERING IS NECESSARY. THREFORE, WE CAN SIMPLY +# IF AM IS LESS THAN .25 DEGREES, NO COMPLICATED AUTOMATIC MANEUVERING IS NECESSARY. THEREFORE, WE CAN SIMPLY # SET CDU DESIRED EQUAL TO THE FINAL CDU DESIRED ANGLES AND TERMINATE THE JOB. # # IF AM IS GREATER THAN .25 DEGREES BUT LESS THAN 170 DEGREES THE AXES OF THE SINGLE EQUIVALENT ROTATION @@ -141,7 +141,7 @@ # RELINT # # THE USER'S PROGRAM MAY EITHER CONTINUE OR WAIT FOR THE TERMINATION OF THE MANEUVER. IF THE USER WISHES TO -# WAIT, HE MAY PUT HIS JOB TO SLEEP WTH THE FOLLOWING INSTRUCTIONS: +# WAIT, HE MAY PUT HIS JOB TO SLEEP WITH THE FOLLOWING INSTRUCTIONS: # # L TC BANKCALL # L+1 CADR ATTSTALL @@ -260,7 +260,7 @@ # THIS ROUTINE EXTRACTS THE CDU ANGLES FROM A DIRECTION COSINE MATRIX (M SCALED BY 2) RELATING S/C AXIS TO # * # STABLE MEMBER AXES. X1 MUST CONTAIN THE COMPLEMENT OF THE STARTING ADDRESS FOR M. THE SUBROUTINE LEAVES THE -# CORRESPONDING GIMBAL ANGLES IN V(MPAC) AS DOUBLE PRECISION 1'S COMPLEMENT ANGLES ACALED BY 2PI. THE FORMULAS +# CORRESPONDING GIMBAL ANGLES IN V(MPAC) AS DOUBLE PRECISION 1'S COMPLEMENT ANGLES SCALED BY 2PI. THE FORMULAS # FOR THIS CONVERSION ARE # # Z = ARCSIN (M ) diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.s b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.s index ac7c532..b3872b1 100644 --- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.s +++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.s @@ -594,7 +594,7 @@ ZOOM = P40ZOOMA COMFAIL TC UPFLAG # (15) ADRES IDLEFLAG - TC UPFLAG # SET FLAG TO SUPRESS CONFLICTING DISPLAY + TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY ADRES FLUNDISP CAF FOUR # RESET DVMON TS DVCNTR @@ -890,7 +890,7 @@ REP40ALM CAF V05N09 # (14) TCF +2 # PROCEED CHECK FOR P42 TCF REP40ALM # V32E REDISPLAY ALARM - INDEX WHICH # FOR P42, ALLOW CREW TO PRECEED EVEN + INDEX WHICH # FOR P42, ALLOW CREW TO PROCEED EVEN TCF 14 # THOUGH VEHICLE IS UNSTAGED. # ******************************** diff --git a/Luminary099/DOWN_TELEMETRY_PROGRAM.s b/Luminary099/DOWN_TELEMETRY_PROGRAM.s index 1a72d0a..74ccad5 100644 --- a/Luminary099/DOWN_TELEMETRY_PROGRAM.s +++ b/Luminary099/DOWN_TELEMETRY_PROGRAM.s @@ -115,7 +115,7 @@ # SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT # HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY. # B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6. -# SAME AS 1DNADR, BUT WTIH THE 4 UNUSED BITS OF THE ECADR FORMAT +# SAME AS 1DNADR, BUT WITH THE 4 UNUSED BITS OF THE ECADR FORMAT # FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE- # PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY. # C. DNCHAN DOWNLIST CHANNEL ADDRESS. @@ -321,7 +321,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 @@ -339,7 +339,7 @@ SUBLIST EQUALS DNQ # AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP # WILL BEGIN. # -# ONCE INITITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY +# ONCE INITIATED THE DOWNLINK ERASABLE DUMP CAN BE TERMINATED (AND INTERRUPTED DOWNLIST REINSTATED) ONLY # BY THE FOLLOWING: # # 1. A FRESH START diff --git a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.s b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.s index 637f04e..b0f88be 100644 --- a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.s +++ b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.s @@ -45,7 +45,7 @@ # FINDCDUW PROVIDES THE INTERFACES BETWEEN THE VARIOUS POWERED FLITE GUIDANCE PROGRAMS # AND THE DIGITAL AUTOPILOT. THE INPUTS TO FINDCDUW ARE THE THRUST COMMAND VECTOR # AND THE WINDOW COMMAND VECTOR, AND THE OUTPUTS ARE THE GIMBAL ANGLE -# INCRMENTS, THE COMMANDED ATTITUDE ANGLE RATES, AND THE COMMANDED +# INCREMENTS, THE COMMANDED ATTITUDE ANGLE RATES, AND THE COMMANDED # ATTITUDE LAG ANGLES (WHICH ACCOUNT FOR THE ANGLES BY WHICH THE BODY WILL # LAG BEHIND A RAMP COMMAND IN ATTITUDE ANGLE DUE TO THE FINITE ANGULAR # ACCELERATIONS AVAILABLE). @@ -289,7 +289,7 @@ DELGMBLP TS TEM2 TS CPHI # OUTPUTS TO NOUN22 EXTEND INDEX TEM2 - MSU CDUXD # NO MATTER THAT THESE SLIGHLTY DIFFERENT + MSU CDUXD # NO MATTER THAT THESE SLIGHTLY DIFFERENT COM # FROM WHEN WE INITIALLY FETCHED THEM INDEX TEM2 TS -DELGMB # -UNLIMITED GIMBAL ANGLE CHGS, 1'S, PI diff --git a/Luminary099/FLAGWORD_ASSIGNMENTS.s b/Luminary099/FLAGWORD_ASSIGNMENTS.s index 787b568..a0904b4 100644 --- a/Luminary099/FLAGWORD_ASSIGNMENTS.s +++ b/Luminary099/FLAGWORD_ASSIGNMENTS.s @@ -687,7 +687,7 @@ FLAGWRD6 = STATE +6 # (090-104) # BIT 15 FLAG 6 (S) S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THAN MAX -S32BIT1 = BIT15 # ONE EXEEDS MAX +S32BIT1 = BIT15 # ONE EXCEEDS MAX # BIT 14 FLAG 6 (S) S32.1F2 = 091D # FIRST PASS OF REITERATION OF diff --git a/Luminary099/IMU_PERFORMANCE_TESTS_4.s b/Luminary099/IMU_PERFORMANCE_TESTS_4.s index ebb7849..8776338 100644 --- a/Luminary099/IMU_PERFORMANCE_TESTS_4.s +++ b/Luminary099/IMU_PERFORMANCE_TESTS_4.s @@ -32,7 +32,7 @@ # BY -- GEORGE SCHMIDT IL7-146 EXT 1126 # MOD NO-ZERO # -# FUNCITONAL DESCRIPTION +# FUNCTIONAL DESCRIPTION # # THIS SECTION CONSISTS OF THE FILTER FOR THE GYRO DRIFT TESTS. NO COMPASS # IS DONE IN LEM. FOR A DESCRIPTION OF THE FILTER SEE E-1973. THIS diff --git a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.s b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.s index a838518..d945853 100644 --- a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.s +++ b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.s @@ -158,7 +158,7 @@ # BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM. # BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0. # BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S) -# BIT 13 IMU FAIL (MALFUCTION OF IMU STABILIZATION LOOPS) +# BIT 13 IMU FAIL (MALFUNCTION OF IMU STABILIZATION LOOPS) # BIT 14 ISS TURN ON REQUESTED # BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS diff --git a/Luminary099/LANDING_ANALOG_DISPLAYS.s b/Luminary099/LANDING_ANALOG_DISPLAYS.s index 2698cef..ede4e48 100644 --- a/Luminary099/LANDING_ANALOG_DISPLAYS.s +++ b/Luminary099/LANDING_ANALOG_DISPLAYS.s @@ -17,7 +17,7 @@ # 2021112-061. July 14, 1969. # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # diff --git a/Luminary099/LEM_GEOMETRY.s b/Luminary099/LEM_GEOMETRY.s index 33af2e7..320c249 100644 --- a/Luminary099/LEM_GEOMETRY.s +++ b/Luminary099/LEM_GEOMETRY.s @@ -37,8 +37,8 @@ # THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING # THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO # METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR -# R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES' NAMES ARE SWITCHED IN THE -# OTHER VEHICLE'S COMPUTER. +# R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE +# OTHER VEHICLES COMPUTER. # # INPUT # STATE VECTOR IN TEMPORARY STORAGE AREA diff --git a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.s b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.s index eaab1a2..79cc344 100644 --- a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.s +++ b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.s @@ -412,10 +412,10 @@ REDES1 DLOAD DSU # ********************************************************************* # # RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-- -# VELOCITY RELATIVE TO THE SURFACE +# VELOCITY RELATIVE TO THE SURFACE: # _______ _ _ __ # ANGTERM = V + R * WM -# STATE IN GUIDANCE COORDINTES: +# STATE IN GUIDANCE COORDINATES: # ___ * _ ____ # RGU = CG (R - LAND) # ___ * _ __ _ @@ -960,7 +960,7 @@ RODCOMP INHINT XCH OLDPIPAZ XCH RUPTREG3 - EXTEND # SHAPSHOT TIME OF PIPA READING. + EXTEND # SNAPSHOT TIME OF PIPA READING. DCA TIME2 # Page 817 DXCH THISTPIP @@ -1093,7 +1093,7 @@ AFCSPOT DLOAD # (2), (4), OR (6) 2D STODL /AFC/ # (0) ITRPNT2 EXIT - DXCH MPAC # MPAC = MEASURED ACCELARATION. + DXCH MPAC # MPAC = MEASURED ACCELERATION. TC BANKCALL CADR THROTTLE +3 TC INTPRET @@ -1257,11 +1257,11 @@ DESCBITS MASK BIT7 # COME HERE FROM MARKRUPT CODING WITH BIT # # PRECAUTION: ROOTPSRS MAKES NO CHECKS FOR OVERFLOW OR FOR IMPROPER USAGE. IMPROPER USAGE COULD # PRECLUDE CONVERGENCE OR REQUIRE EXCESSIVE ITERATIONS. AS A SPECIFIC EXAMPLE, ROOTPSRS FORMS A DERIVATIVE -# COEFFICIENT TABLE BY MULTIPLYINE EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE -# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE COREECT +# COEFFICIENT TABLE BY MULTIPLYING EACH A(I) BY I, WHERE I RANGES FROM 1 TO N. IF AN ELEMENT OF THE DERIVATIVE +# COEFFICIENT TABLE = 1 OR >1 IN MAGNITUDE, ONLY THE EXCESS IS RETAINED. ROOTPSRS MAY CONVERGE ON THE CORRECT # ROOT NONETHELESS, BUT IT MAY TAKE AN EXCESSIVE NUMBER OF ITERATIONS. THEREFORE THE USER SHOULD RECOGNIZE: # 1. USER'S RESPONSIBILITY TO ASSUR THAT I X A(I) < 1 IN MAGNITUDE FOR ALL I. -# 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUTATING EITHER THE RESIDUAL OR THE DERIVATIVE +# 2. USER'S RESPONSIBILITY TO ASSURE OVERFLOW WILL NOT OCCUR IN EVALUATING EITHER THE RESIDUAL OR THE DERIVATIVE # POWER SERIES. THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT # PRECLUDE EVENTUAL CONVERGENCE. # 3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5. AN N IN EXCESS OF 5 WILL PRODUCE CHAOS. diff --git a/Luminary099/P-AXIS_RCS_AUTOPILOT.s b/Luminary099/P-AXIS_RCS_AUTOPILOT.s index 41b0cfd..8a11483 100644 --- a/Luminary099/P-AXIS_RCS_AUTOPILOT.s +++ b/Luminary099/P-AXIS_RCS_AUTOPILOT.s @@ -964,7 +964,7 @@ HEADTJET CA ZERO -FOURDEG DEC -.08888 # Page 1440 -# JET POLICY CONTSTRUCTION SUBROUTINE +# JET POLICY CONSTRUCTION SUBROUTINE # # INPUT: ROTINDEX, NUMBERT # diff --git a/Luminary099/P12.s b/Luminary099/P12.s index 41c8775..569efd0 100644 --- a/Luminary099/P12.s +++ b/Luminary099/P12.s @@ -47,9 +47,9 @@ P12LM TC PHASCHNG TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER ADRES R10FLAG # OUTPUTS. - TC CLRADMOD # INITIALIZE RADMODES FOR R29 + TC CLRADMOD # INITIALIZE RADMODES FOR R29. - TC DOWNFLAG # CLEAR RENDEVOUS FLAG FOR P22 + TC DOWNFLAG # CLEAR RENDEZVOUS FLAG FOR P22 ADRES RNDVZFLG CAF THRESH2 # INITIALIZE DVMON diff --git a/Luminary099/P30_P37.s b/Luminary099/P30_P37.s index 34f9ffc..dca84cc 100644 --- a/Luminary099/P30_P37.s +++ b/Luminary099/P30_P37.s @@ -90,7 +90,7 @@ V06N33 VN 0633 V06N42 VN 0642 # Page 616 -# PROGRAM DESCRPTION S30.1 DATE 9NOV66 +# PROGRAM DESCRIPTION S30.1 DATE 9NOV66 # MOD NO 1 LOG SECTION P30,P37 # MOD BY RAMA AIYAWAR ** # diff --git a/Luminary099/P32-P35_P72-P75.s b/Luminary099/P32-P35_P72-P75.s index 9f1c7b8..061c7fd 100644 --- a/Luminary099/P32-P35_P72-P75.s +++ b/Luminary099/P32-P35_P72-P75.s @@ -30,11 +30,11 @@ # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # # MOD NO -1 LOG SECTION -- P32-P35, P72-P75 -# MOD BY WHITE, P. DATE 1 JUNE 67 +# MOD BY WHITE.P DATE 1JUNE67 # # PURPOSE -# (1) TO CALCULATE PARAMETERS ASSOCIATED WTIH THE TIME FOLLOWING +# (1) TO CALCULATE PARAMETERS ASSOCIATED WITH THE TIME FOLLOWING # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE # (CDH) MANEUVER. @@ -44,14 +44,14 @@ # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR -# APPROVAL BY THE ASTRRONAUT/GROUND. +# APPROVAL BY THE ASTRONAUT/GROUND. # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED # THRUSTING PROGRAM. # # ASSUMPTIONS -# (1) AT A SELECTED TPI TIME THE LINE OF SIGNT BETWEEN THE ACTIVE +# (1) AT A SELECTED TPI TIME THE LINE OF SIGHT BETWEEN THE ACTIVE # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E) # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE # POSITION. @@ -72,7 +72,7 @@ # IGNITION. # (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH -# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARCH +# MUST BE GREATER THAN 35,000 FT (LUNAR ORBIT) OR 85 NM (EARTH # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM. # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE @@ -107,7 +107,7 @@ # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF # EACH RENDEZVOUS PRE-THRUSTING PROGRAM. # -# FINAL FLAG -- SELECTES FINAL PROGRAM DISPLAYS AFTER CREW HAS +# FINAL FLAG -- SELECTS FINAL PROGRAM DISPLAYS AFTER CREW HAS # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY # CYCLE. # diff --git a/Luminary099/P70-P71.s b/Luminary099/P70-P71.s index 933f970..edd7286 100644 --- a/Luminary099/P70-P71.s +++ b/Luminary099/P70-P71.s @@ -236,7 +236,7 @@ GOABORT TC INTPRET TC DOWNFLAG ADRES IDLEFLAG - TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILIITY. + TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY. ADRES ACC4-2FL TC CHECKMM diff --git a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.s b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.s index f3265b5..0724045 100644 --- a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.s +++ b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.s @@ -45,7 +45,7 @@ CALLQERR CA BIT13 # CALCULATE Q,R ERRORS UNLESS THESE AXES CS DAPBOOLS # IN MANUAL RATE COMMAND? MASK OURRCBIT EXTEND - BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERROS. + BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERRORS. TC QERRCALC Q,RORGTS CCS COTROLER # CHOOSE CONTROL SYSTEM FOR THIS DAP PASS: @@ -538,7 +538,7 @@ TJLAW CA TJLAWADR CADR SPSRCS # DETERMINE RCS CONTROL RELINT CAF FOUR # ALWAYS CALL FOR 2-JET CONTROL ABOUT U,V. - TS NUMBERT # FALL THROUGH TO JET SLECTION, ETC. + TS NUMBERT # FALL THROUGH TO JET SELECTION, ETC. # Q,R-JET-SELECTION-LOGIC # diff --git a/Luminary099/RADAR_LEADIN_ROUTINES.s b/Luminary099/RADAR_LEADIN_ROUTINES.s index b2f23b7..bd331d8 100644 --- a/Luminary099/RADAR_LEADIN_ROUTINES.s +++ b/Luminary099/RADAR_LEADIN_ROUTINES.s @@ -36,7 +36,7 @@ # RADAR SAMPLING LOOP. COUNT* $$/RLEAD -RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE PER SECOND SAMLING +RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING TCF +2 TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST. diff --git a/Luminary099/RCS_FAILURE_MONITOR.s b/Luminary099/RCS_FAILURE_MONITOR.s index f8c72d5..347aac5 100644 --- a/Luminary099/RCS_FAILURE_MONITOR.s +++ b/Luminary099/RCS_FAILURE_MONITOR.s @@ -34,7 +34,7 @@ # THIS ROUTINE IS ATTACHED TO T4RUPT, AND IS ENTERED EVERY 480 MS. ITS FUNCTION IS TO EXAMINE THE LOW 8 BITS # OF CHANNEL 32 TO SEE IF ANY ISOLATION-VALVE CLOSURE BITS HAVE APPEARED OR DISAPPEARED (THE CREW IS WARNED OF JET # FAILURES BY LAMPS LIT BY THE GRUMMAN FAILURE-DETECTION CIRCUITRY; THEY MAY RESPOND BY OPERATING SWITCHES WHICH -# ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). iN THE EVENT THAT CHANNEL 32 BITS +# ISOLATE PAIRS OF JETS FROM THE PROPELLANT TANKS AND SET BITS IN CHANNEL 32). IN THE EVENT THAT CHANNEL 32 BITS # DIFFER FROM `PVALVEST', THE RECORD OF ACTIONS TAKEN BY THIS ROUTINE, THE APPROPRIATE BITS IN `CH5MASK' & # `CH6MASK', USED BY THE DAP JET-SELECTION LOGIC, ARE UPDATED, AS IS `PVALVEST'. TO SPEED UP & SHORTEN THE # ROUTINE, NO MORE THAN ONE CHANGE IS ACCEPTED PER ENTRY. THE HIGHEST-NUMBERED BIT IN CHANNEL 32 WHICH REQUIRES @@ -47,7 +47,7 @@ # FORMER STATE. THE CONSEQUENCE OF THIS IS THAT THE NEXT ENTRY WOULD NOT SEE THE CHANGE INCOMPLETELY INCORP- # ORATED BY THE LAST PASS (BECAUSE IT WENT AWAY AT JUST THE RIGHT TIME), BUT THE DAP MASK-WORDS WILL BE INCORRECT. # THIS COMBINATION OF EVENTS SEEMS QUITE REMOTE, BUT NOT IMPOSSIBLE UNLESS THE CREW OPERATES THE SWITCHES AT HALF- -# SECOND INTERVALS OR LONGER. IN ANY EVENT, A DISAGREEMENT BETWEEN REALITY AND THE DAP MASKS WILL BE CUREED IF +# SECOND INTERVALS OR LONGER. IN ANY EVENT, A DISAGREEMENT BETWEEN REALITY AND THE DAP MASKS WILL BE CURED IF # THE MISINTERPRETED SWITCH IS REVERSED AND THEN RESTORED TO ITS CORRECT POSITION (SLOWLY). # # CALLING SEQUENCE: diff --git a/Luminary099/RTB_OP_CODES.s b/Luminary099/RTB_OP_CODES.s index ad480e2..aa6cce0 100644 --- a/Luminary099/RTB_OP_CODES.s +++ b/Luminary099/RTB_OP_CODES.s @@ -119,7 +119,7 @@ TPMODE CAF ONE # MODE IS TP. TC Q # THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL. -# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCRMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL. +# QUANTITY FOUND IN TEM2. THIS MAY BE USED TO INCREMENT DESIRED IMU AND OPTICS CDU ANGLES OR ANY OTHER 2S COMPL. # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL. CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT diff --git a/Luminary099/SERVICER.s b/Luminary099/SERVICER.s index c3a8f2f..c57513e 100644 --- a/Luminary099/SERVICER.s +++ b/Luminary099/SERVICER.s @@ -19,7 +19,7 @@ # 2021112-061. July 14, 1969. # # Prepared by -# Massachussets Institute of Technology +# Massachusetts Institute of Technology # 75 Cambridge Parkway # Cambridge, Massachusetts # @@ -1067,7 +1067,7 @@ MUNRVG VLOAD VXSC R1S VXV VSL2 WM - STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS. + STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS. 36D DSU /LAND/ diff --git a/Luminary099/SPS_BACK-UP_RCS_CONTROL.s b/Luminary099/SPS_BACK-UP_RCS_CONTROL.s index 0935a86..14654e7 100644 --- a/Luminary099/SPS_BACK-UP_RCS_CONTROL.s +++ b/Luminary099/SPS_BACK-UP_RCS_CONTROL.s @@ -114,7 +114,7 @@ NEGCHECK INDEX AXISCTR # JETS FIRING NEGATIVELY TCF +2 TCF +1 # JETS COMMANDED OFF. SET CTR AND RETURN SETCTR INDEX AXISCTR # JET FIRING REVERSAL COMMANDED. SET CTR, - CA UTIME # SET JET TIME TO ZER, AND RETURN + CA UTIME # SET JET TIME TO ZERO, AND RETURN # Page 1509 INDEX AXISCTR TS UJETCTR diff --git a/Luminary099/THE_LUNAR_LANDING.s b/Luminary099/THE_LUNAR_LANDING.s index 775f08d..930a4d0 100644 --- a/Luminary099/THE_LUNAR_LANDING.s +++ b/Luminary099/THE_LUNAR_LANDING.s @@ -126,7 +126,7 @@ IGNALOOP DLOAD # 10 # 2 (VGU - 16 VGU KIGNX/B4) # 2 0 -# Page 787 new page is actually one line earlier but this would put the indices on a seperate line +# Page 787 new page is actually one line earlier but this would put the indices on a separate line # disconnected from their respective variables # THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS. # THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS. diff --git a/Luminary099/THROTTLE_CONTROL_ROUTINES.s b/Luminary099/THROTTLE_CONTROL_ROUTINES.s index c43b9c9..bb24381 100644 --- a/Luminary099/THROTTLE_CONTROL_ROUTINES.s +++ b/Luminary099/THROTTLE_CONTROL_ROUTINES.s @@ -131,7 +131,7 @@ DOIT CA PIF CA TIME1 TS TTHROT -# SINCE /AF/ IS NOT AN INSTANTANEOUS ACELERATION, BUT RATHER AN "AVERAGE" OF THE ACCELERATION LEVELS DURING +# SINCE /AF/ IS NOT AN INSTANTANEOUS ACCELERATION, BUT RATHER AN "AVERAGE" OF THE ACCELERATION LEVELS DURING # THE PRECEEDING PIPA INTERVAL, AND SINCE FP IS COMPUTED DIRECTLY FROM /AF/, FP IN ORDER TO CORRESPOND TO THE # ACTUAL THRUST LEVEL AT THE END OF THE INTERVAL MUST BE WEIGHTED BY # diff --git a/Luminary099/TJET_LAW.s b/Luminary099/TJET_LAW.s index 9b15a67..2ea0ece 100644 --- a/Luminary099/TJET_LAW.s +++ b/Luminary099/TJET_LAW.s @@ -31,7 +31,7 @@ # Page 1460 # PROGRAM DESCRIPTION # DESIGNED BY: R. D. GOSS AND P. S. WEISSMAN -# CODED BY: P. S. WEISSMAN, 28 FEBRURARY 1968 +# CODED BY: P. S. WEISSMAN, 28 FEBRUARY 1968 # # TJETLAW IS CALLED AS A SUBROUTINE WHEN THE LEM IS NOT DOCKED AND THE AUTOPILOT IS IN THE AUTOMATIC OR # ATTITUDE-HOLD MODE TO CALCULATE THE JET-FIRING-TIME (TJET) REQUIRED FOR THE AXIS INDICATED BY AXISCTR: @@ -156,7 +156,7 @@ ERRTEST CCS E # DOES BIG ERROR (THREE DEG BEYOND THE SU FIREDB EXTEND BZMF SENSTEST # IF NOT: ARE UNBALANCED JETS PREFERRED? -MAXJETS CAF TWO # IF YES: INCRMENT ADDRESS LOCATOR AND +MAXJETS CAF TWO # IF YES: INCREMENT ADDRESS LOCATOR AND ADS ADRSDIF2 # SET SWITCH FOR JET SELECT LOGIC TO 4. CAF FOUR # (ALWAYS DO THIS FOR P-AXIS) TCF TJCALC diff --git a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.s b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.s index 226d0b5..e33e031 100644 --- a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.s +++ b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.s @@ -603,7 +603,7 @@ GMBLBITB OCTAL 06000 # INDEXED WRT GMBLBITA DO NOT MOVE ******* # SUBROUTINE ROOTCYCL: BY CRAIG WORK, 3 APRIL 68 # -# ROOTCYCL IS A SUBROUTINE WHICH EXECUTS ONE NEWTON SQUARE ALGORITHM ITERATION. THE INITIAL GUESS AT THE +# ROOTCYCL IS A SUBROUTINE WHICH EXECUTES ONE NEWTON SQUARE ALGORITHM ITERATION. THE INITIAL GUESS AT THE # SQUARE ROOT IS PRESUMED TO BE IN THE A REGISTER AND ONE-HALF THE SQUARE IS TAKEN FROM HALFARG. THE NEW APPROXIMATION # TO THE SQUARE ROOT IS RETURNED IN THE A REGISTER. DEBRIS: A, L, SR, SCRATCH. ROOTCYCL IS CALLED FROM # LOCATION (LOC) BY A TC ROOTCYCL, AND RETURNS (TC Q) TO LOC +1. diff --git a/README.md b/README.md index efc1c3a..0f04ef1 100644 --- a/README.md +++ b/README.md @@ -14,21 +14,21 @@ Original Apollo 11 guidance computer (AGC) source code, converted from their cus Contact: Ron Burkey . Website: www.ibiblio.org/apollo. Mod history: 2009-05-06 RSB Transcribed from page images. - + This source code has been transcribed or otherwise adapted from digitized images of a hardcopy from the MIT Museum. The digitization was performed by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many thanks to both. The images (with suitable reduction in storage size and consequent reduction in image quality as well) are available online at www.ibiblio.org/apollo. If for some reason you find that the images are - illegible, contact me at info@sandroid.org about getting access to the + illegible, contact me at info@sandroid.org about getting access to the (much) higher-quality images which Paul actually created. - + Notations on the hardcopy document read, in part: - + Assemble revision 055 of AGC program Comanche by NASA 2021113-051. 10:28 APR. 1, 1969 - + Page 1 #************************************************************************