Merge upstream
This commit is contained in:
commit
95fff7a576
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
|
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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).
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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.
|
||||||
#
|
#
|
||||||
|
@ -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).
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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,
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
#
|
#
|
||||||
|
@ -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)
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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.
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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 )
|
||||||
|
@ -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.
|
||||||
|
|
||||||
# ********************************
|
# ********************************
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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 **
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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.
|
||||||
|
|
||||||
|
@ -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:
|
||||||
|
@ -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
|
||||||
|
@ -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/
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
@ -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
|
||||||
#
|
#
|
||||||
|
@ -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
|
||||||
|
@ -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.
|
||||||
|
Loading…
Reference in New Issue
Block a user