ryan/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge upstream

Browse Source
This commit is contained in:
James Harris
2016-07-14 04:14:33 +01:00
parent 64ef3d932d fcba3a4516
commit 95fff7a576
91 changed files with 229 additions and 230 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Comanche055/ALARM_AND_ABORT.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/AUTOMATIC_MANEUVERS.s
View File

@@ -490,7 +490,7 @@ ZEROCMDS CAF ZERO
TS TAU1 TS TAU1
TS TAU2 TS TAU2
T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS) T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS)
DCA JETADDR # HAVE BEEN DETERINED DCA JETADDR # HAVE BEEN DETERMINED
DXCH T5LOC # RESET T5LOC FOR PHASE3 DXCH T5LOC # RESET T5LOC FOR PHASE3
TCF RESUME TCF RESUME

2
Comanche055/CM_BODY_ATTITUDE.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

6
Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.s
View File

@@ -32,7 +32,7 @@
# Page 1063 # Page 1063
# SUBROUTINE TO READ GIMBAL ANGLES AND FORM DIFFERENCES. GIMBAL ANGLES ARE SAVED IN 2'S COMPLEMENT, BUT THE # 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 = 1 FOR DAP OPERATION
# CM/DSTBY = 0 TO TERMINATE DAP OPERATION # CM/DSTBY = 0 TO TERMINATE DAP OPERATION
@@ -289,7 +289,7 @@ T5IDLER1 2CADR T5IDLOC
# Page 1070 # Page 1070
# THIS SECTION CALCULATES THE ANGULAR BODY RATES EACH .1 SEC. THE ANGULAR RATES ARE THOSE ALONG THE BODY AXES # 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, # 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 # 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 # 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 # 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 # 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 # SUBSEQUENT TIME REGISTER IS EXAMINED FOR POSSIBLE ACTION. THUS JET BITS TO BE EXECUTED MAY COME FROM MORE
# THAN ONE REGISTER. # THAN ONE REGISTER.

14
Comanche055/CONIC_SUBROUTINES.s
View File

@@ -69,7 +69,7 @@
# FUNCTIONAL DESCRIPTION -- # FUNCTIONAL DESCRIPTION --
# THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND THE DESIRED TRANSFER TIME THROUGH WHICH THE STATE IS TO # 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 # 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 # 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 # INTRODUCING ANY CODING CHANGES, ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY. AN ITERATION
# TECHNIQUE IS UTILIZED IN THE COMPUTATION. # TECHNIQUE IS UTILIZED IN THE COMPUTATION.
@@ -106,7 +106,7 @@
# RESPECTIVELY, IS THE CENTRAL BODY # RESPECTIVELY, IS THE CENTRAL BODY
# TAU +28 DESIRED TRANSFER TIME IN CENTISECONDS (DP) # 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. # 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- # +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 # MAJOR AXIS), FOR SPEED OF CONVERGENCE, BUT IF EITHER CONDITION FAILS, XKEPNEW IS RESET
# BY KEPLER TO A POOR BUT VALID GUESS. # BY KEPLER TO A POOR BUT VALID GUESS.
@@ -284,9 +284,9 @@
# FUNCTIONAL DESCRIPTION -- # FUNCTIONAL DESCRIPTION --
# THIS SUBROUTINE, GIVEN AN INITIAL STATE VECTOR AND A DESIRED TRUE-ANOMALY-DIFFERENCE THROUGH WHICH THE # 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, # 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 # 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. # ACCEPTING THE INHERENT SCALE FACTOR CHANGES IN POSITION AND VELOCITY.
# #
# THE RESTRICTIONS ARE -- # 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, # 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 # 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 # 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. # 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, # 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. LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
# ERASABLE ASSIGNEMENTS # ERASABLE ASSIGNMENTS
# KEPLER SUBROUTINE # KEPLER SUBROUTINE
@@ -1825,7 +1825,7 @@ KEPC2 EQUALS 36D
# R2VEC ERASE +5 # R2VEC ERASE +5
# TDESIRED ERASE +1 # TDESIRED ERASE +1
# GEOMSGN ERASE +0 # 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. # COGA ERASE +1 # INPUT ONLY IF GUESS IS ZERO.
# NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT # NORMSW # 0 IF UN TO BE COMPUTED, 1 IF UN INPUT
# UN ERASE +5 # ONLY USED IF NORMSW IS 1 # UN ERASE +5 # ONLY USED IF NORMSW IS 1

8
Comanche055/CSM_GEOMETRY.s
View File

@@ -33,9 +33,9 @@
BANK BANK
# THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT # 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 # 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. # 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 # 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. # 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 # 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. # 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. # 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 # 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. # ZNB.
# #
# THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART # THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY. (LOW ORDER PART

12
Comanche055/DISPLAY_INTERFACE_ROUTINES.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -79,12 +79,12 @@
# IS TO THE USER'S CALLING LOC +1. # IS TO THE USER'S CALLING LOC +1.
# 2. ALL ROUTINES NOT ENDING IN R DO NOT DO AN IMMEDIATE RETURN TO THE USER. # 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. # 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. # 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 # 6. TO RESTART A DISPLAY THE USER WILL GENERALLY USE A PHASE OF ONE WITH DESIRED RESTART GROUP (SEE
# DESCRIPTION OF RESTARTS). # 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 # 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. # (V32) BRANCHES TO THE USER'S CALL CADR +3.
# 8. ALL ROUTINES MUST BE USED UNDER EXECUTIVE CONTROL # 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 # 5. IT IS ALWAYS GOOD PRACTICE TO TERMINATE AN EXTENDED VERB BEFORE ASKING FOR ANOTHER ONE OR THE SAME ONE
# OVER AGAIN. # OVER AGAIN.
# #
# SPECIAL CONSIDERATONS -- # SPECIAL CONSIDERATIONS --
# Page 1464 # Page 1464
# 1. MPAC +2 SAVED ONLY IN MARK DISPLAYS # 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. # 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 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 # (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 # 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. # UNTIL ALL MARKING IS FINISHED.

8
Comanche055/DOWN-TELEMETRY_PROGRAM.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -106,7 +106,7 @@
# 1. DOWNLISTS. DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE # 1. DOWNLISTS. DOWNLISTS MUST BE COMPILED IN THE SAME BANK AS THE
# DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER # DOWN-TELEMETRY PROGRAM. THIS IS DONE FOR EASE OF CODING, FASTER
# EXECUTION. # 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. # SUBLISTS.
# 3. A SUBLIST REFERS TO A SNAPSHOT OR DATA COMMON TO THE SAME OR OTHER # 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 # 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 # SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT
# HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY. # HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY.
# B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6. # 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- # FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE-
# PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY. # PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY.
# C. DNCHAN DOWNLIST CHANNEL ADDRESS. # 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 # AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP
# WILL BEGIN. # 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: # BY THE FOLLOWING:
# #
# 1. A FRESH START # 1. A FRESH START

2
Comanche055/DOWNLINK_LISTS.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/ENTRY_LEXICON.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

10
Comanche055/ERASABLE_ASSIGNMENTS.s
View File

@@ -87,7 +87,7 @@
# PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT # PRIOR TO INVOCATION OF THE ROUTINE NOR DOES IT
# CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS # CONTAIN USEFUL OUTPUT TO ANOTHER ROUTINE. THUS
# Page 38 # Page 38
# IT MAY BE SHARED WITHANY OTHER ROUTINE WHICH # IT MAY BE SHARED WITH ANY OTHER ROUTINE WHICH
# IS NOT ACTIVE IN PARALLEL # IS NOT ACTIVE IN PARALLEL
# IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY # IN MEANS INPUT TO THE ROUTINE AND IT IS PROBABLY
# TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM. # TEMPORARY FOR A HIGHER-LEVEL ROUTINE/PROGRAM.
@@ -492,7 +492,7 @@ ERADFLAG = 017D # EARTH, COMPUTE EARTH, USED FIXED
ERADFBIT = BIT13 ERADFBIT = BIT13
# BIT 12 FLAG 1 # BIT 12 FLAG 1
NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWD NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWED
NOP01BIT = BIT12 NOP01BIT = BIT12
# BIT 11 FLAG 1 # BIT 11 FLAG 1
@@ -1564,7 +1564,7 @@ DOTRET ERASE # RETURN FROM DOT SUBROUTINE
DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV. DVNORMCT EQUALS DOTRET # DIVIDENT NORMALIZATION COUNT IN DDV.
ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH
WDCNT EQUALS DOTRET # CHAR COUNTER FOR DSPWD 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 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM
MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE -- ELSE -1. 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) 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) 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) 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) XKEP EQUALS TC +2 # B(2)TMP ROOT OF KEPLER EQ KM(1/2)*2(-10)
# **** TEMP -- IN VAC AREA **** # **** TEMP -- IN VAC AREA ****
@@ -3541,7 +3541,7 @@ TNITPREV EQUALS TNIT +2 # I(2)
AXISCODE EQUALS TNITPREV +2 # I(1)IN AXISCODE EQUALS TNITPREV +2 # I(1)IN
# P30'S-P17 COMMON STORAGE. (24D) # 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. 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. 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. VPASS3 EQUALS RPASS3 +6 # I(6)TMP VELOCITY OF PASSIVE AT TPI TIME.

8
Comanche055/EXECUTIVE.s
View File

@@ -47,7 +47,7 @@ NOVAC INHINT
TS EXECTEM1 TS EXECTEM1
TCF NOVAC2 # ENTER EXECUTIVE BANK. 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 FINDVAC INHINT
TS NEWPRIO TS NEWPRIO
@@ -157,7 +157,7 @@ NOVAC2 CAF ZERO # NOVAC ENTERS HERE. FIND A CORE SET.
NOVAC3 TS EXECTEM2 NOVAC3 TS EXECTEM2
INDEX LOCCTR INDEX LOCCTR
CCS PRIORITY # EACH PRIORITY REGISTER CONTAINS -0 IF 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 NO.CORES DEC 6
TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY TCF NEXTCORE # AN ACTIVE JOB HAS A POSITIVE PRIORITY
# BUT A DORMANT JOB'S PRIORITY IS NEGATIVE # BUT A DORMANT JOB'S PRIORITY IS NEGATIVE
@@ -319,7 +319,7 @@ JOBWAKE3 CAF COREINC
ADS LOCCTR ADS LOCCTR
CCS EXECTEM2 CCS EXECTEM2
TCF JOBWAKE4 TCF JOBWAKE4
CS ONE # EXIT IF SLEEPIG JOB NOT FOUND. CS ONE # EXIT IF SLEEPING JOB NOT FOUND.
TS LOCCTR TS LOCCTR
TCF ENDFIND TCF ENDFIND
@@ -448,7 +448,7 @@ EJ2 TS BUF +1
TC 2 TC 2
# Page 1220 # 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. # BUT RATHER A SUBROUTINE OF THE EXECUTIVE.
EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK. EBANK= SELFRET # SELF-CHECK STORAGE IN EBANK.

2
Comanche055/EXTENDED_VERBS.s
View File

@@ -27,7 +27,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

10
Comanche055/FRESH_START_AND_RESTART.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -99,7 +99,7 @@
# #
# 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14 # 1. INTIALIZE OUTBIT CHANNELS 11,12,13, AND 14
# 2. REPLACE ALL TASKS ON WAITLIST WITH ENDTASK # 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 # 4. MAKE ALL VAC AREAS AVAILABLE
# 5. CLEAR DSKY REGISTERS # 5. CLEAR DSKY REGISTERS
# 6. ZERO NUMEROUS SWITCHES # 6. ZERO NUMEROUS SWITCHES
@@ -130,7 +130,7 @@
# B. ALARMS # B. ALARMS
# #
# 1107 PHASE TABLE ERROR # 1107 PHASE TABLE ERROR
# 1110 RESTART WTIH NO ACTIVE GROUPS # 1110 RESTART WITH NO ACTIVE GROUPS
# Page 183 # Page 183
BANK 10 BANK 10
@@ -1000,7 +1000,7 @@ RENDN00 CS MMNUMBER
EXTEND EXTEND
BZF KILL20 BZF KILL20
CA FLAGWRD0 # IS RENDZVOO FLAG SET CA FLAGWRD0 # IS RENDEZVOO FLAG SET
MASK RNDVZBIT MASK RNDVZBIT
CCS A CCS A
TCF STATQUO TCF STATQUO
@@ -1233,7 +1233,7 @@ RCSADDR4 2CADR RCSATT
3.1SEC OCT 37312 # 2.5 + 0.6 SEC 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 # 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, # INTO THE TABLE WITH THE ENTRY FOR THE HIGHEST MAJOR MODE COMING FIRST,
# Page 206 # Page 206

2
Comanche055/GIMBAL_LOCK_AVOIDANCE.s
View File

@@ -18,7 +18,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

8
Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.s
View File

@@ -21,7 +21,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -201,7 +201,7 @@ PIPJOBB INDEX NDXCTR
AINGOTN PDDL DDV AINGOTN PDDL DDV
DATAPL +4 DATAPL +4
SL4 DMPR SL4 DMPR
DEC585 # DEC585 HAS BEEN REDEVINED FOR LEM DEC585 # DEC585 HAS BEEN REDEFINED FOR LEM
RTB RTB
SGNAGREE SGNAGREE
STORE DSPTEM2 STORE DSPTEM2
@@ -426,7 +426,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
# #
# FUNCTIONAL DESCRIPTION # 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 # INTEGRATED TOGETHER TO SAVE WORDS. COMPASS IS COMPLETELY RESTART
# PROOFED EXCEPT FOR THE FIRST 30 SECONDS OR SO. PERFORMANCE TESTS OF # PROOFED EXCEPT FOR THE FIRST 30 SECONDS OR SO. PERFORMANCE TESTS OF
# THE IRIGS IS RESTART PROOFED ENOUGH TO GIVE 75 PERCENT CONFIDENCE THAT # 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 # TO PERFORM AS PART OF COMPASS
# #
# 1. OPTICAL VERIFICATION: V 65 E # 1. OPTICAL VERIFICATION: V 65 E
# 2. AXIMUTH CHANGE: V 78 E # 2. AZIMUTH CHANGE: V 78 E
# #
# SUBROUTINES CALLED # SUBROUTINES CALLED
# #

2
Comanche055/IMU_MODE_SWITCHING_ROUTINES.s
View File

@@ -420,7 +420,7 @@ PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DON'T LIGHT
# Page 1430 # Page 1430
# THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIX REGISTERS # 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 # 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. EBANK= 1400 # VARIABLE, ACTUALLY.

2
Comanche055/INTER-BANK_COMMUNICATION.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

34
Comanche055/INTERPRETER.s
View File

@@ -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 NOIBNKSW CCS EDOP # SEE IF AN ORDER CODE IS LEFT OVER FROM
TCF OPJUMP # THE LAST PAIR RETRIEVED. IF SO, EXECUTE. 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 CCS NEWJOB # SEE IF A JOB OF HIGHER PRIORITY IS
TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS. TCF CHANG2 # PRESENT, AND IF SO, CHANGE JOBS.
@@ -209,7 +209,7 @@ ITR13 INDEX CYR
# Page 1113 # Page 1113
# PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN # 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 # 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): # 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. MASK CYR # 20, THIS OP REQUIRES SPECIAL ATTENTION.
AD -OCT10 # (NO -0). AD -OCT10 # (NO -0).
CCS A CCS A
TCF REGUP # FOR ALL CODES GREATEER THAN OCT 7. TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
-OCT10 OCT -10 -OCT10 OCT -10
@@ -401,10 +401,10 @@ STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
INCR LOC INCR LOC
ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR. 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 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. XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
MASK B12T14 MASK B12T14
EXTEND EXTEND
@@ -518,7 +518,7 @@ TLOAD INDEX ADDRWD
DCA 0 DCA 0
DXCH MPAC DXCH MPAC
TMODE CAF ONE TMODE CAF ONE
TCF NEWMODE # DECLEARE TRIPLE PRECISION MODE. TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE 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 DXCH VBUF # SAVING X IN VBUF
TCF POLY2 TCF POLY2
POLYLOOP TS POLYCNT # SAVE DECREMENTD LOOP COUNTER POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
CS TWO CS TWO
ADS POLISH # REGRESS COEFFICIENT POINTER ADS POLISH # REGRESS COEFFICIENT POINTER
@@ -1336,8 +1336,8 @@ UPPOS XCH L # SAVE DECREMENTED UPPER PART.
AD HALF AD HALF
TS A # SKIPS ON OVERFLOW TS A # SKIPS ON OVERFLOW
TCF +2 TCF +2
INCR L # RESTORE UPPER TO ORIGINAL VALUE INCR L # RESTORE UPPER TO ROIGINAL VALUE
XCH L # SWAP A + L BANCK. XCH L # SWAP A + L BACK.
TC Q TC Q
UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT UPNEG XCH L # SAVE COMPLEMENTED + DECREMENTED UPPER PT
@@ -1361,7 +1361,7 @@ DMPR TC DMPSUB
TCF DANZIG TCF DANZIG
DDV EXTEND DDV EXTEND
INDEX ADDRWD # MOVE DIVIDENT INTO BUF. INDEX ADDRWD # MOVE DIVIDEND INTO BUF.
DCA 0 DCA 0
TCF BDDV +4 TCF BDDV +4
@@ -1787,7 +1787,7 @@ GENSCL CS ADDRWD # PUT ROUNDING BIT (BIT 10 OF ADDRWD) INTO
DDV/BDDV CS ONE # INITIALIZATION DDV/BDDV CS ONE # INITIALIZATION
TS DVSIGN # +-1 FOR POSITIVE QUOTIENT -- -0 FOR NEG. 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. TS MAXDVSW # NEAR-ONE DIVIDE FLAG.
CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART CCS BUF # FORCE BUF POSITIVE WITH THE MAJOR PART
@@ -1803,7 +1803,7 @@ BUFZERO TS MPAC +2 # ZERO THIS.
TCF +2 TCF +2
TCF OVF+ -1 # MAJOR PART OF DIVIDEND IS NEG. NON-ZERO 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 BUF
XCH MPAC +1 XCH MPAC +1
XCH MPAC XCH MPAC
@@ -1819,7 +1819,7 @@ SGNDVOVF EXTEND
DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET DVOVF CAF POSMAX # ON DIVISION OVERFLOW OF ANY SORT, SET
TS MPAC # SET DP MPAC TO +-POSMAX. TS MPAC # SET DP MPAC TO +-POSMAX.
TC FINALDV +3 TC FINALDV +3
CAF ONE # SET OVEFLOW INDICATOR AND EXIT. CAF ONE # SET OVERFLOW INDICATOR AND EXIT.
TS OVFIND TS OVFIND
TC DANZIG TC DANZIG
@@ -1943,7 +1943,7 @@ BUFNEG CCS A
DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND DDOUBL # PROLOGUE WHICH NORMALIZES THE DIVIDEND
DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION DDOUBL # WHEN IT IS KNOWN THAT NO DIVISION
DDOUBL # OVEFLOW WILL OCCUR. DDOUBL # OVERFLOW WILL OCCUR.
DDOUBL DDOUBL
DDOUBL DDOUBL
DDOUBL DDOUBL
@@ -1959,7 +1959,7 @@ BUFNEG CCS A
MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE. MAXTEST CCS MAXDVSW # 0 IF MAJORS MIGHT BE =, -1 OTHERWISE.
BIASHI DEC .4192 B-1 # SQRT CONSTANTS. 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 # Page 1167
# THE FOLLOWING IS A GENERAL PURPOSE DOUBLE PRECISION DIVISION ROUTINE. IT DIVIDES MPAC BY BUF AND LEAVES # 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 # Page 1178
# IF THE LENGTH OF THE ARGUMENT VECTOR WAS LESS THAN 2(-28), EACH COMPONENT MUST BE SHIFTED LEFT AT LEAST # 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. SMALL TS MPTEMP # NEGATIVE OF PRE-DIVIDE SHIFT COUNT.
@@ -2626,7 +2626,7 @@ NORMTEST CCS CYL # SEE IF ARGUMENT NOW NORMALIZED AT
# Page 1187 # Page 1187
# TRIGONOMETRIC FUNCTION PACKAGE. # 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). # 1. SIN COMPUTES (1/2)SINE(2 PI MPAC).
# 2. COS COMPUTES (1/2)COSINE(2 PI MPAC). # 2. COS COMPUTES (1/2)COSINE(2 PI MPAC).
# 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC). # 3. ASIN COMPUTES (1/2PI)ARCSINE(2 MPAC).

2
Comanche055/INTERRUPT_LEAD_INS.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

6
Comanche055/JET_SELECTION_LOGIC.s
View File

@@ -278,7 +278,7 @@ BDZCHECK CA ZNDX
BZF TAUCHECK BZF TAUCHECK
ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY 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 TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
TAUCHECK CCS TAU 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 # FAILURES. IF THERE ARE BD FAILURES, Z-TRANSLATION COMMANDS WILL BE IGNORED, IN WHICH CASE THE ASTRONAUT SHOULD
# SWITCH TO AC ROLL. # 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. # INTRODUCED BY THIS TRANSLATION WILL BE COMPENSATED BY THE TWO AC ROLL JETS ACTUATED BY THE AUTOPILOT LOGIC.
# #
# WORD MAKE UP....RTABLE # 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 # 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. # 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. # (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
# ROLL TRANS QUADFAIL BIAS # ROLL TRANS QUADFAIL BIAS

4
Comanche055/KALCMANU_STEERING.s
View File

@@ -18,7 +18,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -89,7 +89,7 @@ INCRDCDU TS KSPNDX
TCF INCRDCDU # LOOP FOR THREE AXES TCF INCRDCDU # LOOP FOR THREE AXES
RELINT RELINT
# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER # COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
TMANUCHK TC TIMECHK TMANUCHK TC TIMECHK
TC POSTJUMP TC POSTJUMP

2
Comanche055/KEYRUPT_UPRUPT.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.s
View File

@@ -21,7 +21,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/MEASUREMENT_INCORPORATION.s
View File

@@ -362,7 +362,7 @@ FAZC CALL
GRP2PC GRP2PC
# Page 1259 # Page 1259
VLOAD VAD # START 3RD PHASE OF INCORP2 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 DELTAX +12D # INCORPORATION FOR X789
STORE TX789 STORE TX789
BON RTB BON RTB

4
Comanche055/ORBITAL_INTEGRATION.s
View File

@@ -227,9 +227,9 @@ GAMCOMP VLOAD VSR1
# Page 1339 # Page 1339
36D 36D
STORE BETAM STORE BETAM
NORM BDDV # FORM NORMALIZE QUOTIEN ALPHAM/BETAM NORM BDDV # FORM NORMALIZED QUOTIENT ALPHAM/BETAM
33D 33D
SR1R PUSH # C(PDL+2) = ALMOST NORMALIZE RHO. SR1R PUSH # C(PDL+2) = ALMOST NORMALIZED RHO.
DLOAD* DLOAD*
ASCALE,1 ASCALE,1
STORE S1 STORE S1

20
Comanche055/P20-P25.s
View File

@@ -420,7 +420,7 @@ DE-GR-50 TC 2PHSCHNG
# #
# ABORT MODES: P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE # 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 # OUTPUT: TRUNNION BIAS ANGLE: ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
# (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE # (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
@@ -714,17 +714,17 @@ DECRM61 TS R61CNTR
# #
# INPUT # 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 # 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 # DELTAQ = MEASURED DEVIATION
# #
@@ -1407,7 +1407,7 @@ INITB STORE W +90D,1 # CLEAR 54 - 89
# #
# OMETATHSM = (REFSMMAT)(OMEGATH). # 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) # DTHETASM = (0.1)(OMEGATHSM)
# #
@@ -1776,7 +1776,7 @@ FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
# ..... S22.1 ORBITAL NAVIGATION ROUTINE # ..... S22.1 ORBITAL NAVIGATION ROUTINE
# MOD 1 # MOD 1
# #
# FUNCTONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# 1. UPDATE CSM STATE VECTOR # 1. UPDATE CSM STATE VECTOR
# 2. UPDATE LANDMARK POSITION # 2. UPDATE LANDMARK POSITION
# 3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS # 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 V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
CADR R02BOTH # KNOWN. ALARMS IF NOT. CADR R02BOTH # KNOWN. ALARMS IF NOT.
CAF THREE # ALLOW ASTRONAUT TO SELECT DESURED CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
TS OPTION1 # TRACKING ATTITUDE AXIS TS OPTION1 # TRACKING ATTITUDE AXIS.
CAF ONE CAF ONE
TS OPTION1 +1 TS OPTION1 +1
CAF VB04N06 # V 04 N 06 CAF VB04N06 # V 04 N 06

2
Comanche055/P30-P37.s
View File

@@ -207,7 +207,7 @@ V16N35 VN 1635
V06N45 VN 0645 V06N45 VN 0645
# Page 639 # Page 639
# PROGRAM DESCRPTION S30.1 DATE 9NOV66 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
# MOD NO 1 LOG SECTION P30,P37 # MOD NO 1 LOG SECTION P30,P37
# MOD BY RAMA AIYAWAR ** # MOD BY RAMA AIYAWAR **
# MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67 # MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67

8
Comanche055/P32-P33_P72-P73.s
View File

@@ -39,10 +39,10 @@
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
# #
# MOD NO -1 LOG SECTION -- P32-P35, P72-P75 # MOD NO -1 LOG SECTION -- P32-P35, P72-P75
# MOD BY WHITE, P. DATE 1 JUNE 67 # MOD BY WHITE. P DATE 1JUNE67
# #
# PURPOSE # 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 # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE
# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
# (CDH) MANEUVER. # (CDH) MANEUVER.
@@ -50,12 +50,12 @@
# APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT. # APPROVED AND KEYED INTO THE DSKY BY THE ASTRONAUT.
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR # 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 # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM. # THRUSTING PROGRAM.
# #
# ASSUMPTIONS # 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) # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
# POSITION. # POSITION.

12
Comanche055/P34-35_P74-75.s
View File

@@ -20,7 +20,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -31,14 +31,14 @@
# Page 460 # 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 NO -1 LOG SECTION -- P32-P35, P72-P75
# MOD BY WHITE, P. DATE: 1 JUNE 67 # MOD BY WHITE, P. DATE: 1 JUNE 67
# #
# PURPOSE # PURPOSE
# (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS # (1) TO CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL CONDITIONS
# REQUIRED BY THE ACTIVE VEHICLE FOR EXECUTION OF THE TRANSFER # 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 # (A) TIME OF IGNITION TIG (TPI) OR THE ELEVATION ANGLE (E) OF
# THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI). # THE ACTIVE/PASSIVE VEHICLE LOS AT TIG (TPI).
# (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO # (B) CENTRAL ANGLE OF TRANSFER (CENTANG) FROM TIG (TPI) TO
@@ -759,7 +759,7 @@ NOVRWRT VLOAD PUSH
# Page 478 # Page 478
# ***** S34/35.4 ***** # ***** S34/35.4 *****
S34/35.4 STQ SETPD NO ASTRONAUT OVERWRITE S34/35.4 STQ SETPD # NO ASTRONAUT OVERWRITE
NORMEX NORMEX
0D 0D
GOTO GOTO
@@ -1023,14 +1023,14 @@ EPSFOUR 2DEC .0416666666
# #
# IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE # IN ORDER TO AVOID THE INHERENT SINGULARITIES IN THE 180 DEGREE
# TRANSFER CASE WHEN THE (TRUE OR OFFSET) TARGET VECTOR MAY BE # 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 # VECTOR INTO A PLANE DEFINED BY THE INPUT INITIAL POSITION VECTOR
# AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR), # AND ANOTHER INPUT VECTOR (USUALLY THE INITIAL VELOCITY VECTOR),
# WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX # WHENEVER THE INPUT TARGET VECTOR LIES INSIDE A CONE WHOSE VERTEX
# IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE # IS THE ORIGIN OF COORDINATES, WHOSE AXIS IS THE 180 DEGREE
# TRANSFER DIRECTION, AND WHOSE CONE ANGLE IS SPECIFIED BY THE USER. # 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 # THE COASTING INTEGRATION SUBROUTINE IS UTILIZED FOR THE PRECISION
# TRAJECTORY COMPUTATIONS. # TRAJECTORY COMPUTATIONS.
# #

2
Comanche055/P37_P70.s
View File

@@ -44,7 +44,7 @@
# DESCRIPTION # DESCRIPTION
# A RETURN TO EARTH TRAJECTORY IS COMPUTED PROVIDED THE CSM IS OUTSIDE THE LUNAR SPHERE OF INFLUENCE AT THE # 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 # 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 # 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). # COMPUTES AND STORES THE TARGET PARAMETERS FOR RETURN TO EARTH FOR USE BY SPS PROGRAM (P40) OR RCS PROGRAM (P41).
# #

2
Comanche055/P40-P47.s
View File

@@ -802,7 +802,7 @@ SURELY.9 EXIT
RN # ACTIVE VEHICLE RADIUS VECTOR AT T1 RN # ACTIVE VEHICLE RADIUS VECTOR AT T1
STOVL RINIT STOVL RINIT
# Page 701 # Page 701
VN # ACTIVE VEHICLE VELOCITY VECTORY AT T1 VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1
STODL VINIT STODL VINIT
PIPTIME PIPTIME
STORE TNIT STORE TNIT

12
Comanche055/P51-P53.s
View File

@@ -28,7 +28,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -317,8 +317,8 @@ V06N89* VN 0689
# #
# FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE, # FUNCTION -- TO DISPLAY THE LANDING SITE LATITUDE,
# LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA # LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
# THE KEYBOARD. TO COMPUT THE LANDING SITE # THE KEYBOARD. TO COMPUTE THE LANDING SITE
# ORIENTATIION FOR P52 OR P54. # ORIENTATION FOR P52 OR P54
# #
# LET: # LET:
# RLS = LANDING SITE VECTOR IN REF COORDINATES # RLS = LANDING SITE VECTOR IN REF COORDINATES
@@ -742,7 +742,7 @@ CSSUN 2DEC .24148 # (COS 15)/4
# FUNCTION # FUNCTION
# THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION # 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 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 # 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. # 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 # 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. NO. 2 21 DEC 66
# MOD. BY STURLAUGSON # MOD. BY STURLAUGSON
# #
# FUNCTIONAL DESCRIPTIION: # FUNCTIONAL DESCRIPTION:
# #
# TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS # 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 # 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 CADR OPTSTALL
TC CURTAINS TC CURTAINS
INDEX MARKSTAT INDEX MARKSTAT
CCS QPRET # NUMNBER OF MARKS ACTUALLY DONE CCS QPRET # NUMBER OF MARKS ACTUALLY DONE
TCF R53B TCF R53B
TCF +2 # ZERO TCF +2 # ZERO
TCF +1 # CCS HOLE TCF +1 # CCS HOLE

7
Comanche055/P61-P67.s
View File

@@ -23,7 +23,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -343,7 +343,7 @@ POSECADR 2CADR CM/POSE
# MOD BY: R. HIRSCHKOP # MOD BY: R. HIRSCHKOP
# MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 8 MAY 68 REVISED COMMENTS FOR COLOSSUS # 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 # 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. # 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 # 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 # 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 NO: 0 DATE: 21 FEB 67
# MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67 # MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS. # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
#
# FUNCTIONAL DESCRIPTION: CALLED BY BOTH P61 AND P62 # 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 # 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 # 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: 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 # 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. # 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 USER MUST APPEND PROPER SIGN TO GAMMA, SINCE IT IS CALCULATED AS A POSITIVE NUMBER.
# THE EQUATIONS ARE # THE EQUATIONS ARE

2
Comanche055/P76.s
View File

@@ -37,7 +37,7 @@
# BEEN TRANSFORMED FROM LV TO REF COSYS). USING INTEGRVS, THE PROGRAM THEN INTEGRATES THE OTHER # 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 # 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. # 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. # 4) CALLING SEQUENCES AND EXIT MODES -- CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76E.
# EXITS BY TCF ENDOFJOB. # EXITS BY TCF ENDOFJOB.
# 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS. # 5) OUTPUT -- OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.

2
Comanche055/PHASE_TABLE_MAINTENANCE.s
View File

@@ -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, # 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, # 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 # 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, # TC PHASCHNG # THIS WILL CAUSE GROUP 3 TO BE SET TO 0,
# OCT 00003 # MAKING GROUP 3 INACTIVE # OCT 00003 # MAKING GROUP 3 INACTIVE
# #

20
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.s
View File

@@ -84,7 +84,7 @@
# Page 308 # Page 308
# 2) EXTENDED VERBS TO TO THE EXTENDED VERB FAN AS PART OF THE # 2) EXTENDED VERBS TO TO THE EXTENDED VERB FAN AS PART OF THE
# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS 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. # CHANGE PRIORITY (IF NECESSARY) AD DO AN ENDOFJOB.
# ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON. # ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
# 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS `V37' IN THE # 3) VERB 37. CHANGE OF PROGRAM (MAJOR MODE) CALLS `V37' IN THE
@@ -136,7 +136,7 @@
# THE FOLLOWING ARE OF GENERAL INTEREST -- # THE FOLLOWING ARE OF GENERAL INTEREST --
# #
# REMARKS CARDS PRECEDE THE REFERENCED SYMBOL DEFINITION. SEE SYMBOL # 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. # NVSUB CALLING POINT FOR INTERNAL USE OF PINBALL.
# OF RELATED INTEREST NVSBWAIT # OF RELATED INTEREST NVSBWAIT
@@ -1128,7 +1128,7 @@ GODSPALM TC POSTJUMP
# S'S ARE THE SF ROUTINE 1 CODE NUMBER # S'S ARE THE SF ROUTINE 1 CODE NUMBER
# #
# IN OCTAL DISPLAY AND LOAD (OCT OR DEC) VERBS, EXCLUDE USE OF VERBS WHOSE # 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.) # (ALL MACHINE ADDRESS TO BE SPECIFIED NOUNS ARE 3 COMPONENT.)
# #
# IN MULTI-COMPONENT LOAD VERBS, NO MIXING OF OCTAL AND DECIMAL DATA # 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. ADRES MINCON1 # GIVES FRACT MIN/60 IN MPAC+1.
ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC. 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 # WORD AS 10 DECIMAL DIGITS ON THE AGC DISPLAY PANEL. IT CAN BE USED WITH
# ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS # ANY NOUN, EXCEPT MIXED NOUNS. IT DISPLAYS THE CONTENTS
# OF THE REGISTER NOUNADD IS POINTING TO. IF USED WITH NOUNS WHICH ARE # 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. # VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
# IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED. # 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 1 DELAY (LOW BITS)
# COMPONENT 2 TASK ADRES (12 BIT) # COMPONENT 2 TASK ADRES (12 BIT)
# COMPONENT 3 BBCON # COMPONENT 3 BBCON
@@ -2921,11 +2921,11 @@ ENDRELDS EQUALS
# PLACE 0VVVVVVVNNNNNNN INTO A. # PLACE 0VVVVVVVNNNNNNN INTO A.
# V'S ARE THE 7-BIT VERB CODE. N'S ARE THE 7-BIT NOUN CODE. # 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 --- # 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. # -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. # MPAC+2 BEFORE THE STANDARD NVSUB CALL.
# #
# NVSUB RETURNS TO 2+ CALLING LOC AFTER PERFORMING TASK, IF DISPLAY # 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 # THE DISPLAY SYSTEM IS BLOCKED BY THE DEPRESSION OF ANY
# KEY, EXCEPT ERROR LIGHT RESET. # KEY, EXCEPT ERROR LIGHT RESET.
# IT IS RELEASED BY THE KEY RELEASE BUTTON, ALL EXTENDED VERBS, # 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, # RECALL PART OF RECALTST IF ENDIDLE WAS USED,
# VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST, # VB = REQUEST EXECUTIVE, VB = REQUEST WAITLIST,
# MONITOR SET UP. # MONITOR SET UP.
@@ -2960,14 +2960,14 @@ ENDRELDS EQUALS
# (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT # (SIMILARLY FOR PLEASE MARK). FIRST PLACE THE CODED NUMBER FOR WHAT
# ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE # ACTION IS DESIRED OF OPERATOR INTO THEREGISTERS REFERRED TO BY THE
# `CHECKLIST' NOUN. GO TO NVSUB WITH A DISPLAY VERB AND THE `CHECKLIST' # `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 # LOW 7 BITS. THIS `PASTES UP' THE `PLEASE PERFORM' VERB INTO THE VERB
# LIGHTS. # LIGHTS.
# #
# NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL # NVMONOPT IS AN ENTRY SIMILAR TO NVSUB, BUT REQUIRING AN ADDITIONAL
# Page 370 # Page 370
# PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN # 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 # 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 # 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 # BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB

10
Comanche055/PINBALL_NOUN_TABLES.s
View File

@@ -20,7 +20,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -120,7 +120,7 @@
# (WHICH ARE IN A SEPARATE BANK FROM THE REST OF PINBALL). THESE READING # (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. # 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 # 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, IDAD2TEM THE SECOND IDADDTAB ENTRY, IDAD3TEM THE THIRD
# IDADDTAB ENTRY, RUTMXTEM WITH THE RUTMXTAB ENTRY. MIXBR IS SET FOR # 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) 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 # Page 271
GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1. GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1.
@@ -214,7 +214,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 00000 # 23 SPARE OCT 00000 # 23 SPARE
ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC) ECADR DSPTEM2 +1 # 24 DELTA TIME FOR AGC CLOCK (HRS,MIN,SEC)
ECADR DSPTEM1 # 25 CHECKLIST ECADR DSPTEM1 # 25 CHECKLIST
# (USED WTIH PLEASE PERFORM ONLY) # (USED WITH PLEASE PERFORM ONLY)
ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON ECADR DSPTEM1 # 26 PRIO/DELAY, ADRES, BBCON
ECADR SMODE # 27 SELF TEST ON/OFF SWITCH ECADR SMODE # 27 SELF TEST ON/OFF SWITCH
# Page 272 # Page 272
@@ -588,7 +588,7 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 15340 OCT 15340
OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8) OCT 01031 # VELOCITY3 (POINT BETWN BITS 7-8)
OCT 21032 OCT 21032
OCT 34631 # ELEVATION DETREES OCT 34631 # ELEVATION DEGREES
OCT 23146 OCT 23146
OCT 14340 # TRIM DEGREES OCT 14340 # TRIM DEGREES
OCT 24145 OCT 24145

2
Comanche055/R30.s
View File

@@ -259,7 +259,7 @@ DOTICK CAF 1SEC # RE-REQUEST TICKTEST.
MASK V82FLAGS MASK V82FLAGS
INDEX A INDEX A
TC +1 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. # -TPER, BUT CONTINUE LOOP.
TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC. TC TPERTICK # ONLY BIT 1 SET. INCR -TPER BY 1 SEC.
TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC. TFFTICK CAF 1SEC # ONLY BIT 2 SET. INCR TFF BY 1 SEC.

2
Comanche055/R31.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/R60_62.s
View File

@@ -159,7 +159,7 @@ V06N18 VN 0618
# BEGINNING WITH THE LOCATION CALLED SCAXIS. THE COMPONENTS OF THIS VECTOR ARE GIVEN IN SPACECRAFT COORDINATES. # 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 # 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 # 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 # 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. # IN T(MPAC) BEFORE RETURNING TO THE CALLER.
# #

2
Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.s
View File

@@ -397,7 +397,7 @@ KRESUME1 TCF RESUME # END PHASE 1
# MASK BIT3 # MASK BIT3
# ADS RCSFLAGS # 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 # AK SCALED 180 DEGREES NOTE: THESE LOCATIONS ARE SUBJECT
# AK1 SCALED 180 DEGREES TO CHANGE # AK1 SCALED 180 DEGREES TO CHANGE

2
Comanche055/RESTARTS_ROUTINE.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/RESTART_TABLES.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

8
Comanche055/RT8_OP_CODES.s
View File

@@ -20,7 +20,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -162,7 +162,7 @@ INCRCDUS CAF LOCTHETA
LOCTHETA ADRES THETAD LOCTHETA ADRES THETAD
# THE FOLLOWING ROUTINE INCREMENTS IN 2'S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1'S COMPL. # 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. # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
CDUINC TS TEM2 # 1'S COMPL. QUANT. ARRIVES IN ACC. STORE IT 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 TCF SLOAD2
# RTB OP CODE NORMUNIT IS LIKE INTERPRETIVE INSTRUCTION UNIT, EXCEPT THAT IT CAN BE DEPENDED ON NOT TO BLOW # 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 # 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 NORMUNX1 CAF ONE
TCF NORMUNIT +1 TCF NORMUNIT +1

4
Comanche055/SERVICER207.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -617,7 +617,7 @@ NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1
PIPASR EXTEND PIPASR EXTEND
DCA TIME2 DCA TIME2
DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE DXCH PIPTIME1 # CURRENT TIME POSITIVE VALUE
CS ZERO # INITIALIZAE THESE AT NEG ZERO. CS ZERO # INITIALIZE THESE AT NEG ZERO.
TS TEMX TS TEMX
TS TEMY TS TEMY
TS TEMZ TS TEMZ

2
Comanche055/SERVICE_ROUTINES.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

2
Comanche055/STABLE_ORBIT.s
View File

@@ -86,7 +86,7 @@
# (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
# (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
# (8) DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL # (8) DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
# CORDINATES # COORDINATES
# #
# SUBROUTINES USED # SUBROUTINES USED
# #

4
Comanche055/SXTMARK.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -520,7 +520,7 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
TC RESUME TC RESUME
# Page 232 # Page 232
# PROGRAM DESCRIPTON MKVB51 AND MKVB50 # PROGRAM DESCRIPTION MKVB51 AND MKVB50
# #
# AUTHOR: BARNERT DATE: 2-15-67 MOD: 0 # AUTHOR: BARNERT DATE: 2-15-67 MOD: 0
# PURPOSE: FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING, # PURPOSE: FLASH V51N70,V51N43, OR V51 TO REQUEST MARKING,

2
Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.s
View File

@@ -18,7 +18,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

10
Comanche055/T4RUPT_PROGRAM.s
View File

@@ -19,7 +19,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -244,7 +244,7 @@ QUIKOFF EXTEND
# PROGRAM NAME: IMUMON # PROGRAM NAME: IMUMON
# #
# FUNCTIONAL DESCRIPTION: THIS PROGRAM IS ENTERED EVERY 480 MS. IT DETECTS CHANGES OF THE IMU STATUS BITS IN # 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 # FUNCTION BIT SUBROUTINE CALLED
# -------- --- ----------------- # -------- --- -----------------
@@ -577,7 +577,7 @@ NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES.
# #
# ERASABLE INITIALIZATION: # ERASABLE INITIALIZATION:
# 1) FRESH START OR RESTART WITH NO GROUPS ACTIVE: C(CDUZ) = 0, IMODES30 BIT 6 = 0, IMODES33 BIT 1 = 0. # 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. # PROCEEDS AS BEFORE.
# #
# ALARMS: 1) MGA REGION (2) CAUSES GIMBAL LOCK LAMP TO BE LIT. # 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. # 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. # 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 ZEROPCDU CAF ZERO
TS CDUS # ZERO IN CDUS, -20 IN CDUT TS CDUS # ZERO IN CDUS, -20 IN CDUT
TS ZONE # INITIALZE SHAFT MONITOR ZONE. TS ZONE # INITIALIZE SHAFT MONITOR ZONE
CS 20DEGS CS 20DEGS
TS CDUT TS CDUT
TC Q TC Q

8
Comanche055/TIME_OF_FREE_FALL.s
View File

@@ -31,7 +31,7 @@
# Page 1373 # Page 1373
# THE TFF SUBROUTINES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER # 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 # 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 # EARTH ORIGIN POSITION -29 METERS
# VELOCITY -7 METERS/CENTISECOND # VELOCITY -7 METERS/CENTISECOND
@@ -81,7 +81,7 @@ NRMAG = 32D # PRESENT RADIUS M E: (-29+NR)
TFFX = 34D # TFFX = 34D #
TFFTEM = 36D # TEMPORARY TFFTEM = 36D # TEMPORARY
# Page 1374 # 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- # 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 # LISHED IN TFF/CONIC AND MUST BE PRESERVED BETWEEN CALLS TO SUBSEQUENT
# SUBROUTINES. # SUBROUTINES.
@@ -139,7 +139,7 @@ TFFTEM = 36D # TEMPORARY
# TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHTED BY NR. FOR VGAMCALC. # TFFNP E:(-38+2NR) M LCP, SEMI LATUS RECTUM, WEIGHTED BY NR. FOR VGAMCALC.
# M:(-36+2NR) # M:(-36+2NR)
# TFF/RTMU E:(17) M:(14) 1/SQRT(MU) # 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 # TFFALFA E:(26-NR) 1/M ALFA, WEIGHTED BY NR
# M:(24-NR) # M:(24-NR)
# TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED # TFFRTALF E:(10+NA) SQRT(ALFA), NORMALIZED
@@ -341,7 +341,7 @@ DUMPRPRA RVQ
# 2 3 2 # 2 3 2
# 1/3 - X/5 + X /7 - X /8 ... (X < 1.0) # 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 # CALL CALL
# CALCTFF CALCTPER # CALCTFF CALCTPER
# C(MPAC) = TERMNL RAD M C(MPAC) = PERIGEE RAD M # C(MPAC) = TERMNL RAD M C(MPAC) = PERIGEE RAD M

2
Comanche055/TPI_SEARCH.s
View File

@@ -45,7 +45,7 @@
# #
# THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA # 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 # 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 # IS MADE WHEN SOLUTION CRITERIA ARE MET (NORMAL EXIT) OR AS SOON AS IT IS EVIDENT THAT NO SOLUTION EXISTS IN
# THE SECTOR SEARCHED. # THE SECTOR SEARCHED.
# #

2
Comanche055/TVCDAPS.s
View File

@@ -365,7 +365,7 @@ YOFFSET EXTEND
YACLIM TCR ACTLIM # YAW ACTUATOR-COMMAND-LIMITER YACLIM TCR ACTLIM # YAW ACTUATOR-COMMAND-LIMITER
YOUT CS YCMD # INCRMENTAL YAW COMMAND YOUT CS YCMD # INCREMENTAL YAW COMMAND
AD CMDTMP AD CMDTMP
ADS TVCYAW # UPDATE THE ERROR COUNTER (NO RESTART- ADS TVCYAW # UPDATE THE ERROR COUNTER (NO RESTART-
# PROTECT, SINCE ERROR CNTR ZEROED) # PROTECT, SINCE ERROR CNTR ZEROED)

4
Comanche055/TVCEXECUTIVE.s
View File

@@ -100,7 +100,7 @@ ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START) XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START)
XCH OGAPAST XCH OGAPAST
CAE OGAD # PREPARE ROLL FDAI NEEDLE WTIH FLY-TO CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO
EXTEND # ERROR (COMMAND - MEASURED) EXTEND # ERROR (COMMAND - MEASURED)
MSU OGANOW MSU OGANOW
TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS 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 CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
TS VCNTRTMP TS VCNTRTMP
EXECCOPY INCR TVCEXPHS # RESTART-PROTECT TEH COPYCYCLE (1) EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1)
CAE MASSTMP # CSMMASS KG B+16 CAE MASSTMP # CSMMASS KG B+16
TS CSMMASS TS CSMMASS

4
Comanche055/TVCRESTARTS.s
View File

@@ -122,7 +122,7 @@
# #
# OTHER INTERFACES....DOTVCON AND RCSDAPON (T5 BITS), ELRSKIP (CALLS IT) # 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) # *T5 BITS (1,0), TVCPHASE (-2,-1,0,1,2,3), TVCEXPHS (1 THRU 6)
# *TVC DAP VARIABLES # *TVC DAP VARIABLES
@@ -197,7 +197,7 @@ ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
TCF NOQRSM TCF NOQRSM
CMDSOUT LXCH BANKRUPT # CONTNUE PREPARATION OF OUTCOUNTERS CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
EXTEND EXTEND
QXCH QRUPT QXCH QRUPT

2
Comanche055/TVCROLLDAP.s
View File

@@ -150,7 +150,7 @@
# SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE # SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
# APPROXIMATION. # APPROXIMATION.
# #
# FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDRY BEFORE # FOR LARGE OGAERROR THE TANGENT INTERSECTS +-MINLIM SWITCH BOUNDARY BEFORE
# INTERSECTING THE STRAIGHT LINE SWITCH. HOWEVER THE MINLIM IS # INTERSECTING THE STRAIGHT LINE SWITCH. HOWEVER THE MINLIM IS
# IGNORED IN COMPUTING THE FIRING TIME, SO THAT THE EXTENSION (INTO # IGNORED IN COMPUTING THE FIRING TIME, SO THAT THE EXTENSION (INTO
# THE COAST REGION) OF THE STRAIGHT LINE SWITCH IS WHAT IS FIRED TO. # THE COAST REGION) OF THE STRAIGHT LINE SWITCH IS WHAT IS FIRED TO.

4
Comanche055/TVCSTROKETEST.s
View File

@@ -41,8 +41,8 @@
# IMMEDIATELY. IF NOT CSM/LM, PROGRAM EXITS WITH NO ACTION. # IMMEDIATELY. IF NOT CSM/LM, PROGRAM EXITS WITH NO ACTION.
# HACK (STROKE TEST) GENERATES THE WAVEFORM BY DUMPING PULSE BURSTS # HACK (STROKE TEST) GENERATES THE WAVEFORM BY DUMPING PULSE BURSTS
# OF PROPER SIGN AND IN PROPER SEQUENCE DIRECTLY INTO # OF PROPER SIGN AND IN PROPER SEQUENCE DIRECTLY INTO
# TVCPITCH, WORKING IN CONJUNCITON WITH BOTH PITCH AND YAW # TVCPITCH, WORKING IN CONJUNCTION WITH BOTH PITCH AND YAW
# TVC DAPS, WITH INTERMEDIAT WAITLIST CALLS. NOTE, HOWEVER # TVC DAPS, WITH INTERMEDIATE WAITLIST CALLS. NOTE, HOWEVER
# THAT THE STROKE TEST IS PERFORMED ONLY IN THE PITCH AXIS. # THAT THE STROKE TEST IS PERFORMED ONLY IN THE PITCH AXIS.
# AN EXAMPLE WAVEFORM IS GIVEN BELOW, TO DEMONSTRATE STROKE- # AN EXAMPLE WAVEFORM IS GIVEN BELOW, TO DEMONSTRATE STROKE-
# TEST PARAMETER SELECTION. # TEST PARAMETER SELECTION.

4
Comanche055/UPDATE_PROGRAM.s
View File

@@ -22,7 +22,7 @@
# This AGC program shall also be referred to as Colossus 2A # This AGC program shall also be referred to as Colossus 2A
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -122,7 +122,7 @@
# V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED. # V33E VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
# #
# 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL) # 2. REFSMMAT (ALL DATA ENTRIES IN OCTAL)
# ENTRIES DATA DEFINITITIONS SCALE FACTORS: # ENTRIES DATA DEFINITIONS SCALE FACTORS:
# Page 1499 # Page 1499
# V71E CONTIGUOUS BLOCK UPDATE VERB # V71E CONTIGUOUS BLOCK UPDATE VERB
# 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE # 24E NUMBER OF COMPONENTS FOR REFSMMAT UPDATE

4
Comanche055/WAITLIST.s
View File

@@ -55,7 +55,7 @@
# C(LST2 +16) = 2CADR OF TASK9 # C(LST2 +16) = 2CADR OF TASK9
# #
# WARNINGS -- # 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 # 2) 9 TASKS MAXIMUM
# 3) TASKS CALLED UNDER INTERRUPT INHIBITED # 3) TASKS CALLED UNDER INTERRUPT INHIBITED
# 4) TASKS END BY TC TASKOVER # 4) TASKS END BY TC TASKOVER
@@ -472,7 +472,7 @@ NOQBRSM DXCH ARUPT
# LONGEXIT AND LONGEXIT+1 # LONGEXIT AND LONGEXIT+1
# LONGTIME AND LONGTIME+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 BLOCK 02
EBANK= LST1 EBANK= LST1

2
Luminary099/AGC_BLOCK_TWO_SELF_CHECK.s
View File

@@ -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 # 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). # 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. # THE BANK NUMBER, AND IN R3 THE BUGGER WORD.
# #
# ERASABLE INITIALIZATION REQUIRED # ERASABLE INITIALIZATION REQUIRED

2
Luminary099/AOSTASK_AND_AOSJOB.s
View File

@@ -391,7 +391,7 @@ DVOVSUB TS SCRATCHY # SAVE UPPER HALF OF DIVIDEND
AD BIT1 AD BIT1
ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF ZEROPLUS XCH SCRATCHY # STORE ABS(DIVISOR). PICK UP TOP HALF OF
EXTEND # DIVIDENT. EXTEND # DIVIDEND.
BZMF GOODNEG # GET -ABS(DIVIDEND) BZMF GOODNEG # GET -ABS(DIVIDEND)
# Page 1493 # Page 1493
CS A CS A

4
Luminary099/AOTMARK.s
View File

@@ -157,7 +157,7 @@ COASCODE INDEX FIXLOC
TC INTPRET # COMPUTE X AND Y PLANE VECTORS TC INTPRET # COMPUTE X AND Y PLANE VECTORS
# Page 248 # 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 # ROTATES THEM THRU THE APPARENT FIELD OF VIEW ROTATION UNIQUE TO AOT
# OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS # OPTAXIS USES OANB TO COMPUTE THE OPTIC AXIS
# #
@@ -243,7 +243,7 @@ OANB SETPD STQ
GOTO GOTO
GCTR GCTR
# Page 250 # 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. # SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
# #
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC # GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC

6
Luminary099/ASCENT_GUIDANCE.s
View File

@@ -374,7 +374,7 @@ ASCTERM3 TCF ENDOFJOB
ASCTERM4 EXIT ASCTERM4 EXIT
INHINT INHINT
TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO TC IBNKCALL # NO GUIDANCE THIS CYCLE -- HENCE ZERO
CADR ZATTEROR # THE DAP COMMANDED ERRORSss. CADR ZATTEROR # THE DAP COMMANDED ERRORS.
TCF ASCTERM1 +1 TCF ASCTERM1 +1
CHECKALT DLOAD DSU CHECKALT DLOAD DSU
@@ -425,7 +425,7 @@ OFFROT CLRGO
SETXFLAG = CHECKYAW SETXFLAG = CHECKYAW
CHECKYAW SET CHECKYAW SET
XOVINFLG # PROHIBIT X-AXIS OVERRRIDE XOVINFLG # PROHIBIT X-AXIS OVERRIDE
DLOAD VXSC DLOAD VXSC
ATY ATY
LAXIS LAXIS
@@ -473,7 +473,7 @@ ENGOFF RTB
PIPTIME PIPTIME
TTOGO TTOGO
DCOMP EXIT DCOMP EXIT
TC TPAGREE # FORCH SIGN AGREEMENT ON MPAC, MPAC +1. TC TPAGREE # FORCE SIGN AGREEMENT ON MPAC, MPAC +1.
CAF EBANK7 CAF EBANK7
TS EBANK TS EBANK
EBANK= TGO EBANK= TGO

8
Luminary099/ATTITUDE_MANEUVER_ROUTINE.s
View File

@@ -46,7 +46,7 @@
# WHEN POINTING A SPACECRAFT AXIS (I.E., X, Y, Z, THE AOT, THRUST AXIS, ETC.) THE SUBROUTINE VECPOINT MAY BE # 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). # 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. # 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 # 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) # A) AM LESS THAN .25 DEGREES (MINANG)
# B) AM GREATER THAN 170 DEGREES (MAXANG) # 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. # 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 # IF AM IS GREATER THAN .25 DEGREES BUT LESS THAN 170 DEGREES THE AXES OF THE SINGLE EQUIVALENT ROTATION
@@ -141,7 +141,7 @@
# RELINT # RELINT
# #
# THE USER'S PROGRAM MAY EITHER CONTINUE OR WAIT FOR THE TERMINATION OF THE MANEUVER. IF THE USER WISHES TO # 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 TC BANKCALL
# L+1 CADR ATTSTALL # 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 # 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 # 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 # FOR THIS CONVERSION ARE
# #
# Z = ARCSIN (M ) # Z = ARCSIN (M )

4
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.s
View File

@@ -594,7 +594,7 @@ ZOOM = P40ZOOMA
COMFAIL TC UPFLAG # (15) COMFAIL TC UPFLAG # (15)
ADRES IDLEFLAG ADRES IDLEFLAG
TC UPFLAG # SET FLAG TO SUPRESS CONFLICTING DISPLAY TC UPFLAG # SET FLAG TO SUPPRESS CONFLICTING DISPLAY
ADRES FLUNDISP ADRES FLUNDISP
CAF FOUR # RESET DVMON CAF FOUR # RESET DVMON
TS DVCNTR TS DVCNTR
@@ -890,7 +890,7 @@ REP40ALM CAF V05N09 # (14)
TCF +2 # PROCEED CHECK FOR P42 TCF +2 # PROCEED CHECK FOR P42
TCF REP40ALM # V32E REDISPLAY ALARM 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. TCF 14 # THOUGH VEHICLE IS UNSTAGED.
# ******************************** # ********************************

6
Luminary099/DOWN_TELEMETRY_PROGRAM.s
View File

@@ -115,7 +115,7 @@
# SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT # SAME AS ECADR, BUT USED WHEN THE WORD ADDRESSED IS THE LEFT
# HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY. # HALF OF A DOUBLE-PRECISION WORD FOR DOWN TELEMETRY.
# B. 2DNADR - 6DNADR N-WORD DOWNLIST ADDRESS, N = 2 - 6. # 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- # FILLED IN WITH 0001-0101. USED TO POINT TO A LIST OF N DOUBLE-
# PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY. # PRECISION WORDS, STORED CONSECUTIVELY, FOR DOWN TELEMETRY.
# C. DNCHAN DOWNLIST CHANNEL ADDRESS. # C. DNCHAN DOWNLIST CHANNEL ADDRESS.
@@ -321,7 +321,7 @@ DNTMEXIT EXTEND # DOWN-TELEMETRY EXIT
CA L # RESPECTIVELY CA L # RESPECTIVELY
TMEXITL EXTEND TMEXITL EXTEND
WRITE DNTM2 WRITE DNTM2
TMRESUME TCF RESUME # EXIT TELEMTRY PROGRAM VIA RESUME. TMRESUME TCF RESUME # EXIT TELEMETRY PROGRAM VIA RESUME.
MINB12 EQUALS -1/8 MINB12 EQUALS -1/8
DNECADR EQUALS TMINDEX 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 # AFTER KEYING IN V74E THE CURRENT DOWNLIST WILL BE IMMEDIATELY TERMINATED AND THE DOWNLINK ERASABLE DUMP
# WILL BEGIN. # 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: # BY THE FOLLOWING:
# #
# 1. A FRESH START # 1. A FRESH START

4
Luminary099/FINDCDUW--GUIDAP_INTERFACE.s
View File

@@ -45,7 +45,7 @@
# FINDCDUW PROVIDES THE INTERFACES BETWEEN THE VARIOUS POWERED FLITE GUIDANCE PROGRAMS # 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 DIGITAL AUTOPILOT. THE INPUTS TO FINDCDUW ARE THE THRUST COMMAND VECTOR
# AND THE WINDOW COMMAND VECTOR, AND THE OUTPUTS ARE THE GIMBAL ANGLE # 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 # 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 # LAG BEHIND A RAMP COMMAND IN ATTITUDE ANGLE DUE TO THE FINITE ANGULAR
# ACCELERATIONS AVAILABLE). # ACCELERATIONS AVAILABLE).
@@ -289,7 +289,7 @@ DELGMBLP TS TEM2
TS CPHI # OUTPUTS TO NOUN22 TS CPHI # OUTPUTS TO NOUN22
EXTEND EXTEND
INDEX TEM2 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 COM # FROM WHEN WE INITIALLY FETCHED THEM
INDEX TEM2 INDEX TEM2
TS -DELGMB # -UNLIMITED GIMBAL ANGLE CHGS, 1'S, PI TS -DELGMB # -UNLIMITED GIMBAL ANGLE CHGS, 1'S, PI

2
Luminary099/FLAGWORD_ASSIGNMENTS.s
View File

@@ -687,7 +687,7 @@ FLAGWRD6 = STATE +6 # (090-104)
# BIT 15 FLAG 6 (S) # BIT 15 FLAG 6 (S)
S32.1F1 = 090D # DELTA V AT CSI TIME DVT1 LESS THAN MAX 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) # BIT 14 FLAG 6 (S)
S32.1F2 = 091D # FIRST PASS OF REITERATION OF S32.1F2 = 091D # FIRST PASS OF REITERATION OF

2
Luminary099/IMU_PERFORMANCE_TESTS_4.s
View File

@@ -32,7 +32,7 @@
# BY -- GEORGE SCHMIDT IL7-146 EXT 1126 # BY -- GEORGE SCHMIDT IL7-146 EXT 1126
# MOD NO-ZERO # MOD NO-ZERO
# #
# FUNCITONAL DESCRIPTION # FUNCTIONAL DESCRIPTION
# #
# THIS SECTION CONSISTS OF THE FILTER FOR THE GYRO DRIFT TESTS. NO COMPASS # 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 # IS DONE IN LEM. FOR A DESCRIPTION OF THE FILTER SEE E-1973. THIS

2
Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.s
View File

@@ -158,7 +158,7 @@
# BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM. # BIT 10 LM COMPUTER (NOT AGS) HAS CONTROL OF LM.
# BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0. # BIT 11 IMU CAGE COMMAND TO DRIVE IMU GIMBAL ANGLES TO 0.
# BIT 12 IMU CDU FAIL (MALFUNCTION OF IMU CDU,S) # 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 14 ISS TURN ON REQUESTED
# BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS # BIT 15 TEMPERATURE OF STABLE MEMBER WITHIN DESIGN LIMITS

2
Luminary099/LANDING_ANALOG_DISPLAYS.s
View File

@@ -17,7 +17,7 @@
# 2021112-061. July 14, 1969. # 2021112-061. July 14, 1969.
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #

4
Luminary099/LEM_GEOMETRY.s
View File

@@ -37,8 +37,8 @@
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING # 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 # 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 # 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 # R-OTHER,V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
# OTHER VEHICLE'S COMPUTER. # OTHER VEHICLES COMPUTER.
# #
# INPUT # INPUT
# STATE VECTOR IN TEMPORARY STORAGE AREA # STATE VECTOR IN TEMPORARY STORAGE AREA

14
Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.s
View File

@@ -412,10 +412,10 @@ REDES1 DLOAD DSU
# ********************************************************************* # *********************************************************************
# #
# RGVGCALC COMPUTATIONS ARE AS FOLLOWS:-- # RGVGCALC COMPUTATIONS ARE AS FOLLOWS:--
# VELOCITY RELATIVE TO THE SURFACE # VELOCITY RELATIVE TO THE SURFACE:
# _______ _ _ __ # _______ _ _ __
# ANGTERM = V + R * WM # ANGTERM = V + R * WM
# STATE IN GUIDANCE COORDINTES: # STATE IN GUIDANCE COORDINATES:
# ___ * _ ____ # ___ * _ ____
# RGU = CG (R - LAND) # RGU = CG (R - LAND)
# ___ * _ __ _ # ___ * _ __ _
@@ -960,7 +960,7 @@ RODCOMP INHINT
XCH OLDPIPAZ XCH OLDPIPAZ
XCH RUPTREG3 XCH RUPTREG3
EXTEND # SHAPSHOT TIME OF PIPA READING. EXTEND # SNAPSHOT TIME OF PIPA READING.
DCA TIME2 DCA TIME2
# Page 817 # Page 817
DXCH THISTPIP DXCH THISTPIP
@@ -1093,7 +1093,7 @@ AFCSPOT DLOAD # (2), (4), OR (6)
2D 2D
STODL /AFC/ # (0) STODL /AFC/ # (0)
ITRPNT2 EXIT ITRPNT2 EXIT
DXCH MPAC # MPAC = MEASURED ACCELARATION. DXCH MPAC # MPAC = MEASURED ACCELERATION.
TC BANKCALL TC BANKCALL
CADR THROTTLE +3 CADR THROTTLE +3
TC INTPRET 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 # 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 # 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 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 COREECT # 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: # 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. # 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 # POWER SERIES. THIS OVERFLOW WOULD BE PRODUCED BY SUBROUTINE POWRSERS, CALLED BY ROOTPSRS, AND MIGHT NOT
# PRECLUDE EVENTUAL CONVERGENCE. # 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. # 3. AT PRESENT, ERASABLE LOCATIONS ARE RESERVED ONLY FOR N UP TO 5. AN N IN EXCESS OF 5 WILL PRODUCE CHAOS.

2
Luminary099/P-AXIS_RCS_AUTOPILOT.s
View File

@@ -964,7 +964,7 @@ HEADTJET CA ZERO
-FOURDEG DEC -.08888 -FOURDEG DEC -.08888
# Page 1440 # Page 1440
# JET POLICY CONTSTRUCTION SUBROUTINE # JET POLICY CONSTRUCTION SUBROUTINE
# #
# INPUT: ROTINDEX, NUMBERT # INPUT: ROTINDEX, NUMBERT
# #

4
Luminary099/P12.s
View File

@@ -47,9 +47,9 @@ P12LM TC PHASCHNG
TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER
ADRES R10FLAG # OUTPUTS. 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 ADRES RNDVZFLG
CAF THRESH2 # INITIALIZE DVMON CAF THRESH2 # INITIALIZE DVMON

2
Luminary099/P30_P37.s
View File

@@ -90,7 +90,7 @@ V06N33 VN 0633
V06N42 VN 0642 V06N42 VN 0642
# Page 616 # Page 616
# PROGRAM DESCRPTION S30.1 DATE 9NOV66 # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
# MOD NO 1 LOG SECTION P30,P37 # MOD NO 1 LOG SECTION P30,P37
# MOD BY RAMA AIYAWAR ** # MOD BY RAMA AIYAWAR **
# #

12
Luminary099/P32-P35_P72-P75.s
View File

@@ -30,11 +30,11 @@
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72) # COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
# #
# MOD NO -1 LOG SECTION -- P32-P35, P72-P75 # MOD NO -1 LOG SECTION -- P32-P35, P72-P75
# MOD BY WHITE, P. DATE 1 JUNE 67 # MOD BY WHITE.P DATE 1JUNE67
# #
# PURPOSE # 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 # CONCENTRIC FLIGHT PLAN MANEUVERS -- THE CO-ELLIPTIC SEQUENCE
# INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE # INITIATION (CSI) MANEUVER AND THE CONSTANT DELTA ALTITUDE
# (CDH) MANEUVER. # (CDH) MANEUVER.
@@ -44,14 +44,14 @@
# (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES # (3) TO DISPLAY TO THE ASTRONAUT AND THE GROUND DEPENDENT VARIABLES
# ASSOCIATED WITH THE CONCENTRIC FLIGHT PLAN MANEUVERS FOR # 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 # (4) TO STORE THE CSI TARGET PARAMETERS FOR USE BY THE DESIRED
# THRUSTING PROGRAM. # THRUSTING PROGRAM.
# #
# ASSUMPTIONS # 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) # AND PASSIVE VEHICLES IS SELECTED TO BE A PRESCRIBED ANGLE (E)
# FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE # FROM THE HORIZONTAL PLANE DEFINED BY THE ACTIVE VEHICLE
# POSITION. # POSITION.
@@ -72,7 +72,7 @@
# IGNITION. # IGNITION.
# (6) THE PERICENTER ALTITUDE OF THE ORBIT FOLLOWING CSI AND CDH # (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. # ORBIT) FOR SUCCESSFUL COMPLETION OF THIS PROGRAM.
# (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE # (7) THE CSI AND CDH MANEUVERS ARE ORIGINALLY ASSUMED TO BE
@@ -107,7 +107,7 @@
# CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF # CALCULATES THE MANEUVER PARAMETERS. SET AT THE START OF
# EACH RENDEZVOUS PRE-THRUSTING PROGRAM. # 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 # COMPLETED THE FINAL MANEUVER COMPUTATION AND DISPLAY
# CYCLE. # CYCLE.
# #

2
Luminary099/P70-P71.s
View File

@@ -236,7 +236,7 @@ GOABORT TC INTPRET
TC DOWNFLAG TC DOWNFLAG
ADRES IDLEFLAG ADRES IDLEFLAG
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILIITY. TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
ADRES ACC4-2FL ADRES ACC4-2FL
TC CHECKMM TC CHECKMM

4
Luminary099/Q_R-AXIS_RCS_AUTOPILOT.s
View File

@@ -45,7 +45,7 @@ CALLQERR CA BIT13 # CALCULATE Q,R ERRORS UNLESS THESE AXES
CS DAPBOOLS # IN MANUAL RATE COMMAND? CS DAPBOOLS # IN MANUAL RATE COMMAND?
MASK OURRCBIT MASK OURRCBIT
EXTEND EXTEND
BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERROS. BZF Q,RORGTS # IF SO BYPASS CALCULATION OF ERRORS.
TC QERRCALC TC QERRCALC
Q,RORGTS CCS COTROLER # CHOOSE CONTROL SYSTEM FOR THIS DAP PASS: Q,RORGTS CCS COTROLER # CHOOSE CONTROL SYSTEM FOR THIS DAP PASS:
@@ -538,7 +538,7 @@ TJLAW CA TJLAWADR
CADR SPSRCS # DETERMINE RCS CONTROL CADR SPSRCS # DETERMINE RCS CONTROL
RELINT RELINT
CAF FOUR # ALWAYS CALL FOR 2-JET CONTROL ABOUT U,V. 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 # Q,R-JET-SELECTION-LOGIC
# #

2
Luminary099/RADAR_LEADIN_ROUTINES.s
View File

@@ -36,7 +36,7 @@
# RADAR SAMPLING LOOP. # RADAR SAMPLING LOOP.
COUNT* $$/RLEAD COUNT* $$/RLEAD
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE PER SECOND SAMLING RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING
TCF +2 TCF +2
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST. TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.

4
Luminary099/RCS_FAILURE_MONITOR.s
View File

@@ -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 # 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 # 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 # 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' & # 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 # `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 # 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- # 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. # 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- # 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). # THE MISINTERPRETED SWITCH IS REVERSED AND THEN RESTORED TO ITS CORRECT POSITION (SLOWLY).
# #
# CALLING SEQUENCE: # CALLING SEQUENCE:

2
Luminary099/RTB_OP_CODES.s
View File

@@ -119,7 +119,7 @@ TPMODE CAF ONE # MODE IS TP.
TC Q TC Q
# THE FOLLOWING ROUTINE INCREMENTS IN 2S COMPLEMENT THE REGISTER WHOSE ADDRESS IS IN BUF BY THE 1S COMPL. # 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. # (+0 UNEQUAL TO -0) QUANTITY. MAY BE CALLED BY BANKCALL/SWCALL.
CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT CDUINC TS TEM2 # 1S COMPL.QUANT. ARRIVES IN ACC. STORE IT

4
Luminary099/SERVICER.s
View File

@@ -19,7 +19,7 @@
# 2021112-061. July 14, 1969. # 2021112-061. July 14, 1969.
# #
# Prepared by # Prepared by
# Massachussets Institute of Technology # Massachusetts Institute of Technology
# 75 Cambridge Parkway # 75 Cambridge Parkway
# Cambridge, Massachusetts # Cambridge, Massachusetts
# #
@@ -1067,7 +1067,7 @@ MUNRVG VLOAD VXSC
R1S R1S
VXV VSL2 VXV VSL2
WM WM
STODL DELVS # LUNAR ROTATION CORRECTON TERM*2(5) M/CS. STODL DELVS # LUNAR ROTATION CORRECTION TERM*2(5) M/CS.
36D 36D
DSU DSU
/LAND/ /LAND/

2
Luminary099/SPS_BACK-UP_RCS_CONTROL.s
View File

@@ -114,7 +114,7 @@ NEGCHECK INDEX AXISCTR # JETS FIRING NEGATIVELY
TCF +2 TCF +2
TCF +1 # JETS COMMANDED OFF. SET CTR AND RETURN TCF +1 # JETS COMMANDED OFF. SET CTR AND RETURN
SETCTR INDEX AXISCTR # JET FIRING REVERSAL COMMANDED. SET CTR, 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 # Page 1509
INDEX AXISCTR INDEX AXISCTR
TS UJETCTR TS UJETCTR

2
Luminary099/THE_LUNAR_LANDING.s
View File

@@ -126,7 +126,7 @@ IGNALOOP DLOAD
# 10 # 10
# 2 (VGU - 16 VGU KIGNX/B4) # 2 (VGU - 16 VGU KIGNX/B4)
# 2 0 # 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 # 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 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. # THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.

2
Luminary099/THROTTLE_CONTROL_ROUTINES.s
View File

@@ -131,7 +131,7 @@ DOIT CA PIF
CA TIME1 CA TIME1
TS TTHROT 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 # 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 # ACTUAL THRUST LEVEL AT THE END OF THE INTERVAL MUST BE WEIGHTED BY
# #

4
Luminary099/TJET_LAW.s
View File

@@ -31,7 +31,7 @@
# Page 1460 # Page 1460
# PROGRAM DESCRIPTION # PROGRAM DESCRIPTION
# DESIGNED BY: R. D. GOSS AND P. S. WEISSMAN # 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 # 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: # 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 SU FIREDB
EXTEND EXTEND
BZMF SENSTEST # IF NOT: ARE UNBALANCED JETS PREFERRED? 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. ADS ADRSDIF2 # SET SWITCH FOR JET SELECT LOGIC TO 4.
CAF FOUR # (ALWAYS DO THIS FOR P-AXIS) CAF FOUR # (ALWAYS DO THIS FOR P-AXIS)
TCF TJCALC TCF TJCALC

2
Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.s
View File

@@ -603,7 +603,7 @@ GMBLBITB OCTAL 06000 # INDEXED WRT GMBLBITA DO NOT MOVE *******
# SUBROUTINE ROOTCYCL: BY CRAIG WORK, 3 APRIL 68 # 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 # 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 # 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. # LOCATION (LOC) BY A TC ROOTCYCL, AND RETURNS (TC Q) TO LOC +1.

10
README.md
View File

@@ -14,21 +14,21 @@ Original Apollo 11 guidance computer (AGC) source code, converted from their cus
Contact: Ron Burkey <info@sandroid.org>. Contact: Ron Burkey <info@sandroid.org>.
Website: www.ibiblio.org/apollo. Website: www.ibiblio.org/apollo.
Mod history: 2009-05-06 RSB Transcribed from page images. Mod history: 2009-05-06 RSB Transcribed from page images.
This source code has been transcribed or otherwise adapted from digitized This source code has been transcribed or otherwise adapted from digitized
images of a hardcopy from the MIT Museum. The digitization was performed 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 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 thanks to both. The images (with suitable reduction in storage size and
consequent reduction in image quality as well) are available online at 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 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. (much) higher-quality images which Paul actually created.
Notations on the hardcopy document read, in part: Notations on the hardcopy document read, in part:
Assemble revision 055 of AGC program Comanche by NASA Assemble revision 055 of AGC program Comanche by NASA
2021113-051. 10:28 APR. 1, 1969 2021113-051. 10:28 APR. 1, 1969
Page 1 Page 1
#************************************************************************ #************************************************************************