Trim whitespace
This commit is contained in:
James Harris
parent
7c33b5996c
commit
4f3a1d4374
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -31,9 +31,9 @@
|
|||||||
BANK 21
|
BANK 21
|
||||||
SETLOC DAPS3
|
SETLOC DAPS3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 21/DAPAM
|
COUNT 21/DAPAM
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
AHFNOROT EXTEND
|
AHFNOROT EXTEND
|
||||||
READ CHAN31
|
READ CHAN31
|
||||||
@ -50,12 +50,12 @@ AHFNOROT EXTEND
|
|||||||
MASK BIT13
|
MASK BIT13
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF HOLDFUNC
|
BZMF HOLDFUNC
|
||||||
|
|
||||||
AUTOCONT CA HOLDFLAG # IF HOLDFLAG IS +, GO TO GRABANG.
|
AUTOCONT CA HOLDFLAG # IF HOLDFLAG IS +, GO TO GRABANG.
|
||||||
EXTEND # OTHERWISE, GO TO ATTHOLD.
|
EXTEND # OTHERWISE, GO TO ATTHOLD.
|
||||||
BZMF ATTHOLD
|
BZMF ATTHOLD
|
||||||
TCF GRABANG
|
TCF GRABANG
|
||||||
|
|
||||||
# MINIMUM IMPULSE CONTROL
|
# MINIMUM IMPULSE CONTROL
|
||||||
|
|
||||||
FREECONT CAF ONE
|
FREECONT CAF ONE
|
||||||
@ -80,12 +80,12 @@ FREECONT CAF ONE
|
|||||||
# Page 1026
|
# Page 1026
|
||||||
TS TAU2
|
TS TAU2
|
||||||
TCF T6PROGM
|
TCF T6PROGM
|
||||||
|
|
||||||
MINTAU DEC 0
|
MINTAU DEC 0
|
||||||
DEC 23 # = 14MS
|
DEC 23 # = 14MS
|
||||||
DEC -23 # = -14MS
|
DEC -23 # = -14MS
|
||||||
DEC 0
|
DEC 0
|
||||||
|
|
||||||
# Page 1027
|
# Page 1027
|
||||||
# CALCULATION OF ATTITUDE ERRORS:
|
# CALCULATION OF ATTITUDE ERRORS:
|
||||||
# _ * _ _ _
|
# _ * _ _ _
|
||||||
@ -143,7 +143,7 @@ ATTHOLD CA CDUX
|
|||||||
CA BIAS2
|
CA BIAS2
|
||||||
ADS ERRORZ
|
ADS ERRORZ
|
||||||
TCF JETS
|
TCF JETS
|
||||||
|
|
||||||
HOLDFUNC CCS HOLDFLAG
|
HOLDFUNC CCS HOLDFLAG
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF ATTHOLD
|
TCF ATTHOLD
|
||||||
@ -158,7 +158,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES
|
|||||||
TS BIAS
|
TS BIAS
|
||||||
TS BIAS1
|
TS BIAS1
|
||||||
TS BIAS2
|
TS BIAS2
|
||||||
|
|
||||||
CA RCSFLAGS
|
CA RCSFLAGS
|
||||||
MASK OCT16000
|
MASK OCT16000
|
||||||
EXTEND # IS RATE DAMPING COMPLETED
|
EXTEND # IS RATE DAMPING COMPLETED
|
||||||
@ -168,7 +168,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES
|
|||||||
TS ERRORY
|
TS ERRORY
|
||||||
TS ERRORZ
|
TS ERRORZ
|
||||||
TCF JETS
|
TCF JETS
|
||||||
|
|
||||||
ENDDAMP TS HOLDFLAG # SET HOLDFLAG +0
|
ENDDAMP TS HOLDFLAG # SET HOLDFLAG +0
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA CDUX # PICK UP CDU ANGLES FOR ATTITUDE HOLD
|
DCA CDUX # PICK UP CDU ANGLES FOR ATTITUDE HOLD
|
||||||
@ -250,7 +250,7 @@ JLOOP TS SPNDX
|
|||||||
INHOLD INDEX SPNDX
|
INHOLD INDEX SPNDX
|
||||||
CA ERRORX
|
CA ERRORX
|
||||||
TS AERR # AERR = BIAS + AK
|
TS AERR # AERR = BIAS + AK
|
||||||
|
|
||||||
CCS EDOT
|
CCS EDOT
|
||||||
TCF POSVEL
|
TCF POSVEL
|
||||||
TCF SIGNCK1
|
TCF SIGNCK1
|
||||||
@ -275,14 +275,14 @@ NEGVEL EXTEND
|
|||||||
TS ADBVEL # -(ADB+AF)
|
TS ADBVEL # -(ADB+AF)
|
||||||
CS AERR
|
CS AERR
|
||||||
TS AERRVEL
|
TS AERRVEL
|
||||||
|
|
||||||
J6. EXTEND
|
J6. EXTEND
|
||||||
# Page 1031
|
# Page 1031
|
||||||
SU ADB
|
SU ADB
|
||||||
AD WLH/SLOP
|
AD WLH/SLOP
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF J8
|
BZMF J8
|
||||||
|
|
||||||
CS T5TEMP # (ADB+AF)
|
CS T5TEMP # (ADB+AF)
|
||||||
AD AERRVEL
|
AD AERRVEL
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -298,7 +298,7 @@ J6. EXTEND
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF J18
|
BZMF J18
|
||||||
TCF J23
|
TCF J23
|
||||||
|
|
||||||
J7 CS WL-H/SLP
|
J7 CS WL-H/SLP
|
||||||
EXTEND
|
EXTEND
|
||||||
SU T5TEMP # (ADB+AF)
|
SU T5TEMP # (ADB+AF)
|
||||||
@ -306,7 +306,7 @@ J7 CS WL-H/SLP
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF J20
|
BZMF J20
|
||||||
TCF J21
|
TCF J21
|
||||||
|
|
||||||
J8 EXTEND
|
J8 EXTEND
|
||||||
DCS WLH
|
DCS WLH
|
||||||
DXCH WTEMP
|
DXCH WTEMP
|
||||||
@ -321,7 +321,7 @@ SIGNCK2 CCS WTEMP +1
|
|||||||
TCF J22
|
TCF J22
|
||||||
TCF J22
|
TCF J22
|
||||||
TCF NJ22
|
TCF NJ22
|
||||||
|
|
||||||
NJ22 EXTEND
|
NJ22 EXTEND
|
||||||
DCA EDOTVEL
|
DCA EDOTVEL
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -334,7 +334,7 @@ NJ22 EXTEND
|
|||||||
TCF J23
|
TCF J23
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF J23
|
TCF J23
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS WLMH # WL - H
|
DCS WLMH # WL - H
|
||||||
DXCH WTEMP
|
DXCH WTEMP
|
||||||
@ -349,7 +349,7 @@ SIGNCK3 CCS WTEMP +1
|
|||||||
TCF J23
|
TCF J23
|
||||||
TCF J23
|
TCF J23
|
||||||
TCF NJ23
|
TCF NJ23
|
||||||
|
|
||||||
NJ23 CA AERRVEL
|
NJ23 CA AERRVEL
|
||||||
AD T5TEMP # (ADB+AF)
|
AD T5TEMP # (ADB+AF)
|
||||||
AD WL-H/SLP
|
AD WL-H/SLP
|
||||||
@ -358,12 +358,12 @@ NJ23 CA AERRVEL
|
|||||||
TCF J24
|
TCF J24
|
||||||
TCF J22
|
TCF J22
|
||||||
TCF J22
|
TCF J22
|
||||||
|
|
||||||
J18 EXTEND
|
J18 EXTEND
|
||||||
DCS EDOT
|
DCS EDOT
|
||||||
DXCH KMPAC
|
DXCH KMPAC
|
||||||
TCF JTIME
|
TCF JTIME
|
||||||
|
|
||||||
J20 CS AERR
|
J20 CS AERR
|
||||||
AD ADBVEL
|
AD ADBVEL
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -373,7 +373,7 @@ J20 CS AERR
|
|||||||
DCS EDOT
|
DCS EDOT
|
||||||
DAS KMPAC
|
DAS KMPAC
|
||||||
TCF JTIME
|
TCF JTIME
|
||||||
|
|
||||||
J21 CCS EDOT
|
J21 CCS EDOT
|
||||||
TCF JP
|
TCF JP
|
||||||
TCF SIGNCK4
|
TCF SIGNCK4
|
||||||
@ -390,7 +390,7 @@ JN EXTEND
|
|||||||
DCA WL
|
DCA WL
|
||||||
DAS KMPAC
|
DAS KMPAC
|
||||||
TCF JTIME
|
TCF JTIME
|
||||||
|
|
||||||
JP EXTEND
|
JP EXTEND
|
||||||
DCS EDOT
|
DCS EDOT
|
||||||
DXCH KMPAC
|
DXCH KMPAC
|
||||||
@ -398,7 +398,7 @@ JP EXTEND
|
|||||||
DCS WL
|
DCS WL
|
||||||
DAS KMPAC
|
DAS KMPAC
|
||||||
TCF JTIME
|
TCF JTIME
|
||||||
|
|
||||||
J22 CCS EDOT
|
J22 CCS EDOT
|
||||||
TCF JN
|
TCF JN
|
||||||
TCF SIGNCK5
|
TCF SIGNCK5
|
||||||
@ -408,21 +408,21 @@ SIGNCK5 CCS EDOT +1
|
|||||||
TCF JN
|
TCF JN
|
||||||
TCF JP
|
TCF JP
|
||||||
TCF JP
|
TCF JP
|
||||||
|
|
||||||
J23 INDEX SPNDX
|
J23 INDEX SPNDX
|
||||||
CS BIT13 # RESET RATE DAMPING FLAG
|
CS BIT13 # RESET RATE DAMPING FLAG
|
||||||
MASK RCSFLAGS # BIT13 FOR ROLL (SPNDX = 0)
|
MASK RCSFLAGS # BIT13 FOR ROLL (SPNDX = 0)
|
||||||
TS RCSFLAGS # BIT12 FOR PITCH (SPNDX = 1)
|
TS RCSFLAGS # BIT12 FOR PITCH (SPNDX = 1)
|
||||||
# BIT11 FOR YAW (SPNDX = 2)
|
# BIT11 FOR YAW (SPNDX = 2)
|
||||||
|
|
||||||
INDEX SPNDX
|
INDEX SPNDX
|
||||||
CAF OCT01400 # IS THERE TO BE A FORCED FIRING ON THIS
|
CAF OCT01400 # IS THERE TO BE A FORCED FIRING ON THIS
|
||||||
MASK RCSFLAGS # AXIS
|
MASK RCSFLAGS # AXIS
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF DOJET +2 # NO, GO TO DOJET +2 AND DO NOTHING
|
BZF DOJET +2 # NO, GO TO DOJET +2 AND DO NOTHING
|
||||||
|
|
||||||
TCF J18 # YES, GO TO J18 AND FORCE A FIRING
|
TCF J18 # YES, GO TO J18 AND FORCE A FIRING
|
||||||
|
|
||||||
J24 CS AERR
|
J24 CS AERR
|
||||||
EXTEND
|
EXTEND
|
||||||
SU ADBVEL
|
SU ADBVEL
|
||||||
@ -433,7 +433,7 @@ J24 CS AERR
|
|||||||
# Page 1034
|
# Page 1034
|
||||||
DCS EDOT
|
DCS EDOT
|
||||||
DAS KMPAC
|
DAS KMPAC
|
||||||
|
|
||||||
# Page 1035
|
# Page 1035
|
||||||
# COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, I.E.,
|
# COMPUTE THE JET ON TIME NECESSARY TO ACCOMPLISH THE DESIRED CHANGE IN RATE, I.E.,
|
||||||
#
|
#
|
||||||
@ -476,14 +476,14 @@ JTIME INDEX SPNDX # PICK UP S/C INERTIA/TORQUE RATIO
|
|||||||
TCF DOJET
|
TCF DOJET
|
||||||
CA NEGMAX
|
CA NEGMAX
|
||||||
TCF DOJET
|
TCF DOJET
|
||||||
|
|
||||||
TAUNORM CA KMPAC +1
|
TAUNORM CA KMPAC +1
|
||||||
DOJET INDEX SPNDX
|
DOJET INDEX SPNDX
|
||||||
TS TAU
|
TS TAU
|
||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF JLOOP
|
TCF JLOOP
|
||||||
TCF T6PROG
|
TCF T6PROG
|
||||||
|
|
||||||
# Page 1036
|
# Page 1036
|
||||||
ZEROCMDS CAF ZERO
|
ZEROCMDS CAF ZERO
|
||||||
TS TAU
|
TS TAU
|
||||||
@ -493,7 +493,7 @@ T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS)
|
|||||||
DCA JETADDR # HAVE BEEN DETERMINED
|
DCA JETADDR # HAVE BEEN DETERMINED
|
||||||
DXCH T5LOC # RESET T5LOC FOR PHASE3
|
DXCH T5LOC # RESET T5LOC FOR PHASE3
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
JETADDR 2CADR JETSLECT
|
JETADDR 2CADR JETSLECT
|
||||||
|
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
||||||
# name and Comanche 055 page images.
|
# name and Comanche 055 page images.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -30,18 +30,18 @@
|
|||||||
|
|
||||||
# Page 883
|
# Page 883
|
||||||
BANK 35
|
BANK 35
|
||||||
|
|
||||||
SETLOC BODYATT
|
SETLOC BODYATT
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 37/CMBAT
|
COUNT 37/CMBAT
|
||||||
|
|
||||||
# PDL 12D - 15D SAFE.
|
# PDL 12D - 15D SAFE.
|
||||||
|
|
||||||
# VALUE OF GIMBAL AND BODY ANGLES VALID AT PIP TIME ARE SAVED DURING READACCS.
|
# VALUE OF GIMBAL AND BODY ANGLES VALID AT PIP TIME ARE SAVED DURING READACCS.
|
||||||
|
|
||||||
EBANK= RTINIT # LET INTERPRETER SET EB
|
EBANK= RTINIT # LET INTERPRETER SET EB
|
||||||
|
|
||||||
CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT.
|
CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT.
|
||||||
|
|
||||||
SETPD VLOAD
|
SETPD VLOAD
|
||||||
@ -55,11 +55,11 @@ CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT.
|
|||||||
KWE
|
KWE
|
||||||
VAD STADR
|
VAD STADR
|
||||||
STORE -VREL # SAVE FOR ENTRY GUIDANCE. REF COORDS
|
STORE -VREL # SAVE FOR ENTRY GUIDANCE. REF COORDS
|
||||||
|
|
||||||
UNIT LXA,1
|
UNIT LXA,1
|
||||||
36D # ABVAL( -VREL) TO X1
|
36D # ABVAL( -VREL) TO X1
|
||||||
STORE UXA/2 # -UVREL REF COORDS
|
STORE UXA/2 # -UVREL REF COORDS
|
||||||
|
|
||||||
VXV VCOMP
|
VXV VCOMP
|
||||||
UNITR # .5 UNIT REF COORDS
|
UNITR # .5 UNIT REF COORDS
|
||||||
UNIT SSP # THE FOLLOWING IS TO PROVIDE A STABLE
|
UNIT SSP # THE FOLLOWING IS TO PROVIDE A STABLE
|
||||||
@ -71,7 +71,7 @@ SPVQUIT DEC .019405 # 1000/ 2 VS
|
|||||||
CM/POSE2 STORE UYA/2 # REF COORDS
|
CM/POSE2 STORE UYA/2 # REF COORDS
|
||||||
|
|
||||||
STORE OLDUYA # RESTORE, OR SAVE AS CASE MAY BE.
|
STORE OLDUYA # RESTORE, OR SAVE AS CASE MAY BE.
|
||||||
|
|
||||||
VXV VCOMP
|
VXV VCOMP
|
||||||
UXA/2 # FINISH OBTAINING TRAJECTORY TRIAD.
|
UXA/2 # FINISH OBTAINING TRAJECTORY TRIAD.
|
||||||
VSL1
|
VSL1
|
||||||
@ -81,7 +81,7 @@ CM/POSE2 STORE UYA/2 # REF COORDS
|
|||||||
AOG/PIP # TO PIPUP TIME IN 2'S C AND SAVE.
|
AOG/PIP # TO PIPUP TIME IN 2'S C AND SAVE.
|
||||||
CM/TRIO STODL 24D
|
CM/TRIO STODL 24D
|
||||||
25D # AIG/PIP
|
25D # AIG/PIP
|
||||||
|
|
||||||
RTB PUSH # TO PDL0
|
RTB PUSH # TO PDL0
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
COS
|
COS
|
||||||
@ -91,7 +91,7 @@ CM/TRIO STODL 24D
|
|||||||
STODL UBX/2 +4 # -SI /2
|
STODL UBX/2 +4 # -SI /2
|
||||||
26D # AMG/PIP
|
26D # AMG/PIP
|
||||||
RTB PUSH # TO PDL 0
|
RTB PUSH # TO PDL 0
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
SIN PDDL # XCH PDL 0. SAVE SM /2
|
SIN PDDL # XCH PDL 0. SAVE SM /2
|
||||||
COS PDDL # CM /2 TO PDL 2
|
COS PDDL # CM /2 TO PDL 2
|
||||||
0 # SM /2
|
0 # SM /2
|
||||||
@ -119,9 +119,9 @@ CM/TRIO STODL 24D
|
|||||||
UBX/2 # CI /2
|
UBX/2 # CI /2
|
||||||
UBY/2 +4
|
UBY/2 +4
|
||||||
STOVL UBY/2 +4 # YB/4 PLATFORM COORDS
|
STOVL UBY/2 +4 # YB/4 PLATFORM COORDS
|
||||||
|
|
||||||
# YB = (-COSMCI + SOSI , COCM , COSMSI + SOCI )
|
# YB = (-COSMCI + SOSI , COCM , COSMSI + SOCI )
|
||||||
|
|
||||||
UBY/2
|
UBY/2
|
||||||
VXM VSL2
|
VXM VSL2
|
||||||
REFSMMAT # .5 UNIT
|
REFSMMAT # .5 UNIT
|
||||||
@ -134,20 +134,20 @@ CM/TRIO STODL 24D
|
|||||||
STADR # SM /2 FROM PDL 0
|
STADR # SM /2 FROM PDL 0
|
||||||
STOVL UBX/2 +2 # SM /2 REPLACES NOISE
|
STOVL UBX/2 +2 # SM /2 REPLACES NOISE
|
||||||
UBX/2 # XB/2 PLATFORM COORDS
|
UBX/2 # XB/2 PLATFORM COORDS
|
||||||
|
|
||||||
# XB = ( CMCI , SM , -CMSI )
|
# XB = ( CMCI , SM , -CMSI )
|
||||||
|
|
||||||
VXM VSL1
|
VXM VSL1
|
||||||
REFSMMAT # .5 UNIT
|
REFSMMAT # .5 UNIT
|
||||||
STORE UBX/2 # XB/2 DONE REF COORDS
|
STORE UBX/2 # XB/2 DONE REF COORDS
|
||||||
|
|
||||||
VXV VSL1
|
VXV VSL1
|
||||||
UBY/2
|
UBY/2
|
||||||
STOVL UBZ/2 # ZB/2 DONE REF COORDS
|
STOVL UBZ/2 # ZB/2 DONE REF COORDS
|
||||||
|
|
||||||
# EQUIVALENT TO
|
# EQUIVALENT TO
|
||||||
# ZB = ( SOSMCI + COSI , -SOCM , -SOSMSI + COCI )
|
# ZB = ( SOSMCI + COSI , -SOCM , -SOSMSI + COCI )
|
||||||
|
|
||||||
UXA/2 # -UVREL/2 = -UVA/2
|
UXA/2 # -UVREL/2 = -UVA/2
|
||||||
VXV UNIT # GET UNIT(-UVREL*UBY)/2 = UL/2
|
VXV UNIT # GET UNIT(-UVREL*UBY)/2 = UL/2
|
||||||
UBY/2 # YB/2
|
UBY/2 # YB/2
|
||||||
@ -155,7 +155,7 @@ CM/TRIO STODL 24D
|
|||||||
UZA/2 # UNA/2
|
UZA/2 # UNA/2
|
||||||
STOVL COSTH # COS(ROLL)/4
|
STOVL COSTH # COS(ROLL)/4
|
||||||
0 # UL/2
|
0 # UL/2
|
||||||
|
|
||||||
DOT
|
DOT
|
||||||
UYA/2
|
UYA/2
|
||||||
STCALL SINTH # -SIN(ROLL)/4
|
STCALL SINTH # -SIN(ROLL)/4
|
||||||
@ -181,7 +181,7 @@ CM/TRIO STODL 24D
|
|||||||
UZA/2 # MORE ACCURATE AT LARGE ARG.
|
UZA/2 # MORE ACCURATE AT LARGE ARG.
|
||||||
ARCCOS
|
ARCCOS
|
||||||
STORE 10D # (-GAMA/180)/2
|
STORE 10D # (-GAMA/180)/2
|
||||||
|
|
||||||
TLOAD EXIT # ANGLES IN MPAC IN THE ORDER
|
TLOAD EXIT # ANGLES IN MPAC IN THE ORDER
|
||||||
# -( (ROLL, BETA, ALFA) /180)/2
|
# -( (ROLL, BETA, ALFA) /180)/2
|
||||||
6D # THESE VALUES CORRECT AT PIPUP TIME.
|
6D # THESE VALUES CORRECT AT PIPUP TIME.
|
||||||
@ -190,19 +190,19 @@ CM/TRIO STODL 24D
|
|||||||
# BASIC SUBROUTINE TO UPDATE ATTITUDE ANGLES
|
# BASIC SUBROUTINE TO UPDATE ATTITUDE ANGLES
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
|
|
||||||
CM/ATUP CA EBAOG
|
CM/ATUP CA EBAOG
|
||||||
TS EBANK
|
TS EBANK
|
||||||
CMTR1 INDEX FIXLOC
|
CMTR1 INDEX FIXLOC
|
||||||
CS 10D # (GAMA/180)/2
|
CS 10D # (GAMA/180)/2
|
||||||
XCH GAMA
|
XCH GAMA
|
||||||
TS L
|
TS L
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
# MUST REMAIN INHINTED UNTIL UPDATE OF BODY
|
# MUST REMAIN INHINTED UNTIL UPDATE OF BODY
|
||||||
# ANGLES, SO THAT GAMDIFSW IS VALID FIRST PASS
|
# ANGLES, SO THAT GAMDIFSW IS VALID FIRST PASS
|
||||||
# INDICATOR.
|
# INDICATOR.
|
||||||
|
|
||||||
CS CM/FLAGS
|
CS CM/FLAGS
|
||||||
MASK BIT11 # GAMDIFSW=94D BIT11 INITLY=0
|
MASK BIT11 # GAMDIFSW=94D BIT11 INITLY=0
|
||||||
EXTEND # DON'T CALC GAMA DOT UNTIL HAVE FORMD
|
EXTEND # DON'T CALC GAMA DOT UNTIL HAVE FORMD
|
||||||
@ -210,20 +210,20 @@ CMTR1 INDEX FIXLOC
|
|||||||
BZF DOGAMDOT # IS OK, GO ON.
|
BZF DOGAMDOT # IS OK, GO ON.
|
||||||
ADS CM/FLAGS # KNOW BIT IS 0
|
ADS CM/FLAGS # KNOW BIT IS 0
|
||||||
TC NOGAMDOT # SET GAMDOT = 0
|
TC NOGAMDOT # SET GAMDOT = 0
|
||||||
|
|
||||||
DOGAMDOT CS L
|
DOGAMDOT CS L
|
||||||
AD GAMA # DEL GAMA/360= T GAMDOT/360
|
AD GAMA # DEL GAMA/360= T GAMDOT/360
|
||||||
EXTEND
|
EXTEND
|
||||||
MP TCDU # TCDU = .1 SEC, T = 2 SEC.
|
MP TCDU # TCDU = .1 SEC, T = 2 SEC.
|
||||||
TS GAMDOT # GAMA DOT TCDU / 180
|
TS GAMDOT # GAMA DOT TCDU / 180
|
||||||
|
|
||||||
EXTEND # IGNORE GAMDOT IF LEQ .5 DEG/SEC
|
EXTEND # IGNORE GAMDOT IF LEQ .5 DEG/SEC
|
||||||
BZMF +2
|
BZMF +2
|
||||||
COM
|
COM
|
||||||
AD FIVE
|
AD FIVE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF +3 # SET GAMDOT=+0 AS TAG IF TOO SMALL.
|
BZMF +3 # SET GAMDOT=+0 AS TAG IF TOO SMALL.
|
||||||
|
|
||||||
NOGAMDOT CA ZERO # COME HERE INHINTED
|
NOGAMDOT CA ZERO # COME HERE INHINTED
|
||||||
TS GAMDOT
|
TS GAMDOT
|
||||||
# FOR NOW LEAVE IN 2'S C
|
# FOR NOW LEAVE IN 2'S C
|
||||||
@ -239,7 +239,7 @@ NOGAMDOT CA ZERO # COME HERE INHINTED
|
|||||||
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
||||||
# Page 888
|
# Page 888
|
||||||
TS TEMPROLL
|
TS TEMPROLL
|
||||||
|
|
||||||
CS MPAC +2 # GET (ALFA EUL/180) /2
|
CS MPAC +2 # GET (ALFA EUL/180) /2
|
||||||
DOUBLE # SAME AS FOR ROLL. NEEDED FOR EXT ATM DAP
|
DOUBLE # SAME AS FOR ROLL. NEEDED FOR EXT ATM DAP
|
||||||
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
||||||
@ -248,43 +248,43 @@ NOGAMDOT CA ZERO # COME HERE INHINTED
|
|||||||
AD ALFA/180
|
AD ALFA/180
|
||||||
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
TC CORANGOV # CORRECT FOR OVFL IF ANY
|
||||||
TS TEMPALFA
|
TS TEMPALFA
|
||||||
|
|
||||||
CS MPAC +1 # GET (BETA EUL/180) /2
|
CS MPAC +1 # GET (BETA EUL/180) /2
|
||||||
CMTR2 DOUBLE
|
CMTR2 DOUBLE
|
||||||
EXTEND
|
EXTEND
|
||||||
SU BETA/PIP
|
SU BETA/PIP
|
||||||
AD BETA/180
|
AD BETA/180
|
||||||
XCH TEMPBETA # OVFL NOT EXPECTED.
|
XCH TEMPBETA # OVFL NOT EXPECTED.
|
||||||
|
|
||||||
CA EBANK3
|
CA EBANK3
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
EBANK= PHSNAME5
|
EBANK= PHSNAME5
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA REPOSADR # THIS ASSUMES THAT THE TC PHASCHNG
|
DCA REPOSADR # THIS ASSUMES THAT THE TC PHASCHNG
|
||||||
DXCH PHSNAME5 # IS NOT CHANGED IN OCT 10035
|
DXCH PHSNAME5 # IS NOT CHANGED IN OCT 10035
|
||||||
# SERVICER.
|
# SERVICER.
|
||||||
|
|
||||||
CA EBAOG
|
CA EBAOG
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
REDOPOSE EXTEND # RE-STARTS COME HERE
|
REDOPOSE EXTEND # RE-STARTS COME HERE
|
||||||
DCA TEMPROLL
|
DCA TEMPROLL
|
||||||
DXCH ROLL/180
|
DXCH ROLL/180
|
||||||
CA TEMPBETA
|
CA TEMPBETA
|
||||||
TS BETA/180
|
TS BETA/180
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
|
|
||||||
TC INTPRET # CAN'T TC DANZIG AFTER PHASCHNG.
|
TC INTPRET # CAN'T TC DANZIG AFTER PHASCHNG.
|
||||||
CM/POSE3 VLOAD ABVAL # RETURN FROM CM/ATUP. (RESTART)
|
CM/POSE3 VLOAD ABVAL # RETURN FROM CM/ATUP. (RESTART)
|
||||||
VN # 2(-7) M/CS
|
VN # 2(-7) M/CS
|
||||||
STORE VMAGI # FOR DISPLAY ON CALL.
|
STORE VMAGI # FOR DISPLAY ON CALL.
|
||||||
|
|
||||||
GOTO
|
GOTO
|
||||||
POSEXIT # ENDEXIT, STARTENT, OR SCALEPOP.
|
POSEXIT # ENDEXIT, STARTENT, OR SCALEPOP.
|
||||||
|
|
||||||
CORANGOV TS L
|
CORANGOV TS L
|
||||||
TC Q
|
TC Q
|
||||||
INDEX A
|
INDEX A
|
||||||
@ -292,7 +292,7 @@ CORANGOV TS L
|
|||||||
CA LIMITS
|
CA LIMITS
|
||||||
ADS L
|
ADS L
|
||||||
TC Q # COSTS 2 MCT TO USE. SEE ANGOVCOR.
|
TC Q # COSTS 2 MCT TO USE. SEE ANGOVCOR.
|
||||||
|
|
||||||
-KVSCALE 2DEC -.81491944 # -12800/(2 VS .3048)
|
-KVSCALE 2DEC -.81491944 # -12800/(2 VS .3048)
|
||||||
|
|
||||||
TCDU DEC .1 # TCDU = .1 SEC.
|
TCDU DEC .1 # TCDU = .1 SEC.
|
||||||
|
|||||||
@ -9,8 +9,8 @@
|
|||||||
# Pages: 1063-1092
|
# Pages: 1063-1092
|
||||||
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: Removed an extraneous label
|
# 2009-05-20 RSB Corrections: Removed an extraneous label
|
||||||
# EXDAPIN, added a missing instruction in
|
# EXDAPIN, added a missing instruction in
|
||||||
# COMPAT.
|
# COMPAT.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -19,13 +19,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -38,43 +38,43 @@
|
|||||||
# CM/DSTBY = 0 TO TERMINATE DAP OPERATION
|
# CM/DSTBY = 0 TO TERMINATE DAP OPERATION
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
|
|
||||||
SETLOC ETRYDAP
|
SETLOC ETRYDAP
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 15/DAPEN
|
COUNT 15/DAPEN
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
|
|
||||||
READGYMB CA TEN # KEEP RESTART DT GOING RELATIVE TO
|
READGYMB CA TEN # KEEP RESTART DT GOING RELATIVE TO
|
||||||
ADS CM/GYMDT # PIPTIME. (GROUP 6)
|
ADS CM/GYMDT # PIPTIME. (GROUP 6)
|
||||||
|
|
||||||
# IF A RESTART OCCURS, SKIP PRESENT CYCLE. THE
|
# IF A RESTART OCCURS, SKIP PRESENT CYCLE. THE
|
||||||
# PHASCHNG PROTECTION IS IN CM/DAPIC.
|
# PHASCHNG PROTECTION IS IN CM/DAPIC.
|
||||||
|
|
||||||
CA BIT6 # CHECK FOR FINE ALIGN MODE OF CDU.
|
CA BIT6 # CHECK FOR FINE ALIGN MODE OF CDU.
|
||||||
MASK IMODES33 # (PROTECT AOG/PIP ETC AS WELL AS
|
MASK IMODES33 # (PROTECT AOG/PIP ETC AS WELL AS
|
||||||
EXTEND # GIMBAL DIFFERENCES)
|
EXTEND # GIMBAL DIFFERENCES)
|
||||||
BZF READGYM1 # OK
|
BZF READGYM1 # OK
|
||||||
|
|
||||||
CS BIT1 # NOT IN FINE ALIGN, SO IDLE
|
CS BIT1 # NOT IN FINE ALIGN, SO IDLE
|
||||||
MASK CM/FLAGS # SET GYMDIFSW = 0
|
MASK CM/FLAGS # SET GYMDIFSW = 0
|
||||||
TS CM/FLAGS
|
TS CM/FLAGS
|
||||||
TC FLUSHJET # QUENCH JETS, SINCE MAY BE A WHILE.
|
TC FLUSHJET # QUENCH JETS, SINCE MAY BE A WHILE.
|
||||||
TC CM/GYMIC +2
|
TC CM/GYMIC +2
|
||||||
|
|
||||||
READGYM1 CA CDUX
|
READGYM1 CA CDUX
|
||||||
XCH AOG
|
XCH AOG
|
||||||
EXTEND
|
EXTEND
|
||||||
MSU AOG # -DELAOG=AOG(N-1) - AOG(N)
|
MSU AOG # -DELAOG=AOG(N-1) - AOG(N)
|
||||||
TS -DELAOG
|
TS -DELAOG
|
||||||
|
|
||||||
CA CDUY
|
CA CDUY
|
||||||
XCH AIG
|
XCH AIG
|
||||||
EXTEND
|
EXTEND
|
||||||
MSU AIG
|
MSU AIG
|
||||||
TS -DELAIG
|
TS -DELAIG
|
||||||
|
|
||||||
CA CDUZ
|
CA CDUZ
|
||||||
XCH AMG
|
XCH AMG
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -90,12 +90,12 @@ DOBRATE? CS CM/FLAGS # CM/DSTBY=103D BIT2 GYMDIFSW=104D BIT1
|
|||||||
TC CM/GYMIC # DON'T CALC BODYRATE ON FIRST PASS.
|
TC CM/GYMIC # DON'T CALC BODYRATE ON FIRST PASS.
|
||||||
NOOP
|
NOOP
|
||||||
TC FLUSHJET # TURN OFF ALL JETS
|
TC FLUSHJET # TURN OFF ALL JETS
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00006 # DEACTIVATE DAP GROUP 6.
|
OCT 00006 # DEACTIVATE DAP GROUP 6.
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
DOBRATE CA ONE # DO BODYRATE
|
DOBRATE CA ONE # DO BODYRATE
|
||||||
DOBRATE1 TS JETEM # SKIP BODYRATE
|
DOBRATE1 TS JETEM # SKIP BODYRATE
|
||||||
|
|
||||||
@ -103,13 +103,13 @@ DOBRATE1 TS JETEM # SKIP BODYRATE
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR READGYMB
|
2CADR READGYMB
|
||||||
|
|
||||||
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
||||||
|
|
||||||
CCS JETEM
|
CCS JETEM
|
||||||
TC BODYRATE
|
TC BODYRATE
|
||||||
TC TASKOVER # SKIP CALC ON INITIAL PASS. (PASSES)
|
TC TASKOVER # SKIP CALC ON INITIAL PASS. (PASSES)
|
||||||
|
|
||||||
CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0
|
CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS JETAG
|
TS JETAG
|
||||||
@ -118,7 +118,7 @@ CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0
|
|||||||
TS OLDELR
|
TS OLDELR
|
||||||
TS GAMDOT # NO GYM DIF, PROB NO GAM DIF.
|
TS GAMDOT # NO GYM DIF, PROB NO GAM DIF.
|
||||||
TC DOBRATE1
|
TC DOBRATE1
|
||||||
|
|
||||||
# Page 1065
|
# Page 1065
|
||||||
# COME HERE TO CORRECT FOR OVERFLOW IN ANGULAR CALCULATIONS
|
# COME HERE TO CORRECT FOR OVERFLOW IN ANGULAR CALCULATIONS
|
||||||
|
|
||||||
@ -128,45 +128,45 @@ ANGOVCOR TS L # THIS COSTS 2 MCT TO USE.
|
|||||||
CAF LIMITS
|
CAF LIMITS
|
||||||
ADS L
|
ADS L
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
BLOCK 3
|
BLOCK 3
|
||||||
|
|
||||||
COUNT 03/DAPEN
|
COUNT 03/DAPEN
|
||||||
|
|
||||||
FLUSHJET CA 7 # COME HERE TO TURN OFF ALL JETS.
|
FLUSHJET CA 7 # COME HERE TO TURN OFF ALL JETS.
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE ROLLJETS # ZERO CHANNEL 6
|
WRITE ROLLJETS # ZERO CHANNEL 6
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE PYJETS # ZERO CHANNEL 5
|
WRITE PYJETS # ZERO CHANNEL 5
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
|
|
||||||
COUNT 15/DAPEN
|
COUNT 15/DAPEN
|
||||||
|
|
||||||
SETLOC ETRYDAP
|
SETLOC ETRYDAP
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
RATEAVG COM # SUBROUTINE TO ESTIMATE RATES IN PRESENCE
|
RATEAVG COM # SUBROUTINE TO ESTIMATE RATES IN PRESENCE
|
||||||
AD JETEM # OF CONSTANT ACCELERATION.
|
AD JETEM # OF CONSTANT ACCELERATION.
|
||||||
EXTEND
|
EXTEND
|
||||||
MP HALF # DELV (EST) = DELV +(DELV-OLDELV)/2
|
MP HALF # DELV (EST) = DELV +(DELV-OLDELV)/2
|
||||||
AD JETEM
|
AD JETEM
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 1066
|
# Page 1066
|
||||||
# THESE ARE CALLED FOR THE VARIOUS INITIALIZATIONS NEEDED.
|
# THESE ARE CALLED FOR THE VARIOUS INITIALIZATIONS NEEDED.
|
||||||
|
|
||||||
BANK 20
|
BANK 20
|
||||||
SETLOC DAPS1
|
SETLOC DAPS1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 20/DAPEN
|
COUNT 20/DAPEN
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
|
|
||||||
CM/DAPON CA EBAOG
|
CM/DAPON CA EBAOG
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
TC DOWNFLAG # RESET DAPBIT1. T5 RESTART IDENTIFIER.
|
TC DOWNFLAG # RESET DAPBIT1. T5 RESTART IDENTIFIER.
|
||||||
ADRES DAPBIT1 # BIT 15 FLAG 6 CMFLAGS.
|
ADRES DAPBIT1 # BIT 15 FLAG 6 CMFLAGS.
|
||||||
TC DOWNFLAG # RESET DAPBIT2
|
TC DOWNFLAG # RESET DAPBIT2
|
||||||
@ -177,14 +177,14 @@ CM/DAPON CA EBAOG
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA T5IDLER1 # DISABLE RCS JET CALLS
|
DCA T5IDLER1 # DISABLE RCS JET CALLS
|
||||||
DXCH T6LOC
|
DXCH T6LOC
|
||||||
|
|
||||||
TC FLUSHJET # JETS DEPARTED ON SM. ZERO JET BITS.
|
TC FLUSHJET # JETS DEPARTED ON SM. ZERO JET BITS.
|
||||||
|
|
||||||
CS 13,14,15
|
CS 13,14,15
|
||||||
MASK DAPDATR1 # SET CONFIG BITS=0 FOR ENTRY
|
MASK DAPDATR1 # SET CONFIG BITS=0 FOR ENTRY
|
||||||
TS DAPDATR1
|
TS DAPDATR1
|
||||||
TC +4
|
TC +4
|
||||||
|
|
||||||
NOTYET CA .5SEC
|
NOTYET CA .5SEC
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR DELAYJOB # (DELAYJOB DOES INHINT)
|
CADR DELAYJOB # (DELAYJOB DOES INHINT)
|
||||||
@ -192,15 +192,15 @@ NOTYET CA .5SEC
|
|||||||
MASK CM/FLAGS # IF ZERO, WAIT UNTIL CM/POSE UPDATE.
|
MASK CM/FLAGS # IF ZERO, WAIT UNTIL CM/POSE UPDATE.
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NOTYET
|
BZF NOTYET
|
||||||
|
|
||||||
CS ONE # ACTIVATE CM/DAP
|
CS ONE # ACTIVATE CM/DAP
|
||||||
TS RCSFLAGS # USE BIT3 TO INITIALIZE NEEDLER ON
|
TS RCSFLAGS # USE BIT3 TO INITIALIZE NEEDLER ON
|
||||||
# NEXT PASS.
|
# NEXT PASS.
|
||||||
TS P63FLAG # SO WAKEP62 WILL NOT BE INITIATED UNTIL
|
TS P63FLAG # SO WAKEP62 WILL NOT BE INITIATED UNTIL
|
||||||
# HEADSUP IS SET IN P62.
|
# HEADSUP IS SET IN P62.
|
||||||
|
|
||||||
# FLAG TO PREVENT MULTIPLE CALLS TO WAKEP62
|
# FLAG TO PREVENT MULTIPLE CALLS TO WAKEP62
|
||||||
|
|
||||||
CA 7
|
CA 7
|
||||||
TS JETAG
|
TS JETAG
|
||||||
TS PAXERR1 # KEEP NEEDLES ZERO UNTIL DAP UPDATE
|
TS PAXERR1 # KEEP NEEDLES ZERO UNTIL DAP UPDATE
|
||||||
@ -215,20 +215,20 @@ NOTYET CA .5SEC
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP HALF
|
MP HALF
|
||||||
TS ROLLC # NOT INTERESTED IN LO WORD.
|
TS ROLLC # NOT INTERESTED IN LO WORD.
|
||||||
|
|
||||||
CS CM/FLAGS
|
CS CM/FLAGS
|
||||||
MASK BIT12 # CMDAPARM =93D BIT12 INITLY=0
|
MASK BIT12 # CMDAPARM =93D BIT12 INITLY=0
|
||||||
ADS CM/FLAGS # SET BIT TO 1.
|
ADS CM/FLAGS # SET BIT TO 1.
|
||||||
|
|
||||||
CS FLAGWRD2 # SET NODOFLAG TO PREVENT FURTHER
|
CS FLAGWRD2 # SET NODOFLAG TO PREVENT FURTHER
|
||||||
MASK BIT1 # V 37 ENTRIES.
|
MASK BIT1 # V 37 ENTRIES.
|
||||||
ADS FLAGWRD2
|
ADS FLAGWRD2
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR P62.1
|
CADR P62.1
|
||||||
|
|
||||||
# Page 1068
|
# Page 1068
|
||||||
# INITIALIZE CM/DAP. WAITLIST CALL FOR READGYMB. SET SWITCH CM/DSTBY =1
|
# INITIALIZE CM/DAP. WAITLIST CALL FOR READGYMB. SET SWITCH CM/DSTBY =1
|
||||||
# SO READACCS WILL ENTER A WTLST CALL FOR SETJTAG .
|
# SO READACCS WILL ENTER A WTLST CALL FOR SETJTAG .
|
||||||
@ -237,17 +237,17 @@ NOTYET CA .5SEC
|
|||||||
|
|
||||||
CM/DAPIC CA EBAOG
|
CM/DAPIC CA EBAOG
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
CM/DAP2C CS PIPTIME +1
|
CM/DAP2C CS PIPTIME +1
|
||||||
# PRIO OF P62 L PRIO AVG.:PIPTM=PIPTM1.
|
# PRIO OF P62 L PRIO AVG.:PIPTM=PIPTM1.
|
||||||
TS JETEM
|
TS JETEM
|
||||||
|
|
||||||
CA POS1/2
|
CA POS1/2
|
||||||
AD POS1/2
|
AD POS1/2
|
||||||
AD TIME1 # OVFL GUARANTEED
|
AD TIME1 # OVFL GUARANTEED
|
||||||
ADS JETEM # C(A) = DELTA TIME SINCE PIPUP
|
ADS JETEM # C(A) = DELTA TIME SINCE PIPUP
|
||||||
|
|
||||||
CS FIVE
|
CS FIVE
|
||||||
AD JETEM
|
AD JETEM
|
||||||
CCS A
|
CCS A
|
||||||
@ -259,28 +259,28 @@ CM/DAP2C CS PIPTIME +1
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR READGYMB
|
2CADR READGYMB
|
||||||
|
|
||||||
CS CM/SWIC1 # GAMDIFSW, GYMDIFSW, CM/DSTBY
|
CS CM/SWIC1 # GAMDIFSW, GYMDIFSW, CM/DSTBY
|
||||||
MASK CM/FLAGS # DAPARM, .05GSW, LATSW, ENTRYDSP
|
MASK CM/FLAGS # DAPARM, .05GSW, LATSW, ENTRYDSP
|
||||||
AD CM/SWIC2 # SET CM/DSTBY, LATSW
|
AD CM/SWIC2 # SET CM/DSTBY, LATSW
|
||||||
# DISABLE ENTRY DISPLAY, SINCE DES. GIMB.
|
# DISABLE ENTRY DISPLAY, SINCE DES. GIMB.
|
||||||
# CALC. (P62.3) GOES TO ENDEXIT
|
# CALC. (P62.3) GOES TO ENDEXIT
|
||||||
TS CM/FLAGS
|
TS CM/FLAGS
|
||||||
|
|
||||||
CA 7
|
CA 7
|
||||||
TS BETA/180 # NECESSARY: NO OVFL CORRECTIO
|
TS BETA/180 # NECESSARY: NO OVFL CORRECTIO
|
||||||
CA ONE # INITIALIZE THE TM OF BODY RATES VIA
|
CA ONE # INITIALIZE THE TM OF BODY RATES VIA
|
||||||
TS SW/NDX # UPBUFF.
|
TS SW/NDX # UPBUFF.
|
||||||
|
|
||||||
TC 2PHSCHNG # DOES INHINT/RELINT
|
TC 2PHSCHNG # DOES INHINT/RELINT
|
||||||
OCT 40116 # SAVE TBASE6
|
OCT 40116 # SAVE TBASE6
|
||||||
OCT 05024
|
OCT 05024
|
||||||
OCT 13000
|
OCT 13000
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
# Page 1069
|
# Page 1069
|
||||||
CADR P62.2
|
CADR P62.2
|
||||||
|
|
||||||
CM/SWIC1 OCT 16017
|
CM/SWIC1 OCT 16017
|
||||||
CM/SWIC2 = TEN # 00012: CM/DSTBY, LATSW
|
CM/SWIC2 = TEN # 00012: CM/DSTBY, LATSW
|
||||||
-CDUT+1 OCT 77766
|
-CDUT+1 OCT 77766
|
||||||
@ -301,29 +301,29 @@ T5IDLER1 2CADR T5IDLOC
|
|||||||
BANK 15
|
BANK 15
|
||||||
SETLOC ETRYDAP
|
SETLOC ETRYDAP
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 15/DAPEN
|
COUNT 15/DAPEN
|
||||||
|
|
||||||
BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
||||||
TC SPCOS
|
TC SPCOS
|
||||||
TS COSM
|
TS COSM
|
||||||
|
|
||||||
CA AOG # C(AOG) = AOG/180
|
CA AOG # C(AOG) = AOG/180
|
||||||
TC SPSIN # SINO
|
TC SPSIN # SINO
|
||||||
TS SINO # SINO = SIN(AOG)
|
TS SINO # SINO = SIN(AOG)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP COSM
|
MP COSM
|
||||||
TS SINOCOSM # SO CM
|
TS SINOCOSM # SO CM
|
||||||
|
|
||||||
CA AOG
|
CA AOG
|
||||||
TC SPCOS # COSO
|
TC SPCOS # COSO
|
||||||
TS COSO
|
TS COSO
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP COSM
|
MP COSM
|
||||||
TS COSOCOSM # CO CM
|
TS COSOCOSM # CO CM
|
||||||
|
|
||||||
# PITCHDOT: Q TCDU/180 = IDOT TCDU/180 COSO COSM + MDOT TCDU/180 SINO
|
# PITCHDOT: Q TCDU/180 = IDOT TCDU/180 COSO COSM + MDOT TCDU/180 SINO
|
||||||
|
|
||||||
CS -DELAMG
|
CS -DELAMG
|
||||||
@ -338,7 +338,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
|||||||
XCH OLDELQ
|
XCH OLDELQ
|
||||||
TC RATEAVG
|
TC RATEAVG
|
||||||
TS QREL # PITCHDOT = Q TCDU/180
|
TS QREL # PITCHDOT = Q TCDU/180
|
||||||
|
|
||||||
# Page 1071
|
# Page 1071
|
||||||
# YAWDOT: R TCDU/180 = -IDOT TCDU/180 COSM SINO + MDOT TCDU/180 COSO
|
# YAWDOT: R TCDU/180 = -IDOT TCDU/180 COSM SINO + MDOT TCDU/180 COSO
|
||||||
|
|
||||||
@ -354,13 +354,13 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
|||||||
XCH OLDELR
|
XCH OLDELR
|
||||||
TC RATEAVG
|
TC RATEAVG
|
||||||
TS RREL # YAWDOT = R TCDU/180
|
TS RREL # YAWDOT = R TCDU/180
|
||||||
|
|
||||||
# ROLLDOT: P TCDU/180 = ODOT TCDU/180 + IDOT TCDU/180 SINM
|
# ROLLDOT: P TCDU/180 = ODOT TCDU/180 + IDOT TCDU/180 SINM
|
||||||
|
|
||||||
CA AMG
|
CA AMG
|
||||||
TC SPSIN
|
TC SPSIN
|
||||||
TS SINM
|
TS SINM
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP -DELAIG
|
MP -DELAIG
|
||||||
TS JETEM
|
TS JETEM
|
||||||
@ -373,9 +373,9 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
|||||||
XCH OLDELP
|
XCH OLDELP
|
||||||
TC RATEAVG
|
TC RATEAVG
|
||||||
TS PREL # ROLLDOT = P TCDU/180
|
TS PREL # ROLLDOT = P TCDU/180
|
||||||
|
|
||||||
# IF GAMDOT < 0.5 DEG/SEC, THEN GAMDOT =0
|
# IF GAMDOT < 0.5 DEG/SEC, THEN GAMDOT =0
|
||||||
|
|
||||||
CCS GAMDOT
|
CCS GAMDOT
|
||||||
TC +2
|
TC +2
|
||||||
TC NOGAMDUT
|
TC NOGAMDUT
|
||||||
@ -387,7 +387,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP SINTRIM # SIN(-20) (FOR NOMINAL L/D = .3)
|
MP SINTRIM # SIN(-20) (FOR NOMINAL L/D = .3)
|
||||||
ADS PREL # PREL TCDU/180=(P-SALF SR GAMDOT)TCDU/180
|
ADS PREL # PREL TCDU/180=(P-SALF SR GAMDOT)TCDU/180
|
||||||
|
|
||||||
CA ROLL/180
|
CA ROLL/180
|
||||||
TC SPCOS
|
TC SPCOS
|
||||||
# Page 1072
|
# Page 1072
|
||||||
@ -395,12 +395,12 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP GAMDOT
|
MP GAMDOT
|
||||||
ADS QREL # QREL TCDU/180=(Q-CR GAMDOT) TCDU/180
|
ADS QREL # QREL TCDU/180=(Q-CR GAMDOT) TCDU/180
|
||||||
|
|
||||||
CS JETEM +1 # B( ) = -SR GAMDOT
|
CS JETEM +1 # B( ) = -SR GAMDOT
|
||||||
EXTEND
|
EXTEND
|
||||||
MP COSTRIM # COS(-20) (FOR NOMINAL L/D = .3)
|
MP COSTRIM # COS(-20) (FOR NOMINAL L/D = .3)
|
||||||
ADS RREL # RREL TCDU/180=(R+CALF SR GAMDOT)TCDU/180
|
ADS RREL # RREL TCDU/180=(R+CALF SR GAMDOT)TCDU/180
|
||||||
|
|
||||||
NOGAMDUT CA BIT12 # CMDAPARM = 93D BIT 12
|
NOGAMDUT CA BIT12 # CMDAPARM = 93D BIT 12
|
||||||
MASK CM/FLAGS
|
MASK CM/FLAGS
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -408,14 +408,14 @@ STBYDUMP BZF TASKOVER # DAP NOT ARMED.
|
|||||||
|
|
||||||
CA POSMAX # PICK UP AT ATTRATES IN 10 MS OR SO.
|
CA POSMAX # PICK UP AT ATTRATES IN 10 MS OR SO.
|
||||||
TS TIME5
|
TS TIME5
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA ATDOTCAD
|
DCA ATDOTCAD
|
||||||
DXCH T5LOC
|
DXCH T5LOC
|
||||||
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
ATDOTCAD 2CADR ATTRATES
|
ATDOTCAD 2CADR ATTRATES
|
||||||
|
|
||||||
@ -433,7 +433,7 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
DOUBLE
|
DOUBLE
|
||||||
TS CM/SAVE
|
TS CM/SAVE
|
||||||
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
||||||
|
|
||||||
CA QREL
|
CA QREL
|
||||||
AD ALFA/180
|
AD ALFA/180
|
||||||
TC ANGOVCOR
|
TC ANGOVCOR
|
||||||
@ -441,28 +441,28 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
TC SPCOS
|
TC SPCOS
|
||||||
TS CALFA # CALFA
|
TS CALFA # CALFA
|
||||||
TS PHIDOT
|
TS PHIDOT
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP PREL
|
MP PREL
|
||||||
XCH PHIDOT # CA PREL
|
XCH PHIDOT # CA PREL
|
||||||
EXTEND
|
EXTEND
|
||||||
MP RREL # CA RREL
|
MP RREL # CA RREL
|
||||||
TS BETADOT
|
TS BETADOT
|
||||||
|
|
||||||
CA ALFA/180
|
CA ALFA/180
|
||||||
TC SPSIN
|
TC SPSIN
|
||||||
TS SALFA # SIN(ALFA)
|
TS SALFA # SIN(ALFA)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP RREL # SA RREL
|
MP RREL # SA RREL
|
||||||
ADS PHIDOT # CB PHIDOT, SAVED.
|
ADS PHIDOT # CB PHIDOT, SAVED.
|
||||||
|
|
||||||
CS SALFA
|
CS SALFA
|
||||||
EXTEND
|
EXTEND
|
||||||
MP PREL
|
MP PREL
|
||||||
ADS BETADOT # SAVE BETADOT TCDU/180
|
ADS BETADOT # SAVE BETADOT TCDU/180
|
||||||
ADS BETA/180 # BETA DONE.
|
ADS BETA/180 # BETA DONE.
|
||||||
|
|
||||||
TC SPSIN
|
TC SPSIN
|
||||||
EXTEND
|
EXTEND
|
||||||
MP PHIDOT # NEGLECT CB IN CB PHIDOT
|
MP PHIDOT # NEGLECT CB IN CB PHIDOT
|
||||||
@ -475,13 +475,13 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
TC ANGOVCOR # JUST IN CASE ...
|
TC ANGOVCOR # JUST IN CASE ...
|
||||||
TS AK1
|
TS AK1
|
||||||
TS QAXERR # FOR PITCH FDAI AND EDIT.
|
TS QAXERR # FOR PITCH FDAI AND EDIT.
|
||||||
|
|
||||||
CA PHIDOT # PHIDOT TCDU/180, NEGLECTING CB
|
CA PHIDOT # PHIDOT TCDU/180, NEGLECTING CB
|
||||||
AD ROLL/180
|
AD ROLL/180
|
||||||
TC ANGOVCOR
|
TC ANGOVCOR
|
||||||
TS ROLLTM # ROLL/180 FOR TM.
|
TS ROLLTM # ROLL/180 FOR TM.
|
||||||
TS ROLL/180 # ROLL DONE.
|
TS ROLL/180 # ROLL DONE.
|
||||||
|
|
||||||
# START YAW AUTOPILOT HERE. RATE DAMPING WITH ENFORCED COORDINATED ROLL MANEUVER.
|
# START YAW AUTOPILOT HERE. RATE DAMPING WITH ENFORCED COORDINATED ROLL MANEUVER.
|
||||||
|
|
||||||
CS BETA/180 # IF IN ATM, SAVE 'RAXERR' FOR TM DNLST.
|
CS BETA/180 # IF IN ATM, SAVE 'RAXERR' FOR TM DNLST.
|
||||||
@ -490,17 +490,17 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
# AS A TEMPORARY. (DAP OPERATION IS IN INTERRUPT, SO
|
# AS A TEMPORARY. (DAP OPERATION IS IN INTERRUPT, SO
|
||||||
# IS OK.) FINAL C(RAXERR) AT END OF DAP CYCLE WILL
|
# IS OK.) FINAL C(RAXERR) AT END OF DAP CYCLE WILL
|
||||||
# BE R-AXIS ERROR.
|
# BE R-AXIS ERROR.
|
||||||
|
|
||||||
CA BIT3 # .05GSW = 102D BIT3 SW=0, LESS .05G
|
CA BIT3 # .05GSW = 102D BIT3 SW=0, LESS .05G
|
||||||
MASK CM/FLAGS # SWITCH =1, GREATER THAN .05 G
|
MASK CM/FLAGS # SWITCH =1, GREATER THAN .05 G
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF EXDAP # IF G LESS THAN .05
|
BZF EXDAP # IF G LESS THAN .05
|
||||||
CS ONE # IF G GEQ THAN .05
|
CS ONE # IF G GEQ THAN .05
|
||||||
TS CMDAPMOD # SAVE -1 FOR USE IN CM/RCS
|
TS CMDAPMOD # SAVE -1 FOR USE IN CM/RCS
|
||||||
|
|
||||||
TS AK1 # TO ZERO PITCH AND YAW FDAI NEEDLES
|
TS AK1 # TO ZERO PITCH AND YAW FDAI NEEDLES
|
||||||
TS AK2 # IN ATM. (MODE =-1)
|
TS AK2 # IN ATM. (MODE =-1)
|
||||||
|
|
||||||
CS PREL # YAW ERROR = RREL - PREL TAN(ALFA)
|
CS PREL # YAW ERROR = RREL - PREL TAN(ALFA)
|
||||||
EXTEND
|
EXTEND
|
||||||
MP SINTRIM # LET SIN(-20) BE APPROX FOR TAN(-20)
|
MP SINTRIM # LET SIN(-20) BE APPROX FOR TAN(-20)
|
||||||
@ -508,9 +508,9 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
TC 2D/SDZ # GO TEST DZ. GET TAG: +0 IF IN DZ
|
TC 2D/SDZ # GO TEST DZ. GET TAG: +0 IF IN DZ
|
||||||
INDEX A # +/- 1 IF NOT
|
INDEX A # +/- 1 IF NOT
|
||||||
CAF YJETCODE
|
CAF YJETCODE
|
||||||
|
|
||||||
TS JETEM
|
TS JETEM
|
||||||
|
|
||||||
# START PITCH AUTOPILOT HERE. RATE DAMPING ONLY.
|
# START PITCH AUTOPILOT HERE. RATE DAMPING ONLY.
|
||||||
|
|
||||||
CA QREL
|
CA QREL
|
||||||
@ -518,11 +518,11 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
|
|||||||
EXDAPIN INDEX A # COME HERE FROM EX ATM DAP
|
EXDAPIN INDEX A # COME HERE FROM EX ATM DAP
|
||||||
CAF P/RJCODE
|
CAF P/RJCODE
|
||||||
ADS JETEM # COMBINE ALL NEW BITS.
|
ADS JETEM # COMBINE ALL NEW BITS.
|
||||||
|
|
||||||
EXTEND # DOES NOT REQUIRE SAVING OLD CODES.
|
EXTEND # DOES NOT REQUIRE SAVING OLD CODES.
|
||||||
# Page 1075
|
# Page 1075
|
||||||
WRITE PYJETS # SET PYCHAN TO DESIRED BIT CONFIG.
|
WRITE PYJETS # SET PYCHAN TO DESIRED BIT CONFIG.
|
||||||
|
|
||||||
CCS JETAG
|
CCS JETAG
|
||||||
TC CM/RCS
|
TC CM/RCS
|
||||||
TC CM/FDAI
|
TC CM/FDAI
|
||||||
@ -536,7 +536,7 @@ EXDAPIN INDEX A # COME HERE FROM EX ATM DAP
|
|||||||
TCF DZCOM
|
TCF DZCOM
|
||||||
AD YAWLIM
|
AD YAWLIM
|
||||||
TCF DZNOCOM
|
TCF DZNOCOM
|
||||||
|
|
||||||
# BIASED DZ FOR EXT ATM DAP.
|
# BIASED DZ FOR EXT ATM DAP.
|
||||||
BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L.
|
BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L.
|
||||||
CCS A # START ERROR DZ.
|
CCS A # START ERROR DZ.
|
||||||
@ -555,7 +555,7 @@ BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L.
|
|||||||
TCF +2 # RATE OK. CONTINUE
|
TCF +2 # RATE OK. CONTINUE
|
||||||
ZL # RATE GEQ 4 D/S. OVER RIDE ERROR BIT
|
ZL # RATE GEQ 4 D/S. OVER RIDE ERROR BIT
|
||||||
XCH JETEM2 # AND CONTINUE TO GET SIGN.
|
XCH JETEM2 # AND CONTINUE TO GET SIGN.
|
||||||
|
|
||||||
2D/SDZ CCS A # COME HERE TO TEST IF A WITHIN 2DEG/S DZ
|
2D/SDZ CCS A # COME HERE TO TEST IF A WITHIN 2DEG/S DZ
|
||||||
AD YDOTLIM # 1.0 - YDOT DZ (OR PDOT)
|
AD YDOTLIM # 1.0 - YDOT DZ (OR PDOT)
|
||||||
TCF +3
|
TCF +3
|
||||||
@ -564,7 +564,7 @@ DZCOM COM
|
|||||||
DZNOCOM TS JETEM +1 # GENERATE TAG, SET C(A)= -+1 OUTSIDE DZ
|
DZNOCOM TS JETEM +1 # GENERATE TAG, SET C(A)= -+1 OUTSIDE DZ
|
||||||
CA ZERO # SET C(A) = +0 INSIDE
|
CA ZERO # SET C(A) = +0 INSIDE
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 1077
|
# Page 1077
|
||||||
# EXTRA ATMOSPHERIC DIGITAL AUTOPILOT
|
# EXTRA ATMOSPHERIC DIGITAL AUTOPILOT
|
||||||
#
|
#
|
||||||
@ -598,7 +598,7 @@ EXDAP TS CMDAPMOD # +0 FOR NOW
|
|||||||
AD C45LIM
|
AD C45LIM
|
||||||
TS A
|
TS A
|
||||||
TCF EXDAP2 # HERE IF ABS(CALFA) L COS(45)
|
TCF EXDAP2 # HERE IF ABS(CALFA) L COS(45)
|
||||||
|
|
||||||
CCS CALFA # |CALFA| > 0.707
|
CCS CALFA # |CALFA| > 0.707
|
||||||
TCF +1 # CONTINUE IF POS; GO TO EXDAP4 IF NEG.
|
TCF +1 # CONTINUE IF POS; GO TO EXDAP4 IF NEG.
|
||||||
|
|
||||||
@ -614,10 +614,10 @@ EXDAP TS CMDAPMOD # +0 FOR NOW
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR WAKEP62 # CALL TO TERMINATE P62 IN N SEC.
|
2CADR WAKEP62 # CALL TO TERMINATE P62 IN N SEC.
|
||||||
# Page 1078
|
# Page 1078
|
||||||
# 65 DEG/ 3DEG/SEC = 21 SEC NOMINAL
|
# 65 DEG/ 3DEG/SEC = 21 SEC NOMINAL
|
||||||
# TRANSIT TIME FROM ALFA=45 TO ALFA TRIM.
|
# TRANSIT TIME FROM ALFA=45 TO ALFA TRIM.
|
||||||
|
|
||||||
EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC
|
EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC
|
||||||
TCF EXDAP3 # DAP AND THE 2 SEC CM/RCS DAP
|
TCF EXDAP3 # DAP AND THE 2 SEC CM/RCS DAP
|
||||||
TCF EXDAP3
|
TCF EXDAP3
|
||||||
@ -625,7 +625,7 @@ EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC
|
|||||||
EXTEND # TURN OFF ROLL JETS IF ON AND WAIT
|
EXTEND # TURN OFF ROLL JETS IF ON AND WAIT
|
||||||
WRITE ROLLJETS # UNTIL START OF 2 SEC CM/RCS CYCLE
|
WRITE ROLLJETS # UNTIL START OF 2 SEC CM/RCS CYCLE
|
||||||
TS JETAG # RESTORE PROPER VALUE +0
|
TS JETAG # RESTORE PROPER VALUE +0
|
||||||
|
|
||||||
# ROLL FDAI WILL BE IN ERROR UNTIL NEXT CM/RCS CALL.
|
# ROLL FDAI WILL BE IN ERROR UNTIL NEXT CM/RCS CALL.
|
||||||
EXDAP3 CCS CALFA # HERE IF ABS(CALFA) GEQ COS(45)
|
EXDAP3 CCS CALFA # HERE IF ABS(CALFA) GEQ COS(45)
|
||||||
CA RAXERR # C()= BETACOM - BETA/180
|
CA RAXERR # C()= BETACOM - BETA/180
|
||||||
@ -648,7 +648,7 @@ EXDAP1 TS RAXERR # FOR YAW FDAI
|
|||||||
INDEX A
|
INDEX A
|
||||||
CAF YJETCODE
|
CAF YJETCODE
|
||||||
TS JETEM
|
TS JETEM
|
||||||
|
|
||||||
CA QAXERR # ALFA ERROR.
|
CA QAXERR # ALFA ERROR.
|
||||||
TS L
|
TS L
|
||||||
CA QREL # FOR ALPHADOT USE QREL
|
CA QREL # FOR ALPHADOT USE QREL
|
||||||
@ -656,18 +656,18 @@ EXDAP1 TS RAXERR # FOR YAW FDAI
|
|||||||
EXTEND
|
EXTEND
|
||||||
ROR LCHAN
|
ROR LCHAN
|
||||||
TCF EXDAPIN # CONTINUE ON IN DAP
|
TCF EXDAPIN # CONTINUE ON IN DAP
|
||||||
|
|
||||||
EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
|
EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
|
||||||
|
|
||||||
CS ONE # INDICATE CHANGE FROM .1 SEC UPDATE TO
|
CS ONE # INDICATE CHANGE FROM .1 SEC UPDATE TO
|
||||||
TS JETAG # TO 2 SEC FOR ROLL JETS. (IF CMDAPMOD
|
TS JETAG # TO 2 SEC FOR ROLL JETS. (IF CMDAPMOD
|
||||||
# =0 AND JETAG =-1, QUENCHES JETS IF ON)
|
# =0 AND JETAG =-1, QUENCHES JETS IF ON)
|
||||||
|
|
||||||
CCS P63FLAG # IF FLAG WAS +1, SET =0.
|
CCS P63FLAG # IF FLAG WAS +1, SET =0.
|
||||||
TS P63FLAG
|
TS P63FLAG
|
||||||
# Page 1079
|
# Page 1079
|
||||||
NOOP
|
NOOP
|
||||||
|
|
||||||
CCS SALFA # BETA CONTROL WITH P JETS
|
CCS SALFA # BETA CONTROL WITH P JETS
|
||||||
CS RAXERR # B()= BETACOM - BETA/180
|
CS RAXERR # B()= BETACOM - BETA/180
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -688,7 +688,7 @@ EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
|
|||||||
CAF P/RJCODE # GET ROLL CODE
|
CAF P/RJCODE # GET ROLL CODE
|
||||||
EXTEND # ROLL CONTROL WITH YAW JETS.
|
EXTEND # ROLL CONTROL WITH YAW JETS.
|
||||||
WRITE ROLLJETS # WE'LL SKIP REGULAR ROLL SYST
|
WRITE ROLLJETS # WE'LL SKIP REGULAR ROLL SYST
|
||||||
|
|
||||||
CA ROLLHOLD # ROLL/180 AT CM/DAPON TIME.
|
CA ROLLHOLD # ROLL/180 AT CM/DAPON TIME.
|
||||||
EXTEND
|
EXTEND
|
||||||
MSU ROLL/180 # 1'S COMPL, BUT SO WHAT'S A BIT?
|
MSU ROLL/180 # 1'S COMPL, BUT SO WHAT'S A BIT?
|
||||||
@ -698,13 +698,13 @@ EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
|
|||||||
TC EXDAP1
|
TC EXDAP1
|
||||||
CS L
|
CS L
|
||||||
TC EXDAP1
|
TC EXDAP1
|
||||||
|
|
||||||
NSEC DEC 2100 # 65 DEG/ 3 DEG/SEC
|
NSEC DEC 2100 # 65 DEG/ 3 DEG/SEC
|
||||||
# IF NSEC IS CHANGED, REMEMBER TO CHANGE 4.33SPOT.
|
# IF NSEC IS CHANGED, REMEMBER TO CHANGE 4.33SPOT.
|
||||||
4D/SLIM DEC 16348 # 1.0 -4/180 D/S = 4/1800 EXP 14
|
4D/SLIM DEC 16348 # 1.0 -4/180 D/S = 4/1800 EXP 14
|
||||||
YDOTLIM DEC 16366 # =1.0 - YDOT DZ= 16384 -18
|
YDOTLIM DEC 16366 # =1.0 - YDOT DZ= 16384 -18
|
||||||
# YDOT DZ = YDOT TCDU/180 = 2/1800 EXP 14
|
# YDOT DZ = YDOT TCDU/180 = 2/1800 EXP 14
|
||||||
|
|
||||||
CM/BIAS DEC 55 # =.6/180 B14 = 55
|
CM/BIAS DEC 55 # =.6/180 B14 = 55
|
||||||
YAWLIM DEC 16055 # YAWLIM=1.0-3.6/180=16384-329=16055
|
YAWLIM DEC 16055 # YAWLIM=1.0-3.6/180=16384-329=16055
|
||||||
C45LIM DEC .29289 # =1.0-COS(45)
|
C45LIM DEC .29289 # =1.0-COS(45)
|
||||||
@ -723,9 +723,9 @@ COSTRIM DEC .93969 # COS(-20) (FOR NOMINAL L/D = .3)
|
|||||||
YJETCODE OCTAL 00000 # RCS JET BITS
|
YJETCODE OCTAL 00000 # RCS JET BITS
|
||||||
OCTAL 00240 # NEG Y
|
OCTAL 00240 # NEG Y
|
||||||
OCTAL 00005 # POS R JET BITS ALSO POS P JET BITS
|
OCTAL 00005 # POS R JET BITS ALSO POS P JET BITS
|
||||||
P/RJCODE OCTAL 00000
|
P/RJCODE OCTAL 00000
|
||||||
OCTAL 00012 # NEG R ALSO NEG P
|
OCTAL 00012 # NEG R ALSO NEG P
|
||||||
|
|
||||||
# Page 1081
|
# Page 1081
|
||||||
# RCS THIS SECTION IS ENTERED EACH 2 SEC BY WAITLIST CALL FOLLOWING A DELAY OF 1.2 SEC AFTER PIPUP.
|
# RCS THIS SECTION IS ENTERED EACH 2 SEC BY WAITLIST CALL FOLLOWING A DELAY OF 1.2 SEC AFTER PIPUP.
|
||||||
# THE TASK SETJTAG SETS A FLAG IN JETAG TO SIGNIFY THAT ROLL UPDATE IS DUE. IN ROUGHLY 5 CS BPDYRATE WILL BE
|
# THE TASK SETJTAG SETS A FLAG IN JETAG TO SIGNIFY THAT ROLL UPDATE IS DUE. IN ROUGHLY 5 CS BPDYRATE WILL BE
|
||||||
@ -740,9 +740,9 @@ SETJTAG CS TIME1 # SAVE NOMINAL UPDATE TIME FOR SYNCH
|
|||||||
TS JETAG # SET JETAG=1 TO CAUSE CM/RCS TO BE
|
TS JETAG # SET JETAG=1 TO CAUSE CM/RCS TO BE
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00001
|
OCT 00001
|
||||||
|
|
||||||
TC TASKOVER # EXECUTED AFTER NEXT BODYRATE UPDATE
|
TC TASKOVER # EXECUTED AFTER NEXT BODYRATE UPDATE
|
||||||
|
|
||||||
# PREDICTIVE ROLL SYSTEM ENTRY STEERING PROVIDES ROLL COMMAND IN LOC ROLLC. THE FOLLOWING CALCULATES THE
|
# PREDICTIVE ROLL SYSTEM ENTRY STEERING PROVIDES ROLL COMMAND IN LOC ROLLC. THE FOLLOWING CALCULATES THE
|
||||||
# TRAJECTORY TO THE ORIGIN IN PHASE PLANE (X,V). PROGRAM ENTERS JET ON AND OFF CALLS INTO WTLST TO PRODUCE
|
# TRAJECTORY TO THE ORIGIN IN PHASE PLANE (X,V). PROGRAM ENTERS JET ON AND OFF CALLS INTO WTLST TO PRODUCE
|
||||||
# THE DESIRED TRAJECTORY. ONLY THOSE CALLS WHICH CAN BE EXECUTED WITHIN THE INTERVAL T (2 SEC) ARE ENTERED IN
|
# THE DESIRED TRAJECTORY. ONLY THOSE CALLS WHICH CAN BE EXECUTED WITHIN THE INTERVAL T (2 SEC) ARE ENTERED IN
|
||||||
@ -754,19 +754,19 @@ HALFPR EQUALS NEG1/2 +1
|
|||||||
# ROLL DAP CALLED. IN EVENT OF RESTART, BODYRATE
|
# ROLL DAP CALLED. IN EVENT OF RESTART, BODYRATE
|
||||||
# MAY MISS A CYCLE. CM/RCS WILL MISS A CYCLE ONLY
|
# MAY MISS A CYCLE. CM/RCS WILL MISS A CYCLE ONLY
|
||||||
# IF A RESTART OCCURS AFTER TIMETST COMMENCES.
|
# IF A RESTART OCCURS AFTER TIMETST COMMENCES.
|
||||||
|
|
||||||
CM/RCS CS ONE
|
CM/RCS CS ONE
|
||||||
TS JNDX # SET NDX FOR POS ROLL, AND CHANGE LATER
|
TS JNDX # SET NDX FOR POS ROLL, AND CHANGE LATER
|
||||||
|
|
||||||
CS 2T/TCDU # ROLLDOT = DELAOG + DELAIG SINM =DELR
|
CS 2T/TCDU # ROLLDOT = DELAOG + DELAIG SINM =DELR
|
||||||
EXTEND
|
EXTEND
|
||||||
MP PREL # DELR/180 = RDOT TCDU/180 = RDOT/1800
|
MP PREL # DELR/180 = RDOT TCDU/180 = RDOT/1800
|
||||||
AD L # -2 RDOT T/180 IN L
|
AD L # -2 RDOT T/180 IN L
|
||||||
TS -VT/180 # SAVE -2VT/180 HERE
|
TS -VT/180 # SAVE -2VT/180 HERE
|
||||||
|
|
||||||
CS ROLL/180
|
CS ROLL/180
|
||||||
TS SR # SAVE (-R/180) /2
|
TS SR # SAVE (-R/180) /2
|
||||||
|
|
||||||
CS CM/FLAGS
|
CS CM/FLAGS
|
||||||
MASK BIT4 # LATSW = 101D BIT4
|
MASK BIT4 # LATSW = 101D BIT4
|
||||||
EXTEND # ROLL OVER TOP $
|
EXTEND # ROLL OVER TOP $
|
||||||
@ -776,19 +776,19 @@ CM/RCS CS ONE
|
|||||||
AD SR # -(R/180) /2
|
AD SR # -(R/180) /2
|
||||||
XCH LCX/360 # DIFFERENT X REQD HERE. DISCONT AT 180.
|
XCH LCX/360 # DIFFERENT X REQD HERE. DISCONT AT 180.
|
||||||
TCF COMPAT # POSSIBLE OVFL ABOVE.
|
TCF COMPAT # POSSIBLE OVFL ABOVE.
|
||||||
|
|
||||||
# Page 1082
|
# Page 1082
|
||||||
GETLCX CA POS1/2 # FORM RCOM/360
|
GETLCX CA POS1/2 # FORM RCOM/360
|
||||||
DOUBLE
|
DOUBLE
|
||||||
AD ROLLC
|
AD ROLLC
|
||||||
XCH LCX/360 # IGNORE POSSIBLE OVFL.
|
XCH LCX/360 # IGNORE POSSIBLE OVFL.
|
||||||
|
|
||||||
CA SR # FORM -R/360
|
CA SR # FORM -R/360
|
||||||
AD NEG1/2
|
AD NEG1/2
|
||||||
AD NEG1/2 # IGNORE OVFL
|
AD NEG1/2 # IGNORE OVFL
|
||||||
XCH LCX/360 # -R/360
|
XCH LCX/360 # -R/360
|
||||||
ADS LCX/360 # LCX/360 = RCOM/360 - R/360 RANGE (-1,1)
|
ADS LCX/360 # LCX/360 = RCOM/360 - R/360 RANGE (-1,1)
|
||||||
|
|
||||||
# DOES SGN(-VT) (VT/180) (VT/180) (180/(4 A1 TT COSALFA)) + X/360 + SGN(X) / 2 OVFL ?
|
# DOES SGN(-VT) (VT/180) (VT/180) (180/(4 A1 TT COSALFA)) + X/360 + SGN(X) / 2 OVFL ?
|
||||||
|
|
||||||
CCS -VT/180 # TAKE SHORTEST ANGULAR PATH
|
CCS -VT/180 # TAKE SHORTEST ANGULAR PATH
|
||||||
@ -814,12 +814,12 @@ TRTAGXPI INDEX A # NO, SHIFT X BY - SGN(X) 2 PI
|
|||||||
CS HALFPR # +A YIELDS -1/2
|
CS HALFPR # +A YIELDS -1/2
|
||||||
DOUBLE
|
DOUBLE
|
||||||
ADS LCX/360
|
ADS LCX/360
|
||||||
|
|
||||||
COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN.
|
COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN.
|
||||||
EXTEND
|
EXTEND
|
||||||
MP CALFA # COS ALFA
|
MP CALFA # COS ALFA
|
||||||
TS LCX/360 # SCALED LCX OK HERE.
|
TS LCX/360 # SCALED LCX OK HERE.
|
||||||
|
|
||||||
CCS CMDAPMOD # FOUR POSSIBILITIES HERE
|
CCS CMDAPMOD # FOUR POSSIBILITIES HERE
|
||||||
TC DZCALL1 # EXIT, SETTING JETAG=0. (C(A)=0)
|
TC DZCALL1 # EXIT, SETTING JETAG=0. (C(A)=0)
|
||||||
# ALL 3 AXES ALREADY DONE.
|
# ALL 3 AXES ALREADY DONE.
|
||||||
@ -839,7 +839,7 @@ COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN.
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP 180/8ATT
|
MP 180/8ATT
|
||||||
TS VSQ/4API
|
TS VSQ/4API
|
||||||
|
|
||||||
# IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 -.5 BUFLIM/360 POS?
|
# IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 -.5 BUFLIM/360 POS?
|
||||||
|
|
||||||
WHICHALF DOUBLE # FOR SECOND BURN, A1
|
WHICHALF DOUBLE # FOR SECOND BURN, A1
|
||||||
@ -854,7 +854,7 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1
|
|||||||
AD BUFLIM
|
AD BUFLIM
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF REFLECT # POINT (X,V) IN LHP.
|
BZMF REFLECT # POINT (X,V) IN LHP.
|
||||||
|
|
||||||
# IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 + .5 BUFLIM/360 NEG?
|
# IS SGN(VT) ( (180/4A1 TT) VT/180 VT/180 - .5 BUFLIM/360 ) -X/360 + .5 BUFLIM/360 NEG?
|
||||||
|
|
||||||
COM
|
COM
|
||||||
@ -862,20 +862,20 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1
|
|||||||
AD BUFLIM
|
AD BUFLIM
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF DZ1 # POINT (X,V) IN RHP
|
BZMF DZ1 # POINT (X,V) IN RHP
|
||||||
|
|
||||||
# IS POINT WITHIN VELOCITY DZ?
|
# IS POINT WITHIN VELOCITY DZ?
|
||||||
|
|
||||||
CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG?
|
CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG?
|
||||||
AD VSQ/4API
|
AD VSQ/4API
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF DZCALL # YES.
|
BZMF DZCALL # YES.
|
||||||
|
|
||||||
# POINT IS IN BUFFER ZONE. THRUST TO X AXIS.
|
# POINT IS IN BUFFER ZONE. THRUST TO X AXIS.
|
||||||
|
|
||||||
CS JNDX
|
CS JNDX
|
||||||
TS JNDX1
|
TS JNDX1
|
||||||
TC OVRLINE1
|
TC OVRLINE1
|
||||||
|
|
||||||
REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR
|
REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR
|
||||||
TS -VT/180
|
TS -VT/180
|
||||||
TS SR # -VT/360 SAVED FOR DZ.
|
TS SR # -VT/360 SAVED FOR DZ.
|
||||||
@ -884,7 +884,7 @@ REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR
|
|||||||
TS LCX/360
|
TS LCX/360
|
||||||
CS JNDX
|
CS JNDX
|
||||||
TS JNDX
|
TS JNDX
|
||||||
|
|
||||||
# IS VSQ/4API - (VSQ/4API) MIN NEG?
|
# IS VSQ/4API - (VSQ/4API) MIN NEG?
|
||||||
|
|
||||||
DZ1 CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG $
|
DZ1 CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG $
|
||||||
@ -892,7 +892,7 @@ DZ1 CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG $
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF DZ2 # YES, GO TEST FURTHER.
|
BZMF DZ2 # YES, GO TEST FURTHER.
|
||||||
TCF MAXVTEST # NO
|
TCF MAXVTEST # NO
|
||||||
|
|
||||||
# IS X/360 - XMIN/360 -VT/360 NEG?
|
# IS X/360 - XMIN/360 -VT/360 NEG?
|
||||||
|
|
||||||
DZ2 CS XMIN/360 # XMIN/360 = 4/360
|
DZ2 CS XMIN/360 # XMIN/360 = 4/360
|
||||||
@ -900,7 +900,7 @@ DZ2 CS XMIN/360 # XMIN/360 = 4/360
|
|||||||
AD SR # C(SR) = -VT/360
|
AD SR # C(SR) = -VT/360
|
||||||
EXTEND # IS X/360 - XMIN/360 -VT/360 NEG $
|
EXTEND # IS X/360 - XMIN/360 -VT/360 NEG $
|
||||||
BZMF DZCALL # YES, IN DZ. EXIT SETTING JETAG=0.
|
BZMF DZCALL # YES, IN DZ. EXIT SETTING JETAG=0.
|
||||||
|
|
||||||
# IS XD/360 - VM/360K - XS/360 POS?
|
# IS XD/360 - VM/360K - XS/360 POS?
|
||||||
|
|
||||||
MAXVTEST CS JNDX
|
MAXVTEST CS JNDX
|
||||||
@ -918,7 +918,7 @@ MAXVTEST CS JNDX
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP KTRCS
|
MP KTRCS
|
||||||
DDOUBL # GO SAVE PREDICTED DRIFTING VELOCITY.
|
DDOUBL # GO SAVE PREDICTED DRIFTING VELOCITY.
|
||||||
|
|
||||||
TC GETON1 # INSURE THAT Q IS POS AS TAG.
|
TC GETON1 # INSURE THAT Q IS POS AS TAG.
|
||||||
MAXVTIM1 EXTEND
|
MAXVTIM1 EXTEND
|
||||||
ZQ # SET +Q AS TAG
|
ZQ # SET +Q AS TAG
|
||||||
@ -933,14 +933,14 @@ GETON1 TS VDT/180 # VDT/180 OR VMT/180
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF OVRLINE
|
BZMF OVRLINE
|
||||||
TC GETON2 # RESET Q POS IF CAME FROM MAXVTIM1
|
TC GETON2 # RESET Q POS IF CAME FROM MAXVTIM1
|
||||||
|
|
||||||
OVRLINE CCS Q
|
OVRLINE CCS Q
|
||||||
TCF OVRLINE1
|
TCF OVRLINE1
|
||||||
MAXVTIM2 CA JNDX1 # ABOVE VM, SO THRUST DOWN
|
MAXVTIM2 CA JNDX1 # ABOVE VM, SO THRUST DOWN
|
||||||
TS JNDX
|
TS JNDX
|
||||||
CS TON1
|
CS TON1
|
||||||
TCF OVRLINE2 +1
|
TCF OVRLINE2 +1
|
||||||
|
|
||||||
OVRLINE1 CS -VT/180 # DRIFT AT V
|
OVRLINE1 CS -VT/180 # DRIFT AT V
|
||||||
TS VDT/180
|
TS VDT/180
|
||||||
OVRLINE2 CA ZERO
|
OVRLINE2 CA ZERO
|
||||||
@ -951,14 +951,14 @@ GETON2 CA VDT/180 # VDT/180, OR VMT/180 OR VT/180
|
|||||||
MP 180/8ATT
|
MP 180/8ATT
|
||||||
DOUBLE # FOR SECOND BURN, A1
|
DOUBLE # FOR SECOND BURN, A1
|
||||||
TS TON2 # = TON2 / 4T
|
TS TON2 # = TON2 / 4T
|
||||||
|
|
||||||
COM
|
COM
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF GETOFF
|
BZMF GETOFF
|
||||||
TS TON2
|
TS TON2
|
||||||
CA JNDX
|
CA JNDX
|
||||||
TS JNDX1
|
TS JNDX1
|
||||||
|
|
||||||
GETOFF CS TON2 # TON2 / 4T
|
GETOFF CS TON2 # TON2 / 4T
|
||||||
EXTEND
|
EXTEND
|
||||||
MP VDT/180 # VDT/180, OR VT/180, OR VMT/180.
|
MP VDT/180 # VDT/180, OR VT/180, OR VMT/180.
|
||||||
@ -977,7 +977,7 @@ GETOFF CS TON2 # TON2 / 4T
|
|||||||
DV VDT/180
|
DV VDT/180
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF GETOFF2 # DIVIDE OK
|
BZF GETOFF2 # DIVIDE OK
|
||||||
|
|
||||||
TOFFOVFL CA 2JETT # OVFL, USE 2T FOR CONVENIENCE.
|
TOFFOVFL CA 2JETT # OVFL, USE 2T FOR CONVENIENCE.
|
||||||
TCF TIMSCAL
|
TCF TIMSCAL
|
||||||
|
|
||||||
@ -993,19 +993,19 @@ TIMSCAL TS TOFF # IN CS
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP TON1 # C(TON1) = TON1 / 4T
|
MP TON1 # C(TON1) = TON1 / 4T
|
||||||
TS TON1 # IN CS
|
TS TON1 # IN CS
|
||||||
|
|
||||||
CAF 4JETT
|
CAF 4JETT
|
||||||
EXTEND
|
EXTEND
|
||||||
MP TON2 # C(TON2) = TON2 / 4T
|
MP TON2 # C(TON2) = TON2 / 4T
|
||||||
TS TON2 # IN CS
|
TS TON2 # IN CS
|
||||||
|
|
||||||
CA ZERO # CANNOT REDO AFTER TIMETST. TUSED GONE
|
CA ZERO # CANNOT REDO AFTER TIMETST. TUSED GONE
|
||||||
TS JETAG # SET +0 TO SHOW ROLL DAP CALLED.
|
TS JETAG # SET +0 TO SHOW ROLL DAP CALLED.
|
||||||
|
|
||||||
# CAUSE THE TM OF BODY RATES VIA UPBUFF TO BE
|
# CAUSE THE TM OF BODY RATES VIA UPBUFF TO BE
|
||||||
# INITIALIZED. ALSO CAUSE NEEDLES TO BE DONE ON EXIT
|
# INITIALIZED. ALSO CAUSE NEEDLES TO BE DONE ON EXIT
|
||||||
# AND ON ALTERNATE PASSES THROUGH CM/DUMPR.
|
# AND ON ALTERNATE PASSES THROUGH CM/DUMPR.
|
||||||
|
|
||||||
CA ONE
|
CA ONE
|
||||||
TS SW/NDX
|
TS SW/NDX
|
||||||
|
|
||||||
@ -1024,11 +1024,11 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL.
|
|||||||
AD POS1/2
|
AD POS1/2
|
||||||
AD POS1/2 # OVFL GUARANTEED.
|
AD POS1/2 # OVFL GUARANTEED.
|
||||||
ADS TUSED # B(TUSED) =-TUSED =-OLTIME1
|
ADS TUSED # B(TUSED) =-TUSED =-OLTIME1
|
||||||
|
|
||||||
CA -T-3 # =-T +2 -5 (SEE SETJTAG)
|
CA -T-3 # =-T +2 -5 (SEE SETJTAG)
|
||||||
# THE +2 REQUIRED FOR PROPER BRANCH.
|
# THE +2 REQUIRED FOR PROPER BRANCH.
|
||||||
ADS TUSED # TUSED = TIME(K)-TIME(K-1)-T+2
|
ADS TUSED # TUSED = TIME(K)-TIME(K-1)-T+2
|
||||||
|
|
||||||
CS TWO # USE 2 SINCE TIME3 UNCERTAIN TO 1
|
CS TWO # USE 2 SINCE TIME3 UNCERTAIN TO 1
|
||||||
AD TON1
|
AD TON1
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -1036,7 +1036,7 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL.
|
|||||||
INDEX JNDX
|
INDEX JNDX
|
||||||
CAF P/RJCODE
|
CAF P/RJCODE
|
||||||
TS T1BITS
|
TS T1BITS
|
||||||
|
|
||||||
CA TON1
|
CA TON1
|
||||||
ADS TUSED
|
ADS TUSED
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -1076,11 +1076,11 @@ TIMETST3 TS TON1
|
|||||||
TIMETST4 TS TOFF
|
TIMETST4 TS TOFF
|
||||||
TIMETST5 CS ONE
|
TIMETST5 CS ONE
|
||||||
TS TON2
|
TS TON2
|
||||||
|
|
||||||
# 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 CORRESPONDING 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.
|
||||||
|
|
||||||
@ -1110,18 +1110,18 @@ JETCALL2 XCH L # SAVE JET BITS FOR AFTER WTLST CALL
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR JETCALL
|
2CADR JETCALL
|
||||||
|
|
||||||
JETACTN CA NUJET # COME HERE WHEN DESIRED JET CODE IS KNOWN
|
JETACTN CA NUJET # COME HERE WHEN DESIRED JET CODE IS KNOWN
|
||||||
# Page 1089
|
# Page 1089
|
||||||
EXTEND # NO NEED TO SAVE OLD CODES
|
EXTEND # NO NEED TO SAVE OLD CODES
|
||||||
WRITE ROLLJETS # SET RCHAN TO NEW BIT CONFIG.
|
WRITE ROLLJETS # SET RCHAN TO NEW BIT CONFIG.
|
||||||
|
|
||||||
CCS OUTTAG
|
CCS OUTTAG
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
ROLLDUMP TC CM/FDAIR
|
ROLLDUMP TC CM/FDAIR
|
||||||
|
|
||||||
# EDIT DUMP AT ABOVE LOCATION.
|
# EDIT DUMP AT ABOVE LOCATION.
|
||||||
|
|
||||||
# WAITLIST ENTRIES COME HERE.
|
# WAITLIST ENTRIES COME HERE.
|
||||||
|
|
||||||
JETCALL CAF BIT2 # CM/DSTBY =103D BIT2
|
JETCALL CAF BIT2 # CM/DSTBY =103D BIT2
|
||||||
@ -1131,7 +1131,7 @@ JETCALL CAF BIT2 # CM/DSTBY =103D BIT2
|
|||||||
BZF JETACTN +1 # YES, QUENCH ROLL JETS, IF ON AND EXIT.
|
BZF JETACTN +1 # YES, QUENCH ROLL JETS, IF ON AND EXIT.
|
||||||
ZL # NO, CONTINUE.
|
ZL # NO, CONTINUE.
|
||||||
TCF JETCALL3 # C(A) POS, C(L) = +0
|
TCF JETCALL3 # C(A) POS, C(L) = +0
|
||||||
|
|
||||||
# DEAD ZONE ENTRIES COME HERE.
|
# DEAD ZONE ENTRIES COME HERE.
|
||||||
|
|
||||||
DZCALL CS CMDAPMOD # POSSIBLE VALUES OF CMDAPMOD: -1, +0, -0.
|
DZCALL CS CMDAPMOD # POSSIBLE VALUES OF CMDAPMOD: -1, +0, -0.
|
||||||
@ -1145,7 +1145,7 @@ DZCALL CS CMDAPMOD # POSSIBLE VALUES OF CMDAPMOD: -1, +0, -0.
|
|||||||
TC ANGOVCOR # C(A)=ROLL/180 OR 2 ROLLC.
|
TC ANGOVCOR # C(A)=ROLL/180 OR 2 ROLLC.
|
||||||
TS ROLLHOLD # IF CMDAPMOD =-0, SAVE ROLL ANGLE.
|
TS ROLLHOLD # IF CMDAPMOD =-0, SAVE ROLL ANGLE.
|
||||||
# OTHERWISE, SAVE ROLL COMMAND.
|
# OTHERWISE, SAVE ROLL COMMAND.
|
||||||
|
|
||||||
CA ZERO # COME HERE IF IN DZ, AND CANCEL JETS.
|
CA ZERO # COME HERE IF IN DZ, AND CANCEL JETS.
|
||||||
EXTEND # INHINT NOT NEEDED HERE.
|
EXTEND # INHINT NOT NEEDED HERE.
|
||||||
WRITE ROLLJETS # TURN OFF ALL ROLL JETS.
|
WRITE ROLLJETS # TURN OFF ALL ROLL JETS.
|
||||||
@ -1173,33 +1173,33 @@ CM/FDAI CS PHIDOT # INTEGRATE ROLL ERROR 'TWEEN 2SEC UPDATES
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP HALF
|
MP HALF
|
||||||
ADS PAXERR1 # ROLL ERROR/360. OVFL OK.
|
ADS PAXERR1 # ROLL ERROR/360. OVFL OK.
|
||||||
|
|
||||||
# EDIT DUMP AT ABOVE LOCATION.
|
# EDIT DUMP AT ABOVE LOCATION.
|
||||||
CM/FDAIR CA HALF
|
CM/FDAIR CA HALF
|
||||||
EXTEND
|
EXTEND
|
||||||
MP PAXERR1 # FULL SCALE FOR FDAI (ROLL) IS 67.5 D
|
MP PAXERR1 # FULL SCALE FOR FDAI (ROLL) IS 67.5 D
|
||||||
TS PAXERR # .25 (ROLL ERROR/180) FOR FDAI NEEDLE.
|
TS PAXERR # .25 (ROLL ERROR/180) FOR FDAI NEEDLE.
|
||||||
|
|
||||||
# PROGRAM TO FILE BODY RATES FOR TM ON ONE PASS AND
|
# PROGRAM TO FILE BODY RATES FOR TM ON ONE PASS AND
|
||||||
# TO UPDATE THE NEEDLE DISPLAY ON THE NEXT.
|
# TO UPDATE THE NEEDLE DISPLAY ON THE NEXT.
|
||||||
# SYNCHRONIZATION WITH CM/RCS IS USED SO THAT THE TM
|
# SYNCHRONIZATION WITH CM/RCS IS USED SO THAT THE TM
|
||||||
# IS DONE WITH THE ROLL SYSTEM AND NEEDLES START ON
|
# IS DONE WITH THE ROLL SYSTEM AND NEEDLES START ON
|
||||||
# THE SUBSEQUENT PASS.
|
# THE SUBSEQUENT PASS.
|
||||||
|
|
||||||
CM/DUMPR CS SW/NDX # COMBINED ALTERNATION SWITCH AND FILE
|
CM/DUMPR CS SW/NDX # COMBINED ALTERNATION SWITCH AND FILE
|
||||||
TS SW/NDX
|
TS SW/NDX
|
||||||
EXTEND # INDEX
|
EXTEND # INDEX
|
||||||
BZMF CMTMFILE # FILE STARTS WITH SW/NDX +1 AND GOES TO
|
BZMF CMTMFILE # FILE STARTS WITH SW/NDX +1 AND GOES TO
|
||||||
# ENDBUF.
|
# ENDBUF.
|
||||||
# INDEX IS POS FOR NEEDLES.
|
# INDEX IS POS FOR NEEDLES.
|
||||||
|
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR NEEDLER
|
CADR NEEDLER
|
||||||
|
|
||||||
TC CM/END
|
TC CM/END
|
||||||
|
|
||||||
# INDEX IS NEG FOR TM FILE
|
# INDEX IS NEG FOR TM FILE
|
||||||
|
|
||||||
CMTMFILE AD THREE
|
CMTMFILE AD THREE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF SAVENDX
|
BZMF SAVENDX
|
||||||
@ -1216,16 +1216,16 @@ SAVENDX TS SW/NDX # A NEGATIVE NUMBER.
|
|||||||
CA RREL
|
CA RREL
|
||||||
INDEX SW/NDX
|
INDEX SW/NDX
|
||||||
TS ENDBUF +1
|
TS ENDBUF +1
|
||||||
|
|
||||||
CM/END CA CM/SAVE
|
CM/END CA CM/SAVE
|
||||||
TS SR
|
TS SR
|
||||||
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA T5IDLER2
|
DCA T5IDLER2
|
||||||
DXCH T5LOC
|
DXCH T5LOC
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
EBANK= T5LOC
|
EBANK= T5LOC
|
||||||
T5IDLER2 2CADR T5IDLOC
|
T5IDLER2 2CADR T5IDLOC
|
||||||
|
|
||||||
@ -1241,7 +1241,7 @@ T5IDLER2 2CADR T5IDLOC
|
|||||||
# Q PITCH RATE
|
# Q PITCH RATE
|
||||||
# R YAW RATE
|
# R YAW RATE
|
||||||
# ETC.
|
# ETC.
|
||||||
|
|
||||||
#CMTMTIME = UPBUFF
|
#CMTMTIME = UPBUFF
|
||||||
#SW/NDX = UPBUFF +1
|
#SW/NDX = UPBUFF +1
|
||||||
#ENDBUF = UPBUFF +16D
|
#ENDBUF = UPBUFF +16D
|
||||||
@ -1249,7 +1249,7 @@ T5IDLER2 2CADR T5IDLOC
|
|||||||
# Page 1092
|
# Page 1092
|
||||||
# SPACER
|
# SPACER
|
||||||
#
|
#
|
||||||
# CONSTANTS USED IN THE ROLL CONTROL SYSTEM:
|
# CONSTANTS USED IN THE ROLL CONTROL SYSTEM:
|
||||||
# CONSTANTS ARE THE FOLLOWING: A = 9.1 DEG/SECSQ, VM = 20 DEG/SEC, T = 2 SEC, TCDU = .1 SEC,
|
# CONSTANTS ARE THE FOLLOWING: A = 9.1 DEG/SECSQ, VM = 20 DEG/SEC, T = 2 SEC, TCDU = .1 SEC,
|
||||||
# XMIN = 4 DEG, VMIN = 2 DEG/SEC, K = .25, A1 = 4.55 DEG/SECSQ, VI = 1 DEG/SEC, INTERCEPT WITH DZ SIDE
|
# XMIN = 4 DEG, VMIN = 2 DEG/SEC, K = .25, A1 = 4.55 DEG/SECSQ, VI = 1 DEG/SEC, INTERCEPT WITH DZ SIDE
|
||||||
# XBUF = 4DEG
|
# XBUF = 4DEG
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
# Pages: 1262-1308
|
# Pages: 1262-1308
|
||||||
# Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrected: Fixed four interpreter
|
# 2009-05-20 RSB Corrected: Fixed four interpreter
|
||||||
# instructions.
|
# instructions.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -18,13 +18,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -77,7 +77,7 @@
|
|||||||
# IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
|
# IF A NEGATIVE TIME-OF-FLIGHT IS INPUT, THE PROGRAM WILL SOLVE FOR THE STATE WHICH WOULD BE PRODUCED BY
|
||||||
# EXTRAPOLATING THE POSITION BACKWARD IN TIME.
|
# EXTRAPOLATING THE POSITION BACKWARD IN TIME.
|
||||||
#
|
#
|
||||||
# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
|
# IF THE ABSOLUTE VALUE DESIRED TRANSFER TIME EXCEEDS THE ORBITAL PERIOD, THE SUBROUTINE, THROUGH A
|
||||||
# MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
|
# MODULAR TECHNIQUE, WILL COMPUTE THE STATE CORRESPONDING TO THE DESIRED TIME AS USUAL.
|
||||||
#
|
#
|
||||||
# THE RESTRICTIONS ARE --
|
# THE RESTRICTIONS ARE --
|
||||||
@ -581,7 +581,7 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 12/CONIC
|
COUNT 12/CONIC
|
||||||
|
|
||||||
EBANK= UR1
|
EBANK= UR1
|
||||||
KEPLERN SETPD BOV
|
KEPLERN SETPD BOV
|
||||||
0
|
0
|
||||||
@ -602,7 +602,7 @@ KEPLERN SETPD BOV
|
|||||||
DMP SL1R
|
DMP SL1R
|
||||||
1/ROOTMU # 1/ROOTMU (-17 OR -14)
|
1/ROOTMU # 1/ROOTMU (-17 OR -14)
|
||||||
STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
|
STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
|
||||||
|
|
||||||
VRECT
|
VRECT
|
||||||
VSQ DMPR
|
VSQ DMPR
|
||||||
1/MU # 1/MU (-34 OR -28)
|
1/MU # 1/MU (-34 OR -28)
|
||||||
@ -632,25 +632,25 @@ KEPLERN SETPD BOV
|
|||||||
BOV
|
BOV
|
||||||
STOREMAX
|
STOREMAX
|
||||||
STOREMAX STORE XMAX
|
STOREMAX STORE XMAX
|
||||||
DMP PDDL
|
DMP PDDL
|
||||||
1/ROOTMU
|
1/ROOTMU
|
||||||
ALPHA
|
ALPHA
|
||||||
NORM PDDL
|
NORM PDDL
|
||||||
X1
|
X1
|
||||||
SL* DDV
|
SL* DDV
|
||||||
0 -6,1
|
0 -6,1
|
||||||
BOV BMN
|
BOV BMN
|
||||||
MODDONE
|
MODDONE
|
||||||
MODDONE # MPAC=PERIOD
|
MODDONE # MPAC=PERIOD
|
||||||
PERIODCH PDDL ABS # 0D=PERIOD
|
PERIODCH PDDL ABS # 0D=PERIOD
|
||||||
TAU.
|
TAU.
|
||||||
DSU BMN
|
DSU BMN
|
||||||
0D
|
0D
|
||||||
MODDONE
|
MODDONE
|
||||||
SIGN
|
SIGN
|
||||||
TAU.
|
TAU.
|
||||||
STODL TAU.
|
STODL TAU.
|
||||||
GOTO
|
GOTO
|
||||||
PERIODCH
|
PERIODCH
|
||||||
MODDONE SETPD DLOAD
|
MODDONE SETPD DLOAD
|
||||||
0
|
0
|
||||||
@ -675,7 +675,7 @@ STORBNDS DLOAD BPL
|
|||||||
DXCOMP
|
DXCOMP
|
||||||
STOREMIN DLOAD
|
STOREMIN DLOAD
|
||||||
KEPZERO
|
KEPZERO
|
||||||
STORE XMIN
|
STORE XMIN
|
||||||
DXCOMP DLOAD DMPR
|
DXCOMP DLOAD DMPR
|
||||||
# Page 1279
|
# Page 1279
|
||||||
TAU.
|
TAU.
|
||||||
@ -727,7 +727,7 @@ KEPLOOP DLOAD DSQ
|
|||||||
NDXCHNGE
|
NDXCHNGE
|
||||||
NDXCHNGE
|
NDXCHNGE
|
||||||
DLOAD GOTO
|
DLOAD GOTO
|
||||||
# Page 1280
|
# Page 1280
|
||||||
0D
|
0D
|
||||||
NEWDELX
|
NEWDELX
|
||||||
|
|
||||||
@ -770,11 +770,11 @@ PDXCHNGE DLOAD DSU
|
|||||||
|
|
||||||
BADX DLOAD SR1
|
BADX DLOAD SR1
|
||||||
XMAX
|
XMAX
|
||||||
SIGN
|
SIGN
|
||||||
TAU.
|
TAU.
|
||||||
STCALL X
|
STCALL X
|
||||||
STORBNDS
|
STORBNDS
|
||||||
# Page 1281
|
# Page 1281
|
||||||
TIMEOVFL DLOAD BMN # X WAS TOO BIG
|
TIMEOVFL DLOAD BMN # X WAS TOO BIG
|
||||||
X
|
X
|
||||||
NEGTOVFL
|
NEGTOVFL
|
||||||
@ -852,25 +852,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
|
|||||||
TC POLY
|
TC POLY
|
||||||
DEC 8
|
DEC 8
|
||||||
2DEC .083333334
|
2DEC .083333334
|
||||||
|
|
||||||
2DEC -.266666684
|
2DEC -.266666684
|
||||||
|
|
||||||
2DEC .406349155
|
2DEC .406349155
|
||||||
|
|
||||||
2DEC -.361198675
|
2DEC -.361198675
|
||||||
|
|
||||||
2DEC .210153242
|
2DEC .210153242
|
||||||
|
|
||||||
2DEC -.086221951
|
2DEC -.086221951
|
||||||
|
|
||||||
2DEC .026268812
|
2DEC .026268812
|
||||||
|
|
||||||
2DEC -.006163316
|
2DEC -.006163316
|
||||||
|
|
||||||
2DEC .001177342
|
2DEC .001177342
|
||||||
|
|
||||||
2DEC -.000199055
|
2DEC -.000199055
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
STODL S(XI)
|
STODL S(XI)
|
||||||
XI
|
XI
|
||||||
@ -878,25 +878,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
|
|||||||
TC POLY
|
TC POLY
|
||||||
DEC 8
|
DEC 8
|
||||||
2DEC .031250001
|
2DEC .031250001
|
||||||
|
|
||||||
2DEC -.166666719
|
2DEC -.166666719
|
||||||
|
|
||||||
2DEC .355555413
|
2DEC .355555413
|
||||||
|
|
||||||
2DEC -.406347410
|
2DEC -.406347410
|
||||||
|
|
||||||
2DEC .288962094
|
2DEC .288962094
|
||||||
|
|
||||||
2DEC -.140117894
|
2DEC -.140117894
|
||||||
|
|
||||||
2DEC .049247387
|
2DEC .049247387
|
||||||
|
|
||||||
2DEC -.013081923
|
2DEC -.013081923
|
||||||
|
|
||||||
2DEC .002806389
|
2DEC .002806389
|
||||||
|
|
||||||
2DEC -.000529414
|
2DEC -.000529414
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
# Page 1284
|
# Page 1284
|
||||||
DMP SRR* # PL AT 0
|
DMP SRR* # PL AT 0
|
||||||
@ -1107,7 +1107,7 @@ COGLOLIM 2DEC -.999511597
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 12/CONIC
|
COUNT 12/CONIC
|
||||||
|
|
||||||
TIMETHET STQ SETPD # PL AT 0
|
TIMETHET STQ SETPD # PL AT 0
|
||||||
RTNTT
|
RTNTT
|
||||||
0
|
0
|
||||||
@ -1152,10 +1152,10 @@ PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
|
|||||||
37777 # GAMMA ALWAYS LESS THAN 180DEG
|
37777 # GAMMA ALWAYS LESS THAN 180DEG
|
||||||
GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
|
GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
|
||||||
STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
|
STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
|
||||||
# Page 1290
|
# Page 1290
|
||||||
SR DDV
|
SR DDV
|
||||||
5
|
5
|
||||||
|
|
||||||
36D
|
36D
|
||||||
STOVL* COGA
|
STOVL* COGA
|
||||||
MUTABLE,1
|
MUTABLE,1
|
||||||
@ -1220,7 +1220,7 @@ HAVENORM ABVAL SIGN
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 12/CONIC
|
COUNT 12/CONIC
|
||||||
|
|
||||||
GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
|
GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
|
||||||
3
|
3
|
||||||
S2
|
S2
|
||||||
@ -1268,17 +1268,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
|
|||||||
TC POLY
|
TC POLY
|
||||||
DEC 5
|
DEC 5
|
||||||
2DEC .5
|
2DEC .5
|
||||||
|
|
||||||
2DEC -.166666770
|
2DEC -.166666770
|
||||||
|
|
||||||
2DEC .100000392
|
2DEC .100000392
|
||||||
|
|
||||||
2DEC -.071401086
|
2DEC -.071401086
|
||||||
|
|
||||||
2DEC .055503292
|
2DEC .055503292
|
||||||
|
|
||||||
2DEC -.047264098
|
2DEC -.047264098
|
||||||
|
|
||||||
2DEC .040694204
|
2DEC .040694204
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -1292,7 +1292,7 @@ XCOMMON DSQ NORM
|
|||||||
R1A
|
R1A
|
||||||
0 -12D,1
|
0 -12D,1
|
||||||
STODL XI # XI (+6)
|
STODL XI # XI (+6)
|
||||||
|
|
||||||
R1
|
R1
|
||||||
SR1 SQRT
|
SR1 SQRT
|
||||||
ROUND DMP
|
ROUND DMP
|
||||||
@ -1486,7 +1486,7 @@ LAMBLOOP DMP
|
|||||||
0 -8D,1
|
0 -8D,1
|
||||||
D1/32
|
D1/32
|
||||||
STODL R1A # R1A=2-P(1+COGA COGA) (+6)
|
STODL R1A # R1A=2-P(1+COGA COGA) (+6)
|
||||||
|
|
||||||
P
|
P
|
||||||
BOV CALL
|
BOV CALL
|
||||||
HIENERGY
|
HIENERGY
|
||||||
@ -1558,7 +1558,7 @@ SUFFCHEK DLOAD ABS
|
|||||||
INITV
|
INITV
|
||||||
SOLNSW
|
SOLNSW
|
||||||
RTNLAMB
|
RTNLAMB
|
||||||
|
|
||||||
360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
|
360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
|
||||||
0
|
0
|
||||||
SOLNSW
|
SOLNSW
|
||||||
@ -1579,7 +1579,7 @@ NOGUESS SSP DLOAD
|
|||||||
LOLIM DLOAD GOTO
|
LOLIM DLOAD GOTO
|
||||||
COGLOLIM # COGLOLIM=-.999511597
|
COGLOLIM # COGLOLIM=-.999511597
|
||||||
MINCOGA
|
MINCOGA
|
||||||
|
|
||||||
INITV DLOAD NORM
|
INITV DLOAD NORM
|
||||||
R1
|
R1
|
||||||
X1
|
X1
|
||||||
@ -1619,7 +1619,7 @@ TARGETV DLOAD CALL
|
|||||||
TIMERAD STQ SETPD # PL AT 0
|
TIMERAD STQ SETPD # PL AT 0
|
||||||
RTNTR
|
RTNTR
|
||||||
0
|
0
|
||||||
BOV
|
BOV
|
||||||
+1
|
+1
|
||||||
VLOAD PDVL # PL AT 6
|
VLOAD PDVL # PL AT 6
|
||||||
RVEC
|
RVEC
|
||||||
@ -1663,7 +1663,7 @@ TIMERAD STQ SETPD # PL AT 0
|
|||||||
BADR2
|
BADR2
|
||||||
SQRT SIGN
|
SQRT SIGN
|
||||||
SGNRDOT
|
SGNRDOT
|
||||||
CLEAR
|
CLEAR
|
||||||
APSESW
|
APSESW
|
||||||
|
|
||||||
# Page 1302
|
# Page 1302
|
||||||
@ -1755,23 +1755,23 @@ ABTCONIC EXIT
|
|||||||
# Page 1305
|
# Page 1305
|
||||||
SETLOC CONICS1
|
SETLOC CONICS1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 04/CONIC
|
COUNT 04/CONIC
|
||||||
|
|
||||||
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
||||||
|
|
||||||
2DEC* .25087606 E-10 B+34* # 1/MUE
|
2DEC* .25087606 E-10 B+34* # 1/MUE
|
||||||
|
|
||||||
2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
|
2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
|
||||||
|
|
||||||
2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
|
2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
|
||||||
|
|
||||||
2DEC 4.902778 E8 B-30 # MUM
|
2DEC 4.902778 E8 B-30 # MUM
|
||||||
|
|
||||||
2DEC .203966 E-8 B+28 # 1/MUM
|
2DEC .203966 E-8 B+28 # 1/MUM
|
||||||
|
|
||||||
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
|
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
|
||||||
|
|
||||||
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
|
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
|
||||||
|
|
||||||
LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
|
LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.
|
||||||
|
|||||||
@ -14,13 +14,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
|
|
||||||
# Page 1
|
# Page 1
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -31,7 +31,7 @@
|
|||||||
BANK 22
|
BANK 22
|
||||||
SETLOC COMGEOM1
|
SETLOC COMGEOM1
|
||||||
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 WITH THE SEXTANT LINE OF SIGHT.
|
# VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT.
|
||||||
#
|
#
|
||||||
@ -43,7 +43,7 @@
|
|||||||
# OUTPUT IS ALSO AVAILABLE AT MPAC.
|
# OUTPUT IS ALSO AVAILABLE AT MPAC.
|
||||||
|
|
||||||
COUNT 23/GEOM
|
COUNT 23/GEOM
|
||||||
|
|
||||||
SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
||||||
5,1 # TRUNNION = TA
|
5,1 # TRUNNION = TA
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
@ -54,15 +54,15 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
|||||||
3,1 # SHAFT = SA
|
3,1 # SHAFT = SA
|
||||||
RTB PUSH # PD4 = SA
|
RTB PUSH # PD4 = SA
|
||||||
CDULOGIC
|
CDULOGIC
|
||||||
|
|
||||||
COS DMP
|
COS DMP
|
||||||
2
|
2
|
||||||
STODL STARM # COS(SA)SIN(TA)
|
STODL STARM # COS(SA)SIN(TA)
|
||||||
|
|
||||||
SIN DMP
|
SIN DMP
|
||||||
STADR
|
STADR
|
||||||
STODL STARM +2 # SIN(SA)SIN(TA)
|
STODL STARM +2 # SIN(SA)SIN(TA)
|
||||||
|
|
||||||
COS
|
COS
|
||||||
STOVL STARM +4
|
STOVL STARM +4
|
||||||
STARM # STARM = 32D
|
STARM # STARM = 32D
|
||||||
@ -70,7 +70,7 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
|
|||||||
NB1NB2
|
NB1NB2
|
||||||
STORE 32D
|
STORE 32D
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
|
SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
|
||||||
ADS MPAC
|
ADS MPAC
|
||||||
CAF QUARTER
|
CAF QUARTER
|
||||||
@ -133,11 +133,11 @@ SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
|
|||||||
MXV VSL1
|
MXV VSL1
|
||||||
NB2NB1
|
NB2NB1
|
||||||
STORE ZNB1
|
STORE ZNB1
|
||||||
|
|
||||||
RTB RTB
|
RTB RTB
|
||||||
TRANSP1
|
TRANSP1
|
||||||
TRANSP2
|
TRANSP2
|
||||||
|
|
||||||
SXTANG1 VLOAD VXV
|
SXTANG1 VLOAD VXV
|
||||||
ZNB1
|
ZNB1
|
||||||
STAR
|
STAR
|
||||||
@ -146,12 +146,12 @@ SXTANG1 VLOAD VXV
|
|||||||
UNIT BOV
|
UNIT BOV
|
||||||
ZNB=S1
|
ZNB=S1
|
||||||
STORE PDA # PDA = UNIT(ZNB X S)
|
STORE PDA # PDA = UNIT(ZNB X S)
|
||||||
|
|
||||||
DOT DCOMP
|
DOT DCOMP
|
||||||
XNB1
|
XNB1
|
||||||
STOVL SINTH # SIN(SA) = PDA . -XNB
|
STOVL SINTH # SIN(SA) = PDA . -XNB
|
||||||
PDA
|
PDA
|
||||||
|
|
||||||
DOT
|
DOT
|
||||||
YNB1
|
YNB1
|
||||||
STCALL COSTH # COS(SA) = PDA . YNB
|
STCALL COSTH # COS(SA) = PDA . YNB
|
||||||
@ -185,7 +185,7 @@ ZNB=S1 DLOAD
|
|||||||
STODL SAC
|
STODL SAC
|
||||||
20DEGS-
|
20DEGS-
|
||||||
STORE PAC
|
STORE PAC
|
||||||
CLRGO
|
CLRGO
|
||||||
CULTFLAG
|
CULTFLAG
|
||||||
28D
|
28D
|
||||||
|
|
||||||
@ -226,13 +226,13 @@ SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
|
|||||||
VSL* VAD
|
VSL* VAD
|
||||||
0 -4,2
|
0 -4,2
|
||||||
VCV
|
VCV
|
||||||
VSL*
|
VSL*
|
||||||
0,2
|
0,2
|
||||||
STODL VN
|
STODL VN
|
||||||
TET
|
TET
|
||||||
STORE PIPTIME
|
STORE PIPTIME
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
SVDWN2 VLOAD VSL*
|
SVDWN2 VLOAD VSL*
|
||||||
TDELTAV
|
TDELTAV
|
||||||
0 -7,2
|
0 -7,2
|
||||||
@ -264,7 +264,7 @@ SVDWN2 VLOAD VSL*
|
|||||||
SETLOC POWFLIT2
|
SETLOC POWFLIT2
|
||||||
BANK
|
BANK
|
||||||
COUNT 23/GEOM
|
COUNT 23/GEOM
|
||||||
|
|
||||||
LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
||||||
MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
|
MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
|
||||||
NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
|
NEARLY1 # THE LOG OF THIS PART IS FOUND AND THE
|
||||||
@ -275,7 +275,7 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
|||||||
2DEC .031335467
|
2DEC .031335467
|
||||||
2DEC .0130145859
|
2DEC .0130145859
|
||||||
2DEC .0215738898
|
2DEC .0215738898
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS MPAC +2
|
TS MPAC +2
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -284,15 +284,15 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
|
|||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
COM # LOAD POSITIVE SHIFT COUNT IN A.
|
COM # LOAD POSITIVE SHIFT COUNT IN A.
|
||||||
TC SHORTMP # MULTIPLY BY SHIFT COUNT.
|
TC SHORTMP # MULTIPLY BY SHIFT COUNT.
|
||||||
|
|
||||||
DXCH MPAC +1
|
DXCH MPAC +1
|
||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
DAS MPAC
|
DAS MPAC
|
||||||
TC INTPRET # RESULT IN MPAC, MPAC +1
|
TC INTPRET # RESULT IN MPAC, MPAC +1
|
||||||
|
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
NEARLY1 2DEC .999999999
|
NEARLY1 2DEC .999999999
|
||||||
|
|
||||||
# Page 292
|
# Page 292
|
||||||
@ -321,7 +321,7 @@ CLOG2/32 2DEC .0216608494
|
|||||||
# RTNORM = RTEAST * UNITW
|
# RTNORM = RTEAST * UNITW
|
||||||
#
|
#
|
||||||
# FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
|
# FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
|
# CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
|
||||||
# STCALL DTEAROT STCALL DTEAROT
|
# STCALL DTEAROT STCALL DTEAROT
|
||||||
# EARROT1 EARROT2
|
# EARROT1 EARROT2
|
||||||
@ -347,17 +347,17 @@ CLOG2/32 2DEC .0216608494
|
|||||||
# DEBRIS: QPRET, PDL+0 ... PDL+5
|
# DEBRIS: QPRET, PDL+0 ... PDL+5
|
||||||
# Page 294
|
# Page 294
|
||||||
EBANK= RTINIT
|
EBANK= RTINIT
|
||||||
|
|
||||||
EARROT1 VLOAD VXV
|
EARROT1 VLOAD VXV
|
||||||
UNITW # FULL UNIT VECTOR
|
UNITW # FULL UNIT VECTOR
|
||||||
RTINIT # .5 UNIT
|
RTINIT # .5 UNIT
|
||||||
STORE RTEAST # .5 UNIT
|
STORE RTEAST # .5 UNIT
|
||||||
|
|
||||||
VXV
|
VXV
|
||||||
UNITW # FULL UNIT
|
UNITW # FULL UNIT
|
||||||
STODL RTNORM # .5 UNIT
|
STODL RTNORM # .5 UNIT
|
||||||
DTEAROT # (-28) CS
|
DTEAROT # (-28) CS
|
||||||
|
|
||||||
EARROT2 BOVB DDV
|
EARROT2 BOVB DDV
|
||||||
TCDANZIG # RESET OVFIND, IF ON
|
TCDANZIG # RESET OVFIND, IF ON
|
||||||
1/WIE
|
1/WIE
|
||||||
@ -373,19 +373,19 @@ EARROT2 BOVB DDV
|
|||||||
VAD UNIT # INSURE THAT RT IS "UNIT".
|
VAD UNIT # INSURE THAT RT IS "UNIT".
|
||||||
RTINIT # .5 UNIT
|
RTINIT # .5 UNIT
|
||||||
STORE RT # .5 UNIT TARGET VECTOR
|
STORE RT # .5 UNIT TARGET VECTOR
|
||||||
|
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
OVERADAY DLOAD SIGN
|
OVERADAY DLOAD SIGN
|
||||||
1/WIE
|
1/WIE
|
||||||
DTEAROT
|
DTEAROT
|
||||||
BDSU
|
BDSU
|
||||||
DTEAROT
|
DTEAROT
|
||||||
STORE DTEAROT
|
STORE DTEAROT
|
||||||
|
|
||||||
GOTO
|
GOTO
|
||||||
EARROT2
|
EARROT2
|
||||||
|
|
||||||
#WIE 2DEC .1901487997
|
#WIE 2DEC .1901487997
|
||||||
1/WIE 2DEC 8616410
|
1/WIE 2DEC 8616410
|
||||||
NB2NB1 2DEC +.8431756920 B-1
|
NB2NB1 2DEC +.8431756920 B-1
|
||||||
@ -415,4 +415,4 @@ NB1NB2 2DEC +.8431756920 B-1
|
|||||||
DEC -00000
|
DEC -00000
|
||||||
20DEG- DEC 03600
|
20DEG- DEC 03600
|
||||||
DEC 00000
|
DEC 00000
|
||||||
|
|
||||||
|
|||||||
@ -8,16 +8,16 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>
|
# Contact: Ron Burkey <info@sandroid.org>
|
||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
||||||
# name, and page images. Corrected various
|
# name, and page images. Corrected various
|
||||||
# typos in the transcription of program
|
# typos in the transcription of program
|
||||||
# comments, and these should be back-ported
|
# comments, and these should be back-ported
|
||||||
# to Colossus249.
|
# to Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -278,7 +278,7 @@
|
|||||||
# ... ... # TERMINATE RETURN
|
# ... ... # TERMINATE RETURN
|
||||||
# ... ... # PROCEED RETURN
|
# ... ... # PROCEED RETURN
|
||||||
# ... ... # ENTER OR RECYCLE RETURN
|
# ... ... # ENTER OR RECYCLE RETURN
|
||||||
#
|
#
|
||||||
# ... ... # IMMEDIATE RETURN TO THE USER
|
# ... ... # IMMEDIATE RETURN TO THE USER
|
||||||
|
|
||||||
# GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
|
# GOMARK1 IS USED FOR A PLEASE PERFORM ON A MARK REQUEST WITH ONLY 1 ASTRONAUT RETURN TO THE USER. NO IMMEDIATE
|
||||||
@ -509,7 +509,7 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/DSPLA
|
COUNT 02/DSPLA
|
||||||
|
|
||||||
BLANKET TS MPAC +6
|
BLANKET TS MPAC +6
|
||||||
CS PLAYTEM4
|
CS PLAYTEM4
|
||||||
MASK MPAC +6
|
MASK MPAC +6
|
||||||
@ -805,7 +805,7 @@ IFLEGAL CAF TWO
|
|||||||
|
|
||||||
PRIOBORT TC P00DOO
|
PRIOBORT TC P00DOO
|
||||||
OCT 1502
|
OCT 1502
|
||||||
# Page 1471
|
# Page 1471
|
||||||
|
|
||||||
OKTOPLAY TC COPIES2
|
OKTOPLAY TC COPIES2
|
||||||
|
|
||||||
@ -957,7 +957,7 @@ COPIES2 INHINT
|
|||||||
TS EBANKSAV # EQUIV TO DSPFLG
|
TS EBANKSAV # EQUIV TO DSPFLG
|
||||||
MASK CADRMASK # FLASH AND GODSPRET
|
MASK CADRMASK # FLASH AND GODSPRET
|
||||||
EXTEND
|
EXTEND
|
||||||
# Page 1474
|
# Page 1474
|
||||||
BZF SKIPADD
|
BZF SKIPADD
|
||||||
|
|
||||||
CA PLAYTEM3
|
CA PLAYTEM3
|
||||||
@ -1364,7 +1364,7 @@ MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
|
|||||||
CA FLAGWRD4 # IS ENDIDFLG SET
|
CA FLAGWRD4 # IS ENDIDFLG SET
|
||||||
MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
|
MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
|
||||||
CCS A
|
CCS A
|
||||||
# Page 1482
|
# Page 1482
|
||||||
TCF NORMBNCH
|
TCF NORMBNCH
|
||||||
|
|
||||||
NORMRET CA FLAGWRD4 # IS MARK SLEEPING
|
NORMRET CA FLAGWRD4 # IS MARK SLEEPING
|
||||||
|
|||||||
@ -10,14 +10,14 @@
|
|||||||
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
|
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
|
||||||
# and page images. Corrected various typos
|
# and page images. Corrected various typos
|
||||||
# in the transcription of program comments,
|
# in the transcription of program comments,
|
||||||
# and these should be back-ported to
|
# and these should be back-ported to
|
||||||
# Colossus249.
|
# Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -168,9 +168,9 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= DNTMBUFF
|
EBANK= DNTMBUFF
|
||||||
|
|
||||||
COUNT 05/DPROG
|
COUNT 05/DPROG
|
||||||
|
|
||||||
DODOWNTM TS BANKRUPT
|
DODOWNTM TS BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT # SAVE Q
|
QXCH QRUPT # SAVE Q
|
||||||
@ -423,7 +423,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
|
|||||||
TCF DNPHASE1 # YES -- SEND DOWNLIST AGAIN
|
TCF DNPHASE1 # YES -- SEND DOWNLIST AGAIN
|
||||||
# AGAIN
|
# AGAIN
|
||||||
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALZE NEXT BANK
|
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALZE NEXT BANK
|
||||||
|
|
||||||
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
|
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
|
||||||
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
|
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
|
||||||
|
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
||||||
# name and Comanche 055 page images.
|
# name and Comanche 055 page images.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -48,7 +48,7 @@
|
|||||||
# _
|
# _
|
||||||
# URT TARGET VECTOR 2 = RT
|
# URT TARGET VECTOR 2 = RT
|
||||||
# _
|
# _
|
||||||
# UNI UNIT NORMAL TO TRAJECTORY PLANE 2
|
# UNI UNIT NORMAL TO TRAJECTORY PLANE 2
|
||||||
# _
|
# _
|
||||||
# DELV INTEGRATED ACCEL. FROM PIPAS 5.85 16384 CM/S
|
# DELV INTEGRATED ACCEL. FROM PIPAS 5.85 16384 CM/S
|
||||||
# _
|
# _
|
||||||
@ -122,7 +122,7 @@
|
|||||||
#
|
#
|
||||||
# KLAT LATERAL SWITCH GAIN 1 (NOM = .0125)
|
# KLAT LATERAL SWITCH GAIN 1 (NOM = .0125)
|
||||||
#
|
#
|
||||||
# K2ROLL INDICATOR FOR ROLL SWITCH
|
# K2ROLL INDICATOR FOR ROLL SWITCH
|
||||||
#
|
#
|
||||||
# LAD MAX L/D (MIN ACTUAL VEHICLE L/D) 1
|
# LAD MAX L/D (MIN ACTUAL VEHICLE L/D) 1
|
||||||
#
|
#
|
||||||
@ -140,7 +140,7 @@
|
|||||||
#
|
#
|
||||||
# L/D DESIRED LIFT TO DRAG RATIO 1
|
# L/D DESIRED LIFT TO DRAG RATIO 1
|
||||||
# (VERTICAL PLANE)
|
# (VERTICAL PLANE)
|
||||||
#
|
#
|
||||||
# L/D1 TEMP STORAGE FOR L/D IN LATERAL 1
|
# L/D1 TEMP STORAGE FOR L/D IN LATERAL 1
|
||||||
#
|
#
|
||||||
# L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895)
|
# L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895)
|
||||||
@ -171,7 +171,7 @@
|
|||||||
# THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT
|
# THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT
|
||||||
#
|
#
|
||||||
# V VELOCITY MAGNITUDE 2 VSAT
|
# V VELOCITY MAGNITUDE 2 VSAT
|
||||||
#
|
#
|
||||||
# V1 INITIAL VELOCITY FOR UPCONTROL 2 VSAT
|
# V1 INITIAL VELOCITY FOR UPCONTROL 2 VSAT
|
||||||
#
|
#
|
||||||
# VL EXIT VELOCITY FOR UPCONTROL 2 VSAT
|
# VL EXIT VELOCITY FOR UPCONTROL 2 VSAT
|
||||||
@ -306,14 +306,14 @@
|
|||||||
# ATK ANGLE IN RAD TO NM 3437.7468 NM/RAD
|
# ATK ANGLE IN RAD TO NM 3437.7468 NM/RAD
|
||||||
# G5 NOMINAL G VALUE FOR SCALING 32.2 FPSS
|
# G5 NOMINAL G VALUE FOR SCALING 32.2 FPSS
|
||||||
# H5 ATMOSPHERE SCALE HEIGHT 28500 FT
|
# H5 ATMOSPHERE SCALE HEIGHT 28500 FT
|
||||||
# J GRAVITY HARMONIC COEFFICIENT .00162346
|
# J GRAVITY HARMONIC COEFFICIENT .00162346
|
||||||
# KWE EQUATORIAL EARTH RATE 1546.10168 FPS
|
# KWE EQUATORIAL EARTH RATE 1546.10168 FPS
|
||||||
# MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E14 CUBIC M/ SEC SEC
|
# MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E14 CUBIC M/ SEC SEC
|
||||||
# RE EARTH RADIUS 21202900 FT
|
# RE EARTH RADIUS 21202900 FT
|
||||||
# REQ EARTH EQUATORIAL RADIUS 20925738.2 FT
|
# REQ EARTH EQUATORIAL RADIUS 20925738.2 FT
|
||||||
# VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS
|
# VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS
|
||||||
# WIE EARTH RATE .0000729211505 RAD/SEC
|
# WIE EARTH RATE .0000729211505 RAD/SEC
|
||||||
|
|
||||||
# (END GSOP AS-278, VOL 1, FIG. 5.6-3 CONSTANTS, GAINS, ETC.)
|
# (END GSOP AS-278, VOL 1, FIG. 5.6-3 CONSTANTS, GAINS, ETC.)
|
||||||
|
|
||||||
# DISPLAY QUANTITIES
|
# DISPLAY QUANTITIES
|
||||||
@ -335,7 +335,7 @@
|
|||||||
# LAT PRESENT LATITUDE 1 REVOLUTION N 67
|
# LAT PRESENT LATITUDE 1 REVOLUTION N 67
|
||||||
# LONG PRESENT LONGITUDE 1 REVOLUTION N 67
|
# LONG PRESENT LONGITUDE 1 REVOLUTION N 67
|
||||||
# RTOGO RANGE ANGLE TO SPLASH FROM 1 REVOLUTION N 67
|
# RTOGO RANGE ANGLE TO SPLASH FROM 1 REVOLUTION N 67
|
||||||
# EMSALT FT ABOVE FISCHER RADIUS (IN NM)
|
# EMSALT FT ABOVE FISCHER RADIUS (IN NM)
|
||||||
# VIO PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 63
|
# VIO PREDICTED VELOCITY AT ALTITUDE 128 M/CENTISEC N 63
|
||||||
# EMSALT FT ABOVE FISCHER RADIUS.
|
# EMSALT FT ABOVE FISCHER RADIUS.
|
||||||
# TTE TIME OF FREE FALL TO ALT B 28 CENTISEC N 63
|
# TTE TIME OF FREE FALL TO ALT B 28 CENTISEC N 63
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -33,7 +33,7 @@
|
|||||||
# TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
|
# TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
|
||||||
|
|
||||||
COUNT 02/EXEC
|
COUNT 02/EXEC
|
||||||
|
|
||||||
NOVAC INHINT
|
NOVAC INHINT
|
||||||
AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
|
AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
|
||||||
TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
|
TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
|
||||||
@ -130,7 +130,7 @@ FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
|
|||||||
|
|
||||||
BANK 01
|
BANK 01
|
||||||
COUNT 01/EXEC
|
COUNT 01/EXEC
|
||||||
|
|
||||||
FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
|
FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
|
||||||
CCS VAC1USE
|
CCS VAC1USE
|
||||||
TCF VACFOUND
|
TCF VACFOUND
|
||||||
|
|||||||
@ -10,19 +10,19 @@
|
|||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
|
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
|
||||||
# 2009-05-20 RSB Corrections: POODOO -> P00DOO,
|
# 2009-05-20 RSB Corrections: POODOO -> P00DOO,
|
||||||
# GOTOPOOH -> GOTOP00H, added a couple of
|
# GOTOPOOH -> GOTOP00H, added a couple of
|
||||||
# missing instructions in Verb 96.
|
# missing instructions in Verb 96.
|
||||||
# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
|
# 2009-05-23 RSB In SYSTEST, corrected TC FLAGWRD1 to
|
||||||
# CA FLAGWRD1. Added a variety of SBANK=
|
# CA FLAGWRD1. Added a variety of SBANK=
|
||||||
# statements prior to 2CADRs. One day I'll
|
# statements prior to 2CADRs. One day I'll
|
||||||
# have to figure out what yaYUL is doing
|
# have to figure out what yaYUL is doing
|
||||||
# wrong with those ....
|
# wrong with those ....
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -40,16 +40,16 @@
|
|||||||
BANK 7
|
BANK 7
|
||||||
SETLOC EXTVERBS
|
SETLOC EXTVERBS
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= OGC
|
EBANK= OGC
|
||||||
|
|
||||||
COUNT* $$/EXTVB
|
COUNT* $$/EXTVB
|
||||||
|
|
||||||
# FAN-OUT
|
# FAN-OUT
|
||||||
|
|
||||||
GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
|
GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
|
||||||
TC LST2FAN # FAN AS BEFORE.
|
TC LST2FAN # FAN AS BEFORE.
|
||||||
|
|
||||||
LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY)
|
LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY)
|
||||||
TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
|
TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
|
||||||
# 91 ONLY)
|
# 91 ONLY)
|
||||||
@ -113,7 +113,7 @@ VERB69 TC VERB69 # VB69 CAUSE RESTART
|
|||||||
TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41)
|
TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41)
|
||||||
TC ALM/END # VB98 SPARE
|
TC ALM/END # VB98 SPARE
|
||||||
TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
|
TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
|
||||||
|
|
||||||
# END OF EXTENDED VERB FAN
|
# END OF EXTENDED VERB FAN
|
||||||
|
|
||||||
TESTXACT CCS EXTVBACT
|
TESTXACT CCS EXTVBACT
|
||||||
@ -121,20 +121,20 @@ TESTXACT CCS EXTVBACT
|
|||||||
CA FLAGWRD4 # ARE PRIOS USING DSKY
|
CA FLAGWRD4 # ARE PRIOS USING DSKY
|
||||||
MASK OC24100
|
MASK OC24100
|
||||||
CCS A
|
CCS A
|
||||||
TC ALM/END
|
TC ALM/END
|
||||||
|
|
||||||
CAF OCT24 # SET BITS 3 AND 5
|
CAF OCT24 # SET BITS 3 AND 5
|
||||||
SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
|
SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
|
||||||
# SYSTEM BUSY
|
# SYSTEM BUSY
|
||||||
|
|
||||||
CA Q
|
CA Q
|
||||||
TS MPAC +1
|
TS MPAC +1
|
||||||
|
|
||||||
CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
|
CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
|
||||||
TC NVSUB
|
TC NVSUB
|
||||||
TC +1
|
TC +1
|
||||||
TC MPAC +1
|
TC MPAC +1
|
||||||
|
|
||||||
XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
|
XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
|
||||||
TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
|
TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
|
||||||
# Page 238
|
# Page 238
|
||||||
@ -147,13 +147,13 @@ XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
|
|||||||
ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
|
ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
|
||||||
GOPIN TC POSTJUMP
|
GOPIN TC POSTJUMP
|
||||||
CADR PINBRNCH
|
CADR PINBRNCH
|
||||||
|
|
||||||
OC24100 OCT 24100
|
OC24100 OCT 24100
|
||||||
|
|
||||||
# Page 239
|
# Page 239
|
||||||
# VBZERO VERB 40 DESCRIPTION
|
# VBZERO VERB 40 DESCRIPTION
|
||||||
#
|
#
|
||||||
# 1. REQUIRE NOUN 20 (ICDU ANGLES)
|
# 1. REQUIRE NOUN 20 (ICDU ANGLES)
|
||||||
# 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
|
# 2. REQUIRE AVAILABILITY OF EXT VERB DISPLAY SYSTEM
|
||||||
# 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
|
# 3. IF EITHER OF ABOVE CONDITIONS NOT PRESENT, TURN ON OPERATOR ERROR LIGHT AND GO TO PINBRNCH.
|
||||||
# 4. SET EXT VERB DISPLAY ACTIVE FLAG.
|
# 4. SET EXT VERB DISPLAY ACTIVE FLAG.
|
||||||
@ -165,29 +165,29 @@ VBZERO TC OP/INERT
|
|||||||
TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
|
TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
|
||||||
TC ALM/END # RETURN HERE IF NOUN = OCDU(91)
|
TC ALM/END # RETURN HERE IF NOUN = OCDU(91)
|
||||||
# (NOT IN USE YET)
|
# (NOT IN USE YET)
|
||||||
|
|
||||||
IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO
|
IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUZERO
|
CADR IMUZERO
|
||||||
|
|
||||||
TC BANKCALL # STALL
|
TC BANKCALL # STALL
|
||||||
CADR IMUSTALL
|
CADR IMUSTALL
|
||||||
TC +1
|
TC +1
|
||||||
|
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
OP/INERT CS OCT24
|
OP/INERT CS OCT24
|
||||||
AD NOUNREG
|
AD NOUNREG
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF XACT0Q # IF = 20.
|
BZF XACT0Q # IF = 20.
|
||||||
|
|
||||||
INCR Q
|
INCR Q
|
||||||
AD OPIMDIFF # -71
|
AD OPIMDIFF # -71
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF XACT0Q
|
BZF XACT0Q
|
||||||
|
|
||||||
TC ALM/END # ILLEGAL.
|
TC ALM/END # ILLEGAL.
|
||||||
|
|
||||||
OPIMDIFF DEC -71
|
OPIMDIFF DEC -71
|
||||||
|
|
||||||
# Page 240
|
# Page 240
|
||||||
@ -235,30 +235,30 @@ OPIMDIFF DEC -71
|
|||||||
VBCOARK TC OP/INERT
|
VBCOARK TC OP/INERT
|
||||||
TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
|
TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
|
||||||
TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91)
|
TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91)
|
||||||
|
|
||||||
# RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91.
|
# RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91.
|
||||||
|
|
||||||
IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
|
IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
|
||||||
TC TESTXACT
|
TC TESTXACT
|
||||||
CAF VNLODCDU # CALL FOR THETAD LOAD
|
CAF VNLODCDU # CALL FOR THETAD LOAD
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
TC TERMEXTV
|
TC TERMEXTV
|
||||||
TCF +1
|
TCF +1
|
||||||
# Page 241
|
# Page 241
|
||||||
|
|
||||||
ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
|
ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR EXDSPRET
|
CADR EXDSPRET
|
||||||
|
|
||||||
TC BANKCALL # CALL MODE SWITCHING PROG
|
TC BANKCALL # CALL MODE SWITCHING PROG
|
||||||
CADR IMUCOARS
|
CADR IMUCOARS
|
||||||
|
|
||||||
TC BANKCALL # STALL
|
TC BANKCALL # STALL
|
||||||
CADR IMUSTALL
|
CADR IMUSTALL
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
|
|
||||||
VNLODCDU VN 2522
|
VNLODCDU VN 2522
|
||||||
IMUCOARV VN 4100
|
IMUCOARV VN 4100
|
||||||
|
|
||||||
@ -270,29 +270,29 @@ OPTCOARK CA OPTCADR
|
|||||||
TC TESTXACT
|
TC TESTXACT
|
||||||
CAF EBANK5
|
CAF EBANK5
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
|
CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
|
||||||
TC +5 # SWITCH AT COMPUTER
|
TC +5 # SWITCH AT COMPUTER
|
||||||
TC +1 # NOT ON COMPUTER
|
TC +1 # NOT ON COMPUTER
|
||||||
TC FALTON # TURN ON OPERATOR ERR
|
TC FALTON # TURN ON OPERATOR ERR
|
||||||
TC ALARM # AND ALARM
|
TC ALARM # AND ALARM
|
||||||
OCT 00115
|
OCT 00115
|
||||||
|
|
||||||
CCS OPTIND # SEE IF OPTICS AVAILABLE
|
CCS OPTIND # SEE IF OPTICS AVAILABLE
|
||||||
TC OPTC1 # IN USE
|
TC OPTC1 # IN USE
|
||||||
TC OPTC1 # IN USE
|
TC OPTC1 # IN USE
|
||||||
TC OPTC1 # IN USE
|
TC OPTC1 # IN USE
|
||||||
|
|
||||||
TC ALARM # OPTICS RESERVED (OPTIND=-0)
|
TC ALARM # OPTICS RESERVED (OPTIND=-0)
|
||||||
OCT 00117
|
OCT 00117
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
|
|
||||||
OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
|
OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
TC TERMEXTV
|
TC TERMEXTV
|
||||||
TC +1 # PROCEED
|
TC +1 # PROCEED
|
||||||
|
|
||||||
CA SAC
|
CA SAC
|
||||||
TS DESOPTS
|
TS DESOPTS
|
||||||
CA PAC
|
CA PAC
|
||||||
@ -300,13 +300,13 @@ OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
|
|||||||
CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
|
CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR EXDSPRET
|
CADR EXDSPRET
|
||||||
|
|
||||||
CAF ONE
|
CAF ONE
|
||||||
TS OPTIND # SET COARS WORKING
|
TS OPTIND # SET COARS WORKING
|
||||||
|
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
|
|
||||||
VNLD0CDU VN 2492
|
VNLD0CDU VN 2492
|
||||||
OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
|
OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
|
||||||
|
|
||||||
@ -336,27 +336,27 @@ IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING.
|
|||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
TC TERMEXTV
|
TC TERMEXTV
|
||||||
TC +1 # PROCEED WITHOUT A LOAD
|
TC +1 # PROCEED WITHOUT A LOAD
|
||||||
|
|
||||||
CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
|
CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR EXDSPRET
|
CADR EXDSPRET
|
||||||
|
|
||||||
TC BANKCALL # CALL MODE SWITCH PROG
|
TC BANKCALL # CALL MODE SWITCH PROG
|
||||||
CADR IMUFINE
|
CADR IMUFINE
|
||||||
|
|
||||||
TC BANKCALL # HIBERNATION
|
TC BANKCALL # HIBERNATION
|
||||||
CADR IMUSTALL
|
CADR IMUSTALL
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
|
|
||||||
FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
|
FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUPULSE
|
CADR IMUPULSE
|
||||||
|
|
||||||
TC BANKCALL # WAIT FOR PULSES TO GET OUT.
|
TC BANKCALL # WAIT FOR PULSES TO GET OUT.
|
||||||
CADR IMUSTALL
|
CADR IMUSTALL
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
TC ENDEXTVB
|
TC ENDEXTVB
|
||||||
|
|
||||||
LGYROBIN ECADR OGC
|
LGYROBIN ECADR OGC
|
||||||
VNLODGYR VN 2593
|
VNLODGYR VN 2593
|
||||||
IMUFINEV VN 4200 # FINE ALIGN VERB
|
IMUFINEV VN 4200 # FINE ALIGN VERB
|
||||||
@ -392,30 +392,30 @@ V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
|
|||||||
CA CDUZ
|
CA CDUZ
|
||||||
TS CPHIX +2
|
TS CPHIX +2
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# V61 VERB 61
|
# V61 VERB 61
|
||||||
V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
|
V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
|
||||||
ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
|
ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# V62 VERB 62
|
# V62 VERB 62
|
||||||
V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
|
V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
|
||||||
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
|
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
|
||||||
|
|
||||||
TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
|
TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
|
||||||
ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
|
ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# V63 VERB 63
|
# V63 VERB 63
|
||||||
V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
|
V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
|
||||||
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
|
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
|
||||||
|
|
||||||
TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6),
|
TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6),
|
||||||
# Page 245
|
# Page 245
|
||||||
ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
|
ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 246
|
# Page 246
|
||||||
# ALINTIME VERB 55 DESCRIPTION
|
# ALINTIME VERB 55 DESCRIPTION
|
||||||
#
|
#
|
||||||
# 1. SET EXT VERB DISPLAY BUSY FLAG.
|
# 1. SET EXT VERB DISPLAY BUSY FLAG.
|
||||||
@ -438,7 +438,7 @@ ALINTIME TC TESTXACT
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
|
BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
|
||||||
TC ENDEXT # WITH V23 (DATA IN).
|
TC ENDEXT # WITH V23 (DATA IN).
|
||||||
|
|
||||||
UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
|
UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS MPAC +2 # NEEDED FOR TP AGREE
|
TS MPAC +2 # NEEDED FOR TP AGREE
|
||||||
@ -447,7 +447,7 @@ UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
|
|||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
DXCH DSPTEM2 +1 # INCREMENT
|
DXCH DSPTEM2 +1 # INCREMENT
|
||||||
DAS MPAC
|
DAS MPAC
|
||||||
|
|
||||||
TC TPAGREE # FORCE SIGN AGREEMENT.
|
TC TPAGREE # FORCE SIGN AGREEMENT.
|
||||||
DXCH MPAC # NEW CLOCK.
|
DXCH MPAC # NEW CLOCK.
|
||||||
DAS TIME2
|
DAS TIME2
|
||||||
@ -471,10 +471,10 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
|
|||||||
# REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
|
# REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
|
||||||
|
|
||||||
EBANK= QPLACE
|
EBANK= QPLACE
|
||||||
|
|
||||||
COUNT 04/EXTVB
|
COUNT 04/EXTVB
|
||||||
|
|
||||||
SYSTEST TC CHKP00H
|
SYSTEST TC CHKP00H
|
||||||
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
|
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
|
||||||
MASK NOP01BIT
|
MASK NOP01BIT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -487,12 +487,12 @@ V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON
|
|||||||
EBANK= QPLACE
|
EBANK= QPLACE
|
||||||
SBANK= IMUSUPER
|
SBANK= IMUSUPER
|
||||||
2CADR REDO
|
2CADR REDO
|
||||||
|
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# REDO AND TSELECT ARE NOW IN SYSTEM TEST.
|
# REDO AND TSELECT ARE NOW IN SYSTEM TEST.
|
||||||
|
|
||||||
COUNT* $$/EXTVB
|
COUNT* $$/EXTVB
|
||||||
# CKOPTVB VERB 65 DESCRIPTION
|
# CKOPTVB VERB 65 DESCRIPTION
|
||||||
# OPTICAL VERIFICATION FOR PRELAUNCH.
|
# OPTICAL VERIFICATION FOR PRELAUNCH.
|
||||||
# 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
|
# 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
|
||||||
@ -505,9 +505,9 @@ CKOPTVB TC CHECKMM
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= QPLACE
|
EBANK= QPLACE
|
||||||
2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
|
2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
|
||||||
|
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 248
|
# Page 248
|
||||||
# V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
|
# V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
|
||||||
|
|
||||||
@ -519,7 +519,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= XSM
|
EBANK= XSM
|
||||||
2CADR AZMTHCG1
|
2CADR AZMTHCG1
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00174
|
OCT 00174
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
@ -536,20 +536,20 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
|
|||||||
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
|
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
|
||||||
# 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
|
# 6. IF BUSY FLAG SET, RESET IT TO RELEASE EXT VERB DISPLAY.
|
||||||
|
|
||||||
IMUATTCK TC CHKP00H
|
IMUATTCK TC CHKP00H
|
||||||
|
|
||||||
CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON
|
CAF OCTAL30 # SEE IF IMU ZERO AND IMU COARSE ARE ON
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND CHAN12
|
RAND CHAN12
|
||||||
CCS A
|
CCS A
|
||||||
TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
|
TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
|
||||||
|
|
||||||
TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
|
TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
|
||||||
TC TESTXACT # AFTER
|
TC TESTXACT # AFTER
|
||||||
CS OCT50 # REMOVE COARSE AND ECTR ENABLE
|
CS OCT50 # REMOVE COARSE AND ECTR ENABLE
|
||||||
EXTEND
|
EXTEND
|
||||||
WAND CHAN12
|
WAND CHAN12
|
||||||
|
|
||||||
CAF VNLODCDU
|
CAF VNLODCDU
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
@ -557,20 +557,20 @@ IMUATTCK TC CHKP00H
|
|||||||
TC +1
|
TC +1
|
||||||
CAF EBANK6
|
CAF EBANK6
|
||||||
TS EBANK # SET E6 FOR NEEDLES.
|
TS EBANK # SET E6 FOR NEEDLES.
|
||||||
|
|
||||||
EBANK= AK
|
EBANK= AK
|
||||||
|
|
||||||
TC BANKCALL # INITIALIZE CURRENT DAC AND
|
TC BANKCALL # INITIALIZE CURRENT DAC AND
|
||||||
CADR NEEDLE11 # COMMAND VALUES.
|
CADR NEEDLE11 # COMMAND VALUES.
|
||||||
|
|
||||||
TC BANKCALL # ENABLE ERROR COUNTERS.
|
TC BANKCALL # ENABLE ERROR COUNTERS.
|
||||||
CADR NEEDLER2
|
CADR NEEDLER2
|
||||||
|
|
||||||
CAF TWO # 4 MS MIN.
|
CAF TWO # 4 MS MIN.
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AK
|
EBANK= AK
|
||||||
2CADR ATTCK1
|
2CADR ATTCK1
|
||||||
|
|
||||||
TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
|
TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
|
||||||
TCF ENDEXT # AFTER
|
TCF ENDEXT # AFTER
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
@ -580,12 +580,12 @@ ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS.
|
|||||||
DXCH AK
|
DXCH AK
|
||||||
CAE THETAD +2
|
CAE THETAD +2
|
||||||
TS AK +2
|
TS AK +2
|
||||||
|
|
||||||
TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
|
TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
|
||||||
CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
|
CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
|
CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
|
||||||
MASK FLAGWRD5
|
MASK FLAGWRD5
|
||||||
CCS A
|
CCS A
|
||||||
@ -605,19 +605,19 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= RHOSB
|
EBANK= RHOSB
|
||||||
2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
|
2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
# ENATMA VERB 58 DESCRIPTION
|
# ENATMA VERB 58 DESCRIPTION
|
||||||
# ENABLE AUTOMATIC ATTITUDE MANEUVER
|
# ENABLE AUTOMATIC ATTITUDE MANEUVER
|
||||||
#
|
#
|
||||||
# VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC
|
# VERB58 RESETS STIKFLAG TO ENABLE R61 TO PERFORM AUTOMATIC TRACKING MANEUVERS, AFTER INTERRUPTS BY THE RHC
|
||||||
# ACTIVITY.
|
# ACTIVITY.
|
||||||
|
|
||||||
ENATMA TC DOWNFLAG # RESET STIKFLAG.
|
ENATMA TC DOWNFLAG # RESET STIKFLAG.
|
||||||
ADRES STIKFLAG # BIT 14 FLAG 1
|
ADRES STIKFLAG # BIT 14 FLAG 1
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 251
|
# Page 251
|
||||||
# STROKON VERB 68 DESCRIPTION
|
# STROKON VERB 68 DESCRIPTION
|
||||||
# STROKE TEST SETUP/ENABLE
|
# STROKE TEST SETUP/ENABLE
|
||||||
@ -635,9 +635,9 @@ STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC
|
|||||||
SBANK= PINSUPER # Added RSB 2009.
|
SBANK= PINSUPER # Added RSB 2009.
|
||||||
EBANK= STROKER
|
EBANK= STROKER
|
||||||
2CADR STRKTSTI
|
2CADR STRKTSTI
|
||||||
|
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# STABLISH VERB 46 DESCRIPTION
|
# STABLISH VERB 46 DESCRIPTION
|
||||||
# ESTABLISH G AND N AUTOPILOT CONTROL
|
# ESTABLISH G AND N AUTOPILOT CONTROL
|
||||||
# 1. SETS UP EITHER RCS, ENTRY, OR SATURN
|
# 1. SETS UP EITHER RCS, ENTRY, OR SATURN
|
||||||
@ -649,7 +649,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
|
|||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
CS FLAGWRD6 # TEST FOR TVC
|
CS FLAGWRD6 # TEST FOR TVC
|
||||||
MASK OCT60000
|
MASK OCT60000
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF +8
|
BZMF +8
|
||||||
|
|
||||||
@ -688,16 +688,16 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
|
|||||||
# 1. REPEAT FLASHING V06,N22.
|
# 1. REPEAT FLASHING V06,N22.
|
||||||
|
|
||||||
CREWMANU TC CHKP00H # DEMAND P00
|
CREWMANU TC CHKP00H # DEMAND P00
|
||||||
|
|
||||||
TC TESTXACT
|
TC TESTXACT
|
||||||
|
|
||||||
CAF PRIO10
|
CAF PRIO10
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= CPHI
|
EBANK= CPHI
|
||||||
2CADR R62DISP
|
2CADR R62DISP
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
# Page 253
|
# Page 253
|
||||||
# DAPDISP VERB 48 DESCRIPTION
|
# DAPDISP VERB 48 DESCRIPTION
|
||||||
# LOAD AUTOPILOT DATA (ROUTINE R03)
|
# LOAD AUTOPILOT DATA (ROUTINE R03)
|
||||||
@ -713,13 +713,13 @@ CREWMANU TC CHKP00H # DEMAND P00
|
|||||||
# 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
|
# 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
|
||||||
|
|
||||||
COUNT* $$/EXTVB
|
COUNT* $$/EXTVB
|
||||||
|
|
||||||
DAPDISP CS FLAGWRD6
|
DAPDISP CS FLAGWRD6
|
||||||
MASK OCT60000
|
MASK OCT60000
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
|
BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
|
||||||
TC ALM/END # RETURN IF TVC
|
TC ALM/END # RETURN IF TVC
|
||||||
|
|
||||||
TC TESTXACT
|
TC TESTXACT
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR DAPDISP1
|
CADR DAPDISP1
|
||||||
@ -727,21 +727,21 @@ DAPDISP CS FLAGWRD6
|
|||||||
SETLOC EXTVBS
|
SETLOC EXTVBS
|
||||||
BANK
|
BANK
|
||||||
COUNT 24/R03
|
COUNT 24/R03
|
||||||
|
|
||||||
DAPDISP1 CAF EBANK6
|
DAPDISP1 CAF EBANK6
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
CAF PRIO10
|
CAF PRIO10
|
||||||
TC PRIOCHNG
|
TC PRIOCHNG
|
||||||
|
|
||||||
DONOUN46 CAF V04N46 # R1 R2
|
DONOUN46 CAF V04N46 # R1 R2
|
||||||
TC BANKCALL # DAPDATR1 DAPDATR2
|
TC BANKCALL # DAPDATR1 DAPDATR2
|
||||||
CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
|
CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
|
||||||
|
|
||||||
TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
|
TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
|
||||||
TC +2
|
TC +2
|
||||||
TC DONOUN46
|
TC DONOUN46
|
||||||
|
|
||||||
CA DAPDATR1
|
CA DAPDATR1
|
||||||
MASK BIT4
|
MASK BIT4
|
||||||
CCS A
|
CCS A
|
||||||
@ -750,12 +750,12 @@ DONOUN46 CAF V04N46 # R1 R2
|
|||||||
ADRES MAXDBFLG
|
ADRES MAXDBFLG
|
||||||
MAXOUT TC BANKCALL
|
MAXOUT TC BANKCALL
|
||||||
CADR S41.2
|
CADR S41.2
|
||||||
|
|
||||||
DONOUN47 CAF V06N47 # R1 R2 R3
|
DONOUN47 CAF V06N47 # R1 R2 R3
|
||||||
# Page 254
|
# Page 254
|
||||||
TC BANKCALL # CSM WGT. LEM WGT. BLANK
|
TC BANKCALL # CSM WGT. LEM WGT. BLANK
|
||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
|
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
TC +2
|
TC +2
|
||||||
TC DONOUN47
|
TC DONOUN47
|
||||||
@ -770,30 +770,30 @@ DONOUN47 CAF V06N47 # R1 R2 R3
|
|||||||
INHINT
|
INHINT
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
|
CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR S40.14 # COMPUTE RCS DAP STUFF
|
CADR S40.14 # COMPUTE RCS DAP STUFF
|
||||||
|
|
||||||
DONOUN48 CAF V0648 # R1 R2 R3
|
DONOUN48 CAF V0648 # R1 R2 R3
|
||||||
TC BANKCALL # PTRIM YTRIM BLANK
|
TC BANKCALL # PTRIM YTRIM BLANK
|
||||||
CADR GOXDSPF
|
CADR GOXDSPF
|
||||||
|
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
TC DONOUN48
|
TC DONOUN48
|
||||||
|
|
||||||
MAXIN TC UPFLAG
|
MAXIN TC UPFLAG
|
||||||
ADRES MAXDBFLG
|
ADRES MAXDBFLG
|
||||||
TC MAXOUT
|
TC MAXOUT
|
||||||
|
|
||||||
V0648 VN 0648
|
V0648 VN 0648
|
||||||
V06N47 VN 0647
|
V06N47 VN 0647
|
||||||
V04N46 VN 0446
|
V04N46 VN 0446
|
||||||
BANK 43
|
BANK 43
|
||||||
SETLOC EXTVERBS
|
SETLOC EXTVERBS
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/EXTVB
|
COUNT* $$/EXTVB
|
||||||
|
|
||||||
# V82PERF VERB82 DESCRIPTION
|
# V82PERF VERB82 DESCRIPTION
|
||||||
@ -808,7 +808,7 @@ V04N46 VN 0446
|
|||||||
# Page 255
|
# Page 255
|
||||||
# RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
|
# RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
|
||||||
# HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
|
# HEIGHT ABOVE LAUNCH PAD OR LUNAR LANDING SITE), HAPO (APOGEE
|
||||||
# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
|
# HEIGHT AS ABOVE), TPER (TIME TO PERIGEE), TFF (TIME TO
|
||||||
# INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
|
# INTERSECT 300 KFT ABOVE PAD OR 35KFT ABOVE LANDING SITE).
|
||||||
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
|
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
|
||||||
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
|
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
|
||||||
@ -829,11 +829,11 @@ V04N46 VN 0446
|
|||||||
|
|
||||||
V82PERF TC TESTXACT
|
V82PERF TC TESTXACT
|
||||||
|
|
||||||
CAF PRIO7
|
CAF PRIO7
|
||||||
TC PRIOCHNG
|
TC PRIOCHNG
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
|
CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
|
||||||
|
|
||||||
# VB83PERF VERB 83 DESCRIPTION
|
# VB83PERF VERB 83 DESCRIPTION
|
||||||
# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
|
# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
|
||||||
#
|
#
|
||||||
@ -854,7 +854,7 @@ V83PERF TC TESTXACT
|
|||||||
SBANK= LOWSUPER # Added by RSB 2009
|
SBANK= LOWSUPER # Added by RSB 2009
|
||||||
EBANK= SUBEXIT
|
EBANK= SUBEXIT
|
||||||
2CADR R31CALL
|
2CADR R31CALL
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
# Page 256
|
# Page 256
|
||||||
@ -883,12 +883,12 @@ GOTOR23 TC UPFLAG # SET R23FLG
|
|||||||
MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
|
MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF R22ALARM
|
BZF R22ALARM
|
||||||
|
|
||||||
CA FLAGWRD1
|
CA FLAGWRD1
|
||||||
MASK TRACKBIT
|
MASK TRACKBIT
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF R22ALARM
|
BZF R22ALARM
|
||||||
|
|
||||||
CA FLAGWRD1 # TEST R23FLG
|
CA FLAGWRD1 # TEST R23FLG
|
||||||
MASK R23BIT
|
MASK R23BIT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -897,18 +897,18 @@ GOTOR23 TC UPFLAG # SET R23FLG
|
|||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
2CADR R23CSM
|
2CADR R23CSM
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
REGR21 CAF PRIO16
|
REGR21 CAF PRIO16
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
2CADR R21CSM
|
2CADR R21CSM
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
|
R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
|
||||||
OCT 00406 # NOR TRACK FLAG WERE ON.
|
OCT 00406 # NOR TRACK FLAG WERE ON.
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
|
|
||||||
# Page 258
|
# Page 258
|
||||||
# VERB 86 DESCRIPTION
|
# VERB 86 DESCRIPTION
|
||||||
# V86 IS TO R23 AS MARK REJECT IS TO R21
|
# V86 IS TO R23 AS MARK REJECT IS TO R21
|
||||||
@ -920,7 +920,7 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
|
|||||||
CA NEGONE
|
CA NEGONE
|
||||||
TS MRKBUF1
|
TS MRKBUF1
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 259
|
# Page 259
|
||||||
# TRACKTRM VERB 56 DESCRIPTION
|
# TRACKTRM VERB 56 DESCRIPTION
|
||||||
# TERMINATE TRACKING (P20)
|
# TERMINATE TRACKING (P20)
|
||||||
@ -939,33 +939,33 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON
|
|||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF GOPIN # NO
|
BZF GOPIN # NO
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES RNDVZFLG
|
ADRES RNDVZFLG
|
||||||
|
|
||||||
CA TRACKBIT # IS TRACK FLAG ON
|
CA TRACKBIT # IS TRACK FLAG ON
|
||||||
MASK FLAGWRD1
|
MASK FLAGWRD1
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF GOPIN # NO
|
BZF GOPIN # NO
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES TRACKFLG
|
ADRES TRACKFLG
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES UPDATFLG
|
ADRES UPDATFLG
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES IMUSE
|
ADRES IMUSE
|
||||||
|
|
||||||
CAF EBANK6
|
CAF EBANK6
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
TC STOPRATE
|
TC STOPRATE
|
||||||
|
|
||||||
CAF NEGONE
|
CAF NEGONE
|
||||||
TS OPTIND
|
TS OPTIND
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
INTSTALL # DON'T INTERRUPT INTEGRATION
|
INTSTALL # DON'T INTERRUPT INTEGRATION
|
||||||
@ -975,29 +975,29 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON
|
|||||||
# Page 260
|
# Page 260
|
||||||
OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
|
OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
|
||||||
OCT 1 # ALSO KILL GROUP 1
|
OCT 1 # ALSO KILL GROUP 1
|
||||||
|
|
||||||
CLEANOUT INHINT
|
CLEANOUT INHINT
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR ENEMA # CAUSE RESTART
|
CADR ENEMA # CAUSE RESTART
|
||||||
|
|
||||||
# LEMVEC VERB 80 DESCRIPTION
|
# LEMVEC VERB 80 DESCRIPTION
|
||||||
# UPDATE LEM STATE VECTOR
|
# UPDATE LEM STATE VECTOR
|
||||||
# RESET VEHUPFLG TO 0
|
# RESET VEHUPFLG TO 0
|
||||||
|
|
||||||
LEMVEC TC DOWNFLAG
|
LEMVEC TC DOWNFLAG
|
||||||
ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
|
ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
|
||||||
|
|
||||||
TCF GOPIN
|
TCF GOPIN
|
||||||
|
|
||||||
# CSMVEC VERB 81 DESCRIPTION
|
# CSMVEC VERB 81 DESCRIPTION
|
||||||
# UPDATE CSM STATE VECTOR
|
# UPDATE CSM STATE VECTOR
|
||||||
# SET VEHUPFLG TO 1
|
# SET VEHUPFLG TO 1
|
||||||
|
|
||||||
CSMVEC TC UPFLAG
|
CSMVEC TC UPFLAG
|
||||||
ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM
|
ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM
|
||||||
|
|
||||||
TCF GOPIN
|
TCF GOPIN
|
||||||
|
|
||||||
# DNEDUMP VERB 74 DESCRIPTION
|
# DNEDUMP VERB 74 DESCRIPTION
|
||||||
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
|
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
|
||||||
#
|
#
|
||||||
@ -1021,13 +1021,13 @@ LDNDUMPI REMADR DNDUMPI
|
|||||||
LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT
|
LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT
|
||||||
ADRES GRRBKFLG # BIT 5 FLAG 5
|
ADRES GRRBKFLG # BIT 5 FLAG 5
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 261
|
# Page 261
|
||||||
CHKP00H CA MODREG
|
CHKP00H CA MODREG
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF TCQ
|
BZF TCQ
|
||||||
TCF ALM/END
|
TCF ALM/END
|
||||||
|
|
||||||
EXDAPOFF EXTEND
|
EXDAPOFF EXTEND
|
||||||
DCA IDLECADR # SET T5 TO IDLE.
|
DCA IDLECADR # SET T5 TO IDLE.
|
||||||
DXCH T5LOC
|
DXCH T5LOC
|
||||||
@ -1035,14 +1035,14 @@ EXDAPOFF EXTEND
|
|||||||
MASK FLAGWRD6 # RESET DAPBITS 1 AND 2.
|
MASK FLAGWRD6 # RESET DAPBITS 1 AND 2.
|
||||||
TS FLAGWRD6
|
TS FLAGWRD6
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
SBANK= PINSUPER # Added RSB 2009
|
SBANK= PINSUPER # Added RSB 2009
|
||||||
EBANK= PACTOFF
|
EBANK= PACTOFF
|
||||||
IDLECADR 2CADR T5IDLOC
|
IDLECADR 2CADR T5IDLOC
|
||||||
|
|
||||||
# Page 262
|
# Page 262
|
||||||
# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
|
# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
|
||||||
#
|
#
|
||||||
# CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
|
# CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
|
||||||
# DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
|
# DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
|
||||||
# (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
|
# (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
|
||||||
@ -1086,17 +1086,17 @@ V89PERF TC CHKP00H # DEMAND P00
|
|||||||
SBANK= LOWSUPER # Added by RSB 2009.
|
SBANK= LOWSUPER # Added by RSB 2009.
|
||||||
EBANK= P21TIME
|
EBANK= P21TIME
|
||||||
2CADR V89CALL
|
2CADR V89CALL
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
WMATRXNG TC DOWNFLAG # RESET RENDWFLAG
|
WMATRXNG TC DOWNFLAG # RESET RENDWFLAG
|
||||||
ADRES RENDWFLG
|
ADRES RENDWFLG
|
||||||
# Page 263
|
# Page 263
|
||||||
|
|
||||||
TC DOWNFLAG # RESET ORBWFLAG
|
TC DOWNFLAG # RESET ORBWFLAG
|
||||||
ADRES ORBWFLAG
|
ADRES ORBWFLAG
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
GOSHOSUM EQUALS SHOWSUM
|
GOSHOSUM EQUALS SHOWSUM
|
||||||
|
|
||||||
SHOWSUM TC CHKP00H
|
SHOWSUM TC CHKP00H
|
||||||
@ -1121,7 +1121,7 @@ NOKILL CA ADRS1 # *
|
|||||||
TC NOKILL # *
|
TC NOKILL # *
|
||||||
CA SELFADRS
|
CA SELFADRS
|
||||||
TS SKEEP1
|
TS SKEEP1
|
||||||
|
|
||||||
TC ENDEXT # *
|
TC ENDEXT # *
|
||||||
|
|
||||||
VNCON VN 501 # *
|
VNCON VN 501 # *
|
||||||
@ -1130,20 +1130,20 @@ ENDSUMS CA SKEEP6 # *
|
|||||||
EXTEND # *
|
EXTEND # *
|
||||||
BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
|
BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
|
||||||
TC STSHOSUM # * START SHOWSUM AGAIN.
|
TC STSHOSUM # * START SHOWSUM AGAIN.
|
||||||
|
|
||||||
|
|
||||||
# VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
|
# VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
|
||||||
|
|
||||||
SETPRFLG TC UPFLAG
|
SETPRFLG TC UPFLAG
|
||||||
ADRES PRFTRKAT # BIT 10 FLAG 5
|
ADRES PRFTRKAT # BIT 10 FLAG 5
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
|
# VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
|
||||||
|
|
||||||
RESETPRF TC DOWNFLAG
|
RESETPRF TC DOWNFLAG
|
||||||
ADRES PRFTRKAT # BIT 10 FLAG 5
|
ADRES PRFTRKAT # BIT 10 FLAG 5
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# Page 264
|
# Page 264
|
||||||
# VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
|
# VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
|
||||||
|
|
||||||
@ -1151,29 +1151,29 @@ SETVHFLG TC INTPRET
|
|||||||
SET EXIT
|
SET EXIT
|
||||||
VHFRFLAG
|
VHFRFLAG
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
|
# VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
|
||||||
|
|
||||||
RESETVHF TC INTPRET
|
RESETVHF TC INTPRET
|
||||||
CLEAR EXIT
|
CLEAR EXIT
|
||||||
VHFRFLAG
|
VHFRFLAG
|
||||||
TC TRFAILOF # TRACKER FAIL LIGHT
|
TC TRFAILOF # TRACKER FAIL LIGHT
|
||||||
|
|
||||||
TC GOPIN
|
TC GOPIN
|
||||||
|
|
||||||
# VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
|
# VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
|
||||||
# OTHER VEHICLE STATE VECTOR.
|
# OTHER VEHICLE STATE VECTOR.
|
||||||
|
|
||||||
# USE SUBROUTINE GENTRAN.
|
# USE SUBROUTINE GENTRAN.
|
||||||
|
|
||||||
EBANK= RRECTHIS
|
EBANK= RRECTHIS
|
||||||
ATTACHED CAF PRIO10
|
ATTACHED CAF PRIO10
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= RRECTHIS
|
EBANK= RRECTHIS
|
||||||
2CADR ATTACHIT
|
2CADR ATTACHIT
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
ATTACHIT TC INTPRET
|
ATTACHIT TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
INTSTALL
|
INTSTALL
|
||||||
@ -1188,7 +1188,7 @@ ATTACHIT TC INTPRET
|
|||||||
TC GENTRAN
|
TC GENTRAN
|
||||||
ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
|
ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
|
||||||
ADRES RRECTOTH
|
ADRES RRECTOTH
|
||||||
|
|
||||||
TACHEXIT RELINT
|
TACHEXIT RELINT
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL # UPDATE RN, VN, R-OTHER, V-OTHER
|
CALL # UPDATE RN, VN, R-OTHER, V-OTHER
|
||||||
@ -1200,16 +1200,16 @@ TACHEXIT RELINT
|
|||||||
CALL
|
CALL
|
||||||
SVDWN2
|
SVDWN2
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CAF TCPINAD
|
CAF TCPINAD
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS QPRET
|
TS QPRET
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR INTWAKE
|
CADR INTWAKE
|
||||||
|
|
||||||
TCPIN RTB
|
TCPIN RTB
|
||||||
PINBRNCH
|
PINBRNCH
|
||||||
|
|
||||||
OCT51 OCT 51
|
OCT51 OCT 51
|
||||||
TCPINAD CADR TCPIN
|
TCPINAD CADR TCPIN
|
||||||
|
|
||||||
@ -1219,9 +1219,9 @@ LMTOCMSV CAF PRIO10
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= RRECTHIS
|
EBANK= RRECTHIS
|
||||||
2CADR LMTOCM
|
2CADR LMTOCM
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
LMTOCM TC INTPRET
|
LMTOCM TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
INTSTALL
|
INTSTALL
|
||||||
@ -1232,14 +1232,14 @@ LMTOCM TC INTPRET
|
|||||||
CLEAR
|
CLEAR
|
||||||
MOONTHIS
|
MOONTHIS
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CAF OCT51
|
CAF OCT51
|
||||||
TC GENTRAN
|
TC GENTRAN
|
||||||
ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
|
ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
|
||||||
ADRES RRECTHIS
|
ADRES RRECTHIS
|
||||||
|
|
||||||
TCF TACHEXIT
|
TCF TACHEXIT
|
||||||
|
|
||||||
# VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
|
# VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
|
||||||
|
|
||||||
VERB94 CAF V94FLBIT
|
VERB94 CAF V94FLBIT
|
||||||
@ -1247,18 +1247,18 @@ VERB94 CAF V94FLBIT
|
|||||||
# Page 266
|
# Page 266
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF ALM/END # NO --- OPERATOR ERROR
|
BZF ALM/END # NO --- OPERATOR ERROR
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES V94FLAG
|
ADRES V94FLAG
|
||||||
|
|
||||||
TC CHECKMM # IS IT P23
|
TC CHECKMM # IS IT P23
|
||||||
MM 23
|
MM 23
|
||||||
TC ALM/END # NO -- OPERATOR ERROR
|
TC ALM/END # NO -- OPERATOR ERROR
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 112 # SET GROUP 2 TO DO R64
|
OCT 112 # SET GROUP 2 TO DO R64
|
||||||
|
|
||||||
TC CLEANOUT # CAUSE RESTART
|
TC CLEANOUT # CAUSE RESTART
|
||||||
|
|
||||||
# V90PERF VERB 90 DESCRIPTION
|
# V90PERF VERB 90 DESCRIPTION
|
||||||
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
|
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
|
||||||
#
|
#
|
||||||
@ -1277,27 +1277,27 @@ V90PERF TC TESTXACT
|
|||||||
SBANK= PINSUPER # Added RSB 2009
|
SBANK= PINSUPER # Added RSB 2009
|
||||||
EBANK= RPASS36
|
EBANK= RPASS36
|
||||||
2CADR R36
|
2CADR R36
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
# VERB 96 SET QUITFLAG TO STOP INTEGRATION
|
# VERB 96 SET QUITFLAG TO STOP INTEGRATION
|
||||||
|
|
||||||
VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
|
VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
|
||||||
ADRES QUITFLAG # AT NEXT TIMESTEP
|
ADRES QUITFLAG # AT NEXT TIMESTEP
|
||||||
|
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES V96ONFLG
|
ADRES V96ONFLG
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR V37 # GO TO P00
|
CADR V37 # GO TO P00
|
||||||
|
|
||||||
EBANK= LANDMARK
|
EBANK= LANDMARK
|
||||||
V52 TC CHECKMM # IS P22 OPERATING
|
V52 TC CHECKMM # IS P22 OPERATING
|
||||||
MM 22
|
MM 22
|
||||||
TC ALM/END # NO
|
TC ALM/END # NO
|
||||||
CAF LANDBANK
|
CAF LANDBANK
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
# Page 267
|
# Page 267
|
||||||
CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
|
CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
|
||||||
MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER
|
MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER
|
||||||
@ -1320,15 +1320,15 @@ V67 TC TESTXACT
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= W
|
EBANK= W
|
||||||
2CADR V67CALL
|
2CADR V67CALL
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
# VB 44. SET SURFACE FLAG.
|
# VB 44. SET SURFACE FLAG.
|
||||||
|
|
||||||
SETSURF TC UPFLAG
|
SETSURF TC UPFLAG
|
||||||
ADRES SURFFLAG
|
ADRES SURFFLAG
|
||||||
TCF GOPIN
|
TCF GOPIN
|
||||||
|
|
||||||
# VB 45. RESET SURFACE FLAG
|
# VB 45. RESET SURFACE FLAG
|
||||||
|
|
||||||
RESTSRF TC DOWNFLAG
|
RESTSRF TC DOWNFLAG
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -38,11 +38,11 @@ POSMAX OCT 37777
|
|||||||
|
|
||||||
LIMITS = NEG1/2
|
LIMITS = NEG1/2
|
||||||
|
|
||||||
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
|
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
|
||||||
# LOCATIONS IN FRONT OF BIT14)
|
# LOCATIONS IN FRONT OF BIT14)
|
||||||
|
|
||||||
# BIT TABLE
|
# BIT TABLE
|
||||||
|
|
||||||
BIT15 OCT 40000
|
BIT15 OCT 40000
|
||||||
BIT14 OCT 20000
|
BIT14 OCT 20000
|
||||||
BIT13 OCT 10000
|
BIT13 OCT 10000
|
||||||
@ -160,7 +160,7 @@ OCT17770 OCT 17770
|
|||||||
PRIO21 OCT 21000
|
PRIO21 OCT 21000
|
||||||
BLOCK 03
|
BLOCK 03
|
||||||
COUNT 03/FCONS
|
COUNT 03/FCONS
|
||||||
|
|
||||||
PRIO22 OCT 22000 # SERVICE ROUTINES
|
PRIO22 OCT 22000 # SERVICE ROUTINES
|
||||||
PRIO23 OCT 23000
|
PRIO23 OCT 23000
|
||||||
PRIO24 OCT 24000
|
PRIO24 OCT 24000
|
||||||
@ -176,7 +176,7 @@ C1/2 DEC .7853134 # (OCTAL 31103)
|
|||||||
PRIO32 OCT 32000
|
PRIO32 OCT 32000
|
||||||
PRIO33 OCT 33000
|
PRIO33 OCT 33000
|
||||||
PRIO34 OCT 34000
|
PRIO34 OCT 34000
|
||||||
# OCT 34034 # T4RUPT RELTAB +6D
|
# OCT 34034 # T4RUPT RELTAB +6D
|
||||||
PRIO35 OCT 35000
|
PRIO35 OCT 35000
|
||||||
PRIO36 OCT 36000
|
PRIO36 OCT 36000
|
||||||
# Page 1203
|
# Page 1203
|
||||||
|
|||||||
@ -13,11 +13,11 @@
|
|||||||
# 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE"
|
# 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE"
|
||||||
# in INITSUB.
|
# in INITSUB.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -136,14 +136,14 @@
|
|||||||
BANK 10
|
BANK 10
|
||||||
SETLOC FRANDRES
|
SETLOC FRANDRES
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= LST1
|
EBANK= LST1
|
||||||
|
|
||||||
COUNT 05/START
|
COUNT 05/START
|
||||||
|
|
||||||
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
|
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
|
||||||
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
|
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
|
||||||
|
|
||||||
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
|
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
|
||||||
STARTSIM CAF BIT14
|
STARTSIM CAF BIT14
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
@ -151,20 +151,20 @@ SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
|
|||||||
OCT 77777 # SIMULATION START ADDRESS.
|
OCT 77777 # SIMULATION START ADDRESS.
|
||||||
|
|
||||||
SKIPSIM CA DSPTAB +11D
|
SKIPSIM CA DSPTAB +11D
|
||||||
MASK BITS4&6
|
MASK BITS4&6
|
||||||
AD BIT15
|
AD BIT15
|
||||||
TS DSPTAB +11D # REQUESTED FRESH START.
|
TS DSPTAB +11D # REQUESTED FRESH START.
|
||||||
|
|
||||||
CA ZERO # SAME STORY ON ZEROING FAILREG.
|
CA ZERO # SAME STORY ON ZEROING FAILREG.
|
||||||
TS ERCOUNT
|
TS ERCOUNT
|
||||||
TS FAILREG
|
TS FAILREG
|
||||||
TS FAILREG +1
|
TS FAILREG +1
|
||||||
TS FAILREG +2
|
TS FAILREG +2
|
||||||
TS REDOCTR
|
TS REDOCTR
|
||||||
|
|
||||||
CS PRIO12
|
CS PRIO12
|
||||||
TS DSRUPTSW
|
TS DSRUPTSW
|
||||||
|
|
||||||
DOFSTART CAF ZERO # DO A FRESH START.
|
DOFSTART CAF ZERO # DO A FRESH START.
|
||||||
TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
TS ERESTORE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
||||||
TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
TS SMODE # ***** MUST NOT BE REMOVED FROM DOFSTART
|
||||||
@ -202,26 +202,26 @@ DOFSTART CAF ZERO # DO A FRESH START.
|
|||||||
|
|
||||||
CS ZERO
|
CS ZERO
|
||||||
TS MODREG
|
TS MODREG
|
||||||
|
|
||||||
CAF PRIO30
|
CAF PRIO30
|
||||||
TS RESTREG
|
TS RESTREG
|
||||||
|
|
||||||
CAF IM30INIF # FRESH START IMU INITIALIZATION.
|
CAF IM30INIF # FRESH START IMU INITIALIZATION.
|
||||||
TS IMODES30
|
TS IMODES30
|
||||||
|
|
||||||
CAF NEGONE
|
CAF NEGONE
|
||||||
TS OPTIND # KILL COARSE OPTICS
|
TS OPTIND # KILL COARSE OPTICS
|
||||||
|
|
||||||
CAF OPTINITF
|
CAF OPTINITF
|
||||||
TS OPTMODES
|
TS OPTMODES
|
||||||
|
|
||||||
CAF IM33INIT
|
CAF IM33INIT
|
||||||
TS IMODES33
|
TS IMODES33
|
||||||
|
|
||||||
EXTEND # LET T5 IDLE.
|
EXTEND # LET T5 IDLE.
|
||||||
DCA T5IDLER
|
DCA T5IDLER
|
||||||
DXCH T5LOC
|
DXCH T5LOC
|
||||||
|
|
||||||
CA SWINIT
|
CA SWINIT
|
||||||
TS STATE
|
TS STATE
|
||||||
|
|
||||||
@ -256,10 +256,10 @@ DOFSTART CAF ZERO # DO A FRESH START.
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA SWINIT +10D
|
DCA SWINIT +10D
|
||||||
DXCH STATE +10D
|
DXCH STATE +10D
|
||||||
|
|
||||||
ENDRSTRT TC POSTJUMP
|
ENDRSTRT TC POSTJUMP
|
||||||
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.)
|
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.)
|
||||||
|
|
||||||
MR.KLEAN INHINT
|
MR.KLEAN INHINT
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA NEG0
|
DCA NEG0
|
||||||
@ -280,7 +280,7 @@ V37KLEAN EXTEND
|
|||||||
DCA NEG0
|
DCA NEG0
|
||||||
DXCH -PHASE6
|
DXCH -PHASE6
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
OCT6200 OCT 6200
|
OCT6200 OCT 6200
|
||||||
|
|
||||||
# Page 186
|
# Page 186
|
||||||
@ -300,12 +300,12 @@ GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
|
|||||||
EXTEND # STATE OF AGC WARNING BIT.
|
EXTEND # STATE OF AGC WARNING BIT.
|
||||||
BZF BUTTONS
|
BZF BUTTONS
|
||||||
|
|
||||||
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
|
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
|
||||||
EXTEND # FRESH START ON THE ASSUMPTION THAT
|
EXTEND # FRESH START ON THE ASSUMPTION THAT
|
||||||
RAND CHAN33 # WE ARE IN A RESTART LOOP.
|
RAND CHAN33 # WE ARE IN A RESTART LOOP.
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NONAVKEY +1
|
BZF NONAVKEY +1
|
||||||
|
|
||||||
BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE.
|
BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE.
|
||||||
|
|
||||||
# ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
|
# ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
|
||||||
@ -348,12 +348,12 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
|
|||||||
CS INTFLBIT
|
CS INTFLBIT
|
||||||
MASK RASFLAG
|
MASK RASFLAG
|
||||||
TS RASFLAG
|
TS RASFLAG
|
||||||
|
|
||||||
CA OPTMODES
|
CA OPTMODES
|
||||||
MASK OPTINITR
|
MASK OPTINITR
|
||||||
AD BIT7
|
AD BIT7
|
||||||
TS OPTMODES
|
TS OPTMODES
|
||||||
|
|
||||||
CAF BIT6
|
CAF BIT6
|
||||||
MASK IMODES33
|
MASK IMODES33
|
||||||
AD IM33INIT
|
AD IM33INIT
|
||||||
@ -368,17 +368,17 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
|
|||||||
BZF NOCOARSE
|
BZF NOCOARSE
|
||||||
TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO
|
TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO
|
||||||
CADR SETCOARS # COARSE ALIGN.
|
CADR SETCOARS # COARSE ALIGN.
|
||||||
|
|
||||||
CAF SIX
|
CAF SIX
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= CDUIND
|
EBANK= CDUIND
|
||||||
2CADR CA+ECE
|
2CADR CA+ECE
|
||||||
|
|
||||||
NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON
|
NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON
|
||||||
MASK IMODES30 # HARDWARE RESTART. RESET ALL
|
MASK IMODES30 # HARDWARE RESTART. RESET ALL
|
||||||
AD IM30INIR # FAILURE CODES.
|
AD IM30INIR # FAILURE CODES.
|
||||||
TS IMODES30
|
TS IMODES30
|
||||||
|
|
||||||
CS FLAGWRD5
|
CS FLAGWRD5
|
||||||
MASK ENGONBIT
|
MASK ENGONBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -395,17 +395,17 @@ ENEMA INHINT
|
|||||||
CS INTMASK # RESET INTEGRATION BITS
|
CS INTMASK # RESET INTEGRATION BITS
|
||||||
MASK RASFLAG
|
MASK RASFLAG
|
||||||
TS RASFLAG
|
TS RASFLAG
|
||||||
|
|
||||||
CS FLAGWRD6 # IS TVC ON
|
CS FLAGWRD6 # IS TVC ON
|
||||||
MASK OCT60000
|
MASK OCT60000
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF GOPROG3 # NO
|
BZMF GOPROG3 # NO
|
||||||
|
|
||||||
CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED
|
CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED
|
||||||
TC WAITLIST # IN STARTSB2
|
TC WAITLIST # IN STARTSB2
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
2CADR TVCEXEC
|
2CADR TVCEXEC
|
||||||
|
|
||||||
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
|
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
|
||||||
PCLOOP TS MPAC +5
|
PCLOOP TS MPAC +5
|
||||||
DOUBLE
|
DOUBLE
|
||||||
@ -421,12 +421,12 @@ PCLOOP TS MPAC +5
|
|||||||
|
|
||||||
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||||
TCF PCLOOP
|
TCF PCLOOP
|
||||||
|
|
||||||
TS MPAC +6 # SET TO +0.
|
TS MPAC +6 # SET TO +0.
|
||||||
TC MMDSPLAY # DISPLAY MAJOR MODE
|
TC MMDSPLAY # DISPLAY MAJOR MODE
|
||||||
|
|
||||||
INHINT # RELINT DONE IN MMDSPLAY
|
INHINT # RELINT DONE IN MMDSPLAY
|
||||||
|
|
||||||
CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF
|
CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF
|
||||||
MASK OCT60000 # FLAGWORD6 = 01)
|
MASK OCT60000 # FLAGWORD6 = 01)
|
||||||
EXTEND # YES, DO STOPRATE
|
EXTEND # YES, DO STOPRATE
|
||||||
@ -446,16 +446,16 @@ NXTRST TS MPAC +5
|
|||||||
CCS PHASE1
|
CCS PHASE1
|
||||||
TCF PACTIVE # PNZ -- GROUP ACTIVE.
|
TCF PACTIVE # PNZ -- GROUP ACTIVE.
|
||||||
TCF PINACT # +0 -- GROUP NOT RUNNING.
|
TCF PINACT # +0 -- GROUP NOT RUNNING.
|
||||||
|
|
||||||
PACTIVE TS MPAC
|
PACTIVE TS MPAC
|
||||||
INCR MPAC # ABS OF PHASE.
|
INCR MPAC # ABS OF PHASE.
|
||||||
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
|
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
|
||||||
CA RACTCADR
|
CA RACTCADR
|
||||||
TC SWCALL # MUST RETURN TO SWRETURN.
|
TC SWCALL # MUST RETURN TO SWRETURN.
|
||||||
|
|
||||||
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||||
TCF NXTRST
|
TCF NXTRST
|
||||||
|
|
||||||
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
|
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
|
||||||
TCF ENDRSTRT # PHASE ACTIVE
|
TCF ENDRSTRT # PHASE ACTIVE
|
||||||
CAF BIT15 # IS MODE -0
|
CAF BIT15 # IS MODE -0
|
||||||
@ -465,7 +465,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
|||||||
TCF ENDRSTRT # YES
|
TCF ENDRSTRT # YES
|
||||||
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
||||||
OCT 1107
|
OCT 1107
|
||||||
|
|
||||||
TCF DOFSTART # IN R21.
|
TCF DOFSTART # IN R21.
|
||||||
|
|
||||||
# ********* ********* **********
|
# ********* ********* **********
|
||||||
@ -525,7 +525,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
|||||||
EBANK= LST1
|
EBANK= LST1
|
||||||
CAF STARTEB
|
CAF STARTEB
|
||||||
TS EBANK # SET FOR E3
|
TS EBANK # SET FOR E3
|
||||||
|
|
||||||
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
|
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
|
||||||
TS LST1 +7
|
TS LST1 +7
|
||||||
TS LST1 +6
|
TS LST1 +6
|
||||||
@ -557,7 +557,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
|||||||
TS LST2 +13D
|
TS LST2 +13D
|
||||||
TS LST2 +15D
|
TS LST2 +15D
|
||||||
TS LST2 +17D
|
TS LST2 +17D
|
||||||
|
|
||||||
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
|
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
|
||||||
TS PRIORITY # AVAILABLE.
|
TS PRIORITY # AVAILABLE.
|
||||||
TS PRIORITY +12D
|
TS PRIORITY +12D
|
||||||
@ -566,10 +566,10 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
|||||||
TS PRIORITY +48D
|
TS PRIORITY +48D
|
||||||
TS PRIORITY +60D
|
TS PRIORITY +60D
|
||||||
TS PRIORITY +72D
|
TS PRIORITY +72D
|
||||||
|
|
||||||
TS DSRUPTSW
|
TS DSRUPTSW
|
||||||
TS NEWJOB # SHOWS NO ACTIVE JOBS.
|
TS NEWJOB # SHOWS NO ACTIVE JOBS.
|
||||||
|
|
||||||
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
|
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
|
||||||
TS VAC1USE
|
TS VAC1USE
|
||||||
AD LTHVACA
|
AD LTHVACA
|
||||||
@ -580,16 +580,16 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
|
|||||||
TS VAC4USE
|
TS VAC4USE
|
||||||
AD LTHVACA
|
AD LTHVACA
|
||||||
TS VAC5USE
|
TS VAC5USE
|
||||||
|
|
||||||
CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
|
CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
|
||||||
# R1,R2,R3)
|
# R1,R2,R3)
|
||||||
DSPOFF TS MPAC
|
DSPOFF TS MPAC
|
||||||
CS BIT12
|
CS BIT12
|
||||||
INDEX MPAC
|
INDEX MPAC
|
||||||
TS DSPTAB
|
TS DSPTAB
|
||||||
CCS MPAC
|
CCS MPAC
|
||||||
TCF DSPOFF
|
TCF DSPOFF
|
||||||
|
|
||||||
TS DELAYLOC
|
TS DELAYLOC
|
||||||
# Page 192
|
# Page 192
|
||||||
TS DELAYLOC +1
|
TS DELAYLOC +1
|
||||||
@ -616,34 +616,34 @@ DSPOFF TS MPAC
|
|||||||
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
|
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
|
||||||
CAF NOUTCON
|
CAF NOUTCON
|
||||||
TS NOUT
|
TS NOUT
|
||||||
|
|
||||||
CAF BIT14
|
CAF BIT14
|
||||||
MASK EXTVBACT
|
MASK EXTVBACT
|
||||||
TS EXTVBACT
|
TS EXTVBACT
|
||||||
CAF LESCHK # SELF CHECK GO-TO REGISTER.
|
CAF LESCHK # SELF CHECK GO-TO REGISTER.
|
||||||
TS SELFRET
|
TS SELFRET
|
||||||
|
|
||||||
CS VD1
|
CS VD1
|
||||||
TS DSPCOUNT
|
TS DSPCOUNT
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS
|
T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS
|
||||||
TCF NOQRSM +1 # WHEN NOBODY IS USING IT.
|
TCF NOQRSM +1 # WHEN NOBODY IS USING IT.
|
||||||
|
|
||||||
EBANK= OGANOW
|
EBANK= OGANOW
|
||||||
T5IDLER 2CADR T5IDLOC
|
T5IDLER 2CADR T5IDLOC
|
||||||
|
|
||||||
EBANK= OGANOW
|
EBANK= OGANOW
|
||||||
2CADR REDORCS
|
2CADR REDORCS
|
||||||
|
|
||||||
EBANK= OGANOW
|
EBANK= OGANOW
|
||||||
2CADR REDOTVC
|
2CADR REDOTVC
|
||||||
|
|
||||||
EBANK= OGANOW
|
EBANK= OGANOW
|
||||||
2CADR REDOSAT
|
2CADR REDOSAT
|
||||||
# Page 193
|
# Page 193
|
||||||
|
|
||||||
IFAILINH OCT 435
|
IFAILINH OCT 435
|
||||||
LDNPHAS1 GENADR DNPHASE1
|
LDNPHAS1 GENADR DNPHASE1
|
||||||
LESCHK GENADR SELFCHK
|
LESCHK GENADR SELFCHK
|
||||||
@ -666,7 +666,7 @@ SWINIT OCT 0
|
|||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
|
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 00200
|
OCT 00200
|
||||||
OCT 0
|
OCT 0
|
||||||
@ -701,20 +701,20 @@ SWINIT OCT 0
|
|||||||
BLOCK 02
|
BLOCK 02
|
||||||
SETLOC FFTAG10
|
SETLOC FFTAG10
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/P00
|
COUNT 02/P00
|
||||||
|
|
||||||
GOTOP00H TC PHASCHNG # RESTART GOTOP00H
|
GOTOP00H TC PHASCHNG # RESTART GOTOP00H
|
||||||
OCT 14
|
OCT 14
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR GOP00FIX
|
CADR GOP00FIX
|
||||||
BANK 10
|
BANK 10
|
||||||
SETLOC VERB37
|
SETLOC VERB37
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 04/P00
|
COUNT 04/P00
|
||||||
|
|
||||||
GOP00FIX TC INITSUB
|
GOP00FIX TC INITSUB
|
||||||
TC CLEARMRK +2
|
TC CLEARMRK +2
|
||||||
CAF V37N99
|
CAF V37N99
|
||||||
@ -795,37 +795,37 @@ V37N99 VN 3799
|
|||||||
BLOCK 02
|
BLOCK 02
|
||||||
SETLOC FFTAG10
|
SETLOC FFTAG10
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/V37
|
COUNT 02/V37
|
||||||
|
|
||||||
OCT24 MM 20
|
OCT24 MM 20
|
||||||
OCT31 MM 25
|
OCT31 MM 25
|
||||||
BANK 27
|
BANK 27
|
||||||
SETLOC VERB37
|
SETLOC VERB37
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 04/V37
|
COUNT 04/V37
|
||||||
|
|
||||||
V37 TS MMNUMBER # SAVE MAJOR MODE
|
V37 TS MMNUMBER # SAVE MAJOR MODE
|
||||||
CAF PRIO30 # RESTART AT PINBALL PRIORITY
|
CAF PRIO30 # RESTART AT PINBALL PRIORITY
|
||||||
TS RESTREG
|
TS RESTREG
|
||||||
|
|
||||||
CA IMODES30 # IS IMU BEING INITIALIZED
|
CA IMODES30 # IS IMU BEING INITIALIZED
|
||||||
MASK BIT6
|
MASK BIT6
|
||||||
CCS A
|
CCS A
|
||||||
TCF CANTR00
|
TCF CANTR00
|
||||||
|
|
||||||
CAF BIT13 # IS ENGINE ON
|
CAF BIT13 # IS ENGINE ON
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND DSALMOUT
|
RAND DSALMOUT
|
||||||
CCS A
|
CCS A
|
||||||
TCF R00TOP00 # YES, SET UP FOR P00
|
TCF R00TOP00 # YES, SET UP FOR P00
|
||||||
|
|
||||||
CS FLAGWRD6 # NO, IS TVC DAP ON
|
CS FLAGWRD6 # NO, IS TVC DAP ON
|
||||||
MASK OCT60000
|
MASK OCT60000
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF ISITP00 # NO, CONTINUE WITH R00
|
BZMF ISITP00 # NO, CONTINUE WITH R00
|
||||||
|
|
||||||
R00TOP00 INHINT
|
R00TOP00 INHINT
|
||||||
CAF EBANK6
|
CAF EBANK6
|
||||||
# Page 198
|
# Page 198
|
||||||
@ -840,7 +840,7 @@ R00TOP00 INHINT
|
|||||||
CAF 3.1SEC
|
CAF 3.1SEC
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR RCSDAPON +1
|
CADR RCSDAPON +1
|
||||||
|
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR TVCZAP # DISABLE TVC
|
CADR TVCZAP # DISABLE TVC
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
@ -857,19 +857,19 @@ R00TOP00 INHINT
|
|||||||
ISITP00 CA MMNUMBER
|
ISITP00 CA MMNUMBER
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF ISSERVON # YES, CHECK SERVICER STATUS
|
BZF ISSERVON # YES, CHECK SERVICER STATUS
|
||||||
|
|
||||||
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
|
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
|
||||||
MASK NODOBIT
|
MASK NODOBIT
|
||||||
CCS A
|
CCS A
|
||||||
TCF CHECKTAB # NO
|
TCF CHECKTAB # NO
|
||||||
CANTR00 TC ALARM
|
CANTR00 TC ALARM
|
||||||
OCT 1520
|
OCT 1520
|
||||||
|
|
||||||
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
|
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
|
||||||
|
|
||||||
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
|
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
|
||||||
CADR PINBRNCH # WAS ONE. OY
|
CADR PINBRNCH # WAS ONE. OY
|
||||||
|
|
||||||
CHECKTAB CA NOV37MM # THE NO. OF MM
|
CHECKTAB CA NOV37MM # THE NO. OF MM
|
||||||
AGAINMM TS MPAC +1
|
AGAINMM TS MPAC +1
|
||||||
NDX MPAC +1
|
NDX MPAC +1
|
||||||
@ -882,10 +882,10 @@ AGAINMM TS MPAC +1
|
|||||||
# Page 199
|
# Page 199
|
||||||
TCF AGAINMM # YES, GET NEXT ONE
|
TCF AGAINMM # YES, GET NEXT ONE
|
||||||
TCF V37NONO # LAST TIME OR PASSED MM
|
TCF V37NONO # LAST TIME OR PASSED MM
|
||||||
|
|
||||||
CA MPAC +1
|
CA MPAC +1
|
||||||
TS MINDEX # SAVE INDEX FOR LATER
|
TS MINDEX # SAVE INDEX FOR LATER
|
||||||
|
|
||||||
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
||||||
MASK V37FLBIT
|
MASK V37FLBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -895,15 +895,15 @@ ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
|||||||
CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT
|
CS AVEGBIT # YES TURN OFF AVERAGE G FLAG AND WAIT
|
||||||
MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37
|
MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37
|
||||||
TS FLAGWRD1
|
TS FLAGWRD1
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
CANV37 CAF R00AD
|
CANV37 CAF R00AD
|
||||||
TS TEMPFLSH
|
TS TEMPFLSH
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 14
|
OCT 14
|
||||||
|
|
||||||
ROC TC INTPRET
|
ROC TC INTPRET
|
||||||
|
|
||||||
CALL # WAIT FOR INTEGRATION TO FINISH
|
CALL # WAIT FOR INTEGRATION TO FINISH
|
||||||
@ -929,40 +929,40 @@ DUMMYAD EXIT
|
|||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES STIKFLAG
|
ADRES STIKFLAG
|
||||||
|
|
||||||
# Page 200
|
# Page 200
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT
|
CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES VHFRFLAG
|
ADRES VHFRFLAG
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES R21MARK
|
ADRES R21MARK
|
||||||
|
|
||||||
CCS MMNUMBER # IS THIS A P00H REQUEST
|
CCS MMNUMBER # IS THIS A P00H REQUEST
|
||||||
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
|
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
|
||||||
|
|
||||||
COUNT 04/P00
|
COUNT 04/P00
|
||||||
|
|
||||||
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
|
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
|
||||||
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
|
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
|
||||||
TS PHSPRDT2
|
TS PHSPRDT2
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
|
|
||||||
CS NODOBIT # TURN OFF NODOFLAG.
|
CS NODOBIT # TURN OFF NODOFLAG.
|
||||||
MASK FLAGWRD2
|
MASK FLAGWRD2
|
||||||
TS FLAGWRD2
|
TS FLAGWRD2
|
||||||
|
|
||||||
CA FIVE # SET 2.5 RESTART FOR STATEINT1
|
CA FIVE # SET 2.5 RESTART FOR STATEINT1
|
||||||
TS L
|
TS L
|
||||||
COM
|
COM
|
||||||
DXCH -PHASE2
|
DXCH -PHASE2
|
||||||
|
|
||||||
CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF
|
CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
TS FLAGWRD0 # RENDFLG
|
TS FLAGWRD0 # RENDFLG
|
||||||
|
|
||||||
CAF DNLADP00
|
CAF DNLADP00
|
||||||
|
|
||||||
COUNT 04/V37
|
COUNT 04/V37
|
||||||
@ -974,7 +974,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
|||||||
TS EBANKTEM
|
TS EBANKTEM
|
||||||
MASK FLAGWRD1
|
MASK FLAGWRD1
|
||||||
TS FLAGWRD1
|
TS FLAGWRD1
|
||||||
|
|
||||||
GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
|
GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
|
||||||
CADR V37KLEAN
|
CADR V37KLEAN
|
||||||
|
|
||||||
@ -983,13 +983,13 @@ GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
|
|||||||
# Page 201
|
# Page 201
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4.
|
CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4.
|
||||||
|
|
||||||
GOMOD CA MMNUMBER
|
GOMOD CA MMNUMBER
|
||||||
TS MODREG
|
TS MODREG
|
||||||
|
|
||||||
GOGOPROG TC POSTJUMP
|
GOGOPROG TC POSTJUMP
|
||||||
CADR GOPROG2
|
CADR GOPROG2
|
||||||
|
|
||||||
RENDV00 CS MMNUMBER # IS NEW PROG = 20
|
RENDV00 CS MMNUMBER # IS NEW PROG = 20
|
||||||
AD OCT24 # 20
|
AD OCT24 # 20
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -998,8 +998,8 @@ RENDV00 CS MMNUMBER # IS NEW PROG = 20
|
|||||||
RENDN00 CS MMNUMBER
|
RENDN00 CS MMNUMBER
|
||||||
AD MODREG
|
AD MODREG
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF KILL20
|
BZF KILL20
|
||||||
|
|
||||||
CA FLAGWRD0 # IS RENDEZVOO FLAG SET
|
CA FLAGWRD0 # IS RENDEZVOO FLAG SET
|
||||||
MASK RNDVZBIT
|
MASK RNDVZBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -1012,21 +1012,21 @@ P00FIZZ CAF RNDVZBIT
|
|||||||
KILL20 EXTEND # NO, KILL GROUPS 1 + 2
|
KILL20 EXTEND # NO, KILL GROUPS 1 + 2
|
||||||
DCA NEG0
|
DCA NEG0
|
||||||
DXCH -PHASE1
|
DXCH -PHASE1
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA NEG0
|
DCA NEG0
|
||||||
DXCH -PHASE2
|
DXCH -PHASE2
|
||||||
|
|
||||||
REV37 CAF V37QCAD # SET RESTART POINT
|
REV37 CAF V37QCAD # SET RESTART POINT
|
||||||
TS TEMPFLSH
|
TS TEMPFLSH
|
||||||
|
|
||||||
TCF GOGOPROG
|
TCF GOGOPROG
|
||||||
|
|
||||||
|
|
||||||
STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
|
STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
|
||||||
MASK OCT120
|
MASK OCT120
|
||||||
ADS FLAGWRD1
|
ADS FLAGWRD1
|
||||||
|
|
||||||
EXTEND # KILL GROUP 4
|
EXTEND # KILL GROUP 4
|
||||||
DCA NEG0
|
DCA NEG0
|
||||||
DXCH -PHASE4
|
DXCH -PHASE4
|
||||||
@ -1034,10 +1034,10 @@ STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
|
|||||||
# Page 202
|
# Page 202
|
||||||
TCF GOMOD
|
TCF GOMOD
|
||||||
|
|
||||||
NOUVEAU CAF RNDVZBIT
|
NOUVEAU CAF RNDVZBIT
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
CCS A
|
CCS A
|
||||||
TCF +3
|
TCF +3
|
||||||
TC DOWNFLAG # NO, RESET IMUINUSE FLAG
|
TC DOWNFLAG # NO, RESET IMUINUSE FLAG
|
||||||
ADRES IMUSE # BIT 8 FLAG 0
|
ADRES IMUSE # BIT 8 FLAG 0
|
||||||
+3 INDEX MINDEX
|
+3 INDEX MINDEX
|
||||||
@ -1045,22 +1045,22 @@ NOUVEAU CAF RNDVZBIT
|
|||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
TCF SEUDOP00
|
TCF SEUDOP00
|
||||||
|
|
||||||
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
|
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
|
||||||
TCF V37BAD
|
TCF V37BAD
|
||||||
|
|
||||||
OCT00010 EQUALS BIT4
|
OCT00010 EQUALS BIT4
|
||||||
V37XEQ INHINT
|
V37XEQ INHINT
|
||||||
INDEX MINDEX
|
INDEX MINDEX
|
||||||
CAF PREMM1
|
CAF PREMM1
|
||||||
TS MMTEMP # OBTAIN PRIORITY BITS 15-11
|
TS MMTEMP # OBTAIN PRIORITY BITS 15-11
|
||||||
TS CYR # SHIFT RIGHT TO BITS 14-10
|
TS CYR # SHIFT RIGHT TO BITS 14-10
|
||||||
|
|
||||||
CA CYR
|
CA CYR
|
||||||
MASK PRIO37
|
MASK PRIO37
|
||||||
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
|
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
|
||||||
TS NEWPRIO # STORE PRIO FOR SPVAC
|
TS NEWPRIO # STORE PRIO FOR SPVAC
|
||||||
|
|
||||||
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
|
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT8
|
MP BIT8
|
||||||
@ -1071,13 +1071,13 @@ V37XEQ INHINT
|
|||||||
TS BASETEMP
|
TS BASETEMP
|
||||||
MASK HI5
|
MASK HI5
|
||||||
ADS L
|
ADS L
|
||||||
|
|
||||||
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
|
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
|
||||||
MASK LOW10
|
MASK LOW10
|
||||||
AD BIT11
|
AD BIT11
|
||||||
|
|
||||||
TC SPVAC
|
TC SPVAC
|
||||||
|
|
||||||
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
||||||
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
|
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
|
||||||
TC NEWMODEA # PHSBRDT1)
|
TC NEWMODEA # PHSBRDT1)
|
||||||
@ -1086,15 +1086,15 @@ V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
|||||||
# FOR SUNDISK ONLY
|
# FOR SUNDISK ONLY
|
||||||
TC RELDSP # RELEASE DISPLAY
|
TC RELDSP # RELEASE DISPLAY
|
||||||
TC ENDOFJOB # AND EXIT
|
TC ENDOFJOB # AND EXIT
|
||||||
|
|
||||||
INITSUB EXTEND
|
INITSUB EXTEND
|
||||||
QXCH MPAC +1
|
QXCH MPAC +1
|
||||||
|
|
||||||
CAF EBANK6 # SET E6 FOR DEADBAND CODING
|
CAF EBANK6 # SET E6 FOR DEADBAND CODING
|
||||||
TS EBANK # WILL BE RESET IN STARTSB2
|
TS EBANK # WILL BE RESET IN STARTSB2
|
||||||
INHINT
|
INHINT
|
||||||
TC STOPRATE
|
TC STOPRATE
|
||||||
|
|
||||||
CA FLAGWRD9 # RESTORE DEADBAND
|
CA FLAGWRD9 # RESTORE DEADBAND
|
||||||
MASK MAXDBBIT
|
MASK MAXDBBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -1104,7 +1104,7 @@ INITSUB EXTEND
|
|||||||
TCF RAKE
|
TCF RAKE
|
||||||
SETMAXER TC BANKCALL
|
SETMAXER TC BANKCALL
|
||||||
CADR SETMAXDB
|
CADR SETMAXDB
|
||||||
|
|
||||||
RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
|
RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
|
||||||
+1 TS MPAC # LOOP COMES HERE
|
+1 TS MPAC # LOOP COMES HERE
|
||||||
INDEX MPAC
|
INDEX MPAC
|
||||||
@ -1116,14 +1116,14 @@ RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
|
|||||||
CCS MPAC
|
CCS MPAC
|
||||||
TCF RAKE +1 # GET THE NEXT FLAGWORD
|
TCF RAKE +1 # GET THE NEXT FLAGWORD
|
||||||
RELINT
|
RELINT
|
||||||
|
|
||||||
TC UPFLAG # NOW SET IMPULSW
|
TC UPFLAG # NOW SET IMPULSW
|
||||||
ADRES IMPULSW
|
ADRES IMPULSW
|
||||||
|
|
||||||
CA NEGONE
|
CA NEGONE
|
||||||
TS OPTIND
|
TS OPTIND
|
||||||
TC MPAC +1 # RETURN FROM INITSUB
|
TC MPAC +1 # RETURN FROM INITSUB
|
||||||
|
|
||||||
FLAGTABL OCT 0
|
FLAGTABL OCT 0
|
||||||
OCT 00040 # IDLEFAIL
|
OCT 00040 # IDLEFAIL
|
||||||
OCT 06000 # P21FLAG, STEERSW
|
OCT 06000 # P21FLAG, STEERSW
|
||||||
@ -1131,13 +1131,13 @@ FLAGTABL OCT 0
|
|||||||
OCT 0
|
OCT 0
|
||||||
OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG
|
OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG
|
||||||
OCT 10000 # STRULLSW
|
OCT 10000 # STRULLSW
|
||||||
OCT 16000
|
OCT 16000
|
||||||
OCT 0
|
OCT 0
|
||||||
# Page 204
|
# Page 204
|
||||||
OCT 42000 # SWTOVER, V94FLAG
|
OCT 42000 # SWTOVER, V94FLAG
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
|
|
||||||
SETLOC VAC5LOC
|
SETLOC VAC5LOC
|
||||||
BANK
|
BANK
|
||||||
VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS
|
VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS
|
||||||
@ -1204,7 +1204,7 @@ V5OUT2 CA MPAC +3
|
|||||||
|
|
||||||
CA NEWJOB
|
CA NEWJOB
|
||||||
TS VAC5 +22D
|
TS VAC5 +22D
|
||||||
|
|
||||||
CA NEWPRIO
|
CA NEWPRIO
|
||||||
TS VAC5 +26D
|
TS VAC5 +26D
|
||||||
|
|
||||||
@ -1240,7 +1240,7 @@ RCSADDR4 2CADR RCSATT
|
|||||||
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
|
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
|
||||||
#
|
#
|
||||||
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
|
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
|
||||||
# THE MAJOR MODE. FOR EXAMPLE,
|
# THE MAJOR MODE. FOR EXAMPLE,
|
||||||
#
|
#
|
||||||
# FCADRMM1 FCADR P79 # START OF P 79
|
# FCADRMM1 FCADR P79 # START OF P 79
|
||||||
# FCADR PROG18 # START OF P 18
|
# FCADR PROG18 # START OF P 18
|
||||||
@ -1335,7 +1335,7 @@ PREMM1 EQUALS
|
|||||||
OCT 27021 # MM 17 EBANK 6 PRIO 13
|
OCT 27021 # MM 17 EBANK 6 PRIO 13
|
||||||
OCT 27006 # MM 06 EBANK 4 PRIO 13
|
OCT 27006 # MM 06 EBANK 4 PRIO 13
|
||||||
OCT 41201 # MM 01 EBANK 5 PRIO 20
|
OCT 41201 # MM 01 EBANK 5 PRIO 20
|
||||||
|
|
||||||
# Page 208
|
# Page 208
|
||||||
# THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
|
# THE FOLLOWING LIST IS FOR THE PURPOSE OF VERIFYING THAT THE EBA
|
||||||
|
|
||||||
@ -1364,7 +1364,7 @@ PREMM1 EQUALS
|
|||||||
EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20
|
EBANK= ESTROKER # EBANK SETTING REQUIRED BY MM 20
|
||||||
EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06
|
EBANK= TIME2SAV # EBANK SETTING REQUIRED BY MM 06
|
||||||
EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01
|
EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01
|
||||||
|
|
||||||
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
|
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
|
||||||
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
|
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
|
||||||
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
|
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
|
||||||
@ -1432,21 +1432,21 @@ RME 2DEC 7178165 B-29 # 800 KM ABOVE EQ. RADIUS
|
|||||||
BANK 13
|
BANK 13
|
||||||
SETLOC INTINIT
|
SETLOC INTINIT
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/INTIN
|
COUNT* $$/INTIN
|
||||||
|
|
||||||
EBANK= RRECTCSM
|
EBANK= RRECTCSM
|
||||||
|
|
||||||
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
||||||
VINTFLAG
|
VINTFLAG
|
||||||
# Page 210
|
# Page 210
|
||||||
ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID
|
ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID
|
||||||
+3 # FOR ORBITAL NAVIGATION
|
+3 # FOR ORBITAL NAVIGATION
|
||||||
SET
|
SET
|
||||||
DIM0FLAG
|
DIM0FLAG
|
||||||
CLEAR CALL
|
CLEAR CALL
|
||||||
PRECIFLG
|
PRECIFLG
|
||||||
INTEGRV
|
INTEGRV
|
||||||
BON DLOAD
|
BON DLOAD
|
||||||
SURFFLAG
|
SURFFLAG
|
||||||
STATEND
|
STATEND
|
||||||
@ -1456,7 +1456,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
|||||||
CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
|
CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
|
||||||
VINTFLAG
|
VINTFLAG
|
||||||
SETIFLGS # AND 6X6 W-MATRIX IF VALID
|
SETIFLGS # AND 6X6 W-MATRIX IF VALID
|
||||||
BOF SET
|
BOF SET
|
||||||
RENDWFLG # FOR RENDEZVOUS NAVIGATION
|
RENDWFLG # FOR RENDEZVOUS NAVIGATION
|
||||||
+2
|
+2
|
||||||
DIM0FLAG
|
DIM0FLAG
|
||||||
@ -1466,9 +1466,9 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
|||||||
STATEND CLRGO
|
STATEND CLRGO
|
||||||
NODOFLAG
|
NODOFLAG
|
||||||
ENDINT
|
ENDINT
|
||||||
|
|
||||||
# THIS VINT IS CALLED BY MIDTOAV1 AND 2
|
# THIS VINT IS CALLED BY MIDTOAV1 AND 2
|
||||||
|
|
||||||
THISVINT SET RVQ
|
THISVINT SET RVQ
|
||||||
VINTFLAG
|
VINTFLAG
|
||||||
|
|
||||||
|
|||||||
@ -7,13 +7,13 @@
|
|||||||
# Reference: pp. 412-413
|
# Reference: pp. 412-413
|
||||||
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -29,17 +29,17 @@
|
|||||||
|
|
||||||
|
|
||||||
# Page 412
|
# Page 412
|
||||||
BANK 15
|
BANK 15
|
||||||
SETLOC KALCMON1
|
SETLOC KALCMON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
# DETECTING GIMBAL LOCK
|
# DETECTING GIMBAL LOCK
|
||||||
LOCSKIRT EQUALS WCALC
|
LOCSKIRT EQUALS WCALC
|
||||||
WCALC LXC,1 DLOAD*
|
WCALC LXC,1 DLOAD*
|
||||||
RATEINDX
|
RATEINDX
|
||||||
ARATE,1
|
ARATE,1
|
||||||
SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
|
SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
|
||||||
DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
|
DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
|
||||||
# ABOUT COF
|
# ABOUT COF
|
||||||
@ -48,7 +48,7 @@ WCALC LXC,1 DLOAD*
|
|||||||
COF
|
COF
|
||||||
MXV
|
MXV
|
||||||
QUADROT
|
QUADROT
|
||||||
STODL BRATE
|
STODL BRATE
|
||||||
AM
|
AM
|
||||||
DMP DDV*
|
DMP DDV*
|
||||||
ANGLTIME
|
ANGLTIME
|
||||||
@ -64,16 +64,16 @@ WCALC LXC,1 DLOAD*
|
|||||||
SETGO # STATE SWITCH CALCMAN2 (43D)
|
SETGO # STATE SWITCH CALCMAN2 (43D)
|
||||||
CALCMAN2 # 0(OFF) = BYPASS STARTING PROCEDURE
|
CALCMAN2 # 0(OFF) = BYPASS STARTING PROCEDURE
|
||||||
NEWANGL +1 # 1(ON) = START MANEUVER
|
NEWANGL +1 # 1(ON) = START MANEUVER
|
||||||
|
|
||||||
|
|
||||||
ARATE 2DEC .0022222222 # = .05 DEG/SEC
|
ARATE 2DEC .0022222222 # = .05 DEG/SEC
|
||||||
|
|
||||||
2DEC .0088888889 # = .2 DEG/SEC
|
2DEC .0088888889 # = .2 DEG/SEC
|
||||||
|
|
||||||
2DEC .0222222222 # = .5 DEG/SEC
|
2DEC .0222222222 # = .5 DEG/SEC
|
||||||
|
|
||||||
2DEC .0888888889 # = 2 DEG/SEC $22.5 DEG/SEC
|
2DEC .0888888889 # = 2 DEG/SEC $22.5 DEG/SEC
|
||||||
|
|
||||||
ANGLTIME 2DEC .000190735 # = 100B - 19
|
ANGLTIME 2DEC .000190735 # = 100B - 19
|
||||||
|
|
||||||
# MANEUVER ANGLE TO MANEUVER TIME
|
# MANEUVER ANGLE TO MANEUVER TIME
|
||||||
@ -81,19 +81,19 @@ QUADROT 2DEC .1 # ROTATION MATRIX FROM S/C AXES TO CONTROL
|
|||||||
|
|
||||||
# Page 413
|
# Page 413
|
||||||
2DEC 0 # AXES (X ROT = -7.25 DEG)
|
2DEC 0 # AXES (X ROT = -7.25 DEG)
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC .099200 # =(.1)COS7.25
|
2DEC .099200 # =(.1)COS7.25
|
||||||
|
|
||||||
2DEC -.012620 # =-(.1)SIN7.25
|
2DEC -.012620 # =-(.1)SIN7.25
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC .012620 # (.1)SIN7.25
|
2DEC .012620 # (.1)SIN7.25
|
||||||
|
|
||||||
2DEC .099200 # (.1)COS7.25
|
2DEC .099200 # (.1)COS7.25
|
||||||
|
|
||||||
BIASCALE 2DEC .0002543132 # = (450/180)(1/0.6)(1/16384)
|
BIASCALE 2DEC .0002543132 # = (450/180)(1/0.6)(1/16384)
|
||||||
|
|||||||
@ -7,14 +7,14 @@
|
|||||||
# Reference: pp. 456-459
|
# Reference: pp. 456-459
|
||||||
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 OH Transcription Batch 1 Assignment
|
# Mod history: 2009-05-07 OH Transcription Batch 1 Assignment
|
||||||
# 2009-05-20 RSB Corrected a couple of DIMOFLAG to DIM0FLAG.
|
# 2009-05-20 RSB Corrected a couple of DIMOFLAG to DIM0FLAG.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -90,7 +90,7 @@
|
|||||||
|
|
||||||
EBANK= P21TIME
|
EBANK= P21TIME
|
||||||
COUNT 24/P21
|
COUNT 24/P21
|
||||||
|
|
||||||
PROG21 CAF ONE
|
PROG21 CAF ONE
|
||||||
TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
|
TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
|
||||||
CAF BIT2 # OPTION 2
|
CAF BIT2 # OPTION 2
|
||||||
@ -106,7 +106,7 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
|||||||
TC +2 # PROCEED VALUES OK
|
TC +2 # PROCEED VALUES OK
|
||||||
TC -5 # TIME LOADED THROUGH DSKY
|
TC -5 # TIME LOADED THROUGH DSKY
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
DLOAD
|
DLOAD
|
||||||
DSPTEM1
|
DSPTEM1
|
||||||
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
|
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
|
||||||
INTSTALL
|
INTSTALL
|
||||||
@ -126,9 +126,9 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
|
|||||||
INTEGRV # CALCULATE
|
INTEGRV # CALCULATE
|
||||||
GOTO # .AND
|
GOTO # .AND
|
||||||
P21VSAVE # ..SAVE BASE VECTOR
|
P21VSAVE # ..SAVE BASE VECTOR
|
||||||
P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
|
P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
|
||||||
P21BASER
|
P21BASER
|
||||||
# Page 458
|
# Page 458
|
||||||
STOVL RCV # ..POS
|
STOVL RCV # ..POS
|
||||||
P21BASEV
|
P21BASEV
|
||||||
STODL VCV # ..VEL
|
STODL VCV # ..VEL
|
||||||
@ -179,7 +179,7 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
|||||||
DMP # MPAC = ALT, METERS B-29
|
DMP # MPAC = ALT, METERS B-29
|
||||||
K.01
|
K.01
|
||||||
STORE P21ALT # ALT/100 FOR N73 DSP
|
STORE P21ALT # ALT/100 FOR N73 DSP
|
||||||
# Page 459
|
# Page 459
|
||||||
EXIT
|
EXIT
|
||||||
CAF V06N43 # DISPLAY LAT,LONG,ALT
|
CAF V06N43 # DISPLAY LAT,LONG,ALT
|
||||||
TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
|
TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
|
||||||
@ -191,9 +191,9 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
|
|||||||
P21TIME
|
P21TIME
|
||||||
600SEC # 600 SECONDS OR 10 MIN
|
600SEC # 600 SECONDS OR 10 MIN
|
||||||
STORE DSPTEM1
|
STORE DSPTEM1
|
||||||
RTB
|
RTB
|
||||||
P21PROG1
|
P21PROG1
|
||||||
|
|
||||||
600SEC 2DEC 60000 # 10 MIN
|
600SEC 2DEC 60000 # 10 MIN
|
||||||
|
|
||||||
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
|
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE
|
||||||
|
|||||||
@ -12,11 +12,11 @@
|
|||||||
# of 25DECML fixed.
|
# of 25DECML fixed.
|
||||||
# 2009-05-23 RSB At SPECSTS, corrected to PRIO22.
|
# 2009-05-23 RSB At SPECSTS, corrected to PRIO22.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -48,7 +48,7 @@
|
|||||||
BANK 33
|
BANK 33
|
||||||
SETLOC IMUCAL
|
SETLOC IMUCAL
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= POSITON
|
EBANK= POSITON
|
||||||
IMUTEST CA ZERO
|
IMUTEST CA ZERO
|
||||||
TS DRIFTT
|
TS DRIFTT
|
||||||
@ -58,11 +58,11 @@ IMUTEST CA ZERO
|
|||||||
TC COAALIGN # TAKE CARE OF DRIFT FLAG
|
TC COAALIGN # TAKE CARE OF DRIFT FLAG
|
||||||
CAF 1SECX
|
CAF 1SECX
|
||||||
TS 1SECXT1
|
TS 1SECXT1
|
||||||
|
|
||||||
CA OC14400
|
CA OC14400
|
||||||
TS 1/PIPADT
|
TS 1/PIPADT
|
||||||
GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
|
GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
|
||||||
CALL
|
CALL
|
||||||
LATAZCHK
|
LATAZCHK
|
||||||
COS DCOMP
|
COS DCOMP
|
||||||
SL1
|
SL1
|
||||||
@ -122,10 +122,10 @@ NBPOSPL CA DEC17
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA PERFDLAY
|
DCA PERFDLAY
|
||||||
TC LONGCALL
|
TC LONGCALL
|
||||||
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
|
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
|
||||||
EBANK= POSITON
|
EBANK= POSITON
|
||||||
2CADR GOESTIMS
|
2CADR GOESTIMS
|
||||||
|
|
||||||
CA ESTICADR
|
CA ESTICADR
|
||||||
TC JOBSLEEP
|
TC JOBSLEEP
|
||||||
GOESTIMS CA ESTICADR
|
GOESTIMS CA ESTICADR
|
||||||
@ -140,11 +140,11 @@ TORQUE CA ZERO
|
|||||||
INDEX POSITON
|
INDEX POSITON
|
||||||
TS SOUTHDR -1
|
TS SOUTHDR -1
|
||||||
TC SHOW
|
TC SHOW
|
||||||
|
|
||||||
PIPACHK INDEX NDXCTR # PIPA TEST
|
PIPACHK INDEX NDXCTR # PIPA TEST
|
||||||
TC +1
|
TC +1
|
||||||
TC EARTHR*
|
TC EARTHR*
|
||||||
CA DEC57
|
CA DEC57
|
||||||
TS LENGTHOT
|
TS LENGTHOT
|
||||||
CA ONE
|
CA ONE
|
||||||
TS RESULTCT
|
TS RESULTCT
|
||||||
@ -173,9 +173,9 @@ STARTPIP CAF PRIO20
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= XSM
|
EBANK= XSM
|
||||||
2CADR PIPJOBB
|
2CADR PIPJOBB
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
PIPJOBB INDEX NDXCTR
|
PIPJOBB INDEX NDXCTR
|
||||||
TC +1
|
TC +1
|
||||||
TC EARTHR*
|
TC EARTHR*
|
||||||
@ -190,7 +190,7 @@ PIPJOBB INDEX NDXCTR
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCS DATAPL
|
DCS DATAPL
|
||||||
DAS DATAPL +4
|
DAS DATAPL +4
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
DLOAD DSU
|
DLOAD DSU
|
||||||
DATAPL +6
|
DATAPL +6
|
||||||
@ -222,7 +222,7 @@ PON4 CS BIT5 # OFFSET PLATFORM
|
|||||||
CA BIT5
|
CA BIT5
|
||||||
ADS ERCOMP1
|
ADS ERCOMP1
|
||||||
TCF PONG
|
TCF PONG
|
||||||
PON2 CS BIT5
|
PON2 CS BIT5
|
||||||
ADS ERCOMP1 +2
|
ADS ERCOMP1 +2
|
||||||
CA BIT5
|
CA BIT5
|
||||||
ADS ERCOMP1 +4
|
ADS ERCOMP1 +4
|
||||||
@ -242,7 +242,7 @@ VALMIS CA DRIFTO
|
|||||||
CA ZERO
|
CA ZERO
|
||||||
TS DSPTEM2
|
TS DSPTEM2
|
||||||
TC SHOW
|
TC SHOW
|
||||||
|
|
||||||
ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
|
ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
|
||||||
ADRES IMUSE # BIT 8 FLAG 0
|
ADRES IMUSE # BIT 8 FLAG 0
|
||||||
CS ZERO
|
CS ZERO
|
||||||
@ -251,12 +251,12 @@ ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
|
|||||||
CADR MKRELEAS
|
CADR MKRELEAS
|
||||||
TC ENDEXT
|
TC ENDEXT
|
||||||
# Page 428
|
# Page 428
|
||||||
|
|
||||||
OVERFFIX DAD DAD
|
OVERFFIX DAD DAD
|
||||||
DPPOSMAX
|
DPPOSMAX
|
||||||
ONEDPP
|
ONEDPP
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
||||||
QXCH QPLACE
|
QXCH QPLACE
|
||||||
CA ZERO
|
CA ZERO
|
||||||
@ -273,7 +273,7 @@ COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
|
|||||||
IMUSTLLG EXTEND
|
IMUSTLLG EXTEND
|
||||||
QXCH QPLACE
|
QXCH QPLACE
|
||||||
TC COAALIGN +10
|
TC COAALIGN +10
|
||||||
|
|
||||||
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
|
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
|
||||||
QXCH QPLACE
|
QXCH QPLACE
|
||||||
TC +6
|
TC +6
|
||||||
@ -359,7 +359,7 @@ ERTHR SL VXSC
|
|||||||
PULSEIMU
|
PULSEIMU
|
||||||
GOTO
|
GOTO
|
||||||
S2
|
S2
|
||||||
|
|
||||||
EARTHR* EXTEND
|
EARTHR* EXTEND
|
||||||
QXCH QPLACES
|
QXCH QPLACES
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -369,7 +369,7 @@ PROUT EXIT
|
|||||||
TC IMUSTLLG
|
TC IMUSTLLG
|
||||||
TC QPLACES
|
TC QPLACES
|
||||||
# Page 431
|
# Page 431
|
||||||
|
|
||||||
SHOW EXTEND
|
SHOW EXTEND
|
||||||
QXCH QPLACE
|
QXCH QPLACE
|
||||||
SHOW1 CA POSITON
|
SHOW1 CA POSITON
|
||||||
@ -380,7 +380,7 @@ SHOW1 CA POSITON
|
|||||||
TC ENDTEST1 # V34
|
TC ENDTEST1 # V34
|
||||||
TC QPLACE # V33
|
TC QPLACE # V33
|
||||||
TCF SHOW1
|
TCF SHOW1
|
||||||
|
|
||||||
OC14400 OCT 14400
|
OC14400 OCT 14400
|
||||||
3990DEC = OMEG/MS
|
3990DEC = OMEG/MS
|
||||||
VB06N98 VN 0698
|
VB06N98 VN 0698
|
||||||
@ -395,7 +395,7 @@ OMEG/MS 2DEC .24339048
|
|||||||
|
|
||||||
P11OUT TC BANKCALL
|
P11OUT TC BANKCALL
|
||||||
CADR MATRXJOB # RETURN TO P11
|
CADR MATRXJOB # RETURN TO P11
|
||||||
|
|
||||||
COUNT 02/COMST
|
COUNT 02/COMST
|
||||||
|
|
||||||
BLOCK 2
|
BLOCK 2
|
||||||
@ -417,7 +417,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
|||||||
EXTEND
|
EXTEND
|
||||||
READ HISCALAR
|
READ HISCALAR
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 432
|
# Page 432
|
||||||
# PROGRAM NAME: OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
|
# PROGRAM NAME: OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
|
||||||
# DATE: NOVEMBER 2 1966
|
# DATE: NOVEMBER 2 1966
|
||||||
@ -437,7 +437,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
|||||||
# A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST.
|
# A RESTART IN GYROCOMPASS DURING GYRO TORQUING CAUSES PULSES TO BE LOST.
|
||||||
# THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
|
# THE PRELAUNCH ALIGNMENT TECHNIQUE IS BASICALLY THE SAME AS IN BLOCK 1
|
||||||
# EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
|
# EXCEPT THAT IT HAS BEEN SIMPLIFIED IN THE SENSE THAT SMALL ANGLE APPROX.
|
||||||
# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
|
# HAVE BEEN USED. THE DRIFT TESTS USE A UNIQUE IMPLEMENTATION OF THE
|
||||||
# OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973. BOTH OF THESE
|
# OPTIMUM STATISTICAL FILTER. FOR A DESCRIPTION SEE E-1973. BOTH OF THESE
|
||||||
# ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
|
# ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
|
||||||
# PROCEDURE THE DRIFT TESTS IS IN THE JDC'S. THE INITIALIZATION METHOD
|
# PROCEDURE THE DRIFT TESTS IS IN THE JDC'S. THE INITIALIZATION METHOD
|
||||||
@ -493,7 +493,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
|
|||||||
# ON THE NEXT FEW PAGES.
|
# ON THE NEXT FEW PAGES.
|
||||||
|
|
||||||
COUNT 33/P02
|
COUNT 33/P02
|
||||||
|
|
||||||
EBANK= XSM
|
EBANK= XSM
|
||||||
BANK 33
|
BANK 33
|
||||||
SETLOC IMUCAL
|
SETLOC IMUCAL
|
||||||
@ -524,7 +524,7 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
|
|||||||
STORE GCOMP
|
STORE GCOMP
|
||||||
STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED
|
STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CCS GEOCOMP1 # NON ZERO IF COMPASS.
|
CCS GEOCOMP1 # NON ZERO IF COMPASS.
|
||||||
TC +2
|
TC +2
|
||||||
TC SLEEPIE +1
|
TC SLEEPIE +1
|
||||||
@ -534,11 +534,11 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
|
|||||||
EXIT
|
EXIT
|
||||||
CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
|
CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
|
||||||
TS ERECTIME
|
TS ERECTIME
|
||||||
|
|
||||||
TC NEWMODEX
|
TC NEWMODEX
|
||||||
MM 02
|
MM 02
|
||||||
TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM
|
TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM
|
||||||
# Page 435
|
# Page 435
|
||||||
CADR PIPUSE # COMPASS NEVER TURNS THIS OFF
|
CADR PIPUSE # COMPASS NEVER TURNS THIS OFF
|
||||||
TC ANNNNNN # END OF FIRST TIME THROUGH
|
TC ANNNNNN # END OF FIRST TIME THROUGH
|
||||||
|
|
||||||
@ -554,7 +554,7 @@ SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGHOT
|
|||||||
WTLISTNT TC CHKCOMED # SEE IF COMPASS OVER
|
WTLISTNT TC CHKCOMED # SEE IF COMPASS OVER
|
||||||
TC SETGWLST
|
TC SETGWLST
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
SETGWLST EXTEND
|
SETGWLST EXTEND
|
||||||
QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE
|
QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE
|
||||||
INHINT
|
INHINT
|
||||||
@ -572,7 +572,7 @@ WTGTSMPL TC TWIDDLE
|
|||||||
TC MPAC
|
TC MPAC
|
||||||
RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME
|
RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME
|
||||||
TC WTGTSMPL # END OF WAITLIST SECTION
|
TC WTGTSMPL # END OF WAITLIST SECTION
|
||||||
|
|
||||||
# STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING
|
# STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING
|
||||||
|
|
||||||
25DECML EQUALS OCT31
|
25DECML EQUALS OCT31
|
||||||
@ -597,9 +597,9 @@ LOADSTDT CAF 25DECML
|
|||||||
CCS MPAC
|
CCS MPAC
|
||||||
TCF LOADSTDT +1
|
TCF LOADSTDT +1
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE
|
# COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE
|
||||||
|
|
||||||
ALLOOP CA TIME1
|
ALLOOP CA TIME1
|
||||||
TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST.
|
TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST.
|
||||||
ALLOOP3 CA ALTIM
|
ALLOOP3 CA ALTIM
|
||||||
@ -629,9 +629,9 @@ SPECSTS CAF PRIO22
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= GEOSAVE1
|
EBANK= GEOSAVE1
|
||||||
2CADR ALFLT # START THE JOB
|
2CADR ALFLT # START THE JOB
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
# Page 438
|
# Page 438
|
||||||
# THIS IS PART OF THE JOB DONE EVERY ITERATION
|
# THIS IS PART OF THE JOB DONE EVERY ITERATION
|
||||||
|
|
||||||
@ -659,20 +659,20 @@ NORMLOP TC INTPRET
|
|||||||
STODL DPIPAY
|
STODL DPIPAY
|
||||||
MPAC +5
|
MPAC +5
|
||||||
STORE DPIPAZ
|
STORE DPIPAZ
|
||||||
|
|
||||||
SETPD AXT,1
|
SETPD AXT,1
|
||||||
0
|
0
|
||||||
8D
|
8D
|
||||||
SLOAD DCOMP
|
SLOAD DCOMP
|
||||||
GEOCOMP1
|
GEOCOMP1
|
||||||
BMN
|
BMN
|
||||||
ALWAYSG # DO A QUICK COMPASS
|
ALWAYSG # DO A QUICK COMPASS
|
||||||
|
|
||||||
# Page 439
|
# Page 439
|
||||||
# NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES
|
# NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES
|
||||||
|
|
||||||
COUNT 33/COMST
|
COUNT 33/COMST
|
||||||
|
|
||||||
ALCGKK SLOAD BMN
|
ALCGKK SLOAD BMN
|
||||||
ALTIMS
|
ALTIMS
|
||||||
ALFLT3 # NO NEW GAINS NEEDED
|
ALFLT3 # NO NEW GAINS NEEDED
|
||||||
@ -686,7 +686,7 @@ ALKCG2 DLOAD* INCR,1
|
|||||||
TIX,2 SXA,1
|
TIX,2 SXA,1
|
||||||
ALKCG2
|
ALKCG2
|
||||||
ALX1S
|
ALX1S
|
||||||
|
|
||||||
ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES
|
ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES
|
||||||
8D # AND GAIN UPDATES
|
8D # AND GAIN UPDATES
|
||||||
DELMLP DLOAD* DMP
|
DELMLP DLOAD* DMP
|
||||||
@ -740,7 +740,7 @@ ALKLP LXC,1 SXA,1
|
|||||||
TIX,2 AXT,1
|
TIX,2 AXT,1
|
||||||
ALKLP
|
ALKLP
|
||||||
8D
|
8D
|
||||||
|
|
||||||
LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
|
LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
|
||||||
ACCWD +8D,1
|
ACCWD +8D,1
|
||||||
VLAUN +8D,1
|
VLAUN +8D,1
|
||||||
@ -759,7 +759,7 @@ LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
|
|||||||
STORE ACCWD +8D,1
|
STORE ACCWD +8D,1
|
||||||
TIX,1
|
TIX,1
|
||||||
LOOSE
|
LOOSE
|
||||||
|
|
||||||
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
|
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
|
||||||
6
|
6
|
||||||
2
|
2
|
||||||
@ -777,13 +777,13 @@ BOOP DLOAD* DMPR
|
|||||||
STORE 22D,2 # COSINES
|
STORE 22D,2 # COSINES
|
||||||
TIX,2
|
TIX,2
|
||||||
BOOP
|
BOOP
|
||||||
|
|
||||||
PERFERAS EXIT
|
PERFERAS EXIT
|
||||||
CA EBANK7
|
CA EBANK7
|
||||||
EBANK= LAT(SPL)
|
EBANK= LAT(SPL)
|
||||||
TS EBANK
|
TS EBANK
|
||||||
TC LAT(SPL) # GOTO ERASABLE ONLY TO RETURN
|
TC LAT(SPL) # GOTO ERASABLE ONLY TO RETURN
|
||||||
|
|
||||||
# CAUTION
|
# CAUTION
|
||||||
#
|
#
|
||||||
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
|
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
|
||||||
@ -809,9 +809,9 @@ SETUPER1 TC INTPRET # DRIFT TEST OVER
|
|||||||
XSM
|
XSM
|
||||||
STORE OGC
|
STORE OGC
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
TORQINCH TC PHASCHNG
|
TORQINCH TC PHASCHNG
|
||||||
OCT 00005
|
OCT 00005
|
||||||
CA OGCPL
|
CA OGCPL
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUPULSE
|
CADR IMUPULSE
|
||||||
@ -824,39 +824,39 @@ TORQINCH TC PHASCHNG
|
|||||||
ERTHRVSE
|
ERTHRVSE
|
||||||
EXIT
|
EXIT
|
||||||
TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
|
TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
|
||||||
|
|
||||||
SOMEERRR TC ALARM
|
SOMEERRR TC ALARM
|
||||||
OCT 1600
|
OCT 1600
|
||||||
TC +3
|
TC +3
|
||||||
SOMERR2 TC ALARM
|
SOMERR2 TC ALARM
|
||||||
OCT 1601
|
OCT 1601
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00005
|
OCT 00005
|
||||||
TC ENDTEST1
|
TC ENDTEST1
|
||||||
|
|
||||||
# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD
|
# THE FAMOUS MAGIC NUMBERS OF SCHMIDT ARE NOW PART OF AN ERASABLE LOAD
|
||||||
|
|
||||||
DEC585 OCT 02222 # 1170 B+14 ORDER IS NOW IMPORTANT
|
DEC585 OCT 02222 # 1170 B+14 ORDER IS NOW IMPORTANT
|
||||||
SCHZEROS 2DEC .00000000
|
SCHZEROS 2DEC .00000000
|
||||||
2DEC .00000000
|
2DEC .00000000
|
||||||
OCT 00000
|
OCT 00000
|
||||||
ONEDPP OCT 00000
|
ONEDPP OCT 00000
|
||||||
OCT 00001 # ABOVE ORDER IS IMPORTANT
|
OCT 00001 # ABOVE ORDER IS IMPORTANT
|
||||||
|
|
||||||
INTVAL OCT 4
|
INTVAL OCT 4
|
||||||
OCT 2
|
OCT 2
|
||||||
DEC 144
|
DEC 144
|
||||||
DEC -1
|
DEC -1
|
||||||
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
|
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
|
||||||
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
|
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
|
||||||
|
|
||||||
77DECML DEC 77
|
77DECML DEC 77
|
||||||
ALXXXZ GENADR ALX1S -1
|
ALXXXZ GENADR ALX1S -1
|
||||||
|
|
||||||
# GYROCOMPASS PORTIONS FINISH THIS LOG SECTION
|
# GYROCOMPASS PORTIONS FINISH THIS LOG SECTION
|
||||||
|
|
||||||
COUNT 33/P01
|
COUNT 33/P01
|
||||||
|
|
||||||
# INITIALIZATION SECTION
|
# INITIALIZATION SECTION
|
||||||
|
|
||||||
GTSCPSS CA FLAGWRD1 # CALLED BY V37
|
GTSCPSS CA FLAGWRD1 # CALLED BY V37
|
||||||
@ -866,7 +866,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37
|
|||||||
BZF GTSCPSSA
|
BZF GTSCPSSA
|
||||||
TC P00DOO
|
TC P00DOO
|
||||||
OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE
|
OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE
|
||||||
|
|
||||||
GTSCPSSA CAF ONE
|
GTSCPSSA CAF ONE
|
||||||
TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS
|
TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS
|
||||||
CA 1/PIPAGT
|
CA 1/PIPAGT
|
||||||
@ -892,8 +892,8 @@ SETUPGC CA DEC17
|
|||||||
TC ZEROING
|
TC ZEROING
|
||||||
TC POSN17C
|
TC POSN17C
|
||||||
TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION
|
TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION
|
||||||
|
|
||||||
|
|
||||||
POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
|
POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
|
||||||
QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWISE
|
QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWISE
|
||||||
CS HALF # ALL THIS TO INITIALIZE MATRIX
|
CS HALF # ALL THIS TO INITIALIZE MATRIX
|
||||||
@ -910,12 +910,12 @@ POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
|
|||||||
STORE XSM +2
|
STORE XSM +2
|
||||||
EXIT
|
EXIT
|
||||||
TC QPLACE
|
TC QPLACE
|
||||||
|
|
||||||
# Page 444
|
# Page 444
|
||||||
# JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP
|
# JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP
|
||||||
|
|
||||||
COUNT 33/P02
|
COUNT 33/P02
|
||||||
|
|
||||||
ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
|
ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
|
||||||
DPIPAY +8D,1
|
DPIPAY +8D,1
|
||||||
FILDELV1 +8D,1
|
FILDELV1 +8D,1
|
||||||
@ -962,7 +962,7 @@ COMPGS DLOAD DAD # COMPASS
|
|||||||
GEOCONS4
|
GEOCONS4
|
||||||
BDSU STADR
|
BDSU STADR
|
||||||
STORE THETAN1 +2
|
STORE THETAN1 +2
|
||||||
# Page 445
|
# Page 445
|
||||||
ADDINDRF EXIT
|
ADDINDRF EXIT
|
||||||
|
|
||||||
|
|
||||||
@ -971,7 +971,7 @@ ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
|
|||||||
TC CHKCOMED
|
TC CHKCOMED
|
||||||
CCS LGYRO # YES BUT ARE GYROS BUSY
|
CCS LGYRO # YES BUT ARE GYROS BUSY
|
||||||
TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW
|
TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW
|
||||||
|
|
||||||
LASTGTS TC INTPRET
|
LASTGTS TC INTPRET
|
||||||
VLOAD
|
VLOAD
|
||||||
ERCOMP1
|
ERCOMP1
|
||||||
@ -979,7 +979,7 @@ LASTGTS TC INTPRET
|
|||||||
TMARK
|
TMARK
|
||||||
STORE ALK
|
STORE ALK
|
||||||
EXIT # PREVIOUS SECTION WAS FOR RESTARTS
|
EXIT # PREVIOUS SECTION WAS FOR RESTARTS
|
||||||
|
|
||||||
RESTAIER TC PHASCHNG
|
RESTAIER TC PHASCHNG
|
||||||
OCT 00275
|
OCT 00275
|
||||||
TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
|
TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
|
||||||
@ -1040,19 +1040,19 @@ SPITGYRO CA ERCOMPPL
|
|||||||
CADR IMUSTALL
|
CADR IMUSTALL
|
||||||
TC SOMERR2
|
TC SOMERR2
|
||||||
TC ESTIMS # RE-INITIALIZE
|
TC ESTIMS # RE-INITIALIZE
|
||||||
|
|
||||||
|
|
||||||
NOAZCHGE EXIT
|
NOAZCHGE EXIT
|
||||||
CA ONE
|
CA ONE
|
||||||
TS PREMTRXC
|
TS PREMTRXC
|
||||||
NOCHORLD CCS GEOSAVE1
|
NOCHORLD CCS GEOSAVE1
|
||||||
TS ERECTIM1 # COUNTS DOWN FOR ERECTION.
|
TS ERECTIM1 # COUNTS DOWN FOR ERECTION.
|
||||||
|
|
||||||
ANNNNNN CAF NINE
|
ANNNNNN CAF NINE
|
||||||
TS LENGTHOT
|
TS LENGTHOT
|
||||||
TC SLEEPIE +1
|
TC SLEEPIE +1
|
||||||
|
|
||||||
|
|
||||||
CHKCOMED INHINT
|
CHKCOMED INHINT
|
||||||
CS MODREG # CHECK FOR MM 07 FIRST
|
CS MODREG # CHECK FOR MM 07 FIRST
|
||||||
AD SEVEN
|
AD SEVEN
|
||||||
@ -1064,13 +1064,13 @@ CHKCOMED INHINT
|
|||||||
MASK BIT5 # LIFTOFF BIT
|
MASK BIT5 # LIFTOFF BIT
|
||||||
CCS A
|
CCS A
|
||||||
TCF PRELTERM # LIFTOFF HAS OCCURRED
|
TCF PRELTERM # LIFTOFF HAS OCCURRED
|
||||||
|
|
||||||
# Page 447
|
# Page 447
|
||||||
CA GRRBKBIT # CHECK FOR BACKUP LIFTOFF
|
CA GRRBKBIT # CHECK FOR BACKUP LIFTOFF
|
||||||
MASK FLAGWRD5 # BIT5 FLAGWRD5
|
MASK FLAGWRD5 # BIT5 FLAGWRD5
|
||||||
CCS A
|
CCS A
|
||||||
TCF PRELTERM # BACKUP RECEIVED
|
TCF PRELTERM # BACKUP RECEIVED
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
GOBKCALB TC Q
|
GOBKCALB TC Q
|
||||||
|
|
||||||
@ -1079,8 +1079,8 @@ PRELTERM CA PRIO22 # PRELAUNCH DONE -- SET UP P11
|
|||||||
INHINT
|
INHINT
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR P11
|
CADR P11
|
||||||
|
|
||||||
|
|
||||||
ERCOMPPL ECADR ERCOMP
|
ERCOMPPL ECADR ERCOMP
|
||||||
|
|
||||||
GEOCONS5 EQUALS HIDPHALF
|
GEOCONS5 EQUALS HIDPHALF
|
||||||
@ -1097,7 +1097,7 @@ GEOSTRT4 EQUALS ENDOFJOB
|
|||||||
# OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS
|
# OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS
|
||||||
|
|
||||||
COUNT 33/P03
|
COUNT 33/P03
|
||||||
|
|
||||||
GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE
|
GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE
|
||||||
OCT 00154
|
OCT 00154
|
||||||
TC NEWMODEX # ENTERED BY VERB 65 ENTER
|
TC NEWMODEX # ENTERED BY VERB 65 ENTER
|
||||||
@ -1131,9 +1131,9 @@ VN0641 VN 0641
|
|||||||
CAF TWO
|
CAF TWO
|
||||||
TS L
|
TS L
|
||||||
TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2
|
TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2
|
||||||
|
|
||||||
TC CONTIN33
|
TC CONTIN33
|
||||||
|
|
||||||
V05N30E VN 0530
|
V05N30E VN 0530
|
||||||
|
|
||||||
TC INTPRET # UNDYNAMIC ASSEMBLER
|
TC INTPRET # UNDYNAMIC ASSEMBLER
|
||||||
@ -1146,7 +1146,7 @@ TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
|
|||||||
# Page 450
|
# Page 450
|
||||||
0
|
0
|
||||||
TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
|
TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
|
||||||
TAZEL1 +3,1
|
TAZEL1 +3,1
|
||||||
STORE 0 # PD00 ELEVATION PD00
|
STORE 0 # PD00 ELEVATION PD00
|
||||||
SIN
|
SIN
|
||||||
STORE 18D,2 # PD06 *** SIN(EL) ***PD12
|
STORE 18D,2 # PD06 *** SIN(EL) ***PD12
|
||||||
@ -1169,13 +1169,13 @@ TAR1 SLOAD* SR2 # X1=2 X2=12 S2=6 X1=0 X2=6 S2=6
|
|||||||
STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) ***PD14
|
STORE 20D,2 # PD08 *** -COS(AZ)COS(EL) ***PD14
|
||||||
TIX,2 RVQ
|
TIX,2 RVQ
|
||||||
TAR1
|
TAR1
|
||||||
|
|
||||||
|
|
||||||
BANK 33
|
BANK 33
|
||||||
SETLOC IMUCAL
|
SETLOC IMUCAL
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P03
|
COUNT* $$/P03
|
||||||
|
|
||||||
CONTIN33 CA ONE
|
CONTIN33 CA ONE
|
||||||
TS STARCODE
|
TS STARCODE
|
||||||
CA ZERO
|
CA ZERO
|
||||||
@ -1186,7 +1186,7 @@ CONTIN33 CA ONE
|
|||||||
NEXTBNKS VLOAD MXV
|
NEXTBNKS VLOAD MXV
|
||||||
6D
|
6D
|
||||||
XSM
|
XSM
|
||||||
VSL1
|
VSL1
|
||||||
STOVL STARAD
|
STOVL STARAD
|
||||||
12D
|
12D
|
||||||
MXV VSL1
|
MXV VSL1
|
||||||
@ -1198,8 +1198,8 @@ NEXTBNKS VLOAD MXV
|
|||||||
EXIT
|
EXIT
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR MKRELEAS
|
CADR MKRELEAS
|
||||||
|
|
||||||
|
|
||||||
NEXBNKSS CAF TWO
|
NEXBNKSS CAF TWO
|
||||||
TS STARCODE
|
TS STARCODE
|
||||||
CAF SIX
|
CAF SIX
|
||||||
@ -1230,7 +1230,7 @@ GCOMP5 TC BANKCALL
|
|||||||
CADR MKRELEAS
|
CADR MKRELEAS
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES TRM03FLG
|
ADRES TRM03FLG
|
||||||
|
|
||||||
TC NEWMODEX
|
TC NEWMODEX
|
||||||
MM 02
|
MM 02
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
@ -1240,15 +1240,15 @@ V06N93S VN 0693
|
|||||||
GTSOPTCS TC ALARM
|
GTSOPTCS TC ALARM
|
||||||
GTSOPTSS OCT 01602
|
GTSOPTSS OCT 01602
|
||||||
TC GCOMP5
|
TC GCOMP5
|
||||||
|
|
||||||
|
|
||||||
BANK 34
|
BANK 34
|
||||||
SETLOC IMUCAL1
|
SETLOC IMUCAL1
|
||||||
BANK
|
BANK
|
||||||
# Page 452
|
# Page 452
|
||||||
|
|
||||||
COUNT 34/COMST
|
COUNT 34/COMST
|
||||||
|
|
||||||
LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE
|
LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE
|
||||||
LATITUDE
|
LATITUDE
|
||||||
STODL DSPTEM1 +1
|
STODL DSPTEM1 +1
|
||||||
@ -1278,8 +1278,8 @@ VNG0641 VN 0641
|
|||||||
BANK 33
|
BANK 33
|
||||||
SETLOC IMUCAL
|
SETLOC IMUCAL
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
|
|
||||||
COUNT* $$/P03
|
COUNT* $$/P03
|
||||||
TARGDRVE EXTEND
|
TARGDRVE EXTEND
|
||||||
QXCH QPLAC
|
QXCH QPLAC
|
||||||
@ -1311,14 +1311,14 @@ RETARG CAF ZERO
|
|||||||
MASK TRM03BIT
|
MASK TRM03BIT
|
||||||
CCS A
|
CCS A
|
||||||
TC GCOMP5
|
TC GCOMP5
|
||||||
|
|
||||||
INDEX MARKSTAT
|
INDEX MARKSTAT
|
||||||
CA QPRET
|
CA QPRET
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF RETARG1
|
BZF RETARG1
|
||||||
TC QPLAC
|
TC QPLAC
|
||||||
|
|
||||||
|
|
||||||
RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA
|
RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA
|
||||||
XCH MARKSTAT
|
XCH MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
@ -1336,7 +1336,7 @@ VELSC 2DEC -.52223476
|
|||||||
ALSK 2DEC .17329931
|
ALSK 2DEC .17329931
|
||||||
|
|
||||||
2DEC -.00835370
|
2DEC -.00835370
|
||||||
|
|
||||||
GEORGEJ 2DEC .63661977
|
GEORGEJ 2DEC .63661977
|
||||||
|
|
||||||
GEOCONS1 2DEC .1
|
GEOCONS1 2DEC .1
|
||||||
@ -1361,8 +1361,8 @@ LITTLSUB STQ
|
|||||||
TRG*NBSM
|
TRG*NBSM
|
||||||
GOTO
|
GOTO
|
||||||
QPLAC
|
QPLAC
|
||||||
|
|
||||||
|
|
||||||
EXIT
|
EXIT
|
||||||
AZMTHCG1 TC INTPRET
|
AZMTHCG1 TC INTPRET
|
||||||
DLOAD RTB
|
DLOAD RTB
|
||||||
@ -1391,7 +1391,7 @@ AZMTHCG1 TC INTPRET
|
|||||||
OCT 00004
|
OCT 00004
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR PINBRNCH
|
CADR PINBRNCH
|
||||||
|
|
||||||
VN0629 VN 0629
|
VN0629 VN 0629
|
||||||
|
|
||||||
# Page 455
|
# Page 455
|
||||||
|
|||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -31,45 +31,45 @@
|
|||||||
# Page 297
|
# Page 297
|
||||||
BANK 7
|
BANK 7
|
||||||
SETLOC IMUCOMP
|
SETLOC IMUCOMP
|
||||||
BANK
|
BANK
|
||||||
EBANK= NBDX
|
EBANK= NBDX
|
||||||
|
|
||||||
COUNT 06/ICOMP
|
COUNT 06/ICOMP
|
||||||
|
|
||||||
1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
|
1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
|
||||||
XCH EBANK
|
XCH EBANK
|
||||||
TS MODE
|
TS MODE
|
||||||
|
|
||||||
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF IRIG1 # RETURN
|
TCF IRIG1 # RETURN
|
||||||
|
|
||||||
INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S
|
INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S
|
||||||
# FOR DOWNLINK.
|
# FOR DOWNLINK.
|
||||||
|
|
||||||
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||||
TS BUF +2
|
TS BUF +2
|
||||||
|
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
CA PIPASCF # (P.P.M.) X 2(-9)
|
CA PIPASCF # (P.P.M.) X 2(-9)
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
|
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
|
||||||
TS Q # SAVE MAJOR PART
|
TS Q # SAVE MAJOR PART
|
||||||
|
|
||||||
CA L # MINOR PART
|
CA L # MINOR PART
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
|
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
|
||||||
|
|
||||||
CA Q # MAJOR PART
|
CA Q # MAJOR PART
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
DAS DELVX # (PIPAI) + (PIPAI)(SF)
|
DAS DELVX # (PIPAI) + (PIPAI)(SF)
|
||||||
|
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-8) *
|
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-8) *
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -78,7 +78,7 @@
|
|||||||
MP BIT1 # SCALE 2(+14) SHIFT RIGHT 14 *
|
MP BIT1 # SCALE 2(+14) SHIFT RIGHT 14 *
|
||||||
INDEX BUF +2
|
INDEX BUF +2
|
||||||
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
|
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
|
||||||
|
|
||||||
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
|
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
|
||||||
# Page 298
|
# Page 298
|
||||||
AD NEG1
|
AD NEG1
|
||||||
@ -89,16 +89,16 @@
|
|||||||
|
|
||||||
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
||||||
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
|
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
|
||||||
|
|
||||||
IRIGX EXTEND
|
IRIGX EXTEND
|
||||||
DCS DELVX # (PIPA PULSES) X 2(+14)
|
DCS DELVX # (PIPA PULSES) X 2(+14)
|
||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
||||||
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
|
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
EXTEND #
|
EXTEND #
|
||||||
DCS DELVY # (PIPA PULSES) X 2(+14)
|
DCS DELVY # (PIPA PULSES) X 2(+14)
|
||||||
DXCH MPAC #
|
DXCH MPAC #
|
||||||
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
||||||
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
|
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
@ -138,13 +138,13 @@ IRIGZ EXTEND
|
|||||||
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
||||||
# Page 300
|
# Page 300
|
||||||
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
|
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS DELVZ # (PIPA PULSES) X 2(+14)
|
DCS DELVZ # (PIPA PULSES) X 2(+14)
|
||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
|
||||||
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
|
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
# EXTEND # ***
|
# EXTEND # ***
|
||||||
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
|
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
|
||||||
# DXCH MPAC # ***
|
# DXCH MPAC # ***
|
||||||
@ -156,14 +156,14 @@ IRIGZ EXTEND
|
|||||||
|
|
||||||
# Page 301
|
# Page 301
|
||||||
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||||
TCF +2 # YES
|
TCF +2 # YES
|
||||||
TCF IRIG1 # NO
|
TCF IRIG1 # NO
|
||||||
|
|
||||||
CA PRIO21 # HIGHER THAN SERVICER -- LESS THAN PRELAUNCH
|
CA PRIO21 # HIGHER THAN SERVICER -- LESS THAN PRELAUNCH
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= NBDX
|
EBANK= NBDX
|
||||||
2CADR 1/GYRO
|
2CADR 1/GYRO
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
IRIG1 CA MODE # SET EBANK FOR RETURN
|
IRIG1 CA MODE # SET EBANK FOR RETURN
|
||||||
TS EBANK
|
TS EBANK
|
||||||
@ -208,7 +208,7 @@ DRIFTSUB EXTEND
|
|||||||
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
CA MPAC +1 # NOW MINOR PART
|
CA MPAC +1 # NOW MINOR PART
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
|
||||||
@ -216,7 +216,7 @@ DRIFTSUB EXTEND
|
|||||||
CAF ZERO
|
CAF ZERO
|
||||||
INDEX BUF # ADD IN FRACTIONAL COMPENSATION
|
INDEX BUF # ADD IN FRACTIONAL COMPENSATION
|
||||||
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
|
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
|
||||||
AD BUF
|
AD BUF
|
||||||
XCH BUF
|
XCH BUF
|
||||||
@ -224,23 +224,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
|
|||||||
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
|
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
|
||||||
TCF +2 # YES
|
TCF +2 # YES
|
||||||
TC BUF +1 # NO
|
TC BUF +1 # NO
|
||||||
|
|
||||||
MASK NEGONE
|
MASK NEGONE
|
||||||
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||||
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
|
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
|
||||||
TC BUF +1 # NO
|
TC BUF +1 # NO
|
||||||
|
|
||||||
# Page 303
|
# Page 303
|
||||||
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
|
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||||
TS BUF
|
TS BUF
|
||||||
|
|
||||||
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
|
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
|
||||||
CA GCOMP +1 # FRACTIONAL PULSES
|
CA GCOMP +1 # FRACTIONAL PULSES
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT8 # SHIFT RIGHT 7
|
MP BIT8 # SHIFT RIGHT 7
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
TS GCOMP +1 # FRACTIONAL PULSES SCALED
|
TS GCOMP +1 # FRACTIONAL PULSES SCALED
|
||||||
|
|
||||||
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
|
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
XCH GCOMP # GYRO PULSES
|
XCH GCOMP # GYRO PULSES
|
||||||
@ -248,7 +248,7 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
|
|||||||
MP BIT8 # SHIFT RIGHT 7
|
MP BIT8 # SHIFT RIGHT 7
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
|
DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
|
||||||
|
|
||||||
CCS BUF # PIPAZ, PIPAY, PIPAX
|
CCS BUF # PIPAZ, PIPAY, PIPAX
|
||||||
AD NEG1
|
AD NEG1
|
||||||
TCF 1/GYRO +1
|
TCF 1/GYRO +1
|
||||||
@ -260,25 +260,25 @@ LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
|
|||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
|
CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
|
||||||
TCF ENDOFJOB # TEMPORARY
|
TCF ENDOFJOB # TEMPORARY
|
||||||
|
|
||||||
GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
|
||||||
TS BUF
|
TS BUF
|
||||||
|
|
||||||
INDEX BUF # RESCALE
|
INDEX BUF # RESCALE
|
||||||
CA GCOMP +1
|
CA GCOMP +1
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
|
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
|
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
|
||||||
|
|
||||||
CCS BUF # PIPAZ, PIPAY, PIPAX
|
CCS BUF # PIPAZ, PIPAY, PIPAX
|
||||||
AD NEG1
|
AD NEG1
|
||||||
TCF GCOMP1 +1
|
TCF GCOMP1 +1
|
||||||
|
|
||||||
V06N30S VN 0630
|
V06N30S VN 0630
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
# Page 304
|
# Page 304
|
||||||
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -289,7 +289,7 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
|||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
TCF +1
|
TCF +1
|
||||||
|
|
||||||
CA TIME1 # (CS) X 2(+14)
|
CA TIME1 # (CS) X 2(+14)
|
||||||
XCH 1/PIPADT # PREVIOUS TIME
|
XCH 1/PIPADT # PREVIOUS TIME
|
||||||
RELINT
|
RELINT
|
||||||
@ -300,36 +300,36 @@ NBD2 CCS A # CALCULATE ELAPSED TIME.
|
|||||||
TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
|
TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
|
||||||
TCF +2 # TIME1 OVERFLOW
|
TCF +2 # TIME1 OVERFLOW
|
||||||
TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
|
TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
|
||||||
|
|
||||||
COM # CALCULATE ABSOLUTE DIFFERENCE
|
COM # CALCULATE ABSOLUTE DIFFERENCE
|
||||||
AD POSMAX
|
AD POSMAX
|
||||||
|
|
||||||
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
|
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
|
||||||
MP BIT10 # SHIFT RIGHT 5
|
MP BIT10 # SHIFT RIGHT 5
|
||||||
DXCH VBUF
|
DXCH VBUF
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA VBUF
|
DCA VBUF
|
||||||
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
|
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
|
||||||
TS BUF # INDEX X, Y, Z.
|
TS BUF # INDEX X, Y, Z.
|
||||||
|
|
||||||
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
|
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
|
||||||
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
|
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS VBUF
|
DCS VBUF
|
||||||
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||||
CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
|
CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
|
||||||
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
|
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS VBUF
|
DCS VBUF
|
||||||
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||||
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
|
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
|
||||||
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
|
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
# Page 305
|
# Page 305
|
||||||
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
|
||||||
TCF 1/GYRO # YES
|
TCF 1/GYRO # YES
|
||||||
TCF ENDOFJOB # NO
|
TCF ENDOFJOB # NO
|
||||||
@ -337,13 +337,13 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
|
|||||||
# Page 306
|
# Page 306
|
||||||
FBIASSUB XCH Q
|
FBIASSUB XCH Q
|
||||||
TS BUF +1
|
TS BUF +1
|
||||||
|
|
||||||
CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
|
CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
|
||||||
EXTEND
|
EXTEND
|
||||||
MP MPAC # DELTAT SCALED (CS) X 2(+19)
|
MP MPAC # DELTAT SCALED (CS) X 2(+19)
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
CA Q # NO FRACTIONAL PART
|
CA Q # NO FRACTIONAL PART
|
||||||
EXTEND
|
EXTEND
|
||||||
MP MPAC +1
|
MP MPAC +1
|
||||||
@ -351,20 +351,20 @@ FBIASSUB XCH Q
|
|||||||
CAF ZERO
|
CAF ZERO
|
||||||
INDEX BUF
|
INDEX BUF
|
||||||
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
|
||||||
|
|
||||||
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
|
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
|
||||||
|
|
||||||
LASTBIAS TC BANKCALL
|
LASTBIAS TC BANKCALL
|
||||||
CADR PIPUSE
|
CADR PIPUSE
|
||||||
|
|
||||||
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
|
CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
|
||||||
XCH 1/PIPADT
|
XCH 1/PIPADT
|
||||||
COM
|
COM
|
||||||
AD PIPTIME1 +1 # TIME AT PIPA1 =0
|
AD PIPTIME1 +1 # TIME AT PIPA1 =0
|
||||||
TCF NBD2
|
TCF NBD2
|
||||||
|
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1420-1448
|
# Pages: 1420-1448
|
||||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from
|
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from
|
||||||
# the Colossus249/ file of the same name,
|
# the Colossus249/ file of the same name,
|
||||||
# using Comanche055 page images.
|
# using Comanche055 page images.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -38,7 +38,7 @@
|
|||||||
# FIXED-FIXED ROUTINES
|
# FIXED-FIXED ROUTINES
|
||||||
|
|
||||||
COUNT 02/IMODE
|
COUNT 02/IMODE
|
||||||
|
|
||||||
ZEROICDU CAF ZERO # ZERO ICDU COUNTERS.
|
ZEROICDU CAF ZERO # ZERO ICDU COUNTERS.
|
||||||
TS CDUX
|
TS CDUX
|
||||||
TS CDUY
|
TS CDUY
|
||||||
@ -55,7 +55,7 @@ SPSCODE = BIT9
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 07/IMODE
|
COUNT 07/IMODE
|
||||||
|
|
||||||
IMUZERO INHINT # ROUTINE TO ZERO ICDUS.
|
IMUZERO INHINT # ROUTINE TO ZERO ICDUS.
|
||||||
CS DSPTAB +11D # DON'T ZERO CDUS IS IMU IN GIMBAL LOCK AND
|
CS DSPTAB +11D # DON'T ZERO CDUS IS IMU IN GIMBAL LOCK AND
|
||||||
MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION)
|
MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION)
|
||||||
@ -844,7 +844,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE
|
|||||||
BZF +3
|
BZF +3
|
||||||
TC P00DOO # NO
|
TC P00DOO # NO
|
||||||
OCT 1210 # 2 TRYING TO USE SAME DEVICE
|
OCT 1210 # 2 TRYING TO USE SAME DEVICE
|
||||||
|
|
||||||
+3 EXTEND
|
+3 EXTEND
|
||||||
DCA BUF2
|
DCA BUF2
|
||||||
DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3
|
DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3
|
||||||
@ -899,7 +899,7 @@ KALEBCON ECADR BCDU
|
|||||||
SETLOC R02
|
SETLOC R02
|
||||||
BANK
|
BANK
|
||||||
COUNT 04/R02 # COUNT*
|
COUNT 04/R02 # COUNT*
|
||||||
|
|
||||||
DEC51 DEC 51
|
DEC51 DEC 51
|
||||||
R02BOTH CAF BIT13
|
R02BOTH CAF BIT13
|
||||||
MASK STATE +3 # REFSMFLG
|
MASK STATE +3 # REFSMFLG
|
||||||
@ -1063,6 +1063,6 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
|
|||||||
ADRES NODOFLAG
|
ADRES NODOFLAG
|
||||||
|
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -43,7 +43,7 @@
|
|||||||
# MGC, AND OGC RESPECTIVELY.
|
# MGC, AND OGC RESPECTIVELY.
|
||||||
|
|
||||||
COUNT 23/INFLT
|
COUNT 23/INFLT
|
||||||
|
|
||||||
CALCGTA ITA DLOAD # PUSHDOWN 00-03, 16D-27D, 34D-37D
|
CALCGTA ITA DLOAD # PUSHDOWN 00-03, 16D-27D, 34D-37D
|
||||||
S2 # XDC = (XD1 XD2 XD3)
|
S2 # XDC = (XD1 XD2 XD3)
|
||||||
XDC # YDC = (YD1 YD2 YD3)
|
XDC # YDC = (YD1 YD2 YD3)
|
||||||
|
|||||||
@ -19,13 +19,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -275,7 +275,7 @@
|
|||||||
BANK
|
BANK
|
||||||
EBANK= RRECTCSM
|
EBANK= RRECTCSM
|
||||||
COUNT 13/INTIN
|
COUNT 13/INTIN
|
||||||
|
|
||||||
STATEINT TC PHASCHNG
|
STATEINT TC PHASCHNG
|
||||||
OCT 00052
|
OCT 00052
|
||||||
CAF PRIO5
|
CAF PRIO5
|
||||||
@ -325,7 +325,7 @@ NOINT EXIT
|
|||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES QUITFLAG
|
ADRES QUITFLAG
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
# ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
|
# ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
|
||||||
@ -340,7 +340,7 @@ ATOPCSM STQ RTB
|
|||||||
S2
|
S2
|
||||||
MOVEACSM
|
MOVEACSM
|
||||||
SET CALL
|
SET CALL
|
||||||
# Page 1315
|
# Page 1315
|
||||||
CMOONFLG
|
CMOONFLG
|
||||||
SVDWN1
|
SVDWN1
|
||||||
BON CLRGO
|
BON CLRGO
|
||||||
@ -438,7 +438,7 @@ USEPIOS SETPD VLOAD
|
|||||||
RLS
|
RLS
|
||||||
PDDL PUSH
|
PDDL PUSH
|
||||||
TDEC1
|
TDEC1
|
||||||
# Page 1317
|
# Page 1317
|
||||||
STODL TET
|
STODL TET
|
||||||
5/8
|
5/8
|
||||||
CALL
|
CALL
|
||||||
@ -464,7 +464,7 @@ USEPIOS SETPD VLOAD
|
|||||||
STCALL TNUV
|
STCALL TNUV
|
||||||
A-PCHK
|
A-PCHK
|
||||||
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
|
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
|
||||||
|
|
||||||
SETBANK CAF INTBANK
|
SETBANK CAF INTBANK
|
||||||
TS BBANK
|
TS BBANK
|
||||||
CAF FORTYONE
|
CAF FORTYONE
|
||||||
@ -646,7 +646,7 @@ ANDOUT BOFCLR EXIT
|
|||||||
BON GOTO
|
BON GOTO
|
||||||
VINTFLAG
|
VINTFLAG
|
||||||
ATOPCSM
|
ATOPCSM
|
||||||
# Page 1321
|
# Page 1321
|
||||||
ATOPLEM
|
ATOPLEM
|
||||||
PHEXIT CALL
|
PHEXIT CALL
|
||||||
GRP2PC
|
GRP2PC
|
||||||
@ -928,7 +928,7 @@ SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,UN AS WELL AS
|
|||||||
+3
|
+3
|
||||||
CLEAR
|
CLEAR
|
||||||
CMOONFLG
|
CMOONFLG
|
||||||
|
|
||||||
BON DLOAD # NOW DO LM
|
BON DLOAD # NOW DO LM
|
||||||
SURFFLAG
|
SURFFLAG
|
||||||
FAZAB5 # NO COASTING LM
|
FAZAB5 # NO COASTING LM
|
||||||
@ -1029,7 +1029,7 @@ ENTMID1 CLEAR CALL
|
|||||||
BZE SET
|
BZE SET
|
||||||
+2
|
+2
|
||||||
AMOONFLG
|
AMOONFLG
|
||||||
VLOAD
|
VLOAD
|
||||||
RATT
|
RATT
|
||||||
STOVL RN1
|
STOVL RN1
|
||||||
VATT
|
VATT
|
||||||
@ -1055,7 +1055,7 @@ CKMID2 BOF RTB
|
|||||||
TDEC
|
TDEC
|
||||||
BPL CALL
|
BPL CALL
|
||||||
TESTLOOP # YES
|
TESTLOOP # YES
|
||||||
# Page 1331
|
# Page 1331
|
||||||
NOTIME
|
NOTIME
|
||||||
|
|
||||||
TIMEINC RTB DAD
|
TIMEINC RTB DAD
|
||||||
@ -1071,14 +1071,14 @@ MID2 DLOAD DSU
|
|||||||
3CSECS
|
3CSECS
|
||||||
BPL
|
BPL
|
||||||
TIMEINC
|
TIMEINC
|
||||||
|
|
||||||
RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER
|
RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER
|
||||||
LOADTIME
|
LOADTIME
|
||||||
TET
|
TET
|
||||||
DSU BPL
|
DSU BPL
|
||||||
5.6SECS
|
5.6SECS
|
||||||
A-PCHK # YES. GET OUT.
|
A-PCHK # YES. GET OUT.
|
||||||
|
|
||||||
DLOAD DAD # NO. ADD TIMEDELT TO T-TO-ADD AND TRY
|
DLOAD DAD # NO. ADD TIMEDELT TO T-TO-ADD AND TRY
|
||||||
T-TO-ADD # AGAIN.
|
T-TO-ADD # AGAIN.
|
||||||
TIMEDELT
|
TIMEDELT
|
||||||
|
|||||||
@ -10,14 +10,14 @@
|
|||||||
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
|
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
|
||||||
# and page images. Corrected various typos
|
# and page images. Corrected various typos
|
||||||
# in the transcription of program comments,
|
# in the transcription of program comments,
|
||||||
# and these should be back-ported to
|
# and these should be back-ported to
|
||||||
# Colossus249.
|
# Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -37,7 +37,7 @@
|
|||||||
|
|
||||||
BLOCK 02
|
BLOCK 02
|
||||||
COUNT 02/BANK
|
COUNT 02/BANK
|
||||||
|
|
||||||
BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
|
BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
|
||||||
INDEX Q # PICK UP CADR.
|
INDEX Q # PICK UP CADR.
|
||||||
CA 0
|
CA 0
|
||||||
@ -178,6 +178,6 @@ SUPERSW EXTEND
|
|||||||
# CHANNEL 07
|
# CHANNEL 07
|
||||||
TC Q # TC TO INSTRUCTION FOLLOWING
|
TC Q # TC TO INSTRUCTION FOLLOWING
|
||||||
# TC SUPERSW
|
# TC SUPERSW
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -8,8 +8,8 @@
|
|||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1107-1199
|
# Pages: 1107-1199
|
||||||
# Mod history: 2009-05-08 RSB Adapted from the Luminary131/ file of the
|
# Mod history: 2009-05-08 RSB Adapted from the Luminary131/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a
|
# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a
|
||||||
# "Page N" reference.
|
# "Page N" reference.
|
||||||
# 2009-05-21 RSB Corrected definition of 5B10, which overflowed
|
# 2009-05-21 RSB Corrected definition of 5B10, which overflowed
|
||||||
# integer arithmetic.
|
# integer arithmetic.
|
||||||
@ -20,13 +20,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -41,7 +41,7 @@
|
|||||||
# E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
|
# E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
|
||||||
|
|
||||||
BLOCK 03
|
BLOCK 03
|
||||||
|
|
||||||
COUNT* $$/INTER
|
COUNT* $$/INTER
|
||||||
INTPRET RELINT
|
INTPRET RELINT
|
||||||
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
|
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
|
||||||
@ -128,15 +128,15 @@ NEG4 DEC -4
|
|||||||
CCS A
|
CCS A
|
||||||
AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
|
AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
|
||||||
TCF IERASTST
|
TCF IERASTST
|
||||||
|
|
||||||
NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
|
NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
|
||||||
ADS ADDRWD # ADDRWD AND DISPATCH.
|
ADS ADDRWD # ADDRWD AND DISPATCH.
|
||||||
ITR15 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
|
ITR15 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
|
||||||
7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
|
7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
|
||||||
|
|
||||||
IERASTST EXTEND
|
IERASTST EXTEND
|
||||||
BZMF GEADDR # GO PROCESS GENERAL-ERASABLE ADDRESS.
|
BZMF GEADDR # GO PROCESS GENERAL-ERASABLE ADDRESS.
|
||||||
|
|
||||||
MASK LOW10 # FIXED BANK ADDRESS. RESTORE AND ADD B15.
|
MASK LOW10 # FIXED BANK ADDRESS. RESTORE AND ADD B15.
|
||||||
AD LOW10 # SWITCH BANKS AND LEAVE SUBADDRESS IN
|
AD LOW10 # SWITCH BANKS AND LEAVE SUBADDRESS IN
|
||||||
XCH ADDRWD # ADDRWD FOR OPERAND RETRIEVAL. (THIS
|
XCH ADDRWD # ADDRWD FOR OPERAND RETRIEVAL. (THIS
|
||||||
@ -144,7 +144,7 @@ IERASTST EXTEND
|
|||||||
TS FBANK # LOCATION IN EACH FBANK.)
|
TS FBANK # LOCATION IN EACH FBANK.)
|
||||||
ITR12 INDEX CYR
|
ITR12 INDEX CYR
|
||||||
7 INDJUMP -1
|
7 INDJUMP -1
|
||||||
|
|
||||||
GEADDR MASK LOW8
|
GEADDR MASK LOW8
|
||||||
AD OCT1400
|
AD OCT1400
|
||||||
XCH ADDRWD
|
XCH ADDRWD
|
||||||
@ -159,7 +159,7 @@ ITR10 INDEX CYR
|
|||||||
|
|
||||||
DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
|
DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
|
||||||
TS CYR # (STOVL* ENTERS HERE).
|
TS CYR # (STOVL* ENTERS HERE).
|
||||||
|
|
||||||
INDEX CA FIXLOC # SET UP INDEX LOCATION.
|
INDEX CA FIXLOC # SET UP INDEX LOCATION.
|
||||||
TS INDEXLOC
|
TS INDEXLOC
|
||||||
INCR LOC # (ADDRESS ALWAYS GIVEN).
|
INCR LOC # (ADDRESS ALWAYS GIVEN).
|
||||||
@ -168,7 +168,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
|
|||||||
CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
|
CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
|
||||||
INCR INDEXLOC
|
INCR INDEXLOC
|
||||||
NOOP
|
NOOP
|
||||||
|
|
||||||
TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
|
TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
|
||||||
MASK HIGH4 # IF ADDRESS GREATER THAN 2K, ADD INTBIT15
|
MASK HIGH4 # IF ADDRESS GREATER THAN 2K, ADD INTBIT15
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -179,7 +179,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
|
|||||||
INDEX2 INDEX INDEXLOC
|
INDEX2 INDEX INDEXLOC
|
||||||
CS X1
|
CS X1
|
||||||
ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
|
ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
|
||||||
|
|
||||||
MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
|
MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF INDWORK
|
BZF INDWORK
|
||||||
@ -194,7 +194,7 @@ INDEX2 INDEX INDEXLOC
|
|||||||
TS ADDRWD
|
TS ADDRWD
|
||||||
ITR11 INDEX CYR
|
ITR11 INDEX CYR
|
||||||
3 INDJUMP -1
|
3 INDJUMP -1
|
||||||
|
|
||||||
INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
|
INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
|
||||||
TCF ITR13 -1
|
TCF ITR13 -1
|
||||||
|
|
||||||
@ -206,7 +206,7 @@ INDERASE CA OCT1400
|
|||||||
# Page 1112
|
# Page 1112
|
||||||
ITR13 INDEX CYR
|
ITR13 INDEX CYR
|
||||||
3 INDJUMP -1
|
3 INDJUMP -1
|
||||||
|
|
||||||
# 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 ARITHMETIC OPERATION PERFORMED
|
# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
|
||||||
@ -227,7 +227,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
|
|||||||
AD -OCT10 # (NO -0).
|
AD -OCT10 # (NO -0).
|
||||||
CCS A
|
CCS A
|
||||||
TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
|
TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
|
||||||
|
|
||||||
-OCT10 OCT -10
|
-OCT10 OCT -10
|
||||||
|
|
||||||
AD NEG4 # WE NOW HAVE 7 -- OP CODE (MOD4). SEE IF
|
AD NEG4 # WE NOW HAVE 7 -- OP CODE (MOD4). SEE IF
|
||||||
@ -235,7 +235,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
|
|||||||
INDEX A # NO -- THE MODE IS DEFINITE. PICK UP THE
|
INDEX A # NO -- THE MODE IS DEFINITE. PICK UP THE
|
||||||
CS NO.WDS
|
CS NO.WDS
|
||||||
TCF REGUP +2
|
TCF REGUP +2
|
||||||
|
|
||||||
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
|
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
|
||||||
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
|
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
|
||||||
TCF REGUP +2 # MODE AT THE IS TIME.
|
TCF REGUP +2 # MODE AT THE IS TIME.
|
||||||
@ -259,7 +259,7 @@ OCTAL3 OCT 3 # 2 IN DP, AND 3 IN TP.
|
|||||||
|
|
||||||
OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
|
OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
|
||||||
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT
|
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT
|
||||||
|
|
||||||
-ENDVAC DEC -45
|
-ENDVAC DEC -45
|
||||||
|
|
||||||
# THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
|
# THE FOLLOWING ROUTINE PROCESSES ADDRESSES OF SUFFIX CLASS 10. THEY ARE BASICALLY WORK AREA ADDRESSES
|
||||||
@ -270,13 +270,13 @@ OPJUMP2 CCS CYR # TEST SECOND PREFIX BIT.
|
|||||||
INDEX LOC # PICK UP ADDRESS WORD.
|
INDEX LOC # PICK UP ADDRESS WORD.
|
||||||
CA 0
|
CA 0
|
||||||
TS POLISH # WE MAY NEED A SUBADDRESS LATER.
|
TS POLISH # WE MAY NEED A SUBADDRESS LATER.
|
||||||
|
|
||||||
CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
|
CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
|
||||||
TS FBANK
|
TS FBANK
|
||||||
MASK CYR
|
MASK CYR
|
||||||
ITR7 INDEX A
|
ITR7 INDEX A
|
||||||
TCF MISCJUMP
|
TCF MISCJUMP
|
||||||
|
|
||||||
# Page 1115
|
# Page 1115
|
||||||
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
|
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
|
||||||
|
|
||||||
@ -285,12 +285,12 @@ OPJUMP3 TS FBANK # CALL IN BANK 0 (BIT5S 11-15 OF A ARE 0.)
|
|||||||
CCS CYR # TEST THIRD PREFIX BIT.
|
CCS CYR # TEST THIRD PREFIX BIT.
|
||||||
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
|
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
|
||||||
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
|
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
|
||||||
|
|
||||||
CCS MODE # IT'S A SHORT SHIFT CODE. SEE IF PRESENT
|
CCS MODE # IT'S A SHORT SHIFT CODE. SEE IF PRESENT
|
||||||
TCF SHORTT # SCALAR OR VECTOR.
|
TCF SHORTT # SCALAR OR VECTOR.
|
||||||
TCF SHORTT
|
TCF SHORTT
|
||||||
TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
|
TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
|
||||||
|
|
||||||
FBANKMSK EQUALS BANKMASK
|
FBANKMSK EQUALS BANKMASK
|
||||||
LVBUF ADRES VBUF
|
LVBUF ADRES VBUF
|
||||||
|
|
||||||
@ -305,7 +305,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
|
TCF TLOAD # 05 -- LOAD MPAC WITH TRIPLE PRECISION.
|
||||||
TCF DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
|
TCF DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
|
||||||
TCF V/SC # 07 -- VECTOR DIVIDED BY A SCALAR.
|
TCF V/SC # 07 -- VECTOR DIVIDED BY A SCALAR.
|
||||||
|
|
||||||
TCF SLOAD # 10 -- LOAD MPAC IN SINGLE PRECISION.
|
TCF SLOAD # 10 -- LOAD MPAC IN SINGLE PRECISION.
|
||||||
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
|
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
|
||||||
TCF PDDL # 12 -- PUSH DOWN MPAC AND RE-LOAD IN DP.
|
TCF PDDL # 12 -- PUSH DOWN MPAC AND RE-LOAD IN DP.
|
||||||
@ -314,7 +314,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF CCALL # 15 -- COMPUTED CALL.
|
TCF CCALL # 15 -- COMPUTED CALL.
|
||||||
TCF VXM # 16 -- MATRIX PRE-MULTIPLIED BY VECTOR.
|
TCF VXM # 16 -- MATRIX PRE-MULTIPLIED BY VECTOR.
|
||||||
TCF TSLC # 17 -- NORMALIZE MPAC (SCALAR ONLY).
|
TCF TSLC # 17 -- NORMALIZE MPAC (SCALAR ONLY).
|
||||||
|
|
||||||
TCF DMPR # 20 -- DP MULTIPLY AND ROUND.
|
TCF DMPR # 20 -- DP MULTIPLY AND ROUND.
|
||||||
TCF DDV # 21 -- DP DIVIDE BY.
|
TCF DDV # 21 -- DP DIVIDE BY.
|
||||||
TCF BDDV # 22 -- DP DIVIDE INTO.
|
TCF BDDV # 22 -- DP DIVIDE INTO.
|
||||||
@ -323,7 +323,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF VSU # 25 -- VECTOR SUBTRACT.
|
TCF VSU # 25 -- VECTOR SUBTRACT.
|
||||||
TCF BVSU # 26 -- VECTOR SUBTRACT FROM.
|
TCF BVSU # 26 -- VECTOR SUBTRACT FROM.
|
||||||
TCF DOT # 27 -- VECTOR DOT PRODUCT.
|
TCF DOT # 27 -- VECTOR DOT PRODUCT.
|
||||||
|
|
||||||
TCF VXV # 30 -- VECTOR CROSS PRODUCT.
|
TCF VXV # 30 -- VECTOR CROSS PRODUCT.
|
||||||
TCF VPROJ # 31 -- VECTOR PROJECTION.
|
TCF VPROJ # 31 -- VECTOR PROJECTION.
|
||||||
TCF DSU # 32 -- DP SUBTRACT.
|
TCF DSU # 32 -- DP SUBTRACT.
|
||||||
@ -332,7 +332,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
|
|||||||
TCF +0 # 35 -- AVAILABLE
|
TCF +0 # 35 -- AVAILABLE
|
||||||
TCF DMP1 # 36 -- DP MULTIPLY.
|
TCF DMP1 # 36 -- DP MULTIPLY.
|
||||||
TCF SETPD # 37 -- SET PUSH DOWN POINTER (DIRECT ONLY)
|
TCF SETPD # 37 -- SET PUSH DOWN POINTER (DIRECT ONLY)
|
||||||
|
|
||||||
# CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
|
# CODES 10 AND 14 MUST NOT PUSH UP. CODE 04 MAY BE USED FOR VECTOR DECLARE BEFORE PUSHUP IF DESIRED.
|
||||||
|
|
||||||
# Page 1117
|
# Page 1117
|
||||||
@ -346,7 +346,7 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
|
|||||||
TCF XCHX # 05 -- EXCHANGE INDEX WITH ERASABLE.
|
TCF XCHX # 05 -- EXCHANGE INDEX WITH ERASABLE.
|
||||||
TCF INCR # 06 -- INCREMENT INDEX REGISTER.
|
TCF INCR # 06 -- INCREMENT INDEX REGISTER.
|
||||||
TCF TIX # 07 -- TRANSFER ON INDEX.
|
TCF TIX # 07 -- TRANSFER ON INDEX.
|
||||||
|
|
||||||
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
|
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
|
||||||
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
|
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
|
||||||
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO
|
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO
|
||||||
@ -367,7 +367,7 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
|
|||||||
TCF ARCCOS # 05 -- ARC COS.
|
TCF ARCCOS # 05 -- ARC COS.
|
||||||
TCF DSQ # 06 -- DP SQUARE.
|
TCF DSQ # 06 -- DP SQUARE.
|
||||||
TCF ROUND # 07 -- ROUND TO DP.
|
TCF ROUND # 07 -- ROUND TO DP.
|
||||||
|
|
||||||
TCF COMP # 10 -- COMPLEMENT VECTOR OR SCALAR
|
TCF COMP # 10 -- COMPLEMENT VECTOR OR SCALAR
|
||||||
TCF VDEF # 11 -- VECTOR DEFINE.
|
TCF VDEF # 11 -- VECTOR DEFINE.
|
||||||
TCF UNIT # 12 -- UNIT VECTOR.
|
TCF UNIT # 12 -- UNIT VECTOR.
|
||||||
@ -376,12 +376,12 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
|
|||||||
TCF STADR # 15 -- PUSH UP ON STORE CODE.
|
TCF STADR # 15 -- PUSH UP ON STORE CODE.
|
||||||
TCF RVQ # 16 -- RETURN VIA QPRET.
|
TCF RVQ # 16 -- RETURN VIA QPRET.
|
||||||
TCF PUSH # 17 -- PUSH MPAC DOWN.
|
TCF PUSH # 17 -- PUSH MPAC DOWN.
|
||||||
|
|
||||||
# Page 1119
|
# Page 1119
|
||||||
# SECTION 2 LOAD AND STORE PACKAGE.
|
# SECTION 2 LOAD AND STORE PACKAGE.
|
||||||
#
|
#
|
||||||
# A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
|
# A SET OF EIGHT STORE CODES IS PROVIDED AS THE PRIMARY METHOD OF STORING THE MULTI-PURPOSE
|
||||||
# ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
|
# ACCUMULATOR (MPAC). IF IN THE DANZIG SECTION LOC REFERS TO AN ALGEBRAICALLY POSITIVE WORD, IT IS TAKEN AS A
|
||||||
# STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
|
# STORE CODE WITH A CORRESPONDING ERASABLE ADDRESS. MOST OF THESE CODES ARE TWO ADDRESS, SPECIFYING THAT THE WORD
|
||||||
# FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
|
# FOLLOWING THE STORE CODE IS TO BE USED AS AN ADDRESS FROM WHICH TO RE-LOAD MPAC. FOUR OPTIONS ARE AVAILABLE:
|
||||||
#
|
#
|
||||||
@ -393,17 +393,17 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
|
|||||||
# STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
|
# STODL AND STOVL WILL TAKE FROM THE PUSH-DOWN LIST IF NO LOAD ADDRESS IS GIVEN.
|
||||||
|
|
||||||
BLOCK 3
|
BLOCK 3
|
||||||
|
|
||||||
COUNT 03/INTER
|
COUNT 03/INTER
|
||||||
|
|
||||||
STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
|
STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
|
||||||
TS FBANK # ADDRESS) ENTERS HERE.
|
TS FBANK # ADDRESS) ENTERS HERE.
|
||||||
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 CANT 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 ERASABLE
|
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
|
||||||
@ -411,7 +411,7 @@ DOSTORE TS ADDRWD
|
|||||||
MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
|
MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
|
||||||
ITR0 INDEX A
|
ITR0 INDEX A
|
||||||
TCF STORJUMP
|
TCF STORJUMP
|
||||||
|
|
||||||
# Page 1120
|
# Page 1120
|
||||||
# STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
|
# STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
|
||||||
# A SUPPLIED OPERATION CODE.
|
# A SUPPLIED OPERATION CODE.
|
||||||
@ -424,30 +424,30 @@ STORJUMP TC STORE # STORE.
|
|||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
TC STORE,2
|
TC STORE,2
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
TC STORE # STODL.
|
TC STORE # STODL.
|
||||||
TCF DODLOAD
|
TCF DODLOAD
|
||||||
|
|
||||||
TC STORE # STODL WITH INDEXED LOAD ADDRESS.
|
TC STORE # STODL WITH INDEXED LOAD ADDRESS.
|
||||||
TCF DODLOAD*
|
TCF DODLOAD*
|
||||||
|
|
||||||
TC STORE # STOVL.
|
TC STORE # STOVL.
|
||||||
TCF DOVLOAD
|
TCF DOVLOAD
|
||||||
|
|
||||||
TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
|
TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
|
||||||
TCF DOVLOAD*
|
TCF DOVLOAD*
|
||||||
TC STORE # STOTC.
|
TC STORE # STOTC.
|
||||||
CAF CALLCODE
|
CAF CALLCODE
|
||||||
TS CYR
|
TS CYR
|
||||||
TCF 15BITADR # GET A 15 BIT ADDRESS.
|
TCF 15BITADR # GET A 15 BIT ADDRESS.
|
||||||
|
|
||||||
# Page 1121
|
# Page 1121
|
||||||
# STORE CODE ADDRESS PROCESSOR.
|
# STORE CODE ADDRESS PROCESSOR.
|
||||||
|
|
||||||
STORE,1 INDEX FIXLOC
|
STORE,1 INDEX FIXLOC
|
||||||
CS X1
|
CS X1
|
||||||
TCF PRESTORE
|
TCF PRESTORE
|
||||||
|
|
||||||
STORE,2 INDEX FIXLOC
|
STORE,2 INDEX FIXLOC
|
||||||
CS X2
|
CS X2
|
||||||
PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
|
PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
|
||||||
@ -471,27 +471,27 @@ STARTSTO EXTEND # MPAC,+1 MUST BE STORED IN ANY EVENT.
|
|||||||
DCA MPAC
|
DCA MPAC
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DXCH 0
|
DXCH 0
|
||||||
|
|
||||||
CCS MODE
|
CCS MODE
|
||||||
TCF TSTORE
|
TCF TSTORE
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
VSTORE EXTEND
|
VSTORE EXTEND
|
||||||
DCA MPAC +3
|
DCA MPAC +3
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DXCH 2
|
DXCH 2
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA MPAC +5
|
DCA MPAC +5
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DXCH 4
|
DXCH 4
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
TSTORE CA MPAC +2
|
TSTORE CA MPAC +2
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
TS 2
|
TS 2
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 1123
|
# Page 1123
|
||||||
# ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
|
# ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
|
||||||
# ITSELF.
|
# ITSELF.
|
||||||
@ -519,7 +519,7 @@ TLOAD INDEX ADDRWD
|
|||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
TMODE CAF ONE
|
TMODE CAF ONE
|
||||||
TCF NEWMODE # DECLARE 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
|
||||||
CA 0 # CONTENTS OF THE REMAINING MPAC REGISTERS
|
CA 0 # CONTENTS OF THE REMAINING MPAC REGISTERS
|
||||||
@ -529,12 +529,12 @@ VLOAD EXTEND # LOAD A DOUBLE PRECISION VECTOR INTO
|
|||||||
INDEX ADDRWD # MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
|
INDEX ADDRWD # MPAC,+1, MPAC+3,4, AND MPAC+5,6. THE
|
||||||
DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
|
DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
|
||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
|
|
||||||
ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
|
ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 2
|
DCA 2
|
||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
|
|
||||||
+4 EXTEND # TPDVL FINISHES HERE.
|
+4 EXTEND # TPDVL FINISHES HERE.
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 4
|
DCA 4
|
||||||
@ -594,7 +594,7 @@ PDVL EXTEND # RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
|
|||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
INDEX PUSHLOC
|
INDEX PUSHLOC
|
||||||
DXCH 0
|
DXCH 0
|
||||||
|
|
||||||
INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
|
INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
|
||||||
CAF NO.WDS
|
CAF NO.WDS
|
||||||
ADS PUSHLOC
|
ADS PUSHLOC
|
||||||
@ -609,26 +609,26 @@ VPDVL EXTEND # PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
|
|||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
INDEX PUSHLOC
|
INDEX PUSHLOC
|
||||||
DXCH 0 -4
|
DXCH 0 -4
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 4
|
DCA 4
|
||||||
DXCH MPAC +5
|
DXCH MPAC +5
|
||||||
INDEX PUSHLOC
|
INDEX PUSHLOC
|
||||||
DXCH 0 -2
|
DXCH 0 -2
|
||||||
|
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
|
TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
|
||||||
INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
|
INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
|
||||||
DCA 2 # PUSHUP.
|
DCA 2 # PUSHUP.
|
||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
|
|
||||||
CA MPAC +2
|
CA MPAC +2
|
||||||
INDEX PUSHLOC # IN DP.
|
INDEX PUSHLOC # IN DP.
|
||||||
TS 0 -1
|
TS 0 -1
|
||||||
TCF ENDVLOAD +4
|
TCF ENDVLOAD +4
|
||||||
|
|
||||||
# SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
|
# SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
|
||||||
|
|
||||||
SSP INCR LOC # PICK UP THE WORD FOLLOWING THE GIVEN
|
SSP INCR LOC # PICK UP THE WORD FOLLOWING THE GIVEN
|
||||||
@ -638,7 +638,7 @@ STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END
|
|||||||
TS 0 # HERE.
|
TS 0 # HERE.
|
||||||
# Page 1127
|
# Page 1127
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
# Page 1128
|
# Page 1128
|
||||||
# SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
|
# SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
|
||||||
#
|
#
|
||||||
@ -669,7 +669,7 @@ CALL CA BANKSET # FOR ANY OF THE CALL OPTIONS, MAKE UP THE
|
|||||||
AD LOC # BANKMASK = -(2000 - 1).
|
AD LOC # BANKMASK = -(2000 - 1).
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS QPRET
|
TS QPRET
|
||||||
|
|
||||||
GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
|
GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
|
||||||
+1 MASK HIGH4
|
+1 MASK HIGH4
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -682,9 +682,9 @@ GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
|
|||||||
AD 2K
|
AD 2K
|
||||||
TS LOC
|
TS LOC
|
||||||
TCF INTPRET +3
|
TCF INTPRET +3
|
||||||
|
|
||||||
EBANK= 1400 # SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
|
EBANK= 1400 # SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
|
||||||
|
|
||||||
GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
|
GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
|
||||||
AD -ENDVAC # IF RELATIVE TO THE WORK ARA.
|
AD -ENDVAC # IF RELATIVE TO THE WORK ARA.
|
||||||
CCS A
|
CCS A
|
||||||
@ -698,14 +698,14 @@ GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
|
|||||||
CA 0 # THE BRANCH ADDRESS.
|
CA 0 # THE BRANCH ADDRESS.
|
||||||
TS POLISH
|
TS POLISH
|
||||||
TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS LEVELS.
|
TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS LEVELS.
|
||||||
|
|
||||||
GOTOGE TS EBANK
|
GOTOGE TS EBANK
|
||||||
MASK LOW8
|
MASK LOW8
|
||||||
INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
|
INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
|
||||||
CA 1400 # THE BRANCH ADDRESS.
|
CA 1400 # THE BRANCH ADDRESS.
|
||||||
TS POLISH
|
TS POLISH
|
||||||
TCF GOTO +1
|
TCF GOTO +1
|
||||||
|
|
||||||
CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
|
CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
|
||||||
CA 1 # LIST
|
CA 1 # LIST
|
||||||
INDEX ADDRWD # ADD MODIFIER.
|
INDEX ADDRWD # ADD MODIFIER.
|
||||||
@ -716,14 +716,14 @@ CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
|
|||||||
CA 10000
|
CA 10000
|
||||||
TS POLISH
|
TS POLISH
|
||||||
TCF GOTO +1 # WITH ADDRESS IN A.
|
TCF GOTO +1 # WITH ADDRESS IN A.
|
||||||
|
|
||||||
SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
|
SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
|
||||||
TS FBANK # BRANCH COME HERE TO DO SO.
|
TS FBANK # BRANCH COME HERE TO DO SO.
|
||||||
INDEX LOC
|
INDEX LOC
|
||||||
CA 1
|
CA 1
|
||||||
TS POLISH
|
TS POLISH
|
||||||
TCF GOTO +1
|
TCF GOTO +1
|
||||||
|
|
||||||
# Page 1130
|
# Page 1130
|
||||||
# TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
|
# TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
|
||||||
# L+1 IF MPAC IS GREATER THAN ZERO.
|
# L+1 IF MPAC IS GREATER THAN ZERO.
|
||||||
@ -734,23 +734,23 @@ BRANCH CCS MPAC
|
|||||||
TC Q
|
TC Q
|
||||||
TCF +2 # ON ZERO.
|
TCF +2 # ON ZERO.
|
||||||
TCF NEG
|
TCF NEG
|
||||||
|
|
||||||
CCS MPAC +1
|
CCS MPAC +1
|
||||||
TC Q
|
TC Q
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF NEG
|
TCF NEG
|
||||||
|
|
||||||
CCS MPAC +2
|
CCS MPAC +2
|
||||||
TC Q
|
TC Q
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF NEG
|
TCF NEG
|
||||||
|
|
||||||
Q+1 INDEX Q
|
Q+1 INDEX Q
|
||||||
TC 1
|
TC 1
|
||||||
|
|
||||||
NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
|
NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
|
||||||
TC 2
|
TC 2
|
||||||
|
|
||||||
Q+2 = NEG
|
Q+2 = NEG
|
||||||
|
|
||||||
# ITRACE (3) REFERS TO "EXIT".
|
# ITRACE (3) REFERS TO "EXIT".
|
||||||
@ -776,7 +776,7 @@ EXIT CA BANKSET # RESTORE USER'S BANK SETTING, AND LEAVE
|
|||||||
|
|
||||||
VSU CAF BIT15 # CHANGES 0 TO DCS.
|
VSU CAF BIT15 # CHANGES 0 TO DCS.
|
||||||
TCF +2
|
TCF +2
|
||||||
|
|
||||||
VAD CAF PRIO30 # CHANGES 0 TO DCA.
|
VAD CAF PRIO30 # CHANGES 0 TO DCA.
|
||||||
ADS ADDRWD
|
ADS ADDRWD
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -786,7 +786,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
|
|||||||
EXTEND # CHECK OVERFLOW.
|
EXTEND # CHECK OVERFLOW.
|
||||||
BZF +2
|
BZF +2
|
||||||
TC OVERFLWY
|
TC OVERFLWY
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
READ CHAN5 # DCA 4 OR DCS 4
|
READ CHAN5 # DCA 4 OR DCS 4
|
||||||
@ -794,7 +794,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +2
|
BZF +2
|
||||||
TC OVERFLWZ
|
TC OVERFLWZ
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
READ LCHAN # DCA 0 OR DCS 0
|
READ LCHAN # DCA 0 OR DCS 0
|
||||||
@ -806,11 +806,11 @@ DAD EXTEND
|
|||||||
ENDVXV DAS MPAC # VXV FINISHES HERE.
|
ENDVXV DAS MPAC # VXV FINISHES HERE.
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF DANZIG
|
BZF DANZIG
|
||||||
|
|
||||||
# Page 1132
|
# Page 1132
|
||||||
SETOVF TC OVERFLOW
|
SETOVF TC OVERFLOW
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
# Page 1133
|
# Page 1133
|
||||||
DSU EXTEND
|
DSU EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
@ -820,11 +820,11 @@ DSU EXTEND
|
|||||||
OVERFLWZ TS L # ENTRY FOR THIRD COMPONENT.
|
OVERFLWZ TS L # ENTRY FOR THIRD COMPONENT.
|
||||||
CAF FIVE
|
CAF FIVE
|
||||||
TCF +3
|
TCF +3
|
||||||
|
|
||||||
OVERFLWY TS L # ENTRY FOR SECOND COMPONENT.
|
OVERFLWY TS L # ENTRY FOR SECOND COMPONENT.
|
||||||
CAF THREE
|
CAF THREE
|
||||||
XCH L
|
XCH L
|
||||||
|
|
||||||
OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
|
OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
|
||||||
CS LIMITS # PICK UP POSMAX OR NEGMAX.
|
CS LIMITS # PICK UP POSMAX OR NEGMAX.
|
||||||
TS BUF
|
TS BUF
|
||||||
@ -840,18 +840,18 @@ OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
|
|||||||
TS 7
|
TS 7
|
||||||
TC Q # NO OVERFLOW EXIT.
|
TC Q # NO OVERFLOW EXIT.
|
||||||
TCF SETOVF2 # SET OVFIND AND EXIT.
|
TCF SETOVF2 # SET OVFIND AND EXIT.
|
||||||
|
|
||||||
BVSU EXTEND
|
BVSU EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 2
|
DCA 2
|
||||||
DXCH MPAC +3
|
DXCH MPAC +3
|
||||||
EXTEND
|
EXTEND
|
||||||
DCOM
|
DCOM
|
||||||
DAS MPAC +3
|
DAS MPAC +3
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF +2
|
BZF +2
|
||||||
TC OVERFLWY
|
TC OVERFLWY
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
DCA 4
|
DCA 4
|
||||||
@ -862,7 +862,7 @@ BVSU EXTEND
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +2
|
BZF +2
|
||||||
TC OVERFLWZ
|
TC OVERFLWZ
|
||||||
|
|
||||||
# Page 1134
|
# Page 1134
|
||||||
BDSU EXTEND
|
BDSU EXTEND
|
||||||
INDEX ADDRWD
|
INDEX ADDRWD
|
||||||
@ -871,7 +871,7 @@ BDSU EXTEND
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCOM
|
DCOM
|
||||||
TCF ENDVXV
|
TCF ENDVXV
|
||||||
|
|
||||||
# Page 1135
|
# Page 1135
|
||||||
# TRIPLE PRECISION ADD ROUTINE.
|
# TRIPLE PRECISION ADD ROUTINE.
|
||||||
|
|
||||||
@ -884,9 +884,9 @@ TAD EXTEND
|
|||||||
AD MPAC
|
AD MPAC
|
||||||
TS MPAC
|
TS MPAC
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
TCF SETOVF # SET OVFIND IF SUCH OCCURS.
|
TCF SETOVF # SET OVFIND IF SUCH OCCURS.
|
||||||
|
|
||||||
# Page 1136
|
# Page 1136
|
||||||
# ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
|
# ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
|
||||||
# 1. DMPSUB DOUBLE PRECISION MULTIPLY, MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
|
# 1. DMPSUB DOUBLE PRECISION MULTIPLY, MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
|
||||||
@ -916,11 +916,11 @@ DMPSUB INDEX ADDRWD # GET MINOR PART OF OPERAND AT C(ADDRWD).
|
|||||||
EXTEND # FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
|
EXTEND # FORM MAJOR OF MPAC X MINOR OF C(ADDRWD).
|
||||||
MP MPAC
|
MP MPAC
|
||||||
DAS MPAC +1 # GUARANTEED NO OVERFLOW.
|
DAS MPAC +1 # GUARANTEED NO OVERFLOW.
|
||||||
|
|
||||||
INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
|
INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
|
||||||
CA 0
|
CA 0
|
||||||
XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
|
XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
|
||||||
DMPSUB2 EXTEND
|
DMPSUB2 EXTEND
|
||||||
MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
|
MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
|
||||||
DAS MPAC +1 # ACCUMULATE, SETTING A TO NET OVERFLOW.
|
DAS MPAC +1 # ACCUMULATE, SETTING A TO NET OVERFLOW.
|
||||||
|
|
||||||
@ -929,7 +929,7 @@ DMPSUB2 EXTEND
|
|||||||
MP MPTEMP # MAJOR OF MPAC X MAJOR OF C(ADDRWD).
|
MP MPTEMP # MAJOR OF MPAC X MAJOR OF C(ADDRWD).
|
||||||
DAS MPAC # GUARANTEED NO OVERFLOW.
|
DAS MPAC # GUARANTEED NO OVERFLOW.
|
||||||
TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
|
TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
|
||||||
|
|
||||||
# Page 1137
|
# Page 1137
|
||||||
# ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
|
# ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
|
||||||
|
|
||||||
@ -979,7 +979,7 @@ DOTSUB EXTEND
|
|||||||
TS BUF
|
TS BUF
|
||||||
TCF +2
|
TCF +2
|
||||||
TS OVFIND # IF OVERFLOW OCCURS.
|
TS OVFIND # IF OVERFLOW OCCURS.
|
||||||
|
|
||||||
DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
|
DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
|
||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
CA DOTINC
|
CA DOTINC
|
||||||
@ -1037,30 +1037,30 @@ POLY INDEX Q
|
|||||||
|
|
||||||
POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
|
POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
|
||||||
TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
|
TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX POLISH
|
INDEX POLISH
|
||||||
DCA 3
|
DCA 3
|
||||||
|
|
||||||
# Page 1140
|
# Page 1140
|
||||||
DXCH MPAC # LOAD A(N) INTO MPAC
|
DXCH MPAC # LOAD A(N) INTO MPAC
|
||||||
DXCH VBUF # SAVING X IN VBUF
|
DXCH VBUF # SAVING X IN VBUF
|
||||||
TCF POLY2
|
TCF POLY2
|
||||||
|
|
||||||
POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
|
POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
|
||||||
CS TWO
|
CS TWO
|
||||||
ADS POLISH # REGRESS COEFFICIENT POINTER
|
ADS POLISH # REGRESS COEFFICIENT POINTER
|
||||||
|
|
||||||
POLY2 TC DMPSUB # MULTIPLY BY X
|
POLY2 TC DMPSUB # MULTIPLY BY X
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX POLISH
|
INDEX POLISH
|
||||||
DCA 1 # ADD IN NEXT COEFFICIENT
|
DCA 1 # ADD IN NEXT COEFFICIENT
|
||||||
DAS MPAC # USER'S RESPONSIBILITY TO ASSURE NO OVFLOW
|
DAS MPAC # USER'S RESPONSIBILITY TO ASSURE NO OVFLOW
|
||||||
|
|
||||||
CCS POLYCNT
|
CCS POLYCNT
|
||||||
TCF POLYLOOP
|
TCF POLYLOOP
|
||||||
TC POLYRET # RETURN CALLER
|
TC POLYRET # RETURN CALLER
|
||||||
|
|
||||||
# Page 1141
|
# Page 1141
|
||||||
# MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
|
# MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
|
||||||
|
|
||||||
@ -1477,7 +1477,7 @@ DCOMP CS MPAC +2
|
|||||||
BANK 00
|
BANK 00
|
||||||
|
|
||||||
COUNT 00/INTER
|
COUNT 00/INTER
|
||||||
|
|
||||||
SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT
|
SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT
|
||||||
MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
|
MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
|
||||||
TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT.
|
TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT.
|
||||||
@ -2816,7 +2816,7 @@ TCSUBTR TCF SUBTR
|
|||||||
BANK 01
|
BANK 01
|
||||||
|
|
||||||
COUNT 01/INTER
|
COUNT 01/INTER
|
||||||
|
|
||||||
AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER.
|
AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER.
|
||||||
CA POLISH
|
CA POLISH
|
||||||
XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1
|
XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1
|
||||||
@ -3056,4 +3056,4 @@ SWSKIP INCR LOC
|
|||||||
SW/ EQUALS SWITCHES
|
SW/ EQUALS SWITCHES
|
||||||
|
|
||||||
+13D TCF DANZIG # 11 -- NOOP.
|
+13D TCF DANZIG # 11 -- NOOP.
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -32,7 +32,7 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 23/ICONS
|
COUNT 23/ICONS
|
||||||
|
|
||||||
DP1/4TH 2DEC .25
|
DP1/4TH 2DEC .25
|
||||||
|
|
||||||
UNITZ 2DEC 0
|
UNITZ 2DEC 0
|
||||||
@ -44,7 +44,7 @@ UNITX 2DEC .5
|
|||||||
ZEROVECS 2DEC 0
|
ZEROVECS 2DEC 0
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
DPHALF = UNITX
|
DPHALF = UNITX
|
||||||
@ -58,7 +58,7 @@ DPPOSMAX OCT 37777
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 14/ICONS
|
COUNT 14/ICONS
|
||||||
|
|
||||||
ZUNIT 2DEC 0
|
ZUNIT 2DEC 0
|
||||||
|
|
||||||
YUNIT 2DEC 0
|
YUNIT 2DEC 0
|
||||||
@ -68,7 +68,7 @@ XUNIT 2DEC .5
|
|||||||
ZEROVEC 2DEC 0
|
ZEROVEC 2DEC 0
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
|
OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment.
|
# Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -29,66 +29,66 @@
|
|||||||
# information. Please report any errors to info@sandroid.org.
|
# information. Please report any errors to info@sandroid.org.
|
||||||
|
|
||||||
# Page 131
|
# Page 131
|
||||||
SETLOC 4000
|
SETLOC 4000
|
||||||
|
|
||||||
COUNT 02/RUPTS
|
COUNT 02/RUPTS
|
||||||
|
|
||||||
INHINT # GO
|
INHINT # GO
|
||||||
CAF GOBB
|
CAF GOBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF GOPROG
|
TCF GOPROG
|
||||||
|
|
||||||
DXCH ARUPT # T6RUPT
|
DXCH ARUPT # T6RUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA T6LOC
|
DCA T6LOC
|
||||||
DTCB
|
DTCB
|
||||||
|
|
||||||
DXCH ARUPT # T5RUPT
|
DXCH ARUPT # T5RUPT
|
||||||
CS TIME5
|
CS TIME5
|
||||||
AD .5SEC
|
AD .5SEC
|
||||||
TCF T5RUPT
|
TCF T5RUPT
|
||||||
|
|
||||||
DXCH ARUPT # T3RUPT
|
DXCH ARUPT # T3RUPT
|
||||||
CAF T3RPTBB
|
CAF T3RPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF T3RUPT
|
TCF T3RUPT
|
||||||
|
|
||||||
DXCH ARUPT # T4RUPT
|
DXCH ARUPT # T4RUPT
|
||||||
CAF T4RPTBB
|
CAF T4RPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF T4RUPT
|
TCF T4RUPT
|
||||||
|
|
||||||
DXCH ARUPT # KEYRUPT1
|
DXCH ARUPT # KEYRUPT1
|
||||||
CAF KEYRPTBB
|
CAF KEYRPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF KEYRUPT1
|
TCF KEYRUPT1
|
||||||
|
|
||||||
DXCH ARUPT # KEYRUPT2
|
DXCH ARUPT # KEYRUPT2
|
||||||
CAF MKRUPTBB
|
CAF MKRUPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF MARKRUPT
|
TCF MARKRUPT
|
||||||
|
|
||||||
DXCH ARUPT # UPRUPT
|
DXCH ARUPT # UPRUPT
|
||||||
CAF UPRPTBB
|
CAF UPRPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF UPRUPT
|
TCF UPRUPT
|
||||||
|
|
||||||
DXCH ARUPT # DOWNRUPT
|
DXCH ARUPT # DOWNRUPT
|
||||||
CAF DWNRPTBB
|
CAF DWNRPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF DODOWNTM
|
TCF DODOWNTM
|
||||||
|
|
||||||
DXCH ARUPT # RADAR RUPT
|
DXCH ARUPT # RADAR RUPT
|
||||||
# Page 132
|
# Page 132
|
||||||
CAF RDRPTBB
|
CAF RDRPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF VHFREAD
|
TCF VHFREAD
|
||||||
|
|
||||||
DXCH ARUPT # HAND CONTROL RUPT
|
DXCH ARUPT # HAND CONTROL RUPT
|
||||||
CAF HCRUPTBB
|
CAF HCRUPTBB
|
||||||
XCH BBANK
|
XCH BBANK
|
||||||
TCF RESUME +3 # NOT USED
|
TCF RESUME +3 # NOT USED
|
||||||
|
|
||||||
EBANK= LST1 # RESTART USES E0,E3
|
EBANK= LST1 # RESTART USES E0,E3
|
||||||
GOBB BBCON GOPROG
|
GOBB BBCON GOPROG
|
||||||
|
|
||||||
@ -123,6 +123,6 @@ T5RUPT EXTEND
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA T5LOC
|
DCA T5LOC
|
||||||
DTCB
|
DTCB
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -31,11 +31,11 @@
|
|||||||
BANK 21
|
BANK 21
|
||||||
SETLOC DAPS4
|
SETLOC DAPS4
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 17/DAPJS
|
COUNT 17/DAPJS
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
|
|
||||||
# EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
|
# EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
|
||||||
|
|
||||||
JETSLECT LXCH BANKRUPT
|
JETSLECT LXCH BANKRUPT
|
||||||
@ -69,13 +69,13 @@ JETSLECT LXCH BANKRUPT
|
|||||||
MP BIT7 # 2 = - XLN
|
MP BIT7 # 2 = - XLN
|
||||||
MASK THREE # 3 = NO XLN
|
MASK THREE # 3 = NO XLN
|
||||||
TS YNDX # Y-TRANSLATION INDEX
|
TS YNDX # Y-TRANSLATION INDEX
|
||||||
|
|
||||||
CA T5TEMP
|
CA T5TEMP
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT5
|
MP BIT5
|
||||||
MASK THREE
|
MASK THREE
|
||||||
TS ZNDX # Z-TRANSLATION INDEX
|
TS ZNDX # Z-TRANSLATION INDEX
|
||||||
|
|
||||||
CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
|
CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
|
||||||
MASK BIT14 # TRANSLATIONS.
|
MASK BIT14 # TRANSLATIONS.
|
||||||
EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
|
EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
|
||||||
@ -99,7 +99,7 @@ NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
|
|||||||
TS XNDX2
|
TS XNDX2
|
||||||
TS YNDX
|
TS YNDX
|
||||||
TS ZNDX
|
TS ZNDX
|
||||||
|
|
||||||
# PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
|
# PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
|
||||||
|
|
||||||
PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
|
PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
|
||||||
@ -107,7 +107,7 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
|
|||||||
TCF +2 # 0 = NO PITCH
|
TCF +2 # 0 = NO PITCH
|
||||||
CAF TWO # +1 = + PITCH
|
CAF TWO # +1 = + PITCH
|
||||||
TS PINDEX # +2 = - PITCH
|
TS PINDEX # +2 = - PITCH
|
||||||
|
|
||||||
CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
|
CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
|
||||||
TCF AFAILP
|
TCF AFAILP
|
||||||
TCF TABPCOM # 0 = NO REAL AC FAILURES
|
TCF TABPCOM # 0 = NO REAL AC FAILURES
|
||||||
@ -115,17 +115,17 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
|
|||||||
TCF TABPCOM # - = C QUAD FAILED
|
TCF TABPCOM # - = C QUAD FAILED
|
||||||
# IF FAILURES ARE PRESENT IGNORE
|
# IF FAILURES ARE PRESENT IGNORE
|
||||||
# X-TRANSLATIONS ON THIS AXIS
|
# X-TRANSLATIONS ON THIS AXIS
|
||||||
|
|
||||||
AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
|
AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
|
||||||
TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
|
TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
|
||||||
CFAILP CAF TWELVE
|
CFAILP CAF TWELVE
|
||||||
TCF TABPCOM +2
|
TCF TABPCOM +2
|
||||||
|
|
||||||
XLNNDX DEC 0 # INDICES FOR TRANSLATION COMMANDS
|
XLNNDX DEC 0 # INDICES FOR TRANSLATION COMMANDS
|
||||||
DEC 3 # FOR USE IN TABLE LOOK UP
|
DEC 3 # FOR USE IN TABLE LOOK UP
|
||||||
DEC 6
|
DEC 6
|
||||||
DEC 0
|
DEC 0
|
||||||
|
|
||||||
TWELVE = OCT14
|
TWELVE = OCT14
|
||||||
|
|
||||||
# TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
|
# TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
|
||||||
@ -142,7 +142,7 @@ TABPCOM INDEX XNDX1
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP BIT7
|
MP BIT7
|
||||||
TS NPJETS # = NO. OF PITCH JETS
|
TS NPJETS # = NO. OF PITCH JETS
|
||||||
|
|
||||||
# YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
|
# YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
|
||||||
|
|
||||||
YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
|
YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
|
||||||
@ -150,18 +150,18 @@ YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
|
|||||||
TCF +2
|
TCF +2
|
||||||
CAF TWO
|
CAF TWO
|
||||||
TS YINDEX # YAW ROTATION INDEX
|
TS YINDEX # YAW ROTATION INDEX
|
||||||
|
|
||||||
CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
|
CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
|
||||||
TCF BFAILY # 0 = NO BD FAILURE
|
TCF BFAILY # 0 = NO BD FAILURE
|
||||||
TCF TABYCOM # + = B QUAD FAILED
|
TCF TABYCOM # + = B QUAD FAILED
|
||||||
TCF DFAILY # - = D QUAD FAILED
|
TCF DFAILY # - = D QUAD FAILED
|
||||||
TCF TABYCOM
|
TCF TABYCOM
|
||||||
|
|
||||||
BFAILY CAF NINE
|
BFAILY CAF NINE
|
||||||
TCF TABYCOM +2
|
TCF TABYCOM +2
|
||||||
DFAILY CAF TWELVE
|
DFAILY CAF TWELVE
|
||||||
TCF TABYCOM +2
|
TCF TABYCOM +2
|
||||||
|
|
||||||
# Page 1042
|
# Page 1042
|
||||||
# TABLE FOR PITCH(YAW) COMMANDS
|
# TABLE FOR PITCH(YAW) COMMANDS
|
||||||
# BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
|
# BITS 4,3,2,1 = PITCH, X-TRANSLATION JETS SELECTED
|
||||||
@ -185,7 +185,7 @@ PYTABLE OCT 0 # 0 0 0
|
|||||||
OCT 0 # 0 C(D) 12
|
OCT 0 # 0 C(D) 12
|
||||||
OCT 2504 # + C(D) 12
|
OCT 2504 # + C(D) 12
|
||||||
OCT 2610 # - C(D) 12
|
OCT 2610 # - C(D) 12
|
||||||
|
|
||||||
# MASKS FOR PITCH AND YAW COMMANDS
|
# MASKS FOR PITCH AND YAW COMMANDS
|
||||||
|
|
||||||
PJETS OCT 1417
|
PJETS OCT 1417
|
||||||
@ -213,28 +213,28 @@ RWORD CCS TAU # CHECK FOR ROLL COMMANDS
|
|||||||
TCF +2
|
TCF +2
|
||||||
CAF TWO
|
CAF TWO
|
||||||
TS RINDEX
|
TS RINDEX
|
||||||
|
|
||||||
CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
|
CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
|
||||||
TCF BDROLL # ROLL COMMANDS
|
TCF BDROLL # ROLL COMMANDS
|
||||||
TCF BDROLL # +, +0 = BD ROLL
|
TCF BDROLL # +, +0 = BD ROLL
|
||||||
TCF +1 # -, -0 = AC ROLL
|
TCF +1 # -, -0 = AC ROLL
|
||||||
|
|
||||||
ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
|
ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
|
||||||
TCF RAFAIL # ON AC QUADS
|
TCF RAFAIL # ON AC QUADS
|
||||||
TCF RXLNS
|
TCF RXLNS
|
||||||
TCF RCFAIL
|
TCF RCFAIL
|
||||||
TCF RXLNS
|
TCF RXLNS
|
||||||
|
|
||||||
RAFAIL CAF NINE # QUAD FAILURE WILL GET
|
RAFAIL CAF NINE # QUAD FAILURE WILL GET
|
||||||
TCF TABRCOM # 1-JET OPERATION
|
TCF TABRCOM # 1-JET OPERATION
|
||||||
RCFAIL CAF TWELVE
|
RCFAIL CAF TWELVE
|
||||||
TCF TABRCOM
|
TCF TABRCOM
|
||||||
|
|
||||||
XLN1NDX DEC 0
|
XLN1NDX DEC 0
|
||||||
DEC 1 # INDECES FOR TRANSLATION
|
DEC 1 # INDECES FOR TRANSLATION
|
||||||
DEC 2
|
DEC 2
|
||||||
DEC 0
|
DEC 0
|
||||||
|
|
||||||
# TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
|
# TABLE LOOK UP FOR AC-ROLL COMMANDS WITH AND WITHOUT Y-TRANSLATION AND ACQUAD FAILURES PRESENT
|
||||||
# BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
|
# BITS 9,10,11 CONTAIN THE MAGNITUDE AND DIRECTION OF THE ROLL
|
||||||
|
|
||||||
@ -245,13 +245,13 @@ TABRCOM AD RINDEX
|
|||||||
CA RTABLE
|
CA RTABLE
|
||||||
MASK ACRJETS # = 3760 OCT
|
MASK ACRJETS # = 3760 OCT
|
||||||
TS RWORD1
|
TS RWORD1
|
||||||
|
|
||||||
# CHECK FOR Z-TRANSLATIONS ON BD
|
# CHECK FOR Z-TRANSLATIONS ON BD
|
||||||
|
|
||||||
BDZCHECK CA ZNDX
|
BDZCHECK CA ZNDX
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF NOBDZ # NO Z-TRANSLATION
|
BZMF NOBDZ # NO Z-TRANSLATION
|
||||||
|
|
||||||
# Page 1044
|
# Page 1044
|
||||||
# TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
|
# TABLE LOOK UP FOR BD Z-TRANSLATION WITH AND WITHOUT REAL BD QUAD FAILURES. Z-TRANSLATION WILL BE POSS-
|
||||||
# IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION: IF THE RESULTANT NET ROLL
|
# IBLE AS LONG AS ROLL COMMANDS CAN BE SATISFIED WITH THE AC ROLL JETS. CRITERION: IF THE RESULTANT NET ROLL
|
||||||
@ -269,31 +269,31 @@ BDZCHECK CA ZNDX
|
|||||||
MASK BDZJETS # = 3417 OCT
|
MASK BDZJETS # = 3417 OCT
|
||||||
AD RWORD1 # ADD TO ROLL COMMANDS
|
AD RWORD1 # ADD TO ROLL COMMANDS
|
||||||
TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
|
TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
|
MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
|
||||||
AD =-4 # Z-TRANSLATION ADDED ON
|
AD =-4 # Z-TRANSLATION ADDED ON
|
||||||
TS NRJETS # NET NO. OF +,- ROLL JETS ON
|
TS NRJETS # NET NO. OF +,- ROLL JETS ON
|
||||||
EXTEND
|
EXTEND
|
||||||
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 UNDESIREABLE 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
|
||||||
TCF NOBDZ
|
TCF NOBDZ
|
||||||
TCF ACRBDZ
|
TCF ACRBDZ
|
||||||
TCF NOBDZ
|
TCF NOBDZ
|
||||||
TCF ACRBDZ
|
TCF ACRBDZ
|
||||||
|
|
||||||
NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
|
NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT7
|
MP BIT7
|
||||||
AD =-2
|
AD =-2
|
||||||
TS NRJETS
|
TS NRJETS
|
||||||
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
|
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
|
||||||
|
|
||||||
# Page 1045
|
# Page 1045
|
||||||
# BD QUAD SELECTION FOR ROLL COMMANDS
|
# BD QUAD SELECTION FOR ROLL COMMANDS
|
||||||
|
|
||||||
@ -306,7 +306,7 @@ RBFAIL CAF NINE
|
|||||||
TCF TABRZCMD
|
TCF TABRZCMD
|
||||||
RDFAIL CAF TWELVE
|
RDFAIL CAF TWELVE
|
||||||
TCF TABRZCMD
|
TCF TABRZCMD
|
||||||
|
|
||||||
RZXLNS INDEX ZNDX # NO BD FAILURES
|
RZXLNS INDEX ZNDX # NO BD FAILURES
|
||||||
CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
|
CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
|
||||||
TABRZCMD AD RINDEX
|
TABRZCMD AD RINDEX
|
||||||
@ -314,7 +314,7 @@ TABRZCMD AD RINDEX
|
|||||||
CA RTABLE
|
CA RTABLE
|
||||||
MASK BDRJETS # = 34017 OCT
|
MASK BDRJETS # = 34017 OCT
|
||||||
TS RWORD1
|
TS RWORD1
|
||||||
|
|
||||||
ACYCHECK CA YNDX # ANY Y-TRANSLATION
|
ACYCHECK CA YNDX # ANY Y-TRANSLATION
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NOACY # NO Y-TRANSLATION
|
BZF NOACY # NO Y-TRANSLATION
|
||||||
@ -335,17 +335,17 @@ ACYCHECK CA YNDX # ANY Y-TRANSLATION
|
|||||||
TS NRJETS # NO. OF NET ROLL JETS
|
TS NRJETS # NO. OF NET ROLL JETS
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF TAUCHCK # IF NRJETS = 0
|
BZF TAUCHCK # IF NRJETS = 0
|
||||||
|
|
||||||
BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
|
BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
|
||||||
TS RWORD1
|
TS RWORD1
|
||||||
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
|
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
|
||||||
|
|
||||||
TAUCHCK CCS TAU
|
TAUCHCK CCS TAU
|
||||||
TCF NOACY
|
TCF NOACY
|
||||||
TCF BDRACZ
|
TCF BDRACZ
|
||||||
TCF NOACY
|
TCF NOACY
|
||||||
TCF BDRACZ
|
TCF BDRACZ
|
||||||
|
|
||||||
# Page 1046
|
# Page 1046
|
||||||
NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
|
NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -353,7 +353,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
|
|||||||
AD =-2
|
AD =-2
|
||||||
TS NRJETS
|
TS NRJETS
|
||||||
TCF ROLLTIME
|
TCF ROLLTIME
|
||||||
|
|
||||||
# Page 1047
|
# Page 1047
|
||||||
# TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
|
# TABLE FOR ROLL, Y AND Z-TRANSLATION COMMANDS
|
||||||
#
|
#
|
||||||
@ -390,7 +390,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
|
|||||||
# (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
|
# (AS ABOVE) TO GIVE THE NET ROLL TORQUE.
|
||||||
|
|
||||||
# ROLL TRANS QUADFAIL BIAS
|
# ROLL TRANS QUADFAIL BIAS
|
||||||
|
|
||||||
RTABLE OCT 11000 # 0 0
|
RTABLE OCT 11000 # 0 0
|
||||||
OCT 22125 # + 0
|
OCT 22125 # + 0
|
||||||
OCT 00252 # - 0
|
OCT 00252 # - 0
|
||||||
@ -440,7 +440,7 @@ YZTABLE OCT 11000 # 0 0
|
|||||||
OCT 11000 # 0 D(C) 6
|
OCT 11000 # 0 D(C) 6
|
||||||
OCT 15421 # +Z(+Y) D(C) 6
|
OCT 15421 # +Z(+Y) D(C) 6
|
||||||
OCT 04442 # -Z(-Y) D(C) 6
|
OCT 04442 # -Z(-Y) D(C) 6
|
||||||
|
|
||||||
# YZ-TABLE MASKS:
|
# YZ-TABLE MASKS:
|
||||||
|
|
||||||
BDZJETS OCT 03417
|
BDZJETS OCT 03417
|
||||||
@ -456,7 +456,7 @@ ACYJETS OCT 34360
|
|||||||
#
|
#
|
||||||
# THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
|
# THE ROTATION COMMANDS (TAU:S), WHICH WERE DETERMINED FROM THE JET SWITCHING LOGIC ON THE BASIS OF SINGLE JET
|
||||||
# OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
|
# OPERATION, MUST NOW BE UPDATED BY THE ACTUAL NUMBER OF JETS TO BE USED IN SATISFYING THESE COMMANDS. TAU MUST
|
||||||
# ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5
|
# ALSO BE DECREMENTED ACCORDING TO THE EXPECTED TORQUE GENERATED BY THE NEW COMMANDS ACTING OVER THE NEXT T5
|
||||||
# INTERVAL.
|
# INTERVAL.
|
||||||
#
|
#
|
||||||
# IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
|
# IN ORDER TO MAINTAIN ACCURATE KNOWLEDGE OF VEHICLE ANGULAR RATES, WE MUST ALSO PROVIDE EXPECTED FIRING TIMES
|
||||||
@ -480,7 +480,7 @@ PITCHTIM CCS TAU1
|
|||||||
TCF PTAUNEG
|
TCF PTAUNEG
|
||||||
TS DFT1 # NO PITCH ROTATION
|
TS DFT1 # NO PITCH ROTATION
|
||||||
TCF PBYPASS # COMMANDS
|
TCF PBYPASS # COMMANDS
|
||||||
|
|
||||||
PTAUNEG CS NPJETS
|
PTAUNEG CS NPJETS
|
||||||
TS NPJETS
|
TS NPJETS
|
||||||
PTAUPOS CA TAU1
|
PTAUPOS CA TAU1
|
||||||
@ -513,7 +513,7 @@ PBLASTOK CA BLAST1
|
|||||||
LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
|
LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
|
||||||
TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
|
TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
|
||||||
TCF ASMBLWP
|
TCF ASMBLWP
|
||||||
|
|
||||||
# Page 1052
|
# Page 1052
|
||||||
# YAW JET ON-TIME CALCULATION
|
# YAW JET ON-TIME CALCULATION
|
||||||
|
|
||||||
@ -523,7 +523,7 @@ YAWTIME CCS TAU2
|
|||||||
TCF YTAUNEG
|
TCF YTAUNEG
|
||||||
TS DFT2 # NO YAW ROTATION COMMANDS
|
TS DFT2 # NO YAW ROTATION COMMANDS
|
||||||
TCF YBYPASS
|
TCF YBYPASS
|
||||||
|
|
||||||
YTAUNEG CS NYJETS
|
YTAUNEG CS NYJETS
|
||||||
TS NYJETS
|
TS NYJETS
|
||||||
YTAUPOS CA TAU2
|
YTAUPOS CA TAU2
|
||||||
@ -542,7 +542,7 @@ YTAUPOS CA TAU2
|
|||||||
CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
|
CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
|
||||||
TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
|
TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
|
||||||
TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
|
TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
|
||||||
|
|
||||||
AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
|
AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
|
||||||
AD =14MS # MINIMUM IMPULSE TIME
|
AD =14MS # MINIMUM IMPULSE TIME
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -555,7 +555,7 @@ YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
|
|||||||
LXCH DFT2
|
LXCH DFT2
|
||||||
TS TAU2 # ZERO TAU2
|
TS TAU2 # ZERO TAU2
|
||||||
TCF ASMBLWY
|
TCF ASMBLWY
|
||||||
|
|
||||||
# Page 1053
|
# Page 1053
|
||||||
# ROLL ON-TIME CALCULATION-
|
# ROLL ON-TIME CALCULATION-
|
||||||
|
|
||||||
@ -567,7 +567,7 @@ ROLLTIME CCS TAU
|
|||||||
CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
|
CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
|
||||||
TS DFT # PRESENT
|
TS DFT # PRESENT
|
||||||
TCF RBYPASS
|
TCF RBYPASS
|
||||||
|
|
||||||
DEC -480 # =-.3SEC
|
DEC -480 # =-.3SEC
|
||||||
DEC -320 # =-.2SEC
|
DEC -320 # =-.2SEC
|
||||||
=-.1SEC DEC -160 # =-.1SEC
|
=-.1SEC DEC -160 # =-.1SEC
|
||||||
@ -594,7 +594,7 @@ RBLAST CA TAU
|
|||||||
CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
|
CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
|
||||||
TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
|
TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
|
||||||
TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
|
TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
|
||||||
|
|
||||||
AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
|
AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
|
||||||
AD =14MS # MINIMUM IMPULSE TIME
|
AD =14MS # MINIMUM IMPULSE TIME
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -607,7 +607,7 @@ RBLASTOK CA BLAST
|
|||||||
LXCH DFT
|
LXCH DFT
|
||||||
TS TAU # ZERO TAU
|
TS TAU # ZERO TAU
|
||||||
TCF ASMBLWR
|
TCF ASMBLWR
|
||||||
|
|
||||||
# Page 1054
|
# Page 1054
|
||||||
DEC -.333333 # = -1/3
|
DEC -.333333 # = -1/3
|
||||||
DEC -.500000 # = -1/2
|
DEC -.500000 # = -1/2
|
||||||
@ -616,7 +616,7 @@ NJET DEC 0
|
|||||||
DEC .999999 # = +1 (POSMAX)
|
DEC .999999 # = +1 (POSMAX)
|
||||||
DEC .500000 # = +1/2
|
DEC .500000 # = +1/2
|
||||||
DEC .333333 # = +1/3
|
DEC .333333 # = +1/3
|
||||||
|
|
||||||
# Page 1055
|
# Page 1055
|
||||||
# WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
|
# WHEN THE ROTATION COMMANDS ARE COMPLETED, IT IS NECESSARY TO REPLACE THESE COMMANDS BY NEW COMMANDS WHICH
|
||||||
# CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
|
# CONTINUE ON WITH THE TRANSLATIONS IF ANY ARE PRESENT.
|
||||||
@ -637,13 +637,13 @@ FPX2 CA PYTABLE
|
|||||||
MASK PJETS
|
MASK PJETS
|
||||||
TS PWORD2
|
TS PWORD2
|
||||||
TCF YAWTIME
|
TCF YAWTIME
|
||||||
|
|
||||||
PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
|
PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
|
||||||
TS PWORD2 # UPON ENTRY
|
TS PWORD2 # UPON ENTRY
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS BLAST1 # THERE IS NO PWORD2
|
TS BLAST1 # THERE IS NO PWORD2
|
||||||
TCF YAWTIME
|
TCF YAWTIME
|
||||||
|
|
||||||
# Page 1056
|
# Page 1056
|
||||||
# GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
|
# GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
|
||||||
|
|
||||||
@ -656,7 +656,7 @@ NO2Y CAF ZERO
|
|||||||
NO2Z CAF ZERO
|
NO2Z CAF ZERO
|
||||||
ADS RWORD2
|
ADS RWORD2
|
||||||
TCF PITCHTIM # RWORD2 ASSEMBLED
|
TCF PITCHTIM # RWORD2 ASSEMBLED
|
||||||
|
|
||||||
ACBD2Y CCS ACORBD
|
ACBD2Y CCS ACORBD
|
||||||
TCF AC2Y # CAN DO Y-TRANS
|
TCF AC2Y # CAN DO Y-TRANS
|
||||||
TCF AC2Y
|
TCF AC2Y
|
||||||
@ -665,14 +665,14 @@ ACBD2Y CCS ACORBD
|
|||||||
TCF NO2Y # USING AC AND AC HAS FAILED
|
TCF NO2Y # USING AC AND AC HAS FAILED
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF NO2Y # DITTO
|
TCF NO2Y # DITTO
|
||||||
|
|
||||||
INDEX YNDX # NO FAILURES, CAN DO Y
|
INDEX YNDX # NO FAILURES, CAN DO Y
|
||||||
CA XLNNDX
|
CA XLNNDX
|
||||||
INDEX A
|
INDEX A
|
||||||
CA RTABLE
|
CA RTABLE
|
||||||
MASK ACRJETS
|
MASK ACRJETS
|
||||||
TCF NO2Y +1
|
TCF NO2Y +1
|
||||||
|
|
||||||
AC2Y CCS RACFAIL
|
AC2Y CCS RACFAIL
|
||||||
CAF THREE
|
CAF THREE
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -720,7 +720,7 @@ ACBD2Z CCS ACORBD
|
|||||||
CA L
|
CA L
|
||||||
ADS DFT
|
ADS DFT
|
||||||
TCF PITCHTIM
|
TCF PITCHTIM
|
||||||
|
|
||||||
BDF2Z CCS RBDFAIL
|
BDF2Z CCS RBDFAIL
|
||||||
TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
|
TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -731,14 +731,14 @@ BDF2Z CCS RBDFAIL
|
|||||||
CA RTABLE
|
CA RTABLE
|
||||||
MASK BDRJETS
|
MASK BDRJETS
|
||||||
TCF NO2Z +1
|
TCF NO2Z +1
|
||||||
|
|
||||||
RBYPASS CA RWORD1
|
RBYPASS CA RWORD1
|
||||||
TS RWORD2
|
TS RWORD2
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS BLAST
|
TS BLAST
|
||||||
TCF PITCHTIM
|
TCF PITCHTIM
|
||||||
|
|
||||||
# Page 1058
|
# Page 1058
|
||||||
# GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
|
# GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
|
||||||
|
|
||||||
ASMBLWY CCS RBDFAIL
|
ASMBLWY CCS RBDFAIL
|
||||||
@ -752,7 +752,7 @@ FYX2 CA PYTABLE
|
|||||||
MASK YJETS
|
MASK YJETS
|
||||||
TS YWORD2
|
TS YWORD2
|
||||||
TCF T6SETUP
|
TCF T6SETUP
|
||||||
|
|
||||||
YBYPASS CA YWORD1
|
YBYPASS CA YWORD1
|
||||||
TS YWORD2
|
TS YWORD2
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
@ -783,7 +783,7 @@ T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
|
|||||||
TS BLAST1 +1
|
TS BLAST1 +1
|
||||||
CAF ELEVEN # BRANCH INDEX FOR YAW
|
CAF ELEVEN # BRANCH INDEX FOR YAW
|
||||||
TS BLAST2 +1
|
TS BLAST2 +1
|
||||||
|
|
||||||
CS BLAST
|
CS BLAST
|
||||||
AD BLAST1
|
AD BLAST1
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -805,7 +805,7 @@ ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
|
|||||||
CS ZERO # RESET T5PHASE FOR PHASE1
|
CS ZERO # RESET T5PHASE FOR PHASE1
|
||||||
TS T5PHASE
|
TS T5PHASE
|
||||||
TCF RESUME # RESUME INTERRUPTED PROGRAM
|
TCF RESUME # RESUME INTERRUPTED PROGRAM
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
RCS2CADR 2CADR RCSATT
|
RCS2CADR 2CADR RCSATT
|
||||||
|
|
||||||
@ -814,7 +814,7 @@ DXCHT12 DXCH BLAST
|
|||||||
DXCH BLAST1
|
DXCH BLAST1
|
||||||
DXCH BLAST
|
DXCH BLAST
|
||||||
TCF CHECKT23
|
TCF CHECKT23
|
||||||
|
|
||||||
DXCHT23 DXCH BLAST1
|
DXCHT23 DXCH BLAST1
|
||||||
DXCH BLAST2
|
DXCH BLAST2
|
||||||
DXCH BLAST1
|
DXCH BLAST1
|
||||||
@ -827,14 +827,14 @@ DXCHT23 DXCH BLAST1
|
|||||||
DXCH BLAST1
|
DXCH BLAST1
|
||||||
DXCH BLAST
|
DXCH BLAST
|
||||||
TCF CALCDT6
|
TCF CALCDT6
|
||||||
|
|
||||||
# Page 1061
|
# Page 1061
|
||||||
# T6 PROGRAM AND CHANNEL SETUP
|
# T6 PROGRAM AND CHANNEL SETUP
|
||||||
|
|
||||||
BANK 21
|
BANK 21
|
||||||
SETLOC DAPS5
|
SETLOC DAPS5
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
T6START LXCH BANKRUPT
|
T6START LXCH BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
@ -842,7 +842,7 @@ T6START LXCH BANKRUPT
|
|||||||
TCF RESUME # AFTER T6RUPT OCCURED(IN T5RUPT)
|
TCF RESUME # AFTER T6RUPT OCCURED(IN T5RUPT)
|
||||||
TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
|
TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
|
||||||
TCF RESUME # TAKING ACTION
|
TCF RESUME # TAKING ACTION
|
||||||
|
|
||||||
CS RCSFLAGS
|
CS RCSFLAGS
|
||||||
MASK BIT1 # IF BIT1 IS 0 RESET TO 1
|
MASK BIT1 # IF BIT1 IS 0 RESET TO 1
|
||||||
EXTEND # AND INITIALIZE CHANNEL
|
EXTEND # AND INITIALIZE CHANNEL
|
||||||
@ -855,7 +855,7 @@ T6START LXCH BANKRUPT
|
|||||||
AD YWORD1
|
AD YWORD1
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN5
|
WRITE CHAN5
|
||||||
|
|
||||||
T6RUPTOR CCS BLAST
|
T6RUPTOR CCS BLAST
|
||||||
TCF ZBLAST # ZERO BLAST1
|
TCF ZBLAST # ZERO BLAST1
|
||||||
TCF REPLACE # REPLACE WORD1
|
TCF REPLACE # REPLACE WORD1
|
||||||
@ -871,31 +871,31 @@ T6L2 CCS BLAST2
|
|||||||
TCF REPLACE2
|
TCF REPLACE2
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
TCF REPLACE2
|
TCF REPLACE2
|
||||||
|
|
||||||
REPLACE INDEX BLAST +1
|
REPLACE INDEX BLAST +1
|
||||||
TC REPLACER
|
TC REPLACER
|
||||||
CS ONE
|
CS ONE
|
||||||
TS BLAST
|
TS BLAST
|
||||||
TCF T6L1
|
TCF T6L1
|
||||||
|
|
||||||
REPLACE1 INDEX BLAST1 +1
|
REPLACE1 INDEX BLAST1 +1
|
||||||
# Page 1062
|
# Page 1062
|
||||||
TC REPLACER
|
TC REPLACER
|
||||||
CS ONE
|
CS ONE
|
||||||
TS BLAST1
|
TS BLAST1
|
||||||
TCF T6L2
|
TCF T6L2
|
||||||
|
|
||||||
REPLACE2 INDEX BLAST2 +1
|
REPLACE2 INDEX BLAST2 +1
|
||||||
TC REPLACER
|
TC REPLACER
|
||||||
CS ONE
|
CS ONE
|
||||||
TS BLAST2
|
TS BLAST2
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
REPLACER CA RWORD2
|
REPLACER CA RWORD2
|
||||||
EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD2
|
EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD2
|
||||||
WRITE CHAN6
|
WRITE CHAN6
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
REPLACEP CA YJETS
|
REPLACEP CA YJETS
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND CHAN5
|
RAND CHAN5
|
||||||
@ -903,7 +903,7 @@ REPLACEP CA YJETS
|
|||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN5
|
WRITE CHAN5
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
REPLACEY CA PJETS
|
REPLACEY CA PJETS
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND CHAN5
|
RAND CHAN5
|
||||||
@ -925,7 +925,7 @@ ENABT6 TS TIME6
|
|||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN13 # ENABLE T6RUPT
|
WOR CHAN13 # ENABLE T6RUPT
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
# END OF T6 INTERRUPT
|
# END OF T6 INTERRUPT
|
||||||
|
|
||||||
ENDSLECT EQUALS
|
ENDSLECT EQUALS
|
||||||
|
|||||||
@ -7,13 +7,13 @@
|
|||||||
# Reference: pp. 414-419
|
# Reference: pp. 414-419
|
||||||
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -33,14 +33,14 @@
|
|||||||
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
|
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
|
|
||||||
SETLOC KALCMON1
|
SETLOC KALCMON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
COUNT 22/KALC
|
COUNT 22/KALC
|
||||||
|
|
||||||
NEWDELHI CS HOLDFLAG # SEE IF MANEUVER HAS BEEN INTERRUPTED
|
NEWDELHI CS HOLDFLAG # SEE IF MANEUVER HAS BEEN INTERRUPTED
|
||||||
EXTEND # BY ASTRONAUT.
|
EXTEND # BY ASTRONAUT.
|
||||||
BZMF NOGO -2 # IF SO, TERMINATE KALCMANU
|
BZMF NOGO -2 # IF SO, TERMINATE KALCMANU
|
||||||
@ -59,7 +59,7 @@ NEWANGL TC INTPRET
|
|||||||
AXC,1 CALL
|
AXC,1 CALL
|
||||||
MIS
|
MIS
|
||||||
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
|
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
|
||||||
RTB
|
RTB
|
||||||
V1STO2S
|
V1STO2S
|
||||||
STORE NCDU # NEW CDU ANGLES
|
STORE NCDU # NEW CDU ANGLES
|
||||||
BONCLR EXIT
|
BONCLR EXIT
|
||||||
@ -87,23 +87,23 @@ INCRDCDU TS KSPNDX
|
|||||||
TS CDUXD
|
TS CDUXD
|
||||||
CCS KSPNDX
|
CCS KSPNDX
|
||||||
TCF INCRDCDU # LOOP FOR THREE AXES
|
TCF INCRDCDU # LOOP FOR THREE AXES
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
|
# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
|
||||||
|
|
||||||
TMANUCHK TC TIMECHK
|
TMANUCHK TC TIMECHK
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR CONTMANU
|
CADR CONTMANU
|
||||||
|
|
||||||
CAF ONE
|
CAF ONE
|
||||||
MANUSTAL TC WAITLIST
|
MANUSTAL TC WAITLIST
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
2CADR MANUSTOP
|
2CADR MANUSTOP
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
|
|
||||||
TIMECHK EXTEND
|
TIMECHK EXTEND
|
||||||
DCS TIME2
|
DCS TIME2
|
||||||
DXCH TTEMP
|
DXCH TTEMP
|
||||||
@ -165,9 +165,9 @@ HIGHGAIN CS RCSFLAGS # IF SO, SET HIGH RATE FLAG (BIT 15 OF
|
|||||||
XCH NEXTIME
|
XCH NEXTIME
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR INCRDCDU -1
|
CADR INCRDCDU -1
|
||||||
|
|
||||||
CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
|
CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
|
||||||
CS TIME1
|
CS TIME1
|
||||||
AD NEXTIME
|
AD NEXTIME
|
||||||
CCS A
|
CCS A
|
||||||
AD ONE
|
AD ONE
|
||||||
@ -177,7 +177,7 @@ CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
|
|||||||
MANUCALL TC WAITLIST
|
MANUCALL TC WAITLIST
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
2CADR UPDTCALL
|
2CADR UPDTCALL
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
# Page 417
|
# Page 417
|
||||||
CAF 1SEC # INCREMENT TIME FOR NEXT UPDATE
|
CAF 1SEC # INCREMENT TIME FOR NEXT UPDATE
|
||||||
@ -191,13 +191,13 @@ UPDTCALL CAF PRIO26 # CALL FOR UPDATE
|
|||||||
2CADR NEWDELHI
|
2CADR NEWDELHI
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
# Page 418
|
# Page 418
|
||||||
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
|
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
|
||||||
|
|
||||||
SETLOC KALCMON3
|
SETLOC KALCMON3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
MANUSTOP TC STOPYZ
|
MANUSTOP TC STOPYZ
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR LOADYZ
|
CADR LOADYZ
|
||||||
@ -207,14 +207,14 @@ ENDROLL CA CPHI
|
|||||||
TC STOPRATE
|
TC STOPRATE
|
||||||
ENDMANU CA ATTPRIO # RESTORE USERS PRIO
|
ENDMANU CA ATTPRIO # RESTORE USERS PRIO
|
||||||
TS NEWPRIO
|
TS NEWPRIO
|
||||||
|
|
||||||
CA ZERO # ZERO ATTCADR
|
CA ZERO # ZERO ATTCADR
|
||||||
DXCH ATTCADR
|
DXCH ATTCADR
|
||||||
|
|
||||||
TC SPVAC # RETURN TO USER OF GOMANUR
|
TC SPVAC # RETURN TO USER OF GOMANUR
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
SETLOC STOPRAT
|
SETLOC STOPRAT
|
||||||
BANK
|
BANK
|
||||||
STOPRATE CAF ZERO
|
STOPRATE CAF ZERO
|
||||||
@ -223,11 +223,11 @@ STOPRATE CAF ZERO
|
|||||||
TS WBODY # RATE
|
TS WBODY # RATE
|
||||||
TS WBODY +1
|
TS WBODY +1
|
||||||
TS BIAS # BIAS
|
TS BIAS # BIAS
|
||||||
|
|
||||||
CS BIT15 # MAKE SURE HIGH RATE FLAG (BIT 15 OF
|
CS BIT15 # MAKE SURE HIGH RATE FLAG (BIT 15 OF
|
||||||
MASK RCSFLAGS # RCSFLAGS) IS RESET.
|
MASK RCSFLAGS # RCSFLAGS) IS RESET.
|
||||||
TS RCSFLAGS
|
TS RCSFLAGS
|
||||||
|
|
||||||
STOPYZ CAF ZERO
|
STOPYZ CAF ZERO
|
||||||
TS DELCDUY # ZERO PITCH, YAW
|
TS DELCDUY # ZERO PITCH, YAW
|
||||||
TS DELCDUY +1 # INCREMENTAL ANGLES
|
TS DELCDUY +1 # INCREMENTAL ANGLES
|
||||||
@ -240,7 +240,7 @@ STOPYZ CAF ZERO
|
|||||||
TS BIAS1 # BIASES
|
TS BIAS1 # BIASES
|
||||||
TS BIAS2
|
TS BIAS2
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
SETLOC MANUSTUF
|
SETLOC MANUSTUF
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
@ -255,7 +255,7 @@ ZEROERROR CA CDUX # PICK UP CDU ANGLES AND STORE IN
|
|||||||
|
|
||||||
SETLOC KALCMON1
|
SETLOC KALCMON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
LOADCDUD CA CPHI # STORE TERMINAL ANGLES INTO
|
LOADCDUD CA CPHI # STORE TERMINAL ANGLES INTO
|
||||||
TS CDUXD # COMMAND ANGLES
|
TS CDUXD # COMMAND ANGLES
|
||||||
LOADYZ CA CTHETA
|
LOADYZ CA CTHETA
|
||||||
|
|||||||
@ -8,16 +8,16 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>
|
# Contact: Ron Burkey <info@sandroid.org>
|
||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
||||||
# name, and page images. Corrected various
|
# name, and page images. Corrected various
|
||||||
# typos in the transcription of program
|
# typos in the transcription of program
|
||||||
# comments, and these should be back-ported
|
# comments, and these should be back-ported
|
||||||
# to Colossus249.
|
# to Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -54,7 +54,7 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 13/LT-LG
|
COUNT 13/LT-LG
|
||||||
|
|
||||||
EBANK= ALPHAV
|
EBANK= ALPHAV
|
||||||
LAT-LONG STQ SETPD
|
LAT-LONG STQ SETPD
|
||||||
INCORPEX
|
INCORPEX
|
||||||
|
|||||||
@ -12,11 +12,11 @@
|
|||||||
# 2009-07-26 RSB Added annotations related to computation
|
# 2009-07-26 RSB Added annotations related to computation
|
||||||
# of the ephemeral(?) polynomials.
|
# of the ephemeral(?) polynomials.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -45,7 +45,7 @@
|
|||||||
# INPUT BY THE USER SHOULD FALL WITHIN THIS 15 DAY INTERVAL.
|
# INPUT BY THE USER SHOULD FALL WITHIN THIS 15 DAY INTERVAL.
|
||||||
## The 9th-degree polynomial spoken of here is a pad load, meaning
|
## The 9th-degree polynomial spoken of here is a pad load, meaning
|
||||||
## that it is not actually hardcoded into the software. Additional
|
## that it is not actually hardcoded into the software. Additional
|
||||||
## information about calculating the polynomial can be found on the
|
## information about calculating the polynomial can be found on the
|
||||||
## <a href="http://nassp.sourceforge.net/wiki/Lunar_Ephemeris_Polynomials">
|
## <a href="http://nassp.sourceforge.net/wiki/Lunar_Ephemeris_Polynomials">
|
||||||
## <b>Orbiter</b> NASSP wiki</a>, as well as information about calculation
|
## <b>Orbiter</b> NASSP wiki</a>, as well as information about calculation
|
||||||
## of the <a href="http://nassp.sourceforge.net/wiki/Solar_Ephemeris">
|
## of the <a href="http://nassp.sourceforge.net/wiki/Solar_Ephemeris">
|
||||||
@ -80,7 +80,7 @@
|
|||||||
#
|
#
|
||||||
# 5) VESO -- VELOCITY VECTOR OF THE SUN RELATIVE TO THE EARTH AT
|
# 5) VESO -- VELOCITY VECTOR OF THE SUN RELATIVE TO THE EARTH AT
|
||||||
# TIMEMO IN METERS/CS x B-9
|
# TIMEMO IN METERS/CS x B-9
|
||||||
#
|
#
|
||||||
# 6) OMEGAES -- ANGULAR VELOCITY OF THE VECTOR RESO AT TIMEMO IN
|
# 6) OMEGAES -- ANGULAR VELOCITY OF THE VECTOR RESO AT TIMEMO IN
|
||||||
# REV/CS x B+26
|
# REV/CS x B+26
|
||||||
#
|
#
|
||||||
@ -131,7 +131,7 @@
|
|||||||
BANK 36
|
BANK 36
|
||||||
SETLOC EPHEM
|
SETLOC EPHEM
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/EPHEM
|
COUNT* $$/EPHEM
|
||||||
EBANK= END-E7
|
EBANK= END-E7
|
||||||
LSPOS AXT,2 # COMPUTES POSITION VECTORS OF BOTH THE
|
LSPOS AXT,2 # COMPUTES POSITION VECTORS OF BOTH THE
|
||||||
@ -166,7 +166,7 @@ RES PUSH DMP # PD- 2
|
|||||||
OMEGAES
|
OMEGAES
|
||||||
PUSH COS # PD- 4
|
PUSH COS # PD- 4
|
||||||
VXSC PDDL # PD- 8
|
VXSC PDDL # PD- 8
|
||||||
RESO
|
RESO
|
||||||
SIN PDVL # PD-10
|
SIN PDVL # PD-10
|
||||||
RESO
|
RESO
|
||||||
PUSH UNIT # PD-16
|
PUSH UNIT # PD-16
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
|
|||||||
@ -14,21 +14,21 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
#
|
#
|
||||||
# This file is a little different from the other Comanche055 files I'm providing,
|
# This file is a little different from the other Comanche055 files I'm providing,
|
||||||
# in that it doesn't represent anything that appears directly in the original source.
|
# in that it doesn't represent anything that appears directly in the original source.
|
||||||
# What I (RSB) have done for organizational purposes is to split the huge monolithic
|
# What I (RSB) have done for organizational purposes is to split the huge monolithic
|
||||||
# source code into smaller, more manageable chunks--i.e., into individual source
|
# source code into smaller, more manageable chunks--i.e., into individual source
|
||||||
# files. Those files are rejoined within this file as "includes". It just makes
|
# files. Those files are rejoined within this file as "includes". It just makes
|
||||||
# it a little easier to work with. The code chunks correspond to natural divisions
|
# it a little easier to work with. The code chunks correspond to natural divisions
|
||||||
# into sub-programs. In fact, these divisions are more-or-less specified by
|
# into sub-programs. In fact, these divisions are more-or-less specified by
|
||||||
@ -37,32 +37,32 @@
|
|||||||
#
|
#
|
||||||
# It may be reasonably asked why tens of thousands of lines of source are joined by
|
# It may be reasonably asked why tens of thousands of lines of source are joined by
|
||||||
# means of inclusion, rather than simply assembling the source files individually and
|
# means of inclusion, rather than simply assembling the source files individually and
|
||||||
# then linking them to form the executable. The answer is that the original
|
# then linking them to form the executable. The answer is that the original
|
||||||
# development team had no linker. The builds were monolithic just like this.
|
# development team had no linker. The builds were monolithic just like this.
|
||||||
# There was a big emphasis on reusability of the code in the original project,
|
# There was a big emphasis on reusability of the code in the original project,
|
||||||
# apparently, but this reusability took the form of inserting your deck of
|
# apparently, but this reusability took the form of inserting your deck of
|
||||||
# punch-cards at the appropriate position in somebody else's deck of punch-cards.
|
# punch-cards at the appropriate position in somebody else's deck of punch-cards.
|
||||||
# (Actually, I think the card-decks were turned into tape libraries, and the modules
|
# (Actually, I think the card-decks were turned into tape libraries, and the modules
|
||||||
# were mixed-and-matched from the tape libraries, but the principle is the same.)
|
# were mixed-and-matched from the tape libraries, but the principle is the same.)
|
||||||
# So, indeed, the method of file-inclusion is a very fair representation of the
|
# So, indeed, the method of file-inclusion is a very fair representation of the
|
||||||
# methods used in the original development ... with the improvement, of course,
|
# methods used in the original development ... with the improvement, of course,
|
||||||
# that you no longer have to worry about dropping the card deck. On the other hand,
|
# that you no longer have to worry about dropping the card deck. On the other hand,
|
||||||
# I wasn't there at the time, so I may have no idea what I'm talking about.
|
# I wasn't there at the time, so I may have no idea what I'm talking about.
|
||||||
#
|
#
|
||||||
# Finally, note that the original Apollo AGC assembler (called "YUL") is no longer
|
# Finally, note that the original Apollo AGC assembler (called "YUL") is no longer
|
||||||
# available (as far as I can tell). Actually, it had already been replaced by another
|
# available (as far as I can tell). Actually, it had already been replaced by another
|
||||||
# assembler (called "GAP") by the time of Apollo 11, but GAP isn't available either.
|
# assembler (called "GAP") by the time of Apollo 11, but GAP isn't available either.
|
||||||
# The replacement assembler yaYUL accepts a slightly different format for the source
|
# The replacement assembler yaYUL accepts a slightly different format for the source
|
||||||
# code from what YUL or GAP accepted, so the source code has been targeted for
|
# code from what YUL or GAP accepted, so the source code has been targeted for
|
||||||
# assembly with yaYUL.
|
# assembly with yaYUL.
|
||||||
|
|
||||||
# What follows is simply a bunch of file-includes for the individual code chunks.
|
# What follows is simply a bunch of file-includes for the individual code chunks.
|
||||||
# I've marked the page numbers to make proof-reading easier. The page images also
|
# I've marked the page numbers to make proof-reading easier. The page images also
|
||||||
# contain a lot of interesting tables (cross-referenced to page numbers) created by GAP,
|
# contain a lot of interesting tables (cross-referenced to page numbers) created by GAP,
|
||||||
# but not duplicated by yaYUL, so it's still valuable even if the source-files
|
# but not duplicated by yaYUL, so it's still valuable even if the source-files
|
||||||
# listed below are in hand.
|
# listed below are in hand.
|
||||||
|
|
||||||
$CONTRACT_AND_APPROVALS.agc # p. 1
|
$CONTRACT_AND_APPROVALS.agc # p. 1
|
||||||
$ASSEMBLY_AND_OPERATION_INFORMATION.agc # pp. 2-26
|
$ASSEMBLY_AND_OPERATION_INFORMATION.agc # pp. 2-26
|
||||||
$TAGS_FOR_RELATIVE_SETLOC.agc # pp. 27-35
|
$TAGS_FOR_RELATIVE_SETLOC.agc # pp. 27-35
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -459,11 +459,11 @@ NEWZCOMP VLOAD ABVAL
|
|||||||
STADR
|
STADR
|
||||||
STCALL NORMZI # LARGEST ABVAL
|
STCALL NORMZI # LARGEST ABVAL
|
||||||
NEWZCMP1
|
NEWZCMP1
|
||||||
|
|
||||||
SETLOC MEASINC3
|
SETLOC MEASINC3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
# Page 1261
|
# Page 1261
|
||||||
NEWZCMP1 DLOAD SXA,1
|
NEWZCMP1 DLOAD SXA,1
|
||||||
NORMZI
|
NORMZI
|
||||||
NORMZI # SAVE X1
|
NORMZI # SAVE X1
|
||||||
|
|||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -32,7 +32,7 @@
|
|||||||
BANK 20
|
BANK 20
|
||||||
SETLOC MYSUBS
|
SETLOC MYSUBS
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
SPCOS1 EQUALS SPCOS
|
SPCOS1 EQUALS SPCOS
|
||||||
SPSIN1 EQUALS SPSIN
|
SPSIN1 EQUALS SPSIN
|
||||||
@ -40,7 +40,7 @@ SPCOS2 EQUALS SPCOS
|
|||||||
SPSIN2 EQUALS SPSIN
|
SPSIN2 EQUALS SPSIN
|
||||||
|
|
||||||
COUNT 21/DAPMS
|
COUNT 21/DAPMS
|
||||||
|
|
||||||
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
|
||||||
|
|
||||||
SMALLMP TS KMPTEMP # A(X+Y)
|
SMALLMP TS KMPTEMP # A(X+Y)
|
||||||
@ -53,7 +53,7 @@ SMALLMP TS KMPTEMP # A(X+Y)
|
|||||||
MP KMPTEMP # AX
|
MP KMPTEMP # AX
|
||||||
DAS KMPAC # AX+AY
|
DAS KMPAC # AX+AY
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
|
||||||
# A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
|
# A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
|
||||||
# RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
|
# RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
|
||||||
@ -74,7 +74,7 @@ DPADD DAS KMPAC
|
|||||||
CA POSMAX # UPPER WAS = 0
|
CA POSMAX # UPPER WAS = 0
|
||||||
TSK TS KMPAC
|
TSK TS KMPAC
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
|
DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
|
||||||
TCF TSK
|
TCF TSK
|
||||||
|
|
||||||
@ -82,7 +82,7 @@ DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
|
|||||||
DPADD- COM
|
DPADD- COM
|
||||||
AD POSMAX # KMPAC LESS THAN 0
|
AD POSMAX # KMPAC LESS THAN 0
|
||||||
TCF TSK
|
TCF TSK
|
||||||
|
|
||||||
DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
|
DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
|
||||||
TS KMPAC +1
|
TS KMPAC +1
|
||||||
CA NEGMAX # UPPER WAS = 0
|
CA NEGMAX # UPPER WAS = 0
|
||||||
|
|||||||
@ -9,7 +9,7 @@
|
|||||||
# Pages: 1334-1354
|
# Pages: 1334-1354
|
||||||
# Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: DAT -> DAD in one place,
|
# 2009-05-20 RSB Corrections: DAT -> DAD in one place,
|
||||||
# BWM -> BMN, DEFEQCNT -> DIFEQCNT.
|
# BWM -> BMN, DEFEQCNT -> DIFEQCNT.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -18,13 +18,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -391,18 +391,18 @@ COMTERM STORE UZ
|
|||||||
J4REQ/J3,2
|
J4REQ/J3,2
|
||||||
DDV DAD
|
DDV DAD
|
||||||
ALPHAM
|
ALPHAM
|
||||||
DMPR* SR3
|
DMPR* SR3
|
||||||
2J3RE/J2,2
|
2J3RE/J2,2
|
||||||
DDV DAD
|
DDV DAD
|
||||||
ALPHAM
|
ALPHAM
|
||||||
VXSC VSL1
|
VXSC VSL1
|
||||||
UZ
|
UZ
|
||||||
BVSU
|
BVSU
|
||||||
TVEC
|
TVEC
|
||||||
STODL TVEC
|
STODL TVEC
|
||||||
ALPHAM
|
ALPHAM
|
||||||
NORM DSQ
|
NORM DSQ
|
||||||
X1
|
X1
|
||||||
DSQ NORM
|
DSQ NORM
|
||||||
S1 # 4
|
S1 # 4
|
||||||
PUSH BDDV* # NORMED R TO 0D
|
PUSH BDDV* # NORMED R TO 0D
|
||||||
@ -424,7 +424,7 @@ COMTERM STORE UZ
|
|||||||
QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
|
QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
|
||||||
# AS VECTOR.
|
# AS VECTOR.
|
||||||
PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D.
|
PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D.
|
||||||
# Page 1343
|
# Page 1343
|
||||||
5/8 # 5 SCALED B3
|
5/8 # 5 SCALED B3
|
||||||
PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
|
PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
|
||||||
# COSPHI**2 D2 FROM 8D
|
# COSPHI**2 D2 FROM 8D
|
||||||
@ -492,14 +492,14 @@ COSPHIE DLOAD
|
|||||||
DIFEQTAB CADR DIFEQ+0
|
DIFEQTAB CADR DIFEQ+0
|
||||||
CADR DIFEQ+1
|
CADR DIFEQ+1
|
||||||
CADR DIFEQ+2
|
CADR DIFEQ+2
|
||||||
|
|
||||||
TIMESTEP BOF CALL
|
TIMESTEP BOF CALL
|
||||||
MIDFLAG
|
MIDFLAG
|
||||||
RECTEST # SKIP ORIGIN CHANGE LOGIC
|
RECTEST # SKIP ORIGIN CHANGE LOGIC
|
||||||
CHKSWTCH
|
CHKSWTCH
|
||||||
BMN
|
BMN
|
||||||
DOSWITCH
|
DOSWITCH
|
||||||
|
|
||||||
RECTEST VLOAD ABVAL # RECTIFY IF
|
RECTEST VLOAD ABVAL # RECTIFY IF
|
||||||
TDELTAV
|
TDELTAV
|
||||||
BOV
|
BOV
|
||||||
@ -526,7 +526,7 @@ CALLRECT CALL
|
|||||||
RECTIFY
|
RECTIFY
|
||||||
INTGRATE VLOAD
|
INTGRATE VLOAD
|
||||||
TNUV
|
TNUV
|
||||||
# Page 1345
|
# Page 1345
|
||||||
STOVL ZV
|
STOVL ZV
|
||||||
TDELTAV
|
TDELTAV
|
||||||
STORE YV
|
STORE YV
|
||||||
@ -567,20 +567,20 @@ RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
|
|||||||
EARSPH
|
EARSPH
|
||||||
SR2 BDSU # INSIDE
|
SR2 BDSU # INSIDE
|
||||||
RSPHERE
|
RSPHERE
|
||||||
GOTO
|
GOTO
|
||||||
ORIGEX
|
ORIGEX
|
||||||
EARSPH VSU ABVAL # OUTSIDE
|
EARSPH VSU ABVAL # OUTSIDE
|
||||||
RPQV
|
RPQV
|
||||||
DSU GOTO
|
DSU GOTO
|
||||||
RSPHERE
|
RSPHERE
|
||||||
ORIGEX
|
ORIGEX
|
||||||
|
|
||||||
DOSWITCH CALL
|
DOSWITCH CALL
|
||||||
ORIGCHNG
|
ORIGCHNG
|
||||||
GOTO
|
GOTO
|
||||||
INTGRATE
|
INTGRATE
|
||||||
|
|
||||||
# Page 1346
|
# Page 1346
|
||||||
ORIGCHNG STQ CALL
|
ORIGCHNG STQ CALL
|
||||||
ORIGEX
|
ORIGEX
|
||||||
RECTIFY
|
RECTIFY
|
||||||
@ -848,7 +848,7 @@ DOW..1 VLOAD VSR4
|
|||||||
34D
|
34D
|
||||||
VSL* RVQ
|
VSL* RVQ
|
||||||
# Page 1353
|
# Page 1353
|
||||||
0 -8D,2
|
0 -8D,2
|
||||||
|
|
||||||
SETLOC ORBITAL1
|
SETLOC ORBITAL1
|
||||||
BANK
|
BANK
|
||||||
@ -901,25 +901,25 @@ ASCALE DEC -7
|
|||||||
DEC -6
|
DEC -6
|
||||||
# Page 1354
|
# Page 1354
|
||||||
2DEC* 1.32715445 E16 B-54* # S
|
2DEC* 1.32715445 E16 B-54* # S
|
||||||
|
|
||||||
2DEC* 4.9027780 E8 B-30* # M
|
2DEC* 4.9027780 E8 B-30* # M
|
||||||
|
|
||||||
MUEARTH 2DEC* 3.986032 E10 B-36*
|
MUEARTH 2DEC* 3.986032 E10 B-36*
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
J4REQ/J3 2DEC* .4991607391 E7 B-26*
|
J4REQ/J3 2DEC* .4991607391 E7 B-26*
|
||||||
|
|
||||||
2DEC -176236.02 B-25
|
2DEC -176236.02 B-25
|
||||||
|
|
||||||
2J3RE/J2 2DEC* -.1355426363 E5 B-27*
|
2J3RE/J2 2DEC* -.1355426363 E5 B-27*
|
||||||
|
|
||||||
2DEC* .3067493316 E18 B-60*
|
2DEC* .3067493316 E18 B-60*
|
||||||
|
|
||||||
J2REQSQ 2DEC* 1.75501139 E21 B-72*
|
J2REQSQ 2DEC* 1.75501139 E21 B-72*
|
||||||
|
|
||||||
3J22R2MU 2DEC* 9.20479048 E16 B-58*
|
3J22R2MU 2DEC* 9.20479048 E16 B-58*
|
||||||
|
|
||||||
5/8 2DEC 5 B-3
|
5/8 2DEC 5 B-3
|
||||||
|
|
||||||
-1/12 2DEC -.1
|
-1/12 2DEC -.1
|
||||||
|
|||||||
@ -7,10 +7,10 @@
|
|||||||
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 533-550
|
# Pages: 533-550
|
||||||
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
|
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images 0533.jpg - 0550.jpg.
|
# images 0533.jpg - 0550.jpg.
|
||||||
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
|
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
|
||||||
# STATSW -> SATSW.
|
# STATSW -> SATSW.
|
||||||
# 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q.
|
# 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q.
|
||||||
# Added an SBANK= prior to a 2CADR.
|
# Added an SBANK= prior to a 2CADR.
|
||||||
@ -22,13 +22,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -72,7 +72,7 @@
|
|||||||
# R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS
|
# R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS
|
||||||
# R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS
|
# R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS
|
||||||
# R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM
|
# R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM
|
||||||
#
|
#
|
||||||
# 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
|
# 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
|
||||||
#
|
#
|
||||||
# A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
|
# A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
|
||||||
@ -146,16 +146,16 @@
|
|||||||
# CENTRALS, CORE SET, AND VAC AREAS
|
# CENTRALS, CORE SET, AND VAC AREAS
|
||||||
|
|
||||||
COUNT 34/P11
|
COUNT 34/P11
|
||||||
|
|
||||||
BITS5-6 = SUPER011
|
BITS5-6 = SUPER011
|
||||||
BANK 42
|
BANK 42
|
||||||
SETLOC P11ONE
|
SETLOC P11ONE
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= TEPHEM
|
EBANK= TEPHEM
|
||||||
P11 CA EBANK3
|
P11 CA EBANK3
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA REP11S # DIRECT RESTARTS TO REP11
|
DCA REP11S # DIRECT RESTARTS TO REP11
|
||||||
DXCH -PHASE3
|
DXCH -PHASE3
|
||||||
@ -166,11 +166,11 @@ P11 CA EBANK3
|
|||||||
P11+7 EXTEND
|
P11+7 EXTEND
|
||||||
DCA REP11SA
|
DCA REP11SA
|
||||||
DXCH TLIFTOFF
|
DXCH TLIFTOFF
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TIME2
|
DCA TIME2
|
||||||
DXCH LIFTTEMP # FORE RESTARTS
|
DXCH LIFTTEMP # FORE RESTARTS
|
||||||
|
|
||||||
CA ZERO
|
CA ZERO
|
||||||
ZL
|
ZL
|
||||||
DXCH TIME2
|
DXCH TIME2
|
||||||
@ -184,57 +184,57 @@ REP11A INHINT
|
|||||||
CA TEPHEM
|
CA TEPHEM
|
||||||
# Page 536
|
# Page 536
|
||||||
XCH TEPHEM1
|
XCH TEPHEM1
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TLIFTOFF
|
DCA TLIFTOFF
|
||||||
DAS TEPHEM1 +1
|
DAS TEPHEM1 +1
|
||||||
ADS TEPHEM1 # CORRECT FOR OVERFLOW
|
ADS TEPHEM1 # CORRECT FOR OVERFLOW
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 05023
|
OCT 05023
|
||||||
OCT 22000
|
OCT 22000
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TEPHEM1
|
DCA TEPHEM1
|
||||||
DXCH TEPHEM
|
DXCH TEPHEM
|
||||||
CA TEPHEM1 +2
|
CA TEPHEM1 +2
|
||||||
XCH TEPHEM +2
|
XCH TEPHEM +2
|
||||||
|
|
||||||
CAF EBDVCNT
|
CAF EBDVCNT
|
||||||
TS EBANK
|
TS EBANK
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
|
CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 05023 # CONTINUE HERE ON RESTART
|
OCT 05023 # CONTINUE HERE ON RESTART
|
||||||
OCT 22000
|
OCT 22000
|
||||||
|
|
||||||
CAF .5SEC # START ATT ERROR DISPLAY
|
CAF .5SEC # START ATT ERROR DISPLAY
|
||||||
TC WAITLIST # IN .5 SEC
|
TC WAITLIST # IN .5 SEC
|
||||||
EBANK= BODY3
|
EBANK= BODY3
|
||||||
2CADR ATERTASK
|
2CADR ATERTASK
|
||||||
|
|
||||||
TC NEWMODEX # DISPLAY MM 11
|
TC NEWMODEX # DISPLAY MM 11
|
||||||
MM 11
|
MM 11
|
||||||
|
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES NODOP01
|
ADRES NODOP01
|
||||||
|
|
||||||
CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST
|
CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST
|
||||||
TS DNLSTCOD
|
TS DNLSTCOD
|
||||||
|
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
|
CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 40514 # PROTECT ATERTASK
|
OCT 40514 # PROTECT ATERTASK
|
||||||
OCT 00073
|
OCT 00073
|
||||||
CAF EBQPLACE
|
CAF EBQPLACE
|
||||||
# Page 537
|
# Page 537
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
EBANK= QPLACES
|
EBANK= QPLACES
|
||||||
CA P11XIT # SET EXIT FROM PROUT IN EARTHR
|
CA P11XIT # SET EXIT FROM PROUT IN EARTHR
|
||||||
TS QPLACES
|
TS QPLACES
|
||||||
@ -253,9 +253,9 @@ REP11A INHINT
|
|||||||
MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
||||||
CA CDUX # ERROR DISPLAY AFTER LIFTOFF
|
CA CDUX # ERROR DISPLAY AFTER LIFTOFF
|
||||||
DXCH OGC
|
DXCH OGC
|
||||||
ZL
|
ZL
|
||||||
CA CDUY
|
CA CDUY
|
||||||
DXCH IGC
|
DXCH IGC
|
||||||
ZL
|
ZL
|
||||||
CA CDUZ
|
CA CDUZ
|
||||||
DXCH MGC
|
DXCH MGC
|
||||||
@ -276,8 +276,8 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
|||||||
CLEAR CALL
|
CLEAR CALL
|
||||||
ERADFLAG
|
ERADFLAG
|
||||||
LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS.
|
LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS.
|
||||||
|
|
||||||
STCALL RN1 # _
|
STCALL RN1 # _
|
||||||
GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION
|
GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION
|
||||||
VCOMP UNIT
|
VCOMP UNIT
|
||||||
STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV)
|
STOVL REFSMMAT +12D # UNITZ = UNIT(GRAV)
|
||||||
@ -303,7 +303,7 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
|||||||
VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1
|
VAD UNIT # SIN(AZ)*EAST - COS(AZ)*SOUTH = REF1
|
||||||
REFSMMAT
|
REFSMMAT
|
||||||
STORE REFSMMAT
|
STORE REFSMMAT
|
||||||
|
|
||||||
VXV UNIT # (REF1 X REF3) = -REF3
|
VXV UNIT # (REF1 X REF3) = -REF3
|
||||||
REFSMMAT +12D
|
REFSMMAT +12D
|
||||||
VCOMP
|
VCOMP
|
||||||
@ -318,21 +318,21 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
|||||||
STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
|
STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
|
||||||
SET EXIT
|
SET EXIT
|
||||||
REFSMFLG # SET REFSMMAT KNOWN FLAG
|
REFSMFLG # SET REFSMMAT KNOWN FLAG
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 04023
|
OCT 04023
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA P11SCADR
|
DCA P11SCADR
|
||||||
DXCH AVGEXIT # SET AVGEXIT
|
DXCH AVGEXIT # SET AVGEXIT
|
||||||
|
|
||||||
CA PRIO31 # 2 SECONDS AT 2(+8)
|
CA PRIO31 # 2 SECONDS AT 2(+8)
|
||||||
TS 1/PIPADT
|
TS 1/PIPADT
|
||||||
|
|
||||||
EBANK= RCSFLAGS
|
EBANK= RCSFLAGS
|
||||||
CA EBANK6
|
CA EBANK6
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
# Page 539
|
# Page 539
|
||||||
CS ZERO
|
CS ZERO
|
||||||
@ -340,47 +340,47 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
|
|||||||
|
|
||||||
CS TIME1
|
CS TIME1
|
||||||
AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
|
AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
|
||||||
|
|
||||||
CCS A # CHECK TO INSURE DT IS POSITIVE
|
CCS A # CHECK TO INSURE DT IS POSITIVE
|
||||||
TCF +3 # TIME POSITIVE
|
TCF +3 # TIME POSITIVE
|
||||||
TCF +2 # CANNOT GET HERE
|
TCF +2 # CANNOT GET HERE
|
||||||
CA ZERO # TIME NEGATIVE -- SET TO 1
|
CA ZERO # TIME NEGATIVE -- SET TO 1
|
||||||
AD ONE # RESTORE TIME -- OR MAKE POSITIVE
|
AD ONE # RESTORE TIME -- OR MAKE POSITIVE
|
||||||
|
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR READACCS
|
2CADR READACCS
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 00003 # TURN OFF GROUP 3
|
OCT 00003 # TURN OFF GROUP 3
|
||||||
OCT 00025 # PROTECT NORMLIZE AND READACCS
|
OCT 00025 # PROTECT NORMLIZE AND READACCS
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
|
CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
|
||||||
|
|
||||||
|
|
||||||
EBANK= TEPHEM
|
EBANK= TEPHEM
|
||||||
REP11 INHINT
|
REP11 INHINT
|
||||||
CCS PHASE5
|
CCS PHASE5
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
CCS LIFTTEMP
|
CCS LIFTTEMP
|
||||||
TCF +4
|
TCF +4
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF P11+7
|
TCF P11+7
|
||||||
|
|
||||||
CS TLIFTOFF
|
CS TLIFTOFF
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF ENDREP11
|
BZMF ENDREP11
|
||||||
|
|
||||||
CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF **
|
CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF **
|
||||||
TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
|
TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
|
||||||
|
|
||||||
EXTEND # T2,T1 ZEROED, SET TLIFTOFF
|
EXTEND # T2,T1 ZEROED, SET TLIFTOFF
|
||||||
DCA LIFTTEMP
|
DCA LIFTTEMP
|
||||||
TCF REP11A-2
|
TCF REP11A-2
|
||||||
|
|
||||||
ENDREP11 EXTEND
|
ENDREP11 EXTEND
|
||||||
DCA REP11SA
|
DCA REP11SA
|
||||||
TCF REP11A-1
|
TCF REP11A-1
|
||||||
@ -409,16 +409,16 @@ VHHDOT TC INTPRET
|
|||||||
EXIT
|
EXIT
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00035
|
OCT 00035
|
||||||
|
|
||||||
CAF V06N62 # DISPLAY IN R1 R2 R3
|
CAF V06N62 # DISPLAY IN R1 R2 R3
|
||||||
TC BANKCALL # VI HDOT H
|
TC BANKCALL # VI HDOT H
|
||||||
CADR REGODSP
|
CADR REGODSP
|
||||||
|
|
||||||
ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
|
ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
|
||||||
TC FINDVAC # COMES HERE AT L.O. + .33 SEC
|
TC FINDVAC # COMES HERE AT L.O. + .33 SEC
|
||||||
EBANK= BODY3
|
EBANK= BODY3
|
||||||
2CADR ATERJOB
|
2CADR ATERJOB
|
||||||
|
|
||||||
CS RCSFLAGS # SET BIT3 FOR
|
CS RCSFLAGS # SET BIT3 FOR
|
||||||
MASK BIT3 # NEEDLER
|
MASK BIT3 # NEEDLER
|
||||||
ADS RCSFLAGS # INITIALIZATION PASS
|
ADS RCSFLAGS # INITIALIZATION PASS
|
||||||
@ -463,7 +463,7 @@ GETDOWN STQ SETPD
|
|||||||
# TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
|
# TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
|
||||||
# (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC)
|
# (-COS(R)*COS(P) SIN(R) -COS(R)*SIN(P)) (ZDC)
|
||||||
#
|
#
|
||||||
# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
|
# XDC,YDC,ZDC ARE USED AS INPUT TO CALCGTA FOR THE EXTRACTION OF THE
|
||||||
# EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED
|
# EULER SET OF ANGLES WHICH WILL BRING THE SM INTO THE DESIRED
|
||||||
# ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
|
# ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
|
||||||
# AS THE DESIRED CDU ANGLES.
|
# AS THE DESIRED CDU ANGLES.
|
||||||
@ -516,7 +516,7 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
|
|||||||
CA TIME2
|
CA TIME2
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF +2
|
BZMF +2
|
||||||
TC NOPOLY # GO TO ATTITUDE HOLD
|
TC NOPOLY # GO TO ATTITUDE HOLD
|
||||||
CAE POLYNUM
|
CAE POLYNUM
|
||||||
TS L
|
TS L
|
||||||
CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
|
CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
|
||||||
@ -536,16 +536,16 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
|
|||||||
|
|
||||||
SETLOC P11TWO
|
SETLOC P11TWO
|
||||||
BANK # 36 IN COL., 34 IN DISK
|
BANK # 36 IN COL., 34 IN DISK
|
||||||
|
|
||||||
COUNT 36/P11
|
COUNT 36/P11
|
||||||
|
|
||||||
ATTDISP1 COS DCOMP
|
ATTDISP1 COS DCOMP
|
||||||
STODL 14D # -.5*COS(P)
|
STODL 14D # -.5*COS(P)
|
||||||
SIN
|
SIN
|
||||||
STODL 10D # .5*SIN(P)
|
STODL 10D # .5*SIN(P)
|
||||||
ZEROVECS
|
ZEROVECS
|
||||||
STORE 12D # 0
|
STORE 12D # 0
|
||||||
|
|
||||||
# EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
|
# EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
|
||||||
SLOAD DMP
|
SLOAD DMP
|
||||||
SPOLYARG # TIME1 - RSPSTART, CSECS B-14.
|
SPOLYARG # TIME1 - RSPSTART, CSECS B-14.
|
||||||
@ -578,7 +578,7 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
|
|||||||
10D
|
10D
|
||||||
STOVL 20D # -.5*SIN(R)*SIN(P)
|
STOVL 20D # -.5*SIN(R)*SIN(P)
|
||||||
10D
|
10D
|
||||||
|
|
||||||
# FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
|
# FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
|
||||||
# Page 544
|
# Page 544
|
||||||
UNIT
|
UNIT
|
||||||
@ -590,11 +590,11 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
|
|||||||
UNIT
|
UNIT
|
||||||
STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
|
STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
|
||||||
CALCGTA # -COS(R)*SIN(P))
|
CALCGTA # -COS(R)*SIN(P))
|
||||||
|
|
||||||
# CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC
|
# CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC
|
||||||
# _ _ _
|
# _ _ _
|
||||||
# FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
|
# FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
|
||||||
#
|
#
|
||||||
# ENTER HERE IF ATTITUDE HOLD
|
# ENTER HERE IF ATTITUDE HOLD
|
||||||
|
|
||||||
NOPOLYM VLOAD PUSH # OGC IGC
|
NOPOLYM VLOAD PUSH # OGC IGC
|
||||||
@ -619,7 +619,7 @@ NOPOLYM VLOAD PUSH # OGC IGC
|
|||||||
4
|
4
|
||||||
GOTO
|
GOTO
|
||||||
ATTDISP2
|
ATTDISP2
|
||||||
|
|
||||||
SETLOC P11ONE
|
SETLOC P11ONE
|
||||||
BANK
|
BANK
|
||||||
COUNT 34/P11
|
COUNT 34/P11
|
||||||
@ -649,7 +649,7 @@ ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
|
|||||||
16D
|
16D
|
||||||
STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
|
STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CA SATSW
|
CA SATSW
|
||||||
CCS A # CHK TAKEOVER STATUS
|
CCS A # CHK TAKEOVER STATUS
|
||||||
TC SATOUT # POS -- DISPLAY ONLY
|
TC SATOUT # POS -- DISPLAY ONLY
|
||||||
@ -713,7 +713,7 @@ TAKEON CAF BIT9 # ENABLE
|
|||||||
WOR CHAN12 # TAKEOVER
|
WOR CHAN12 # TAKEOVER
|
||||||
CA ZERO # INDICATE NEEDLER
|
CA ZERO # INDICATE NEEDLER
|
||||||
TS SATSW # WAS INITIALIZED
|
TS SATSW # WAS INITIALIZED
|
||||||
TC SATOUT
|
TC SATOUT
|
||||||
S11.1 VLOAD ABVAL
|
S11.1 VLOAD ABVAL
|
||||||
VN
|
VN
|
||||||
STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
|
STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
|
||||||
@ -751,7 +751,7 @@ DELSTOR CA BOOSTEMP
|
|||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
RLTST CA MPAC # DETERMINE IF ROLLOUT
|
RLTST CA MPAC # DETERMINE IF ROLLOUT
|
||||||
EXTEND # IS COMPLETED
|
EXTEND # IS COMPLETED
|
||||||
MP SATRLRT +1
|
MP SATRLRT +1
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
|
BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
|
||||||
EXTEND # ROLLOUT COMPLETED
|
EXTEND # ROLLOUT COMPLETED
|
||||||
@ -772,7 +772,7 @@ RESCALES EXTEND # RESCALE AK S FOR
|
|||||||
|
|
||||||
# SATURN TAKEOVER FUNCTION
|
# SATURN TAKEOVER FUNCTION
|
||||||
# ************************
|
# ************************
|
||||||
#
|
#
|
||||||
# PROGRAM DESCRIPTION
|
# PROGRAM DESCRIPTION
|
||||||
#
|
#
|
||||||
# MOD NUMBER 1
|
# MOD NUMBER 1
|
||||||
@ -842,7 +842,7 @@ RESCALES EXTEND # RESCALE AK S FOR
|
|||||||
BANK 43
|
BANK 43
|
||||||
SETLOC EXTVERBS
|
SETLOC EXTVERBS
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 23/STTKE
|
COUNT 23/STTKE
|
||||||
SATSTKON EXTEND
|
SATSTKON EXTEND
|
||||||
DCA 2REDOSAT
|
DCA 2REDOSAT
|
||||||
@ -857,7 +857,7 @@ SATSTKON EXTEND
|
|||||||
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
|
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
|
||||||
RELINT
|
RELINT
|
||||||
TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
|
TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
|
||||||
|
|
||||||
SBANK= PINSUPER # Added RSB 2009
|
SBANK= PINSUPER # Added RSB 2009
|
||||||
EBANK= BODY3
|
EBANK= BODY3
|
||||||
2REDOSAT 2CADR REDOSAT
|
2REDOSAT 2CADR REDOSAT
|
||||||
@ -867,7 +867,7 @@ SATSTKON EXTEND
|
|||||||
BANK 32
|
BANK 32
|
||||||
SETLOC P11FOUR
|
SETLOC P11FOUR
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
|
REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
@ -885,13 +885,13 @@ REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
|
|||||||
CAF 100MST5 # IN 100 MSECS
|
CAF 100MST5 # IN 100 MSECS
|
||||||
TS TIME5
|
TS TIME5
|
||||||
TCF RESUME # END OF SATURN STICK INITIALIZATION
|
TCF RESUME # END OF SATURN STICK INITIALIZATION
|
||||||
|
|
||||||
# THIS SECTION IS EXECUTED EVERY 100 MSECS.
|
# THIS SECTION IS EXECUTED EVERY 100 MSECS.
|
||||||
# Page 550
|
# Page 550
|
||||||
SATSTICK LXCH BANKRUPT
|
SATSTICK LXCH BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
|
|
||||||
CAF 2SATSTCK # SET UP RUPT
|
CAF 2SATSTCK # SET UP RUPT
|
||||||
TS T5LOC # LO ORDER LOC SET
|
TS T5LOC # LO ORDER LOC SET
|
||||||
CAF 100MST5 # 100 MSECS
|
CAF 100MST5 # 100 MSECS
|
||||||
@ -902,7 +902,7 @@ SATSTICK LXCH BANKRUPT
|
|||||||
MASK STIKBITS
|
MASK STIKBITS
|
||||||
TC IBNKCALL # SET RATE INDICES
|
TC IBNKCALL # SET RATE INDICES
|
||||||
CADR STICKCHK # FOR PITCH YAW AND ROLL
|
CADR STICKCHK # FOR PITCH YAW AND ROLL
|
||||||
|
|
||||||
INDEX RMANNDX # SET SATURN RATES
|
INDEX RMANNDX # SET SATURN RATES
|
||||||
CA SATRATE
|
CA SATRATE
|
||||||
TS AK # ROLL
|
TS AK # ROLL
|
||||||
@ -912,11 +912,11 @@ SATSTICK LXCH BANKRUPT
|
|||||||
INDEX YMANNDX
|
INDEX YMANNDX
|
||||||
CA SATRATE
|
CA SATRATE
|
||||||
TS AK2 # YAW
|
TS AK2 # YAW
|
||||||
|
|
||||||
TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
|
TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
|
||||||
CADR NEEDLER
|
CADR NEEDLER
|
||||||
TCF RESUME # END OF SATURN STICK CONTROL
|
TCF RESUME # END OF SATURN STICK CONTROL
|
||||||
|
|
||||||
STIKBITS OCT 00077
|
STIKBITS OCT 00077
|
||||||
100MST5 DEC 16374
|
100MST5 DEC 16374
|
||||||
EBANK= BODY3
|
EBANK= BODY3
|
||||||
|
|||||||
@ -7,12 +7,12 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 562-534
|
# Pages: 562-534
|
||||||
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
|
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
|
||||||
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND
|
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND
|
||||||
# was fixed, P23.10 -> R23.10,
|
# was fixed, P23.10 -> R23.10,
|
||||||
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
|
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
|
||||||
# S22DPP -> S22DSPP, changed some instructions in
|
# S22DPP -> S22DSPP, changed some instructions in
|
||||||
# P23.152.
|
# P23.152.
|
||||||
@ -23,13 +23,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -86,7 +86,7 @@
|
|||||||
BANK 33
|
BANK 33
|
||||||
SETLOC P20S
|
SETLOC P20S
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= ESTROKER
|
EBANK= ESTROKER
|
||||||
COUNT* $$/P20
|
COUNT* $$/P20
|
||||||
|
|
||||||
@ -110,7 +110,7 @@ PROG20 TC BANKCALL
|
|||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 4
|
OCT 4
|
||||||
OCT 05022
|
OCT 05022
|
||||||
OCT 26000
|
OCT 26000
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
RTB
|
RTB
|
||||||
LOADTIME
|
LOADTIME
|
||||||
@ -141,7 +141,7 @@ P20.3 CALL
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= MRKBUF2
|
EBANK= MRKBUF2
|
||||||
2CADR R22
|
2CADR R22
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 00072
|
OCT 00072
|
||||||
OCT 00111
|
OCT 00111
|
||||||
@ -183,10 +183,10 @@ FIRST3 EQUALS FURST3
|
|||||||
BANK 31
|
BANK 31
|
||||||
SETLOC P20S1
|
SETLOC P20S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= LANDMARK
|
EBANK= LANDMARK
|
||||||
COUNT* $$/P22
|
COUNT* $$/P22
|
||||||
|
|
||||||
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
|
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
|
||||||
ADRES RNDVZFLG
|
ADRES RNDVZFLG
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -269,7 +269,7 @@ V05N7022 VN 00570
|
|||||||
V05N7122 VN 00571
|
V05N7122 VN 00571
|
||||||
SETLOC P20S
|
SETLOC P20S
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
SETLOC P20S1
|
SETLOC P20S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
@ -284,7 +284,7 @@ S22LSITE RTB # CONVERT RLS FROM MOON-FIXED TO BASIC REF
|
|||||||
RP-TO-R # RLS IN BASIC REF B-27 IN MPAC
|
RP-TO-R # RLS IN BASIC REF B-27 IN MPAC
|
||||||
VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
|
VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
|
||||||
STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
|
STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
|
||||||
RTB
|
RTB
|
||||||
LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
|
LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
|
||||||
CALL
|
CALL
|
||||||
LAT-LONG
|
LAT-LONG
|
||||||
@ -383,7 +383,7 @@ S22ABDE TC INTPRET
|
|||||||
22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS
|
22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS
|
||||||
BHIZ GOTO
|
BHIZ GOTO
|
||||||
OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
|
OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
|
||||||
# Page 569
|
# Page 569
|
||||||
S22LSITE # GET LAT/LONG/ALT FROM RLS
|
S22LSITE # GET LAT/LONG/ALT FROM RLS
|
||||||
DE-GR-50 TC 2PHSCHNG
|
DE-GR-50 TC 2PHSCHNG
|
||||||
OCT 00004
|
OCT 00004
|
||||||
@ -482,7 +482,7 @@ ENDR57 TC DOWNFLAG # RESET V59FLAG
|
|||||||
TC NOVAC # THIS JOB CLEARS BIT IN
|
TC NOVAC # THIS JOB CLEARS BIT IN
|
||||||
EBANK= MARKSTAT
|
EBANK= MARKSTAT
|
||||||
2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER
|
2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
GOTO
|
GOTO
|
||||||
EGRESS
|
EGRESS
|
||||||
@ -542,9 +542,9 @@ V51NB VN 5100
|
|||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
SETLOC RENDEZ
|
SETLOC RENDEZ
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/R21
|
COUNT* $$/R21
|
||||||
|
|
||||||
R21CSM TC UPFLAG # SET R21MARK
|
R21CSM TC UPFLAG # SET R21MARK
|
||||||
ADRES R21MARK # BIT 14 FLAG 2
|
ADRES R21MARK # BIT 14 FLAG 2
|
||||||
R23CSM CA NEGONE
|
R23CSM CA NEGONE
|
||||||
@ -587,7 +587,7 @@ R21C1 CAF V51NB
|
|||||||
TC R21END # V34: TERMINATE R21
|
TC R21END # V34: TERMINATE R21
|
||||||
TCF R21CSMA # PROCEED: END R21
|
TCF R21CSMA # PROCEED: END R21
|
||||||
TCF R21C1 # RECYCLE
|
TCF R21C1 # RECYCLE
|
||||||
|
|
||||||
R21CSMA CA MRKBUF1 # IF -1 NO MARK
|
R21CSMA CA MRKBUF1 # IF -1 NO MARK
|
||||||
AD ONE
|
AD ONE
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -653,7 +653,7 @@ V0694 VN 0694
|
|||||||
|
|
||||||
EBANK= GENRET
|
EBANK= GENRET
|
||||||
COUNT* $$/R61 # ROUTINES -- NAVIGATION -- PREF. TR. 9TT=
|
COUNT* $$/R61 # ROUTINES -- NAVIGATION -- PREF. TR. 9TT=
|
||||||
|
|
||||||
R61CSM CAF EBANK6 # SWITCH TO EBANK 6
|
R61CSM CAF EBANK6 # SWITCH TO EBANK 6
|
||||||
XCH EBANK
|
XCH EBANK
|
||||||
TS SAVBNK # SAVE EBANK
|
TS SAVBNK # SAVE EBANK
|
||||||
@ -677,7 +677,7 @@ R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
|
|||||||
# Page 575
|
# Page 575
|
||||||
CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
|
CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
|
||||||
TS R61CNTR
|
TS R61CNTR
|
||||||
|
|
||||||
TC UPFLAG # SET FLAG FOR PRIORITY DISPLAYS FOR R60
|
TC UPFLAG # SET FLAG FOR PRIORITY DISPLAYS FOR R60
|
||||||
ADRES PDSPFLAG # BIT 12 FLAG 4
|
ADRES PDSPFLAG # BIT 12 FLAG 4
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -701,7 +701,7 @@ DECRM61 TS R61CNTR
|
|||||||
BANK 13
|
BANK 13
|
||||||
SETLOC P20S2
|
SETLOC P20S2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
# Page 576
|
# Page 576
|
||||||
# BVECTOR PERFORMS COMPUTATIONS FOR
|
# BVECTOR PERFORMS COMPUTATIONS FOR
|
||||||
@ -737,7 +737,7 @@ DECRM61 TS R61CNTR
|
|||||||
# L+1 OF CALLING SEQUENCE
|
# L+1 OF CALLING SEQUENCE
|
||||||
|
|
||||||
COUNT 23/20SUB
|
COUNT 23/20SUB
|
||||||
|
|
||||||
BVECTORS STQ
|
BVECTORS STQ
|
||||||
EGRESS
|
EGRESS
|
||||||
VLOAD UNIT
|
VLOAD UNIT
|
||||||
@ -798,7 +798,7 @@ PI/4.0 2DEC .785398164
|
|||||||
# NORMAL EXIT
|
# NORMAL EXIT
|
||||||
#
|
#
|
||||||
# L+1 OF CALLING SEQUENCE
|
# L+1 OF CALLING SEQUENCE
|
||||||
|
|
||||||
GETUM STQ SETPD
|
GETUM STQ SETPD
|
||||||
EGRESS
|
EGRESS
|
||||||
0
|
0
|
||||||
@ -815,13 +815,13 @@ GETUM STQ SETPD
|
|||||||
S1 # S1 = MARKDATA(ADR) +2
|
S1 # S1 = MARKDATA(ADR) +2
|
||||||
CALL
|
CALL
|
||||||
SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR.
|
SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR.
|
||||||
CALL
|
CALL
|
||||||
NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM.
|
NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM.
|
||||||
VXM VSL1
|
VXM VSL1
|
||||||
REFSMMAT
|
REFSMMAT
|
||||||
GOTO # MPAC = (UM) LINE OF SIGHT VECTOR
|
GOTO # MPAC = (UM) LINE OF SIGHT VECTOR
|
||||||
EGRESS # EXIT
|
EGRESS # EXIT
|
||||||
|
|
||||||
# Page 579
|
# Page 579
|
||||||
# RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
|
# RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
|
||||||
#
|
#
|
||||||
@ -835,9 +835,9 @@ GETUM STQ SETPD
|
|||||||
BANK 34
|
BANK 34
|
||||||
SETLOC P20S3
|
SETLOC P20S3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 34/R22
|
COUNT 34/R22
|
||||||
|
|
||||||
R22 CAF PRIO26
|
R22 CAF PRIO26
|
||||||
TS PHSPRDT2
|
TS PHSPRDT2
|
||||||
TC PRIOCHNG
|
TC PRIOCHNG
|
||||||
@ -849,7 +849,7 @@ R22 CAF PRIO26
|
|||||||
STORE VHFTIME # PRESENT TIME
|
STORE VHFTIME # PRESENT TIME
|
||||||
REND1 CALL
|
REND1 CALL
|
||||||
GRP2PC
|
GRP2PC
|
||||||
CALL
|
CALL
|
||||||
WAITONE
|
WAITONE
|
||||||
REND1A EXIT
|
REND1A EXIT
|
||||||
CA MRKBUF2
|
CA MRKBUF2
|
||||||
@ -876,7 +876,7 @@ REND3A TC INTPRET
|
|||||||
REND3 CALL
|
REND3 CALL
|
||||||
# Page 580
|
# Page 580
|
||||||
GRP2PC
|
GRP2PC
|
||||||
CALL
|
CALL
|
||||||
WAITONE
|
WAITONE
|
||||||
BOFF
|
BOFF
|
||||||
VHFRFLAG
|
VHFRFLAG
|
||||||
@ -1140,7 +1140,7 @@ RENDISP EXIT
|
|||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MRKBUF1 # THAN PRESENT JOB
|
EBANK= MRKBUF1 # THAN PRESENT JOB
|
||||||
2CADR RENDISP2
|
2CADR RENDISP2
|
||||||
|
|
||||||
RENDISP7 TC INTPRET
|
RENDISP7 TC INTPRET
|
||||||
STORE MPAC
|
STORE MPAC
|
||||||
SLOAD BZE
|
SLOAD BZE
|
||||||
@ -1282,11 +1282,11 @@ CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV. FROM .01 NM TO M
|
|||||||
|
|
||||||
VHFREAD EXTEND
|
VHFREAD EXTEND
|
||||||
ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
|
ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
|
||||||
# Page 588
|
# Page 588
|
||||||
TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND
|
TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND
|
||||||
CS ZERO
|
CS ZERO
|
||||||
TS RUPTAGN
|
TS RUPTAGN
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
CS STATE +2
|
CS STATE +2
|
||||||
MASK SKIPVBIT # SKIPVHF FLAG
|
MASK SKIPVBIT # SKIPVHF FLAG
|
||||||
@ -1312,7 +1312,7 @@ BYPASS TS VHFRANGE # STORE NON ZERO VALUE
|
|||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR BADEND
|
CADR BADEND
|
||||||
BYPASS1 CAF ZERO
|
BYPASS1 CAF ZERO
|
||||||
TC BYPASS
|
TC BYPASS
|
||||||
VHFGOOD CAF TWO
|
VHFGOOD CAF TWO
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR GOODEND
|
CADR GOODEND
|
||||||
@ -1333,7 +1333,7 @@ SHIFTA BON RVQ
|
|||||||
INITIALW AXT,1 SSP
|
INITIALW AXT,1 SSP
|
||||||
36D
|
36D
|
||||||
S1
|
S1
|
||||||
# Page 589
|
# Page 589
|
||||||
6
|
6
|
||||||
VLOAD
|
VLOAD
|
||||||
ZEROVECS
|
ZEROVECS
|
||||||
@ -1362,7 +1362,7 @@ INITB STORE W +90D,1 # CLEAR 54 - 89
|
|||||||
# AND TO COMPUTE THE X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
|
# AND TO COMPUTE THE X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
|
||||||
# COAS TRACKING OF THE LM.
|
# COAS TRACKING OF THE LM.
|
||||||
#
|
#
|
||||||
# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
|
# TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE
|
||||||
# MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
# MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
||||||
# GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
# GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
|
||||||
# GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
|
# GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
|
||||||
@ -1510,23 +1510,23 @@ INITB STORE W +90D,1 # CLEAR 54 - 89
|
|||||||
BANK 24
|
BANK 24
|
||||||
SETLOC P20S4
|
SETLOC P20S4
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= CDUXD
|
EBANK= CDUXD
|
||||||
COUNT* $/CRS61
|
COUNT* $/CRS61
|
||||||
|
|
||||||
CRS61.1 STQ SETPD
|
CRS61.1 STQ SETPD
|
||||||
Q611
|
Q611
|
||||||
0
|
0
|
||||||
RTB
|
RTB
|
||||||
# Page 593
|
# Page 593
|
||||||
LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
|
LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
|
||||||
|
|
||||||
STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63
|
STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63
|
||||||
R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1)
|
R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1)
|
||||||
TLOAD
|
TLOAD
|
||||||
THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
|
THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
|
||||||
STORE SAVEDCDU
|
STORE SAVEDCDU
|
||||||
|
|
||||||
EXIT
|
EXIT
|
||||||
TC STEP2CK
|
TC STEP2CK
|
||||||
AUTOCK CAF PRIO30
|
AUTOCK CAF PRIO30
|
||||||
@ -1536,7 +1536,7 @@ AUTOCK CAF PRIO30
|
|||||||
EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
|
EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
|
||||||
BZF DAPCK # YES -- CONTINUE.
|
BZF DAPCK # YES -- CONTINUE.
|
||||||
TC ASET
|
TC ASET
|
||||||
|
|
||||||
DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E., IS SOMEONE ON RHC)
|
DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E., IS SOMEONE ON RHC)
|
||||||
MASK STIKBIT
|
MASK STIKBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -1546,10 +1546,10 @@ ASET CAF ZERO
|
|||||||
TC INTPRET # EXIT CRS61.1
|
TC INTPRET # EXIT CRS61.1
|
||||||
GOTO
|
GOTO
|
||||||
Q611
|
Q611
|
||||||
|
|
||||||
STEP2CK TC BANKCALL
|
STEP2CK TC BANKCALL
|
||||||
CADR UPACTOFF
|
CADR UPACTOFF
|
||||||
|
|
||||||
CAF TWO # SET TEMPORARY INDEX DTHETASM = 2
|
CAF TWO # SET TEMPORARY INDEX DTHETASM = 2
|
||||||
CDULOOP TS DTHETASM
|
CDULOOP TS DTHETASM
|
||||||
INDEX DTHETASM
|
INDEX DTHETASM
|
||||||
@ -1575,7 +1575,7 @@ STKTEST EXIT
|
|||||||
CAF BIT3
|
CAF BIT3
|
||||||
EXTEND # STIKFLG IS SET
|
EXTEND # STIKFLG IS SET
|
||||||
WOR DSALMOUT # TURN ON UPACTY LIGHT
|
WOR DSALMOUT # TURN ON UPACTY LIGHT
|
||||||
|
|
||||||
TC ASET # EXIT AND SET R61CNTR
|
TC ASET # EXIT AND SET R61CNTR
|
||||||
STEP3CK TC INTPRET
|
STEP3CK TC INTPRET
|
||||||
SETPD
|
SETPD
|
||||||
@ -1594,11 +1594,11 @@ CRS61.2 VLOAD VSU
|
|||||||
P21TIME # P21TIME IS TEMP STORE FOR ABSLOS.
|
P21TIME # P21TIME IS TEMP STORE FOR ABSLOS.
|
||||||
X1
|
X1
|
||||||
PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
|
PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
|
||||||
|
|
||||||
DLOAD NORM
|
DLOAD NORM
|
||||||
36D # NORM ABS VALUE OF DV(NUM).
|
36D # NORM ABS VALUE OF DV(NUM).
|
||||||
S1
|
S1
|
||||||
|
|
||||||
XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
|
XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
|
||||||
S1 # SR1 TO AVOID OFLOW ON DOV.
|
S1 # SR1 TO AVOID OFLOW ON DOV.
|
||||||
DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
|
DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
|
||||||
@ -1627,7 +1627,7 @@ CRS61.2 VLOAD VSU
|
|||||||
DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
|
DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
|
||||||
0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
|
0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
|
||||||
STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
|
STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
|
||||||
|
|
||||||
CALL # COMPUTES SINES AND COSINES FOR *SMNB*
|
CALL # COMPUTES SINES AND COSINES FOR *SMNB*
|
||||||
CDUTRIG
|
CDUTRIG
|
||||||
VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
|
VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
|
||||||
@ -1640,7 +1640,7 @@ CRS61.2 VLOAD VSU
|
|||||||
LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ.
|
LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ.
|
||||||
Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
|
Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
|
||||||
0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES.
|
0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES.
|
||||||
|
|
||||||
CRS61.2A EXIT
|
CRS61.2A EXIT
|
||||||
INHINT
|
INHINT
|
||||||
CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES
|
CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES
|
||||||
@ -1653,7 +1653,7 @@ CRS61.2A EXIT
|
|||||||
TS CDUYD
|
TS CDUYD
|
||||||
CA SAVEDCDU +2
|
CA SAVEDCDU +2
|
||||||
TS CDUZD
|
TS CDUZD
|
||||||
|
|
||||||
EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE)
|
EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE)
|
||||||
DCA MPAC # FROM V(MPAC) TO V(WBODY)
|
DCA MPAC # FROM V(MPAC) TO V(WBODY)
|
||||||
DXCH WBODY
|
DXCH WBODY
|
||||||
@ -1663,7 +1663,7 @@ CRS61.2A EXIT
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA MPAC +5
|
DCA MPAC +5
|
||||||
DXCH WBODY2
|
DXCH WBODY2
|
||||||
|
|
||||||
EXTEND # TRANSFER CDU INCREMENTS
|
EXTEND # TRANSFER CDU INCREMENTS
|
||||||
INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX)
|
INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX)
|
||||||
DCA 14D
|
DCA 14D
|
||||||
@ -1671,7 +1671,7 @@ CRS61.2A EXIT
|
|||||||
EXTEND
|
EXTEND
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
DCA 16D
|
DCA 16D
|
||||||
# Page 596
|
# Page 596
|
||||||
DXCH DELCDUY
|
DXCH DELCDUY
|
||||||
EXTEND
|
EXTEND
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
@ -1688,7 +1688,7 @@ MANUEXIT TLOAD # ENTER FROM STEP2. ACDU-DCDU EXCEEDS
|
|||||||
SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1)
|
SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1)
|
||||||
LOONE # OCTAL 00001
|
LOONE # OCTAL 00001
|
||||||
Q611
|
Q611
|
||||||
|
|
||||||
R63 STQ DLOAD # SUBR TO CALC DCDUS(T)
|
R63 STQ DLOAD # SUBR TO CALC DCDUS(T)
|
||||||
Q6111
|
Q6111
|
||||||
P21TIME
|
P21TIME
|
||||||
@ -1741,9 +1741,9 @@ CRSTOR1 VLOAD
|
|||||||
PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR
|
PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR
|
||||||
|
|
||||||
2DEC 0.0 # FOR USE WITH VECPOINT
|
2DEC 0.0 # FOR USE WITH VECPOINT
|
||||||
|
|
||||||
2DEC .28678822
|
2DEC .28678822
|
||||||
|
|
||||||
DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2
|
DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2
|
||||||
RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
|
RVCS/RDS 2DEC 15.915494 B-4 # 100/2PI REV-CSEC/RAD-SEC.
|
||||||
|
|
||||||
@ -1754,21 +1754,21 @@ MAT1B1 2DEC 1.0 B-1
|
|||||||
MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
|
MBDYTCTL 2DEC .5 # 7.25 DEG NEGATIVE
|
||||||
|
|
||||||
2DEC 0 # X-AXIS ROTATION MATRIX
|
2DEC 0 # X-AXIS ROTATION MATRIX
|
||||||
|
|
||||||
2DEC 0 # CONVERTS BODY TO CTL
|
2DEC 0 # CONVERTS BODY TO CTL
|
||||||
|
|
||||||
2DEC 0 # AXES. CAME AS QUADROT
|
2DEC 0 # AXES. CAME AS QUADROT
|
||||||
|
|
||||||
2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B
|
2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B
|
||||||
|
|
||||||
2DEC -.12619897 B-1 # -SIN7.25 B1
|
2DEC -.12619897 B-1 # -SIN7.25 B1
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC .12619897 B-1 # SIN7.25 B1
|
2DEC .12619897 B-1 # SIN7.25 B1
|
||||||
|
|
||||||
2DEC .99200495 B-1 # COS7.25 B1
|
2DEC .99200495 B-1 # COS7.25 B1
|
||||||
|
|
||||||
LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
|
LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
|
||||||
FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
|
FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
|
||||||
|
|
||||||
@ -1807,13 +1807,13 @@ FURST3 EQUALS 13,14,15 # CONSTANT FOR AUTOCK (OCT 70000).
|
|||||||
# TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
|
# TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
|
||||||
|
|
||||||
BANK 13
|
BANK 13
|
||||||
|
|
||||||
SETLOC P20S6
|
SETLOC P20S6
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= LANDMARK
|
EBANK= LANDMARK
|
||||||
COUNT 35/LUORB
|
COUNT 35/LUORB
|
||||||
|
|
||||||
S22.1 STQ SSP
|
S22.1 STQ SSP
|
||||||
S22RTNEX
|
S22RTNEX
|
||||||
S1
|
S1
|
||||||
@ -1853,7 +1853,7 @@ S22SHIFT SXA,1 SETPD
|
|||||||
0D
|
0D
|
||||||
FIG2EXIT CALL
|
FIG2EXIT CALL
|
||||||
INTSTALL
|
INTSTALL
|
||||||
CALL
|
CALL
|
||||||
S22FLGS
|
S22FLGS
|
||||||
# FLOWCHART D=0 THEN DIM0FLAG=0, D6O9FLG NOT TESTED
|
# FLOWCHART D=0 THEN DIM0FLAG=0, D6O9FLG NOT TESTED
|
||||||
# FLOWCHART D=6 THEN DIM0FLAG=1, D60R9FLG=0
|
# FLOWCHART D=6 THEN DIM0FLAG=1, D60R9FLG=0
|
||||||
@ -1912,7 +1912,7 @@ DMPINTEG SLOAD PUSH # TEST OFF=I
|
|||||||
S22D=9
|
S22D=9
|
||||||
CALL
|
CALL
|
||||||
GRP2PC
|
GRP2PC
|
||||||
SET
|
SET
|
||||||
ORBWFLAG
|
ORBWFLAG
|
||||||
SET SET
|
SET SET
|
||||||
DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
|
DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
|
||||||
@ -2062,7 +2062,7 @@ S22W78X DLOAD DSQ
|
|||||||
PDDL DSQ
|
PDDL DSQ
|
||||||
W +144D # W72
|
W +144D # W72
|
||||||
DAD
|
DAD
|
||||||
BDSU BMN
|
BDSU BMN
|
||||||
S22UUT # E0
|
S22UUT # E0
|
||||||
S22SCLW
|
S22SCLW
|
||||||
SQRT
|
SQRT
|
||||||
@ -2231,7 +2231,7 @@ CLRW678 STORE W +162D,1
|
|||||||
S22WSUBL
|
S22WSUBL
|
||||||
STORE W +144D
|
STORE W +144D
|
||||||
STORE W +152D
|
STORE W +152D
|
||||||
# Page 607
|
# Page 607
|
||||||
STORE W +160D
|
STORE W +160D
|
||||||
CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV
|
CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV
|
||||||
LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
|
LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
|
||||||
@ -2324,7 +2324,7 @@ S22.981X TC INTPRET
|
|||||||
S22EXEX TC INTPRET # WITHOUT CONVERTING W
|
S22EXEX TC INTPRET # WITHOUT CONVERTING W
|
||||||
GOTO
|
GOTO
|
||||||
S22RTNEX
|
S22RTNEX
|
||||||
|
|
||||||
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
|
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
|
||||||
CALL
|
CALL
|
||||||
9DWTO6DW
|
9DWTO6DW
|
||||||
@ -2333,7 +2333,7 @@ S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
|
|||||||
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
|
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
|
||||||
0D
|
0D
|
||||||
CSMPOS # RC B-29 EARTH, B-27 MOON
|
CSMPOS # RC B-29 EARTH, B-27 MOON
|
||||||
# Page 609
|
# Page 609
|
||||||
UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
|
UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
|
||||||
UM
|
UM
|
||||||
SL1 DCOMP # GSOP CHANGE 8/18/67
|
SL1 DCOMP # GSOP CHANGE 8/18/67
|
||||||
@ -2352,7 +2352,7 @@ S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
|
|||||||
DMP # DMP RESULT B-28 MOON, B-30 EARTH
|
DMP # DMP RESULT B-28 MOON, B-30 EARTH
|
||||||
36D # VXSC RESULT B-29 MOON, B-31 EARTH
|
36D # VXSC RESULT B-29 MOON, B-31 EARTH
|
||||||
STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
|
STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
|
||||||
VXSC
|
VXSC
|
||||||
UM
|
UM
|
||||||
VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC
|
VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC
|
||||||
CSMPOS
|
CSMPOS
|
||||||
@ -2368,7 +2368,7 @@ S22CALRC LXA,1 VLOAD # COMPUTE RC B-29 OR B-27
|
|||||||
RVQ
|
RVQ
|
||||||
SETLOC P22S
|
SETLOC P22S
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
|
S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
|
||||||
SSP AXT,2 # S22UMRL - S22UMRL+17D
|
SSP AXT,2 # S22UMRL - S22UMRL+17D
|
||||||
S2
|
S2
|
||||||
@ -2384,7 +2384,7 @@ S2231NXT VLOAD VXSC*
|
|||||||
DEC -6
|
DEC -6
|
||||||
S2231NXT
|
S2231NXT
|
||||||
RVQ
|
RVQ
|
||||||
# Page 610
|
# Page 610
|
||||||
GETTF LXC,1 DLOAD* # SET MPAC= TF
|
GETTF LXC,1 DLOAD* # SET MPAC= TF
|
||||||
S22LOC
|
S22LOC
|
||||||
0,1
|
0,1
|
||||||
@ -2397,7 +2397,7 @@ S22FLGS SET SET # INTEGRATION FLAGS
|
|||||||
STATEFLG
|
STATEFLG
|
||||||
CLEAR RVQ
|
CLEAR RVQ
|
||||||
INTYPFLG
|
INTYPFLG
|
||||||
|
|
||||||
# SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
|
# SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
|
||||||
# PRIOR TO DISPLAY.
|
# PRIOR TO DISPLAY.
|
||||||
|
|
||||||
@ -2421,7 +2421,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
|
|||||||
RVQ
|
RVQ
|
||||||
SETLOC P20S6
|
SETLOC P20S6
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
9DWTO6DW STQ SETPD
|
9DWTO6DW STQ SETPD
|
||||||
9DWXX
|
9DWXX
|
||||||
0D
|
0D
|
||||||
@ -2486,7 +2486,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
|
|||||||
6
|
6
|
||||||
CLEARW54 STORE W +108D,1
|
CLEARW54 STORE W +108D,1
|
||||||
TIX,1
|
TIX,1
|
||||||
# Page 612
|
# Page 612
|
||||||
CLEARW54
|
CLEARW54
|
||||||
9DWI=JA LXA,1 SXA,1 # I=J
|
9DWI=JA LXA,1 SXA,1 # I=J
|
||||||
9DWJ
|
9DWJ
|
||||||
@ -2537,7 +2537,7 @@ TST2I=0 SLOAD BHIZ # TEST I=0
|
|||||||
2
|
2
|
||||||
SXA,1 LXC,1
|
SXA,1 LXC,1
|
||||||
9DWP
|
9DWP
|
||||||
# Page 613
|
# Page 613
|
||||||
9DWI
|
9DWI
|
||||||
XSU,1 BOV # -(I+N)
|
XSU,1 BOV # -(I+N)
|
||||||
9DWN
|
9DWN
|
||||||
@ -2588,7 +2588,7 @@ ROWDOT SSP BOV
|
|||||||
9DWJ
|
9DWJ
|
||||||
DLOAD PUSH
|
DLOAD PUSH
|
||||||
HI6ZEROS
|
HI6ZEROS
|
||||||
# Page 614
|
# Page 614
|
||||||
ROWDOT1 DLOAD* DMPR*
|
ROWDOT1 DLOAD* DMPR*
|
||||||
W,1
|
W,1
|
||||||
W,2
|
W,2
|
||||||
@ -2669,7 +2669,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
|
|||||||
# 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
|
# 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
|
||||||
#
|
#
|
||||||
# R63COMP JOB:
|
# R63COMP JOB:
|
||||||
#
|
#
|
||||||
# UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
|
# UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
|
||||||
#
|
#
|
||||||
# CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
|
# CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
|
||||||
@ -2703,7 +2703,7 @@ DP1MIN 2DEC 6000
|
|||||||
SETLOC P20S4
|
SETLOC P20S4
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R63
|
COUNT* $$/R63
|
||||||
|
|
||||||
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 DESIRED
|
CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
|
||||||
@ -2742,11 +2742,11 @@ V89RECL TC INTPRET
|
|||||||
TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
|
TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
|
||||||
CADR R60CSM # SPACECRAFT AXIS TO LOS.
|
CADR R60CSM # SPACECRAFT AXIS TO LOS.
|
||||||
TCF ENDEXT
|
TCF ENDEXT
|
||||||
|
|
||||||
SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP
|
SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP
|
||||||
ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5.
|
ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5.
|
||||||
TC V89RECL
|
TC V89RECL
|
||||||
|
|
||||||
VB04N06 VN 0406
|
VB04N06 VN 0406
|
||||||
VB06N18 VN 0618
|
VB06N18 VN 0618
|
||||||
|
|
||||||
@ -2757,7 +2757,7 @@ R63COMP EQUALS R63
|
|||||||
# MOD NO:
|
# MOD NO:
|
||||||
# MOD BY: TOM KNATT
|
# MOD BY: TOM KNATT
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF
|
# FUNCTIONAL DESCRIPTION: DO MIDCOURSE NAVIGATION BY INCORPORATION OF
|
||||||
# STAR/EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
|
# STAR/EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE: ASTRONAUT OPERATED
|
# CALLING SEQUENCE: ASTRONAUT OPERATED
|
||||||
@ -2775,7 +2775,7 @@ R63COMP EQUALS R63
|
|||||||
# REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ONE
|
# REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ONE
|
||||||
#
|
#
|
||||||
# INPUTS BY USER REQUIRED: STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
|
# INPUTS BY USER REQUIRED: STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
|
||||||
# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND
|
# IF LANDMARK IS USED, NEAR OR FAR HORIzON IF HORIZON IS USED, AND
|
||||||
# BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4.
|
# BODY TO BE MARKED ON (EARTH OR MOON). SEE GSOP CHAPT 4.
|
||||||
#
|
#
|
||||||
# OUTPUT: UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
|
# OUTPUT: UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
|
||||||
@ -2792,7 +2792,7 @@ R63COMP EQUALS R63
|
|||||||
EBANK= W
|
EBANK= W
|
||||||
P23 TC DOWNFLAG
|
P23 TC DOWNFLAG
|
||||||
ADRES RNDVZFLG
|
ADRES RNDVZFLG
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 00004 # LEAVE GROUP 4
|
OCT 00004 # LEAVE GROUP 4
|
||||||
OCT 00012 # ENTER GROUP 2
|
OCT 00012 # ENTER GROUP 2
|
||||||
@ -2853,7 +2853,7 @@ P23.152 MASK BITS7-9 # IS C EQUAL TO 1 OR 2
|
|||||||
TC R23.10
|
TC R23.10
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES LUNAFLAG
|
ADRES LUNAFLAG
|
||||||
TCF +3
|
TCF +3
|
||||||
P23.16 TC DOWNFLAG
|
P23.16 TC DOWNFLAG
|
||||||
ADRES LUNAFLAG
|
ADRES LUNAFLAG
|
||||||
CA STARCODE # IS STARCODE GREATER THAN OR
|
CA STARCODE # IS STARCODE GREATER THAN OR
|
||||||
@ -2865,8 +2865,8 @@ P23.16 TC DOWNFLAG
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF +2
|
BZMF +2
|
||||||
TC R23.10
|
TC R23.10
|
||||||
# Page 621
|
# Page 621
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
P23.17 SLOAD BZE
|
P23.17 SLOAD BZE
|
||||||
STARCODE
|
STARCODE
|
||||||
@ -2917,7 +2917,7 @@ P23.31 BON EXIT
|
|||||||
P23.55 TC INTPRET
|
P23.55 TC INTPRET
|
||||||
GOTO
|
GOTO
|
||||||
P23.56
|
P23.56
|
||||||
# Page 622
|
# Page 622
|
||||||
|
|
||||||
# VERB 94 BEGINS HERE
|
# VERB 94 BEGINS HERE
|
||||||
V94ENTER TC INTPRET
|
V94ENTER TC INTPRET
|
||||||
@ -2996,7 +2996,7 @@ P23.85 CLEAR CALL
|
|||||||
# WE BEGIN CALCULATIONS HERE
|
# WE BEGIN CALCULATIONS HERE
|
||||||
# POINTAXIS SUBROUTINE
|
# POINTAXIS SUBROUTINE
|
||||||
|
|
||||||
POINTAXS STQ
|
POINTAXS STQ
|
||||||
POINTEX
|
POINTEX
|
||||||
R23.05 BON DLOAD
|
R23.05 BON DLOAD
|
||||||
ORBWFLAG
|
ORBWFLAG
|
||||||
@ -3019,10 +3019,10 @@ R23.2 SET CALL
|
|||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
RECT.1 # PICKUP CSM STATE VECTOR FROM PERM
|
RECT.1 # PICKUP CSM STATE VECTOR FROM PERM
|
||||||
BOFF
|
BOFF
|
||||||
ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
|
ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
|
||||||
R23.3
|
R23.3
|
||||||
# Page 624
|
# Page 624
|
||||||
DLOAD CALL
|
DLOAD CALL
|
||||||
MARKTIME
|
MARKTIME
|
||||||
LUNPOS
|
LUNPOS
|
||||||
@ -3030,7 +3030,7 @@ R23.2 SET CALL
|
|||||||
CMOONFLG
|
CMOONFLG
|
||||||
+1
|
+1
|
||||||
VAD
|
VAD
|
||||||
RZC
|
RZC
|
||||||
STORE RZC
|
STORE RZC
|
||||||
R23.3 SLOAD BHIZ
|
R23.3 SLOAD BHIZ
|
||||||
LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
|
LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
|
||||||
@ -3202,7 +3202,7 @@ HORIZ.1 VLOAD MXV
|
|||||||
MPAC
|
MPAC
|
||||||
STODL 30D
|
STODL 30D
|
||||||
0
|
0
|
||||||
# Page 628
|
# Page 628
|
||||||
STODL 34D
|
STODL 34D
|
||||||
6 # YH
|
6 # YH
|
||||||
CALL
|
CALL
|
||||||
@ -3245,7 +3245,7 @@ HORIZ.1 VLOAD MXV
|
|||||||
28D # SQRT(A-1)/A
|
28D # SQRT(A-1)/A
|
||||||
DMP SL1
|
DMP SL1
|
||||||
6 # YH
|
6 # YH
|
||||||
PDDL
|
PDDL
|
||||||
2 # AH
|
2 # AH
|
||||||
STODL 34D
|
STODL 34D
|
||||||
0
|
0
|
||||||
@ -3268,7 +3268,7 @@ HORIZ.1 VLOAD MXV
|
|||||||
DLOAD DSU
|
DLOAD DSU
|
||||||
20D # XH/A
|
20D # XH/A
|
||||||
24D # ALPHA
|
24D # ALPHA
|
||||||
PDDL DAD
|
PDDL DAD
|
||||||
22D # YH/A
|
22D # YH/A
|
||||||
26D # BETA
|
26D # BETA
|
||||||
PDDL PUSH
|
PDDL PUSH
|
||||||
@ -3375,9 +3375,9 @@ SPSIX OCT 00006
|
|||||||
JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS
|
JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC .4215878460 # 1/2(COS 32.523 DEG)
|
2DEC .4215878460 # 1/2(COS 32.523 DEG)
|
||||||
|
|
||||||
R60ADRS CADR R60CALL +3
|
R60ADRS CADR R60CALL +3
|
||||||
NEG37 DEC -37
|
NEG37 DEC -37
|
||||||
BITS7-9 OCT 700
|
BITS7-9 OCT 700
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 635-648
|
# Pages: 635-648
|
||||||
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
# 2009-05-20 RSB Corrected BDV -> BOV.
|
# 2009-05-20 RSB Corrected BDV -> BOV.
|
||||||
#
|
#
|
||||||
@ -18,32 +18,32 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
|
|
||||||
# Page 635
|
# Page 635
|
||||||
BANK 32
|
BANK 32
|
||||||
|
|
||||||
SETLOC P30S1
|
SETLOC P30S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= +MGA
|
EBANK= +MGA
|
||||||
|
|
||||||
COUNT 35/P34
|
COUNT 35/P34
|
||||||
|
|
||||||
DISPMGA STQ EXIT # USED IN P30
|
DISPMGA STQ EXIT # USED IN P30
|
||||||
|
|
||||||
RGEXIT
|
RGEXIT
|
||||||
TC COMPTGO
|
TC COMPTGO
|
||||||
|
|
||||||
DISP45 CAF V16N45
|
DISP45 CAF V16N45
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASHR
|
CADR GOFLASHR
|
||||||
@ -57,15 +57,15 @@ END45 TC INTPRET
|
|||||||
CLEAR GOTO
|
CLEAR GOTO
|
||||||
TIMRFLAG
|
TIMRFLAG
|
||||||
RGEXIT
|
RGEXIT
|
||||||
|
|
||||||
COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
||||||
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE **
|
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE **
|
||||||
|
|
||||||
TC UPFLAG # SET TIMRFLAG
|
TC UPFLAG # SET TIMRFLAG
|
||||||
ADRES TIMRFLAG # BIT 11 FLAG 7
|
ADRES TIMRFLAG # BIT 11 FLAG 7
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS NVWORD1
|
TS NVWORD1
|
||||||
|
|
||||||
CAF ONE
|
CAF ONE
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= TIG
|
EBANK= TIG
|
||||||
@ -75,7 +75,7 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
|||||||
OCT 40036 # 6.3SPOT FOR CLOKTASK
|
OCT 40036 # 6.3SPOT FOR CLOKTASK
|
||||||
OCT 05024 # GROUP 4 CONTINUES HERE
|
OCT 05024 # GROUP 4 CONTINUES HERE
|
||||||
OCT 13000
|
OCT 13000
|
||||||
|
|
||||||
TC PHSPRDT6
|
TC PHSPRDT6
|
||||||
# Page 636
|
# Page 636
|
||||||
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
# PROGRAM DESCRIPTION P30 DATE 3-6-67
|
||||||
@ -115,13 +115,13 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
|
|||||||
# X
|
# X
|
||||||
|
|
||||||
COUNT 35/P30
|
COUNT 35/P30
|
||||||
|
|
||||||
P30 TC P30/P31
|
P30 TC P30/P31
|
||||||
TC CNTNUP30
|
TC CNTNUP30
|
||||||
TC DOWNFLAG # RESET UPDATFLG
|
TC DOWNFLAG # RESET UPDATFLG
|
||||||
ADRES UPDATFLG # BIT 7 FLAG 1
|
ADRES UPDATFLG # BIT 7 FLAG 1
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
S30.1
|
S30.1
|
||||||
EXIT
|
EXIT
|
||||||
TC PARAM30
|
TC PARAM30
|
||||||
@ -129,7 +129,7 @@ P30 TC P30/P31
|
|||||||
# Page 637
|
# Page 637
|
||||||
ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
|
ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
|
|
||||||
P31 TC P30/P31
|
P31 TC P30/P31
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
|
ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
|
||||||
@ -144,7 +144,7 @@ P31 TC P30/P31
|
|||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES XDELVFLG # BIT 8 FLAG 2.
|
ADRES XDELVFLG # BIT 8 FLAG 2.
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
|
|
||||||
P30/P31 XCH Q
|
P30/P31 XCH Q
|
||||||
TS P30/31RT
|
TS P30/31RT
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
@ -160,7 +160,7 @@ P30/P31 XCH Q
|
|||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00014
|
OCT 00014
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
CNTNUP30 XCH Q
|
CNTNUP30 XCH Q
|
||||||
TS P30/RET
|
TS P30/RET
|
||||||
CAF V06N81
|
CAF V06N81
|
||||||
@ -200,7 +200,7 @@ FLASHMGA CALL
|
|||||||
MARSDP OCT 00000 # (00000) (16440) = (+00001)
|
MARSDP OCT 00000 # (00000) (16440) = (+00001)
|
||||||
OCT 35100
|
OCT 35100
|
||||||
# ( .01 ) DEGREES IN THE LOW ORDER REGISTER
|
# ( .01 ) DEGREES IN THE LOW ORDER REGISTER
|
||||||
|
|
||||||
V06N33 VN 0633
|
V06N33 VN 0633
|
||||||
V06N42 VN 0642
|
V06N42 VN 0642
|
||||||
V16N35 VN 1635
|
V16N35 VN 1635
|
||||||
@ -251,15 +251,15 @@ V06N45 VN 0645
|
|||||||
|
|
||||||
SETLOC P30S1A
|
SETLOC P30S1A
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 35/S30S
|
COUNT 35/S30S
|
||||||
|
|
||||||
S30.1 STQ DLOAD
|
S30.1 STQ DLOAD
|
||||||
QTEMP
|
QTEMP
|
||||||
TIG # TIME IGNITION SCALED AT 2(+28)CS
|
TIG # TIME IGNITION SCALED AT 2(+28)CS
|
||||||
STCALL TDEC1
|
STCALL TDEC1
|
||||||
THISPREC # ENCKE ROUTINE FOR
|
THISPREC # ENCKE ROUTINE FOR
|
||||||
|
|
||||||
VLOAD SXA,2
|
VLOAD SXA,2
|
||||||
VATT
|
VATT
|
||||||
RTX2
|
RTX2
|
||||||
@ -282,19 +282,19 @@ S30.1 STQ DLOAD
|
|||||||
STOVL VGDISP # MAG DELV
|
STOVL VGDISP # MAG DELV
|
||||||
RTIG
|
RTIG
|
||||||
PDVL VAD
|
PDVL VAD
|
||||||
DELVSIN
|
DELVSIN
|
||||||
VTIG
|
VTIG
|
||||||
CALL
|
CALL
|
||||||
PERIAPO1
|
PERIAPO1
|
||||||
CALL
|
CALL
|
||||||
SHIFTR1
|
SHIFTR1
|
||||||
CALL
|
CALL
|
||||||
MAXCHK
|
MAXCHK
|
||||||
STODL HPER # PERIGEE ALT B+29
|
STODL HPER # PERIGEE ALT B+29
|
||||||
4D
|
4D
|
||||||
CALL
|
CALL
|
||||||
SHIFTR1
|
SHIFTR1
|
||||||
CALL
|
CALL
|
||||||
MAXCHK
|
MAXCHK
|
||||||
STCALL HAPO # APOGEE ALT B+29
|
STCALL HAPO # APOGEE ALT B+29
|
||||||
QTEMP
|
QTEMP
|
||||||
@ -338,7 +338,7 @@ S30.1 STQ DLOAD
|
|||||||
S31.1 STQ DLOAD
|
S31.1 STQ DLOAD
|
||||||
QTEMP
|
QTEMP
|
||||||
TIG
|
TIG
|
||||||
STCALL TDEC1
|
STCALL TDEC1
|
||||||
AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
|
AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
|
||||||
VLOAD PDVL # DELUEET3
|
VLOAD PDVL # DELUEET3
|
||||||
RTIG
|
RTIG
|
||||||
@ -354,7 +354,7 @@ S31.1 STQ DLOAD
|
|||||||
CALL
|
CALL
|
||||||
SHIFTR1
|
SHIFTR1
|
||||||
CALL
|
CALL
|
||||||
MAXCHK
|
MAXCHK
|
||||||
STOVL HAPO # B29
|
STOVL HAPO # B29
|
||||||
# Page 642
|
# Page 642
|
||||||
DELVEET3
|
DELVEET3
|
||||||
@ -405,7 +405,7 @@ S31.1 STQ DLOAD
|
|||||||
SETLOC DELRSPL1
|
SETLOC DELRSPL1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
|
COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
|
||||||
|
|
||||||
DELRSPL STORE 8D
|
DELRSPL STORE 8D
|
||||||
BPL DSU
|
BPL DSU
|
||||||
CANTDO # GONE PAST 300K FT ALT
|
CANTDO # GONE PAST 300K FT ALT
|
||||||
@ -457,7 +457,7 @@ CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
|
|||||||
PUSH # ZERO TO PDL 2 FOR PHI ENTRY
|
PUSH # ZERO TO PDL 2 FOR PHI ENTRY
|
||||||
STCALL 8D
|
STCALL 8D
|
||||||
GETARG # GO SET RSP-RREC =0
|
GETARG # GO SET RSP-RREC =0
|
||||||
|
|
||||||
AUGEKUGL VLOAD
|
AUGEKUGL VLOAD
|
||||||
X1CON -2
|
X1CON -2
|
||||||
STODL X1 -2
|
STODL X1 -2
|
||||||
@ -521,7 +521,7 @@ TENT DMP RVQ
|
|||||||
TGR26 DLOAD GOTO
|
TGR26 DLOAD GOTO
|
||||||
TGR26CON
|
TGR26CON
|
||||||
TENT
|
TENT
|
||||||
|
|
||||||
MAXPHI DLOAD PDDL
|
MAXPHI DLOAD PDDL
|
||||||
MAXPHIC
|
MAXPHIC
|
||||||
GOTO
|
GOTO
|
||||||
@ -531,31 +531,31 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
|
|||||||
# Page 646
|
# Page 646
|
||||||
|
|
||||||
COUNT* $$/P30
|
COUNT* $$/P30
|
||||||
|
|
||||||
# BELOW
|
# BELOW
|
||||||
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
||||||
2DEC 7.07304526 E-4 # 5500
|
2DEC 7.07304526 E-4 # 5500
|
||||||
|
|
||||||
2DEC 3.08641975 E-4 # 2400
|
2DEC 3.08641975 E-4 # 2400
|
||||||
|
|
||||||
2DEC 3.08641975 E-4 # 2400
|
2DEC 3.08641975 E-4 # 2400
|
||||||
|
|
||||||
2DEC -8.8888888 E-3 # -3.2
|
2DEC -8.8888888 E-3 # -3.2
|
||||||
|
|
||||||
2DEC 2.7777777 E-3 # 1
|
2DEC 2.7777777 E-3 # 1
|
||||||
|
|
||||||
CK1K2 2DEC 6.6666666 E-3 # 2.4
|
CK1K2 2DEC 6.6666666 E-3 # 2.4
|
||||||
|
|
||||||
2DEC 0 # 0
|
2DEC 0 # 0
|
||||||
|
|
||||||
2DEC* -1.86909989 E-5 B7* # -.443
|
2DEC* -1.86909989 E-5 B7* # -.443
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC* 1.11639691 E-3 B7* # .001225
|
2DEC* 1.11639691 E-3 B7* # .001225
|
||||||
|
|
||||||
2DEC* 9.56911636 E-4 B7* # .00105
|
2DEC* 9.56911636 E-4 B7* # .00105
|
||||||
|
|
||||||
YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
|
YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
|
||||||
|
|
||||||
V(400) 2DEC 1.2192 B-7
|
V(400) 2DEC 1.2192 B-7
|
||||||
@ -567,7 +567,7 @@ V(3K) 2DEC 9.144 B-7
|
|||||||
V(24K) 2DEC 73.152 B-7
|
V(24K) 2DEC 73.152 B-7
|
||||||
|
|
||||||
2DEC 85.344 B-7
|
2DEC 85.344 B-7
|
||||||
|
|
||||||
V(32K) 2DEC 97.536 B-7
|
V(32K) 2DEC 97.536 B-7
|
||||||
|
|
||||||
V(4K) 2DEC 12.192 B-7
|
V(4K) 2DEC 12.192 B-7
|
||||||
@ -585,7 +585,7 @@ V(26K) 2DEC 79.248 B-7 # 26000
|
|||||||
X1CON DEC 10
|
X1CON DEC 10
|
||||||
|
|
||||||
DEC 8
|
DEC 8
|
||||||
|
|
||||||
DEC 6
|
DEC 6
|
||||||
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
# **** TABLE IS INDEXED. KEEP IN ORDER ***
|
||||||
# ABOVE
|
# ABOVE
|
||||||
|
|||||||
@ -8,14 +8,14 @@
|
|||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 649-683
|
# Pages: 649-683
|
||||||
# Mod history: 2009-05-09 RSB Adapted from the Luminary131/ file
|
# Mod history: 2009-05-09 RSB Adapted from the Luminary131/ file
|
||||||
# P32-P35_P72-P75.agc and Comanche055 page
|
# P32-P35_P72-P75.agc and Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
# 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3,
|
# 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3,
|
||||||
# CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
|
# CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
|
||||||
# changed a SETLOC from CSI/CDH to CSI/CDH1,
|
# changed a SETLOC from CSI/CDH to CSI/CDH1,
|
||||||
# a SETLOC CSI/CDH1 to CSIPROG.
|
# a SETLOC CSI/CDH1 to CSIPROG.
|
||||||
# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in
|
# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in
|
||||||
# P32/P72D. DP1/4TH changed to DP1/4 in
|
# P32/P72D. DP1/4TH changed to DP1/4 in
|
||||||
# CDHMVR.
|
# CDHMVR.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -24,13 +24,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -450,7 +450,7 @@ P32/P72F STORE T2TOT3
|
|||||||
# VN1645
|
# VN1645
|
||||||
|
|
||||||
COUNT 35/P3373
|
COUNT 35/P3373
|
||||||
|
|
||||||
P33 TC AVFLAGA
|
P33 TC AVFLAGA
|
||||||
TC P33/P73A
|
TC P33/P73A
|
||||||
P73 TC AVFLAGP
|
P73 TC AVFLAGP
|
||||||
@ -497,7 +497,7 @@ P33/P73B CALL
|
|||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
# Page 659
|
# Page 659
|
||||||
TC +2
|
TC +2
|
||||||
TC P33/P73A
|
TC P33/P73A
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -521,7 +521,7 @@ P33/P73D DLOAD DAD
|
|||||||
P33/P73E
|
P33/P73E
|
||||||
SETLOC CSI/CDH1
|
SETLOC CSI/CDH1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
P33/P73E DSU BPL
|
P33/P73E DSU BPL
|
||||||
60MIN
|
60MIN
|
||||||
P33/P73E
|
P33/P73E
|
||||||
@ -611,7 +611,7 @@ V06N50 VN 0650
|
|||||||
BANK
|
BANK
|
||||||
EBANK= SUBEXIT
|
EBANK= SUBEXIT
|
||||||
COUNT 34/CSI
|
COUNT 34/CSI
|
||||||
|
|
||||||
60MIN 2DEC 360000
|
60MIN 2DEC 360000
|
||||||
|
|
||||||
ALARM/TB OCT 00600 # NO 1
|
ALARM/TB OCT 00600 # NO 1
|
||||||
@ -710,10 +710,10 @@ CSI/B1 DLOAD DAD # IF LOOPCT = 16
|
|||||||
BPL GOTO
|
BPL GOTO
|
||||||
SCNDSOL
|
SCNDSOL
|
||||||
CSI/B2
|
CSI/B2
|
||||||
|
|
||||||
SETLOC CSIPROG2
|
SETLOC CSIPROG2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSI/B2 SETPD
|
CSI/B2 SETPD
|
||||||
0D
|
0D
|
||||||
DLOAD ABS
|
DLOAD ABS
|
||||||
@ -737,17 +737,17 @@ CSI/B22 SET DLOAD
|
|||||||
DELVCSI
|
DELVCSI
|
||||||
STCALL DELVCSI
|
STCALL DELVCSI
|
||||||
CSI/B23
|
CSI/B23
|
||||||
|
|
||||||
SETLOC CSIPROG3
|
SETLOC CSIPROG3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSI/B23 VLOAD PUSH
|
CSI/B23 VLOAD PUSH
|
||||||
RACT1
|
RACT1
|
||||||
UNIT PDVL
|
UNIT PDVL
|
||||||
UP1
|
UP1
|
||||||
VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
|
VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
|
||||||
VXSC VSL1
|
VXSC VSL1
|
||||||
# Page 666
|
# Page 666
|
||||||
DELVCSI
|
DELVCSI
|
||||||
STORE DELVEET1
|
STORE DELVEET1
|
||||||
VAD BOV
|
VAD BOV
|
||||||
@ -798,7 +798,7 @@ CSI/B23D STCALL VACT4
|
|||||||
SL2 DSU
|
SL2 DSU
|
||||||
1RTEB2 # 1.B.2
|
1RTEB2 # 1.B.2
|
||||||
STODL 14D
|
STODL 14D
|
||||||
# Page 667
|
# Page 667
|
||||||
RTSR1/MU
|
RTSR1/MU
|
||||||
SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
|
SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
|
||||||
PDDL DMP
|
PDDL DMP
|
||||||
@ -837,19 +837,19 @@ CSI/B3 PDVL DOT
|
|||||||
SETGO
|
SETGO
|
||||||
RVSW
|
RVSW
|
||||||
CSINEXT
|
CSINEXT
|
||||||
|
|
||||||
SN359+ 2DEC -.000086601
|
SN359+ 2DEC -.000086601
|
||||||
|
|
||||||
CS359+ 2DEC +.499999992
|
CS359+ 2DEC +.499999992
|
||||||
|
|
||||||
SETLOC CSIPROG4
|
SETLOC CSIPROG4
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSINEXT STCALL RVEC
|
CSINEXT STCALL RVEC
|
||||||
TIMETHET
|
TIMETHET
|
||||||
PDDL BPL
|
PDDL BPL
|
||||||
RDOTV
|
RDOTV
|
||||||
# Page 668
|
# Page 668
|
||||||
NTP/2
|
NTP/2
|
||||||
DLOAD DSU
|
DLOAD DSU
|
||||||
HAFPA1
|
HAFPA1
|
||||||
@ -887,10 +887,10 @@ NTP/2 DLOAD DMP
|
|||||||
RPASS1
|
RPASS1
|
||||||
GOTO
|
GOTO
|
||||||
CSINEXT1
|
CSINEXT1
|
||||||
|
|
||||||
SETLOC CSIPROG5
|
SETLOC CSIPROG5
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSINEXT1 CALL
|
CSINEXT1 CALL
|
||||||
INTINT2C
|
INTINT2C
|
||||||
STOVL RPASS2
|
STOVL RPASS2
|
||||||
@ -900,7 +900,7 @@ CSINEXT1 CALL
|
|||||||
VLOAD SETPD
|
VLOAD SETPD
|
||||||
RACT2
|
RACT2
|
||||||
0D
|
0D
|
||||||
# Page 669
|
# Page 669
|
||||||
PDVL CALL
|
PDVL CALL
|
||||||
VACT3
|
VACT3
|
||||||
PERIAPO1
|
PERIAPO1
|
||||||
@ -935,10 +935,10 @@ CSINEXT1 CALL
|
|||||||
VXSC STADR # (COSLOS)(UH3) B2 PL08D
|
VXSC STADR # (COSLOS)(UH3) B2 PL08D
|
||||||
STCALL 18D # PLUS
|
STCALL 18D # PLUS
|
||||||
CSINEXT2
|
CSINEXT2
|
||||||
|
|
||||||
SETLOC CSIPROG6
|
SETLOC CSIPROG6
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
|
CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
|
||||||
VAD VSL1
|
VAD VSL1
|
||||||
18D # B1
|
18D # B1
|
||||||
@ -951,7 +951,7 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
|
|||||||
RACT3
|
RACT3
|
||||||
RACT3
|
RACT3
|
||||||
TLOAD DCOMP # RA3 . RA3
|
TLOAD DCOMP # RA3 . RA3
|
||||||
# Page 670
|
# Page 670
|
||||||
MPAC
|
MPAC
|
||||||
PDVL DOT # RP3 . RP3 B58 PL14D
|
PDVL DOT # RP3 . RP3 B58 PL14D
|
||||||
RPASS3
|
RPASS3
|
||||||
@ -988,10 +988,10 @@ K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
|
|||||||
12D
|
12D
|
||||||
STCALL 10D # K EQUALS K1
|
STCALL 10D # K EQUALS K1
|
||||||
K2.
|
K2.
|
||||||
|
|
||||||
SETLOC CSIPROG7
|
SETLOC CSIPROG7
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
K2. DLOAD
|
K2. DLOAD
|
||||||
10D
|
10D
|
||||||
VXSC VSL1
|
VXSC VSL1
|
||||||
@ -1002,7 +1002,7 @@ K2. DLOAD
|
|||||||
PDVL UNIT
|
PDVL UNIT
|
||||||
VPASS3 # PL12D
|
VPASS3 # PL12D
|
||||||
VXV PDVL # UVP3 X URP3 PL18D
|
VXV PDVL # UVP3 X URP3 PL18D
|
||||||
# Page 671
|
# Page 671
|
||||||
06D
|
06D
|
||||||
06D
|
06D
|
||||||
VXV DOT
|
VXV DOT
|
||||||
@ -1050,11 +1050,11 @@ FRSTPAS DLOAD
|
|||||||
DELVCSI
|
DELVCSI
|
||||||
STCALL DVPREV
|
STCALL DVPREV
|
||||||
CSINEXT3
|
CSINEXT3
|
||||||
|
|
||||||
SETLOC CSIPROG8
|
SETLOC CSIPROG8
|
||||||
BANK
|
BANK
|
||||||
# Page 672
|
# Page 672
|
||||||
|
|
||||||
CSINEXT3 DSU CLEAR
|
CSINEXT3 DSU CLEAR
|
||||||
DELDV
|
DELDV
|
||||||
S32.1F2
|
S32.1F2
|
||||||
@ -1116,10 +1116,10 @@ CSI/SOL DLOAD AXT,2
|
|||||||
LXA,1 GOTO
|
LXA,1 GOTO
|
||||||
RTX1
|
RTX1
|
||||||
CSINEXT4
|
CSINEXT4
|
||||||
|
|
||||||
SETLOC CSIPROG9
|
SETLOC CSIPROG9
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
CSINEXT4 DSU* BMN
|
CSINEXT4 DSU* BMN
|
||||||
PMINE -2,1
|
PMINE -2,1
|
||||||
SCNDSOL
|
SCNDSOL
|
||||||
@ -1156,7 +1156,7 @@ SCNDSOL BON BOFF
|
|||||||
ZEROVECS
|
ZEROVECS
|
||||||
CLEAR SET
|
CLEAR SET
|
||||||
S32.1F1
|
S32.1F1
|
||||||
# Page 674
|
# Page 674
|
||||||
S32.1F2
|
S32.1F2
|
||||||
CLEAR CLEAR
|
CLEAR CLEAR
|
||||||
S32.1F3A
|
S32.1F3A
|
||||||
@ -1333,7 +1333,7 @@ CDHMVR STQ VLOAD
|
|||||||
PDVL ABVAL # 0D = V SUB PV
|
PDVL ABVAL # 0D = V SUB PV
|
||||||
SL* PDVL
|
SL* PDVL
|
||||||
0,2
|
0,2
|
||||||
# Page 681
|
# Page 681
|
||||||
RACT2
|
RACT2
|
||||||
ABVAL PDDL # 2D = LENGTH OF R SUB A
|
ABVAL PDDL # 2D = LENGTH OF R SUB A
|
||||||
DSU
|
DSU
|
||||||
@ -1384,7 +1384,7 @@ CDHMVR STQ VLOAD
|
|||||||
08D
|
08D
|
||||||
VAD VSL1
|
VAD VSL1
|
||||||
STADR
|
STADR
|
||||||
# Page 682
|
# Page 682
|
||||||
STORE VACT3
|
STORE VACT3
|
||||||
VSU
|
VSU
|
||||||
VACT2
|
VACT2
|
||||||
|
|||||||
@ -11,11 +11,11 @@
|
|||||||
# 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR
|
# 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR
|
||||||
# to CADR GOFLASH.
|
# to CADR GOFLASH.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -179,7 +179,7 @@
|
|||||||
BANK
|
BANK
|
||||||
EBANK= SUBEXIT
|
EBANK= SUBEXIT
|
||||||
COUNT 35/P3474
|
COUNT 35/P3474
|
||||||
|
|
||||||
P34 TC AVFLAGA
|
P34 TC AVFLAGA
|
||||||
TC P34/P74A
|
TC P34/P74A
|
||||||
P74 TC AVFLAGP
|
P74 TC AVFLAGP
|
||||||
@ -657,7 +657,7 @@ S34/35.1 VLOAD VSU
|
|||||||
# ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
|
# ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
|
||||||
SETLOC CSI/CDH
|
SETLOC CSI/CDH
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
S34/35.2 STQ VLOAD
|
S34/35.2 STQ VLOAD
|
||||||
SUBEXIT
|
SUBEXIT
|
||||||
VPASS3
|
VPASS3
|
||||||
@ -833,7 +833,7 @@ S34/35.5 STQ BON
|
|||||||
FLAGON VLOAD
|
FLAGON VLOAD
|
||||||
DELVLVC
|
DELVLVC
|
||||||
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
|
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
|
||||||
EXIT
|
EXIT
|
||||||
CAF V06N81
|
CAF V06N81
|
||||||
TC VNP00H
|
TC VNP00H
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -944,7 +944,7 @@ DISPLAYE EXTEND
|
|||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
TC NORMEX
|
TC NORMEX
|
||||||
TCF -5
|
TCF -5
|
||||||
|
|
||||||
# Page 484
|
# Page 484
|
||||||
# ***** P3XORP7X *****
|
# ***** P3XORP7X *****
|
||||||
|
|
||||||
@ -971,7 +971,7 @@ VNP00H EXTEND
|
|||||||
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN
|
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN
|
||||||
XCH FBANK # FIXED-FIXED *****
|
XCH FBANK # FIXED-FIXED *****
|
||||||
TS TBASE5 # * WATCH OUT *
|
TS TBASE5 # * WATCH OUT *
|
||||||
|
|
||||||
CA VERBNOUN
|
CA VERBNOUN
|
||||||
TCR BANKCALL
|
TCR BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
@ -994,7 +994,7 @@ V06N81 VN 0681
|
|||||||
V16N45 VN 1645
|
V16N45 VN 1645
|
||||||
SETLOC CSI/CDH
|
SETLOC CSI/CDH
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
TWOPI 2DEC 6.283185307 B-4
|
TWOPI 2DEC 6.283185307 B-4
|
||||||
MAX250 2DEC 25 E3 B-28 # RSB 2004 added the B-28. OH 2009 leave?
|
MAX250 2DEC 25 E3 B-28 # RSB 2004 added the B-28. OH 2009 leave?
|
||||||
THIRD 2DEC .333333333
|
THIRD 2DEC .333333333
|
||||||
@ -1325,12 +1325,12 @@ INITVELX SETPD VLOAD
|
|||||||
|
|
||||||
HALFREV 2DEC 1 B-1
|
HALFREV 2DEC 1 B-1
|
||||||
|
|
||||||
MIDGIM BON BOFF
|
MIDGIM BON BOFF
|
||||||
AVFLAG
|
AVFLAG
|
||||||
MIDGIM1
|
MIDGIM1
|
||||||
COMPUTER
|
COMPUTER
|
||||||
GET.LVC
|
GET.LVC
|
||||||
|
|
||||||
# COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
|
# COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
|
||||||
|
|
||||||
GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
|
GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
|
||||||
@ -1344,13 +1344,13 @@ GET+MGA VLOAD UNIT # (PL 0D) V (+7) TO MPAC UNITIZE UV (+1)
|
|||||||
SETMGA STORE +MGA
|
SETMGA STORE +MGA
|
||||||
CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
|
CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
|
||||||
MGLVFLAG # AND EXIT
|
MGLVFLAG # AND EXIT
|
||||||
|
|
||||||
MIDGIM1 BOFF
|
MIDGIM1 BOFF
|
||||||
COMPUTER
|
COMPUTER
|
||||||
GET+MGA
|
GET+MGA
|
||||||
|
|
||||||
# COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES
|
# COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES
|
||||||
|
|
||||||
GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR
|
GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR
|
||||||
RINIT
|
RINIT
|
||||||
VCOMP # U(-R)
|
VCOMP # U(-R)
|
||||||
@ -1587,7 +1587,7 @@ SHIFTR1 LXA,2 SL*
|
|||||||
BANK
|
BANK
|
||||||
# Page 502
|
# Page 502
|
||||||
EBANK= RPASS36
|
EBANK= RPASS36
|
||||||
|
|
||||||
SBANK= R36A
|
SBANK= R36A
|
||||||
COUNT* $$/R36
|
COUNT* $$/R36
|
||||||
|
|
||||||
@ -1603,7 +1603,7 @@ R36 CAF TWO
|
|||||||
TC -5 # R2 LOADED VIA DSKY
|
TC -5 # R2 LOADED VIA DSKY
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR R36A
|
CADR R36A
|
||||||
|
|
||||||
OPTION36 VN 0412
|
OPTION36 VN 0412
|
||||||
|
|
||||||
SETLOC R36LM
|
SETLOC R36LM
|
||||||
@ -1627,10 +1627,10 @@ ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
|
|||||||
RTB GOTO
|
RTB GOTO
|
||||||
DPMODE
|
DPMODE
|
||||||
R36INT
|
R36INT
|
||||||
|
|
||||||
SETLOC R36LM1
|
SETLOC R36LM1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
R36INT STORE TDEC1
|
R36INT STORE TDEC1
|
||||||
SLOAD SR1
|
SLOAD SR1
|
||||||
OPTIONY
|
OPTIONY
|
||||||
@ -1664,7 +1664,7 @@ R36PROG4 CALL
|
|||||||
R36PROG5 VLOAD PDVL # _
|
R36PROG5 VLOAD PDVL # _
|
||||||
VATT # VELOCITY VECTOR V 00D
|
VATT # VELOCITY VECTOR V 00D
|
||||||
RATT # A
|
RATT # A
|
||||||
PDDL
|
PDDL
|
||||||
TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
|
TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
|
||||||
STOVL 30D # _
|
STOVL 30D # _
|
||||||
PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
|
PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
|
||||||
@ -1685,7 +1685,7 @@ R36PROG5 VLOAD PDVL # _
|
|||||||
VSL2 UNIT # RA A RA A
|
VSL2 UNIT # RA A RA A
|
||||||
UNIT GOTO
|
UNIT GOTO
|
||||||
R36B
|
R36B
|
||||||
|
|
||||||
SETLOC R36CM1
|
SETLOC R36CM1
|
||||||
# Page 504
|
# Page 504
|
||||||
BANK
|
BANK
|
||||||
@ -1710,10 +1710,10 @@ R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
|
|||||||
RTHETA
|
RTHETA
|
||||||
STCALL RTHETA
|
STCALL RTHETA
|
||||||
R36TAG2
|
R36TAG2
|
||||||
|
|
||||||
SETLOC R36LM
|
SETLOC R36LM
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
R36TAG2 DLOAD RTB
|
R36TAG2 DLOAD RTB
|
||||||
30D
|
30D
|
||||||
SGNAGREE
|
SGNAGREE
|
||||||
|
|||||||
@ -11,7 +11,7 @@
|
|||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
# 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> P00DOO.
|
# 2009-05-20 RSB Added missing label V2T179. Fixed POODOO -> P00DOO.
|
||||||
# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
|
# 2009-05-23 RSB In RTD18, corrected a STOVL DELVLVC to
|
||||||
# STODL DELVLVC and a STODL 02D to STORE 02D.
|
# STODL DELVLVC and a STODL 02D to STORE 02D.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -26,7 +26,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -35,10 +35,10 @@
|
|||||||
BANK 31
|
BANK 31
|
||||||
SETLOC RTE1
|
SETLOC RTE1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= RTEDVD
|
EBANK= RTEDVD
|
||||||
COUNT 31/P37
|
COUNT 31/P37
|
||||||
|
|
||||||
# PROGRAM DESCRIPTION: P37, RETURN TO EARTH
|
# PROGRAM DESCRIPTION: P37, RETURN TO EARTH
|
||||||
#
|
#
|
||||||
# DESCRIPTION
|
# DESCRIPTION
|
||||||
@ -219,7 +219,7 @@ RTE369 VLOAD ABVAL
|
|||||||
2DEC -4.8760771 E-2 B4
|
2DEC -4.8760771 E-2 B4
|
||||||
2DEC 4.5419476 E-4 B11
|
2DEC 4.5419476 E-4 B11
|
||||||
2DEC -1.4317675 E-6 B18
|
2DEC -1.4317675 E-6 B18
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
DAD
|
DAD
|
||||||
RTED1
|
RTED1
|
||||||
@ -312,7 +312,7 @@ RTEALRM CALL
|
|||||||
P370ALRM
|
P370ALRM
|
||||||
EXIT
|
EXIT
|
||||||
TCF P37 # RECYCLE AFTER ALARM DISPLAY
|
TCF P37 # RECYCLE AFTER ALARM DISPLAY
|
||||||
|
|
||||||
# RETURN TO EARTH DISPLAY SUBROUTINE
|
# RETURN TO EARTH DISPLAY SUBROUTINE
|
||||||
|
|
||||||
RTEVN STQ CALL
|
RTEVN STQ CALL
|
||||||
@ -338,7 +338,7 @@ RTEVN STQ CALL
|
|||||||
TCR INTPRET
|
TCR INTPRET
|
||||||
GOTO
|
GOTO
|
||||||
VNSTORE
|
VNSTORE
|
||||||
|
|
||||||
# PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
|
# PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
|
||||||
|
|
||||||
P37G CALL
|
P37G CALL
|
||||||
@ -453,7 +453,7 @@ P37W CLEAR CLEAR
|
|||||||
VN1645
|
VN1645
|
||||||
GOTO
|
GOTO
|
||||||
P37W
|
P37W
|
||||||
|
|
||||||
# SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
|
# SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
|
||||||
|
|
||||||
P37GFRB1 EXTEND
|
P37GFRB1 EXTEND
|
||||||
@ -464,7 +464,7 @@ P37GFRB1 EXTEND
|
|||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
TC SPRTEX # RECYCLE
|
TC SPRTEX # RECYCLE
|
||||||
TCF P37PROC # PROCEED
|
TCF P37PROC # PROCEED
|
||||||
|
|
||||||
# SUBROUTINE TO GO TO GOFLASHR
|
# SUBROUTINE TO GO TO GOFLASHR
|
||||||
|
|
||||||
P370GOFR EXTEND
|
P370GOFR EXTEND
|
||||||
@ -479,7 +479,7 @@ P370GOFR EXTEND
|
|||||||
TCF 0 +4
|
TCF 0 +4
|
||||||
INDEX RTENCKEX # RECYCLE
|
INDEX RTENCKEX # RECYCLE
|
||||||
TCF 0 +3
|
TCF 0 +3
|
||||||
|
|
||||||
# SUBROUTINE TO GO TO GOFLASH
|
# SUBROUTINE TO GO TO GOFLASH
|
||||||
|
|
||||||
# Page 899
|
# Page 899
|
||||||
@ -502,7 +502,7 @@ V6N81RTE VN 0681
|
|||||||
SETLOC RTE
|
SETLOC RTE
|
||||||
BANK
|
BANK
|
||||||
COUNT 32/RTE
|
COUNT 32/RTE
|
||||||
|
|
||||||
# Page 900
|
# Page 900
|
||||||
# ALARM DISPLAY SUBROUTINE
|
# ALARM DISPLAY SUBROUTINE
|
||||||
|
|
||||||
@ -595,7 +595,7 @@ RTEDISP STQ VLOAD # DISPLAY
|
|||||||
36D
|
36D
|
||||||
STODL VPRED # V(T2)
|
STODL VPRED # V(T2)
|
||||||
T2
|
T2
|
||||||
DSU
|
DSU
|
||||||
SPRTETIG
|
SPRTETIG
|
||||||
STOVL T3TOT4 # T21
|
STOVL T3TOT4 # T21
|
||||||
R(T2)/
|
R(T2)/
|
||||||
@ -877,10 +877,10 @@ PREC125 CALL
|
|||||||
X(T2)
|
X(T2)
|
||||||
ABS DSU
|
ABS DSU
|
||||||
EPC4RTE
|
EPC4RTE
|
||||||
BOV BMN
|
BOV BMN
|
||||||
PREC130
|
PREC130
|
||||||
PREC175
|
PREC175
|
||||||
|
|
||||||
# DESIRED REENTRY ANGLE NOT ACHIEVED
|
# DESIRED REENTRY ANGLE NOT ACHIEVED
|
||||||
|
|
||||||
# Page 909
|
# Page 909
|
||||||
@ -890,7 +890,7 @@ PREC130 DLOAD BMN
|
|||||||
PREC132 SLOAD GOTO # TOO MANY ITERATIONS
|
PREC132 SLOAD GOTO # TOO MANY ITERATIONS
|
||||||
OCT605 # EXIT WITH ALARM
|
OCT605 # EXIT WITH ALARM
|
||||||
PRECX
|
PRECX
|
||||||
|
|
||||||
# DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
|
# DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
|
||||||
|
|
||||||
PREC140 DLOAD BZE
|
PREC140 DLOAD BZE
|
||||||
@ -987,7 +987,7 @@ PREC170 DLOAD DAD
|
|||||||
0 -3,1
|
0 -3,1
|
||||||
# Page 911
|
# Page 911
|
||||||
PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D
|
PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D
|
||||||
PREC172
|
PREC172
|
||||||
DLOAD PDDL # BETA14=1 B0 PL04D
|
DLOAD PDDL # BETA14=1 B0 PL04D
|
||||||
2RTEB1
|
2RTEB1
|
||||||
GOTO
|
GOTO
|
||||||
@ -999,7 +999,7 @@ PREC173 DDV DSU
|
|||||||
1RTEB3
|
1RTEB3
|
||||||
BMN DLOAD
|
BMN DLOAD
|
||||||
PREC174
|
PREC174
|
||||||
DMP
|
DMP
|
||||||
DT21PR
|
DT21PR
|
||||||
STORE 00D # DT21=(BETA14)DT21PR B28
|
STORE 00D # DT21=(BETA14)DT21PR B28
|
||||||
PREC174 DLOAD PUSH
|
PREC174 DLOAD PUSH
|
||||||
@ -1015,7 +1015,7 @@ PREC175 DLOAD DSU
|
|||||||
DSU BMN
|
DSU BMN
|
||||||
EPC7RTE
|
EPC7RTE
|
||||||
PREC220
|
PREC220
|
||||||
|
|
||||||
# DESIRED RADIUS HAS NOT BEEN ACHIEVED
|
# DESIRED RADIUS HAS NOT BEEN ACHIEVED
|
||||||
|
|
||||||
DLOAD BZE
|
DLOAD BZE
|
||||||
@ -1077,7 +1077,7 @@ PREC210 DLOAD # PREPARE FOR NEXT ITERATION
|
|||||||
BHIZ GOTO
|
BHIZ GOTO
|
||||||
PREC120
|
PREC120
|
||||||
PRECX
|
PRECX
|
||||||
|
|
||||||
# DESIRED RADIUS ACHIEVED
|
# DESIRED RADIUS ACHIEVED
|
||||||
|
|
||||||
SETLOC RTE2
|
SETLOC RTE2
|
||||||
@ -1106,7 +1106,7 @@ PREC225 DLOAD
|
|||||||
ZERORTE
|
ZERORTE
|
||||||
PRECX GOTO
|
PRECX GOTO
|
||||||
SPRTEX
|
SPRTEX
|
||||||
|
|
||||||
# Page 914
|
# Page 914
|
||||||
# INTEGRATION CALLING SUBROUTINE
|
# INTEGRATION CALLING SUBROUTINE
|
||||||
#
|
#
|
||||||
@ -1179,7 +1179,7 @@ RTENCK1 STQ CALL
|
|||||||
INTYPFLG
|
INTYPFLG
|
||||||
GOTO
|
GOTO
|
||||||
RTENCK3B
|
RTENCK3B
|
||||||
|
|
||||||
RTENCK2 STQ CALL
|
RTENCK2 STQ CALL
|
||||||
RTENCKEX
|
RTENCKEX
|
||||||
INTSTALL
|
INTSTALL
|
||||||
@ -1194,7 +1194,7 @@ RTENCK2 STQ CALL
|
|||||||
DAD
|
DAD
|
||||||
GOTO
|
GOTO
|
||||||
RTENCK3D
|
RTENCK3D
|
||||||
|
|
||||||
RTENCK3 STQ CALL
|
RTENCK3 STQ CALL
|
||||||
RTENCKEX
|
RTENCKEX
|
||||||
INTSTALL
|
INTSTALL
|
||||||
@ -1367,7 +1367,7 @@ V2T101 SETPD CLEAR
|
|||||||
V2T102
|
V2T102
|
||||||
GOTO
|
GOTO
|
||||||
V2T110
|
V2T110
|
||||||
|
|
||||||
# PROCEED HERE IF NOT PRECISION COMPUTATION
|
# PROCEED HERE IF NOT PRECISION COMPUTATION
|
||||||
|
|
||||||
V2T102 DLOAD
|
V2T102 DLOAD
|
||||||
@ -1462,7 +1462,7 @@ V2T150 CALL # GOTO X(T1)-DV ITERATOR
|
|||||||
DLOAD BZE # EXIT IF MINIMUM FUEL MODE
|
DLOAD BZE # EXIT IF MINIMUM FUEL MODE
|
||||||
RTEDVD
|
RTEDVD
|
||||||
V2T1X
|
V2T1X
|
||||||
|
|
||||||
# CONTINUE IF TIME CRITICAL MODE
|
# CONTINUE IF TIME CRITICAL MODE
|
||||||
|
|
||||||
DSU BMN
|
DSU BMN
|
||||||
@ -1475,7 +1475,7 @@ V2T155 DLOAD BMN
|
|||||||
V2T160
|
V2T160
|
||||||
GOTO
|
GOTO
|
||||||
V2T185
|
V2T185
|
||||||
|
|
||||||
# CONIC TRAJECTORY COMPUTATION
|
# CONIC TRAJECTORY COMPUTATION
|
||||||
|
|
||||||
V2T160 DLOAD BZE
|
V2T160 DLOAD BZE
|
||||||
@ -1519,7 +1519,7 @@ V2T179 STCALL 16D # DX(T1)
|
|||||||
DLOAD BMN
|
DLOAD BMN
|
||||||
NN1A
|
NN1A
|
||||||
V2T300
|
V2T300
|
||||||
|
|
||||||
# PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
|
# PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
|
||||||
# PRECISION TRAJECTORY
|
# PRECISION TRAJECTORY
|
||||||
|
|
||||||
@ -1557,7 +1557,7 @@ V2T300 DLOAD
|
|||||||
ZERORTE
|
ZERORTE
|
||||||
V2T1X GOTO
|
V2T1X GOTO
|
||||||
33D
|
33D
|
||||||
|
|
||||||
# Page 924
|
# Page 924
|
||||||
# X(T1)-DV ITERATOR SUBROUTINE
|
# X(T1)-DV ITERATOR SUBROUTINE
|
||||||
#
|
#
|
||||||
@ -1679,7 +1679,7 @@ GAMDV32 DLOAD DCOMP
|
|||||||
GAMDV33 SETPD GOTO
|
GAMDV33 SETPD GOTO
|
||||||
18D # PL18D
|
18D # PL18D
|
||||||
GAMDV50
|
GAMDV50
|
||||||
|
|
||||||
# TIME CRITICAL MODE
|
# TIME CRITICAL MODE
|
||||||
|
|
||||||
GAMDV35 DLOAD DSU
|
GAMDV35 DLOAD DSU
|
||||||
@ -1718,7 +1718,7 @@ GAMDV47 DLOAD SIGN
|
|||||||
12D
|
12D
|
||||||
16D
|
16D
|
||||||
STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
|
STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
|
||||||
|
|
||||||
# CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
|
# CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
|
||||||
|
|
||||||
GAMDV50 DLOAD DMP
|
GAMDV50 DLOAD DMP
|
||||||
@ -1756,7 +1756,7 @@ GAMDV65 DLOAD ABS
|
|||||||
GAMDV25
|
GAMDV25
|
||||||
GAMDVX GOTO
|
GAMDVX GOTO
|
||||||
31D
|
31D
|
||||||
|
|
||||||
# Page 928
|
# Page 928
|
||||||
# DV CALCULATION SUBROUTINE
|
# DV CALCULATION SUBROUTINE
|
||||||
#
|
#
|
||||||
@ -1879,18 +1879,18 @@ XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
|
|||||||
2RTEB1
|
2RTEB1
|
||||||
XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10)
|
XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10)
|
||||||
XT1LIMX
|
XT1LIMX
|
||||||
XT1LIM5 DLOAD
|
XT1LIM5 DLOAD
|
||||||
ZERORTE
|
ZERORTE
|
||||||
XT1LIMX GOTO
|
XT1LIMX GOTO
|
||||||
20D
|
20D
|
||||||
|
|
||||||
# Page 931
|
# Page 931
|
||||||
# CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
|
# CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
|
||||||
|
|
||||||
BANK 36
|
BANK 36
|
||||||
SETLOC RTECON1
|
SETLOC RTECON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
1RTEB1 2DEC 1. B-1
|
1RTEB1 2DEC 1. B-1
|
||||||
1RTEB2 2DEC 1. B-2
|
1RTEB2 2DEC 1. B-2
|
||||||
1RTEB3 2DEC 1. B-3
|
1RTEB3 2DEC 1. B-3
|
||||||
@ -1900,7 +1900,7 @@ XT1LIMX GOTO
|
|||||||
1RTEB13 2DEC 1. B-13
|
1RTEB13 2DEC 1. B-13
|
||||||
1RTEB17 2DEC 1. B-17
|
1RTEB17 2DEC 1. B-17
|
||||||
1RTEB25 2DEC 1. B-25
|
1RTEB25 2DEC 1. B-25
|
||||||
# * * B25 AND B28 MUST BE CONSECUTIVE * *
|
# * * B25 AND B28 MUST BE CONSECUTIVE * *
|
||||||
1RTEB28 2DEC 1. B-28
|
1RTEB28 2DEC 1. B-28
|
||||||
ZERORTE 2DEC 0
|
ZERORTE 2DEC 0
|
||||||
M144RTE 2DEC -144. B-28
|
M144RTE 2DEC -144. B-28
|
||||||
@ -1938,7 +1938,7 @@ EPC10RTE 2DEC .0001 B-7
|
|||||||
BANK 35
|
BANK 35
|
||||||
SETLOC RTECON1
|
SETLOC RTECON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
C4RTE 2DEC -6.986643 E7 B-30
|
C4RTE 2DEC -6.986643 E7 B-30
|
||||||
K1RTE 2DEC 7. E6 B-29
|
K1RTE 2DEC 7. E6 B-29
|
||||||
K2RTE 2DEC 6495000. B-29
|
K2RTE 2DEC 6495000. B-29
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -9,7 +9,7 @@
|
|||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
||||||
# name, and Comanche 055 page images.
|
# name, and Comanche 055 page images.
|
||||||
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
|
# 2009-05-20 RSB Corrections: SETI/PDT -> SET1/PDT,
|
||||||
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT,
|
# GOTOPOOH -> GOTOP00H, R33EXIT -> R53EXIT,
|
||||||
# V853 -> VB53, R56A -> R56A1 (some places
|
# V853 -> VB53, R56A -> R56A1 (some places
|
||||||
# only), added missing R56A1 label, added a
|
# only), added missing R56A1 label, added a
|
||||||
@ -19,11 +19,11 @@
|
|||||||
# TC PHASCHNG. In R53C, a CADR GOFLASHR was
|
# TC PHASCHNG. In R53C, a CADR GOFLASHR was
|
||||||
# corrected to CADR GOFLASH.
|
# corrected to CADR GOFLASH.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -137,7 +137,7 @@ P54 = PROG52
|
|||||||
SBANK= LOWSUPER
|
SBANK= LOWSUPER
|
||||||
EBANK= SAC
|
EBANK= SAC
|
||||||
COUNT 15/P52
|
COUNT 15/P52
|
||||||
|
|
||||||
PROG52 TC PHASCHNG
|
PROG52 TC PHASCHNG
|
||||||
OCT 00254
|
OCT 00254
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
@ -159,7 +159,7 @@ P52B CAF BIT1
|
|||||||
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
|
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
|
||||||
CADR GOPERF4R
|
CADR GOPERF4R
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
TC +5
|
TC +5
|
||||||
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
|
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 00014
|
OCT 00014
|
||||||
@ -186,7 +186,7 @@ P52T EXTEND
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +2
|
BZF +2
|
||||||
TCF +4
|
TCF +4
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TIME2
|
DCA TIME2
|
||||||
DXCH DSPTEM1
|
DXCH DSPTEM1
|
||||||
@ -252,7 +252,7 @@ P52I TC ALARM
|
|||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
TC P52F # PROCEED: DO FINE ALIGN-R51
|
TC P52F # PROCEED: DO FINE ALIGN-R51
|
||||||
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
|
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
|
||||||
V06N34 VN 0634
|
V06N34 VN 0634
|
||||||
VB06N22 VN 00622
|
VB06N22 VN 00622
|
||||||
COARSTYP CAF OCT13
|
COARSTYP CAF OCT13
|
||||||
@ -311,7 +311,7 @@ V16N20 VN 1620
|
|||||||
ALRM15 EQUALS OCT15
|
ALRM15 EQUALS OCT15
|
||||||
SETLOC P50S2
|
SETLOC P50S2
|
||||||
BANK
|
BANK
|
||||||
V06N89* VN 0689
|
V06N89* VN 0689
|
||||||
|
|
||||||
# NAME -- P52LS
|
# NAME -- P52LS
|
||||||
#
|
#
|
||||||
@ -353,21 +353,21 @@ P52LS STQ SET
|
|||||||
STODL 0D
|
STODL 0D
|
||||||
TSIGHT
|
TSIGHT
|
||||||
STCALL 6D
|
STCALL 6D
|
||||||
# Page 743
|
# Page 743
|
||||||
RP-TO-R
|
RP-TO-R
|
||||||
VSR2
|
VSR2
|
||||||
STODL ALPHAV
|
STODL ALPHAV
|
||||||
TSIGHT
|
TSIGHT
|
||||||
CALL
|
CALL
|
||||||
LAT-LONG
|
LAT-LONG
|
||||||
CALL
|
CALL
|
||||||
LLASRD
|
LLASRD
|
||||||
EXIT
|
EXIT
|
||||||
LSDISP CAF V06N89*
|
LSDISP CAF V06N89*
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
TC +2
|
TC +2
|
||||||
TC LSDISP
|
TC LSDISP
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
@ -393,7 +393,7 @@ LSDISP CAF V06N89*
|
|||||||
QMAJ
|
QMAJ
|
||||||
SETLOC P50S1
|
SETLOC P50S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
# NAME: AUTOMATIC OPTICS POSITIONING ROUTINE
|
# NAME: AUTOMATIC OPTICS POSITIONING ROUTINE
|
||||||
#
|
#
|
||||||
# FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
|
# FUNCTION: (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
|
||||||
@ -418,7 +418,7 @@ LSDISP CAF V06N89*
|
|||||||
# 6. SR52.1
|
# 6. SR52.1
|
||||||
|
|
||||||
COUNT 15/R52
|
COUNT 15/R52
|
||||||
|
|
||||||
R52 STQ CLEAR
|
R52 STQ CLEAR
|
||||||
SAVQR52
|
SAVQR52
|
||||||
ADVTRK
|
ADVTRK
|
||||||
@ -456,7 +456,7 @@ R52JA CAF BIT10 # IS THIS A LEM
|
|||||||
MASK STATE
|
MASK STATE
|
||||||
CCS A
|
CCS A
|
||||||
TCF R52E # YES
|
TCF R52E # YES
|
||||||
# Page 745
|
# Page 745
|
||||||
CAF V06N92 # NO
|
CAF V06N92 # NO
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GODSPR
|
CADR GODSPR
|
||||||
@ -492,19 +492,19 @@ R52HA TC BANKCALL
|
|||||||
MASK BIT5
|
MASK BIT5
|
||||||
EXTEND # TRACKFLG
|
EXTEND # TRACKFLG
|
||||||
BZF R52Q
|
BZF R52Q
|
||||||
|
|
||||||
CS STATE +1
|
CS STATE +1
|
||||||
MASK BIT7 # UPDATFLG
|
MASK BIT7 # UPDATFLG
|
||||||
CCS A
|
CCS A
|
||||||
TCF R52SYNC
|
TCF R52SYNC
|
||||||
|
|
||||||
R52I CA STATE +5
|
R52I CA STATE +5
|
||||||
MASK BIT10
|
MASK BIT10
|
||||||
CCS A
|
CCS A
|
||||||
TC R52D # PRFTRKAT = 1
|
TC R52D # PRFTRKAT = 1
|
||||||
R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
|
R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
|
||||||
TCF R52F +1
|
TCF R52F +1
|
||||||
|
|
||||||
R52J TC DOWNFLAG # CLEAR TRUNFLAG
|
R52J TC DOWNFLAG # CLEAR TRUNFLAG
|
||||||
ADRES TRUNFLAG # BIT 4 FLAG 0
|
ADRES TRUNFLAG # BIT 4 FLAG 0
|
||||||
# Page 746
|
# Page 746
|
||||||
@ -520,22 +520,22 @@ R52M CAF BIT6 # IS R53FLAG SET
|
|||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= SAC
|
EBANK= SAC
|
||||||
2CADR R53JOB
|
2CADR R53JOB
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TCF R52F
|
TCF R52F
|
||||||
R53JOB TC INTPRET
|
R53JOB TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
R53
|
R53
|
||||||
ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
|
ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
V06N92 VN 00692
|
V06N92 VN 00692
|
||||||
V06N89A VN 0689
|
V06N89A VN 0689
|
||||||
SHAXIS 2DEC .5376381241 B-1
|
SHAXIS 2DEC .5376381241 B-1
|
||||||
|
|
||||||
2DEC 0
|
2DEC 0
|
||||||
|
|
||||||
2DEC .8431766920 B-1
|
2DEC .8431766920 B-1
|
||||||
|
|
||||||
R52L CAF BIT10 # IS THIS A LEM
|
R52L CAF BIT10 # IS THIS A LEM
|
||||||
MASK STATE +1
|
MASK STATE +1
|
||||||
CCS A
|
CCS A
|
||||||
@ -547,7 +547,7 @@ R52L CAF BIT10 # IS THIS A LEM
|
|||||||
TCF R52F # PROCEED
|
TCF R52F # PROCEED
|
||||||
TCF R52F # NO PROVISION FOR NEW DATA
|
TCF R52F # NO PROVISION FOR NEW DATA
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
OCT404 OCT 404
|
OCT404 OCT 404
|
||||||
1.8SEC DEC 180
|
1.8SEC DEC 180
|
||||||
|
|
||||||
@ -560,12 +560,12 @@ TERM52 TC CLEARMRK
|
|||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS OPTCADR
|
TS OPTCADR
|
||||||
|
|
||||||
TC BANKCALL # CLEAR OUT EXTENDED VERBS
|
TC BANKCALL # CLEAR OUT EXTENDED VERBS
|
||||||
CADR KLEENEX
|
CADR KLEENEX
|
||||||
|
|
||||||
TC GOTOP00H # NO GO TO P00
|
TC GOTOP00H # NO GO TO P00
|
||||||
|
|
||||||
ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
|
ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
|
||||||
SAVQR52
|
SAVQR52
|
||||||
ADVTRK
|
ADVTRK
|
||||||
@ -632,7 +632,7 @@ ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
|
|||||||
# Page 749
|
# Page 749
|
||||||
SETLOC P50S1
|
SETLOC P50S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/S50
|
COUNT* $$/S50
|
||||||
|
|
||||||
LOCSAM = S50
|
LOCSAM = S50
|
||||||
@ -721,9 +721,9 @@ RSUBE 2DEC 6378166 B-29
|
|||||||
ECLIPOL 2DEC 0 # *
|
ECLIPOL 2DEC 0 # *
|
||||||
|
|
||||||
2DEC -.00007896 B-1 # *
|
2DEC -.00007896 B-1 # *
|
||||||
|
|
||||||
2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
|
2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
|
||||||
|
|
||||||
TSIGHT1 2DEC 24000
|
TSIGHT1 2DEC 24000
|
||||||
|
|
||||||
CEARTH = 14D
|
CEARTH = 14D
|
||||||
@ -775,7 +775,7 @@ CSSUN 2DEC .24148 # (COS 15)/4
|
|||||||
# STARAD -- STAR +5
|
# STARAD -- STAR +5
|
||||||
|
|
||||||
COUNT 14/PICAP
|
COUNT 14/PICAP
|
||||||
|
|
||||||
SETLOC P50S1
|
SETLOC P50S1
|
||||||
BANK
|
BANK
|
||||||
PICAPAR TC MAKECADR
|
PICAPAR TC MAKECADR
|
||||||
@ -834,7 +834,7 @@ PIC4 VLOAD* CALL
|
|||||||
BMN DAD
|
BMN DAD
|
||||||
PIC3
|
PIC3
|
||||||
CSS6640 # SEPARATION MORE THAN 40 DEG.
|
CSS6640 # SEPARATION MORE THAN 40 DEG.
|
||||||
BPL
|
BPL
|
||||||
PIC3
|
PIC3
|
||||||
# Page 754
|
# Page 754
|
||||||
VLOAD* DOT
|
VLOAD* DOT
|
||||||
@ -920,7 +920,7 @@ PICBXT CA QMIN
|
|||||||
# SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
|
# SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
|
||||||
|
|
||||||
COUNT 14/R51
|
COUNT 14/R51
|
||||||
|
|
||||||
R51 EXIT
|
R51 EXIT
|
||||||
CAF BIT1
|
CAF BIT1
|
||||||
TS STARIND
|
TS STARIND
|
||||||
@ -1014,10 +1014,10 @@ R51K EXIT
|
|||||||
TC +3
|
TC +3
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR P52C
|
CADR P52C
|
||||||
# Page 758
|
# Page 758
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
GOTO
|
GOTO
|
||||||
ENDP50S
|
ENDP50S
|
||||||
R51.4 TC INTPRET
|
R51.4 TC INTPRET
|
||||||
MXV UNIT
|
MXV UNIT
|
||||||
REFSMMAT
|
REFSMMAT
|
||||||
@ -1048,7 +1048,7 @@ V01N70 VN 0170
|
|||||||
|
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R55
|
COUNT* $$/R55
|
||||||
R55 STQ
|
R55 STQ
|
||||||
QMIN
|
QMIN
|
||||||
CALL
|
CALL
|
||||||
@ -1135,7 +1135,7 @@ CHKSB VLOAD* DOT* # CAL. ANGLE THETA
|
|||||||
CHKSD DLOAD DSU
|
CHKSD DLOAD DSU
|
||||||
THETA # COMPUTE POS DIFF
|
THETA # COMPUTE POS DIFF
|
||||||
18D
|
18D
|
||||||
ABS RTB
|
ABS RTB
|
||||||
SGNAGREE
|
SGNAGREE
|
||||||
STORE NORMTEM1
|
STORE NORMTEM1
|
||||||
SET EXIT
|
SET EXIT
|
||||||
@ -1143,10 +1143,10 @@ CHKSD DLOAD DSU
|
|||||||
CAF ZERO
|
CAF ZERO
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR CLEANDSP
|
CADR CLEANDSP
|
||||||
|
|
||||||
CAF VB6N5
|
CAF VB6N5
|
||||||
# Page 761
|
# Page 761
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
TC CHKSDA # PROCEED
|
TC CHKSDA # PROCEED
|
||||||
@ -1160,7 +1160,7 @@ CHKSDA TC INTPRET
|
|||||||
VB6N5 VN 605
|
VB6N5 VN 605
|
||||||
|
|
||||||
# NAME -- CAL53A
|
# NAME -- CAL53A
|
||||||
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
|
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
|
||||||
# CALLING SEQUENCE -- CALL CAL53A
|
# CALLING SEQUENCE -- CALL CAL53A
|
||||||
# INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
|
# INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
|
||||||
# DESIRED GIMBAL ANGLES -- THETAD,+1,+2
|
# DESIRED GIMBAL ANGLES -- THETAD,+1,+2
|
||||||
@ -1168,7 +1168,7 @@ VB6N5 VN 605
|
|||||||
# SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
|
# SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
|
||||||
|
|
||||||
COUNT 14/R50
|
COUNT 14/R50
|
||||||
|
|
||||||
CAL53A CALL
|
CAL53A CALL
|
||||||
S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
|
S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
|
||||||
RTB SSP
|
RTB SSP
|
||||||
@ -1197,7 +1197,7 @@ COARFINE EXIT
|
|||||||
CADR IMUCOARS # PERFORM COARSE ALIGNMENT
|
CADR IMUCOARS # PERFORM COARSE ALIGNMENT
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUSTALL # REQUEST MODE SWITCH
|
CADR IMUSTALL # REQUEST MODE SWITCH
|
||||||
# Page 762
|
# Page 762
|
||||||
TC CURTAINS
|
TC CURTAINS
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR IMUFIN20
|
CADR IMUFIN20
|
||||||
@ -1232,7 +1232,7 @@ MATMOVE VLOAD* # TRANSFER MATRIX
|
|||||||
STORE 12D,2
|
STORE 12D,2
|
||||||
RVQ
|
RVQ
|
||||||
DEGREE1 DEC 46
|
DEGREE1 DEC 46
|
||||||
DEG359 DEC 16338
|
DEG359 DEC 16338
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
RDCDUS INHINT # READ CDUS
|
RDCDUS INHINT # READ CDUS
|
||||||
@ -1264,7 +1264,7 @@ RDCDUS INHINT # READ CDUS
|
|||||||
SETLOC P50S2
|
SETLOC P50S2
|
||||||
BANK
|
BANK
|
||||||
COUNT 14/INFLT
|
COUNT 14/INFLT
|
||||||
|
|
||||||
CALCSMSC DLOAD DMP
|
CALCSMSC DLOAD DMP
|
||||||
SINCDUY
|
SINCDUY
|
||||||
COSCDUZ
|
COSCDUZ
|
||||||
@ -1304,7 +1304,7 @@ CALCSMSC DLOAD DMP
|
|||||||
XNB
|
XNB
|
||||||
STORE YNB
|
STORE YNB
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
# NAME -- P51 -- IMU ORIENTATION DETERMINATION
|
# NAME -- P51 -- IMU ORIENTATION DETERMINATION
|
||||||
# MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
|
# MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
|
||||||
# Page 764
|
# Page 764
|
||||||
@ -1444,18 +1444,18 @@ CALCSMSC DLOAD DMP
|
|||||||
BANK
|
BANK
|
||||||
COUNT 14/P5153
|
COUNT 14/P5153
|
||||||
|
|
||||||
P53 EQUALS P51
|
P53 EQUALS P51
|
||||||
P51 CS IMODES30
|
P51 CS IMODES30
|
||||||
MASK BIT9
|
MASK BIT9
|
||||||
CCS A
|
CCS A
|
||||||
# Page 767
|
# Page 767
|
||||||
TC P51A
|
TC P51A
|
||||||
TC ALARM
|
TC ALARM
|
||||||
OCT 210
|
OCT 210
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
P51A TC BANKCALL
|
P51A TC BANKCALL
|
||||||
CADR R02ZERO
|
CADR R02ZERO
|
||||||
|
|
||||||
P51AA CAF PRFMSTAQ
|
P51AA CAF PRFMSTAQ
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOPERF1
|
CADR GOPERF1
|
||||||
@ -1508,7 +1508,7 @@ P51B TC PHASCHNG
|
|||||||
EXIT
|
EXIT
|
||||||
CAF BIT1
|
CAF BIT1
|
||||||
TS MARKINDX # INITIALIZE FOR ONE MARK
|
TS MARKINDX # INITIALIZE FOR ONE MARK
|
||||||
|
|
||||||
P51C TC PHASCHNG
|
P51C TC PHASCHNG
|
||||||
OCT 05024
|
OCT 05024
|
||||||
OCT 13000
|
OCT 13000
|
||||||
@ -1539,7 +1539,7 @@ P51D VLOAD STADR
|
|||||||
CALL
|
CALL
|
||||||
PLANET
|
PLANET
|
||||||
STORE PLANVEC
|
STORE PLANVEC
|
||||||
# Page 769
|
# Page 769
|
||||||
P51E EXIT
|
P51E EXIT
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 05024
|
OCT 05024
|
||||||
@ -1593,7 +1593,7 @@ SET1/PDT CA TIME1
|
|||||||
# Page 770
|
# Page 770
|
||||||
TS 1/PIPADT
|
TS 1/PIPADT
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
# Page 771
|
# Page 771
|
||||||
# SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
|
# SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
|
||||||
|
|
||||||
@ -1645,7 +1645,7 @@ MKDNCDR ECADR MARKDOWN
|
|||||||
# THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
|
# THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
|
||||||
#
|
#
|
||||||
# SUBROUTINES CALLED
|
# SUBROUTINES CALLED
|
||||||
#
|
#
|
||||||
# SXTMARK
|
# SXTMARK
|
||||||
# OPTSTALL
|
# OPTSTALL
|
||||||
# GOFLASH
|
# GOFLASH
|
||||||
@ -1667,9 +1667,9 @@ MKDNCDR ECADR MARKDOWN
|
|||||||
|
|
||||||
SETLOC RT53
|
SETLOC RT53
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 14/R53
|
COUNT 14/R53
|
||||||
|
|
||||||
R53 STQ SET # SET SIGHTING MARK FLAG
|
R53 STQ SET # SET SIGHTING MARK FLAG
|
||||||
R53EXIT
|
R53EXIT
|
||||||
R53FLAG
|
R53FLAG
|
||||||
@ -1703,7 +1703,7 @@ R53B TC CHECKMM
|
|||||||
TCF R53D
|
TCF R53D
|
||||||
R53C1 CAF ZERO
|
R53C1 CAF ZERO
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR CLEANDSP
|
CADR CLEANDSP
|
||||||
R53C CAF V01N71
|
R53C CAF V01N71
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
@ -1748,9 +1748,9 @@ NEG47 OCT 77730
|
|||||||
|
|
||||||
SETLOC S52/2
|
SETLOC S52/2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 13/S52.2
|
COUNT 13/S52.2
|
||||||
S52.2 STQ
|
S52.2 STQ
|
||||||
QMAJ
|
QMAJ
|
||||||
CALL
|
CALL
|
||||||
CDUTRIG
|
CDUTRIG
|
||||||
@ -1786,7 +1786,7 @@ S52.2.1 AXC,1 AXC,2
|
|||||||
#
|
#
|
||||||
# TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
|
# TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
|
||||||
# LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
|
# LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
|
||||||
# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
|
# 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
|
||||||
# THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
|
# THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
|
||||||
# THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
|
# THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
|
||||||
# POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
|
# POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
|
||||||
@ -1842,7 +1842,7 @@ S52.2.1 AXC,1 AXC,2
|
|||||||
# Page 776
|
# Page 776
|
||||||
SETLOC SR52/1
|
SETLOC SR52/1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
SR52.1 TC MAKECADR
|
SR52.1 TC MAKECADR
|
||||||
TS QMIN
|
TS QMIN
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -1951,7 +1951,7 @@ ADVTRACK SETPD
|
|||||||
VLOAD VXV
|
VLOAD VXV
|
||||||
VATT
|
VATT
|
||||||
RATT
|
RATT
|
||||||
UNIT
|
UNIT
|
||||||
STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
|
STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
|
||||||
RATT
|
RATT
|
||||||
UNIT VCOMP
|
UNIT VCOMP
|
||||||
@ -1984,7 +1984,7 @@ ADVTRACK SETPD
|
|||||||
0
|
0
|
||||||
STCALL STAR # STORE FINAL LOS IN STAR
|
STCALL STAR # STORE FINAL LOS IN STAR
|
||||||
COM52 # RETURN TO SR52.1
|
COM52 # RETURN TO SR52.1
|
||||||
|
|
||||||
ROTA DLOAD SIN
|
ROTA DLOAD SIN
|
||||||
AOPTIME
|
AOPTIME
|
||||||
PDVL VXV # PUSH 1/2SIN(A) PD 6-7
|
PDVL VXV # PUSH 1/2SIN(A) PD 6-7
|
||||||
@ -2006,7 +2006,7 @@ ROTA DLOAD SIN
|
|||||||
UNIT SETPD
|
UNIT SETPD
|
||||||
0
|
0
|
||||||
PUSH RVQ
|
PUSH RVQ
|
||||||
|
|
||||||
DP1/6 2DEC .16666666
|
DP1/6 2DEC .16666666
|
||||||
|
|
||||||
MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
|
MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
|
||||||
@ -2025,8 +2025,8 @@ MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS x 16
|
|||||||
|
|
||||||
SETLOC P50S2
|
SETLOC P50S2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 15/S52.3
|
COUNT 15/S52.3
|
||||||
S52.3 STQ
|
S52.3 STQ
|
||||||
QMAJ
|
QMAJ
|
||||||
STCALL TDEC1
|
STCALL TDEC1
|
||||||
@ -2095,11 +2095,11 @@ R56 STQ EXIT
|
|||||||
TC -5 # ENTER: NEW ANGLES
|
TC -5 # ENTER: NEW ANGLES
|
||||||
R56A TC BANKCALL
|
R56A TC BANKCALL
|
||||||
CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
|
CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR CLEANDSP
|
CADR CLEANDSP
|
||||||
|
|
||||||
R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
|
R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
# Page 782
|
# Page 782
|
||||||
@ -2147,13 +2147,13 @@ VB53 VN 05300 # ALTERNATE MARK VERB
|
|||||||
V06N94B VN 00694
|
V06N94B VN 00694
|
||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
PLANET STORE TSIGHT
|
PLANET STORE TSIGHT
|
||||||
STQ CALL
|
STQ CALL
|
||||||
QMIN
|
QMIN
|
||||||
LOCSAM
|
LOCSAM
|
||||||
VLOAD
|
VLOAD
|
||||||
# Page 783
|
# Page 783
|
||||||
VEARTH
|
VEARTH
|
||||||
STOVL 0D
|
STOVL 0D
|
||||||
VSUN
|
VSUN
|
||||||
@ -2181,7 +2181,7 @@ NOSAM EXIT
|
|||||||
STARSAV3
|
STARSAV3
|
||||||
1/SQR3
|
1/SQR3
|
||||||
UNIT GOTO
|
UNIT GOTO
|
||||||
CORPLAN
|
CORPLAN
|
||||||
NOTPLAN CS A
|
NOTPLAN CS A
|
||||||
AD DEC227
|
AD DEC227
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -2204,7 +2204,7 @@ CALSAM1 TC INTPRET
|
|||||||
CORPLAN VAD UNIT
|
CORPLAN VAD UNIT
|
||||||
VEL/C
|
VEL/C
|
||||||
GOTO
|
GOTO
|
||||||
# Page 784
|
# Page 784
|
||||||
QMIN
|
QMIN
|
||||||
DEC227 DEC 227
|
DEC227 DEC 227
|
||||||
VNPLANV VN 0688
|
VNPLANV VN 0688
|
||||||
|
|||||||
@ -14,11 +14,11 @@
|
|||||||
# interpreter operands fixed stuff like
|
# interpreter operands fixed stuff like
|
||||||
# N-M,1 to N -M,1
|
# N-M,1 to N -M,1
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -61,22 +61,22 @@
|
|||||||
BANK 26
|
BANK 26
|
||||||
SETLOC P60S
|
SETLOC P60S
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
|
|
||||||
COUNT* $$/P61
|
COUNT* $$/P61
|
||||||
|
|
||||||
P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
|
P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
|
||||||
TS EXTVBACT # TO V37
|
TS EXTVBACT # TO V37
|
||||||
# LOCK OUT EXTENDED VERBS SO CAN USE TFF
|
# LOCK OUT EXTENDED VERBS SO CAN USE TFF
|
||||||
# ROUTINES. EXT VERB ERASE IS USED
|
# ROUTINES. EXT VERB ERASE IS USED
|
||||||
|
|
||||||
CS ONE # REMOVE IF HEADSUP EVER ON UPLINK DATA
|
CS ONE # REMOVE IF HEADSUP EVER ON UPLINK DATA
|
||||||
TS HEADSUP # PRELOAD
|
TS HEADSUP # PRELOAD
|
||||||
|
|
||||||
TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION
|
TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION
|
||||||
# RV 50GENRET. DOES PHASCHNG, GROUP 4.
|
# RV 50GENRET. DOES PHASCHNG, GROUP 4.
|
||||||
|
|
||||||
CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
|
CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
|
||||||
# XXX.XX DEG XXX.XX DEG XXXXX.
|
# XXX.XX DEG XXX.XX DEG XXXXX.
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -85,18 +85,18 @@ P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
|
|||||||
# Page 790
|
# Page 790
|
||||||
TC P61.4
|
TC P61.4
|
||||||
TC -5
|
TC -5
|
||||||
|
|
||||||
P61.3 TC PHASCHNG
|
P61.3 TC PHASCHNG
|
||||||
OCT 00014
|
OCT 00014
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
P61.4 ZL
|
P61.4 ZL
|
||||||
CCS HEADSUP # C(HEADSUP)= +1/-1
|
CCS HEADSUP # C(HEADSUP)= +1/-1
|
||||||
CA BIT14 # IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
|
CA BIT14 # IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
|
||||||
NOOP # IF HEADSUP NEG,ROLLC =0 (LIFT UP)
|
NOOP # IF HEADSUP NEG,ROLLC =0 (LIFT UP)
|
||||||
DXCH ROLLC # ROLLC IS USED BY S62.3: GIM ANG AT .05G
|
DXCH ROLLC # ROLLC IS USED BY S62.3: GIM ANG AT .05G
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
NEWRNVN DLOAD
|
NEWRNVN DLOAD
|
||||||
PIPTIME # SAVE TIME OF RN,VN TO DETERMINE IF AN
|
PIPTIME # SAVE TIME OF RN,VN TO DETERMINE IF AN
|
||||||
@ -124,11 +124,11 @@ P61.1 TC CLEARMRK
|
|||||||
# XXX.XX G XXXXX. FPS XXX.XX DEG
|
# XXX.XX G XXXXX. FPS XXX.XX DEG
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
|
|
||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
TC P61.2 # PROCEED
|
TC P61.2 # PROCEED
|
||||||
TC -5
|
TC -5
|
||||||
|
|
||||||
P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
||||||
# ABOVE DISPLAY.
|
# ABOVE DISPLAY.
|
||||||
RTB DSU
|
RTB DSU
|
||||||
@ -138,9 +138,9 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
|||||||
DAD
|
DAD
|
||||||
TTE1 # NEGATIVE OF FREE FALL TIME.
|
TTE1 # NEGATIVE OF FREE FALL TIME.
|
||||||
STORE TTE # DECREMENTED
|
STORE TTE # DECREMENTED
|
||||||
|
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CA V06N63 # RTGO VIO TTE
|
CA V06N63 # RTGO VIO TTE
|
||||||
# XXXX.X NM XXXXX. FPS XXBXX M,S
|
# XXXX.X NM XXXXX. FPS XXBXX M,S
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -148,7 +148,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
|||||||
TC GOTOP00H
|
TC GOTOP00H
|
||||||
TC +2
|
TC +2
|
||||||
TC P61.2 # REDO
|
TC P61.2 # REDO
|
||||||
|
|
||||||
# .... THEN FALL INTO P62
|
# .... THEN FALL INTO P62
|
||||||
# Page 792
|
# Page 792
|
||||||
|
|
||||||
@ -163,7 +163,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
|||||||
# 2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY.
|
# 2) TO ORIENT THE CM TO THE CORRECT ATTITUDE FOR ATMOSPHERIC ENTRY.
|
||||||
# CALLING SEQUENCE: BY V37 OR DIRECTLY FROM P61
|
# CALLING SEQUENCE: BY V37 OR DIRECTLY FROM P61
|
||||||
# EXIT: TO P63
|
# EXIT: TO P63
|
||||||
# ERASABLE INITIALIZATION:
|
# ERASABLE INITIALIZATION:
|
||||||
# ALFAPAD LEFT BY PAD LOAD
|
# ALFAPAD LEFT BY PAD LOAD
|
||||||
# LADPAD LEFT BY PAD LOAD
|
# LADPAD LEFT BY PAD LOAD
|
||||||
# LODPAD LEFT BY PAD LOAD
|
# LODPAD LEFT BY PAD LOAD
|
||||||
@ -173,12 +173,12 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
|
|||||||
# SUBROUTINE CALLS: NEWMODEX, S61.1, CM/DAPIC, CM/DAPON, R02BOTH, GOPERF1, GOFLASH, GODSPR.
|
# SUBROUTINE CALLS: NEWMODEX, S61.1, CM/DAPIC, CM/DAPON, R02BOTH, GOPERF1, GOFLASH, GODSPR.
|
||||||
|
|
||||||
COUNT* $$/P62
|
COUNT* $$/P62
|
||||||
|
|
||||||
TC NEWMODEX # MODE CHANGE IF CAME FROM P61.
|
TC NEWMODEX # MODE CHANGE IF CAME FROM P61.
|
||||||
MM 62 # MODE CHANGE AUTOMATIC VIA V 37.
|
MM 62 # MODE CHANGE AUTOMATIC VIA V 37.
|
||||||
CA ONE
|
CA ONE
|
||||||
TS DNLSTCOD
|
TS DNLSTCOD
|
||||||
|
|
||||||
P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
|
P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
@ -187,14 +187,14 @@ P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
|
|||||||
P62.3 # CALCULATE DESIRED .05G GIMBAL ANGLES.
|
P62.3 # CALCULATE DESIRED .05G GIMBAL ANGLES.
|
||||||
# WITHOUT DISPLAY.
|
# WITHOUT DISPLAY.
|
||||||
CM/DAPIC # START CM/POSE AND BODY RATE CALC
|
CM/DAPIC # START CM/POSE AND BODY RATE CALC
|
||||||
|
|
||||||
# DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
|
# DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
|
||||||
# CM/DAPIC SETS EBANK = EBAOG
|
# CM/DAPIC SETS EBANK = EBAOG
|
||||||
# AND RETURNS IN BASIC TO P62.2.
|
# AND RETURNS IN BASIC TO P62.2.
|
||||||
P62.2 EXTEND
|
P62.2 EXTEND
|
||||||
DCA POSECADR # CONTINUE WITH CM/POSE AFTER AV G.
|
DCA POSECADR # CONTINUE WITH CM/POSE AFTER AV G.
|
||||||
DXCH AVEGEXIT
|
DXCH AVEGEXIT
|
||||||
|
|
||||||
CAF OCT41 # REQUEST SEPARATION
|
CAF OCT41 # REQUEST SEPARATION
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOPERF1R
|
CADR GOPERF1R
|
||||||
@ -204,42 +204,42 @@ P62.2 EXTEND
|
|||||||
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. ***
|
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. ***
|
||||||
TC -5 # ENTER
|
TC -5 # ENTER
|
||||||
TC P61.3 # FOR PHASCHNG AND ENDOFJOB
|
TC P61.3 # FOR PHASCHNG AND ENDOFJOB
|
||||||
|
|
||||||
+3 TC POSTJUMP
|
+3 TC POSTJUMP
|
||||||
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
|
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
|
||||||
# DO ATTITUDE HOLD.
|
# DO ATTITUDE HOLD.
|
||||||
|
|
||||||
# WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
|
# WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
|
||||||
# CM/DAPON DOES NO PHASCHNG.
|
# CM/DAPON DOES NO PHASCHNG.
|
||||||
|
|
||||||
P62.1 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
|
P62.1 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
|
||||||
# XXX.XX DEG XXX.XX DEG 0000X.
|
# XXX.XX DEG XXX.XX DEG 0000X.
|
||||||
|
|
||||||
# TERMINATE ATTITUDE HOLD. SET UP COMMANDS:
|
# TERMINATE ATTITUDE HOLD. SET UP COMMANDS:
|
||||||
# ROLLC, ALFACOM, BETACOM. BEGIN MANEUVER TO
|
# ROLLC, ALFACOM, BETACOM. BEGIN MANEUVER TO
|
||||||
# ENTRY ATTITUDE.
|
# ENTRY ATTITUDE.
|
||||||
|
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TC -3
|
TC -3
|
||||||
TC +2
|
TC +2
|
||||||
TC -5
|
TC -5
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 04024 # USE ENTRYVN FOR DISPLAY BELOW.
|
OCT 04024 # USE ENTRYVN FOR DISPLAY BELOW.
|
||||||
# EBANK WAS SET IN CM/DAPON TO EBAOG
|
# EBANK WAS SET IN CM/DAPON TO EBAOG
|
||||||
|
|
||||||
CCS HEADSUP # C(HEADSUP) = +/- 1
|
CCS HEADSUP # C(HEADSUP) = +/- 1
|
||||||
CA BIT14 # IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN)
|
CA BIT14 # IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN)
|
||||||
NOOP # IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP)
|
NOOP # IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP)
|
||||||
TS ROLLC
|
TS ROLLC
|
||||||
CA ALFAPAD # NOMINAL ALFATRIM PAD LOADED, NEG. NO.
|
CA ALFAPAD # NOMINAL ALFATRIM PAD LOADED, NEG. NO.
|
||||||
ZL
|
ZL
|
||||||
DXCH ALFACOM # SET ALFACOM = ALFA TRIM, BETACOM=0
|
DXCH ALFACOM # SET ALFACOM = ALFA TRIM, BETACOM=0
|
||||||
|
|
||||||
CA ONE # PERMITS EXDAP2 TO CHANGE FLAG TO +0
|
CA ONE # PERMITS EXDAP2 TO CHANGE FLAG TO +0
|
||||||
TS P63FLAG # AS INDICATOR. STARTS UP P63.
|
TS P63FLAG # AS INDICATOR. STARTS UP P63.
|
||||||
|
|
||||||
CA V06N22 # SET UP DISPLAY FOR CDU DESIRED VALUES
|
CA V06N22 # SET UP DISPLAY FOR CDU DESIRED VALUES
|
||||||
TS ENTRYVN # FROM ENTRY ATTITUDE CALC, THAT IS
|
TS ENTRYVN # FROM ENTRY ATTITUDE CALC, THAT IS
|
||||||
# ALREADY GOING.
|
# ALREADY GOING.
|
||||||
@ -253,26 +253,26 @@ SKIP
|
|||||||
BZF P63.1 # DISABLE GRP 4, GO TO ENDOFJOB.
|
BZF P63.1 # DISABLE GRP 4, GO TO ENDOFJOB.
|
||||||
# (I.E., CONTINUE IF CMDAPMOD = -1, OR +0)
|
# (I.E., CONTINUE IF CMDAPMOD = -1, OR +0)
|
||||||
TC P63
|
TC P63
|
||||||
|
|
||||||
# PUT JOB TO SLEEP UNTIL VEHICLE MANEUVER HAS
|
# PUT JOB TO SLEEP UNTIL VEHICLE MANEUVER HAS
|
||||||
# REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
|
# REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
|
||||||
# 65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
|
# 65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
|
||||||
# OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
|
# OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
|
||||||
# TIME.
|
# TIME.
|
||||||
|
|
||||||
# TASK WAKEP62 IS CALLED FROM ENTRY DAP.
|
# TASK WAKEP62 IS CALLED FROM ENTRY DAP.
|
||||||
WAKEP62 CA PRIO13
|
WAKEP62 CA PRIO13
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR P63
|
2CADR P63
|
||||||
|
|
||||||
TC TASKOVER
|
TC TASKOVER
|
||||||
|
|
||||||
# EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
|
# EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
|
||||||
# DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
|
# DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
|
||||||
# AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO
|
# AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO
|
||||||
# IN KEPLER PHASE OF ENTRY.
|
# IN KEPLER PHASE OF ENTRY.
|
||||||
|
|
||||||
P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE
|
P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE
|
||||||
QPRET # GOES DIRECTLY TO ENTRY GUIDANCE EXIT
|
QPRET # GOES DIRECTLY TO ENTRY GUIDANCE EXIT
|
||||||
ENDEXIT # THAT DOES ENTRY DISPLAY, GRP 5.
|
ENDEXIT # THAT DOES ENTRY DISPLAY, GRP 5.
|
||||||
@ -295,38 +295,38 @@ P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE
|
|||||||
# SUBROUTINE CALLS: NEWMODEX, GODSPR
|
# SUBROUTINE CALLS: NEWMODEX, GODSPR
|
||||||
|
|
||||||
COUNT* $$/P63
|
COUNT* $$/P63
|
||||||
|
|
||||||
P63 TC NEWMODEX
|
P63 TC NEWMODEX
|
||||||
MM 63
|
MM 63
|
||||||
|
|
||||||
# ARRIVE WITH EBANK = AOG.
|
# ARRIVE WITH EBANK = AOG.
|
||||||
|
|
||||||
CA ENTCADR # CONTINUE AT STARTENT AFTER CM/POSE.
|
CA ENTCADR # CONTINUE AT STARTENT AFTER CM/POSE.
|
||||||
|
|
||||||
# AT END OF STATEMENT, CHANGE ADDRESS IN GOTOADDR
|
# AT END OF STATEMENT, CHANGE ADDRESS IN GOTOADDR
|
||||||
# TO CONTINUE AT SCALEPOP THEREAFTER.
|
# TO CONTINUE AT SCALEPOP THEREAFTER.
|
||||||
|
|
||||||
TS POSEXIT
|
TS POSEXIT
|
||||||
|
|
||||||
CA V06N64 # G VI R TO SPLSH
|
CA V06N64 # G VI R TO SPLSH
|
||||||
# XXX.XX G XXXX. FPS XXXX.X NM
|
# XXX.XX G XXXX. FPS XXXX.X NM
|
||||||
TS ENTRYVN # FOR DISPLAY CALL IN OVERNOUT
|
TS ENTRYVN # FOR DISPLAY CALL IN OVERNOUT
|
||||||
|
|
||||||
CS ONE # IN CASE FLAG IS LEFT AT +1 BY DAP. THE
|
CS ONE # IN CASE FLAG IS LEFT AT +1 BY DAP. THE
|
||||||
TS P63FLAG # -1 ASSURES THAT EXO-ATM DAP WILL NOT
|
TS P63FLAG # -1 ASSURES THAT EXO-ATM DAP WILL NOT
|
||||||
# CALL P63 OUT OF SEQUENCE IN P66.
|
# CALL P63 OUT OF SEQUENCE IN P66.
|
||||||
|
|
||||||
TC PHASCHNG # THIS IS REQUIRED TO PRESERVE CLEANDSP
|
TC PHASCHNG # THIS IS REQUIRED TO PRESERVE CLEANDSP
|
||||||
OCT 00004 # RETURN IN EVENT OF AN EXTENDED VERB
|
OCT 00004 # RETURN IN EVENT OF AN EXTENDED VERB
|
||||||
|
|
||||||
TC BANKCALL # FLUSH 'N22' DISPLAY, IF ON, (OMIT
|
TC BANKCALL # FLUSH 'N22' DISPLAY, IF ON, (OMIT
|
||||||
CADR CLEANDSP # DISPLAY DURING 'STARTENT' PASS.)
|
CADR CLEANDSP # DISPLAY DURING 'STARTENT' PASS.)
|
||||||
|
|
||||||
P63.1 TC PHASCHNG
|
P63.1 TC PHASCHNG
|
||||||
OCT 00004 # DISABLE. DISPLAY RESTARTED VIA ENTRY.
|
OCT 00004 # DISABLE. DISPLAY RESTARTED VIA ENTRY.
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
V06N60 VN 0660
|
V06N60 VN 0660
|
||||||
V06N61 VN 0661
|
V06N61 VN 0661
|
||||||
V06N63 VN 0663
|
V06N63 VN 0663
|
||||||
@ -356,22 +356,22 @@ POSECADR 2CADR CM/POSE
|
|||||||
BANK 25
|
BANK 25
|
||||||
SETLOC P60S1
|
SETLOC P60S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
|
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
|
||||||
|
|
||||||
COUNT* $$/P64
|
COUNT* $$/P64
|
||||||
|
|
||||||
P64 TC NEWMODEX # ENTER VIA RTB WHEN .05G IS EXCEEDED.
|
P64 TC NEWMODEX # ENTER VIA RTB WHEN .05G IS EXCEEDED.
|
||||||
MM 64
|
MM 64
|
||||||
CA V06N74 # ROLLC VI D
|
CA V06N74 # ROLLC VI D
|
||||||
# XXX.XX DEG XXXXX. FPS XXX.XX G
|
# XXX.XX DEG XXXXX. FPS XXX.XX G
|
||||||
TS ENTRYVN # DISPLAY VIA OVERNOUT.
|
TS ENTRYVN # DISPLAY VIA OVERNOUT.
|
||||||
|
|
||||||
TC DANZIG # ... AND CONTINUE IN INITROLL ...
|
TC DANZIG # ... AND CONTINUE IN INITROLL ...
|
||||||
|
|
||||||
V06N74 VN 0674
|
V06N74 VN 0674
|
||||||
|
|
||||||
# Page 798
|
# Page 798
|
||||||
# PROGRAM: P65
|
# PROGRAM: P65
|
||||||
# MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITION.
|
# MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITION.
|
||||||
# FUNCTION: TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT
|
# FUNCTION: TO CONTINUE ENTRY GUIDANCE, USING THE UP-CONTROL PHASE TO STEER TO A CONTROLLED EXIT
|
||||||
@ -382,15 +382,15 @@ V06N74 VN 0674
|
|||||||
# SUBROUTINE CALLS: NEWMODEX
|
# SUBROUTINE CALLS: NEWMODEX
|
||||||
|
|
||||||
COUNT* $$/P65
|
COUNT* $$/P65
|
||||||
|
|
||||||
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
|
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
|
||||||
MM 65 # TARGET.
|
MM 65 # TARGET.
|
||||||
|
|
||||||
CA PRIO13
|
CA PRIO13
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= ENTRYVN
|
EBANK= ENTRYVN
|
||||||
2CADR P65.1
|
2CADR P65.1
|
||||||
|
|
||||||
TC 2PHSCHNG # 2 PHASE CHG REQUIRED TO PREVENT RE-
|
TC 2PHSCHNG # 2 PHASE CHG REQUIRED TO PREVENT RE-
|
||||||
OCT 00554 # STARTING FLASHING DISPLAY TWICE.
|
OCT 00554 # STARTING FLASHING DISPLAY TWICE.
|
||||||
OCT 10035 # 4.55 SPOT AND SERVICER, HERE.
|
OCT 10035 # 4.55 SPOT AND SERVICER, HERE.
|
||||||
@ -400,10 +400,10 @@ P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
|
|||||||
UPCONTRL
|
UPCONTRL
|
||||||
REFAZE10 # GO HERE TO REESTABLISH ENTRY SEQUENCER.
|
REFAZE10 # GO HERE TO REESTABLISH ENTRY SEQUENCER.
|
||||||
# AND CONTINUE AT UPCONTRL...
|
# AND CONTINUE AT UPCONTRL...
|
||||||
|
|
||||||
P65.1 TC DOWNFLAG
|
P65.1 TC DOWNFLAG
|
||||||
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
|
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
|
||||||
|
|
||||||
CA V16N69 # ROLLC DL (Q7) VL
|
CA V16N69 # ROLLC DL (Q7) VL
|
||||||
TC BANKCALL # XXX.XX DEG XXX.XX G XXXXX. FPS
|
TC BANKCALL # XXX.XX DEG XXX.XX G XXXXX. FPS
|
||||||
CADR GOFLASHR
|
CADR GOFLASHR
|
||||||
@ -414,11 +414,11 @@ P65.1 TC DOWNFLAG
|
|||||||
# IF PROCEED, CONTINUE
|
# IF PROCEED, CONTINUE
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
|
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
|
||||||
|
|
||||||
TC P63.1 # DISABLE GRP 4, START UP ENTRY DISPLAY
|
TC P63.1 # DISABLE GRP 4, START UP ENTRY DISPLAY
|
||||||
# N06V68 VIA OVERNOUT, AS USED IN P64
|
# N06V68 VIA OVERNOUT, AS USED IN P64
|
||||||
V16N69 VN 1669
|
V16N69 VN 1669
|
||||||
|
|
||||||
# Page 799
|
# Page 799
|
||||||
# PROGRAM: P66
|
# PROGRAM: P66
|
||||||
# MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITIONS
|
# MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITIONS
|
||||||
@ -429,18 +429,18 @@ V16N69 VN 1669
|
|||||||
# SUBROUTINE CALLS: NEWMODEX
|
# SUBROUTINE CALLS: NEWMODEX
|
||||||
|
|
||||||
COUNT* $$/P66
|
COUNT* $$/P66
|
||||||
|
|
||||||
P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
|
P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
|
||||||
MM 66
|
MM 66
|
||||||
|
|
||||||
CA V06N22 # OGA IGA MGA
|
CA V06N22 # OGA IGA MGA
|
||||||
# XXX.XX DEG XXX.XX DEG XXX.XX DEG
|
# XXX.XX DEG XXX.XX DEG XXX.XX DEG
|
||||||
TC P66END # IN CASE CAME FROM P65, GO TO DISABLE GRP 4,
|
TC P66END # IN CASE CAME FROM P65, GO TO DISABLE GRP 4,
|
||||||
# AND SET ENTRYDSP TO DO DISPLAY VIA
|
# AND SET ENTRYDSP TO DO DISPLAY VIA
|
||||||
# OVERNOUT.
|
# OVERNOUT.
|
||||||
|
|
||||||
# ... AND CONTINUE AT KEP2
|
# ... AND CONTINUE AT KEP2
|
||||||
|
|
||||||
# Page 800
|
# Page 800
|
||||||
# PROGRAM: P67
|
# PROGRAM: P67
|
||||||
# MOD NO: 0 MAR. 16, 1967
|
# MOD NO: 0 MAR. 16, 1967
|
||||||
@ -453,7 +453,7 @@ P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
|
|||||||
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
|
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
|
||||||
|
|
||||||
COUNT* $$/P67
|
COUNT* $$/P67
|
||||||
|
|
||||||
P67 TC NEWMODEX # ENTER VIA RTB
|
P67 TC NEWMODEX # ENTER VIA RTB
|
||||||
MM 67
|
MM 67
|
||||||
CA V06N66 # ROLLC XRNGERR DNRNGERR
|
CA V06N66 # ROLLC XRNGERR DNRNGERR
|
||||||
@ -465,15 +465,15 @@ P66END TS ENTRYVN # DISPLAY VIA OVERNOUT.
|
|||||||
# BIT 13 FLAG 6
|
# BIT 13 FLAG 6
|
||||||
KILLGRP4 TC PHASCHNG # DISABLE GRP4, IN CASE CAME FROM HUNTEST.
|
KILLGRP4 TC PHASCHNG # DISABLE GRP4, IN CASE CAME FROM HUNTEST.
|
||||||
OCT 00004 # (COME TO KILLGRP4 VIA RTB, RET TO CALLER)
|
OCT 00004 # (COME TO KILLGRP4 VIA RTB, RET TO CALLER)
|
||||||
|
|
||||||
TC DANZIG # ... AND CONTINUE AT PREDICT3 ...
|
TC DANZIG # ... AND CONTINUE AT PREDICT3 ...
|
||||||
|
|
||||||
V06N66 VN 0666
|
V06N66 VN 0666
|
||||||
|
|
||||||
BANK 26
|
BANK 26
|
||||||
SETLOC P60S2
|
SETLOC P60S2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
P67.1 CA V16N67 # RTOGO LAT LONG
|
P67.1 CA V16N67 # RTOGO LAT LONG
|
||||||
# XXXX.X NM XXX.XX DEG XXX.XX DEG
|
# XXXX.X NM XXX.XX DEG XXX.XX DEG
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -481,7 +481,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG
|
|||||||
TC +3 # EFFECTIVE GOTOP00H
|
TC +3 # EFFECTIVE GOTOP00H
|
||||||
TC +2
|
TC +2
|
||||||
TC P67.1 # REDO
|
TC P67.1 # REDO
|
||||||
|
|
||||||
CS THREE # TURN OFF ENTRY DAP
|
CS THREE # TURN OFF ENTRY DAP
|
||||||
INHINT
|
INHINT
|
||||||
MASK CM/FLAGS # CM/DSTBY, GAMDIFSW
|
MASK CM/FLAGS # CM/DSTBY, GAMDIFSW
|
||||||
@ -489,12 +489,12 @@ P67.1 CA V16N67 # RTOGO LAT LONG
|
|||||||
RELINT
|
RELINT
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA SERVCAD2
|
DCA SERVCAD2
|
||||||
|
|
||||||
# Page 801
|
# Page 801
|
||||||
DXCH AVEGEXIT
|
DXCH AVEGEXIT
|
||||||
|
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
|
|
||||||
# Page 802
|
# Page 802
|
||||||
P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
|
P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
|
||||||
RN
|
RN
|
||||||
@ -506,13 +506,13 @@ P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
|
|||||||
LAT-LONG
|
LAT-LONG
|
||||||
P67.3 RTB # ENTRY EXIT THAT OMITS DISPLAY.
|
P67.3 RTB # ENTRY EXIT THAT OMITS DISPLAY.
|
||||||
SERVNOUT
|
SERVNOUT
|
||||||
|
|
||||||
V16N67 VN 1667
|
V16N67 VN 1667
|
||||||
OCT41 = 33DEC
|
OCT41 = 33DEC
|
||||||
SERVCAD2 = SERVCAD1
|
SERVCAD2 = SERVCAD1
|
||||||
|
|
||||||
# Page 803
|
# Page 803
|
||||||
# SUBROUTINE NAME: S61.1
|
# SUBROUTINE NAME: S61.1
|
||||||
# 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.
|
||||||
@ -559,9 +559,9 @@ SERVCAD2 = SERVCAD1
|
|||||||
BANK 26
|
BANK 26
|
||||||
SETLOC P60S3
|
SETLOC P60S3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/S61.1
|
COUNT* $$/S61.1
|
||||||
|
|
||||||
S61.1 EXTEND
|
S61.1 EXTEND
|
||||||
QXCH 60GENRET # SAVE RET ADDR IN EB 6
|
QXCH 60GENRET # SAVE RET ADDR IN EB 6
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
@ -572,36 +572,36 @@ S61.1 EXTEND
|
|||||||
AVEGFLAG # IS AVERAGEG ON
|
AVEGFLAG # IS AVERAGEG ON
|
||||||
S61.1A # YES
|
S61.1A # YES
|
||||||
MIDTOAV2 # GET FUTURE STATE VECTOR SOON AS CAN
|
MIDTOAV2 # GET FUTURE STATE VECTOR SOON AS CAN
|
||||||
|
|
||||||
CA MPAC +1 # RETURN INHINTED ***
|
CA MPAC +1 # RETURN INHINTED ***
|
||||||
TS S61DT # FOR RESTART.
|
TS S61DT # FOR RESTART.
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
2CADR S61.1C
|
2CADR S61.1C
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 40434
|
OCT 40434
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
S61.1C CA PRIO13
|
S61.1C CA PRIO13
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR S61.1A -1
|
2CADR S61.1A -1
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA SERVCAD1 # HE WHO START AVERAGEG MUST SERVICE
|
DCA SERVCAD1 # HE WHO START AVERAGEG MUST SERVICE
|
||||||
DXCH AVEGEXIT # THE EXIT.
|
DXCH AVEGEXIT # THE EXIT.
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 00454
|
OCT 00454
|
||||||
OCT 00415
|
OCT 00415
|
||||||
|
|
||||||
CA EBENTRY # SET EB= 7 FOR PREREAD.
|
CA EBENTRY # SET EB= 7 FOR PREREAD.
|
||||||
TS EBANK
|
TS EBANK
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR PREREAD # PREREAD DOES TC TASKOVER.
|
CADR PREREAD # PREREAD DOES TC TASKOVER.
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
S61.1A BOVB VLOAD
|
S61.1A BOVB VLOAD
|
||||||
TCDANZIG # TURN OFF OVFIND, IF ON
|
TCDANZIG # TURN OFF OVFIND, IF ON
|
||||||
@ -622,21 +622,21 @@ S61.1B DCOMP DAD
|
|||||||
C(30)LIM # = 1.0 - .5 COS(30)
|
C(30)LIM # = 1.0 - .5 COS(30)
|
||||||
BOVB EXIT
|
BOVB EXIT
|
||||||
RETRN2
|
RETRN2
|
||||||
|
|
||||||
RETRN3 TC ALARM
|
RETRN3 TC ALARM
|
||||||
OCT 01426 # IMU UNSATISFACTORY
|
OCT 01426 # IMU UNSATISFACTORY
|
||||||
TC RETRN2 +2
|
TC RETRN2 +2
|
||||||
|
|
||||||
RETRN2 TC ALARM
|
RETRN2 TC ALARM
|
||||||
OCT 01427 # IMU REVERSED
|
OCT 01427 # IMU REVERSED
|
||||||
|
|
||||||
+2 CAF V05N09
|
+2 CAF V05N09
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GODSPR # DO DISPLAY
|
CADR GODSPR # DO DISPLAY
|
||||||
CA 10SECS
|
CA 10SECS
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR DELAYJOB
|
CADR DELAYJOB
|
||||||
|
|
||||||
RETRN1 TC 60GENRET
|
RETRN1 TC 60GENRET
|
||||||
|
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
@ -723,7 +723,7 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
|
|||||||
BANK 34
|
BANK 34
|
||||||
SETLOC P60S2
|
SETLOC P60S2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/S61.2
|
COUNT* $$/S61.2
|
||||||
# PDL LEFT AT ZERO BY TARGETING
|
# PDL LEFT AT ZERO BY TARGETING
|
||||||
|
|
||||||
@ -735,30 +735,30 @@ S61.2 DLOAD DSU
|
|||||||
1/RTMU # ESTABLISH MU FOR ORBITAL ENTRIES
|
1/RTMU # ESTABLISH MU FOR ORBITAL ENTRIES
|
||||||
CALLCON CALL
|
CALLCON CALL
|
||||||
TFFCONIC # FILL VAC AREA WITH CONIC PARAMETERS
|
TFFCONIC # FILL VAC AREA WITH CONIC PARAMETERS
|
||||||
|
|
||||||
DLOAD CALL
|
DLOAD CALL
|
||||||
RTRIAL # 1ST GUESS AT TERMINAL RADIUS (-29)
|
RTRIAL # 1ST GUESS AT TERMINAL RADIUS (-29)
|
||||||
CALCTFF # SAVES MPAC IN RTERM (18D)
|
CALCTFF # SAVES MPAC IN RTERM (18D)
|
||||||
|
|
||||||
CALL # CALC SDELF/2, CDELF/2
|
CALL # CALC SDELF/2, CDELF/2
|
||||||
TFF/TRIG # RETURN WITH S(THETA) IN MPAC
|
TFF/TRIG # RETURN WITH S(THETA) IN MPAC
|
||||||
|
|
||||||
CALL # GET FISCHER RADIUS (-29) M
|
CALL # GET FISCHER RADIUS (-29) M
|
||||||
FISHCALC # ANS IN MPAC AND IN ERADM
|
FISHCALC # ANS IN MPAC AND IN ERADM
|
||||||
|
|
||||||
DAD CALL
|
DAD CALL
|
||||||
EMSALT
|
EMSALT
|
||||||
CALCTFF # SAVES MPAC IN RTERM (18D)
|
CALCTFF # SAVES MPAC IN RTERM (18D)
|
||||||
|
|
||||||
DCOMP # NEGATIVE AS IN COUNTDOWN
|
DCOMP # NEGATIVE AS IN COUNTDOWN
|
||||||
STORE TTE1 # DECR TTE FROM BASB TTE1. (RESTART)
|
STORE TTE1 # DECR TTE FROM BASB TTE1. (RESTART)
|
||||||
# DNLIST AND DSKY WILL USE TTE.
|
# DNLIST AND DSKY WILL USE TTE.
|
||||||
STCALL TTE # LET MISS CONTRL DECR BY ELAPSED TIME
|
STCALL TTE # LET MISS CONTRL DECR BY ELAPSED TIME
|
||||||
# TTE= TIME FROM NOW TO EMSALT +FISCHER
|
# TTE= TIME FROM NOW TO EMSALT +FISCHER
|
||||||
|
|
||||||
TFF/TRIG # S(THETA) IN MPAC ON RETURNING
|
TFF/TRIG # S(THETA) IN MPAC ON RETURNING
|
||||||
# AND THETA= RANGE FROM NOW TO EMSALT
|
# AND THETA= RANGE FROM NOW TO EMSALT
|
||||||
|
|
||||||
CALL
|
CALL
|
||||||
FISHCALC
|
FISHCALC
|
||||||
CALL
|
CALL
|
||||||
@ -770,26 +770,26 @@ CALLCON CALL
|
|||||||
STCALL RTGO
|
STCALL RTGO
|
||||||
# Page 809
|
# Page 809
|
||||||
VGAMCALC
|
VGAMCALC
|
||||||
|
|
||||||
DMP # MPAC = GAMMA
|
DMP # MPAC = GAMMA
|
||||||
# PDL0 HAS VGAM.
|
# PDL0 HAS VGAM.
|
||||||
BDDV DAD
|
BDDV DAD
|
||||||
VEMSCON # -HS D 180/PI (-14)
|
VEMSCON # -HS D 180/PI (-14)
|
||||||
0 # VGAM FROM PDL0
|
0 # VGAM FROM PDL0
|
||||||
STODL VIO # PREDICTED VELOCITY AT EMSALT.
|
STODL VIO # PREDICTED VELOCITY AT EMSALT.
|
||||||
|
|
||||||
# GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX
|
# GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX
|
||||||
# ALGORITHM.
|
# ALGORITHM.
|
||||||
|
|
||||||
ERADM # EARTH RADIUS FROM GETERAD (-29) M
|
ERADM # EARTH RADIUS FROM GETERAD (-29) M
|
||||||
# = FISCHER RADIUS (-29)
|
# = FISCHER RADIUS (-29)
|
||||||
|
|
||||||
DAD
|
DAD
|
||||||
300KFT # M (-29)
|
300KFT # M (-29)
|
||||||
STCALL RTERM # TERMINAL RADIUS M (-29)
|
STCALL RTERM # TERMINAL RADIUS M (-29)
|
||||||
|
|
||||||
PREVGAM # VGAMCALC WITH NEW RTERM
|
PREVGAM # VGAMCALC WITH NEW RTERM
|
||||||
|
|
||||||
# VBAR = (V(FPS) - 36KF/S) / 20 F/S
|
# VBAR = (V(FPS) - 36KF/S) / 20 F/S
|
||||||
# GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
|
# GMAX = (4/(1 + 4.8 VBARSQ))(GAM - 6.05 - 2.4 VBARSQ) - 10(L/D - .3) + 10 ASSUME L/D = 0.3, BANK =0.
|
||||||
|
|
||||||
@ -800,7 +800,7 @@ CALLCON CALL
|
|||||||
DDV DSQ
|
DDV DSQ
|
||||||
20KFT/S # (-6) M/CS
|
20KFT/S # (-6) M/CS
|
||||||
STORE 0 # VBARSQ (-2) TO PDL0
|
STORE 0 # VBARSQ (-2) TO PDL0
|
||||||
|
|
||||||
DMP DAD
|
DMP DAD
|
||||||
KR1
|
KR1
|
||||||
# GAM, POS DOWN, FROM PDL2
|
# GAM, POS DOWN, FROM PDL2
|
||||||
@ -829,27 +829,27 @@ CALLCON CALL
|
|||||||
TFF/TRIG # GET SIN, COS DELF
|
TFF/TRIG # GET SIN, COS DELF
|
||||||
CALL
|
CALL
|
||||||
FISHCALC # GET CORRESPONDING FISCHER RADIUS.
|
FISHCALC # GET CORRESPONDING FISCHER RADIUS.
|
||||||
|
|
||||||
DAD LXA,2 # SAVE HI-WORD FOR DOWNLIST.
|
DAD LXA,2 # SAVE HI-WORD FOR DOWNLIST.
|
||||||
400KFT # M (-29)
|
400KFT # M (-29)
|
||||||
RTGO # (RANGE ANGLE FROM EMSALT) / 360
|
RTGO # (RANGE ANGLE FROM EMSALT) / 360
|
||||||
STCALL RTERM
|
STCALL RTERM
|
||||||
PREVGAM # VGAMCALC WITH NEW RTERM
|
PREVGAM # VGAMCALC WITH NEW RTERM
|
||||||
|
|
||||||
DCOMP SXA,2 # HI-WORD OF EACH ON DOWNLIST.
|
DCOMP SXA,2 # HI-WORD OF EACH ON DOWNLIST.
|
||||||
MPAC +1
|
MPAC +1
|
||||||
STODL GAMMAEI # CONIC GAMMA/360 AT 400K FT. (HI-WORD)
|
STODL GAMMAEI # CONIC GAMMA/360 AT 400K FT. (HI-WORD)
|
||||||
# CONIC RTGO/360 FROM EMSALT (LOW-WORD)
|
# CONIC RTGO/360 FROM EMSALT (LOW-WORD)
|
||||||
# FOR TM, DP(GAMMAEI) = (GAMMA, RTGO) / 360
|
# FOR TM, DP(GAMMAEI) = (GAMMA, RTGO) / 360
|
||||||
|
|
||||||
# VGAM FROM PDL+0 (-7)
|
# VGAM FROM PDL+0 (-7)
|
||||||
STADR
|
STADR
|
||||||
STORE VPRED # CONIC VELOCITY AT 400K FT
|
STORE VPRED # CONIC VELOCITY AT 400K FT
|
||||||
|
|
||||||
RTB
|
RTB
|
||||||
P61.1
|
P61.1
|
||||||
# PDL BACK TO ZERO.
|
# PDL BACK TO ZERO.
|
||||||
|
|
||||||
LUNENT DLOAD GOTO
|
LUNENT DLOAD GOTO
|
||||||
1/RTMUE # ESTABLISH MU FOR LUNAR TYPE ENTRIES
|
1/RTMUE # ESTABLISH MU FOR LUNAR TYPE ENTRIES
|
||||||
CALLCON
|
CALLCON
|
||||||
@ -940,7 +940,7 @@ FISHCALC PDVL VXV # URPR = UR CDELF + UHOR SDELF
|
|||||||
DUMPFISH GOTO
|
DUMPFISH GOTO
|
||||||
GETERAD # SAVES FISCHER RAD (-29) M IN ERADM AND
|
GETERAD # SAVES FISCHER RAD (-29) M IN ERADM AND
|
||||||
# IN MPAC. RETURNS TO CALLER VIO QPRET.
|
# IN MPAC. RETURNS TO CALLER VIO QPRET.
|
||||||
|
|
||||||
# Page 813
|
# Page 813
|
||||||
# SUBROUTINE NAME: VGAMCALC (USED BY S61.2) DATE: 01.21.67
|
# SUBROUTINE NAME: VGAMCALC (USED BY S61.2) DATE: 01.21.67
|
||||||
# MOD NO: 0 LOG SECTION: P61-P67
|
# MOD NO: 0 LOG SECTION: P61-P67
|
||||||
@ -971,7 +971,7 @@ DUMPFISH GOTO
|
|||||||
# NORMAL EXIT MODE: RVQ
|
# NORMAL EXIT MODE: RVQ
|
||||||
#
|
#
|
||||||
# ALARMS: NONE
|
# ALARMS: NONE
|
||||||
#
|
#
|
||||||
# OUTPUT: GAMMA / 360 IN MPAC, POSITIVE NUMBER
|
# OUTPUT: GAMMA / 360 IN MPAC, POSITIVE NUMBER
|
||||||
# VGAM E: (-7) M: (-5) M/CS IN PDL+0
|
# VGAM E: (-7) M: (-5) M/CS IN PDL+0
|
||||||
# PUSHLOC AT PDL+2
|
# PUSHLOC AT PDL+2
|
||||||
@ -1005,7 +1005,7 @@ VGAMCALC DLOAD DMP
|
|||||||
NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
|
NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
|
||||||
SL* DDV # 2(RN-RTERM) E: (-30+NR) M: (-28+NR)
|
SL* DDV # 2(RN-RTERM) E: (-30+NR) M: (-28+NR)
|
||||||
0 -8D,1 # (-8+NR)
|
0 -8D,1 # (-8+NR)
|
||||||
# PUSH UP PRODUCT.
|
# PUSH UP PRODUCT.
|
||||||
DSU
|
DSU
|
||||||
TFFVSQ # -(V SQ/MU) E: (20) M: (18)
|
TFFVSQ # -(V SQ/MU) E: (20) M: (18)
|
||||||
SQRT PUSH # SAVE VGAM/RT(MU) FOR NOW. E: (10) M: (9)
|
SQRT PUSH # SAVE VGAM/RT(MU) FOR NOW. E: (10) M: (9)
|
||||||
@ -1062,7 +1062,7 @@ DUMPVGAM RVQ
|
|||||||
# TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
|
# TFFTEM E: (-59+2NR) ARG LEFT BY CALCTFF OR CALCTPER
|
||||||
# M: (-55+2NR) WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
|
# M: (-55+2NR) WHERE ARG = LCF ZZ SGN(DELF) OR ARG = LCP/ALFA SGN(DELF)
|
||||||
# NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
|
# NRTERM E: (-29+NR) M NORM LENGTH OF TERMINAL RADIUS LEFT BY CALCTFF OR CALCTPER
|
||||||
# M: (-27+NR)
|
# M: (-27+NR)
|
||||||
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
|
||||||
# M: (-27+NR)
|
# M: (-27+NR)
|
||||||
#
|
#
|
||||||
@ -1089,9 +1089,9 @@ TFF/TRIG DLOAD SR1
|
|||||||
DUMPTRIG SIGN RVQ
|
DUMPTRIG SIGN RVQ
|
||||||
TFFTEM # AFFIX SIGN(DELE/2)
|
TFFTEM # AFFIX SIGN(DELE/2)
|
||||||
# RETURN WITH .5 SIN(THETA) IN MPAC
|
# RETURN WITH .5 SIN(THETA) IN MPAC
|
||||||
|
|
||||||
# 16W 15MS
|
# 16W 15MS
|
||||||
|
|
||||||
DISPTARG STQ # C(MPAC = TRGO ESTIMATE
|
DISPTARG STQ # C(MPAC = TRGO ESTIMATE
|
||||||
60GENRET
|
60GENRET
|
||||||
DMP DSU
|
DMP DSU
|
||||||
@ -1164,7 +1164,7 @@ VRCALC VLOAD DOT
|
|||||||
# UZA/2 REF COORDS LEFT BY CM/POSE
|
# UZA/2 REF COORDS LEFT BY CM/POSE
|
||||||
#
|
#
|
||||||
# OUTPUT
|
# OUTPUT
|
||||||
#
|
#
|
||||||
# CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180
|
# CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180
|
||||||
#
|
#
|
||||||
# DEBRIS
|
# DEBRIS
|
||||||
@ -1176,7 +1176,7 @@ VRCALC VLOAD DOT
|
|||||||
BANK
|
BANK
|
||||||
# Page 818
|
# Page 818
|
||||||
COUNT* $$/S62.3
|
COUNT* $$/S62.3
|
||||||
|
|
||||||
S62.3 SETPD SLOAD
|
S62.3 SETPD SLOAD
|
||||||
0
|
0
|
||||||
ALFAPAD # ALFATRIM / 180, ALFA IS NEG.
|
ALFAPAD # ALFATRIM / 180, ALFA IS NEG.
|
||||||
@ -1193,7 +1193,7 @@ S62.3 SETPD SLOAD
|
|||||||
# VECTOR FROM PDL4...9
|
# VECTOR FROM PDL4...9
|
||||||
VSL1
|
VSL1
|
||||||
STORE YNB # = UYD REF COORDS
|
STORE YNB # = UYD REF COORDS
|
||||||
|
|
||||||
VXV VSL1
|
VXV VSL1
|
||||||
UXA/2 # REF COORDS
|
UXA/2 # REF COORDS
|
||||||
VXSC PDDL
|
VXSC PDDL
|
||||||
@ -1204,7 +1204,7 @@ S62.3 SETPD SLOAD
|
|||||||
# FROM PDL0
|
# FROM PDL0
|
||||||
VSL1
|
VSL1
|
||||||
STORE XNB # X SC AXIS (.5 UNIT) REF COORDS
|
STORE XNB # X SC AXIS (.5 UNIT) REF COORDS
|
||||||
|
|
||||||
VXV VSL1
|
VXV VSL1
|
||||||
YNB
|
YNB
|
||||||
STOVL ZNB # Z SC IN REF COOR. SCALED AT 2
|
STOVL ZNB # Z SC IN REF COOR. SCALED AT 2
|
||||||
@ -1214,12 +1214,12 @@ S62.3 SETPD SLOAD
|
|||||||
STOVL YSM
|
STOVL YSM
|
||||||
REFSMMAT +12D
|
REFSMMAT +12D
|
||||||
STORE ZSM
|
STORE ZSM
|
||||||
|
|
||||||
CLEAR GOTO
|
CLEAR GOTO
|
||||||
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
|
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
|
||||||
CALCGA
|
CALCGA
|
||||||
# CALCGA WILL RETURN TO ORIGINAL CALLER
|
# CALCGA WILL RETURN TO ORIGINAL CALLER
|
||||||
# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI
|
# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -7,9 +7,9 @@
|
|||||||
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: pp 511-513
|
# Pages: pp 511-513
|
||||||
# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file
|
# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images 0511.jpg - 0513.jpg.
|
# images 0511.jpg - 0513.jpg.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
# images of a hardcopy from the MIT Museum. The digitization was performed
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -62,7 +62,7 @@ P76 TC UPFLAG
|
|||||||
CAF V06N84 # FLASH LAST DELTA V.
|
CAF V06N84 # FLASH LAST DELTA V.
|
||||||
TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
|
TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TCF ENDP76
|
TCF ENDP76
|
||||||
TC +2 # PROCEED
|
TC +2 # PROCEED
|
||||||
TC -5 # STORE DATA AND REPEAT FLASHING
|
TC -5 # STORE DATA AND REPEAT FLASHING
|
||||||
CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
|
CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
|
||||||
@ -131,7 +131,7 @@ INTOTHIS STCALL TDEC1
|
|||||||
# Page 513
|
# Page 513
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES REINTFLG
|
ADRES REINTFLG
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
ATOPOTH
|
ATOPOTH
|
||||||
@ -144,19 +144,19 @@ OUT EXIT
|
|||||||
ENDP76 CAF ZERO
|
ENDP76 CAF ZERO
|
||||||
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
|
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
|
||||||
TS VHFCNT
|
TS VHFCNT
|
||||||
|
|
||||||
CAF NEGONE
|
CAF NEGONE
|
||||||
TS MRKBUF2 # INVALIDATE MARK BUFFER
|
TS MRKBUF2 # INVALIDATE MARK BUFFER
|
||||||
|
|
||||||
TCF GOTOP00H
|
TCF GOTOP00H
|
||||||
|
|
||||||
V06N84 NV 0684
|
V06N84 NV 0684
|
||||||
NV 0633
|
NV 0633
|
||||||
P76SUB1 CLEAR SLOAD
|
P76SUB1 CLEAR SLOAD
|
||||||
MOONFLAG
|
MOONFLAG
|
||||||
X2
|
X2
|
||||||
BHIZ SET # X2=0...CLEAR MOONFLAG
|
BHIZ SET # X2=0...CLEAR MOONFLAG
|
||||||
+2 # =2.....SET MOONFLAG
|
+2 # =2.....SET MOONFLAG
|
||||||
MOONFLAG
|
MOONFLAG
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -62,7 +62,7 @@ TCQ = Q+2 +1
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 10/PHASE
|
COUNT 10/PHASE
|
||||||
|
|
||||||
SETUPDSP INHINT
|
SETUPDSP INHINT
|
||||||
DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
|
DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
|
||||||
CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
|
CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
|
||||||
@ -196,7 +196,7 @@ DSPMMJOB EQUALS DSPMMJB
|
|||||||
# AD+4 # FOR GROUP 5 PHASE INFORMATION.
|
# AD+4 # FOR GROUP 5 PHASE INFORMATION.
|
||||||
|
|
||||||
COUNT 02/PHASE
|
COUNT 02/PHASE
|
||||||
|
|
||||||
2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
|
2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
|
||||||
NDX Q
|
NDX Q
|
||||||
CA 0
|
CA 0
|
||||||
@ -221,7 +221,7 @@ DSPMMJOB EQUALS DSPMMJB
|
|||||||
PHASCHNG INHINT
|
PHASCHNG INHINT
|
||||||
CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY
|
CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY
|
||||||
TS TEMPSW2
|
TS TEMPSW2
|
||||||
|
|
||||||
NDX Q
|
NDX Q
|
||||||
CA 0
|
CA 0
|
||||||
INCR Q
|
INCR Q
|
||||||
@ -304,7 +304,7 @@ BB EQUALS BBANK
|
|||||||
|
|
||||||
EBANK= PHSNAME1
|
EBANK= PHSNAME1
|
||||||
COUNT 10/PHASE
|
COUNT 10/PHASE
|
||||||
|
|
||||||
PHSCHNG2 LXCH TEMPBBCN
|
PHSCHNG2 LXCH TEMPBBCN
|
||||||
CA TEMPSW
|
CA TEMPSW
|
||||||
MASK OCT7
|
MASK OCT7
|
||||||
@ -395,12 +395,12 @@ CON2 LXCH TEMPBBCN
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/PHASE
|
COUNT 02/PHASE
|
||||||
|
|
||||||
CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
|
CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
|
||||||
CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
|
CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
|
||||||
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
|
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
|
||||||
|
|
||||||
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
|
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -11,11 +11,11 @@
|
|||||||
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
|
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
|
||||||
# 2009-05-23 RSB In NNTYPTAB, corrected former 13 SPARE.
|
# 2009-05-23 RSB In NNTYPTAB, corrected former 13 SPARE.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -129,9 +129,9 @@
|
|||||||
BANK 06
|
BANK 06
|
||||||
SETLOC PINBALL3
|
SETLOC PINBALL3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 42/NOUNS
|
COUNT 42/NOUNS
|
||||||
|
|
||||||
LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
|
LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
|
||||||
INDEX NOUNREG
|
INDEX NOUNREG
|
||||||
CAF NNADTAB
|
CAF NNADTAB
|
||||||
@ -162,7 +162,7 @@ LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
|
|||||||
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
|
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
|
||||||
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
|
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
|
||||||
DXCH Z
|
DXCH Z
|
||||||
|
|
||||||
MIXCON = OCT50 # FIRST MIXED NOUN =40. (DEC 40)
|
MIXCON = OCT50 # FIRST MIXED NOUN =40. (DEC 40)
|
||||||
|
|
||||||
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
|
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
|
||||||
@ -174,7 +174,7 @@ GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1.
|
|||||||
DCA SFOUTAB
|
DCA SFOUTAB
|
||||||
SFCOM DXCH SFTEMP1
|
SFCOM DXCH SFTEMP1
|
||||||
DXCH Z
|
DXCH Z
|
||||||
|
|
||||||
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
|
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
|
||||||
|
|
||||||
GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
|
GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
|
||||||
@ -182,7 +182,7 @@ GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
|
|||||||
INDEX A
|
INDEX A
|
||||||
DCA SFINTAB
|
DCA SFINTAB
|
||||||
TCF SFCOM
|
TCF SFCOM
|
||||||
|
|
||||||
# NN NORMAL NOUNS
|
# NN NORMAL NOUNS
|
||||||
|
|
||||||
NNADTAB OCT 00000 # 00 NOT IN USE
|
NNADTAB OCT 00000 # 00 NOT IN USE
|
||||||
@ -230,7 +230,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
|
|||||||
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
|
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
|
||||||
ECADR TET # 38 TIME OF STATE VECTOR
|
ECADR TET # 38 TIME OF STATE VECTOR
|
||||||
ECADR T3TOT4 # 39 DELTA TIME TO TRANSFER (HRS,MIN,SEC)
|
ECADR T3TOT4 # 39 DELTA TIME TO TRANSFER (HRS,MIN,SEC)
|
||||||
|
|
||||||
# END OF NNADTAB FOR NORMAL NOUNS
|
# END OF NNADTAB FOR NORMAL NOUNS
|
||||||
|
|
||||||
# NN MIXED NOUNS
|
# NN MIXED NOUNS
|
||||||
@ -367,7 +367,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
|
|||||||
OCT 24261 # 99 RMS IN POSITION
|
OCT 24261 # 99 RMS IN POSITION
|
||||||
# RMS IN VELOCITY
|
# RMS IN VELOCITY
|
||||||
# RMS OPTION
|
# RMS OPTION
|
||||||
|
|
||||||
# END OF NNADTAB FOR MIXED NOUNS
|
# END OF NNADTAB FOR MIXED NOUNS
|
||||||
|
|
||||||
# NN NORMAL NOUNS
|
# NN NORMAL NOUNS
|
||||||
@ -412,13 +412,13 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
|
|||||||
OCT 24400 # 37 3COMP HMS (DEC ONLY)
|
OCT 24400 # 37 3COMP HMS (DEC ONLY)
|
||||||
OCT 24400 # 38 3COMP HMS (DEC ONLY)
|
OCT 24400 # 38 3COMP HMS (DEC ONLY)
|
||||||
OCT 24400 # 39 3COMP HMS (DEC ONLY)
|
OCT 24400 # 39 3COMP HMS (DEC ONLY)
|
||||||
|
|
||||||
# END OF NNTYPTAB FOR NORMAL NOUNS
|
# END OF NNTYPTAB FOR NORMAL NOUNS
|
||||||
|
|
||||||
# NN MIXED NOUNS
|
# NN MIXED NOUNS
|
||||||
|
|
||||||
OCT 24500 # 40 3COMP MIN/SEC, VEL3, VEL3
|
OCT 24500 # 40 3COMP MIN/SEC, VEL3, VEL3
|
||||||
# (NO LOAD, DEC ONLY)
|
# (NO LOAD, DEC ONLY)
|
||||||
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
|
OCT 00542 # 41 2COMP CDU DEG, ELEV DEG
|
||||||
OCT 24410 # 42 3COMP POS4, POS4, VEL3
|
OCT 24410 # 42 3COMP POS4, POS4, VEL3
|
||||||
# (DEC ONLY)
|
# (DEC ONLY)
|
||||||
@ -519,7 +519,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
|
|||||||
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
|
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
|
||||||
OCT 01162 # 99 3COMP POS9, VEL4, WHOLE
|
OCT 01162 # 99 3COMP POS9, VEL4, WHOLE
|
||||||
# (DEC ONLY)
|
# (DEC ONLY)
|
||||||
|
|
||||||
# END OF NNTYPTAB FOR MIXED NOUNS
|
# END OF NNTYPTAB FOR MIXED NOUNS
|
||||||
|
|
||||||
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
|
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
|
||||||
@ -560,9 +560,9 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
|
|||||||
OCT 27176 # POSITION 8
|
OCT 27176 # POSITION 8
|
||||||
OCT 14235
|
OCT 14235
|
||||||
2DEC 30480 B-19 # POSITION 9
|
2DEC 30480 B-19 # POSITION 9
|
||||||
|
|
||||||
2DEC 30.48 B-7 # VELOCITY4
|
2DEC 30.48 B-7 # VELOCITY4
|
||||||
|
|
||||||
# END OF SFINTAB
|
# END OF SFINTAB
|
||||||
|
|
||||||
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
|
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
|
||||||
@ -603,9 +603,9 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
|
|||||||
OCT 00260 # POSITION 8
|
OCT 00260 # POSITION 8
|
||||||
OCT 06213
|
OCT 06213
|
||||||
2DEC 17.2010499 B-7 # POSITION 9
|
2DEC 17.2010499 B-7 # POSITION 9
|
||||||
|
|
||||||
2DEC .032808399 # VELOCITY4
|
2DEC .032808399 # VELOCITY4
|
||||||
|
|
||||||
# END OF SFOUTAB
|
# END OF SFOUTAB
|
||||||
|
|
||||||
# NN SF CONSTANT SF ROUTINE
|
# NN SF CONSTANT SF ROUTINE
|
||||||
@ -794,7 +794,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
|
|||||||
ECADR WWPOS # 99 POS9 DP3
|
ECADR WWPOS # 99 POS9 DP3
|
||||||
ECADR WWVEL # 99 VEL4 DP2
|
ECADR WWVEL # 99 VEL4 DP2
|
||||||
ECADR WWOPT # 99 WHOLE ARTH
|
ECADR WWOPT # 99 WHOLE ARTH
|
||||||
|
|
||||||
# END OF IDADDTAB
|
# END OF IDADDTAB
|
||||||
|
|
||||||
# NN SF ROUTINES
|
# NN SF ROUTINES
|
||||||
@ -860,7 +860,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
|
|||||||
OCT 06143 # 97 ARTH, ARTH, ARTH
|
OCT 06143 # 97 ARTH, ARTH, ARTH
|
||||||
OCT 06043 # 98 ARTH, FRAC, ARTH
|
OCT 06043 # 98 ARTH, FRAC, ARTH
|
||||||
OCT 06247 # 99 DP3, DP2, ARTH
|
OCT 06247 # 99 DP3, DP2, ARTH
|
||||||
|
|
||||||
# END OF RUTMXTAB
|
# END OF RUTMXTAB
|
||||||
|
|
||||||
SBANK= LOWSUPER
|
SBANK= LOWSUPER
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
|
|||||||
@ -6,7 +6,7 @@
|
|||||||
# Assembler: yaYUL
|
# Assembler: yaYUL
|
||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1365-1372
|
# Pages: 1365-1372
|
||||||
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
|
||||||
# from the Colossus249/ file of the same
|
# from the Colossus249/ file of the same
|
||||||
# name, using Comanche055 page images.
|
# name, using Comanche055 page images.
|
||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -158,7 +158,7 @@ QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
|
|||||||
|
|
||||||
NBSM STQ
|
NBSM STQ
|
||||||
X2
|
X2
|
||||||
LXC,1 VLOAD*
|
LXC,1 VLOAD*
|
||||||
S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1
|
S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1
|
||||||
0,1
|
0,1
|
||||||
STOVL CDUSPOT
|
STOVL CDUSPOT
|
||||||
@ -330,32 +330,32 @@ INDEXI DEC 4 # ********** DON'T ***********
|
|||||||
BANK 14
|
BANK 14
|
||||||
SETLOC POWFLIT1
|
SETLOC POWFLIT1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
SMCDURES DLOAD DMP
|
SMCDURES DLOAD DMP
|
||||||
DTHETASM
|
DTHETASM
|
||||||
COSCDUY
|
COSCDUY
|
||||||
|
|
||||||
PDDL DMP
|
PDDL DMP
|
||||||
DTHETASM +4
|
DTHETASM +4
|
||||||
SINCDUY
|
SINCDUY
|
||||||
|
|
||||||
BDSU
|
BDSU
|
||||||
DDV
|
DDV
|
||||||
COSCDUZ
|
COSCDUZ
|
||||||
STORE DCDU
|
STORE DCDU
|
||||||
|
|
||||||
DMP SL1 # SCALE
|
DMP SL1 # SCALE
|
||||||
SINCDUZ
|
SINCDUZ
|
||||||
BDSU
|
BDSU
|
||||||
|
|
||||||
DTHETASM +2
|
DTHETASM +2
|
||||||
STODL DCDU +2
|
STODL DCDU +2
|
||||||
DTHETASM
|
DTHETASM
|
||||||
|
|
||||||
DMP PDDL
|
DMP PDDL
|
||||||
SINCDUY
|
SINCDUY
|
||||||
DTHETASM +4
|
DTHETASM +4
|
||||||
|
|
||||||
DMP DAD
|
DMP DAD
|
||||||
COSCDUY
|
COSCDUY
|
||||||
SL1
|
SL1
|
||||||
|
|||||||
@ -7,9 +7,9 @@
|
|||||||
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 514-524
|
# Pages: 514-524
|
||||||
# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file
|
# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images 0514.jpg - 0524.jpg.
|
# images 0514.jpg - 0524.jpg.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
# images of a hardcopy from the MIT Museum. The digitization was performed
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -103,7 +103,7 @@ V82CALL TC INTPRET
|
|||||||
|
|
||||||
V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
|
V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
|
||||||
CAF TWO # DESIRED FOR ORBITAL PARAMETERS
|
CAF TWO # DESIRED FOR ORBITAL PARAMETERS
|
||||||
TS OPTIONX
|
TS OPTIONX
|
||||||
CAF ONE
|
CAF ONE
|
||||||
TS OPTIONX +1
|
TS OPTIONX +1
|
||||||
CAF OPTIONVN # V 04 N 06
|
CAF OPTIONVN # V 04 N 06
|
||||||
@ -171,7 +171,7 @@ BOTHSHIP VLOAD # MOVE RESULTS INTO TFFCONIC STORAGE AREAS
|
|||||||
STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
|
STORE VONE # VATT AT (-7)M/CS FOR EARTH OR MOON
|
||||||
DLOAD*
|
DLOAD*
|
||||||
1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
|
1/RTMUE,2 # X2 IS 0 FOR EARTH CENTERED STATE VEC
|
||||||
# HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it
|
# HG remark: In Comanche055 scan this line (5324) looks pretty much like 1/RTMUF.2 can not decide, leave it
|
||||||
# as it is in start source
|
# as it is in start source
|
||||||
STORE TFF/RTMU # X2 IS 2 FOR MOON
|
STORE TFF/RTMU # X2 IS 2 FOR MOON
|
||||||
DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
|
DLOAD* # AS LEFT BY THISPREC OR OTHPREC.
|
||||||
@ -208,11 +208,11 @@ MOONPAD VLOAD ABVAL # COMPUTE MOON PAD RADIUS FROM RLS VECTOR.
|
|||||||
V82EMFLG # INDICATE MOON SCALING FOR SR30.1
|
V82EMFLG # INDICATE MOON SCALING FOR SR30.1
|
||||||
BOTHPAD STCALL RPADTEM
|
BOTHPAD STCALL RPADTEM
|
||||||
SR30.1 # CALCULATE ORBITAL PARAMETERS
|
SR30.1 # CALCULATE ORBITAL PARAMETERS
|
||||||
EXIT
|
EXIT
|
||||||
CA MODREG # ARE WE IN P00
|
CA MODREG # ARE WE IN P00
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF CANDEL # YES, DO DELRSPL
|
BZF CANDEL # YES, DO DELRSPL
|
||||||
SPLRET1 TC INTPRET
|
SPLRET1 TC INTPRET
|
||||||
RTB DSU
|
RTB DSU
|
||||||
LOADTIME
|
LOADTIME
|
||||||
TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN
|
TSTART82 # PRESENT TIME -- TIME V82GOFF1 BEGAN
|
||||||
@ -225,12 +225,12 @@ TICKTPER DLOAD DAD # (-TPER NON ZERO) TFF WAS NOT COMPUTED.
|
|||||||
TSTART82 # TICK -TPER. DISPLAY BOTH.
|
TSTART82 # TICK -TPER. DISPLAY BOTH.
|
||||||
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
|
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
|
||||||
EXIT # BEGAN.
|
EXIT # BEGAN.
|
||||||
|
|
||||||
# Page 518
|
# Page 518
|
||||||
CAF BIT1
|
CAF BIT1
|
||||||
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
|
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
|
TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
|
||||||
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
|
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
|
||||||
TSTART82 # -TPER
|
TSTART82 # -TPER
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Mod history: 2009-05-11 OH Batch 2 Assignment Comanche Transcription
|
# Mod history: 2009-05-11 OH Batch 2 Assignment Comanche Transcription
|
||||||
# 2009-05-20 RSB Corrected INSTALL -> INTSTALL
|
# 2009-05-20 RSB Corrected INSTALL -> INTSTALL
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -96,7 +96,7 @@ R34ANG VLOAD UNIT
|
|||||||
R31FLAG
|
R31FLAG
|
||||||
+2 # R31-THETA
|
+2 # R31-THETA
|
||||||
12D
|
12D
|
||||||
CALL
|
CALL
|
||||||
*NBSM*
|
*NBSM*
|
||||||
VXM PUSH # UXORZ TO 6D PD=12D
|
VXM PUSH # UXORZ TO 6D PD=12D
|
||||||
REFSMMAT
|
REFSMMAT
|
||||||
@ -134,7 +134,7 @@ R34ANG VLOAD UNIT
|
|||||||
CS EXTVBACT
|
CS EXTVBACT
|
||||||
MASK BIT12
|
MASK BIT12
|
||||||
ADS EXTVBACT
|
ADS EXTVBACT
|
||||||
|
|
||||||
TCF V83
|
TCF V83
|
||||||
V16N54 VN 1654
|
V16N54 VN 1654
|
||||||
V16N53 VN 1653
|
V16N53 VN 1653
|
||||||
@ -240,7 +240,7 @@ OTHINT STORE TDEC1 # ENTERED IF AV G ON TO INTEG LM
|
|||||||
STCALL TET
|
STCALL TET
|
||||||
INTEGRVS
|
INTEGRVS
|
||||||
GOTO
|
GOTO
|
||||||
COMPDISP # COMPUTE R RDOT RTHETA
|
COMPDISP # COMPUTE R RDOT RTHETA
|
||||||
GETRVN5 CALL # AV G ON
|
GETRVN5 CALL # AV G ON
|
||||||
GETRVN
|
GETRVN
|
||||||
BON CALL
|
BON CALL
|
||||||
@ -268,7 +268,7 @@ GETRVN STQ
|
|||||||
STODL VONE
|
STODL VONE
|
||||||
PIPTIME
|
PIPTIME
|
||||||
GOTO
|
GOTO
|
||||||
0D
|
0D
|
||||||
SETLOC R34
|
SETLOC R34
|
||||||
BANK
|
BANK
|
||||||
R34LOS EXIT
|
R34LOS EXIT
|
||||||
@ -284,7 +284,7 @@ R34LOS EXIT
|
|||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS X1
|
TS X1
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
SXTNB
|
SXTNB
|
||||||
STCALL 12D
|
STCALL 12D
|
||||||
R34ANG
|
R34ANG
|
||||||
|
|||||||
@ -7,9 +7,9 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 390-398
|
# Pages: 390-398
|
||||||
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
|
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
# images of a hardcopy from the MIT Museum. The digitization was performed
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -32,18 +32,18 @@
|
|||||||
BANK 34
|
BANK 34
|
||||||
SETLOC MANUVER
|
SETLOC MANUVER
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= TEMPR60
|
EBANK= TEMPR60
|
||||||
|
|
||||||
COUNT 27/R60
|
COUNT 27/R60
|
||||||
|
|
||||||
# CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968
|
# CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968
|
||||||
|
|
||||||
R60CSM TC MAKECADR
|
R60CSM TC MAKECADR
|
||||||
TS TEMPR60
|
TS TEMPR60
|
||||||
|
|
||||||
# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR
|
# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR
|
||||||
|
|
||||||
REDOMANN CAF BIT6
|
REDOMANN CAF BIT6
|
||||||
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
||||||
CCS A
|
CCS A
|
||||||
@ -53,17 +53,17 @@ REDOMANN CAF BIT6
|
|||||||
VECPOINT # TO COMPUTE FINAL ANGLES
|
VECPOINT # TO COMPUTE FINAL ANGLES
|
||||||
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
|
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
TOBALL CAF V06N18
|
TOBALL CAF V06N18
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
|
CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
|
||||||
TC R61TEST
|
TC R61TEST
|
||||||
TC REDOMANC # PROCEED
|
TC REDOMANC # PROCEED
|
||||||
TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60
|
TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60
|
||||||
|
|
||||||
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
|
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
REDOMANC CAF BIT6
|
REDOMANC CAF BIT6
|
||||||
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
|
||||||
CCS A
|
CCS A
|
||||||
@ -73,7 +73,7 @@ REDOMANC CAF BIT6
|
|||||||
VECPOINT # TO COMPUTE FINAL ANGLES
|
VECPOINT # TO COMPUTE FINAL ANGLES
|
||||||
STORE CPHI # STORE ANGLES
|
STORE CPHI # STORE ANGLES
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC
|
TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC
|
||||||
# Page 391
|
# Page 391
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -82,12 +82,12 @@ TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +2 # AUTO, NON-FLASH N18
|
BZF +2 # AUTO, NON-FLASH N18
|
||||||
TCF TOBALL # NOT AUTO
|
TCF TOBALL # NOT AUTO
|
||||||
|
|
||||||
CAF V06N18 # STATIC UP NON-FLASHING V06 N18
|
CAF V06N18 # STATIC UP NON-FLASHING V06 N18
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GODSPR
|
CADR GODSPR
|
||||||
TC CHKLINUS
|
TC CHKLINUS
|
||||||
|
|
||||||
STARTMNV TC BANKCALL
|
STARTMNV TC BANKCALL
|
||||||
CADR GOMANUR
|
CADR GOMANUR
|
||||||
ENDMANUV TCF TOBALL # FINISHED MANEUVER.
|
ENDMANUV TCF TOBALL # FINISHED MANEUVER.
|
||||||
@ -96,7 +96,7 @@ ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
|
|||||||
ADRES 3AXISFLG # BIT 6 FLAG 5
|
ADRES 3AXISFLG # BIT 6 FLAG 5
|
||||||
CAE TEMPR60
|
CAE TEMPR60
|
||||||
TC BANKJUMP
|
TC BANKJUMP
|
||||||
|
|
||||||
CHKLINUS CS FLAGWRD4
|
CHKLINUS CS FLAGWRD4
|
||||||
MASK BIT12 # IS PRIORITY DISPLAY FLAG SET?
|
MASK BIT12 # IS PRIORITY DISPLAY FLAG SET?
|
||||||
CCS A
|
CCS A
|
||||||
@ -106,39 +106,39 @@ CHKLINUS CS FLAGWRD4
|
|||||||
CS THREE # OBTAIN LOCATION FOR RESTART
|
CS THREE # OBTAIN LOCATION FOR RESTART
|
||||||
AD BUF2 # HOLD Q OF LAST DISPLAY
|
AD BUF2 # HOLD Q OF LAST DISPLAY
|
||||||
TS TBASE1
|
TS TBASE1
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 71 # 1.7SPOT FOR RELINUS
|
OCT 71 # 1.7SPOT FOR RELINUS
|
||||||
|
|
||||||
CAF BIT7
|
CAF BIT7
|
||||||
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
|
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
|
||||||
TC MPAC +2
|
TC MPAC +2
|
||||||
|
|
||||||
RELINUS CAF BIT5 # IS TRACK FLAG ON
|
RELINUS CAF BIT5 # IS TRACK FLAG ON
|
||||||
MASK FLAGWRD1
|
MASK FLAGWRD1
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF GOREDO20 # NO
|
BZF GOREDO20 # NO
|
||||||
|
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES PDSPFLAG # R60 PRIODSP FLAG
|
ADRES PDSPFLAG # R60 PRIODSP FLAG
|
||||||
|
|
||||||
TC UPFLAG
|
TC UPFLAG
|
||||||
ADRES TARG1FLG # FOR R52
|
ADRES TARG1FLG # FOR R52
|
||||||
|
|
||||||
CAF ZERO # RESET TO ZERO, SINCE
|
CAF ZERO # RESET TO ZERO, SINCE
|
||||||
# Page 392
|
# Page 392
|
||||||
TS OPTIND # OPTIND WAS SET TO -1 BY V379
|
TS OPTIND # OPTIND WAS SET TO -1 BY V379
|
||||||
|
|
||||||
CAF PRIO14 # RESTORE ORIGINAL PRIORITY
|
CAF PRIO14 # RESTORE ORIGINAL PRIORITY
|
||||||
TC PRIOCHNG
|
TC PRIOCHNG
|
||||||
|
|
||||||
TC TBASE1
|
TC TBASE1
|
||||||
|
|
||||||
GOREDO20 TC PHASCHNG
|
GOREDO20 TC PHASCHNG
|
||||||
OCT 111 # 1.11 FOR PIKUP20
|
OCT 111 # 1.11 FOR PIKUP20
|
||||||
|
|
||||||
TC ENDOFJOB
|
TC ENDOFJOB
|
||||||
|
|
||||||
R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE
|
R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE
|
||||||
EXTEND # VERB49 OR VERB89 SO DO ENDEXT.
|
EXTEND # VERB49 OR VERB89 SO DO ENDEXT.
|
||||||
BZF ENDMANU1 # RESET 3-AXIS & RETURN. USER DOES ENDEXT
|
BZF ENDMANU1 # RESET 3-AXIS & RETURN. USER DOES ENDEXT
|
||||||
@ -147,7 +147,7 @@ R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF GOTOP00H # NO
|
BZF GOTOP00H # NO
|
||||||
TC GOTOV56 # YES
|
TC GOTOV56 # YES
|
||||||
|
|
||||||
BIT14+7 OCT 20100
|
BIT14+7 OCT 20100
|
||||||
V06N18 VN 0618
|
V06N18 VN 0618
|
||||||
|
|
||||||
@ -204,9 +204,9 @@ V06N18 VN 0618
|
|||||||
BANK
|
BANK
|
||||||
# Page 394
|
# Page 394
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
COUNT 27/VECPT
|
COUNT 27/VECPT
|
||||||
|
|
||||||
VECPOINT STQ BOV # SAVE RETURN ADDRESS
|
VECPOINT STQ BOV # SAVE RETURN ADDRESS
|
||||||
VECQTEMP
|
VECQTEMP
|
||||||
VECLEAR # AND CLEAR OVFIND
|
VECLEAR # AND CLEAR OVFIND
|
||||||
@ -241,14 +241,14 @@ COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM
|
|||||||
DEL # S/C AXES TO STABLE MEMBER AXES
|
DEL # S/C AXES TO STABLE MEMBER AXES
|
||||||
CALL # MFS = MIS MFI
|
CALL # MFS = MIS MFI
|
||||||
MXM3 # (IN PD LIST)
|
MXM3 # (IN PD LIST)
|
||||||
|
|
||||||
DLOAD ABS
|
DLOAD ABS
|
||||||
6 # MFS6 = SIN(CPSI) $2
|
6 # MFS6 = SIN(CPSI) $2
|
||||||
DSU BMN
|
DSU BMN
|
||||||
SINGIMLC # = SIN(59 DEGS) $2
|
SINGIMLC # = SIN(59 DEGS) $2
|
||||||
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
|
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
|
||||||
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
|
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
|
||||||
|
|
||||||
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
|
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
|
||||||
SCAXIS # THE THRUST AXIS
|
SCAXIS # THE THRUST AXIS
|
||||||
DSU BPL
|
DSU BPL
|
||||||
@ -265,13 +265,13 @@ COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM
|
|||||||
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
|
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
|
||||||
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
|
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
|
||||||
IGSAMEX # FINAL X S/C AXIS
|
IGSAMEX # FINAL X S/C AXIS
|
||||||
|
|
||||||
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
|
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
|
||||||
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
|
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
|
||||||
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3)
|
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3)
|
||||||
# X SCAXIS . XF) LESS THAN Q, U = SCAXIS
|
# X SCAXIS . XF) LESS THAN Q, U = SCAXIS
|
||||||
# OTHERWISE U = -SCAXIS.
|
# OTHERWISE U = -SCAXIS.
|
||||||
|
|
||||||
VLOAD VCOMP
|
VLOAD VCOMP
|
||||||
SCAXIS
|
SCAXIS
|
||||||
STCALL COF # ROTATE ABOUT -SCAXIS
|
STCALL COF # ROTATE ABOUT -SCAXIS
|
||||||
@ -308,7 +308,7 @@ FINDGIMB AXC,1 CALL
|
|||||||
0
|
0
|
||||||
GOTO
|
GOTO
|
||||||
VECQTEMP # RETURN TO CALLER
|
VECQTEMP # RETURN TO CALLER
|
||||||
|
|
||||||
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
|
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
|
||||||
28D
|
28D
|
||||||
SCAXIS
|
SCAXIS
|
||||||
@ -317,7 +317,7 @@ PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
|
|||||||
25D
|
25D
|
||||||
GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
|
GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
|
||||||
VECQTEMP # PRESENT CDU ANGLES
|
VECQTEMP # PRESENT CDU ANGLES
|
||||||
|
|
||||||
ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION
|
ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION
|
||||||
MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
|
MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
|
||||||
HIUNITX # INITIAL S/C AXES.
|
HIUNITX # INITIAL S/C AXES.
|
||||||
@ -342,7 +342,7 @@ PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE
|
|||||||
BANK 35
|
BANK 35
|
||||||
SETLOC MANUVER1
|
SETLOC MANUVER1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
SINGIMLC 2DEC .4285836003 # = SIN(59) $2
|
SINGIMLC 2DEC .4285836003 # = SIN(59) $2
|
||||||
|
|
||||||
SINVEC1 2DEC .3796356537 # = SIN(49.4) $2
|
SINVEC1 2DEC .3796356537 # = SIN(49.4) $2
|
||||||
@ -361,27 +361,27 @@ DPB-14 OCT 00001
|
|||||||
BANK 34
|
BANK 34
|
||||||
SETLOC MANUVER
|
SETLOC MANUVER
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
# Page 398
|
# Page 398
|
||||||
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
|
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
|
||||||
|
|
||||||
EBANK= CPHI
|
EBANK= CPHI
|
||||||
|
|
||||||
COUNT 27/R62
|
COUNT 27/R62
|
||||||
|
|
||||||
R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI
|
R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOFLASH
|
CADR GOFLASH
|
||||||
TCF ENDEXT
|
TCF ENDEXT
|
||||||
TCF GOMOVE # PROCEED
|
TCF GOMOVE # PROCEED
|
||||||
TCF R62DISP # ENTER
|
TCF R62DISP # ENTER
|
||||||
|
|
||||||
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
|
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
|
||||||
# POINT.
|
# POINT.
|
||||||
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
|
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
|
||||||
ADRES 3AXISFLG
|
ADRES 3AXISFLG
|
||||||
|
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR R60CSM
|
CADR R60CSM
|
||||||
TCF ENDEXT
|
TCF ENDEXT
|
||||||
|
|
||||||
|
|||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -44,7 +44,7 @@
|
|||||||
BANK 20
|
BANK 20
|
||||||
SETLOC DAPS8
|
SETLOC DAPS8
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/DAPEX
|
COUNT* $$/DAPEX
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
|
AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
|
||||||
@ -53,8 +53,8 @@ AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
|
|||||||
MASK BIT14 # IF NOT RCS, EXIT
|
MASK BIT14 # IF NOT RCS, EXIT
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
|
BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
|
||||||
|
|
||||||
CA CDUZ
|
CA CDUZ
|
||||||
TC SPSIN2
|
TC SPSIN2
|
||||||
TS AMGB1 # CALCULATE AMGB
|
TS AMGB1 # CALCULATE AMGB
|
||||||
CA CDUZ
|
CA CDUZ
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -35,9 +35,9 @@
|
|||||||
BANK 20
|
BANK 20
|
||||||
SETLOC DAPS3
|
SETLOC DAPS3
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 21/DAPRC
|
COUNT 21/DAPRC
|
||||||
|
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
REDORCS LXCH BANKRUPT # RESTART OF AUTOPILOT COMES HERE
|
REDORCS LXCH BANKRUPT # RESTART OF AUTOPILOT COMES HERE
|
||||||
CA T5PHASE # ON A T5 RUPT
|
CA T5PHASE # ON A T5 RUPT
|
||||||
@ -62,7 +62,7 @@ RCSATT LXCH BANKRUPT # SAVE BB
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF SETT5 # IF G/C AUTOPILOT IS FULLY ENABLED,
|
BZF SETT5 # IF G/C AUTOPILOT IS FULLY ENABLED,
|
||||||
# GO TO SETT5
|
# GO TO SETT5
|
||||||
|
|
||||||
CS RCSFLAGS # IF G/C AUTOPILOT IS NOT FULLY ENABLED,
|
CS RCSFLAGS # IF G/C AUTOPILOT IS NOT FULLY ENABLED,
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
ADS RCSFLAGS # SET NORATE FLAG,
|
ADS RCSFLAGS # SET NORATE FLAG,
|
||||||
@ -78,13 +78,13 @@ RCSATT LXCH BANKRUPT # SAVE BB
|
|||||||
EXTEND
|
EXTEND
|
||||||
# Page 1003
|
# Page 1003
|
||||||
BZF SETT5 # IF IN FREE MODE, GO TO SETT5.
|
BZF SETT5 # IF IN FREE MODE, GO TO SETT5.
|
||||||
|
|
||||||
TS T5PHASE # IF NOT IN FREE MODE,
|
TS T5PHASE # IF NOT IN FREE MODE,
|
||||||
CAF OCT37766 # SCHEDULE REINITIALIZATION (FRESHDAP)
|
CAF OCT37766 # SCHEDULE REINITIALIZATION (FRESHDAP)
|
||||||
TS TIME5 # IN 100 MS VIA T5RUPT
|
TS TIME5 # IN 100 MS VIA T5RUPT
|
||||||
|
|
||||||
TCR ZEROJET # ZERO JET CHANNELS IN 14 MS VIA ZEROJET
|
TCR ZEROJET # ZERO JET CHANNELS IN 14 MS VIA ZEROJET
|
||||||
|
|
||||||
TCF KMATRIX
|
TCF KMATRIX
|
||||||
DELTATT OCT 37770 # 80MS (TIME5)
|
DELTATT OCT 37770 # 80MS (TIME5)
|
||||||
DELTATT2 OCT 37776 # 20MS (TIME5)
|
DELTATT2 OCT 37776 # 20MS (TIME5)
|
||||||
@ -95,7 +95,7 @@ PRIO34A = PRIO34
|
|||||||
|
|
||||||
# CHECK PHASE OF T5 PROGRAM
|
# CHECK PHASE OF T5 PROGRAM
|
||||||
#
|
#
|
||||||
# BECAUSE OF THE LENGTH OF THE T5 PROGRAM,IT HAS BEEN DIVIDED INTO
|
# BECAUSE OF THE LENGTH OF THE T5 PROGRAM,IT HAS BEEN DIVIDED INTO
|
||||||
# THREE PARTS, T5PHASE1, T5PHASE2, AND THE JET SELECTION LOGIC,
|
# THREE PARTS, T5PHASE1, T5PHASE2, AND THE JET SELECTION LOGIC,
|
||||||
# TO ALLOW FOR THE EXECUTION OF OTHER
|
# TO ALLOW FOR THE EXECUTION OF OTHER
|
||||||
# INTERRUPTS. T5PHASE IS ALSO USED IN THE INITIALIZATION OF THE AUTOPILOT
|
# INTERRUPTS. T5PHASE IS ALSO USED IN THE INITIALIZATION OF THE AUTOPILOT
|
||||||
@ -112,7 +112,7 @@ SETT5 CCS T5PHASE
|
|||||||
TCF FRESHDAP # TURN ON AUTOPILOT
|
TCF FRESHDAP # TURN ON AUTOPILOT
|
||||||
TCF T5PHASE2 # BRANCH TO PHASE2 OF PROGRAM
|
TCF T5PHASE2 # BRANCH TO PHASE2 OF PROGRAM
|
||||||
TCF REDAP # RESTART AUTOPILOT
|
TCF REDAP # RESTART AUTOPILOT
|
||||||
|
|
||||||
TS T5PHASE # PHASE 1 RESET FOR PHASE 2
|
TS T5PHASE # PHASE 1 RESET FOR PHASE 2
|
||||||
CA TIME5
|
CA TIME5
|
||||||
TS T5TIME # USED IN COMPENSATING FOR DELAYS IN T5
|
TS T5TIME # USED IN COMPENSATING FOR DELAYS IN T5
|
||||||
@ -145,7 +145,7 @@ RATEFILT CA RCSFLAGS # SEE IF RATEFILTER HAS BEEN INITIALIZED
|
|||||||
EXTEND # IF SO, PROCEED WITH RATE DERIVATION
|
EXTEND # IF SO, PROCEED WITH RATE DERIVATION
|
||||||
BZF +2
|
BZF +2
|
||||||
TCF KMATRIX # IF NOT, SKIP RATE DERIVATION
|
TCF KMATRIX # IF NOT, SKIP RATE DERIVATION
|
||||||
|
|
||||||
# RATE FILTER TIMING = 7.72 MS
|
# RATE FILTER TIMING = 7.72 MS
|
||||||
#
|
#
|
||||||
# RATE FILTER EQUATIONS
|
# RATE FILTER EQUATIONS
|
||||||
@ -183,7 +183,7 @@ DRHOLOOP TS SPNDX
|
|||||||
DAS DRHO
|
DAS DRHO
|
||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF DRHOLOOP
|
TCF DRHOLOOP
|
||||||
|
|
||||||
CA CDUX # MEASURED BODY RATES--
|
CA CDUX # MEASURED BODY RATES--
|
||||||
XCH RHO
|
XCH RHO
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -268,9 +268,9 @@ KMATRIX CA ATTSEC
|
|||||||
TC NOVAC # MATRIX FROM GIMBAL AXES TO BODY AXES
|
TC NOVAC # MATRIX FROM GIMBAL AXES TO BODY AXES
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
2CADR AMBGUPDT
|
2CADR AMBGUPDT
|
||||||
|
|
||||||
CAF NINE
|
CAF NINE
|
||||||
|
|
||||||
TENTHSEK TS ATTSEC
|
TENTHSEK TS ATTSEC
|
||||||
|
|
||||||
# Page 1007
|
# Page 1007
|
||||||
@ -336,7 +336,7 @@ DELOOP TS SPNDX
|
|||||||
DXCH CDUXD
|
DXCH CDUXD
|
||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF DELOOP
|
TCF DELOOP
|
||||||
|
|
||||||
# Page 1009
|
# Page 1009
|
||||||
# RCS-CSM AUTOPILOT ATTITUDE ERROR DISPLAY
|
# RCS-CSM AUTOPILOT ATTITUDE ERROR DISPLAY
|
||||||
#
|
#
|
||||||
@ -373,7 +373,7 @@ DACNDLS CS RCSFLAGS # ALTERNATE BETWEEN FDAIDSP1 AND FDAIDSP2
|
|||||||
MASK BIT4
|
MASK BIT4
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF FDAIDSP2
|
BZF FDAIDSP2
|
||||||
|
|
||||||
FDAIDSP1 ADS RCSFLAGS
|
FDAIDSP1 ADS RCSFLAGS
|
||||||
TC NEEDLER
|
TC NEEDLER
|
||||||
KRESUME1 TCF RESUME # END PHASE 1
|
KRESUME1 TCF RESUME # END PHASE 1
|
||||||
@ -445,7 +445,7 @@ NEEDLER CAF BIT4 # CHECK FOR COARSE ALIGN ENABLE
|
|||||||
MASK BIT3
|
MASK BIT3
|
||||||
ADS RCSFLAGS
|
ADS RCSFLAGS
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
NEEDLER1 CA RCSFLAGS
|
NEEDLER1 CA RCSFLAGS
|
||||||
MASK SIX
|
MASK SIX
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -453,7 +453,7 @@ NEEDLER1 CA RCSFLAGS
|
|||||||
MASK BIT3
|
MASK BIT3
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NEEDLER2 # BIT3 = 0, BIT2 = 1
|
BZF NEEDLER2 # BIT3 = 0, BIT2 = 1
|
||||||
|
|
||||||
CS BIT6 # FIRST PASS BIT3 = 1
|
CS BIT6 # FIRST PASS BIT3 = 1
|
||||||
EXTEND # DISABLE IMU ERROR COUNTER TO ZERO DACS
|
EXTEND # DISABLE IMU ERROR COUNTER TO ZERO DACS
|
||||||
WAND CHAN12 # MUST WAIT AT LEAST 60 MS. BEFORE
|
WAND CHAN12 # MUST WAIT AT LEAST 60 MS. BEFORE
|
||||||
@ -462,7 +462,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS.
|
|||||||
TS AK1
|
TS AK1
|
||||||
TS AK2
|
TS AK2
|
||||||
TS EDRIVEX # ZERO THE DISPLAY REGISTERS
|
TS EDRIVEX # ZERO THE DISPLAY REGISTERS
|
||||||
TS EDRIVEY
|
TS EDRIVEY
|
||||||
TS EDRIVEZ
|
TS EDRIVEZ
|
||||||
TS CDUXCMD # ZERO THE OUT COUNTERS
|
TS CDUXCMD # ZERO THE OUT COUNTERS
|
||||||
TS CDUYCMD
|
TS CDUYCMD
|
||||||
@ -472,7 +472,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS.
|
|||||||
AD BIT2
|
AD BIT2
|
||||||
TS RCSFLAGS
|
TS RCSFLAGS
|
||||||
TC Q # END PASS1
|
TC Q # END PASS1
|
||||||
|
|
||||||
NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
|
NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN12
|
WOR CHAN12
|
||||||
@ -481,7 +481,7 @@ NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
|
|||||||
MASK RCSFLAGS # ERRORS WAIT AT LEAST 4 MS FOR
|
MASK RCSFLAGS # ERRORS WAIT AT LEAST 4 MS FOR
|
||||||
TS RCSFLAGS # RELAY CLOSURE
|
TS RCSFLAGS # RELAY CLOSURE
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER
|
NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER
|
||||||
EXTEND # IS ENABLED
|
EXTEND # IS ENABLED
|
||||||
RAND CHAN12
|
RAND CHAN12
|
||||||
@ -518,7 +518,7 @@ DACLOOP TS SPNDX
|
|||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14 # SET DAC ACTIVITY BITS
|
WOR CHAN14 # SET DAC ACTIVITY BITS
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
REINIT CAF DELAY200 # ........TILT LOGIC
|
REINIT CAF DELAY200 # ........TILT LOGIC
|
||||||
TS TIME5 # REINITIALIZE DAP IN 200MS
|
TS TIME5 # REINITIALIZE DAP IN 200MS
|
||||||
TS T5PHASE
|
TS T5PHASE
|
||||||
@ -527,10 +527,10 @@ DELAY200 DEC 16364 # 200MS
|
|||||||
|
|
||||||
DEC -384
|
DEC -384
|
||||||
|
|
||||||
# Page 1013
|
# Page 1013
|
||||||
DACLIMIT DEC 16000
|
DACLIMIT DEC 16000
|
||||||
DEC 384
|
DEC 384
|
||||||
|
|
||||||
# Page 1014
|
# Page 1014
|
||||||
# INITIALIZATION PROGRAM FOR RCS-CSM AUTOPILOT
|
# INITIALIZATION PROGRAM FOR RCS-CSM AUTOPILOT
|
||||||
#
|
#
|
||||||
@ -549,13 +549,13 @@ DACLIMIT DEC 16000
|
|||||||
FRESHDAP CAF ONE # RESET HOLDFLAG TO STOP AUTOMATIC
|
FRESHDAP CAF ONE # RESET HOLDFLAG TO STOP AUTOMATIC
|
||||||
TS HOLDFLAG # STEERING AND PREPARE TO PICK UP AN
|
TS HOLDFLAG # STEERING AND PREPARE TO PICK UP AN
|
||||||
# ATTITUDE HOLD REFERENCE
|
# ATTITUDE HOLD REFERENCE
|
||||||
|
|
||||||
REDAP TC IBNKCALL # DECODE DAPDATR1, DAPDATR2 FOR DEADBANDS
|
REDAP TC IBNKCALL # DECODE DAPDATR1, DAPDATR2 FOR DEADBANDS
|
||||||
CADR S41.2 # RATES, QUADFAILS, QUAD MANAGEMENT
|
CADR S41.2 # RATES, QUADFAILS, QUAD MANAGEMENT
|
||||||
|
|
||||||
TC IBNKCALL # DECODE IXX, IAVG, AND CONVERT
|
TC IBNKCALL # DECODE IXX, IAVG, AND CONVERT
|
||||||
CADR S40.14 # TO AUTOPILOT GAINS
|
CADR S40.14 # TO AUTOPILOT GAINS
|
||||||
|
|
||||||
CAF NO.T5VAR # NO. LOCATIONS TO BE ZEROED MINUS ONE
|
CAF NO.T5VAR # NO. LOCATIONS TO BE ZEROED MINUS ONE
|
||||||
ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
|
ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
@ -564,23 +564,23 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
|
|||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF ZEROT5
|
TCF ZEROT5
|
||||||
TCR ZEROJET
|
TCR ZEROJET
|
||||||
|
|
||||||
CS ZERO
|
CS ZERO
|
||||||
TS CHANTEMP # INITIALIZE MINIMUM IMPULSE CONTROL
|
TS CHANTEMP # INITIALIZE MINIMUM IMPULSE CONTROL
|
||||||
|
|
||||||
TS CH31TEMP # INITIALIZE RHC POSITION MEMORY FOR
|
TS CH31TEMP # INITIALIZE RHC POSITION MEMORY FOR
|
||||||
# MANUAL RATE MODES
|
# MANUAL RATE MODES
|
||||||
|
|
||||||
CAF =.24
|
CAF =.24
|
||||||
TS SLOPE # INITIALIZE SWITCHING LOGIC SLOPE
|
TS SLOPE # INITIALIZE SWITCHING LOGIC SLOPE
|
||||||
|
|
||||||
CAF FOUR
|
CAF FOUR
|
||||||
TS T5TIME # PHASE 0 RESETS FOR PHASE 2 INTERRUPT IN
|
TS T5TIME # PHASE 0 RESETS FOR PHASE 2 INTERRUPT IN
|
||||||
# 60 MS. PHASE 2 RESETS FOR PHASE 1 RUPT
|
# 60 MS. PHASE 2 RESETS FOR PHASE 1 RUPT
|
||||||
# IN (80MS - T5TIME(40MS)). THEREFORE
|
# IN (80MS - T5TIME(40MS)). THEREFORE
|
||||||
# PHASE 1 (RATEFILTER) BEGINS CYCLING 100
|
# PHASE 1 (RATEFILTER) BEGINS CYCLING 100
|
||||||
# MS FROM NOW AND EVERY 100MS THEREAFTER.
|
# MS FROM NOW AND EVERY 100MS THEREAFTER.
|
||||||
|
|
||||||
CAF ELEVEN
|
CAF ELEVEN
|
||||||
TS ATTKALMN # RESET TO PICK UP KALMAN FILTER TAINS
|
TS ATTKALMN # RESET TO PICK UP KALMAN FILTER TAINS
|
||||||
# TO INITIALIZE THE S/C ANGULAR RATES
|
# TO INITIALIZE THE S/C ANGULAR RATES
|
||||||
@ -593,7 +593,7 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
|
|||||||
TS RHO2
|
TS RHO2
|
||||||
CAF ZERO # RESET AUTOPILOT TO BEGIN EXECUTING
|
CAF ZERO # RESET AUTOPILOT TO BEGIN EXECUTING
|
||||||
TS T5PHASE # PHASE2 OF PROGRAM
|
TS T5PHASE # PHASE2 OF PROGRAM
|
||||||
|
|
||||||
CS IMODES33 # CHECK IMU STATUS
|
CS IMODES33 # CHECK IMU STATUS
|
||||||
MASK BIT6 # IF BIT6 = 0 IMU IN FINE ALIGN
|
MASK BIT6 # IF BIT6 = 0 IMU IN FINE ALIGN
|
||||||
CCS A # IF BIT6 = 1 IMU NOT READY
|
CCS A # IF BIT6 = 1 IMU NOT READY
|
||||||
@ -602,12 +602,12 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
|
|||||||
CAF RCSINITB # PROVIDE FREE CONTROL ONLY
|
CAF RCSINITB # PROVIDE FREE CONTROL ONLY
|
||||||
TCF RCSSWIT # DON'T START UP RATE FILTER
|
TCF RCSSWIT # DON'T START UP RATE FILTER
|
||||||
# SIGNAL NO RATE FILTER
|
# SIGNAL NO RATE FILTER
|
||||||
|
|
||||||
IMUAOK CAF PRIO34 # START MATRIX INITIALIZATION
|
IMUAOK CAF PRIO34 # START MATRIX INITIALIZATION
|
||||||
TC NOVAC # BYPASS IF IMU NOT IN FINE ALIGN
|
TC NOVAC # BYPASS IF IMU NOT IN FINE ALIGN
|
||||||
EBANK= KMPAC
|
EBANK= KMPAC
|
||||||
2CADR AMBGUPDT
|
2CADR AMBGUPDT
|
||||||
|
|
||||||
CAF RCSINIT # CLEAR BIT14 --ASSUME WE HAVE A GOOD IMU
|
CAF RCSINIT # CLEAR BIT14 --ASSUME WE HAVE A GOOD IMU
|
||||||
RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM
|
RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM
|
||||||
# SET BIT3 --INITIALIZE NEEDLES
|
# SET BIT3 --INITIALIZE NEEDLES
|
||||||
@ -619,7 +619,7 @@ RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM
|
|||||||
TC RESUME # PICK UP THE KALMAN FILTER GAINS. RATE
|
TC RESUME # PICK UP THE KALMAN FILTER GAINS. RATE
|
||||||
# FILTER WILL BEGIN OPERATING ZOOMS FROM
|
# FILTER WILL BEGIN OPERATING ZOOMS FROM
|
||||||
# NOW
|
# NOW
|
||||||
|
|
||||||
# CONSTANTS USED IN INITIALIZATION PROGRAM
|
# CONSTANTS USED IN INITIALIZATION PROGRAM
|
||||||
|
|
||||||
NO.T5VAR DEC 36
|
NO.T5VAR DEC 36
|
||||||
@ -633,22 +633,22 @@ T6ADDR 2CADR T6START
|
|||||||
ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2,
|
ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2,
|
||||||
TS SPNDX # YWORD1, PWORD2, PWORD1, RWORD2,
|
TS SPNDX # YWORD1, PWORD2, PWORD1, RWORD2,
|
||||||
CAF ZERO # AND RWORD1
|
CAF ZERO # AND RWORD1
|
||||||
|
|
||||||
# Page 1016
|
# Page 1016
|
||||||
INDEX SPNDX
|
INDEX SPNDX
|
||||||
TS RWORD1
|
TS RWORD1
|
||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF ZEROJET +1
|
TCF ZEROJET +1
|
||||||
|
|
||||||
CAF FOUR
|
CAF FOUR
|
||||||
TS BLAST1 +1
|
TS BLAST1 +1
|
||||||
CAF ELEVEN
|
CAF ELEVEN
|
||||||
TS BLAST2 +1
|
TS BLAST2 +1
|
||||||
|
|
||||||
CS BIT1
|
CS BIT1
|
||||||
MASK RCSFLAGS
|
MASK RCSFLAGS
|
||||||
TS RCSFLAGS # RESET BIT1 OF RCSFLAGS TO 0
|
TS RCSFLAGS # RESET BIT1 OF RCSFLAGS TO 0
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA T6ADDR
|
DCA T6ADDR
|
||||||
DXCH T6LOC
|
DXCH T6LOC
|
||||||
@ -657,18 +657,18 @@ ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2,
|
|||||||
CAF BIT15
|
CAF BIT15
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN13
|
WOR CHAN13
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
T5PHASE2 CCS ATTKALMN # IF (+) INITIALIZE RATE ESTIMATE
|
T5PHASE2 CCS ATTKALMN # IF (+) INITIALIZE RATE ESTIMATE
|
||||||
TCF KALUPDT
|
TCF KALUPDT
|
||||||
|
|
||||||
TCF +2 # ONLY IF ATTKALMN POSITIVE
|
TCF +2 # ONLY IF ATTKALMN POSITIVE
|
||||||
TCF +1
|
TCF +1
|
||||||
CA DELTATT2 # RESET FOR PHASE3 IN 20 MS
|
CA DELTATT2 # RESET FOR PHASE3 IN 20 MS
|
||||||
XCH TIME5 # (JET SELECTION LOGIC)
|
XCH TIME5 # (JET SELECTION LOGIC)
|
||||||
ADS T5TIME # TO COMPENSATE FOR DELAYS IN T5RUPT
|
ADS T5TIME # TO COMPENSATE FOR DELAYS IN T5RUPT
|
||||||
|
|
||||||
CA RCSFLAGS # IF A HIGH RATE AUTO MANEUVER IS IN
|
CA RCSFLAGS # IF A HIGH RATE AUTO MANEUVER IS IN
|
||||||
MASK BIT15 # PROGRESS (BIT 15 OF RCSFLAGS SET), SET
|
MASK BIT15 # PROGRESS (BIT 15 OF RCSFLAGS SET), SET
|
||||||
EXTEND # ATTKALMN TO -1
|
EXTEND # ATTKALMN TO -1
|
||||||
@ -682,7 +682,7 @@ NOHIAUTO TS ATTKALMN
|
|||||||
CS OCT01760 # RESET FORCED FIRING BITS (BITS 10 TO 5
|
CS OCT01760 # RESET FORCED FIRING BITS (BITS 10 TO 5
|
||||||
MASK RCSFLAGS # OF RCSFLAGS) TO ZERO
|
MASK RCSFLAGS # OF RCSFLAGS) TO ZERO
|
||||||
TS RCSFLAGS
|
TS RCSFLAGS
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
READ CHAN31
|
READ CHAN31
|
||||||
TS L
|
TS L
|
||||||
@ -692,10 +692,10 @@ NOHIAUTO TS ATTKALMN
|
|||||||
MASK MANROT # = OCT00077
|
MASK MANROT # = OCT00077
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF NOCHANGE
|
BZMF NOCHANGE
|
||||||
|
|
||||||
LXCH A
|
LXCH A
|
||||||
TS CH31TEMP # SAVE CONTENTS OF CHANNEL 31 IN CH31TEMP
|
TS CH31TEMP # SAVE CONTENTS OF CHANNEL 31 IN CH31TEMP
|
||||||
|
|
||||||
CA L
|
CA L
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT5 # PUT BITS 6-1 OF A IN BITS 10-5 OF L
|
MP BIT5 # PUT BITS 6-1 OF A IN BITS 10-5 OF L
|
||||||
@ -704,18 +704,18 @@ NOHIAUTO TS ATTKALMN
|
|||||||
# CHANGES IN COMMAND. BITS 10,9 FOR
|
# CHANGES IN COMMAND. BITS 10,9 FOR
|
||||||
# ROLL, BITS 8,7 FOR YAW, BITS 6,5 FOR
|
# ROLL, BITS 8,7 FOR YAW, BITS 6,5 FOR
|
||||||
# PITCH
|
# PITCH
|
||||||
|
|
||||||
CS RCSFLAGS # SET RATE DAMPING FLAGS (BITS 13,12, AND
|
CS RCSFLAGS # SET RATE DAMPING FLAGS (BITS 13,12, AND
|
||||||
MASK OCT16000 # 11 OF RCSFLAGS)
|
MASK OCT16000 # 11 OF RCSFLAGS)
|
||||||
ADS RCSFLAGS
|
ADS RCSFLAGS
|
||||||
|
|
||||||
NOCHANGE CS CH31TEMP
|
NOCHANGE CS CH31TEMP
|
||||||
MASK MANROT
|
MASK MANROT
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF AHFNOROT # IF NO MANUAL COMMANDS, GO TO AHFNOROT
|
BZMF AHFNOROT # IF NO MANUAL COMMANDS, GO TO AHFNOROT
|
||||||
|
|
||||||
TS HOLDFLAG # SET HOLDFLAG +
|
TS HOLDFLAG # SET HOLDFLAG +
|
||||||
|
|
||||||
TC STICKCHK # WHEN THE RHC IS OUT OF DETENT, PMANNDX,
|
TC STICKCHK # WHEN THE RHC IS OUT OF DETENT, PMANNDX,
|
||||||
# YMANNDX, AND RMANNDX ARE ALL SET, BY
|
# YMANNDX, AND RMANNDX ARE ALL SET, BY
|
||||||
# MEANS OF STICKCHK, TO 0, 1, OR 2 FOR NO,
|
# MEANS OF STICKCHK, TO 0, 1, OR 2 FOR NO,
|
||||||
@ -730,29 +730,29 @@ NOCHANGE CS CH31TEMP
|
|||||||
# LEFT SET TO THEIR LAST OUT OF DETENT
|
# LEFT SET TO THEIR LAST OUT OF DETENT
|
||||||
# Page 1018
|
# Page 1018
|
||||||
# VALUES.
|
# VALUES.
|
||||||
|
|
||||||
CS FLAGWRD1 # SET STIKFLAG TO INFORM STEERING
|
CS FLAGWRD1 # SET STIKFLAG TO INFORM STEERING
|
||||||
MASK BIT14 # PROGRAMS (P20) THAT ASTRONAUT HAS
|
MASK BIT14 # PROGRAMS (P20) THAT ASTRONAUT HAS
|
||||||
ADS FLAGWRD1 # ASSUMED ROTATIONAL CONTROL OF SPACECRAFT
|
ADS FLAGWRD1 # ASSUMED ROTATIONAL CONTROL OF SPACECRAFT
|
||||||
|
|
||||||
CAF BIT14
|
CAF BIT14
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND CHAN31
|
RAND CHAN31
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF FREEFUNC
|
BZMF FREEFUNC
|
||||||
|
|
||||||
CA RCSFLAGS # EXAMINE RCSFLAGS TO SEE IF RATE FILTER
|
CA RCSFLAGS # EXAMINE RCSFLAGS TO SEE IF RATE FILTER
|
||||||
MASK BIT14 # HAS BEEN INITIALIZED
|
MASK BIT14 # HAS BEEN INITIALIZED
|
||||||
CCS A # IF SO, PROCEED WITH MANUAL RATE COMMANDS
|
CCS A # IF SO, PROCEED WITH MANUAL RATE COMMANDS
|
||||||
TCF REINIT # .....TILT, RECYCLE TO INITIALIZE FILTER
|
TCF REINIT # .....TILT, RECYCLE TO INITIALIZE FILTER
|
||||||
|
|
||||||
CS FIVE # IF MANUAL MANEUVER IS AT HIGH RTE, SET
|
CS FIVE # IF MANUAL MANEUVER IS AT HIGH RTE, SET
|
||||||
AD RATEINDX # ATTKALMN TO -1.
|
AD RATEINDX # ATTKALMN TO -1.
|
||||||
EXTEND # OTHERWISE, LEAVE ATTKALMN ALONE.
|
EXTEND # OTHERWISE, LEAVE ATTKALMN ALONE.
|
||||||
BZMF +3
|
BZMF +3
|
||||||
CS ONE
|
CS ONE
|
||||||
TS ATTKALMN
|
TS ATTKALMN
|
||||||
|
|
||||||
CAF TWO # AUTO-HOLD MANUAL ROTATION
|
CAF TWO # AUTO-HOLD MANUAL ROTATION
|
||||||
SETWBODY TS SPNDX
|
SETWBODY TS SPNDX
|
||||||
DOUBLE
|
DOUBLE
|
||||||
@ -762,7 +762,7 @@ SETWBODY TS SPNDX
|
|||||||
EXTEND # = 2 - ROTATION
|
EXTEND # = 2 - ROTATION
|
||||||
BZF NORATE # IF NO ROTATION COMMAND ON THIS AXIS,
|
BZF NORATE # IF NO ROTATION COMMAND ON THIS AXIS,
|
||||||
# GO TO NORATE.
|
# GO TO NORATE.
|
||||||
|
|
||||||
AD RATEINDX # RATEINDX = 0 0.05 DEG/SEC
|
AD RATEINDX # RATEINDX = 0 0.05 DEG/SEC
|
||||||
TS Q # = 2 0.2 DEG/SEC
|
TS Q # = 2 0.2 DEG/SEC
|
||||||
INDEX Q # = 4 0.5 DEG/SEC
|
INDEX Q # = 4 0.5 DEG/SEC
|
||||||
@ -771,7 +771,7 @@ SETWBODY TS SPNDX
|
|||||||
MP BIT9 # MULTIPLY MANTABLE BY 2 TO THE -6
|
MP BIT9 # MULTIPLY MANTABLE BY 2 TO THE -6
|
||||||
INDEX DPNDX # TO GET COMMANDED RATE.
|
INDEX DPNDX # TO GET COMMANDED RATE.
|
||||||
DXCH WBODY # SET WBODY TO COMMANDED RATE.
|
DXCH WBODY # SET WBODY TO COMMANDED RATE.
|
||||||
|
|
||||||
CA RCSFLAGS
|
CA RCSFLAGS
|
||||||
MASK OCT16000 # IS RATE DAMPING COMPLETED (BITS 13,12 AND
|
MASK OCT16000 # IS RATE DAMPING COMPLETED (BITS 13,12 AND
|
||||||
EXTEND # 11 OF RCSFLAGS ALL ZERO.) IF SO, GO TO
|
EXTEND # 11 OF RCSFLAGS ALL ZERO.) IF SO, GO TO
|
||||||
@ -784,7 +784,7 @@ ZEROER CA ZERO # ZEROER ZEROS MERRORS
|
|||||||
INDEX DPNDX
|
INDEX DPNDX
|
||||||
DXCH MERRORX
|
DXCH MERRORX
|
||||||
TCF SPNDXCHK
|
TCF SPNDXCHK
|
||||||
|
|
||||||
NORATE ZL
|
NORATE ZL
|
||||||
INDEX DPNDX
|
INDEX DPNDX
|
||||||
DXCH WBODY # ZERO WBODY FOR THIS AXIS
|
DXCH WBODY # ZERO WBODY FOR THIS AXIS
|
||||||
@ -793,14 +793,14 @@ NORATE ZL
|
|||||||
EXTEND # IS RATE DAMPING COMPLETED
|
EXTEND # IS RATE DAMPING COMPLETED
|
||||||
BZF SPNDXCHK # YES, KEEP CURRENT MERRORX GO TO SPNDXCHK
|
BZF SPNDXCHK # YES, KEEP CURRENT MERRORX GO TO SPNDXCHK
|
||||||
TCF ZEROER # NO, GO TO ZEROER
|
TCF ZEROER # NO, GO TO ZEROER
|
||||||
|
|
||||||
MERUPDAT INDEX Q # MERRORX=MERRORX+MEASURED CHANGE IN ANGLE
|
MERUPDAT INDEX Q # MERRORX=MERRORX+MEASURED CHANGE IN ANGLE
|
||||||
CS MANTABLE -1 # -COMMANDED CHANGE IN ANGLE
|
CS MANTABLE -1 # -COMMANDED CHANGE IN ANGLE
|
||||||
EXTEND # THE ADDITION OF MEASURED CHANGE IN ANGLE
|
EXTEND # THE ADDITION OF MEASURED CHANGE IN ANGLE
|
||||||
MP BIT7 # HAS ALREADY BEEN DONE IN THE RATE FILTER
|
MP BIT7 # HAS ALREADY BEEN DONE IN THE RATE FILTER
|
||||||
INDEX DPNDX # COMMANDED CHANGE IN ANGLE = WBODY TIMES
|
INDEX DPNDX # COMMANDED CHANGE IN ANGLE = WBODY TIMES
|
||||||
DAS MERRORX # .1SEC = MANTABLE ENTRY TIMES 2 TO THE -8
|
DAS MERRORX # .1SEC = MANTABLE ENTRY TIMES 2 TO THE -8
|
||||||
|
|
||||||
SPNDXCHK INDEX DPNDX
|
SPNDXCHK INDEX DPNDX
|
||||||
CA MERRORX
|
CA MERRORX
|
||||||
INDEX SPNDX
|
INDEX SPNDX
|
||||||
@ -808,7 +808,7 @@ SPNDXCHK INDEX DPNDX
|
|||||||
CCS SPNDX
|
CCS SPNDX
|
||||||
TCF SETWBODY
|
TCF SETWBODY
|
||||||
TCF JETS
|
TCF JETS
|
||||||
|
|
||||||
OCT01760 OCT 01760 # FORCED FIRING BITS MASK
|
OCT01760 OCT 01760 # FORCED FIRING BITS MASK
|
||||||
|
|
||||||
OCT01400 OCT 01400 # ROLL FORCED FIRING MASK ORDER OF
|
OCT01400 OCT 01400 # ROLL FORCED FIRING MASK ORDER OF
|
||||||
@ -838,18 +838,18 @@ FREEFUNC INDEX RMANNDX # ACCELERATION
|
|||||||
CA FREETAU # (+3) 0 SEC
|
CA FREETAU # (+3) 0 SEC
|
||||||
TS TAU2
|
TS TAU2
|
||||||
TCF T6PROGM
|
TCF T6PROGM
|
||||||
|
|
||||||
FREETAU DEC 0
|
FREETAU DEC 0
|
||||||
DEC 480
|
DEC 480
|
||||||
DEC -480
|
DEC -480
|
||||||
DEC 0
|
DEC 0
|
||||||
|
|
||||||
T6PROGM CAF ZERO # FOR MANUAL ROTATIONS
|
T6PROGM CAF ZERO # FOR MANUAL ROTATIONS
|
||||||
TS ERRORX
|
TS ERRORX
|
||||||
TS ERRORY
|
TS ERRORY
|
||||||
TS ERRORZ
|
TS ERRORZ
|
||||||
TCF T6PROG
|
TCF T6PROG
|
||||||
|
|
||||||
# Page 1021
|
# Page 1021
|
||||||
DEC .2112 # FILTER GAIN FOR TRANSLATION, LEM ON
|
DEC .2112 # FILTER GAIN FOR TRANSLATION, LEM ON
|
||||||
DEC .8400 # FILTER GAIN FOR TRANSLATION 2(ZETA)WN DT
|
DEC .8400 # FILTER GAIN FOR TRANSLATION 2(ZETA)WN DT
|
||||||
@ -865,7 +865,7 @@ GAIN1 DEC .0640 # KALMAN FILTER GAINS FOR INITIALIZATION
|
|||||||
DEC .6933
|
DEC .6933
|
||||||
DEC .8151
|
DEC .8151
|
||||||
DEC .9342
|
DEC .9342
|
||||||
|
|
||||||
DEC .0174 # FILTER GAIN FOR TRANSLATION, LEM ON
|
DEC .0174 # FILTER GAIN FOR TRANSLATION, LEM ON
|
||||||
DEC .3600 # FILTER GAIN FOR TRANSLATION (WN)(WN)DT
|
DEC .3600 # FILTER GAIN FOR TRANSLATION (WN)(WN)DT
|
||||||
DEC .0174 # FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS
|
DEC .0174 # FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS
|
||||||
@ -896,7 +896,7 @@ STICKCHK TS T5TEMP
|
|||||||
TC Q
|
TC Q
|
||||||
KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING
|
KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING
|
||||||
# KALMAN FILTER TAKES 1.1 SEC
|
# KALMAN FILTER TAKES 1.1 SEC
|
||||||
|
|
||||||
CA DELTATT # =1SEC - 80MS
|
CA DELTATT # =1SEC - 80MS
|
||||||
AD T5TIME # + DELAYS
|
AD T5TIME # + DELAYS
|
||||||
# Page 1022
|
# Page 1022
|
||||||
@ -904,15 +904,15 @@ KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING
|
|||||||
TCF +3
|
TCF +3
|
||||||
CAF DELTATT2 # SAFETY PLAY TO ASSURE
|
CAF DELTATT2 # SAFETY PLAY TO ASSURE
|
||||||
TS TIME5 # A T5RUPT
|
TS TIME5 # A T5RUPT
|
||||||
|
|
||||||
KRESUME2 CS ZERO # RESET FOR PHASE1
|
KRESUME2 CS ZERO # RESET FOR PHASE1
|
||||||
TS T5PHASE # RESUME INTERRUPTED PROGRAM
|
TS T5PHASE # RESUME INTERRUPTED PROGRAM
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1
|
FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1
|
||||||
MASK RCSFLAGS
|
MASK RCSFLAGS
|
||||||
TS RCSFLAGS
|
TS RCSFLAGS
|
||||||
|
|
||||||
CS FLAGWRD0 # ON - DISPLAY ONE OF THE TOTAL ATTITUDE
|
CS FLAGWRD0 # ON - DISPLAY ONE OF THE TOTAL ATTITUDE
|
||||||
MASK BIT9 # ERRORS
|
MASK BIT9 # ERRORS
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -923,7 +923,7 @@ FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1
|
|||||||
CS ERRORZ
|
CS ERRORZ
|
||||||
TS AK2
|
TS AK2
|
||||||
TCF RESUME # END PHASE 1
|
TCF RESUME # END PHASE 1
|
||||||
|
|
||||||
FDAITOTL CA FLAGWRD9
|
FDAITOTL CA FLAGWRD9
|
||||||
MASK BIT6
|
MASK BIT6
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -933,7 +933,7 @@ WRTN22 EXTEND # OTHERWISE, CONTINUE ON TO WRTN22 AND
|
|||||||
DCA CTHETA # GET SET TO COMPUTE TOTAL ATTITUDE
|
DCA CTHETA # GET SET TO COMPUTE TOTAL ATTITUDE
|
||||||
DXCH WTEMP # ERROR WRT N22 BY PICKING UP THE THREE
|
DXCH WTEMP # ERROR WRT N22 BY PICKING UP THE THREE
|
||||||
CA CPHI # COMPONENTS OF N22
|
CA CPHI # COMPONENTS OF N22
|
||||||
|
|
||||||
GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR
|
GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR
|
||||||
MSU CDUX # DISPLAY ON FDAI ERROR NEEDLES
|
MSU CDUX # DISPLAY ON FDAI ERROR NEEDLES
|
||||||
TS AK
|
TS AK
|
||||||
@ -965,12 +965,12 @@ GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR
|
|||||||
MP AMGB8
|
MP AMGB8
|
||||||
ADS AK2
|
ADS AK2
|
||||||
TCF RESUME # END PHASE1 OF RCS DAP
|
TCF RESUME # END PHASE1 OF RCS DAP
|
||||||
|
|
||||||
WRTN17 EXTEND # GET SET TO COMPUTE TOTAL ASTRONAUT
|
WRTN17 EXTEND # GET SET TO COMPUTE TOTAL ASTRONAUT
|
||||||
DCA CPHIX +1 # ATTITUDE ERROR WRT N17 BY PICKING UP
|
DCA CPHIX +1 # ATTITUDE ERROR WRT N17 BY PICKING UP
|
||||||
DXCH WTEMP # THE THREE COMPONENTS OF N17
|
DXCH WTEMP # THE THREE COMPONENTS OF N17
|
||||||
CA CPHIX
|
CA CPHIX
|
||||||
TCF GETAKS
|
TCF GETAKS
|
||||||
|
|
||||||
# Page 1024 (empty page)
|
# Page 1024 (empty page)
|
||||||
|
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -8,16 +8,16 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>
|
# Contact: Ron Burkey <info@sandroid.org>
|
||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
||||||
# name, and page images. Corrected various
|
# name, and page images. Corrected various
|
||||||
# typos in the transcription of program
|
# typos in the transcription of program
|
||||||
# comments, and these should be back-ported
|
# comments, and these should be back-ported
|
||||||
# to Colossus249.
|
# to Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -39,7 +39,7 @@
|
|||||||
EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
|
EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
|
||||||
|
|
||||||
COUNT 01/RSROU
|
COUNT 01/RSROU
|
||||||
|
|
||||||
RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
|
RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
|
||||||
DOUBLE # SAVE FOR INDEXING
|
DOUBLE # SAVE FOR INDEXING
|
||||||
TS TEMP2G
|
TS TEMP2G
|
||||||
@ -107,7 +107,7 @@ TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/RSROU
|
COUNT 02/RSROU
|
||||||
|
|
||||||
ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
|
ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
|
||||||
LXCH BB # SWITCHED ERASABLE
|
LXCH BB # SWITCHED ERASABLE
|
||||||
|
|
||||||
@ -126,7 +126,7 @@ ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 01/RSROU
|
COUNT 01/RSROU
|
||||||
|
|
||||||
FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED
|
FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED
|
||||||
TS L # AND SAVE
|
TS L # AND SAVE
|
||||||
NDX TEMP2G
|
NDX TEMP2G
|
||||||
@ -225,7 +225,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 02/RSROU
|
COUNT 02/RSROU
|
||||||
|
|
||||||
ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
|
ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
|
||||||
LXCH BB
|
LXCH BB
|
||||||
LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
|
LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS
|
||||||
|
|||||||
@ -8,14 +8,14 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>
|
# Contact: Ron Burkey <info@sandroid.org>
|
||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249/RT8_OP_CODES.agc
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249/RT8_OP_CODES.agc
|
||||||
# and page images.
|
# and page images.
|
||||||
# 2009-05-07 RSB Oops! Left out the entire last page before.
|
# 2009-05-07 RSB Oops! Left out the entire last page before.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -59,7 +59,7 @@ CDULOGIC CCS MPAC
|
|||||||
MP HALF
|
MP HALF
|
||||||
DAS MPAC
|
DAS MPAC
|
||||||
TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
|
TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
|
||||||
|
|
||||||
# READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
|
# READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
|
||||||
|
|
||||||
READPIPS INHINT
|
READPIPS INHINT
|
||||||
@ -70,7 +70,7 @@ READPIPS INHINT
|
|||||||
CA PIPAZ
|
CA PIPAZ
|
||||||
RELINT
|
RELINT
|
||||||
TS MPAC +5
|
TS MPAC +5
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS MPAC +1
|
TS MPAC +1
|
||||||
TS MPAC +4
|
TS MPAC +4
|
||||||
@ -80,9 +80,9 @@ VECMODE TCF VMODE
|
|||||||
# FORCE TP SIGN AGREEMENT IN MPAC:
|
# FORCE TP SIGN AGREEMENT IN MPAC:
|
||||||
|
|
||||||
SGNAGREE TC TPAGREE
|
SGNAGREE TC TPAGREE
|
||||||
|
|
||||||
# Page 1509
|
# Page 1509
|
||||||
|
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
|
|
||||||
# CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
|
# CONVERT THE DP 1'S COMPLEMENT ANGLE SCALED IN REVOLUTIONS TO A SINGLE PRECISION 2'S COMPLEMENT ANGLE
|
||||||
@ -148,17 +148,17 @@ INCRCDUS CAF LOCTHETA
|
|||||||
TS BUF # PLACE ADRES(THETA) IN BUF.
|
TS BUF # PLACE ADRES(THETA) IN BUF.
|
||||||
CAE MPAC # INCREMENT IN 1'S COMPL.
|
CAE MPAC # INCREMENT IN 1'S COMPL.
|
||||||
TC CDUINC
|
TC CDUINC
|
||||||
|
|
||||||
INCR BUF
|
INCR BUF
|
||||||
CAE MPAC +3
|
CAE MPAC +3
|
||||||
TC CDUINC
|
TC CDUINC
|
||||||
|
|
||||||
INCR BUF
|
INCR BUF
|
||||||
CAE MPAC +5
|
CAE MPAC +5
|
||||||
TC CDUINC
|
TC CDUINC
|
||||||
|
|
||||||
TCF VECMODE
|
TCF VECMODE
|
||||||
|
|
||||||
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.
|
||||||
@ -207,33 +207,33 @@ XNBEB ECADR XNB
|
|||||||
XNB1EB ECADR XNB1
|
XNB1EB ECADR XNB1
|
||||||
|
|
||||||
EBANK= XNB
|
EBANK= XNB
|
||||||
|
|
||||||
TRANSP1 CAF XNBEB
|
TRANSP1 CAF XNBEB
|
||||||
TS EBANK
|
TS EBANK
|
||||||
DXCH XNB +2
|
DXCH XNB +2
|
||||||
DXCH XNB +6
|
DXCH XNB +6
|
||||||
DXCH XNB +2
|
DXCH XNB +2
|
||||||
|
|
||||||
DXCH XNB +4
|
DXCH XNB +4
|
||||||
DXCH XNB +12D
|
DXCH XNB +12D
|
||||||
DXCH XNB +4
|
DXCH XNB +4
|
||||||
|
|
||||||
DXCH XNB +10D
|
DXCH XNB +10D
|
||||||
DXCH XNB +14D
|
DXCH XNB +14D
|
||||||
DXCH XNB +10D
|
DXCH XNB +10D
|
||||||
TCF DANZIG
|
TCF DANZIG
|
||||||
EBANK= XNB1
|
EBANK= XNB1
|
||||||
|
|
||||||
TRANSP2 CAF XNB1EB
|
TRANSP2 CAF XNB1EB
|
||||||
TS EBANK
|
TS EBANK
|
||||||
DXCH XNB1 +2
|
DXCH XNB1 +2
|
||||||
DXCH XNB1 +6
|
DXCH XNB1 +6
|
||||||
DXCH XNB1 +2
|
DXCH XNB1 +2
|
||||||
|
|
||||||
DXCH XNB1 +4
|
DXCH XNB1 +4
|
||||||
DXCH XNB1 +12D
|
DXCH XNB1 +12D
|
||||||
DXCH XNB1 +4
|
DXCH XNB1 +4
|
||||||
|
|
||||||
DXCH XNB1 +10D
|
DXCH XNB1 +10D
|
||||||
DXCH XNB1 +14D
|
DXCH XNB1 +14D
|
||||||
DXCH XNB1 +10D
|
DXCH XNB1 +10D
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -34,10 +34,10 @@
|
|||||||
BANK 23
|
BANK 23
|
||||||
SETLOC SBAND
|
SETLOC SBAND
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/R05
|
COUNT* $$/R05
|
||||||
EBANK= EMSALT
|
EBANK= EMSALT
|
||||||
|
|
||||||
SBANDANT TC BANKCALL # V 64 E GETS US HERE
|
SBANDANT TC BANKCALL # V 64 E GETS US HERE
|
||||||
CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED
|
CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
|
||||||
# name and Comanche 055 page images.
|
# name and Comanche 055 page images.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -86,7 +86,7 @@
|
|||||||
#
|
#
|
||||||
# ONMNITOR
|
# ONMNITOR
|
||||||
#
|
#
|
||||||
# A SEQUENCE OF THREE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
|
# A SEQUENCE OF THREE PASSES THROUGH QUICREAD FOLLOWING A CALL TO READACCS WITH ONMONFLG SET AT 1/2
|
||||||
# SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
|
# SEC INTERVALS. INTERVALS ARE COUNTED OUT BY PIPCTR, INITIALIZED AT 3 BY READACCS.
|
||||||
#
|
#
|
||||||
# QUIKREAD
|
# QUIKREAD
|
||||||
@ -123,7 +123,7 @@
|
|||||||
# SEQUENCE MAY BE REPEATED.
|
# SEQUENCE MAY BE REPEATED.
|
||||||
# ENGINOF3 PERFORMED.
|
# ENGINOF3 PERFORMED.
|
||||||
# DAP SET UP FOR RCS.
|
# DAP SET UP FOR RCS.
|
||||||
#
|
#
|
||||||
# AVERAGE G
|
# AVERAGE G
|
||||||
# Page 821
|
# Page 821
|
||||||
# RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
|
# RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
|
||||||
@ -204,17 +204,17 @@
|
|||||||
BANK 27
|
BANK 27
|
||||||
SETLOC SERVICES
|
SETLOC SERVICES
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
# ********************* PREREAD ***************************************
|
# ********************* PREREAD ***************************************
|
||||||
|
|
||||||
COUNT 37/SERV
|
COUNT 37/SERV
|
||||||
|
|
||||||
PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
|
PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= NBDX
|
EBANK= NBDX
|
||||||
2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
|
2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
|
||||||
|
|
||||||
# CALL-TO AND LASTBIAS ITSELF ARE NOT
|
# CALL-TO AND LASTBIAS ITSELF ARE NOT
|
||||||
# PROTECTED. REREADAC SETS 1/PIPADT
|
# PROTECTED. REREADAC SETS 1/PIPADT
|
||||||
# TO 2.0 SECS IN CASE LASTBIAS LOST.
|
# TO 2.0 SECS IN CASE LASTBIAS LOST.
|
||||||
@ -226,42 +226,42 @@ REDO5.31 TC PREREAD1
|
|||||||
TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
|
TC FINDVAC # SET UP NORMLIZE JOB REQUIRED PRIOR TO
|
||||||
EBANK= DVCNTR # FIRST AVERAGE G PASS
|
EBANK= DVCNTR # FIRST AVERAGE G PASS
|
||||||
2CADR NORMLIZE
|
2CADR NORMLIZE
|
||||||
|
|
||||||
CAF 2SECS
|
CAF 2SECS
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR READACCS
|
2CADR READACCS
|
||||||
|
|
||||||
CS TWO
|
CS TWO
|
||||||
TC NEWPHASE
|
TC NEWPHASE
|
||||||
OCT 5
|
OCT 5
|
||||||
|
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
PREREAD1 EXTEND
|
PREREAD1 EXTEND
|
||||||
QXCH RUPTREG1
|
QXCH RUPTREG1
|
||||||
|
|
||||||
TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
|
TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
|
||||||
|
|
||||||
CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
|
CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
|
||||||
TS PIPAGE # RESTART OCCURS BEFORE READACCS
|
TS PIPAGE # RESTART OCCURS BEFORE READACCS
|
||||||
|
|
||||||
CS FLAGWRD1 # SET AVEG FLAG
|
CS FLAGWRD1 # SET AVEG FLAG
|
||||||
MASK BIT1
|
MASK BIT1
|
||||||
ADS FLAGWRD1
|
ADS FLAGWRD1
|
||||||
|
|
||||||
CA POSMAX
|
CA POSMAX
|
||||||
MASK FLAGWRD2
|
MASK FLAGWRD2
|
||||||
TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
|
TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
|
||||||
|
|
||||||
CS FLAGWRD7 # SET V37 FLAG
|
CS FLAGWRD7 # SET V37 FLAG
|
||||||
MASK BIT6
|
MASK BIT6
|
||||||
ADS FLAGWRD7
|
ADS FLAGWRD7
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS DVTOTAL # CLEAR DVTOTAL
|
TS DVTOTAL # CLEAR DVTOTAL
|
||||||
TS DVTOTAL +1
|
TS DVTOTAL +1
|
||||||
|
|
||||||
TC RUPTREG1
|
TC RUPTREG1
|
||||||
|
|
||||||
# Page 824
|
# Page 824
|
||||||
@ -273,18 +273,18 @@ PIPSDONE CAF FIVE
|
|||||||
TS L
|
TS L
|
||||||
COM
|
COM
|
||||||
DXCH -PHASE5
|
DXCH -PHASE5
|
||||||
|
|
||||||
REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
|
REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
|
||||||
TS PIPAGE
|
TS PIPAGE
|
||||||
|
|
||||||
CA TWO # SET PIPCTR FOR ONMINTOR
|
CA TWO # SET PIPCTR FOR ONMINTOR
|
||||||
TS PIPCTR # AFTER ABOVE PHASCHNG
|
TS PIPCTR # AFTER ABOVE PHASCHNG
|
||||||
|
|
||||||
CS CM/FLAGS
|
CS CM/FLAGS
|
||||||
MASK BIT2 # CM/DSTBY
|
MASK BIT2 # CM/DSTBY
|
||||||
CCS A
|
CCS A
|
||||||
TC CHEKAVEG
|
TC CHEKAVEG
|
||||||
|
|
||||||
CS PIPTIME1 +1
|
CS PIPTIME1 +1
|
||||||
TS TBASE6 # FOR RESTARTS
|
TS TBASE6 # FOR RESTARTS
|
||||||
EXTEND # CONTINUE FOR ENTRY DAP
|
EXTEND # CONTINUE FOR ENTRY DAP
|
||||||
@ -301,17 +301,17 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
|
|||||||
MASK BIT12 # CM/DAPARM 93D BIT12
|
MASK BIT12 # CM/DAPARM 93D BIT12
|
||||||
EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
|
EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
|
||||||
BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
|
BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
|
||||||
|
|
||||||
CA 0.5SEC
|
CA 0.5SEC
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= XPIPBUF
|
EBANK= XPIPBUF
|
||||||
2CADR QUIKREAD
|
2CADR QUIKREAD
|
||||||
|
|
||||||
# NO NEED TO RESTART PROTECT THIS.
|
# NO NEED TO RESTART PROTECT THIS.
|
||||||
CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
|
CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
|
||||||
XCH XPIPBUF
|
XCH XPIPBUF
|
||||||
TS XOLDBUF
|
TS XOLDBUF
|
||||||
|
|
||||||
CA DELVY
|
CA DELVY
|
||||||
XCH YPIPBUF
|
XCH YPIPBUF
|
||||||
TS YOLDBUF
|
TS YOLDBUF
|
||||||
@ -319,56 +319,56 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
|
|||||||
CA DELVZ
|
CA DELVZ
|
||||||
XCH ZPIPBUF
|
XCH ZPIPBUF
|
||||||
TS ZOLDBUF
|
TS ZOLDBUF
|
||||||
|
|
||||||
NOSAVPIP CA FIVE
|
NOSAVPIP CA FIVE
|
||||||
TS CM/GYMDT
|
TS CM/GYMDT
|
||||||
|
|
||||||
CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
|
CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
|
||||||
# IN JTAGTIME +5 CS.
|
# IN JTAGTIME +5 CS.
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR SETJTAG
|
2CADR SETJTAG
|
||||||
|
|
||||||
CS THREE # 1.3SPOT FOR SETJTAG
|
CS THREE # 1.3SPOT FOR SETJTAG
|
||||||
TC NEWPHASE
|
TC NEWPHASE
|
||||||
OCT 1
|
OCT 1
|
||||||
|
|
||||||
CAF OCT37
|
CAF OCT37
|
||||||
TS L
|
TS L
|
||||||
COM
|
COM
|
||||||
DXCH -PHASE5
|
DXCH -PHASE5
|
||||||
|
|
||||||
CHEKAVEG CS FLAGWRD1
|
CHEKAVEG CS FLAGWRD1
|
||||||
MASK BIT1
|
MASK BIT1
|
||||||
CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
|
CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
|
||||||
TC AVEGOUT
|
TC AVEGOUT
|
||||||
|
|
||||||
CAF 2SECS
|
CAF 2SECS
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
2CADR READACCS
|
2CADR READACCS
|
||||||
|
|
||||||
MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
|
MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
2CADR SERVICER
|
2CADR SERVICER
|
||||||
|
|
||||||
CS FOUR # RESTART SERVICER AND READACCS
|
CS FOUR # RESTART SERVICER AND READACCS
|
||||||
TC NEWPHASE
|
TC NEWPHASE
|
||||||
OCT 5
|
OCT 5
|
||||||
|
|
||||||
CAF BIT9
|
CAF BIT9
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
|
WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
|
||||||
|
|
||||||
TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
|
TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
|
||||||
|
|
||||||
# Page 826
|
# Page 826
|
||||||
AVEGOUT EXTEND
|
AVEGOUT EXTEND
|
||||||
DCA AVOUTCAD
|
DCA AVOUTCAD
|
||||||
DXCH AVGEXIT
|
DXCH AVGEXIT
|
||||||
TCF MAKESERV
|
TCF MAKESERV
|
||||||
|
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
AVOUTCAD 2CADR AVGEND
|
AVOUTCAD 2CADR AVGEND
|
||||||
|
|
||||||
@ -428,7 +428,7 @@ CHKCTR CCS RUPTREG1
|
|||||||
# ********************* SERVICER ***************************************
|
# ********************* SERVICER ***************************************
|
||||||
|
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
|
|
||||||
SERVICER CAF TWO
|
SERVICER CAF TWO
|
||||||
INHINT
|
INHINT
|
||||||
PIPCHECK TS RUPTREG1
|
PIPCHECK TS RUPTREG1
|
||||||
@ -438,48 +438,48 @@ PIPCHECK TS RUPTREG1
|
|||||||
CCS DELVX
|
CCS DELVX
|
||||||
TC +2
|
TC +2
|
||||||
TC PIPLOOP
|
TC PIPLOOP
|
||||||
|
|
||||||
AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
|
AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF PIPLOOP # COMPENSATION.
|
BZMF PIPLOOP # COMPENSATION.
|
||||||
|
|
||||||
TC ALARM
|
TC ALARM
|
||||||
OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
|
OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
|
||||||
TC AVERAGEG
|
TC AVERAGEG
|
||||||
|
|
||||||
PIPLOOP CCS RUPTREG1
|
PIPLOOP CCS RUPTREG1
|
||||||
TCF PIPCHECK
|
TCF PIPCHECK
|
||||||
|
|
||||||
TC PHASCHNG # RESTART REREADAC + SERVICER
|
TC PHASCHNG # RESTART REREADAC + SERVICER
|
||||||
OCT 16035
|
OCT 16035
|
||||||
OCT 20000
|
OCT 20000
|
||||||
EBANK= DVCNTR
|
EBANK= DVCNTR
|
||||||
2CADR DVTOTUP
|
2CADR DVTOTUP
|
||||||
|
|
||||||
TC BANKCALL # PIPA COMPENSATION CALL
|
TC BANKCALL # PIPA COMPENSATION CALL
|
||||||
CADR 1/PIPA
|
CADR 1/PIPA
|
||||||
|
|
||||||
DVTOTUP TC INTPRET
|
DVTOTUP TC INTPRET
|
||||||
VLOAD ABVAL # GET ABS VALUE OF DELV
|
VLOAD ABVAL # GET ABS VALUE OF DELV
|
||||||
DELV
|
DELV
|
||||||
DMP EXIT
|
DMP EXIT
|
||||||
KPIP1 # SCALE AT 2(+7)
|
KPIP1 # SCALE AT 2(+7)
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA MPAC
|
DCA MPAC
|
||||||
DAS DVTOTAL # ACCUMULATE DVTOTAL
|
DAS DVTOTAL # ACCUMULATE DVTOTAL
|
||||||
AVERAGEG TC PHASCHNG
|
AVERAGEG TC PHASCHNG
|
||||||
OCT 10035
|
OCT 10035
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
# Page 829
|
# Page 829
|
||||||
CALCRVG
|
CALCRVG
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 10035
|
OCT 10035
|
||||||
|
|
||||||
CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
|
CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
|
||||||
TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
|
TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
|
||||||
ADRES RN1
|
ADRES RN1
|
||||||
@ -491,37 +491,37 @@ AVERAGEG TC PHASCHNG
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA AVGEXIT
|
DCA AVGEXIT
|
||||||
DXCH Z # AVERAGEG EXIT
|
DXCH Z # AVERAGEG EXIT
|
||||||
|
|
||||||
AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
|
AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
|
||||||
TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
|
TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
|
||||||
|
|
||||||
TC UPFLAG # SET DRIFTFLG
|
TC UPFLAG # SET DRIFTFLG
|
||||||
ADRES DRIFTFLG # BIT 15 FLAG 2
|
ADRES DRIFTFLG # BIT 15 FLAG 2
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 5 # GROUP 5 OFF
|
OCT 5 # GROUP 5 OFF
|
||||||
OCT 05022 # GROUP 2 ON FOR AVETOMID
|
OCT 05022 # GROUP 2 ON FOR AVETOMID
|
||||||
OCT 20000
|
OCT 20000
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
CALL
|
CALL
|
||||||
AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
|
AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
|
||||||
EXIT
|
EXIT
|
||||||
|
|
||||||
CAF ZERO # ZERO MARK COUNTERS.
|
CAF ZERO # ZERO MARK COUNTERS.
|
||||||
TS VHFCNT
|
TS VHFCNT
|
||||||
TS TRKMKCNT
|
TS TRKMKCNT
|
||||||
|
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR PIPFREE
|
CADR PIPFREE
|
||||||
|
|
||||||
CS BIT9
|
CS BIT9
|
||||||
TS MRKBUF2 # INVALIDATE MARK BUFFER
|
TS MRKBUF2 # INVALIDATE MARK BUFFER
|
||||||
EXTEND
|
EXTEND
|
||||||
WAND DSALMOUT
|
WAND DSALMOUT
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES CM/DSTBY
|
ADRES CM/DSTBY
|
||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES V37FLAG
|
ADRES V37FLAG
|
||||||
|
|
||||||
@ -530,23 +530,23 @@ AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
|
|||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF +4
|
BZF +4
|
||||||
|
|
||||||
TC 2PHSCHNG
|
TC 2PHSCHNG
|
||||||
OCT 111 # 1.11SPOT
|
OCT 111 # 1.11SPOT
|
||||||
OCT 132 # 2.13SPOT
|
OCT 132 # 2.13SPOT
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR CANV37
|
CADR CANV37
|
||||||
|
|
||||||
SERVEXIT TC PHASCHNG
|
SERVEXIT TC PHASCHNG
|
||||||
OCT 00035 # A, 5.3 = REREADAC (ONLY)
|
OCT 00035 # A, 5.3 = REREADAC (ONLY)
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
|
DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
|
||||||
# FOR 503-FULL CSM/LEM....DELV SC.AT
|
# FOR 503-FULL CSM/LEM....DELV SC.AT
|
||||||
# 5.85 CM/SEC.
|
# 5.85 CM/SEC.
|
||||||
|
|
||||||
-MAXDELV DEC -6398 # 3200 PPS FOR 2 SEC CCS TAKES 1
|
-MAXDELV DEC -6398 # 3200 PPS FOR 2 SEC CCS TAKES 1
|
||||||
|
|
||||||
JTAGTIME DEC 120 # = 1 SEC + T CDU, T CDU = .1 SEC
|
JTAGTIME DEC 120 # = 1 SEC + T CDU, T CDU = .1 SEC
|
||||||
@ -555,7 +555,7 @@ JTAGTIME DEC 120 # = 1 SEC + T CDU, T CDU = .1 SEC
|
|||||||
MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
|
MDOTFAIL DEC 144.0 B-16 # 5 SEC MASS LOSS AT 28.8 KG/SEC
|
||||||
# SHOULD BE 2-4 SECS FOR NO START
|
# SHOULD BE 2-4 SECS FOR NO START
|
||||||
# 6-8 SECS FOR FAILURE
|
# 6-8 SECS FOR FAILURE
|
||||||
|
|
||||||
# Page 831
|
# Page 831
|
||||||
# NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
|
# NORMLIZE PERFORMS THE INITIALIZATION REQUIRED PRIOR TO THE FIRST ENTRY TO AVERAGEG, AND SCALES RN SO THAT IT
|
||||||
# HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
|
# HAS 1 LEADING BINARY ZERO. IN MOST MISSIONS, RN WILL BE SCALED AT 2(+29), BUT IN THE 206 MISSION, RN WILL BE
|
||||||
@ -565,19 +565,19 @@ NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1
|
|||||||
TC GENTRAN # INTO RN,VN,PIPTIME
|
TC GENTRAN # INTO RN,VN,PIPTIME
|
||||||
ADRES RN1 # FROM HERE
|
ADRES RN1 # FROM HERE
|
||||||
ADRES RN # TO HERE
|
ADRES RN # TO HERE
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
VLOAD CALL # LOAD RN FOR CALCGRAV
|
VLOAD CALL # LOAD RN FOR CALCGRAV
|
||||||
RN
|
RN
|
||||||
CALCGRAV # INITIALIZE UNITR RMAG GDT1
|
CALCGRAV # INITIALIZE UNITR RMAG GDT1
|
||||||
|
|
||||||
STOVL GDT/2
|
STOVL GDT/2
|
||||||
GOBL1/2
|
GOBL1/2
|
||||||
STORE GOBL/2
|
STORE GOBL/2
|
||||||
EXIT
|
EXIT
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
# Page 832
|
# Page 832
|
||||||
# ***** PIPA READER *****
|
# ***** PIPA READER *****
|
||||||
# MOD NO. 00 BY D. LICKLY DEC. 9 1966
|
# MOD NO. 00 BY D. LICKLY DEC. 9 1966
|
||||||
@ -625,47 +625,47 @@ PIPASR EXTEND
|
|||||||
CA ZERO
|
CA ZERO
|
||||||
TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
|
TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
|
||||||
TS DELVY
|
TS DELVY
|
||||||
|
|
||||||
TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS
|
TS DELVX +1 # LOW ORDER DELV'S ARE ZEROED FOR TM: THIS
|
||||||
TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY
|
TS DELVY +1 # IF DNLNK=D LOW ORDER DELVS ARE NZ, THEY
|
||||||
TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
|
TS DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
|
||||||
# THE TM VALUES ARE BEFORE COMPENSATION.
|
# THE TM VALUES ARE BEFORE COMPENSATION.
|
||||||
|
|
||||||
TS PIPAGE # SHOW PIPA READING IN PROGRESS
|
TS PIPAGE # SHOW PIPA READING IN PROGRESS
|
||||||
|
|
||||||
REPIP1 EXTEND
|
REPIP1 EXTEND
|
||||||
DCS PIPAX # X AND Y PIPS READ
|
DCS PIPAX # X AND Y PIPS READ
|
||||||
DXCH TEMX
|
DXCH TEMX
|
||||||
DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
|
DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
|
||||||
TS DELVX
|
TS DELVX
|
||||||
LXCH DELVY
|
LXCH DELVY
|
||||||
|
|
||||||
REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
|
REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
|
||||||
XCH TEMZ
|
XCH TEMZ
|
||||||
XCH PIPAZ
|
XCH PIPAZ
|
||||||
DODELVZ TS DELVZ
|
DODELVZ TS DELVZ
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
EBANK= AOG
|
EBANK= AOG
|
||||||
|
|
||||||
REREADAC CCS PHASE5 # LAST PASS CHECK
|
REREADAC CCS PHASE5 # LAST PASS CHECK
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
|
CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
|
||||||
TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
|
TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
|
||||||
# WHICH SET(S) UP 1/PIPADT (THUSLY)
|
# WHICH SET(S) UP 1/PIPADT (THUSLY)
|
||||||
# FOR NON-COASTING COMPENSATION....BE
|
# FOR NON-COASTING COMPENSATION....BE
|
||||||
# SURE 1/PIPADT IS AOK. (PRIO31 IS
|
# SURE 1/PIPADT IS AOK. (PRIO31 IS
|
||||||
# 2.0SEC SC.AT B+8(CS)
|
# 2.0SEC SC.AT B+8(CS)
|
||||||
|
|
||||||
CCS PIPAGE
|
CCS PIPAGE
|
||||||
TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
|
TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
|
||||||
|
|
||||||
CAF DONEADR # SET UP RETURN FROM PIPASR
|
CAF DONEADR # SET UP RETURN FROM PIPASR
|
||||||
TS Q
|
TS Q
|
||||||
|
|
||||||
CCS DELVZ
|
CCS DELVZ
|
||||||
TC Q # Z DONE, GO DO CDUS
|
TC Q # Z DONE, GO DO CDUS
|
||||||
TCF +3 # Z NOT DONE, CHECK Y.
|
TCF +3 # Z NOT DONE, CHECK Y.
|
||||||
@ -678,29 +678,29 @@ REREADAC CCS PHASE5 # LAST PASS CHECK
|
|||||||
TCF CHKTEMX # Y NOT DONE, CHECK X.
|
TCF CHKTEMX # Y NOT DONE, CHECK X.
|
||||||
TCF +1
|
TCF +1
|
||||||
LXCH PIPAZ # Y DONE, ZERO Z PIP.
|
LXCH PIPAZ # Y DONE, ZERO Z PIP.
|
||||||
|
|
||||||
CCS TEMZ
|
CCS TEMZ
|
||||||
CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
|
CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
|
||||||
TCF DODELVZ
|
TCF DODELVZ
|
||||||
TCF -2
|
TCF -2
|
||||||
LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
|
LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
CHKTEMX CCS TEMX # HAS THIS CHANGED
|
CHKTEMX CCS TEMX # HAS THIS CHANGED
|
||||||
CS TEMX # YES
|
CS TEMX # YES
|
||||||
TCF +3 # YES
|
TCF +3 # YES
|
||||||
TCF -2 # YES
|
TCF -2 # YES
|
||||||
TCF REPIP1 # NO
|
TCF REPIP1 # NO
|
||||||
TS DELVX
|
TS DELVX
|
||||||
|
|
||||||
CS TEMY
|
CS TEMY
|
||||||
TS DELVY
|
TS DELVY
|
||||||
|
|
||||||
CS ZERO # ZERO X AND Y PIPS
|
CS ZERO # ZERO X AND Y PIPS
|
||||||
DXCH PIPAX # L STILL ZERO FROM ABOVE
|
DXCH PIPAX # L STILL ZERO FROM ABOVE
|
||||||
|
|
||||||
TCF REPIP3
|
TCF REPIP3
|
||||||
|
|
||||||
DONEADR GENADR PIPSDONE
|
DONEADR GENADR PIPSDONE
|
||||||
|
|
||||||
# Page 835
|
# Page 835
|
||||||
@ -777,13 +777,13 @@ CALCRVG VLOAD VXSC
|
|||||||
31D
|
31D
|
||||||
STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
|
STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
|
||||||
CALCGRAV
|
CALCGRAV
|
||||||
|
|
||||||
VAD VAD
|
VAD VAD
|
||||||
VAD
|
VAD
|
||||||
VN
|
VN
|
||||||
STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
|
STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
|
||||||
31D
|
31D
|
||||||
|
|
||||||
KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
|
KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
|
||||||
|
|
||||||
KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
|
KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.
|
||||||
|
|||||||
@ -8,16 +8,16 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>
|
# Contact: Ron Burkey <info@sandroid.org>
|
||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
|
||||||
# name, and page images. Corrected various
|
# name, and page images. Corrected various
|
||||||
# typos in the transcription of program
|
# typos in the transcription of program
|
||||||
# comments, and these should be back-ported
|
# comments, and these should be back-ported
|
||||||
# to Colossus249.
|
# to Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -38,40 +38,40 @@
|
|||||||
COUNT 03/FLAG
|
COUNT 03/FLAG
|
||||||
|
|
||||||
UPENT2 TS L # WHICH FLAGWORD IS IT
|
UPENT2 TS L # WHICH FLAGWORD IS IT
|
||||||
MASK OCT7
|
MASK OCT7
|
||||||
XCH L # SAVE IN L FOR INDEXING
|
XCH L # SAVE IN L FOR INDEXING
|
||||||
|
|
||||||
MASK OCT77770 # OBTAIN THE BIT INFORMATION
|
MASK OCT77770 # OBTAIN THE BIT INFORMATION
|
||||||
INHINT # PREVENT INTERRUPTS
|
INHINT # PREVENT INTERRUPTS
|
||||||
TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARILY
|
TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARILY
|
||||||
|
|
||||||
NDX L
|
NDX L
|
||||||
CS FLAGWRD0
|
CS FLAGWRD0
|
||||||
MASK ITEMP1
|
MASK ITEMP1
|
||||||
NDX L
|
NDX L
|
||||||
ADS FLAGWRD0
|
ADS FLAGWRD0
|
||||||
RELINT # RELEASE INTERRUPT INHIBIT
|
RELINT # RELEASE INTERRUPT INHIBIT
|
||||||
|
|
||||||
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
|
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
|
||||||
TC Q # RETURN
|
TC Q # RETURN
|
||||||
|
|
||||||
DOWNENT2 TS L # WHICH FLAGWORD IS IT
|
DOWNENT2 TS L # WHICH FLAGWORD IS IT
|
||||||
MASK OCT7
|
MASK OCT7
|
||||||
XCH L # SAVE IN L FOR INDEXING
|
XCH L # SAVE IN L FOR INDEXING
|
||||||
|
|
||||||
MASK OCT77770 # OBTAIN THE BIT INFORMATION
|
MASK OCT77770 # OBTAIN THE BIT INFORMATION
|
||||||
COM # START TO PROCESS THE INFORMATION
|
COM # START TO PROCESS THE INFORMATION
|
||||||
|
|
||||||
INHINT # PREVENT INTERRUPTS
|
INHINT # PREVENT INTERRUPTS
|
||||||
NDX L
|
NDX L
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
NDX L
|
NDX L
|
||||||
TS FLAGWRD0
|
TS FLAGWRD0
|
||||||
RELINT # RELEASE INTERRUPT INHIBIT
|
RELINT # RELEASE INTERRUPT INHIBIT
|
||||||
|
|
||||||
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
|
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
OCT7 EQUALS SEVEN
|
OCT7 EQUALS SEVEN
|
||||||
BANK 10
|
BANK 10
|
||||||
|
|
||||||
@ -256,16 +256,16 @@ TRFAILOF INHINT
|
|||||||
CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON
|
CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON
|
||||||
MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO
|
MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO
|
||||||
ADS OPTMODES # TRACKER FAIL.
|
ADS OPTMODES # TRACKER FAIL.
|
||||||
|
|
||||||
REQ RELINT
|
REQ RELINT
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
TRFAILON INHINT
|
TRFAILON INHINT
|
||||||
CS DSPTAB +11D # TURN ON
|
CS DSPTAB +11D # TURN ON
|
||||||
MASK OCT40200
|
MASK OCT40200
|
||||||
ADS DSPTAB +11D
|
ADS DSPTAB +11D
|
||||||
TCF REQ
|
TCF REQ
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -33,7 +33,7 @@
|
|||||||
# SINGLE PRECISION SINE AND COSINE
|
# SINGLE PRECISION SINE AND COSINE
|
||||||
|
|
||||||
COUNT 02/INTER
|
COUNT 02/INTER
|
||||||
|
|
||||||
SPCOS AD HALF # ARGUMENTS SCALED AT PI
|
SPCOS AD HALF # ARGUMENTS SCALED AT PI
|
||||||
SPSIN TS TEMK
|
SPSIN TS TEMK
|
||||||
TCF SPT
|
TCF SPT
|
||||||
@ -66,7 +66,7 @@ POLLEY EXTEND
|
|||||||
ARG90 INDEX A
|
ARG90 INDEX A
|
||||||
CS LIMITS
|
CS LIMITS
|
||||||
TC Q # RESULT SCALED AT 1.
|
TC Q # RESULT SCALED AT 1.
|
||||||
|
|
||||||
# SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
|
# SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -7,9 +7,9 @@
|
|||||||
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 525-532
|
# Pages: 525-532
|
||||||
# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
|
# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images 0525.jpg - 0532.jpg.
|
# images 0525.jpg - 0532.jpg.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
# images of a hardcopy from the MIT Museum. The digitization was performed
|
# images of a hardcopy from the MIT Museum. The digitization was performed
|
||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -106,10 +106,10 @@
|
|||||||
BANK 04
|
BANK 04
|
||||||
SETLOC STBLEORB
|
SETLOC STBLEORB
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= SUBEXIT
|
EBANK= SUBEXIT
|
||||||
COUNT* $$/P3879
|
COUNT* $$/P3879
|
||||||
|
|
||||||
P38 TC AVFLAGA # THIS VEHICLE ACTIVE
|
P38 TC AVFLAGA # THIS VEHICLE ACTIVE
|
||||||
TC +2
|
TC +2
|
||||||
P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
|
P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
|
||||||
@ -207,7 +207,7 @@ JUNCTN2 DLOAD DSU
|
|||||||
TINT
|
TINT
|
||||||
DELTTIME
|
DELTTIME
|
||||||
STORE TARGTIME # TT = TI - DELTA T
|
STORE TARGTIME # TT = TI - DELTA T
|
||||||
|
|
||||||
# .... MAINRTNE ....
|
# .... MAINRTNE ....
|
||||||
#
|
#
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
@ -275,7 +275,7 @@ DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
|
|||||||
P39/79SW
|
P39/79SW
|
||||||
P39/P79B
|
P39/P79B
|
||||||
RECYCLE
|
RECYCLE
|
||||||
|
|
||||||
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
|
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
|
||||||
#
|
#
|
||||||
# MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
|
# MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
|
||||||
@ -344,7 +344,7 @@ P39/P79B RTB DAD
|
|||||||
DLOAD GOTO
|
DLOAD GOTO
|
||||||
TARGTIME
|
TARGTIME
|
||||||
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
|
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
|
||||||
|
|
||||||
# .... PREC/TT ....
|
# .... PREC/TT ....
|
||||||
#
|
#
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
@ -378,7 +378,7 @@ PREC/TT STQ DLOAD
|
|||||||
DLOAD GOTO
|
DLOAD GOTO
|
||||||
T
|
T
|
||||||
RTRN
|
RTRN
|
||||||
|
|
||||||
# .... INTRPVP ....
|
# .... INTRPVP ....
|
||||||
#
|
#
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
@ -399,7 +399,7 @@ OTHERV CALL
|
|||||||
LEMPREC
|
LEMPREC
|
||||||
GOTO
|
GOTO
|
||||||
RTRN
|
RTRN
|
||||||
|
|
||||||
# .... VNDSPLY ....
|
# .... VNDSPLY ....
|
||||||
#
|
#
|
||||||
# SUBROUTINES USED
|
# SUBROUTINES USED
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -32,162 +32,162 @@
|
|||||||
BANK 32
|
BANK 32
|
||||||
SETLOC STARTAB
|
SETLOC STARTAB
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 14/STARS
|
COUNT 14/STARS
|
||||||
|
|
||||||
2DEC +.8342971408 B-1 # STAR 37 X
|
2DEC +.8342971408 B-1 # STAR 37 X
|
||||||
2DEC -.2392481515 B-1 # STAR 37 Y
|
2DEC -.2392481515 B-1 # STAR 37 Y
|
||||||
2DEC -.4966976975 B-1 # STAR 37 Z
|
2DEC -.4966976975 B-1 # STAR 37 Z
|
||||||
|
|
||||||
2DEC +.8139832631 B-1 # STAR 36 X
|
2DEC +.8139832631 B-1 # STAR 36 X
|
||||||
2DEC -.5557243189 B-1 # STAR 36 Y
|
2DEC -.5557243189 B-1 # STAR 36 Y
|
||||||
2DEC +.1691204557 B-1 # STAR 36 Z
|
2DEC +.1691204557 B-1 # STAR 36 Z
|
||||||
|
|
||||||
2DEC +.4541086270 B-1 # STAR 35 X
|
2DEC +.4541086270 B-1 # STAR 35 X
|
||||||
2DEC -.5392368197 B-1 # STAR 35 Y
|
2DEC -.5392368197 B-1 # STAR 35 Y
|
||||||
2DEC +.7092312789 B-1 # STAR 35 Z
|
2DEC +.7092312789 B-1 # STAR 35 Z
|
||||||
|
|
||||||
2DEC +.3201817378 B-1 # STAR 34 X
|
2DEC +.3201817378 B-1 # STAR 34 X
|
||||||
2DEC -.4436021946 B-1 # STAR 34 Y
|
2DEC -.4436021946 B-1 # STAR 34 Y
|
||||||
2DEC -.8370786986 B-1 # STAR 34 Z
|
2DEC -.8370786986 B-1 # STAR 34 Z
|
||||||
|
|
||||||
2DEC +.5520184464 B-1 # STAR 33 X
|
2DEC +.5520184464 B-1 # STAR 33 X
|
||||||
2DEC -.7933187400 B-1 # STAR 33 Y
|
2DEC -.7933187400 B-1 # STAR 33 Y
|
||||||
2DEC -.2567508745 B-1 # STAR 33 Z
|
2DEC -.2567508745 B-1 # STAR 33 Z
|
||||||
|
|
||||||
2DEC +.4537196908 B-1 # STAR 32 X
|
2DEC +.4537196908 B-1 # STAR 32 X
|
||||||
2DEC -.8779508801 B-1 # STAR 32 Y
|
2DEC -.8779508801 B-1 # STAR 32 Y
|
||||||
2DEC +.1527766153 B-1 # STAR 32 Z
|
2DEC +.1527766153 B-1 # STAR 32 Z
|
||||||
|
|
||||||
2DEC +.2069525789 B-1 # STAR 31 X
|
2DEC +.2069525789 B-1 # STAR 31 X
|
||||||
2DEC -.8719885748 B-1 # STAR 31 Y
|
2DEC -.8719885748 B-1 # STAR 31 Y
|
||||||
2DEC -.4436288486 B-1 # STAR 31 Z
|
2DEC -.4436288486 B-1 # STAR 31 Z
|
||||||
|
|
||||||
2DEC +.1217293692 B-1 # STAR 30 X
|
2DEC +.1217293692 B-1 # STAR 30 X
|
||||||
# Page 1390
|
# Page 1390
|
||||||
2DEC -.7702732847 B-1 # STAR 30 Y
|
2DEC -.7702732847 B-1 # STAR 30 Y
|
||||||
2DEC +.6259880410 B-1 # STAR 30 Z
|
2DEC +.6259880410 B-1 # STAR 30 Z
|
||||||
|
|
||||||
2DEC -.1124304773 B-1 # STAR 29 X
|
2DEC -.1124304773 B-1 # STAR 29 X
|
||||||
2DEC -.9694934200 B-1 # STAR 29 Y
|
2DEC -.9694934200 B-1 # STAR 29 Y
|
||||||
2DEC +.2178116072 B-1 # STAR 29 Z
|
2DEC +.2178116072 B-1 # STAR 29 Z
|
||||||
|
|
||||||
2DEC -.1146237858 B-1 # STAR 28 X
|
2DEC -.1146237858 B-1 # STAR 28 X
|
||||||
2DEC -.3399692557 B-1 # STAR 28 Y
|
2DEC -.3399692557 B-1 # STAR 28 Y
|
||||||
2DEC -.9334250333 B-1 # STAR 28 Z
|
2DEC -.9334250333 B-1 # STAR 28 Z
|
||||||
|
|
||||||
2DEC -.3516499609 B-1 # STAR 27 X
|
2DEC -.3516499609 B-1 # STAR 27 X
|
||||||
2DEC -.8240752703 B-1 # STAR 27 Y
|
2DEC -.8240752703 B-1 # STAR 27 Y
|
||||||
2DEC -.4441196390 B-1 # STAR 27 Z
|
2DEC -.4441196390 B-1 # STAR 27 Z
|
||||||
|
|
||||||
2DEC -.5326876930 B-1 # STAR 26 X
|
2DEC -.5326876930 B-1 # STAR 26 X
|
||||||
2DEC -.7160644554 B-1 # STAR 26 Y
|
2DEC -.7160644554 B-1 # STAR 26 Y
|
||||||
2DEC +.4511047742 B-1 # STAR 26 Z
|
2DEC +.4511047742 B-1 # STAR 26 Z
|
||||||
|
|
||||||
2DEC -.7861763936 B-1 # STAR 25 X
|
2DEC -.7861763936 B-1 # STAR 25 X
|
||||||
2DEC -.5217996305 B-1 # STAR 25 Y
|
2DEC -.5217996305 B-1 # STAR 25 Y
|
||||||
2DEC +.3311371675 B-1 # STAR 25 Z
|
2DEC +.3311371675 B-1 # STAR 25 Z
|
||||||
|
|
||||||
2DEC -.6898393233 B-1 # STAR 24 X
|
2DEC -.6898393233 B-1 # STAR 24 X
|
||||||
2DEC -.4182330640 B-1 # STAR 24 Y
|
2DEC -.4182330640 B-1 # STAR 24 Y
|
||||||
2DEC -.5909338474 B-1 # STAR 24 Z
|
2DEC -.5909338474 B-1 # STAR 24 Z
|
||||||
|
|
||||||
2DEC -.5812035376 B-1 # STAR 23 X
|
2DEC -.5812035376 B-1 # STAR 23 X
|
||||||
2DEC -.2909171294 B-1 # STAR 23 Y
|
2DEC -.2909171294 B-1 # STAR 23 Y
|
||||||
2DEC +.7599800468 B-1 # STAR 23 Z
|
2DEC +.7599800468 B-1 # STAR 23 Z
|
||||||
|
|
||||||
2DEC -.9170097662 B-1 # STAR 22 X
|
2DEC -.9170097662 B-1 # STAR 22 X
|
||||||
2DEC -.3502146628 B-1 # STAR 22 Y
|
2DEC -.3502146628 B-1 # STAR 22 Y
|
||||||
# Page 1391
|
# Page 1391
|
||||||
2DEC -.1908999176 B-1 # STAR 22 Z
|
2DEC -.1908999176 B-1 # STAR 22 Z
|
||||||
|
|
||||||
2DEC -.4523440203 B-1 # STAR 21 X
|
2DEC -.4523440203 B-1 # STAR 21 X
|
||||||
2DEC -.0493710140 B-1 # STAR 21 Y
|
2DEC -.0493710140 B-1 # STAR 21 Y
|
||||||
2DEC -.8904759346 B-1 # STAR 21 Z
|
2DEC -.8904759346 B-1 # STAR 21 Z
|
||||||
|
|
||||||
2DEC -.9525211695 B-1 # STAR 20 X
|
2DEC -.9525211695 B-1 # STAR 20 X
|
||||||
2DEC -.0593434796 B-1 # STAR 20 Y
|
2DEC -.0593434796 B-1 # STAR 20 Y
|
||||||
2DEC -.2986331746 B-1 # STAR 20 Z
|
2DEC -.2986331746 B-1 # STAR 20 Z
|
||||||
|
|
||||||
2DEC -.9656605484 B-1 # STAR 19 X
|
2DEC -.9656605484 B-1 # STAR 19 X
|
||||||
2DEC +.0525933156 B-1 # STAR 19 Y
|
2DEC +.0525933156 B-1 # STAR 19 Y
|
||||||
2DEC +.2544280809 B-1 # STAR 19 Z
|
2DEC +.2544280809 B-1 # STAR 19 Z
|
||||||
|
|
||||||
2DEC -.8608205219 B-1 # STAR 18 X
|
2DEC -.8608205219 B-1 # STAR 18 X
|
||||||
2DEC +.4636213989 B-1 # STAR 18 Y
|
2DEC +.4636213989 B-1 # STAR 18 Y
|
||||||
2DEC +.2098647835 B-1 # STAR 18 Z
|
2DEC +.2098647835 B-1 # STAR 18 Z
|
||||||
|
|
||||||
2DEC -.7742591356 B-1 # STAR 17 X
|
2DEC -.7742591356 B-1 # STAR 17 X
|
||||||
2DEC +.6152504197 B-1 # STAR 17 Y
|
2DEC +.6152504197 B-1 # STAR 17 Y
|
||||||
2DEC -.1482892839 B-1 # STAR 17 Z
|
2DEC -.1482892839 B-1 # STAR 17 Z
|
||||||
|
|
||||||
2DEC -.4657947941 B-1 # STAR 16 X
|
2DEC -.4657947941 B-1 # STAR 16 X
|
||||||
2DEC +.4774785033 B-1 # STAR 16 Y
|
2DEC +.4774785033 B-1 # STAR 16 Y
|
||||||
2DEC +.7450164351 B-1 # STAR 16 Z
|
2DEC +.7450164351 B-1 # STAR 16 Z
|
||||||
|
|
||||||
2DEC -.3612508532 B-1 # STAR 15 X
|
2DEC -.3612508532 B-1 # STAR 15 X
|
||||||
2DEC +.5747270840 B-1 # STAR 15 Y
|
2DEC +.5747270840 B-1 # STAR 15 Y
|
||||||
2DEC -.7342932655 B-1 # STAR 15 Z
|
2DEC -.7342932655 B-1 # STAR 15 Z
|
||||||
|
|
||||||
2DEC -.4118589524 B-1 # STAR 14 X
|
2DEC -.4118589524 B-1 # STAR 14 X
|
||||||
2DEC +.9065485360 B-1 # STAR 14 Y
|
2DEC +.9065485360 B-1 # STAR 14 Y
|
||||||
2DEC +.0924226975 B-1 # STAR 14 Z
|
2DEC +.0924226975 B-1 # STAR 14 Z
|
||||||
|
|
||||||
# Page 1392
|
# Page 1392
|
||||||
2DEC -.1820751783 B-1 # STAR 13 X
|
2DEC -.1820751783 B-1 # STAR 13 X
|
||||||
2DEC +.9404899869 B-1 # STAR 13 Y
|
2DEC +.9404899869 B-1 # STAR 13 Y
|
||||||
2DEC -.2869271926 B-1 # STAR 13 Z
|
2DEC -.2869271926 B-1 # STAR 13 Z
|
||||||
|
|
||||||
2DEC -.0614937230 B-1 # STAR 12 X
|
2DEC -.0614937230 B-1 # STAR 12 X
|
||||||
2DEC +.6031563286 B-1 # STAR 12 Y
|
2DEC +.6031563286 B-1 # STAR 12 Y
|
||||||
2DEC -.7952489957 B-1 # STAR 12 Z
|
2DEC -.7952489957 B-1 # STAR 12 Z
|
||||||
|
|
||||||
2DEC +.1371725575 B-1 # STAR 11 X
|
2DEC +.1371725575 B-1 # STAR 11 X
|
||||||
2DEC +.6813721061 B-1 # STAR 11 Y
|
2DEC +.6813721061 B-1 # STAR 11 Y
|
||||||
2DEC +.7189685267 B-1 # STAR 11 Z
|
2DEC +.7189685267 B-1 # STAR 11 Z
|
||||||
|
|
||||||
2DEC +.2011399589 B-1 # STAR 10 X
|
2DEC +.2011399589 B-1 # STAR 10 X
|
||||||
2DEC +.9690337941 B-1 # STAR 10 Y
|
2DEC +.9690337941 B-1 # STAR 10 Y
|
||||||
2DEC -.1432348512 B-1 # STAR 10 Z
|
2DEC -.1432348512 B-1 # STAR 10 Z
|
||||||
|
|
||||||
2DEC +.3507315038 B-1 # STAR 9 X
|
2DEC +.3507315038 B-1 # STAR 9 X
|
||||||
2DEC +.8926333307 B-1 # STAR 9 Y
|
2DEC +.8926333307 B-1 # STAR 9 Y
|
||||||
2DEC +.2831839492 B-1 # STAR 9 Z
|
2DEC +.2831839492 B-1 # STAR 9 Z
|
||||||
|
|
||||||
2DEC +.4105636020 B-1 # STAR 8 X
|
2DEC +.4105636020 B-1 # STAR 8 X
|
||||||
2DEC +.4988110001 B-1 # STAR 8 Y
|
2DEC +.4988110001 B-1 # STAR 8 Y
|
||||||
2DEC +.7632988371 B-1 # STAR 8 Z
|
2DEC +.7632988371 B-1 # STAR 8 Z
|
||||||
|
|
||||||
2DEC +.7032235469 B-1 # STAR 7 X
|
2DEC +.7032235469 B-1 # STAR 7 X
|
||||||
2DEC +.7075846047 B-1 # STAR 7 Y
|
2DEC +.7075846047 B-1 # STAR 7 Y
|
||||||
2DEC +.0692868685 B-1 # STAR 7 Z
|
2DEC +.0692868685 B-1 # STAR 7 Z
|
||||||
|
|
||||||
2DEC +.5450107404 B-1 # STAR 6 X
|
2DEC +.5450107404 B-1 # STAR 6 X
|
||||||
2DEC +.5314955466 B-1 # STAR 6 Y
|
2DEC +.5314955466 B-1 # STAR 6 Y
|
||||||
2DEC -.6484410356 B-1 # STAR 6 Z
|
2DEC -.6484410356 B-1 # STAR 6 Z
|
||||||
|
|
||||||
2DEC +.0130968840 B-1 # STAR 5 X
|
2DEC +.0130968840 B-1 # STAR 5 X
|
||||||
# Page 1393
|
# Page 1393
|
||||||
2DEC +.0078062795 B-1 # STAR 5 Y
|
2DEC +.0078062795 B-1 # STAR 5 Y
|
||||||
2DEC +.9998837600 B-1 # STAR 5 Z
|
2DEC +.9998837600 B-1 # STAR 5 Z
|
||||||
|
|
||||||
2DEC +.4917678276 B-1 # STAR 4 X
|
2DEC +.4917678276 B-1 # STAR 4 X
|
||||||
2DEC +.2204887125 B-1 # STAR 4 Y
|
2DEC +.2204887125 B-1 # STAR 4 Y
|
||||||
2DEC -.8423473935 B-1 # STAR 4 Z
|
2DEC -.8423473935 B-1 # STAR 4 Z
|
||||||
|
|
||||||
2DEC +.4775639450 B-1 # STAR 3 X
|
2DEC +.4775639450 B-1 # STAR 3 X
|
||||||
2DEC +.1166004340 B-1 # STAR 3 Y
|
2DEC +.1166004340 B-1 # STAR 3 Y
|
||||||
2DEC +.8708254803 B-1 # STAR 3 Z
|
2DEC +.8708254803 B-1 # STAR 3 Z
|
||||||
|
|
||||||
2DEC +.9342640400 B-1 # STAR 2 X
|
2DEC +.9342640400 B-1 # STAR 2 X
|
||||||
2DEC +.1735073142 B-1 # STAR 2 Y
|
2DEC +.1735073142 B-1 # STAR 2 Y
|
||||||
2DEC -.3115219339 B-1 # STAR 2 Z
|
2DEC -.3115219339 B-1 # STAR 2 Z
|
||||||
|
|
||||||
2DEC +.8748658918 B-1 # STAR 1 X
|
2DEC +.8748658918 B-1 # STAR 1 X
|
||||||
2DEC +.0260879174 B-1 # STAR 1 Y
|
2DEC +.0260879174 B-1 # STAR 1 Y
|
||||||
2DEC +.4836621670 B-1 # STAR 1 Z
|
2DEC +.4836621670 B-1 # STAR 1 Z
|
||||||
|
|
||||||
CATLOG DEC 6970
|
CATLOG DEC 6970
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -10,11 +10,11 @@
|
|||||||
# Website: http://www.ibiblio.org/apollo.
|
# Website: http://www.ibiblio.org/apollo.
|
||||||
# Mod history: 16/05/09 FB Transcription Batch 2 Assignment.
|
# Mod history: 16/05/09 FB Transcription Batch 2 Assignment.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -32,7 +32,7 @@
|
|||||||
# PROGRAM NAME: SXTMARK DATE: 5 APRIL 1967
|
# PROGRAM NAME: SXTMARK DATE: 5 APRIL 1967
|
||||||
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
|
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
|
||||||
# MOD BY: R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
|
# MOD BY: R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
|
||||||
#
|
#
|
||||||
# FUNCTIONAL DESCRIPTION:
|
# FUNCTIONAL DESCRIPTION:
|
||||||
#
|
#
|
||||||
# SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
|
# SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
|
||||||
@ -74,13 +74,13 @@
|
|||||||
BANK 13
|
BANK 13
|
||||||
SETLOC SXTMARKE
|
SETLOC SXTMARKE
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
COUNT 07/SXTMK
|
COUNT 07/SXTMK
|
||||||
|
|
||||||
SXTMARK INHINT
|
SXTMARK INHINT
|
||||||
TS RUPTREG1 # NUMBER OF MARKS WANTED
|
TS RUPTREG1 # NUMBER OF MARKS WANTED
|
||||||
|
|
||||||
CAF SIX # BIT2 = MARKING SYSTEM IN USE
|
CAF SIX # BIT2 = MARKING SYSTEM IN USE
|
||||||
MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
|
MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
|
||||||
CCS A
|
CCS A
|
||||||
@ -89,7 +89,7 @@ SXTMARK INHINT
|
|||||||
CAF BIT2 # NOT SET
|
CAF BIT2 # NOT SET
|
||||||
ADS EXTVBACT # SET IT, RESET IN ENDMARK
|
ADS EXTVBACT # SET IT, RESET IN ENDMARK
|
||||||
TC MARKOK # YES, FIND VAC AREA
|
TC MARKOK # YES, FIND VAC AREA
|
||||||
|
|
||||||
MKABORT TC BAILOUT
|
MKABORT TC BAILOUT
|
||||||
OCT 01211
|
OCT 01211
|
||||||
MARKOK CCS VAC1USE # FIND VAC AREA
|
MARKOK CCS VAC1USE # FIND VAC AREA
|
||||||
@ -104,16 +104,16 @@ MARKOK CCS VAC1USE # FIND VAC AREA
|
|||||||
TC MKVACFND
|
TC MKVACFND
|
||||||
TC BAILOUT
|
TC BAILOUT
|
||||||
OCT 01207
|
OCT 01207
|
||||||
|
|
||||||
MKVACFND AD TWO # ADDRESS OF VAC AREA
|
MKVACFND AD TWO # ADDRESS OF VAC AREA
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
INDEX A
|
INDEX A
|
||||||
TS QPRET # STORE NEXT AVAILABLE MARK SLOT
|
TS QPRET # STORE NEXT AVAILABLE MARK SLOT
|
||||||
|
|
||||||
CAF ZERO # STORE VAC AREA OCCUPIED
|
CAF ZERO # STORE VAC AREA OCCUPIED
|
||||||
INDEX MARKSTAT
|
INDEX MARKSTAT
|
||||||
TS 0 -1
|
TS 0 -1
|
||||||
|
|
||||||
TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
|
TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
|
||||||
MM 53
|
MM 53
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -127,15 +127,15 @@ MKVACFND AD TWO # ADDRESS OF VAC AREA
|
|||||||
MP RUPTREG1
|
MP RUPTREG1
|
||||||
XCH L
|
XCH L
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
|
|
||||||
CAF PRIO32 # ENTER MARK JOB
|
CAF PRIO32 # ENTER MARK JOB
|
||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MARKSTAT
|
EBANK= MARKSTAT
|
||||||
2CADR MKVB51
|
2CADR MKVB51
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TCF SWRETURN # SAME AS MODEEXIT
|
TCF SWRETURN # SAME AS MODEEXIT
|
||||||
|
|
||||||
# Page 224
|
# Page 224
|
||||||
# PROGRAM NAME: MKRELEAS DATE: 5 APRIL 1967
|
# PROGRAM NAME: MKRELEAS DATE: 5 APRIL 1967
|
||||||
# PROGRAM MODIFIED BY 248/278 PROGRAMMERS LOG SECTION SXTMARK
|
# PROGRAM MODIFIED BY 248/278 PROGRAMMERS LOG SECTION SXTMARK
|
||||||
@ -181,14 +181,14 @@ MKRLEES INHINT
|
|||||||
CS BIT9 # COARSE OPTICS RETURN FLAG.
|
CS BIT9 # COARSE OPTICS RETURN FLAG.
|
||||||
MASK OPTMODES
|
MASK OPTMODES
|
||||||
TS OPTMODES
|
TS OPTMODES
|
||||||
|
|
||||||
CA NEGONE
|
CA NEGONE
|
||||||
TS OPTIND # KILL COARSE OPTICS
|
TS OPTIND # KILL COARSE OPTICS
|
||||||
|
|
||||||
CS BIT2 # DISABLE OPTICS ERROR COUNTER
|
CS BIT2 # DISABLE OPTICS ERROR COUNTER
|
||||||
EXTEND
|
EXTEND
|
||||||
WAND CHAN12
|
WAND CHAN12
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TC SWRETURN
|
TC SWRETURN
|
||||||
# Page 225
|
# Page 225
|
||||||
@ -244,23 +244,23 @@ MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA MKT2T1
|
DCA MKT2T1
|
||||||
DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
|
DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
|
||||||
|
|
||||||
XCH Q
|
XCH Q
|
||||||
TS QRUPT
|
TS QRUPT
|
||||||
|
|
||||||
CAF BIT6 # SEE IF MARK OR MKREJECT
|
CAF BIT6 # SEE IF MARK OR MKREJECT
|
||||||
# Page 226
|
# Page 226
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TC MARKIT # IT'S A MARK
|
TC MARKIT # IT'S A MARK
|
||||||
|
|
||||||
CAF BIT7 # NOT A MARK, SEE IF MKREJECT
|
CAF BIT7 # NOT A MARK, SEE IF MKREJECT
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TC MKREJECT # IT'S A MARK REJECT
|
TC MKREJECT # IT'S A MARK REJECT
|
||||||
|
|
||||||
KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
|
KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
@ -268,11 +268,11 @@ KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
|
|||||||
BZF +3 # IF NO INBITS
|
BZF +3 # IF NO INBITS
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR KEYCOM # IT'S A KEY CODE, NOT A MARK.
|
CADR KEYCOM # IT'S A KEY CODE, NOT A MARK.
|
||||||
|
|
||||||
+3 TC ALARM # ALARM IF NO INBITS
|
+3 TC ALARM # ALARM IF NO INBITS
|
||||||
OCT 113
|
OCT 113
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
# Page 227
|
# Page 227
|
||||||
# PROGRAM NAME: MARKCONT DATE: 19 SEPT 1967
|
# PROGRAM NAME: MARKCONT DATE: 19 SEPT 1967
|
||||||
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
|
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
|
||||||
@ -340,17 +340,17 @@ MARKIT1 CAF SIX # SPECIAL FOR R21
|
|||||||
TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
|
TC GENTRAN # TRANSFER MRKBUF1 TO MRKBUF2
|
||||||
ADRES MRKBUF1
|
ADRES MRKBUF1
|
||||||
ADRES MRKBUF2
|
ADRES MRKBUF2
|
||||||
|
|
||||||
CAF SIX # TRANSFER CURRENT MARK DATE TO MARKBUF1
|
CAF SIX # TRANSFER CURRENT MARK DATE TO MARKBUF1
|
||||||
TC GENTRAN
|
TC GENTRAN
|
||||||
ADRES MKT2T1
|
ADRES MKT2T1
|
||||||
ADRES MRKBUF1
|
ADRES MRKBUF1
|
||||||
|
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
|
MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
|
||||||
TC MARK2 # COLLECT MARKS
|
TC MARK2 # COLLECT MARKS
|
||||||
|
|
||||||
CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
|
CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
|
||||||
MASK EXTVBACT
|
MASK EXTVBACT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -363,7 +363,7 @@ MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
|
|||||||
TC NOVAC # SPECIAL DISPLAY JOB
|
TC NOVAC # SPECIAL DISPLAY JOB
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
2CADR MARKDISP
|
2CADR MARKDISP
|
||||||
|
|
||||||
CAF SIX
|
CAF SIX
|
||||||
TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN
|
TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN
|
||||||
ADRES MKT2T1
|
ADRES MKT2T1
|
||||||
@ -379,7 +379,7 @@ MARKET3 TC ALARM
|
|||||||
114ALM TC ALARM # MARK NOT WANTED
|
114ALM TC ALARM # MARK NOT WANTED
|
||||||
OCT 114
|
OCT 114
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
# Page 229
|
# Page 229
|
||||||
# STORE MARK DATA IN MKVAC AND INCREMENT POINTER
|
# STORE MARK DATA IN MKVAC AND INCREMENT POINTER
|
||||||
|
|
||||||
@ -390,7 +390,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
|
|||||||
COM
|
COM
|
||||||
MASK BIT10 # SET BIT10 TO ENABLE REJECT
|
MASK BIT10 # SET BIT10 TO ENABLE REJECT
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
|
|
||||||
MASK LOW9
|
MASK LOW9
|
||||||
TS ITEMP1
|
TS ITEMP1
|
||||||
INDEX A
|
INDEX A
|
||||||
@ -399,7 +399,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
|
|||||||
AD SEVEN # INCREMENT POINTER
|
AD SEVEN # INCREMENT POINTER
|
||||||
INDEX ITEMP1
|
INDEX ITEMP1
|
||||||
TS QPRET # STORE ADVANCED POINTER
|
TS QPRET # STORE ADVANCED POINTER
|
||||||
|
|
||||||
VACSTOR EXTEND
|
VACSTOR EXTEND
|
||||||
DCA MKT2T1
|
DCA MKT2T1
|
||||||
INDEX ITEMP2
|
INDEX ITEMP2
|
||||||
@ -419,7 +419,7 @@ VACSTOR EXTEND
|
|||||||
CA MKCDUX
|
CA MKCDUX
|
||||||
INDEX ITEMP2
|
INDEX ITEMP2
|
||||||
TS 6
|
TS 6
|
||||||
|
|
||||||
CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
|
CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -429,9 +429,9 @@ VACSTOR EXTEND
|
|||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MARKSTAT
|
EBANK= MARKSTAT
|
||||||
2CADR MKVB50
|
2CADR MKVB50
|
||||||
|
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
# Page 230
|
# Page 230
|
||||||
# PROGRAM NAME: MKREJECT DATE: 5 APRIL 1967
|
# PROGRAM NAME: MKREJECT DATE: 5 APRIL 1967
|
||||||
# PROGRAM MODIFIED BY 258/276 PROGRAMMERS LOG SECTION SXTMARK
|
# PROGRAM MODIFIED BY 258/276 PROGRAMMERS LOG SECTION SXTMARK
|
||||||
@ -486,7 +486,7 @@ MRKREJCT CCS MARKSTAT # SEE IF MARKS BEING ACCEPTED
|
|||||||
TC ALARM # MARKS NOT BEING ACCEPTED
|
TC ALARM # MARKS NOT BEING ACCEPTED
|
||||||
OCT 112
|
OCT 112
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
|
REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
|
||||||
MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
|
MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
|
||||||
XCH MARKSTAT # SHOW MARK REJECT
|
XCH MARKSTAT # SHOW MARK REJECT
|
||||||
@ -494,18 +494,18 @@ REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
|
|||||||
MASK BIT10
|
MASK BIT10
|
||||||
CCS A
|
CCS A
|
||||||
TC REJECT3
|
TC REJECT3
|
||||||
|
|
||||||
TC ALARM # DON'T ACCEPT TWO REJECTS TOGETHER
|
TC ALARM # DON'T ACCEPT TWO REJECTS TOGETHER
|
||||||
OCT 110
|
OCT 110
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
|
REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
TS ITEMP1
|
TS ITEMP1
|
||||||
CS SEVEN
|
CS SEVEN
|
||||||
INDEX ITEMP1
|
INDEX ITEMP1
|
||||||
ADS QPRET # NEW POINTER
|
ADS QPRET # NEW POINTER
|
||||||
|
|
||||||
CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
|
CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
|
||||||
AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
|
AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
|
||||||
XCH MARKSTAT # INDICATE MORE MARKS WANTED
|
XCH MARKSTAT # INDICATE MORE MARKS WANTED
|
||||||
@ -516,9 +516,9 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
|
|||||||
TC NOVAC
|
TC NOVAC
|
||||||
EBANK= MARKSTAT
|
EBANK= MARKSTAT
|
||||||
2CADR MKVB51
|
2CADR MKVB51
|
||||||
|
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
# Page 232
|
# Page 232
|
||||||
# PROGRAM DESCRIPTION MKVB51 AND MKVB50
|
# PROGRAM DESCRIPTION MKVB51 AND MKVB50
|
||||||
#
|
#
|
||||||
@ -553,7 +553,7 @@ MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
|
|||||||
TCF TERMSXT # VB34-TERMINATE
|
TCF TERMSXT # VB34-TERMINATE
|
||||||
TCF ENTANSWR # V33-PROCEED-MARKING DONE
|
TCF ENTANSWR # V33-PROCEED-MARKING DONE
|
||||||
TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
|
TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
|
||||||
|
|
||||||
TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
|
TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
|
||||||
|
|
||||||
TC CHECKMM
|
TC CHECKMM
|
||||||
@ -562,7 +562,7 @@ TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
|
|||||||
TC TERMP03
|
TC TERMP03
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR TERM52
|
CADR TERM52
|
||||||
|
|
||||||
TERMP03 TC UPFLAG
|
TERMP03 TC UPFLAG
|
||||||
ADRES TRM03FLG
|
ADRES TRM03FLG
|
||||||
ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
|
ENTANSWR CAF LOW9 # PUT VAC ADR IN MARKSTAT AND NO. OF
|
||||||
@ -584,21 +584,21 @@ JAMIT INDEX MARKSTAT # STORE NO OF MARKS MADE
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= MARKSTAT
|
EBANK= MARKSTAT
|
||||||
2CADR ENDMARKS
|
2CADR ENDMARKS
|
||||||
|
|
||||||
TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
|
TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
|
||||||
|
|
||||||
ENDMARKS CAF ONE
|
ENDMARKS CAF ONE
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR GOODEND
|
CADR GOODEND
|
||||||
MKVB5X CAF PRIO34
|
MKVB5X CAF PRIO34
|
||||||
MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
|
MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
|
||||||
CCS A # AND VB50 IF ALL IN
|
CCS A # AND VB50 IF ALL IN
|
||||||
TCF MKVB51
|
TCF MKVB51
|
||||||
MKVB50 CAF R1D1 # OCT 16
|
MKVB50 CAF R1D1 # OCT 16
|
||||||
TS DSPTEM1
|
TS DSPTEM1
|
||||||
CAF V50N25
|
CAF V50N25
|
||||||
TCF MKVB51 +3
|
TCF MKVB51 +3
|
||||||
|
|
||||||
V50N25 VN 5025
|
V50N25 VN 5025
|
||||||
VB51 VN 5100
|
VB51 VN 5100
|
||||||
OCT37 = LOW5
|
OCT37 = LOW5
|
||||||
@ -634,14 +634,14 @@ MARKIT CCS CDUCHKWD
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= MRKBUF1
|
EBANK= MRKBUF1
|
||||||
2CADR MARKDIF
|
2CADR MARKDIF
|
||||||
|
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
SETLOC SXTMARK1
|
SETLOC SXTMARK1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 20/SXTMK
|
COUNT 20/SXTMK
|
||||||
|
|
||||||
# PROGRAM NAME: MARKDIF
|
# PROGRAM NAME: MARKDIF
|
||||||
#
|
#
|
||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
@ -675,10 +675,10 @@ MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
|
|||||||
TC DIFCHK
|
TC DIFCHK
|
||||||
CA MKCDUZ
|
CA MKCDUZ
|
||||||
TC DIFCHK
|
TC DIFCHK
|
||||||
|
|
||||||
MKACPT TC IBNKCALL
|
MKACPT TC IBNKCALL
|
||||||
CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
|
CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
|
||||||
|
|
||||||
DIFCHK INCR MKNDX # INCREMENT INDEX
|
DIFCHK INCR MKNDX # INCREMENT INDEX
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -693,10 +693,10 @@ DIFCHK INCR MKNDX # INCREMENT INDEX
|
|||||||
AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
|
AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF -3 # NOT GREATER
|
BZMF -3 # NOT GREATER
|
||||||
|
|
||||||
TC ALARM # COUPLED WITH PROGRAM ALARM
|
TC ALARM # COUPLED WITH PROGRAM ALARM
|
||||||
OCT 00121
|
OCT 00121
|
||||||
|
|
||||||
TCF TASKOVER # DO NOT ACCEPT
|
TCF TASKOVER # DO NOT ACCEPT
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -7,13 +7,13 @@
|
|||||||
# Reference: pp. 420-422
|
# Reference: pp. 420-422
|
||||||
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
# Contact: Onno Hommes <ohommes@cmu.edu>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
# Mod history: 05/07/09 OH Transcription Batch 1 Assignment
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -30,13 +30,13 @@
|
|||||||
|
|
||||||
# Page 420
|
# Page 420
|
||||||
EBANK= XSM
|
EBANK= XSM
|
||||||
|
|
||||||
BANK 33
|
BANK 33
|
||||||
SETLOC E/PROG1
|
SETLOC E/PROG1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/P07
|
COUNT* $$/P07
|
||||||
|
|
||||||
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
|
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
|
||||||
#
|
#
|
||||||
# E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
|
# E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
|
||||||
@ -74,7 +74,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN.
|
|||||||
INCR EBUF2
|
INCR EBUF2
|
||||||
E/SWITCH DXCH EBUF2
|
E/SWITCH DXCH EBUF2
|
||||||
DTCB
|
DTCB
|
||||||
|
|
||||||
# Page 421
|
# Page 421
|
||||||
# E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
|
# E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
|
||||||
#
|
#
|
||||||
@ -84,7 +84,7 @@ E/SWITCH DXCH EBUF2
|
|||||||
# E/CALL
|
# E/CALL
|
||||||
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT
|
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT
|
||||||
# # RETURNS HERE IN INTERPRETIVE.
|
# # RETURNS HERE IN INTERPRETIVE.
|
||||||
|
|
||||||
E/CALL LXCH LOC # ADRES -1 OF CADR.
|
E/CALL LXCH LOC # ADRES -1 OF CADR.
|
||||||
INDEX L
|
INDEX L
|
||||||
CA L # CADR IN A.
|
CA L # CADR IN A.
|
||||||
@ -97,7 +97,7 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
|
|||||||
EXIT # LEAVE VIA RVQ OR EQUIVALENT.
|
EXIT # LEAVE VIA RVQ OR EQUIVALENT.
|
||||||
LXCH EBUF2 +1 # PICK UP RETURN.
|
LXCH EBUF2 +1 # PICK UP RETURN.
|
||||||
TCF INTPRET +2 # SET LOC AND RETURN TO CALLER.
|
TCF INTPRET +2 # SET LOC AND RETURN TO CALLER.
|
||||||
|
|
||||||
# Page 422
|
# Page 422
|
||||||
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
|
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
|
||||||
#
|
#
|
||||||
@ -116,16 +116,16 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
|
|||||||
BANK 33
|
BANK 33
|
||||||
SETLOC E/PROG
|
SETLOC E/PROG
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/P07
|
COUNT* $$/P07
|
||||||
|
|
||||||
E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A.
|
E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A.
|
||||||
CS BIT11
|
CS BIT11
|
||||||
NDX LOCCTR
|
NDX LOCCTR
|
||||||
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
|
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
|
||||||
TC RUPTREG3 # RETURN
|
TC RUPTREG3 # RETURN
|
||||||
|
|
||||||
|
|
||||||
# THESE PROGRAMS ARE PROVIDED TO ALLOW OVERLAY OF BANKS 30 THRU 33 OF THE 205 VERSIONS OF SYSTEM TESTS AND
|
# THESE PROGRAMS ARE PROVIDED TO ALLOW OVERLAY OF BANKS 30 THRU 33 OF THE 205 VERSIONS OF SYSTEM TESTS AND
|
||||||
# PRELAUNCH ALIGN. THE INTENT IS TO ALLOW THE STG AND HYBRID LABS TO RUN ALL THE TESTS WITH COLOSSUS.
|
# PRELAUNCH ALIGN. THE INTENT IS TO ALLOW THE STG AND HYBRID LABS TO RUN ALL THE TESTS WITH COLOSSUS.
|
||||||
|
|
||||||
@ -133,15 +133,15 @@ E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A.
|
|||||||
BANK 33
|
BANK 33
|
||||||
SETLOC TESTLEAD
|
SETLOC TESTLEAD
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 33/COMST
|
COUNT 33/COMST
|
||||||
|
|
||||||
EBANK= QPLACE
|
EBANK= QPLACE
|
||||||
|
|
||||||
COMPVER TC GCOMPVER # MUST BE 33,2000.
|
COMPVER TC GCOMPVER # MUST BE 33,2000.
|
||||||
|
|
||||||
GTSCPSS1 TC GTSCPSS # MUST BE AT 33,2001
|
GTSCPSS1 TC GTSCPSS # MUST BE AT 33,2001
|
||||||
|
|
||||||
REDO TC NEWMODEX # DISPLAY MM 07.
|
REDO TC NEWMODEX # DISPLAY MM 07.
|
||||||
MM 07 # FALL INTO IMUTEST
|
MM 07 # FALL INTO IMUTEST
|
||||||
|
|
||||||
|
|||||||
@ -6,7 +6,7 @@
|
|||||||
# Assembler: yaYUL
|
# Assembler: yaYUL
|
||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrected R32 -> R31.
|
# 2009-05-20 RSB Corrected R32 -> R31.
|
||||||
#
|
#
|
||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -49,22 +49,22 @@ P30SUBS EQUALS
|
|||||||
STOPRAT EQUALS
|
STOPRAT EQUALS
|
||||||
P23S EQUALS
|
P23S EQUALS
|
||||||
BNKSUM 02
|
BNKSUM 02
|
||||||
|
|
||||||
BLOCK 03
|
BLOCK 03
|
||||||
FFTAG5 EQUALS
|
FFTAG5 EQUALS
|
||||||
FFTAG6 EQUALS
|
FFTAG6 EQUALS
|
||||||
DAPS9 EQUALS
|
DAPS9 EQUALS
|
||||||
FFTAG13 EQUALS
|
FFTAG13 EQUALS
|
||||||
BNKSUM 03
|
BNKSUM 03
|
||||||
|
|
||||||
BANK 00
|
BANK 00
|
||||||
DLAYJOB EQUALS
|
DLAYJOB EQUALS
|
||||||
BNKSUM 00
|
BNKSUM 00
|
||||||
|
|
||||||
BANK 01
|
BANK 01
|
||||||
RESTART EQUALS
|
RESTART EQUALS
|
||||||
BNKSUM 01
|
BNKSUM 01
|
||||||
|
|
||||||
BANK 4
|
BANK 4
|
||||||
VERB37 EQUALS
|
VERB37 EQUALS
|
||||||
CONICS1 EQUALS
|
CONICS1 EQUALS
|
||||||
@ -80,14 +80,14 @@ E/PROG EQUALS
|
|||||||
MIDDGIM EQUALS
|
MIDDGIM EQUALS
|
||||||
|
|
||||||
BNKSUM 04
|
BNKSUM 04
|
||||||
|
|
||||||
BANK 5
|
BANK 5
|
||||||
FRANDRES EQUALS
|
FRANDRES EQUALS
|
||||||
DOWNTELM EQUALS
|
DOWNTELM EQUALS
|
||||||
DAPMASS EQUALS
|
DAPMASS EQUALS
|
||||||
CDHTAG EQUALS
|
CDHTAG EQUALS
|
||||||
BNKSUM 05
|
BNKSUM 05
|
||||||
|
|
||||||
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
|
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
|
||||||
|
|
||||||
BANK 6
|
BANK 6
|
||||||
@ -96,7 +96,7 @@ T4RUP EQUALS
|
|||||||
IMUCAL2 EQUALS
|
IMUCAL2 EQUALS
|
||||||
CSIPROG EQUALS
|
CSIPROG EQUALS
|
||||||
BNKSUM 06
|
BNKSUM 06
|
||||||
|
|
||||||
BANK 7
|
BANK 7
|
||||||
SXTMARKE EQUALS
|
SXTMARKE EQUALS
|
||||||
R02 EQUALS
|
R02 EQUALS
|
||||||
@ -105,7 +105,7 @@ XANG EQUALS
|
|||||||
KEYRUPT EQUALS
|
KEYRUPT EQUALS
|
||||||
CSIPROG6 EQUALS
|
CSIPROG6 EQUALS
|
||||||
BNKSUM 07
|
BNKSUM 07
|
||||||
|
|
||||||
BANK 10
|
BANK 10
|
||||||
DISPLAYS EQUALS
|
DISPLAYS EQUALS
|
||||||
PHASETAB EQUALS
|
PHASETAB EQUALS
|
||||||
@ -115,7 +115,7 @@ P60S4 EQUALS
|
|||||||
OPTDRV EQUALS
|
OPTDRV EQUALS
|
||||||
CSIPROG8 EQUALS
|
CSIPROG8 EQUALS
|
||||||
BNKSUM 10
|
BNKSUM 10
|
||||||
|
|
||||||
BANK 11
|
BANK 11
|
||||||
ORBITAL EQUALS
|
ORBITAL EQUALS
|
||||||
ORBITAL1 EQUALS # CONSTANTS
|
ORBITAL1 EQUALS # CONSTANTS
|
||||||
@ -127,14 +127,14 @@ S52/2 EQUALS
|
|||||||
CSIPROG5 EQUALS
|
CSIPROG5 EQUALS
|
||||||
INTINIT1 EQUALS
|
INTINIT1 EQUALS
|
||||||
BNKSUM 11
|
BNKSUM 11
|
||||||
|
|
||||||
BANK 12
|
BANK 12
|
||||||
CONICS EQUALS
|
CONICS EQUALS
|
||||||
CSIPROG2 EQUALS
|
CSIPROG2 EQUALS
|
||||||
CSI/CDH2 EQUALS
|
CSI/CDH2 EQUALS
|
||||||
MODCHG2 EQUALS
|
MODCHG2 EQUALS
|
||||||
BNKSUM 12
|
BNKSUM 12
|
||||||
|
|
||||||
BANK 13
|
BANK 13
|
||||||
P76LOC EQUALS
|
P76LOC EQUALS
|
||||||
LATLONG EQUALS
|
LATLONG EQUALS
|
||||||
@ -145,7 +145,7 @@ CDHTAGS EQUALS
|
|||||||
E/PROG1 EQUALS
|
E/PROG1 EQUALS
|
||||||
MODCHG3 EQUALS
|
MODCHG3 EQUALS
|
||||||
BNKSUM 13
|
BNKSUM 13
|
||||||
|
|
||||||
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
|
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
|
||||||
|
|
||||||
BANK 14
|
BANK 14
|
||||||
@ -154,14 +154,14 @@ RT53 EQUALS
|
|||||||
P50S1 EQUALS
|
P50S1 EQUALS
|
||||||
MEASINC2 EQUALS
|
MEASINC2 EQUALS
|
||||||
CSI/CDH3 EQUALS
|
CSI/CDH3 EQUALS
|
||||||
BNKSUM 14
|
BNKSUM 14
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
P50S EQUALS
|
P50S EQUALS
|
||||||
ETRYDAP EQUALS
|
ETRYDAP EQUALS
|
||||||
S52/3 EQUALS
|
S52/3 EQUALS
|
||||||
BNKSUM 15
|
BNKSUM 15
|
||||||
|
|
||||||
BANK 16
|
BANK 16
|
||||||
P40S1 EQUALS
|
P40S1 EQUALS
|
||||||
|
|
||||||
@ -172,14 +172,14 @@ P50S2 EQUALS
|
|||||||
P23S1 EQUALS
|
P23S1 EQUALS
|
||||||
RTE2 EQUALS
|
RTE2 EQUALS
|
||||||
BNKSUM 16
|
BNKSUM 16
|
||||||
|
|
||||||
BANK 17
|
BANK 17
|
||||||
DAPS4 EQUALS
|
DAPS4 EQUALS
|
||||||
DAPS5 EQUALS
|
DAPS5 EQUALS
|
||||||
DAPS7 EQUALS
|
DAPS7 EQUALS
|
||||||
P50S3 EQUALS
|
P50S3 EQUALS
|
||||||
BNKSUM 17
|
BNKSUM 17
|
||||||
|
|
||||||
BANK 20
|
BANK 20
|
||||||
DAPS6 EQUALS
|
DAPS6 EQUALS
|
||||||
DAPS1 EQUALS
|
DAPS1 EQUALS
|
||||||
@ -188,7 +188,7 @@ MANUSTUF EQUALS
|
|||||||
R36CM EQUALS
|
R36CM EQUALS
|
||||||
VAC5LOC EQUALS
|
VAC5LOC EQUALS
|
||||||
BNKSUM 20
|
BNKSUM 20
|
||||||
|
|
||||||
BANK 21
|
BANK 21
|
||||||
DAPS3 EQUALS
|
DAPS3 EQUALS
|
||||||
MYSUBS EQUALS
|
MYSUBS EQUALS
|
||||||
@ -222,18 +222,18 @@ R30LOC EQUALS
|
|||||||
P11FOUR EQUALS
|
P11FOUR EQUALS
|
||||||
CSIPROG4 EQUALS
|
CSIPROG4 EQUALS
|
||||||
BNKSUM 23
|
BNKSUM 23
|
||||||
|
|
||||||
BANK 24
|
BANK 24
|
||||||
LOADDAP EQUALS
|
LOADDAP EQUALS
|
||||||
P40S EQUALS
|
P40S EQUALS
|
||||||
CSIPROG7 EQUALS
|
CSIPROG7 EQUALS
|
||||||
BNKSUM 24
|
BNKSUM 24
|
||||||
|
|
||||||
BANK 25
|
BANK 25
|
||||||
REENTRY EQUALS
|
REENTRY EQUALS
|
||||||
CDHTAG1 EQUALS
|
CDHTAG1 EQUALS
|
||||||
BNKSUM 25
|
BNKSUM 25
|
||||||
|
|
||||||
BANK 26
|
BANK 26
|
||||||
INTPRET1 EQUALS
|
INTPRET1 EQUALS
|
||||||
REENTRY1 EQUALS
|
REENTRY1 EQUALS
|
||||||
@ -246,7 +246,7 @@ EPHEM EQUALS
|
|||||||
P05P06 EQUALS
|
P05P06 EQUALS
|
||||||
26P50S EQUALS
|
26P50S EQUALS
|
||||||
BNKSUM 26
|
BNKSUM 26
|
||||||
|
|
||||||
BANK 27
|
BANK 27
|
||||||
TOF-FF EQUALS
|
TOF-FF EQUALS
|
||||||
TOF-FF1 EQUALS
|
TOF-FF1 EQUALS
|
||||||
@ -275,7 +275,7 @@ P20S6 EQUALS
|
|||||||
P40S3 EQUALS
|
P40S3 EQUALS
|
||||||
R35A EQUALS
|
R35A EQUALS
|
||||||
BNKSUM 30
|
BNKSUM 30
|
||||||
|
|
||||||
BANK 31
|
BANK 31
|
||||||
R35 EQUALS
|
R35 EQUALS
|
||||||
RT23 EQUALS
|
RT23 EQUALS
|
||||||
@ -287,14 +287,14 @@ R31 EQUALS
|
|||||||
P22S EQUALS
|
P22S EQUALS
|
||||||
RTE3 EQUALS
|
RTE3 EQUALS
|
||||||
BNKSUM 31
|
BNKSUM 31
|
||||||
|
|
||||||
BANK 32
|
BANK 32
|
||||||
MSGSCAN1 EQUALS
|
MSGSCAN1 EQUALS
|
||||||
RTE EQUALS
|
RTE EQUALS
|
||||||
DELRSPL1 EQUALS
|
DELRSPL1 EQUALS
|
||||||
IMUCAL3 EQUALS
|
IMUCAL3 EQUALS
|
||||||
BNKSUM 32
|
BNKSUM 32
|
||||||
|
|
||||||
BANK 33
|
BANK 33
|
||||||
TESTLEAD EQUALS
|
TESTLEAD EQUALS
|
||||||
|
|
||||||
@ -302,14 +302,14 @@ TESTLEAD EQUALS
|
|||||||
|
|
||||||
IMUCAL EQUALS
|
IMUCAL EQUALS
|
||||||
BNKSUM 33
|
BNKSUM 33
|
||||||
|
|
||||||
BANK 34
|
BANK 34
|
||||||
P11ONE EQUALS
|
P11ONE EQUALS
|
||||||
P20S3 EQUALS
|
P20S3 EQUALS
|
||||||
P20S4 EQUALS
|
P20S4 EQUALS
|
||||||
RTECON EQUALS
|
RTECON EQUALS
|
||||||
BNKSUM 34
|
BNKSUM 34
|
||||||
|
|
||||||
BANK 35
|
BANK 35
|
||||||
RTECON1 EQUALS
|
RTECON1 EQUALS
|
||||||
CSI/CDH EQUALS
|
CSI/CDH EQUALS
|
||||||
@ -319,7 +319,7 @@ P17S1 EQUALS
|
|||||||
MEASINC3 EQUALS
|
MEASINC3 EQUALS
|
||||||
INTINIT2 EQUALS
|
INTINIT2 EQUALS
|
||||||
BNKSUM 35
|
BNKSUM 35
|
||||||
|
|
||||||
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
|
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
|
||||||
|
|
||||||
BANK 36
|
BANK 36
|
||||||
@ -329,7 +329,7 @@ P17S EQUALS
|
|||||||
RTE1 EQUALS
|
RTE1 EQUALS
|
||||||
S3435LOC EQUALS
|
S3435LOC EQUALS
|
||||||
BNKSUM 36
|
BNKSUM 36
|
||||||
|
|
||||||
BANK 37
|
BANK 37
|
||||||
P20S EQUALS
|
P20S EQUALS
|
||||||
BODYATT EQUALS
|
BODYATT EQUALS
|
||||||
@ -338,7 +338,7 @@ SERVICES EQUALS
|
|||||||
P11TWO EQUALS
|
P11TWO EQUALS
|
||||||
CDHTAG3 EQUALS
|
CDHTAG3 EQUALS
|
||||||
BNKSUM 37
|
BNKSUM 37
|
||||||
|
|
||||||
BANK 40
|
BANK 40
|
||||||
PINSUPER EQUALS
|
PINSUPER EQUALS
|
||||||
|
|
||||||
@ -348,29 +348,29 @@ SELFSUPR EQUALS
|
|||||||
PINBALL1 EQUALS
|
PINBALL1 EQUALS
|
||||||
R36CM1 EQUALS
|
R36CM1 EQUALS
|
||||||
BNKSUM 40
|
BNKSUM 40
|
||||||
|
|
||||||
BANK 41
|
BANK 41
|
||||||
PINBALL2 EQUALS
|
PINBALL2 EQUALS
|
||||||
R36LM EQUALS
|
R36LM EQUALS
|
||||||
BNKSUM 41
|
BNKSUM 41
|
||||||
|
|
||||||
BANK 42
|
BANK 42
|
||||||
SBAND EQUALS
|
SBAND EQUALS
|
||||||
PINBALL3 EQUALS
|
PINBALL3 EQUALS
|
||||||
EXTVBS EQUALS
|
EXTVBS EQUALS
|
||||||
R36LM1 EQUALS
|
R36LM1 EQUALS
|
||||||
BNKSUM 42
|
BNKSUM 42
|
||||||
|
|
||||||
BANK 43
|
BANK 43
|
||||||
SELFCHEC EQUALS
|
SELFCHEC EQUALS
|
||||||
EXTVERBS EQUALS
|
EXTVERBS EQUALS
|
||||||
BNKSUM 43
|
BNKSUM 43
|
||||||
|
|
||||||
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
|
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
|
||||||
LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
|
LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
|
||||||
HIDPHALF EQUALS UNITX
|
HIDPHALF EQUALS UNITX
|
||||||
LODPHALF EQUALS XUNIT
|
LODPHALF EQUALS XUNIT
|
||||||
HIDP1/4 EQUALS DP1/4TH
|
HIDP1/4 EQUALS DP1/4TH
|
||||||
LODP1/4 EQUALS D1/4 # 2DEC .25
|
LODP1/4 EQUALS D1/4 # 2DEC .25
|
||||||
HIUNITX EQUALS UNITX
|
HIUNITX EQUALS UNITX
|
||||||
HIUNITY EQUALS UNITY
|
HIUNITY EQUALS UNITY
|
||||||
@ -431,6 +431,6 @@ EBRN1 ECADR RN1
|
|||||||
#******************************************************************************************************
|
#******************************************************************************************************
|
||||||
|
|
||||||
# Page 36
|
# Page 36
|
||||||
|
|
||||||
# *** END OF MAIN PROGRAM ***
|
# *** END OF MAIN PROGRAM ***
|
||||||
|
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
|
|||||||
@ -17,13 +17,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -40,7 +40,7 @@
|
|||||||
# FOR THE TPI AND TPF MANEUVERS.
|
# FOR THE TPI AND TPF MANEUVERS.
|
||||||
#
|
#
|
||||||
# THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
|
# THE S17.1 ROUTINE EXTRAPOLATES THE STATE VECTORS OF BOTH VEHICLES TO THE TPI TIME AND COMPUTES THE
|
||||||
# RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E., THE MAGNITUDE DIFFERENCE OF THE
|
# RELATIVE PHASE ANGLE BETWEEN THE VEHICLES, THE ALTITUDE DIFFERENCE (I.E., THE MAGNITUDE DIFFERENCE OF THE
|
||||||
# POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
|
# POSITION VECTORS) AND SELECTS A SEARCH SECTOR BASED ON THE SIGN OF THE ALTITUDE DIFFERENCE.
|
||||||
#
|
#
|
||||||
# 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
|
||||||
@ -64,11 +64,11 @@
|
|||||||
BANK 36
|
BANK 36
|
||||||
SETLOC P17S1
|
SETLOC P17S1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT 36/TPI
|
COUNT 36/TPI
|
||||||
|
|
||||||
EBANK= RACT3
|
EBANK= RACT3
|
||||||
|
|
||||||
# **** TEMPORARY ****
|
# **** TEMPORARY ****
|
||||||
|
|
||||||
HPE 2DEC 157420.0 B-29 # EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
|
HPE 2DEC 157420.0 B-29 # EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
|
||||||
@ -134,7 +134,7 @@ S17.1 STQ DLOAD
|
|||||||
SL1 ACOS
|
SL1 ACOS
|
||||||
PDVL
|
PDVL
|
||||||
VXV DOT
|
VXV DOT
|
||||||
# Page 553
|
# Page 553
|
||||||
RACT3
|
RACT3
|
||||||
E2
|
E2
|
||||||
PDDL SIGN
|
PDDL SIGN
|
||||||
@ -185,7 +185,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS
|
|||||||
TIMETHET
|
TIMETHET
|
||||||
DLOAD # SAVE START TIME AND GET END TIME
|
DLOAD # SAVE START TIME AND GET END TIME
|
||||||
T
|
T
|
||||||
# Page 554
|
# Page 554
|
||||||
STORE TF
|
STORE TF
|
||||||
STODL TFO
|
STODL TFO
|
||||||
IT
|
IT
|
||||||
@ -197,7 +197,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS
|
|||||||
STORE CSTH
|
STORE CSTH
|
||||||
LXA,1 CALL
|
LXA,1 CALL
|
||||||
XRS
|
XRS
|
||||||
TIMETHET
|
TIMETHET
|
||||||
# INITIALIZE LOOP
|
# INITIALIZE LOOP
|
||||||
DLOAD CLEAR
|
DLOAD CLEAR
|
||||||
T
|
T
|
||||||
@ -287,7 +287,7 @@ JUNCT3 VLOAD
|
|||||||
XRS
|
XRS
|
||||||
STOVL X1
|
STOVL X1
|
||||||
VIPRIME
|
VIPRIME
|
||||||
# Page 556
|
# Page 556
|
||||||
VSR*
|
VSR*
|
||||||
0,2
|
0,2
|
||||||
STOVL VVEC
|
STOVL VVEC
|
||||||
@ -338,7 +338,7 @@ INTERP SET DSU # HP-HPO
|
|||||||
X2
|
X2
|
||||||
XSU,2 DDV
|
XSU,2 DDV
|
||||||
X1
|
X1
|
||||||
# Page 557
|
# Page 557
|
||||||
DMP SR*
|
DMP SR*
|
||||||
DELTEE
|
DELTEE
|
||||||
0 -1,2
|
0 -1,2
|
||||||
@ -405,7 +405,7 @@ USEKAY SLOAD BON
|
|||||||
DECTWO
|
DECTWO
|
||||||
KFLAG
|
KFLAG
|
||||||
NEXUS
|
NEXUS
|
||||||
DSU
|
DSU
|
||||||
P21ONENN
|
P21ONENN
|
||||||
NEXUS STODL NN1
|
NEXUS STODL NN1
|
||||||
HP
|
HP
|
||||||
@ -415,7 +415,7 @@ NEXUS STODL NN1
|
|||||||
SETLOC XANG
|
SETLOC XANG
|
||||||
BANK
|
BANK
|
||||||
COUNT 07/XANG
|
COUNT 07/XANG
|
||||||
|
|
||||||
# CENTRAL ANGLE SUBROUTINE
|
# CENTRAL ANGLE SUBROUTINE
|
||||||
#
|
#
|
||||||
# THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
|
# THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
|
||||||
@ -472,7 +472,7 @@ TRANSANG STQ SETPD
|
|||||||
SETLOC P17S1
|
SETLOC P17S1
|
||||||
BANK
|
BANK
|
||||||
COUNT 35/P17
|
COUNT 35/P17
|
||||||
|
|
||||||
# TPI SEARCH DISPLAY ROUTNE
|
# TPI SEARCH DISPLAY ROUTNE
|
||||||
|
|
||||||
P17 TC AVFLAGA # AVFLAG = CSM, SET TRACK + UPDATE FLAGS
|
P17 TC AVFLAGA # AVFLAG = CSM, SET TRACK + UPDATE FLAGS
|
||||||
@ -531,7 +531,7 @@ P17.3 CAF V06N58 # DISPLAY DELTA VTPI, DELTA VTPF, AND H
|
|||||||
TC BLANKET
|
TC BLANKET
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
EBANK= RTRN
|
EBANK= RTRN
|
||||||
|
|
||||||
VNCOMP17 EXTEND
|
VNCOMP17 EXTEND
|
||||||
QXCH QSAVED
|
QXCH QSAVED
|
||||||
TS VERBNOUN
|
TS VERBNOUN
|
||||||
@ -543,7 +543,7 @@ VNCOMP17 EXTEND
|
|||||||
CS MPAC # RECYCLE WITH NEW TPI TIME
|
CS MPAC # RECYCLE WITH NEW TPI TIME
|
||||||
AD BIT6 # OR PROCEED WITH NEW SEARCH OPTION
|
AD BIT6 # OR PROCEED WITH NEW SEARCH OPTION
|
||||||
EXTEND
|
EXTEND
|
||||||
# Page 561
|
# Page 561
|
||||||
BZF P17.1
|
BZF P17.1
|
||||||
TC VNCOMP17 +3
|
TC VNCOMP17 +3
|
||||||
ALARUMS SET EXIT
|
ALARUMS SET EXIT
|
||||||
|
|||||||
@ -11,7 +11,7 @@
|
|||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: Eliminated an extraneous EXTEND,
|
# 2009-05-20 RSB Corrections: Eliminated an extraneous EXTEND,
|
||||||
# added a missing instruction to PFORWARD.
|
# added a missing instruction to PFORWARD.
|
||||||
# 2000-05-21 RSB Wrong opcode was used with DELBRTMP and
|
# 2000-05-21 RSB Wrong opcode was used with DELBRTMP and
|
||||||
# DELBRTMP +1 operands in 4 places. Corrected
|
# DELBRTMP +1 operands in 4 places. Corrected
|
||||||
# an MP operation in 2CASFLTR.
|
# an MP operation in 2CASFLTR.
|
||||||
#
|
#
|
||||||
@ -21,13 +21,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -122,33 +122,33 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
|
|
||||||
COUNT* $$/DAPS
|
COUNT* $$/DAPS
|
||||||
|
|
||||||
# Page 963
|
# Page 963
|
||||||
# PITCH TVCDAP STARTS HERE....(INCOPORATES CSM/LEM DAP FILTER, MODOR DESIGN)
|
# PITCH TVCDAP STARTS HERE....(INCOPORATES CSM/LEM DAP FILTER, MODOR DESIGN)
|
||||||
|
|
||||||
PITCHDAP LXCH BANKRUPT # T5 ENTRY, NORMAL OR VIA DAPINIT
|
PITCHDAP LXCH BANKRUPT # T5 ENTRY, NORMAL OR VIA DAPINIT
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
|
|
||||||
CAF YAWT5 # SET UP T5 CALL FOR YAW AUTOPILOT (LOW-
|
CAF YAWT5 # SET UP T5 CALL FOR YAW AUTOPILOT (LOW-
|
||||||
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
|
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
|
||||||
CAE T5TVCDT
|
CAE T5TVCDT
|
||||||
TS TIME5
|
TS TIME5
|
||||||
|
|
||||||
PSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
|
PSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
|
||||||
TC HACK # TEST-START OR TEST-IN-PROGRESS
|
TC HACK # TEST-START OR TEST-IN-PROGRESS
|
||||||
TCF +2 # NO-TEST
|
TCF +2 # NO-TEST
|
||||||
TC HACK # TEST-IN-PROGRESS
|
TC HACK # TEST-IN-PROGRESS
|
||||||
|
|
||||||
PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
|
PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
|
||||||
XCH PCDUYPST
|
XCH PCDUYPST
|
||||||
EXTEND
|
EXTEND
|
||||||
MSU PCDUYPST
|
MSU PCDUYPST
|
||||||
TCR RLIMTEST # RATE TEST
|
TCR RLIMTEST # RATE TEST
|
||||||
TS MCDUYDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
|
TS MCDUYDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
|
||||||
|
|
||||||
CAE CDUZ # COMPUTE CDUZDOT (USED BY PITCH AND YAW)
|
CAE CDUZ # COMPUTE CDUZDOT (USED BY PITCH AND YAW)
|
||||||
XCH PCDUZPST
|
XCH PCDUZPST
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -156,7 +156,7 @@ PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
|
|||||||
TCR RLIMTEST # RATE TEST
|
TCR RLIMTEST # RATE TEST
|
||||||
TS MCDUZDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
|
TS MCDUZDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
|
||||||
TCF PINTEGRL
|
TCF PINTEGRL
|
||||||
|
|
||||||
RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
|
RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
|
||||||
EXTEND # THAN 2.33 DEG IN ONE SAMPLE PERIOD
|
EXTEND # THAN 2.33 DEG IN ONE SAMPLE PERIOD
|
||||||
MP 1/RTLIM
|
MP 1/RTLIM
|
||||||
@ -166,16 +166,16 @@ RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
|
|||||||
TS TTMP1
|
TS TTMP1
|
||||||
CAE TTMP1
|
CAE TTMP1
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
|
PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
|
||||||
DCA PERRB # ERROR, SC.AT B-1 REVS
|
DCA PERRB # ERROR, SC.AT B-1 REVS
|
||||||
DXCH ERRBTMP
|
DXCH ERRBTMP
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA OMEGAYC
|
DCA OMEGAYC
|
||||||
DAS ERRBTMP
|
DAS ERRBTMP
|
||||||
|
|
||||||
# Page 964
|
# Page 964
|
||||||
CS COSCDUZ # PREPARE BODY-AXIS PITCH RATE, OMEGAYB
|
CS COSCDUZ # PREPARE BODY-AXIS PITCH RATE, OMEGAYB
|
||||||
EXTEND
|
EXTEND
|
||||||
MP COSCDUX
|
MP COSCDUX
|
||||||
@ -184,17 +184,17 @@ PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
|
|||||||
MP MCDUYDOT
|
MP MCDUYDOT
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DXCH OMEGAYB
|
DXCH OMEGAYB
|
||||||
|
|
||||||
CS MCDUZDOT
|
CS MCDUZDOT
|
||||||
EXTEND
|
EXTEND
|
||||||
MP SINCDUX
|
MP SINCDUX
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DAS OMEGAYB # (COMPLETED OMEGAYB, SC.AT 1/2TVCDT REVS)
|
DAS OMEGAYB # (COMPLETED OMEGAYB, SC.AT 1/2TVCDT REVS)
|
||||||
|
|
||||||
EXTEND # PICK UP -OMEGAYB (SIGN CHNG, INTEGRATE)
|
EXTEND # PICK UP -OMEGAYB (SIGN CHNG, INTEGRATE)
|
||||||
DCS OMEGAYB
|
DCS OMEGAYB
|
||||||
DAS ERRBTMP
|
DAS ERRBTMP
|
||||||
|
|
||||||
PERORLIM TCR ERRORLIM # PITCH BODY-AXIS-ERROR INPUT LIMITER
|
PERORLIM TCR ERRORLIM # PITCH BODY-AXIS-ERROR INPUT LIMITER
|
||||||
|
|
||||||
PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
||||||
@ -206,25 +206,25 @@ PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA PTMP5
|
DCA PTMP5
|
||||||
DXCH TMP5
|
DXCH TMP5
|
||||||
|
|
||||||
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
|
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
|
||||||
# (INCLUDES VARIABLE GAIN PACKAGE)
|
# (INCLUDES VARIABLE GAIN PACKAGE)
|
||||||
|
|
||||||
POFFSET EXTEND
|
POFFSET EXTEND
|
||||||
DCA PDELOFF
|
DCA PDELOFF
|
||||||
DAS CMDTMP # NO SCALED AT B+0 ASCREV
|
DAS CMDTMP # NO SCALED AT B+0 ASCREV
|
||||||
|
|
||||||
PACLIM TCR ACTLIM # ROUND OFF & LIMIT PITCH ACTUATOR COMMAND
|
PACLIM TCR ACTLIM # ROUND OFF & LIMIT PITCH ACTUATOR COMMAND
|
||||||
|
|
||||||
POUT CS PCMD # INCREMENTAL PITCH COMMAND
|
POUT CS PCMD # INCREMENTAL PITCH COMMAND
|
||||||
AD CMDTMP
|
AD CMDTMP
|
||||||
ADS TVCPITCH # UPDATE THE ERROR COUNTER (NO RESTART-
|
ADS TVCPITCH # UPDATE THE ERROR COUNTER (NO RESTART-
|
||||||
# PROTECT. SINCE ERROR CNTR ZEROED)
|
# PROTECT. SINCE ERROR CNTR ZEROED)
|
||||||
|
|
||||||
CAF BIT11 # BIT FOR TVCPITCH COUNT RELEASE
|
CAF BIT11 # BIT FOR TVCPITCH COUNT RELEASE
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14
|
WOR CHAN14
|
||||||
|
|
||||||
PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
|
PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
|
||||||
# Page 965
|
# Page 965
|
||||||
DCA PTMP2
|
DCA PTMP2
|
||||||
@ -235,9 +235,9 @@ PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA PTMP6
|
DCA PTMP6
|
||||||
DXCH TMP6
|
DXCH TMP6
|
||||||
|
|
||||||
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
|
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
|
||||||
|
|
||||||
DELBARP CAE DELPBAR +1
|
DELBARP CAE DELPBAR +1
|
||||||
EXTEND
|
EXTEND
|
||||||
MP E(-AT)
|
MP E(-AT)
|
||||||
@ -250,7 +250,7 @@ DELBARP CAE DELPBAR +1
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP 1-E(-AT)
|
MP 1-E(-AT)
|
||||||
DAS DELBRTMP
|
DAS DELBRTMP
|
||||||
|
|
||||||
PCOPYCYC TCR PCOPY # PITCH COPYCYCLE
|
PCOPYCYC TCR PCOPY # PITCH COPYCYCLE
|
||||||
|
|
||||||
PDAPEND TCF RESUME # PITCH DAP COMPLETED
|
PDAPEND TCF RESUME # PITCH DAP COMPLETED
|
||||||
@ -261,9 +261,9 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
|
|||||||
# NOTE POSSIBLE RE-ENTRY FROM RESTART
|
# NOTE POSSIBLE RE-ENTRY FROM RESTART
|
||||||
# PACKAGE, SHOULD A RESTART OCCUR
|
# PACKAGE, SHOULD A RESTART OCCUR
|
||||||
# DURING PITCH COPYCYCLE.
|
# DURING PITCH COPYCYCLE.
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP1
|
DCA TMP1
|
||||||
DXCH PTMP1
|
DXCH PTMP1
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP2
|
DCA TMP2
|
||||||
@ -271,7 +271,7 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP3
|
DCA TMP3
|
||||||
DXCH PTMP3
|
DXCH PTMP3
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP4
|
DCA TMP4
|
||||||
DXCH PTMP4
|
DXCH PTMP4
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -280,21 +280,21 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP6
|
DCA TMP6
|
||||||
DXCH PTMP6
|
DXCH PTMP6
|
||||||
|
|
||||||
PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
|
PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
|
||||||
DCA ERRBTMP
|
DCA ERRBTMP
|
||||||
TS AK1 # FOR PITCH NEEDLES, SC.AT B-1 REVS
|
TS AK1 # FOR PITCH NEEDLES, SC.AT B-1 REVS
|
||||||
DXCH PERRB
|
DXCH PERRB
|
||||||
|
|
||||||
CAE CMDTMP # PITCH ACTUATOR COMMAND
|
CAE CMDTMP # PITCH ACTUATOR COMMAND
|
||||||
TS PCMD
|
TS PCMD
|
||||||
|
|
||||||
EXTEND # PITCH OFFSET-TRACKER-FILTER
|
EXTEND # PITCH OFFSET-TRACKER-FILTER
|
||||||
DCA DELBRTMP
|
DCA DELBRTMP
|
||||||
DXCH DELPBAR
|
DXCH DELPBAR
|
||||||
|
|
||||||
INCR TVCPHASE # PITCH COPYCYCLE COMPLETED (2)
|
INCR TVCPHASE # PITCH COPYCYCLE COMPLETED (2)
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 967
|
# Page 967
|
||||||
@ -303,27 +303,27 @@ PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
|
|||||||
YAWDAP LXCH BANKRUPT # T5 ENTRY, NORMAL
|
YAWDAP LXCH BANKRUPT # T5 ENTRY, NORMAL
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
|
|
||||||
CAF PITCHT5 # SET UP T5 CALL FOR PITCH AUTOPILOT (LOW-
|
CAF PITCHT5 # SET UP T5 CALL FOR PITCH AUTOPILOT (LOW-
|
||||||
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
|
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
|
||||||
CAE T5TVCDT
|
CAE T5TVCDT
|
||||||
TS TIME5
|
TS TIME5
|
||||||
|
|
||||||
YSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
|
YSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
|
||||||
TC HACK # TEST-START OR TEST-IN-PROGRESS
|
TC HACK # TEST-START OR TEST-IN-PROGRESS
|
||||||
TCF +2 # NO-TEST
|
TCF +2 # NO-TEST
|
||||||
TC HACK # TEST-IN-PROGRESS
|
TC HACK # TEST-IN-PROGRESS
|
||||||
|
|
||||||
# USE BODY RATES FROM PITCHDAP (PCDUDOTS)
|
# USE BODY RATES FROM PITCHDAP (PCDUDOTS)
|
||||||
|
|
||||||
YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
|
YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
|
||||||
DCA YERRB # ERROR, SC.AT B-1 REVS
|
DCA YERRB # ERROR, SC.AT B-1 REVS
|
||||||
DXCH ERRBTMP
|
DXCH ERRBTMP
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA OMEGAZC
|
DCA OMEGAZC
|
||||||
DAS ERRBTMP
|
DAS ERRBTMP
|
||||||
|
|
||||||
CAE COSCDUZ # PREPARE BODY-AXIS YAW-RATE, OMEGAZB
|
CAE COSCDUZ # PREPARE BODY-AXIS YAW-RATE, OMEGAZB
|
||||||
EXTEND
|
EXTEND
|
||||||
MP SINCDUX
|
MP SINCDUX
|
||||||
@ -332,22 +332,22 @@ YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
|
|||||||
MP MCDUYDOT
|
MP MCDUYDOT
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DXCH OMEGAZB
|
DXCH OMEGAZB
|
||||||
|
|
||||||
CS MCDUZDOT
|
CS MCDUZDOT
|
||||||
EXTEND
|
EXTEND
|
||||||
MP COSCDUX
|
MP COSCDUX
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DAS OMEGAZB # (COMPLETED OMEGAZB, SC.AT 1/2TVCDT REVS)
|
DAS OMEGAZB # (COMPLETED OMEGAZB, SC.AT 1/2TVCDT REVS)
|
||||||
|
|
||||||
EXTEND # PICK UP -OMEGAZB (SIGN CHNG, INTEGRATE)
|
EXTEND # PICK UP -OMEGAZB (SIGN CHNG, INTEGRATE)
|
||||||
DCS OMEGAZB
|
DCS OMEGAZB
|
||||||
DAS ERRBTMP
|
DAS ERRBTMP
|
||||||
|
|
||||||
YERORLIM TCR ERRORLIM # YAW BODY-AXIS-ERROR INPUT LIMITER
|
YERORLIM TCR ERRORLIM # YAW BODY-AXIS-ERROR INPUT LIMITER
|
||||||
|
|
||||||
YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
||||||
DCA YTMP1 # FOR THE YAW CHANNEL
|
DCA YTMP1 # FOR THE YAW CHANNEL
|
||||||
# Page 968
|
# Page 968
|
||||||
DXCH TMP1
|
DXCH TMP1
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA YTMP3
|
DCA YTMP3
|
||||||
@ -355,10 +355,10 @@ YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA YTMP5
|
DCA YTMP5
|
||||||
DXCH TMP5
|
DXCH TMP5
|
||||||
|
|
||||||
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
|
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
|
||||||
# (INCLUDES VARIABLE GAIN PACKAGE)
|
# (INCLUDES VARIABLE GAIN PACKAGE)
|
||||||
|
|
||||||
YOFFSET EXTEND
|
YOFFSET EXTEND
|
||||||
DCA YDELOFF
|
DCA YDELOFF
|
||||||
DAS CMDTMP # NOW SCALED AT B+0 ASCREV
|
DAS CMDTMP # NOW SCALED AT B+0 ASCREV
|
||||||
@ -373,7 +373,7 @@ YOUT CS YCMD # INCREMENTAL YAW COMMAND
|
|||||||
CAF BIT12 # BIT FOR TVCYAW COUNT RELEASE
|
CAF BIT12 # BIT FOR TVCYAW COUNT RELEASE
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14
|
WOR CHAN14
|
||||||
|
|
||||||
YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
|
YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
|
||||||
DCA YTMP2
|
DCA YTMP2
|
||||||
DXCH TMP2
|
DXCH TMP2
|
||||||
@ -383,9 +383,9 @@ YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA YTMP6
|
DCA YTMP6
|
||||||
DXCH TMP6
|
DXCH TMP6
|
||||||
|
|
||||||
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
|
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
|
||||||
|
|
||||||
DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
|
DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
|
||||||
EXTEND
|
EXTEND
|
||||||
MP E(-AT)
|
MP E(-AT)
|
||||||
@ -398,7 +398,7 @@ DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP 1-E(-AT)
|
MP 1-E(-AT)
|
||||||
DAS DELBRTMP
|
DAS DELBRTMP
|
||||||
|
|
||||||
# Page 969
|
# Page 969
|
||||||
YCOPYCYC TCR YCOPY # YAW COPYCYCLE
|
YCOPYCYC TCR YCOPY # YAW COPYCYCLE
|
||||||
|
|
||||||
@ -411,17 +411,17 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3)
|
|||||||
# NOTE POSSIBLE RE-ENTRY FROM RESTART
|
# NOTE POSSIBLE RE-ENTRY FROM RESTART
|
||||||
# PACKAGE, SHOULD A RESTART OCCUR
|
# PACKAGE, SHOULD A RESTART OCCUR
|
||||||
# DURING YAW COPYCYCLE.
|
# DURING YAW COPYCYCLE.
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP1
|
DCA TMP1
|
||||||
DXCH YTMP1
|
DXCH YTMP1
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP2
|
DCA TMP2
|
||||||
DXCH YTMP2
|
DXCH YTMP2
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP3
|
DCA TMP3
|
||||||
DXCH YTMP3
|
DXCH YTMP3
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP4
|
DCA TMP4
|
||||||
DXCH YTMP4
|
DXCH YTMP4
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -430,24 +430,24 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3)
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA TMP6
|
DCA TMP6
|
||||||
DXCH YTMP6
|
DXCH YTMP6
|
||||||
|
|
||||||
YMISC EXTEND # MISC....YAW-RATE-ERROR INTEGRATOR
|
YMISC EXTEND # MISC....YAW-RATE-ERROR INTEGRATOR
|
||||||
DCA ERRBTMP
|
DCA ERRBTMP
|
||||||
TS AK2 # FOR YAW NEEDLES, SC.AT B-1 REVS
|
TS AK2 # FOR YAW NEEDLES, SC.AT B-1 REVS
|
||||||
DXCH YERRB
|
DXCH YERRB
|
||||||
|
|
||||||
CAE CMDTMP
|
CAE CMDTMP
|
||||||
TS YCMD
|
TS YCMD
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA DELBRTMP
|
DCA DELBRTMP
|
||||||
DXCH DELYBAR
|
DXCH DELYBAR
|
||||||
|
|
||||||
CAF ZERO # YAW COPYCYCLE COMPLETED
|
CAF ZERO # YAW COPYCYCLE COMPLETED
|
||||||
TS TVCPHASE # RESET TVCPHASE
|
TS TVCPHASE # RESET TVCPHASE
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 971
|
# Page 971
|
||||||
# SUBROUTINES COMMON TO BOTH PITCH AND YAW DAPS....
|
# SUBROUTINES COMMON TO BOTH PITCH AND YAW DAPS....
|
||||||
|
|
||||||
@ -462,14 +462,14 @@ DAPINIT LXCH BANKRUPT # T5 RUPT ENTRY (CALLED BY TVCINT4)
|
|||||||
TS TIME5
|
TS TIME5
|
||||||
CAF PITCHT5 # (BBCON ALREADY THERE)
|
CAF PITCHT5 # (BBCON ALREADY THERE)
|
||||||
TS T5LOC
|
TS T5LOC
|
||||||
|
|
||||||
CAE CDUY # READ AND STORE CDUS FOR DIFFERENTIATOR
|
CAE CDUY # READ AND STORE CDUS FOR DIFFERENTIATOR
|
||||||
TS PCDUYPST # PAST-VALUES
|
TS PCDUYPST # PAST-VALUES
|
||||||
CAE CDUZ
|
CAE CDUZ
|
||||||
TS PCDUZPST
|
TS PCDUZPST
|
||||||
|
|
||||||
TCF NOQRSM
|
TCF NOQRSM
|
||||||
|
|
||||||
# BODY-AXIS-ERROR INPUT LIMITER PACKAGE....
|
# BODY-AXIS-ERROR INPUT LIMITER PACKAGE....
|
||||||
|
|
||||||
ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
|
ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
|
||||||
@ -482,9 +482,9 @@ ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
|
|||||||
TCF +2
|
TCF +2
|
||||||
CS ERRLIM
|
CS ERRLIM
|
||||||
TS ERRBTMP # LIMIT WRITES OVER UPPER WORD ONLY
|
TS ERRBTMP # LIMIT WRITES OVER UPPER WORD ONLY
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# ACTUATOR-COMMAND LIMITER PACKAGE....
|
# ACTUATOR-COMMAND LIMITER PACKAGE....
|
||||||
|
|
||||||
ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
|
ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
|
||||||
@ -492,7 +492,7 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
|
|||||||
TS L
|
TS L
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
AD CMDTMP
|
AD CMDTMP
|
||||||
|
|
||||||
EXTEND # CHECK FOR ACTUATOR COMMAND LIMIT
|
EXTEND # CHECK FOR ACTUATOR COMMAND LIMIT
|
||||||
MP 1/ACTSAT
|
MP 1/ACTSAT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -503,9 +503,9 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
|
|||||||
TCF +2
|
TCF +2
|
||||||
CS ACTSAT
|
CS ACTSAT
|
||||||
TS CMDTMP # LIMITS WRITE OVER CMDTMP
|
TS CMDTMP # LIMITS WRITE OVER CMDTMP
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# FILTER COMPUTATIONS FOR PRESENT OUTPUT................
|
# FILTER COMPUTATIONS FOR PRESENT OUTPUT................
|
||||||
|
|
||||||
FWDFLTR CAF ZERO
|
FWDFLTR CAF ZERO
|
||||||
@ -513,7 +513,7 @@ FWDFLTR CAF ZERO
|
|||||||
TS DAP2
|
TS DAP2
|
||||||
TS DAP3
|
TS DAP3
|
||||||
TS CMDTMP
|
TS CMDTMP
|
||||||
|
|
||||||
TS DELBRTMP
|
TS DELBRTMP
|
||||||
|
|
||||||
1DAPCAS CAE ERRBTMP +1 # FIRST DAP CASCADE
|
1DAPCAS CAE ERRBTMP +1 # FIRST DAP CASCADE
|
||||||
@ -547,7 +547,7 @@ FWDFLTR CAF ZERO
|
|||||||
DXCH DAP3
|
DXCH DAP3
|
||||||
TCF OPTVARK
|
TCF OPTVARK
|
||||||
|
|
||||||
# Page 973
|
# Page 973
|
||||||
3DAPCAS CAE DAP2 +1 # THIRD DAP CASCADE
|
3DAPCAS CAE DAP2 +1 # THIRD DAP CASCADE
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +10D # N30
|
MP N10 +10D # N30
|
||||||
@ -567,14 +567,14 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP VARK
|
MP VARK
|
||||||
DAS CMDTMP
|
DAS CMDTMP
|
||||||
|
|
||||||
DXCH CMDTMP # FIX UP SCALING -- SCALED B+3 ASCREVS
|
DXCH CMDTMP # FIX UP SCALING -- SCALED B+3 ASCREVS
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DXCH CMDTMP # -- SCALED B+1 ASCREVS
|
DXCH CMDTMP # -- SCALED B+1 ASCREVS
|
||||||
# NOTE -- THERE IS AN INHERENT GAIN OF
|
# NOTE -- THERE IS AN INHERENT GAIN OF
|
||||||
# (B+1 ASCREVS) ON THE OUTPUT DACS.
|
# (B+1 ASCREVS) ON THE OUTPUT DACS.
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# FILTER PRECOMPUTATIONS FOR NEXT PASS................
|
# FILTER PRECOMPUTATIONS FOR NEXT PASS................
|
||||||
@ -582,7 +582,7 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE
|
|||||||
PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TTMP2
|
TS TTMP2
|
||||||
|
|
||||||
CA ERRBTMP +1 # MULTIPLY INPUT BY
|
CA ERRBTMP +1 # MULTIPLY INPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +1 # N11/2
|
MP N10 +1 # N11/2
|
||||||
@ -591,31 +591,31 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +1 # N11/2
|
MP N10 +1 # N11/2
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP1 +1 # MULTIPLY OUTPUT BY
|
CS DAP1 +1 # MULTIPLY OUTPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +3 # D11/2
|
MP N10 +3 # D11/2
|
||||||
TS TTMP2 +1
|
TS TTMP2 +1
|
||||||
CS DAP1
|
CS DAP1
|
||||||
|
|
||||||
# Page 974
|
# Page 974
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +3 # D11/2
|
MP N10 +3 # D11/2
|
||||||
DAS TTMP2
|
DAS TTMP2
|
||||||
|
|
||||||
DXCH TTMP2
|
DXCH TTMP2
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DAS TMP2
|
DAS TMP2
|
||||||
|
|
||||||
DXCH TMP2
|
DXCH TMP2
|
||||||
DXCH TMP1
|
DXCH TMP1
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TMP2
|
TS TMP2
|
||||||
|
|
||||||
CA ERRBTMP +1 # MULTIPLY INPUT BY
|
CA ERRBTMP +1 # MULTIPLY INPUT BY
|
||||||
EXTEND # SECOND-ORDER NUMERATOR COEFF.
|
EXTEND # SECOND-ORDER NUMERATOR COEFF.
|
||||||
MP N10 +2 # N12
|
MP N10 +2 # N12
|
||||||
@ -624,7 +624,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +2 # N12
|
MP N10 +2 # N12
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP1 +1 # MULTIPLY OUTPUT BY
|
CS DAP1 +1 # MULTIPLY OUTPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +4 # D12
|
MP N10 +4 # D12
|
||||||
@ -633,14 +633,14 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +4 # D12
|
MP N10 +4 # D12
|
||||||
DAS TMP2
|
DAS TMP2
|
||||||
|
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DAS TMP2
|
DAS TMP2
|
||||||
|
|
||||||
2CASFLTR CAF ZERO # **** SECOND CASCADE FILTER **********
|
2CASFLTR CAF ZERO # **** SECOND CASCADE FILTER **********
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TTMP2
|
TS TTMP2
|
||||||
|
|
||||||
CA DAP1 +1 # MULTIPLY INPUT BY
|
CA DAP1 +1 # MULTIPLY INPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +6 # N21/2
|
MP N10 +6 # N21/2
|
||||||
@ -648,9 +648,9 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
CA DAP1
|
CA DAP1
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +6 # N21/2
|
MP N10 +6 # N21/2
|
||||||
# Page 975
|
# Page 975
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP2 +1 # MULTIPLY OUTPUT BY
|
CS DAP2 +1 # MULTIPLY OUTPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +8D # D21/2
|
MP N10 +8D # D21/2
|
||||||
@ -659,20 +659,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +8D # D21/2
|
MP N10 +8D # D21/2
|
||||||
DAS TTMP2
|
DAS TTMP2
|
||||||
|
|
||||||
DXCH TTMP2
|
DXCH TTMP2
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DAS TMP4
|
DAS TMP4
|
||||||
|
|
||||||
DXCH TMP4
|
DXCH TMP4
|
||||||
DXCH TMP3
|
DXCH TMP3
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TMP4
|
TS TMP4
|
||||||
|
|
||||||
CA DAP1 +1 # MULTIPLY INPUT BY
|
CA DAP1 +1 # MULTIPLY INPUT BY
|
||||||
EXTEND # SECOND-ORDER NUMERATOR COEFF.
|
EXTEND # SECOND-ORDER NUMERATOR COEFF.
|
||||||
MP N10 +7 # N22
|
MP N10 +7 # N22
|
||||||
@ -681,7 +681,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +7 # N22
|
MP N10 +7 # N22
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP2 +1 # MULTIPLY OUTPUT BY
|
CS DAP2 +1 # MULTIPLY OUTPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +9D # D22
|
MP N10 +9D # D22
|
||||||
@ -690,20 +690,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +9D # D22
|
MP N10 +9D # D22
|
||||||
DAS TMP4
|
DAS TMP4
|
||||||
|
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DAS TMP4
|
DAS TMP4
|
||||||
|
|
||||||
CAE DAPDATR1 # TEST FOR LEM ON OR OFF
|
CAE DAPDATR1 # TEST FOR LEM ON OR OFF
|
||||||
MASK BIT13
|
MASK BIT13
|
||||||
CCS A
|
CCS A
|
||||||
TC Q # EXIT IF LEM OFF
|
TC Q # EXIT IF LEM OFF
|
||||||
|
|
||||||
# Page 976
|
# Page 976
|
||||||
3CASFLTR CAF ZERO # **** THIRD CASCADE FILTER **********
|
3CASFLTR CAF ZERO # **** THIRD CASCADE FILTER **********
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TTMP2
|
TS TTMP2
|
||||||
|
|
||||||
CA DAP2 +1 # MULTIPLY INPUT BY (1/2)
|
CA DAP2 +1 # MULTIPLY INPUT BY (1/2)
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +11D # N31/2
|
MP N10 +11D # N31/2
|
||||||
@ -712,7 +712,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +11D # N31/2
|
MP N10 +11D # N31/2
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP3 +1
|
CS DAP3 +1
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +13D # D31/2
|
MP N10 +13D # D31/2
|
||||||
@ -721,45 +721,45 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +13D # D31/2
|
MP N10 +13D # D31/2
|
||||||
DAS TTMP2
|
DAS TTMP2
|
||||||
|
|
||||||
DXCH TTMP2
|
DXCH TTMP2
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DAS TMP6
|
DAS TMP6
|
||||||
|
|
||||||
DXCH TMP6
|
DXCH TMP6
|
||||||
DXCH TMP5
|
DXCH TMP5
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
TS TTMP1
|
TS TTMP1
|
||||||
TS TMP6
|
TS TMP6
|
||||||
|
|
||||||
CA DAP2 +1 # MULTIPLY INPUT BY
|
CA DAP2 +1 # MULTIPLY INPUT BY
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +12D # N32
|
MP N10 +12D # N32
|
||||||
TS TTMP1 +1
|
TS TTMP1 +1
|
||||||
CA DAP2
|
CA DAP2
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +12D # N32
|
MP N10 +12D # N32
|
||||||
DAS TTMP1
|
DAS TTMP1
|
||||||
|
|
||||||
CS DAP3 +1
|
CS DAP3 +1
|
||||||
EXTEND
|
EXTEND
|
||||||
MP N10 +14D # D32
|
MP N10 +14D # D32
|
||||||
TS TMP6 +1
|
TS TMP6 +1
|
||||||
CS DAP3
|
CS DAP3
|
||||||
EXTEND
|
EXTEND
|
||||||
# Page 977
|
# Page 977
|
||||||
MP N10 +14D # D32
|
MP N10 +14D # D32
|
||||||
DAS TMP6
|
DAS TMP6
|
||||||
|
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
DAS TMP6
|
DAS TMP6
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
# Page 978
|
# Page 978
|
||||||
# CONSTANTS FOR AUTOPILOTS
|
# CONSTANTS FOR AUTOPILOTS
|
||||||
|
|
||||||
# NOTE....1 ASCREV (ACTUATOR CMD SCALING) = 85.41 ARCSEC/BIT OR 1.07975111 REVS (85.41x16384/3600/360)
|
# NOTE....1 ASCREV (ACTUATOR CMD SCALING) = 85.41 ARCSEC/BIT OR 1.07975111 REVS (85.41x16384/3600/360)
|
||||||
|
|||||||
@ -10,7 +10,7 @@
|
|||||||
# Mod history: 2009-05-12 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-12 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: CAE -> CAF in one place.
|
# 2009-05-20 RSB Corrections: CAE -> CAF in one place.
|
||||||
# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to
|
# 2009-05-21 RSB In 1SHOTCHK, a CAF SEVEN was corrected to
|
||||||
# CAF SIX.
|
# CAF SIX.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -19,13 +19,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -85,36 +85,36 @@
|
|||||||
BANK
|
BANK
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
COUNT* $$/TVCX
|
COUNT* $$/TVCX
|
||||||
|
|
||||||
TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
|
TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
|
||||||
MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
|
MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF TVCEXFIN # TERMINATE
|
BZMF TVCEXFIN # TERMINATE
|
||||||
|
|
||||||
CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
|
CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
2CADR TVCEXEC
|
2CADR TVCEXEC
|
||||||
|
|
||||||
ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
|
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 WITH 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
|
||||||
|
|
||||||
EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
|
EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
|
||||||
MP -BIT14
|
MP -BIT14
|
||||||
TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
|
TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
|
||||||
# SC.AT B+0 REVS
|
# SC.AT B+0 REVS
|
||||||
|
|
||||||
CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
|
CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
2CADR ROLLDAP
|
2CADR ROLLDAP
|
||||||
|
|
||||||
NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
|
NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
|
||||||
CADR NEEDLER # (NEEDLES RESTARTS ITSELF)
|
CADR NEEDLER # (NEEDLES RESTARTS ITSELF)
|
||||||
|
|
||||||
@ -128,16 +128,16 @@ VARGAINS CAF BIT13 # CHECK ENGINE-ON BIT TO INHIBIT VARIABLE
|
|||||||
TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL)
|
TCF 1SHOTCHK # VCNTR = -0 (V97 R40 ENGFAIL)
|
||||||
CCS VCNTR # TEST FOR GAIN OF UPDATE TIME
|
CCS VCNTR # TEST FOR GAIN OF UPDATE TIME
|
||||||
TCF +4 # NOT YET
|
TCF +4 # NOT YET
|
||||||
# Page 947
|
# Page 947
|
||||||
TCF GAINCHNG # NOW
|
TCF GAINCHNG # NOW
|
||||||
TCF +0 # NOT USED
|
TCF +0 # NOT USED
|
||||||
TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40)
|
TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40)
|
||||||
|
|
||||||
+4 TS VCNTRTMP # PROTECT VCNTR AND
|
+4 TS VCNTRTMP # PROTECT VCNTR AND
|
||||||
CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
|
CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
|
||||||
TS MASSTMP
|
TS MASSTMP
|
||||||
TCF EXECCOPY
|
TCF EXECCOPY
|
||||||
|
|
||||||
GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
|
GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
|
||||||
CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
|
CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
|
||||||
TC IBNKCALL # UPDATE 1/CONACC, VARK
|
TC IBNKCALL # UPDATE 1/CONACC, VARK
|
||||||
@ -145,7 +145,7 @@ GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
|
|||||||
CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN
|
CS TENMDOT # UPDATE MASS FOR NEXT 10 SEC. OF BURN
|
||||||
AD CSMMASS
|
AD CSMMASS
|
||||||
TS MASSTMP # KG B+16
|
TS MASSTMP # KG B+16
|
||||||
|
|
||||||
CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
|
CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
|
||||||
TS VCNTRTMP
|
TS VCNTRTMP
|
||||||
|
|
||||||
@ -153,24 +153,24 @@ EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1)
|
|||||||
|
|
||||||
CAE MASSTMP # CSMMASS KG B+16
|
CAE MASSTMP # CSMMASS KG B+16
|
||||||
TS CSMMASS
|
TS CSMMASS
|
||||||
|
|
||||||
CAE VCNTRTMP # VCNTR
|
CAE VCNTRTMP # VCNTR
|
||||||
TS VCNTR
|
TS VCNTR
|
||||||
TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF
|
TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF
|
||||||
|
|
||||||
INCR TVCEXPHS # COPYCYCLE OVER (2)
|
INCR TVCEXPHS # COPYCYCLE OVER (2)
|
||||||
|
|
||||||
1SHOTCHK CCS CNTR # CHECK FOR ONE-SHOT OR REPCORR
|
1SHOTCHK CCS CNTR # CHECK FOR ONE-SHOT OR REPCORR
|
||||||
TCF +4 # NOT YET
|
TCF +4 # NOT YET
|
||||||
TCF 1SHOTOK # NOW
|
TCF 1SHOTOK # NOW
|
||||||
TCF REPCHEK # ONE-SHOT OVER, ON TO REPCORR
|
TCF REPCHEK # ONE-SHOT OVER, ON TO REPCORR
|
||||||
TCF 1SHOTOK # NOW (ONE-SHOT ONLY, NO REPCORR)
|
TCF 1SHOTOK # NOW (ONE-SHOT ONLY, NO REPCORR)
|
||||||
|
|
||||||
+4 TS CNTRTMP # COUNT DOWN
|
+4 TS CNTRTMP # COUNT DOWN
|
||||||
CAF SIX # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
|
CAF SIX # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
|
||||||
TS TVCEXPHS
|
TS TVCEXPHS
|
||||||
TCF CNTRCOPY
|
TCF CNTRCOPY
|
||||||
|
|
||||||
REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
|
REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF TVCEXFIN # NO (NEG OR +-ZERO)
|
BZMF TVCEXFIN # NO (NEG OR +-ZERO)
|
||||||
@ -178,24 +178,24 @@ REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
|
|||||||
CAF FOUR # SET UP TVCEXPHS FOR ENTRY AT CORSETUP
|
CAF FOUR # SET UP TVCEXPHS FOR ENTRY AT CORSETUP
|
||||||
TS TVCEXPHS
|
TS TVCEXPHS
|
||||||
TCF CORSETUP
|
TCF CORSETUP
|
||||||
# Page 948
|
# Page 948
|
||||||
1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
|
1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
|
||||||
EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
|
EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
|
||||||
RAND DSALMOUT
|
RAND DSALMOUT
|
||||||
CCS A
|
CCS A
|
||||||
TCF +2 # ONE-SHOT OK
|
TCF +2 # ONE-SHOT OK
|
||||||
TCF TVCEXFIN # NO, TERMINATE
|
TCF TVCEXFIN # NO, TERMINATE
|
||||||
|
|
||||||
INCR TVCEXPHS # (3)
|
INCR TVCEXPHS # (3)
|
||||||
|
|
||||||
# RSB 2009. The following instruction was previously "CAE FCORFRAC", but FCORFRAC
|
# RSB 2009. The following instruction was previously "CAE FCORFRAC", but FCORFRAC
|
||||||
# is not in erasable memory as implied by the use of CAE. I've accordingly changed
|
# is not in erasable memory as implied by the use of CAE. I've accordingly changed
|
||||||
# it to CAF instead to indicate fixed memory.
|
# it to CAF instead to indicate fixed memory.
|
||||||
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
|
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
|
||||||
TS TEMPDAP +1
|
TS TEMPDAP +1
|
||||||
|
|
||||||
INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4)
|
INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4)
|
||||||
|
|
||||||
CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
|
CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
|
||||||
MASK BIT13 # (NOTE, SHOWS LEM-OFF)
|
MASK BIT13 # (NOTE, SHOWS LEM-OFF)
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -203,10 +203,10 @@ CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
|
|||||||
CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
|
CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
|
||||||
AD TEMPDAP +1
|
AD TEMPDAP +1
|
||||||
TS TEMPDAP # CG.CORR USES TEMPDAP
|
TS TEMPDAP # CG.CORR USES TEMPDAP
|
||||||
|
|
||||||
CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
|
CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
|
||||||
TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
|
TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
|
||||||
|
|
||||||
CG.CORR EXTEND # PITCH TMC LOOP
|
CG.CORR EXTEND # PITCH TMC LOOP
|
||||||
DCA PDELOFF
|
DCA PDELOFF
|
||||||
DXCH PACTTMP
|
DXCH PACTTMP
|
||||||
@ -225,14 +225,14 @@ CG.CORR EXTEND # PITCH TMC LOOP
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP TEMPDAP
|
MP TEMPDAP
|
||||||
DAS PACTTMP
|
DAS PACTTMP
|
||||||
|
|
||||||
EXTEND # YAW TMC LOOP
|
EXTEND # YAW TMC LOOP
|
||||||
DCA YDELOFF
|
DCA YDELOFF
|
||||||
DXCH YACTTMP
|
DXCH YACTTMP
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS YDELOFF
|
DCS YDELOFF
|
||||||
DDOUBL
|
DDOUBL
|
||||||
# Page 949
|
# Page 949
|
||||||
DDOUBL
|
DDOUBL
|
||||||
DXCH TTMP1
|
DXCH TTMP1
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -245,29 +245,29 @@ CG.CORR EXTEND # PITCH TMC LOOP
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP TEMPDAP
|
MP TEMPDAP
|
||||||
DAS YACTTMP
|
DAS YACTTMP
|
||||||
|
|
||||||
CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (5)
|
CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (5)
|
||||||
|
|
||||||
EXTEND # TRIM-ESTIMATES, AND
|
EXTEND # TRIM-ESTIMATES, AND
|
||||||
DCA PACTTMP
|
DCA PACTTMP
|
||||||
TS PACTOFF # TRIMS
|
TS PACTOFF # TRIMS
|
||||||
DXCH PDELOFF
|
DXCH PDELOFF
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
DCA YACTTMP
|
DCA YACTTMP
|
||||||
TS YACTOFF
|
TS YACTOFF
|
||||||
DXCH YDELOFF
|
DXCH YDELOFF
|
||||||
|
|
||||||
INCR TVCEXPHS # ENTRY FROM 1SHOTCHK AT NEXT LOCATION (6)
|
INCR TVCEXPHS # ENTRY FROM 1SHOTCHK AT NEXT LOCATION (6)
|
||||||
|
|
||||||
CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
|
CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
|
||||||
TS CNTR
|
TS CNTR
|
||||||
|
|
||||||
TVCEXFIN CAF ZERO # RESET TVCEXPHS
|
TVCEXFIN CAF ZERO # RESET TVCEXPHS
|
||||||
TS TVCEXPHS
|
TS TVCEXPHS
|
||||||
TCF TASKOVER # TVCEXECUTIVE FINISHED
|
TCF TASKOVER # TVCEXECUTIVE FINISHED
|
||||||
|
|
||||||
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
|
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
|
||||||
|
|
||||||
# Page 950 (page is empty)
|
# Page 950 (page is empty)
|
||||||
|
|
||||||
|
|||||||
@ -10,9 +10,9 @@
|
|||||||
# Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
|
# Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
|
||||||
# of the same name, using Comanche055 page
|
# of the same name, using Comanche055 page
|
||||||
# images.
|
# images.
|
||||||
# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
|
# 2009-05-20 RSB Corrections: +80 -> +8D, added 4 missing
|
||||||
# lines in TVCINIT1, changed the capitalization
|
# lines in TVCINIT1, changed the capitalization
|
||||||
# of a couple of the "Page N" comments,
|
# of a couple of the "Page N" comments,
|
||||||
# corrected a couple of lines in LOADCOEFF.
|
# corrected a couple of lines in LOADCOEFF.
|
||||||
# 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
|
# 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
|
||||||
# TS N10 +14D. Also, various comment-marks
|
# TS N10 +14D. Also, various comment-marks
|
||||||
@ -31,7 +31,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -71,9 +71,9 @@
|
|||||||
BANK 17
|
BANK 17
|
||||||
SETLOC DAPS7
|
SETLOC DAPS7
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
|
|
||||||
TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
|
TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
|
||||||
EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
|
EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
|
||||||
QXCH QRUPT # TVCINIT4 ARE ENTRIES)
|
QXCH QRUPT # TVCINIT4 ARE ENTRIES)
|
||||||
@ -98,10 +98,10 @@ ENDMRC TCF RESUME # ENTRY.
|
|||||||
TVCINIT1 LXCH BANKRUPT
|
TVCINIT1 LXCH BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
|
|
||||||
TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
|
TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
|
||||||
CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
|
CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
|
||||||
|
|
||||||
CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
|
CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
|
||||||
EXTEND
|
EXTEND
|
||||||
MP ONETHOU
|
MP ONETHOU
|
||||||
@ -109,46 +109,46 @@ TVCINIT1 LXCH BANKRUPT
|
|||||||
COM
|
COM
|
||||||
AD CSMMASS
|
AD CSMMASS
|
||||||
TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
|
TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
|
||||||
|
|
||||||
CAE DAPDATR1 # CHECK LEM-ON/OFF
|
CAE DAPDATR1 # CHECK LEM-ON/OFF
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
CCS A
|
CCS A
|
||||||
CAF BIT1 # LEM-ON (BIT1)
|
CAF BIT1 # LEM-ON (BIT1)
|
||||||
TS CNTR # LEM-OFF (ZERO)
|
TS CNTR # LEM-OFF (ZERO)
|
||||||
|
|
||||||
INDEX CNTR # LOAD THE FILTER COEFFICIENTS
|
INDEX CNTR # LOAD THE FILTER COEFFICIENTS
|
||||||
CAF CSMCFADR
|
CAF CSMCFADR
|
||||||
TS COEFFADR
|
TS COEFFADR
|
||||||
TC LOADCOEF
|
TC LOADCOEF
|
||||||
|
|
||||||
INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
|
INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
|
||||||
CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
|
CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
|
||||||
TS KTLX/I
|
TS KTLX/I
|
||||||
|
|
||||||
TCR S40.15 # COMPUTE 1/CONACC, VARK
|
TCR S40.15 # COMPUTE 1/CONACC, VARK
|
||||||
|
|
||||||
TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
||||||
INDEX A # DETERMINATION:
|
INDEX A # DETERMINATION:
|
||||||
CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
|
CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
|
||||||
TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
|
TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
|
||||||
|
|
||||||
COM # PREPARE T5TVCDT
|
COM # PREPARE T5TVCDT
|
||||||
AD POSMAX
|
AD POSMAX
|
||||||
AD BIT1
|
AD BIT1
|
||||||
TS T5TVCDT
|
TS T5TVCDT
|
||||||
|
|
||||||
CS BIT15 # RESET SWTOVER FLAG
|
CS BIT15 # RESET SWTOVER FLAG
|
||||||
# Page 939
|
# Page 939
|
||||||
MASK FLAGWRD9
|
MASK FLAGWRD9
|
||||||
TS FLAGWRD9
|
TS FLAGWRD9
|
||||||
|
|
||||||
INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
|
INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
|
||||||
CAE EKPRIME # SCALED (100 PI)/16
|
CAE EKPRIME # SCALED (100 PI)/16
|
||||||
EXTEND
|
EXTEND
|
||||||
MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
|
MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
|
||||||
LXCH A # SC.AT PI/8 (DIMENSIONLESS)
|
LXCH A # SC.AT PI/8 (DIMENSIONLESS)
|
||||||
DXCH KPRIMEDT
|
DXCH KPRIMEDT
|
||||||
|
|
||||||
INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
|
INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
|
||||||
CAE EREPFRAC
|
CAE EREPFRAC
|
||||||
TS REPFRAC
|
TS REPFRAC
|
||||||
@ -159,16 +159,16 @@ TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
|
|||||||
|
|
||||||
CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
|
CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
|
||||||
TS STRKTIME
|
TS STRKTIME
|
||||||
|
|
||||||
CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
|
CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
|
||||||
TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
|
TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
|
||||||
TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
|
TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
|
||||||
|
|
||||||
TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
|
TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
|
||||||
TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
|
TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
|
||||||
TS PCMD # OFFSET-TRACKER FILTERS
|
TS PCMD # OFFSET-TRACKER FILTERS
|
||||||
TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
|
TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
|
||||||
|
|
||||||
CAE YACTOFF
|
CAE YACTOFF
|
||||||
TS YDELOFF
|
TS YDELOFF
|
||||||
TS YCMD
|
TS YCMD
|
||||||
@ -209,11 +209,11 @@ NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
|
|||||||
ADS RCSFLAGS # (RETURNS AFTER CADR)
|
ADS RCSFLAGS # (RETURNS AFTER CADR)
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR NEEDLER
|
CADR NEEDLER
|
||||||
|
|
||||||
TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
||||||
TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
|
TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
|
||||||
# (POSSIBLE TVC-RESTART ENTRY)
|
# (POSSIBLE TVC-RESTART ENTRY)
|
||||||
|
|
||||||
CAE CDUX # PREPARE ROLL DAP
|
CAE CDUX # PREPARE ROLL DAP
|
||||||
TS OGANOW
|
TS OGANOW
|
||||||
|
|
||||||
@ -223,15 +223,15 @@ TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
|
|||||||
EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
|
EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
|
||||||
BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
|
BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
|
||||||
# EVEN BURNS LESS THAN 0.4 SEC ARE AOK
|
# EVEN BURNS LESS THAN 0.4 SEC ARE AOK
|
||||||
|
|
||||||
CAE MASSTMP # COPYCYCLE
|
CAE MASSTMP # COPYCYCLE
|
||||||
TS CSMMASS
|
TS CSMMASS
|
||||||
|
|
||||||
+3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
|
+3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
2CADR TVCEXEC
|
2CADR TVCEXEC
|
||||||
|
|
||||||
EXTEND # CALL FOR DAPINIT
|
EXTEND # CALL FOR DAPINIT
|
||||||
DCA DAPINIT5
|
DCA DAPINIT5
|
||||||
DXCH T5LOC
|
DXCH T5LOC
|
||||||
@ -264,7 +264,7 @@ MCLEANJR CA ZERO
|
|||||||
CCS CNTRTMP
|
CCS CNTRTMP
|
||||||
CCS A
|
CCS A
|
||||||
TCF SWICHOVR +8D
|
TCF SWICHOVR +8D
|
||||||
|
|
||||||
CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
|
CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
|
||||||
MASK BIT15
|
MASK BIT15
|
||||||
ADS FLAGWRD9
|
ADS FLAGWRD9
|
||||||
@ -272,10 +272,10 @@ MCLEANJR CA ZERO
|
|||||||
CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
|
CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
|
||||||
TS KTLX/I
|
TS KTLX/I
|
||||||
TCR S40.15 +7
|
TCR S40.15 +7
|
||||||
|
|
||||||
CAF FKPRIMDT # - STEERING
|
CAF FKPRIMDT # - STEERING
|
||||||
TS KPRIMEDT
|
TS KPRIMEDT
|
||||||
|
|
||||||
CAF FREPFRAC # - TMC LOOP
|
CAF FREPFRAC # - TMC LOOP
|
||||||
TS REPFRAC
|
TS REPFRAC
|
||||||
|
|
||||||
@ -285,7 +285,7 @@ MCLEANJR CA ZERO
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA DELYBAR
|
DCA DELYBAR
|
||||||
DXCH YDELOFF
|
DXCH YDELOFF
|
||||||
|
|
||||||
CA LBCFADR
|
CA LBCFADR
|
||||||
# Page 942
|
# Page 942
|
||||||
TS COEFFADR
|
TS COEFFADR
|
||||||
@ -303,7 +303,7 @@ LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
|
|||||||
|
|
||||||
EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
|
EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
|
||||||
INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
|
INDEX COEFFADR # LOAD WILL BE HIGH BANDWIDTH PAD LOAD
|
||||||
DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
|
DCA 2 # ERASABLES. DURING CSM/LM SWITCHOVER,
|
||||||
DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
|
DXCH N10 +2 # THIS LOGIC IS USED TO LOAD LOW BANDWIDTH
|
||||||
# COEFFICIENTS FROM FIXED MEMORY.
|
# COEFFICIENTS FROM FIXED MEMORY.
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -71,7 +71,7 @@
|
|||||||
# (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
# (1) IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
||||||
# (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
# (2) IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
|
||||||
# (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
|
# (3) IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
|
||||||
#
|
#
|
||||||
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
|
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
|
||||||
# CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
|
# CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
|
||||||
# Page 952
|
# Page 952
|
||||||
@ -127,19 +127,19 @@
|
|||||||
BANK
|
BANK
|
||||||
EBANK= BZERO
|
EBANK= BZERO
|
||||||
COUNT* $$/MASP
|
COUNT* $$/MASP
|
||||||
|
|
||||||
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
|
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
|
||||||
TS PHI333 # SET UP TEN PASSES
|
TS PHI333 # SET UP TEN PASSES
|
||||||
|
|
||||||
LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
|
LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
|
||||||
MASK BIT13
|
MASK BIT13
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF LEMYES
|
BZF LEMYES
|
||||||
|
|
||||||
LEMNO INDEX PHI333 # LEM NOT ATTACHED
|
LEMNO INDEX PHI333 # LEM NOT ATTACHED
|
||||||
CAF NOLEMVAL
|
CAF NOLEMVAL
|
||||||
TCF STOINST
|
TCF STOINST
|
||||||
|
|
||||||
LEMYES CAE LEMMASS # LEM IS ATTACHED
|
LEMYES CAE LEMMASS # LEM IS ATTACHED
|
||||||
DOUBLE
|
DOUBLE
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -148,12 +148,12 @@ LEMYES CAE LEMMASS # LEM IS ATTACHED
|
|||||||
DDOUBL
|
DDOUBL
|
||||||
INDEX PHI333
|
INDEX PHI333
|
||||||
AD INTVALUE
|
AD INTVALUE
|
||||||
|
|
||||||
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
|
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
|
||||||
TS VARST0
|
TS VARST0
|
||||||
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
|
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
|
||||||
TCF MASSPROP +1 # NO: GO DECREMENT PHI333
|
TCF MASSPROP +1 # NO: GO DECREMENT PHI333
|
||||||
|
|
||||||
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
|
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
|
||||||
TCF FIXCW
|
TCF FIXCW
|
||||||
TCF FIXCW
|
TCF FIXCW
|
||||||
@ -161,11 +161,11 @@ DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
|
|||||||
DAS VARST0 +1
|
DAS VARST0 +1
|
||||||
CA DXITFIX
|
CA DXITFIX
|
||||||
ADS VARST0 +7
|
ADS VARST0 +7
|
||||||
|
|
||||||
FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
|
FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
|
||||||
TS PHI333 # THREE PASSES
|
TS PHI333 # THREE PASSES
|
||||||
TS PSI333
|
TS PSI333
|
||||||
|
|
||||||
CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
|
CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
|
||||||
AD NEGBPW # SLOPE LOCATIONS.
|
AD NEGBPW # SLOPE LOCATIONS.
|
||||||
DOUBLE
|
DOUBLE
|
||||||
@ -175,7 +175,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
|
|||||||
BZMF PEGGY # DETERMINE CORRECT SLOPE
|
BZMF PEGGY # DETERMINE CORRECT SLOPE
|
||||||
CAF NEG2
|
CAF NEG2
|
||||||
TS PHI333
|
TS PHI333
|
||||||
|
|
||||||
PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
|
PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
|
||||||
CAE VARST5 # GET SLOPE
|
CAE VARST5 # GET SLOPE
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -185,10 +185,10 @@ PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
|
|||||||
AD VARST0 # ADD BREAKPOINT VALUE
|
AD VARST0 # ADD BREAKPOINT VALUE
|
||||||
INDEX PSI333
|
INDEX PSI333
|
||||||
TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
|
TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
|
||||||
|
|
||||||
CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
|
CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
|
||||||
TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
|
TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
|
||||||
|
|
||||||
CAE DAPDATR1 # UPDATE WEIGHT/G
|
CAE DAPDATR1 # UPDATE WEIGHT/G
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
CCS A
|
CCS A
|
||||||
@ -201,7 +201,7 @@ BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
|
|||||||
EXTEND
|
EXTEND
|
||||||
DIM PHI333
|
DIM PHI333
|
||||||
TCF PEGGY
|
TCF PEGGY
|
||||||
|
|
||||||
# Page 955
|
# Page 955
|
||||||
NOLEMVAL DEC 25445 B-20
|
NOLEMVAL DEC 25445 B-20
|
||||||
DEC 87450 B-20
|
DEC 87450 B-20
|
||||||
@ -211,7 +211,7 @@ NOLEMVAL DEC 25445 B-20
|
|||||||
DEC 1.54 B-6
|
DEC 1.54 B-6
|
||||||
DEC 7.77177 B-6
|
DEC 7.77177 B-6
|
||||||
DEC 3.46458 E-5 B+12
|
DEC 3.46458 E-5 B+12
|
||||||
|
|
||||||
INTVALUE DEC 26850 B-20
|
INTVALUE DEC 26850 B-20
|
||||||
DEC 127518 B-20
|
DEC 127518 B-20
|
||||||
DEC .54059 B-2
|
DEC .54059 B-2
|
||||||
@ -222,7 +222,7 @@ INTVALUE DEC 26850 B-20
|
|||||||
DEC .647625 E-4 B+12
|
DEC .647625 E-4 B+12
|
||||||
DEC -27228 B-20
|
DEC -27228 B-20
|
||||||
DEC -.206476 B-2
|
DEC -.206476 B-2
|
||||||
|
|
||||||
SLOPEVAL DEC 1.96307 B-6
|
SLOPEVAL DEC 1.96307 B-6
|
||||||
DEC 27.5774 B-6
|
DEC 27.5774 B-6
|
||||||
DEC 2.3548 E-5 B+12
|
DEC 2.3548 E-5 B+12
|
||||||
@ -233,7 +233,7 @@ SLOPEVAL DEC 1.96307 B-6
|
|||||||
DEC 1.5166 E-9 B+26
|
DEC 1.5166 E-9 B+26
|
||||||
DEC -1.284 B-6
|
DEC -1.284 B-6
|
||||||
DEC 2 E-5 B+12
|
DEC 2 E-5 B+12
|
||||||
|
|
||||||
NEGBPW DEC -15402.17 B-16
|
NEGBPW DEC -15402.17 B-16
|
||||||
DXITFIX DEC* -1.88275 E-5 B+12*
|
DXITFIX DEC* -1.88275 E-5 B+12*
|
||||||
|
|
||||||
|
|||||||
@ -10,9 +10,9 @@
|
|||||||
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
|
||||||
# same name, using Comanche055 page images.
|
# same name, using Comanche055 page images.
|
||||||
# 2009-05-20 RSB Corrections: TCF -> BZF in one place.
|
# 2009-05-20 RSB Corrections: TCF -> BZF in one place.
|
||||||
# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to
|
# 2009-05-21 RSB In PHSCHK2, CS TVCPHASE corrected to
|
||||||
# CCS TVCPHASE and CCS 4 corrected to CCS A.
|
# CCS TVCPHASE and CCS 4 corrected to CCS A.
|
||||||
# Page 924 corrected to 961. CORCOPY +2
|
# Page 924 corrected to 961. CORCOPY +2
|
||||||
# corrected to CORCOPY +1.
|
# corrected to CORCOPY +1.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from digitized
|
# This source code has been transcribed or otherwise adapted from digitized
|
||||||
@ -21,13 +21,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -98,7 +98,7 @@
|
|||||||
# Page 957
|
# Page 957
|
||||||
# STROKE TEST TO BE TERMINATED. A NEW V68 ENTRY WILL BE REQUIRED
|
# STROKE TEST TO BE TERMINATED. A NEW V68 ENTRY WILL BE REQUIRED
|
||||||
# TO GET IT GOING AGAIN (NO AUTOMATIC RESTART).
|
# TO GET IT GOING AGAIN (NO AUTOMATIC RESTART).
|
||||||
#
|
#
|
||||||
# *REDOTVC IS REACHED FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS
|
# *REDOTVC IS REACHED FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS
|
||||||
# (BITS 15,14 OF FLAGWRD6) SET FOR TVC. DOTVCON TVCPHASE = -1
|
# (BITS 15,14 OF FLAGWRD6) SET FOR TVC. DOTVCON TVCPHASE = -1
|
||||||
# AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS, JUST BEFORE
|
# AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS, JUST BEFORE
|
||||||
@ -148,15 +148,15 @@
|
|||||||
BANK
|
BANK
|
||||||
EBANK= TVCPHASE
|
EBANK= TVCPHASE
|
||||||
COUNT* $$/RSRT
|
COUNT* $$/RSRT
|
||||||
|
|
||||||
REDOTVC LXCH BANKRUPT # TVC RESTART PACKAGE
|
REDOTVC LXCH BANKRUPT # TVC RESTART PACKAGE
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT # ("TCR" IN "FINCOPY")
|
QXCH QRUPT # ("TCR" IN "FINCOPY")
|
||||||
|
|
||||||
EXECPHS CCS TVCEXPHS # CHECK TVCEXECUTIVE PHASE
|
EXECPHS CCS TVCEXPHS # CHECK TVCEXECUTIVE PHASE
|
||||||
TCF +2 # MUST RESTART TVCEXECUTIVE
|
TCF +2 # MUST RESTART TVCEXECUTIVE
|
||||||
TCF TVCDAPHS # NO NEED TO RESTART TVCEXECUTIVE
|
TCF TVCDAPHS # NO NEED TO RESTART TVCEXECUTIVE
|
||||||
|
|
||||||
CAF NINE # 9CS DELAY TO FORCE EXRSTRT TO OCCUR
|
CAF NINE # 9CS DELAY TO FORCE EXRSTRT TO OCCUR
|
||||||
TC WAITLIST # BEFORE PITCHDAP, AFTER CMDSOUT
|
TC WAITLIST # BEFORE PITCHDAP, AFTER CMDSOUT
|
||||||
EBANK= TVCEXPHS
|
EBANK= TVCEXPHS
|
||||||
@ -167,12 +167,12 @@ TVCDAPHS CS OCT37776 # CHECK BITS 15 AND 1 OF TVCPHASE TO SEE
|
|||||||
CCS A
|
CCS A
|
||||||
TCF FINCOPY # FINISH THE COPYCYCLE FIRST
|
TCF FINCOPY # FINISH THE COPYCYCLE FIRST
|
||||||
TCF ENABL1 # JUST PREPARE THE OUTCOUNTERS AND GO
|
TCF ENABL1 # JUST PREPARE THE OUTCOUNTERS AND GO
|
||||||
|
|
||||||
CS TVCPHASE # TEST FOR TVCPHASE = -2
|
CS TVCPHASE # TEST FOR TVCPHASE = -2
|
||||||
MASK BIT2 # (THIS INDICATES RESTART OCCURRED
|
MASK BIT2 # (THIS INDICATES RESTART OCCURRED
|
||||||
EXTEND # DURING CSM/LM V46 SWITCH-OVER)
|
EXTEND # DURING CSM/LM V46 SWITCH-OVER)
|
||||||
BZF TRIM/CMD # NO. TVCPHASE = -1. RSTRT WAS IN TVCINIT
|
BZF TRIM/CMD # NO. TVCPHASE = -1. RSTRT WAS IN TVCINIT
|
||||||
|
|
||||||
ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
|
ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
|
||||||
AD BIT11 # SET BIT FOR OPTICS-DAC-ENABLE ALSO
|
AD BIT11 # SET BIT FOR OPTICS-DAC-ENABLE ALSO
|
||||||
EXTEND # (ENABL1 ENTERED FROM TVCDAPHS / FINCOPY)
|
EXTEND # (ENABL1 ENTERED FROM TVCDAPHS / FINCOPY)
|
||||||
@ -181,46 +181,46 @@ ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
|
|||||||
TS T5LOC
|
TS T5LOC
|
||||||
CAF TVCADDR +4 # 60 MS (TVCEXADR)
|
CAF TVCADDR +4 # 60 MS (TVCEXADR)
|
||||||
TS TIME5
|
TS TIME5
|
||||||
|
|
||||||
TCF RESUME
|
TCF RESUME
|
||||||
|
|
||||||
ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
||||||
|
|
||||||
CAF BIT2 # OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT
|
CAF BIT2 # OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN12
|
WOR CHAN12
|
||||||
# Page 959
|
# Page 959
|
||||||
CAF TVCADDR +2 # WAIT, CALLING CMDSOUT (BBCON THERE)
|
CAF TVCADDR +2 # WAIT, CALLING CMDSOUT (BBCON THERE)
|
||||||
TS T5LOC
|
TS T5LOC
|
||||||
CAF OCT37776 # 20MS
|
CAF OCT37776 # 20MS
|
||||||
TS TIME5
|
TS TIME5
|
||||||
|
|
||||||
TCF NOQRSM
|
TCF NOQRSM
|
||||||
|
|
||||||
CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
|
||||||
EXTEND
|
EXTEND
|
||||||
QXCH QRUPT
|
QXCH QRUPT
|
||||||
|
|
||||||
CS ZERO # MOST RECENT ACTUATOR COMMANDS
|
CS ZERO # MOST RECENT ACTUATOR COMMANDS
|
||||||
AD PCMD # (AVOID +0)
|
AD PCMD # (AVOID +0)
|
||||||
TS TVCPITCH
|
TS TVCPITCH
|
||||||
CS ZERO
|
CS ZERO
|
||||||
AD YCMD
|
AD YCMD
|
||||||
TS TVCYAW
|
TS TVCYAW
|
||||||
|
|
||||||
CAF PRIO6 # RELEASE THE COUNTERS (BITS 11,12)
|
CAF PRIO6 # RELEASE THE COUNTERS (BITS 11,12)
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14
|
WOR CHAN14
|
||||||
|
|
||||||
PHSCHK2 CCS TVCPHASE # CHECK TVCPHASE AGAIN
|
PHSCHK2 CCS TVCPHASE # CHECK TVCPHASE AGAIN
|
||||||
TCF CHKSTRK
|
TCF CHKSTRK
|
||||||
TCF CHKSTRK
|
TCF CHKSTRK
|
||||||
CCS A # A CONTAINS THE DIMINISHED ABSOLUTE OF
|
CCS A # A CONTAINS THE DIMINISHED ABSOLUTE OF
|
||||||
TC +3 # TVCPHASE (-2 BECOMES +1. -1 BECOMES +0)
|
TC +3 # TVCPHASE (-2 BECOMES +1. -1 BECOMES +0)
|
||||||
|
|
||||||
TC POSTJUMP # REPEAT TVC INITIALIZATION
|
TC POSTJUMP # REPEAT TVC INITIALIZATION
|
||||||
CADR MRCLEAN # (DO NOT RETURN)
|
CADR MRCLEAN # (DO NOT RETURN)
|
||||||
|
|
||||||
+3 TC IBNKCALL # REPEAT CSM/LM V46 SWITCH-OVER
|
+3 TC IBNKCALL # REPEAT CSM/LM V46 SWITCH-OVER
|
||||||
CADR SWICHOVR +5 # (RETURN TO CHECK FOR STROKE TEST)
|
CADR SWICHOVR +5 # (RETURN TO CHECK FOR STROKE TEST)
|
||||||
|
|
||||||
@ -228,7 +228,7 @@ CHKSTRK CCS STROKER # CHECK FOR STROKE TEST IN PROGRESS
|
|||||||
TCF TSTINITJ # YES, KILL IT
|
TCF TSTINITJ # YES, KILL IT
|
||||||
TCF +2 # NO, PROCEED
|
TCF +2 # NO, PROCEED
|
||||||
TCF TSTINITJ # YES, KILL IT
|
TCF TSTINITJ # YES, KILL IT
|
||||||
|
|
||||||
+4 TC POSTJUMP # IF POSITIVE OR ZERO, RESTART AT
|
+4 TC POSTJUMP # IF POSITIVE OR ZERO, RESTART AT
|
||||||
CADR TVCINIT4 # TVCINIT4 (ZEROS TVCPHASE, AND
|
CADR TVCINIT4 # TVCINIT4 (ZEROS TVCPHASE, AND
|
||||||
# CALLS TVC DAPS VIA DAPINIT)
|
# CALLS TVC DAPS VIA DAPINIT)
|
||||||
@ -236,18 +236,18 @@ FINCOPY INDEX TVCPHASE # PICK UP THE APPROPRIATE COPYCYCLE
|
|||||||
CAF TVCCADR
|
CAF TVCCADR
|
||||||
TCR ISWCALL # RE-ENTER THE COPYCYCLE, RETURN AT END
|
TCR ISWCALL # RE-ENTER THE COPYCYCLE, RETURN AT END
|
||||||
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
||||||
|
|
||||||
TRIM/CMD EXTEND # TVCDAPON INITIALIZATION NOT COMPLETED,
|
TRIM/CMD EXTEND # TVCDAPON INITIALIZATION NOT COMPLETED,
|
||||||
# Page 960
|
# Page 960
|
||||||
DCA PACTOFF # EG. P,YCMD MAY NOT BE SET. SET...
|
DCA PACTOFF # EG. P,YCMD MAY NOT BE SET. SET...
|
||||||
DXCH PCMD
|
DXCH PCMD
|
||||||
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
|
||||||
|
|
||||||
TSTINITJ CAF ZERO # DISABLE STROKE TEST (-0 SHOWS PRIOR V68)
|
TSTINITJ CAF ZERO # DISABLE STROKE TEST (-0 SHOWS PRIOR V68)
|
||||||
TS STROKER # (+0 MEANS NEW V68 REQUIRED FOR STARTUP)
|
TS STROKER # (+0 MEANS NEW V68 REQUIRED FOR STARTUP)
|
||||||
|
|
||||||
TCF CHKSTRK +4
|
TCF CHKSTRK +4
|
||||||
|
|
||||||
EXRSTRT INDEX TVCEXPHS # TVCEXECUTIVE RESTARTS....GO TO
|
EXRSTRT INDEX TVCEXPHS # TVCEXECUTIVE RESTARTS....GO TO
|
||||||
CAF TVCEXADR # APPROPRIATE RESTART POINT
|
CAF TVCEXADR # APPROPRIATE RESTART POINT
|
||||||
INDEX A
|
INDEX A
|
||||||
@ -267,5 +267,5 @@ TVCEXADR OCT 37772 # (UNUSED TABLE LOC, FILL WITH 60MS, T5)
|
|||||||
+4 GENADR CORSETUP
|
+4 GENADR CORSETUP
|
||||||
+5 GENADR CORCOPY +1
|
+5 GENADR CORCOPY +1
|
||||||
+6 GENADR CNTRCOPY
|
+6 GENADR CNTRCOPY
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -145,7 +145,7 @@
|
|||||||
# THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS
|
# THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS
|
||||||
# THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE
|
# THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE
|
||||||
# TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND
|
# TO THE SWITCH LINE, THE APPROXIMATE SOLUTION GIVES VALID TREND
|
||||||
# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE
|
# INFORMATION (DIRECTION OF DESIRED OGARATE) AT LEAST. THE
|
||||||
# RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2
|
# RE-EVALUATION OF DESIRED OGARATE IN SUBSEQUENT ROLL DAP PASSES (1/2
|
||||||
# SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
|
# SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
|
||||||
# APPROXIMATION.
|
# APPROXIMATION.
|
||||||
@ -219,7 +219,7 @@ ROLLDAP CAE OGANOW # OGA RATE ESTIMATOR...SIMPLE FIRST-ORDER
|
|||||||
MP BIT5
|
MP BIT5
|
||||||
LXCH A
|
LXCH A
|
||||||
TS OGARATE # SC.AT B-4 REV/SEC
|
TS OGARATE # SC.AT B-4 REV/SEC
|
||||||
|
|
||||||
# COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR (SAME REGISTER)
|
# COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR (SAME REGISTER)
|
||||||
# EXAMINE DURATION OF LAST ROLL FIRING IF JETS ARE NOW ON.
|
# EXAMINE DURATION OF LAST ROLL FIRING IF JETS ARE NOW ON.
|
||||||
|
|
||||||
@ -227,11 +227,11 @@ DURATION CA ROLLFIRE # SAME SGN AS PRESENT TORQ,MAGN=POSMAX
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZF +2 # ROLL JETS ARE NOW OFF.
|
BZF +2 # ROLL JETS ARE NOW OFF.
|
||||||
TCF ROLLOGIC # ENTER LOGIC, JETS NOW ON.
|
TCF ROLLOGIC # ENTER LOGIC, JETS NOW ON.
|
||||||
|
|
||||||
CAE TEMREG # EXAMINE LAST FIRING INTERVAL
|
CAE TEMREG # EXAMINE LAST FIRING INTERVAL
|
||||||
EXTEND # IF POSITIVE, DON'T FIRE
|
EXTEND # IF POSITIVE, DON'T FIRE
|
||||||
BZF ROLLOGIC # ENTER LOGIC, JETS NOW OFF.
|
BZF ROLLOGIC # ENTER LOGIC, JETS NOW OFF.
|
||||||
|
|
||||||
CAF ZERO # JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT
|
CAF ZERO # JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT
|
||||||
TS TEMREG # RESET TEMREG
|
TS TEMREG # RESET TEMREG
|
||||||
WAIT1/2 TCF TASKOVER # EXIT ROLL DAP
|
WAIT1/2 TCF TASKOVER # EXIT ROLL DAP
|
||||||
@ -245,7 +245,7 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
|
|||||||
MP OGARATE
|
MP OGARATE
|
||||||
AD DB # SCALED AT 2(+0) REV
|
AD DB # SCALED AT 2(+0) REV
|
||||||
TS TEMREG # QUANTITY SCALED AT 2(+0) REV.
|
TS TEMREG # QUANTITY SCALED AT 2(+0) REV.
|
||||||
|
|
||||||
# GET SIGN OF OGARATE
|
# GET SIGN OF OGARATE
|
||||||
|
|
||||||
CA OGARATE
|
CA OGARATE
|
||||||
@ -255,14 +255,14 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
|
|||||||
TCF +2
|
TCF +2
|
||||||
CS BIT1
|
CS BIT1
|
||||||
TS SGNRT # + OR - 2(-14)
|
TS SGNRT # + OR - 2(-14)
|
||||||
|
|
||||||
# Page 990
|
# Page 990
|
||||||
# CALCULATE DISTANCE FROM SWITCH PARABOLA,DELOGA
|
# CALCULATE DISTANCE FROM SWITCH PARABOLA,DELOGA
|
||||||
EXTEND
|
EXTEND
|
||||||
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
|
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
|
||||||
CS L
|
CS L
|
||||||
AD OGA # SCALED AT 2(+0) REV
|
AD OGA # SCALED AT 2(+0) REV
|
||||||
DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
||||||
|
|
||||||
# EXAMINE SGN(DELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN.
|
# EXAMINE SGN(DELOGA) AND CREATE CA OR CS INSTR. DEPENDING UPON SIGN.
|
||||||
|
|
||||||
@ -272,7 +272,7 @@ DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
|
|||||||
TCF +2
|
TCF +2
|
||||||
CAF BIT15 # = CS (40000)
|
CAF BIT15 # = CS (40000)
|
||||||
TS I
|
TS I
|
||||||
|
|
||||||
INDEX I # TSET ON I SGN(OGARATE)
|
INDEX I # TSET ON I SGN(OGARATE)
|
||||||
0 SGNRT # CA OR CS
|
0 SGNRT # CA OR CS
|
||||||
COM
|
COM
|
||||||
@ -302,11 +302,11 @@ REG3TST BZMF RATELIM # IF REGION 3 (RATES TOO HIGH, FIRE JETS)
|
|||||||
DDOUBL
|
DDOUBL
|
||||||
DDOUBL # (OGA ERROR MUST BE LESS THAN +-225 DEG)
|
DDOUBL # (OGA ERROR MUST BE LESS THAN +-225 DEG)
|
||||||
AD TEMREG
|
AD TEMREG
|
||||||
|
|
||||||
INDEX I
|
INDEX I
|
||||||
0 A # I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC
|
0 A # I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC
|
||||||
COM
|
COM
|
||||||
# Page 991
|
# Page 991
|
||||||
AD INTERCEP # SCALED AT 2(-3) REV.
|
AD INTERCEP # SCALED AT 2(-3) REV.
|
||||||
COM
|
COM
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -341,7 +341,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT
|
|||||||
CA OGARATE
|
CA OGARATE
|
||||||
TS DELOGART # ACTUAL STATE, I.E., DEL OGARATE
|
TS DELOGART # ACTUAL STATE, I.E., DEL OGARATE
|
||||||
TCF ONROLL
|
TCF ONROLL
|
||||||
|
|
||||||
# JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VICE VERSA), USE INDIRECT
|
# JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VICE VERSA), USE INDIRECT
|
||||||
# STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT ((DELOGA
|
# STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT ((DELOGA
|
||||||
# + DB SGN(DELOGA) ), -LMCRATE SGN(DELOGA) ) (THIS IS THE DUMMY
|
# + DB SGN(DELOGA) ), -LMCRATE SGN(DELOGA) ) (THIS IS THE DUMMY
|
||||||
@ -350,7 +350,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT
|
|||||||
ROLLON INDEX I
|
ROLLON INDEX I
|
||||||
0 DB
|
0 DB
|
||||||
ADS DELOGA # DELOGA WAS DIST. FROM SWITCH PARABOLA
|
ADS DELOGA # DELOGA WAS DIST. FROM SWITCH PARABOLA
|
||||||
|
|
||||||
CS LMCRATE # LIMIT CYCLE RATE AT 2(-4) REV/SEC
|
CS LMCRATE # LIMIT CYCLE RATE AT 2(-4) REV/SEC
|
||||||
INDEX I
|
INDEX I
|
||||||
0 A
|
0 A
|
||||||
@ -392,23 +392,23 @@ RATENUM AD DELOGART # NUMERATOR COMPLETED
|
|||||||
DV TEMREG # OVERFLOW, IF ANYTHING, NOW APPEARS IN A
|
DV TEMREG # OVERFLOW, IF ANYTHING, NOW APPEARS IN A
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF DVOK # NO OVERFLOW....(0,L)/TEMREG = 0,L
|
BZF DVOK # NO OVERFLOW....(0,L)/TEMREG = 0,L
|
||||||
|
|
||||||
MINLIMAP CCS A
|
MINLIMAP CCS A
|
||||||
CAF POSMAX # POSITIVE OVERFLOW
|
CAF POSMAX # POSITIVE OVERFLOW
|
||||||
TCF ROLLSET
|
TCF ROLLSET
|
||||||
CS POSMAX # NEGATIVE OVERFLOW
|
CS POSMAX # NEGATIVE OVERFLOW
|
||||||
TCF ROLLSET
|
TCF ROLLSET
|
||||||
|
|
||||||
DVOK LXCH A # PUT NUMERATOR BACK INTO A, 0 INTO L
|
DVOK LXCH A # PUT NUMERATOR BACK INTO A, 0 INTO L
|
||||||
EXTEND
|
EXTEND
|
||||||
DV TEMREG # RESULT OF DIVISION IS DESIRED OGARATE
|
DV TEMREG # RESULT OF DIVISION IS DESIRED OGARATE
|
||||||
TCF ROLLSET # (SCALED AT B-4 REV/SEC)
|
TCF ROLLSET # (SCALED AT B-4 REV/SEC)
|
||||||
|
|
||||||
RATELIM CS MAXLIM
|
RATELIM CS MAXLIM
|
||||||
INDEX I
|
INDEX I
|
||||||
# Page 993
|
# Page 993
|
||||||
0 A # IF I = CA, DESIRED RATE IS -MAXLIM
|
0 A # IF I = CA, DESIRED RATE IS -MAXLIM
|
||||||
|
|
||||||
# COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE
|
# COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE
|
||||||
|
|
||||||
ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4)
|
ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4)
|
||||||
@ -431,24 +431,24 @@ ROLLSET TS TEMREG # STORE DESIRED OGARATE (SCALED B-4)
|
|||||||
TS TEMREG # JET FIRE TIME AT 625 MICROSEC/BIT
|
TS TEMREG # JET FIRE TIME AT 625 MICROSEC/BIT
|
||||||
EXTEND # POS MEANS POSITIVE ROLL TORQUE.
|
EXTEND # POS MEANS POSITIVE ROLL TORQUE.
|
||||||
BZF NOROLL
|
BZF NOROLL
|
||||||
|
|
||||||
# JET FIRE TIME IS NZ, TEST FOR JETS NOW ON.
|
# JET FIRE TIME IS NZ, TEST FOR JETS NOW ON.
|
||||||
|
|
||||||
CAE TEMREG # DESIRED CHANGE IN OGARATE
|
CAE TEMREG # DESIRED CHANGE IN OGARATE
|
||||||
EXTEND
|
EXTEND
|
||||||
MP ROLLFIRE # (SGN OF TORQUE: ZERO IF JETS NOW OFF)
|
MP ROLLFIRE # (SGN OF TORQUE: ZERO IF JETS NOW OFF)
|
||||||
CCS A
|
CCS A
|
||||||
TCF MOREROLL # CONTINUE FIRING WITH PRESENT POLARITY
|
TCF MOREROLL # CONTINUE FIRING WITH PRESENT POLARITY
|
||||||
TCF NEWROLL # START NEW FIRING NOW, PLUS
|
TCF NEWROLL # START NEW FIRING NOW, PLUS
|
||||||
TCF NOROLL # TERMINATE OLD FIRING, NEW SIGN REQUESTED
|
TCF NOROLL # TERMINATE OLD FIRING, NEW SIGN REQUESTED
|
||||||
TCF NEWROLL # START NEW FIRING NOW, MINUS
|
TCF NEWROLL # START NEW FIRING NOW, MINUS
|
||||||
|
|
||||||
# CONTINUE PRESENT FIRING
|
# CONTINUE PRESENT FIRING
|
||||||
|
|
||||||
MOREROLL CAF ZERO
|
MOREROLL CAF ZERO
|
||||||
TS I # USE TEMP. AS MOREROLL SWITCH
|
TS I # USE TEMP. AS MOREROLL SWITCH
|
||||||
TCF MAXTFIRE
|
TCF MAXTFIRE
|
||||||
|
|
||||||
# START NEW FIRING BUT CHECK IF GREATER THAN MIN FIRE TIME.
|
# START NEW FIRING BUT CHECK IF GREATER THAN MIN FIRE TIME.
|
||||||
|
|
||||||
NEWROLL CCS TEMREG # CALL THIS T6FIRE
|
NEWROLL CCS TEMREG # CALL THIS T6FIRE
|
||||||
@ -457,7 +457,7 @@ NEWROLL CCS TEMREG # CALL THIS T6FIRE
|
|||||||
AD ONE
|
AD ONE
|
||||||
COM # -MAG(T6FIRE)
|
COM # -MAG(T6FIRE)
|
||||||
AD TMINFIRE # TMINFIRE-MAG(T6FIRE)
|
AD TMINFIRE # TMINFIRE-MAG(T6FIRE)
|
||||||
# Page 994
|
# Page 994
|
||||||
COM
|
COM
|
||||||
EXTEND
|
EXTEND
|
||||||
MINTST BZMF NOROLL # IF NOT GREATER THAN TMINFIRE (NEW FIRE)
|
MINTST BZMF NOROLL # IF NOT GREATER THAN TMINFIRE (NEW FIRE)
|
||||||
@ -483,36 +483,36 @@ NOMXFIRE CCS TEMREG # FOR TORQUE SIGN
|
|||||||
TCF +2
|
TCF +2
|
||||||
CA NEGMAX # NEGATIVE TORQUE REQUIRED
|
CA NEGMAX # NEGATIVE TORQUE REQUIRED
|
||||||
TS ROLLFIRE # SET ROLLFIRE FOR + OR - TORQUE
|
TS ROLLFIRE # SET ROLLFIRE FOR + OR - TORQUE
|
||||||
|
|
||||||
COM # COMPLEMENT... POS. FOR NEG. TORQUE
|
COM # COMPLEMENT... POS. FOR NEG. TORQUE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF +3 # POSITIVE TORQUE REQUIRED
|
BZMF +3 # POSITIVE TORQUE REQUIRED
|
||||||
CS TEMREG
|
CS TEMREG
|
||||||
TS TEMREG
|
TS TEMREG
|
||||||
|
|
||||||
FIRELOOK CA I # IS IT MOREROLL
|
FIRELOOK CA I # IS IT MOREROLL
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF FIREPLUG # YES
|
BZF FIREPLUG # YES
|
||||||
TCF JETROLL # MAG(T6FIRE) NOW IN TEMREG
|
TCF JETROLL # MAG(T6FIRE) NOW IN TEMREG
|
||||||
|
|
||||||
FIREPLUG CAE TIME6 # CHECK FOR EXTENDED FIRING
|
FIREPLUG CAE TIME6 # CHECK FOR EXTENDED FIRING
|
||||||
EXTEND
|
EXTEND
|
||||||
SU TEMREG
|
SU TEMREG
|
||||||
EXTEND
|
EXTEND
|
||||||
EXTENTST BZMF TASKOVER # IF EXTENSION WANTED, DON'T, EXIT ROLL DAP
|
EXTENTST BZMF TASKOVER # IF EXTENSION WANTED, DON'T, EXIT ROLL DAP
|
||||||
TCF JETROLL
|
TCF JETROLL
|
||||||
|
|
||||||
NOROLL CS ZERO # COAST....(NEG ZERO FOR TIME6)
|
NOROLL CS ZERO # COAST....(NEG ZERO FOR TIME6)
|
||||||
TS ROLLFIRE # NOTE, JETS CAN FIRE NEXT PASS
|
TS ROLLFIRE # NOTE, JETS CAN FIRE NEXT PASS
|
||||||
TS TEMREG
|
TS TEMREG
|
||||||
|
|
||||||
JETROLL EXTEND
|
JETROLL EXTEND
|
||||||
DCA NOROL1T6
|
DCA NOROL1T6
|
||||||
# Page 995
|
# Page 995
|
||||||
DXCH T6LOC
|
DXCH T6LOC
|
||||||
CA TEMREG # ENTER JET FIRING TIME
|
CA TEMREG # ENTER JET FIRING TIME
|
||||||
TS TIME6
|
TS TIME6
|
||||||
|
|
||||||
CA I # I=0 IF MOREROLL, KEEP SAME JETS ON
|
CA I # I=0 IF MOREROLL, KEEP SAME JETS ON
|
||||||
EXTEND
|
EXTEND
|
||||||
SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
|
SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
|
||||||
@ -522,7 +522,7 @@ SAMEJETS BZF TASKOVER # IF JETS ON KEEP SAME JETS. EXIT ROLL DAP
|
|||||||
TCF T6ENABL
|
TCF T6ENABL
|
||||||
TCF -TORQUE
|
TCF -TORQUE
|
||||||
TCF T6ENABL
|
TCF T6ENABL
|
||||||
|
|
||||||
# PROCEED WITH + TORQUE
|
# PROCEED WITH + TORQUE
|
||||||
|
|
||||||
+TORQUE CA ROLLWORD # WHAT WAS THE LAST +TORQUE COMBINATION
|
+TORQUE CA ROLLWORD # WHAT WAS THE LAST +TORQUE COMBINATION
|
||||||
@ -537,19 +537,19 @@ NO.13-15 CS BIT1
|
|||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN6
|
WRITE CHAN6
|
||||||
TCF T6ENABL
|
TCF T6ENABL
|
||||||
|
|
||||||
NO.9-11 CAF BIT1 # 1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
NO.9-11 CAF BIT1 # 1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
||||||
ADS ROLLWORD # CHANGE BIT 1 TO ONE
|
ADS ROLLWORD # CHANGE BIT 1 TO ONE
|
||||||
CAF +ROLL1
|
CAF +ROLL1
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN6
|
WRITE CHAN6
|
||||||
TCF T6ENABL
|
TCF T6ENABL
|
||||||
|
|
||||||
-TORQUE CA ROLLWORD # WHAT WAS LAST -TORQUE COMBINATION
|
-TORQUE CA ROLLWORD # WHAT WAS LAST -TORQUE COMBINATION
|
||||||
MASK BIT2 # WAS IT NO.12-10
|
MASK BIT2 # WAS IT NO.12-10
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF NO.12-10 # NOT 12-10, SO USE IT THIS TIME
|
BZF NO.12-10 # NOT 12-10, SO USE IT THIS TIME
|
||||||
|
|
||||||
NO.16-14 CS BIT2
|
NO.16-14 CS BIT2
|
||||||
MASK ROLLWORD
|
MASK ROLLWORD
|
||||||
TS ROLLWORD # CHANGE BIT 2 TO ZERO
|
TS ROLLWORD # CHANGE BIT 2 TO ZERO
|
||||||
@ -557,14 +557,14 @@ NO.16-14 CS BIT2
|
|||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN6
|
WRITE CHAN6
|
||||||
TCF T6ENABL
|
TCF T6ENABL
|
||||||
|
|
||||||
NO.12-10 CAF BIT2 # 1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
NO.12-10 CAF BIT2 # 1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD)
|
||||||
# Page 996
|
# Page 996
|
||||||
ADS ROLLWORD # CHANGE BIT 2 TO ONE
|
ADS ROLLWORD # CHANGE BIT 2 TO ONE
|
||||||
CAF -ROLL1
|
CAF -ROLL1
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN6
|
WRITE CHAN6
|
||||||
|
|
||||||
T6ENABL CAF BIT15
|
T6ENABL CAF BIT15
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN13
|
WOR CHAN13
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -136,35 +136,35 @@
|
|||||||
BANK 17
|
BANK 17
|
||||||
SETLOC DAPS2
|
SETLOC DAPS2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/STRK
|
COUNT* $$/STRK
|
||||||
EBANK= CADDY
|
EBANK= CADDY
|
||||||
|
|
||||||
STRKTSTI TCR TSTINIT # STROKE TEST INITIALIZATION PKG (CALLED
|
STRKTSTI TCR TSTINIT # STROKE TEST INITIALIZATION PKG (CALLED
|
||||||
# AS A JOB BY VERB68)
|
# AS A JOB BY VERB68)
|
||||||
|
|
||||||
STRKCHK INHINT
|
STRKCHK INHINT
|
||||||
|
|
||||||
CAE DAPDATR1 # CHECK FOR CSM/LM CONFIGURATION
|
CAE DAPDATR1 # CHECK FOR CSM/LM CONFIGURATION
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF +3
|
BZF +3
|
||||||
|
|
||||||
CAE ESTROKER # BEGIN ON NEXT DAP PASS (PITCH OR YAW)
|
CAE ESTROKER # BEGIN ON NEXT DAP PASS (PITCH OR YAW)
|
||||||
TS STROKER # (STROKING DONE IN PITCH ONLY, HOWEVER)
|
TS STROKER # (STROKING DONE IN PITCH ONLY, HOWEVER)
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
TSTINIT CS FCADDY # NORMAL ENTRY FROM STRKTSTI
|
TSTINIT CS FCADDY # NORMAL ENTRY FROM STRKTSTI
|
||||||
TS CADDY
|
TS CADDY
|
||||||
TS N # NOTE SGN CHNG FCADDY(+) TO CADDY(-)
|
TS N # NOTE SGN CHNG FCADDY(+) TO CADDY(-)
|
||||||
|
|
||||||
CAF FREVS
|
CAF FREVS
|
||||||
TS REVS
|
TS REVS
|
||||||
|
|
||||||
CS FCARD # NOTE SGN CHNG FCARD(+) TO CARD(-)
|
CS FCARD # NOTE SGN CHNG FCARD(+) TO CARD(-)
|
||||||
TS CARD
|
TS CARD
|
||||||
|
|
||||||
TC Q # RETURN TO STRKTSTI+1 (OR CHKSTRK+2 OR +4)
|
TC Q # RETURN TO STRKTSTI+1 (OR CHKSTRK+2 OR +4)
|
||||||
|
|
||||||
# Page 982
|
# Page 982
|
||||||
@ -200,20 +200,20 @@ FCARD6 DEC 4 # 4..(+ 4)
|
|||||||
|
|
||||||
HACK EXTEND # ENTRY (IN T5 RUPT) FROM TVCDAPS
|
HACK EXTEND # ENTRY (IN T5 RUPT) FROM TVCDAPS
|
||||||
QXCH BUNKER # SAVE Q FOR DAP RETURN
|
QXCH BUNKER # SAVE Q FOR DAP RETURN
|
||||||
|
|
||||||
CAF 20MS # 2DAPSx2(PASSES/DAP)x2(CS/PASS)=8CS=TVCDT
|
CAF 20MS # 2DAPSx2(PASSES/DAP)x2(CS/PASS)=8CS=TVCDT
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= BUNKER
|
EBANK= BUNKER
|
||||||
2CADR HACKWLST
|
2CADR HACKWLST
|
||||||
|
|
||||||
TCF +3
|
TCF +3
|
||||||
|
|
||||||
HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
|
HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
|
||||||
TS BUNKER # BUNKER IS TC TASKOVER
|
TS BUNKER # BUNKER IS TC TASKOVER
|
||||||
|
|
||||||
CA STROKER # STROKE
|
CA STROKER # STROKE
|
||||||
ADS TVCPITCH
|
ADS TVCPITCH
|
||||||
|
|
||||||
CAF BIT11 # RELEASE THE ERROR COUNTERS
|
CAF BIT11 # RELEASE THE ERROR COUNTERS
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14
|
WOR CHAN14
|
||||||
@ -223,16 +223,16 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
|
|||||||
EXTEND
|
EXTEND
|
||||||
BZMF +2
|
BZMF +2
|
||||||
TC BUNKER # EXIT, WHILE ON A SLOPE
|
TC BUNKER # EXIT, WHILE ON A SLOPE
|
||||||
|
|
||||||
CCS REVS
|
CCS REVS
|
||||||
TCF REVUP # POSITIVE REVS
|
TCF REVUP # POSITIVE REVS
|
||||||
TCF REVUP +4 # FINAL REVERSAL, THE SET
|
TCF REVUP +4 # FINAL REVERSAL, THE SET
|
||||||
|
|
||||||
INCR CARD # NEGATIVE REVS SET LAST PASS, READY FOR
|
INCR CARD # NEGATIVE REVS SET LAST PASS, READY FOR
|
||||||
CS CARD # THE NEXT SET. CHECK IF NO MORE SETS
|
CS CARD # THE NEXT SET. CHECK IF NO MORE SETS
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF STROKILL # ALL SETS COMPLETED
|
BZF STROKILL # ALL SETS COMPLETED
|
||||||
|
|
||||||
INDEX CARD
|
INDEX CARD
|
||||||
CAF FCARD +4 # PICK UP NO. REVERSALS (-), NEXT SET
|
CAF FCARD +4 # PICK UP NO. REVERSALS (-), NEXT SET
|
||||||
TS REVS # REINITIALIZE
|
TS REVS # REINITIALIZE
|
||||||
@ -241,21 +241,21 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
|
|||||||
TS N # REINITIALIZE
|
TS N # REINITIALIZE
|
||||||
TS CADDY
|
TS CADDY
|
||||||
TC BUNKER # EXIT, AT END OF SET
|
TC BUNKER # EXIT, AT END OF SET
|
||||||
|
|
||||||
STROKILL TS STROKER # RESET (TO +0) TO END TEST
|
STROKILL TS STROKER # RESET (TO +0) TO END TEST
|
||||||
TC BUNKER # EXIT, STROKE TEST FINIS
|
TC BUNKER # EXIT, STROKE TEST FINIS
|
||||||
|
|
||||||
REVUP TS REVS # ALL REVERSALS EXCEPT LAST OF SET
|
REVUP TS REVS # ALL REVERSALS EXCEPT LAST OF SET
|
||||||
CA N
|
CA N
|
||||||
DOUBLE # 2 x 1/2AMP
|
DOUBLE # 2 x 1/2AMP
|
||||||
TCF +4
|
TCF +4
|
||||||
|
|
||||||
+4 CS ONE # FINAL REVERSAL, THIS SET
|
+4 CS ONE # FINAL REVERSAL, THIS SET
|
||||||
TS REVS # PREPARE TO BRANCH TO NEW BURST
|
TS REVS # PREPARE TO BRANCH TO NEW BURST
|
||||||
CA N # JUST RETURN TO ZERO, FINAL SLOPE OF SET
|
CA N # JUST RETURN TO ZERO, FINAL SLOPE OF SET
|
||||||
TS CADDY # CADUP
|
TS CADDY # CADUP
|
||||||
|
|
||||||
CS STROKER # CHANGE SIGN OF SLOPE
|
CS STROKER # CHANGE SIGN OF SLOPE
|
||||||
TS STROKER
|
TS STROKER
|
||||||
TC BUNKER # EXIT AT A REVERSAL (SLOPE CHANGE)
|
TC BUNKER # EXIT AT A REVERSAL (SLOPE CHANGE)
|
||||||
|
|
||||||
|
|||||||
@ -10,14 +10,14 @@
|
|||||||
# Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc
|
# Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc
|
||||||
# and page images. Corrected various typos
|
# and page images. Corrected various typos
|
||||||
# in the transcription of program comments,
|
# in the transcription of program comments,
|
||||||
# and these should be back-ported to
|
# and these should be back-ported to
|
||||||
# Colossus249.
|
# Colossus249.
|
||||||
#
|
#
|
||||||
# The contents of the "Comanche055" files, in general, are transcribed
|
# The contents of the "Comanche055" files, in general, are transcribed
|
||||||
# from scanned documents.
|
# from scanned documents.
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. April 1, 1969.
|
# 2021113-051. April 1, 1969.
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as Colossus 2A
|
# This AGC program shall also be referred to as Colossus 2A
|
||||||
#
|
#
|
||||||
@ -166,7 +166,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
|
|||||||
BZF +2 # (+0 = P00, -0 = FRESHSTART)
|
BZF +2 # (+0 = P00, -0 = FRESHSTART)
|
||||||
TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
|
TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
|
||||||
# INTERRUPTED BY P27.
|
# INTERRUPTED BY P27.
|
||||||
|
|
||||||
CAE MODREG # UPDATE ALLOWED
|
CAE MODREG # UPDATE ALLOWED
|
||||||
TS UPOLDMOD # SAVE CURRENT MAJOR MODE
|
TS UPOLDMOD # SAVE CURRENT MAJOR MODE
|
||||||
# Page 1500
|
# Page 1500
|
||||||
@ -178,7 +178,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
|
|||||||
|
|
||||||
TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
|
TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
|
||||||
CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
|
CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
|
||||||
|
|
||||||
CKMDMORE CS FLAGWRD5
|
CKMDMORE CS FLAGWRD5
|
||||||
MASK BIT8 # CHECK IF COMPUTER IS LGC
|
MASK BIT8 # CHECK IF COMPUTER IS LGC
|
||||||
CCS A # IS COMPUER LGC OR AGC
|
CCS A # IS COMPUER LGC OR AGC
|
||||||
@ -189,7 +189,7 @@ UPERLEM TCF UPERROR # ERROR: IT'S THE LEM + MODE IS NOT P00.
|
|||||||
UPERCMC TCF UPERROR # ERROR: IT'S THE CMC AND MODE IS NOT
|
UPERCMC TCF UPERROR # ERROR: IT'S THE CMC AND MODE IS NOT
|
||||||
# P00 OR P02.
|
# P00 OR P02.
|
||||||
TC Q # ALLOW UPDATE TO PROCEED.
|
TC Q # ALLOW UPDATE TO PROCEED.
|
||||||
|
|
||||||
UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
|
UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
|
||||||
CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
|
CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
|
||||||
|
|
||||||
@ -217,7 +217,7 @@ UPPART2 EQUALS # UPDATE PROGRAM -- PART 2
|
|||||||
TS DNLSTCOD # DOWNLIST
|
TS DNLSTCOD # DOWNLIST
|
||||||
|
|
||||||
TC NEWMODEX # SET MAJOR MODE = 27
|
TC NEWMODEX # SET MAJOR MODE = 27
|
||||||
# Page 1501
|
# Page 1501
|
||||||
DEC 27
|
DEC 27
|
||||||
|
|
||||||
INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
|
INDEX UPVERB # BRANCH DEPENDING ON WHETHER THE UPDATE
|
||||||
@ -315,7 +315,7 @@ UPSTORE EQUALS # GROUND HAS VERIFIED UPDATE. STORE DATA.
|
|||||||
CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
|
CAE FLAGWRD7 # INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
|
||||||
XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
|
XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
|
||||||
CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO
|
CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO
|
||||||
# Page 1503
|
# Page 1503
|
||||||
EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
|
EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
|
||||||
RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
|
RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
|
||||||
TS FLAGWRD7
|
TS FLAGWRD7
|
||||||
@ -415,7 +415,7 @@ DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT
|
|||||||
|
|
||||||
UPEND71 CAE UPBUFF +1 # SET EBANK
|
UPEND71 CAE UPBUFF +1 # SET EBANK
|
||||||
TS EBANK # AND
|
TS EBANK # AND
|
||||||
# Page 1505
|
# Page 1505
|
||||||
MASK LOW8 # CALCULATE
|
MASK LOW8 # CALCULATE
|
||||||
TS UPTEMP # S-REG VALUE OF RECEIVING AREA
|
TS UPTEMP # S-REG VALUE OF RECEIVING AREA
|
||||||
AD NEG3 # IN THE PROCESS OF
|
AD NEG3 # IN THE PROCESS OF
|
||||||
@ -465,7 +465,7 @@ LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
|
|||||||
MASK LOW8 # ISOLATE RELATIVE ADDRESS
|
MASK LOW8 # ISOLATE RELATIVE ADDRESS
|
||||||
INDEX A
|
INDEX A
|
||||||
|
|
||||||
# Page 1506
|
# Page 1506
|
||||||
EBANK= 1400
|
EBANK= 1400
|
||||||
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
|
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
|
||||||
EBANK= TEPHEM
|
EBANK= TEPHEM
|
||||||
@ -513,8 +513,8 @@ UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
|
|||||||
DAS TETCSM
|
DAS TETCSM
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
|
|
||||||
# Page 1507
|
# Page 1507
|
||||||
ZL
|
ZL
|
||||||
DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
|
DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
|
||||||
DAS TETLEM
|
DAS TETLEM
|
||||||
@ -549,6 +549,6 @@ UPACTOFF CS BIT3
|
|||||||
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
|
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
|
||||||
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
|
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -16,13 +16,13 @@
|
|||||||
# thanks to both. The images (with suitable reduction in storage size and
|
# thanks to both. The images (with suitable reduction in storage size and
|
||||||
# consequent reduction in image quality as well) are available online at
|
# consequent reduction in image quality as well) are available online at
|
||||||
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
# www.ibiblio.org/apollo. If for some reason you find that the images are
|
||||||
# illegible, contact me at info@sandroid.org about getting access to the
|
# illegible, contact me at info@sandroid.org about getting access to the
|
||||||
# (much) higher-quality images which Paul actually created.
|
# (much) higher-quality images which Paul actually created.
|
||||||
#
|
#
|
||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 055 of AGC program Comanche by NASA
|
# Assemble revision 055 of AGC program Comanche by NASA
|
||||||
# 2021113-051. 10:28 APR. 1, 1969
|
# 2021113-051. 10:28 APR. 1, 1969
|
||||||
#
|
#
|
||||||
# This AGC program shall also be referred to as
|
# This AGC program shall also be referred to as
|
||||||
# Colossus 2A
|
# Colossus 2A
|
||||||
@ -116,7 +116,7 @@
|
|||||||
EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
|
EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
|
||||||
|
|
||||||
COUNT 02/WAIT
|
COUNT 02/WAIT
|
||||||
|
|
||||||
TWIDDLE INHINT
|
TWIDDLE INHINT
|
||||||
TS L # SAVE DELAY TIME IN L
|
TS L # SAVE DELAY TIME IN L
|
||||||
CA POSMAX
|
CA POSMAX
|
||||||
@ -164,7 +164,7 @@ VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR.
|
|||||||
TS WAITADR
|
TS WAITADR
|
||||||
CA BBANK # BBANK IS SAVED DURING DELAY.
|
CA BBANK # BBANK IS SAVED DURING DELAY.
|
||||||
EXTEND
|
EXTEND
|
||||||
# Page 1224
|
# Page 1224
|
||||||
ROR SUPERBNK # ADD SBANK TO BBCON.
|
ROR SUPERBNK # ADD SBANK TO BBCON.
|
||||||
TS L
|
TS L
|
||||||
CAF DELAYEX
|
CAF DELAYEX
|
||||||
@ -185,7 +185,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG
|
|||||||
TCF +1
|
TCF +1
|
||||||
|
|
||||||
CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
|
CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
|
||||||
TCF SVCT3X
|
TCF SVCT3X
|
||||||
TCF +3
|
TCF +3
|
||||||
TCF SVCT3X
|
TCF SVCT3X
|
||||||
TCF SVCT3X
|
TCF SVCT3X
|
||||||
@ -195,7 +195,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG
|
|||||||
2CADR NBDONLY
|
2CADR NBDONLY
|
||||||
|
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
|
|
||||||
SETLOC FFTAG6
|
SETLOC FFTAG6
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
@ -208,7 +208,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMU ZERO
|
|||||||
|
|
||||||
BANK 01
|
BANK 01
|
||||||
COUNT 01/WAIT
|
COUNT 01/WAIT
|
||||||
|
|
||||||
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
|
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
|
||||||
CS TIME3
|
CS TIME3
|
||||||
AD BIT8 # BIT 8 = OCT 200
|
AD BIT8 # BIT 8 = OCT 200
|
||||||
@ -319,7 +319,7 @@ WTLST5 CCS A # TEST TD - T2 + 1
|
|||||||
OCT 6
|
OCT 6
|
||||||
|
|
||||||
# Page 1229
|
# Page 1229
|
||||||
+4 CCS A
|
+4 CCS A
|
||||||
AD LST1 +7
|
AD LST1 +7
|
||||||
TCF +4
|
TCF +4
|
||||||
AD ONE
|
AD ONE
|
||||||
@ -329,13 +329,13 @@ WTLST5 CCS A # TEST TD - T2 + 1
|
|||||||
+4 CCS A
|
+4 CCS A
|
||||||
WTABORT TC BAILOUT # NO ROOM IN THE INN
|
WTABORT TC BAILOUT # NO ROOM IN THE INN
|
||||||
OCT 1203
|
OCT 1203
|
||||||
|
|
||||||
AD ONE
|
AD ONE
|
||||||
TC WTLST2
|
TC WTLST2
|
||||||
OCT 10
|
OCT 10
|
||||||
|
|
||||||
OCT40201 OCT 40201
|
OCT40201 OCT 40201
|
||||||
|
|
||||||
# Page 1230
|
# Page 1230
|
||||||
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
|
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
|
||||||
# N N+1
|
# N N+1
|
||||||
@ -411,7 +411,7 @@ T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK.
|
|||||||
|
|
||||||
BLOCK 02
|
BLOCK 02
|
||||||
COUNT 02/WAIT
|
COUNT 02/WAIT
|
||||||
|
|
||||||
TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
|
TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
|
||||||
CAF WAITBB
|
CAF WAITBB
|
||||||
TS BBANK
|
TS BBANK
|
||||||
@ -495,7 +495,7 @@ LGCL2CDR 2CADR LNGCALL2
|
|||||||
|
|
||||||
BANK 01
|
BANK 01
|
||||||
COUNT 01/WAIT
|
COUNT 01/WAIT
|
||||||
|
|
||||||
LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
|
LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
|
||||||
CA TWO # OBTAIN THE RETURN ADDRESS
|
CA TWO # OBTAIN THE RETURN ADDRESS
|
||||||
ADS Q
|
ADS Q
|
||||||
|
|||||||
@ -22,7 +22,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1284
|
# Page 1284
|
||||||
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967
|
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967
|
||||||
|
|||||||
@ -22,7 +22,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 206
|
# Page 206
|
||||||
|
|
||||||
|
|||||||
@ -26,7 +26,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1381
|
# Page 1381
|
||||||
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
|
# THE FOLLOWING SUBROUTINE MAY BE CALLED TO DISPLAY A NON-ABORTIVE ALARM CONDITION. IT MAY BE CALLED
|
||||||
@ -248,4 +248,4 @@ FLAGS CS STATEBIT
|
|||||||
MASK FLAGWRD2
|
MASK FLAGWRD2
|
||||||
TS FLAGWRD2
|
TS FLAGWRD2
|
||||||
TC Q
|
TC Q
|
||||||
|
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1485-1506
|
# Pages: 1485-1506
|
||||||
# Mod history: 2009-05-27 RSB Adapted from the corresponding
|
# Mod history: 2009-05-27 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
# 2009-06-05 RSB Corrected a memory-bank error type.
|
# 2009-06-05 RSB Corrected a memory-bank error type.
|
||||||
# 2009-06-07 RSB Corrected a typo.
|
# 2009-06-07 RSB Corrected a typo.
|
||||||
@ -26,7 +26,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1485
|
# Page 1485
|
||||||
# PROGRAM NAME: 1/ACCS
|
# PROGRAM NAME: 1/ACCS
|
||||||
@ -281,7 +281,7 @@ LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
|
|||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
MP L,PVT-CG # SCALED AT 8 FEET.
|
MP L,PVT-CG # SCALED AT 8 FEET.
|
||||||
# Page 1490
|
# Page 1490
|
||||||
INHINT
|
INHINT
|
||||||
TS MPAC
|
TS MPAC
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -425,19 +425,19 @@ MAXPLUS CAF POSMAX # -,- OR +,+
|
|||||||
# AND C IS SCALED AT B+16 KG.
|
# AND C IS SCALED AT B+16 KG.
|
||||||
|
|
||||||
2DEC +.0410511917 # L A DESCENT
|
2DEC +.0410511917 # L A DESCENT
|
||||||
|
|
||||||
INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
|
INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
|
||||||
|
|
||||||
2DEC +.0014979264 # 1JACCQ A DESCENT
|
2DEC +.0014979264 # 1JACCQ A DESCENT
|
||||||
|
|
||||||
2DEC +.0010451889 # 1JACCR A DESCENT
|
2DEC +.0010451889 # 1JACCR A DESCENT
|
||||||
|
|
||||||
2DEC +.0065443852 # 1JACCP A ASCENT
|
2DEC +.0065443852 # 1JACCP A ASCENT
|
||||||
|
|
||||||
2DEC +.0035784354 # 1JACCQ A ASCENT
|
2DEC +.0035784354 # 1JACCQ A ASCENT
|
||||||
|
|
||||||
2DEC +.0056946631 # 1JACCR A ASCENT
|
2DEC +.0056946631 # 1JACCR A ASCENT
|
||||||
|
|
||||||
DEC +.155044 # L B DESCENT
|
DEC +.155044 # L B DESCENT
|
||||||
DEC -.025233 # L C DESCENT
|
DEC -.025233 # L C DESCENT
|
||||||
# Page 1494
|
# Page 1494
|
||||||
@ -754,7 +754,7 @@ NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
|
|||||||
AD L # L HAS ABS(AOS) - AMIN
|
AD L # L HAS ABS(AOS) - AMIN
|
||||||
EXTEND # RESULT IS ABS(AOS)- AMIN/2
|
EXTEND # RESULT IS ABS(AOS)- AMIN/2
|
||||||
BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
|
BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
|
||||||
|
|
||||||
SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
|
SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
|
||||||
INDEX -SIGNAOS
|
INDEX -SIGNAOS
|
||||||
TS DBB3 # DB3(4) = DB/2
|
TS DBB3 # DB3(4) = DB/2
|
||||||
@ -781,7 +781,7 @@ ACCTHERE INDEX -SIGNAOS
|
|||||||
|
|
||||||
CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
|
CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
|
||||||
AD 1JACCU
|
AD 1JACCU
|
||||||
# Page 1501
|
# Page 1501
|
||||||
AD BIT9 # MAXIMUM POSSIBLE VALUE
|
AD BIT9 # MAXIMUM POSSIBLE VALUE
|
||||||
TS A # OVERFLOW POSSIBLE BUT REMOTE
|
TS A # OVERFLOW POSSIBLE BUT REMOTE
|
||||||
TCF +2
|
TCF +2
|
||||||
@ -879,7 +879,7 @@ STORV CA ACCSW # STORE V AXIS VALUES
|
|||||||
TS ACCSWV
|
TS ACCSWV
|
||||||
CA NINE
|
CA NINE
|
||||||
TC GENTRAN +1
|
TC GENTRAN +1
|
||||||
# Page 1503
|
# Page 1503
|
||||||
ADRES 1/ATEM1 # TEMPORARY BUFFER
|
ADRES 1/ATEM1 # TEMPORARY BUFFER
|
||||||
ADRES 1/ANET1 +16D # THE REAL PLACE
|
ADRES 1/ANET1 +16D # THE REAL PLACE
|
||||||
|
|
||||||
@ -980,7 +980,7 @@ DOACCFUN EXTEND
|
|||||||
|
|
||||||
NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN
|
NETNEG CS -.03R/S2 # ANET LESS THAN AMIN -- SET EQUAL TO AMIN
|
||||||
TS ANET
|
TS ANET
|
||||||
# Page 1505
|
# Page 1505
|
||||||
TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
|
TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
|
||||||
|
|
||||||
FIXMIN CCS SIGNAOS
|
FIXMIN CCS SIGNAOS
|
||||||
@ -1066,4 +1066,4 @@ PAXISADR GENADR PAXIS
|
|||||||
OCT 00022 # -V
|
OCT 00022 # -V
|
||||||
+UMASK OCT 00204 # +U
|
+UMASK OCT 00204 # +U
|
||||||
OCT 00041 # +V
|
OCT 00041 # +V
|
||||||
|
|
||||||
|
|||||||
@ -24,28 +24,28 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 244
|
# Page 244
|
||||||
BANK 12
|
BANK 12
|
||||||
SETLOC AOTMARK1
|
SETLOC AOTMARK1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
COUNT* $$/MARK
|
COUNT* $$/MARK
|
||||||
|
|
||||||
AOTMARK INHINT
|
AOTMARK INHINT
|
||||||
CCS MARKSTAT # SEE IF AOTMARK BUSY
|
CCS MARKSTAT # SEE IF AOTMARK BUSY
|
||||||
TC +2 # MARK SYSTEM BUSY -- DO ALARM
|
TC +2 # MARK SYSTEM BUSY -- DO ALARM
|
||||||
TC EXTVBCHK
|
TC EXTVBCHK
|
||||||
TC P00DOO
|
TC P00DOO
|
||||||
OCT 00105
|
OCT 00105
|
||||||
|
|
||||||
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
|
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
|
||||||
MASK EXTVBACT
|
MASK EXTVBACT
|
||||||
CCS A
|
CCS A
|
||||||
TCF MKABORT # YES -- ABORT
|
TCF MKABORT # YES -- ABORT
|
||||||
|
|
||||||
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION
|
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION
|
||||||
ADS EXTVBACT # BIT2 RESET IN ENDMARK
|
ADS EXTVBACT # BIT2 RESET IN ENDMARK
|
||||||
MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
|
MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
|
||||||
@ -61,10 +61,10 @@ MKVAC CCS VAC1USE # LOOK FOR A VAC AREAD -- DO ABORT IF
|
|||||||
DXCH BUF2
|
DXCH BUF2
|
||||||
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT.
|
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT.
|
||||||
OCT 01207
|
OCT 01207
|
||||||
|
|
||||||
MKVACFND AD TWO
|
MKVACFND AD TWO
|
||||||
TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
|
TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
|
||||||
|
|
||||||
CAF ZERO
|
CAF ZERO
|
||||||
INDEX MARKSTAT
|
INDEX MARKSTAT
|
||||||
TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
|
TS 0 -1 # ZERO IN VACUSE REG TO SHOW VAC OCCUPIED
|
||||||
@ -73,14 +73,14 @@ MKVACFND AD TWO
|
|||||||
TC FINDVAC # SET UP JOB FOR GETDAT
|
TC FINDVAC # SET UP JOB FOR GETDAT
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
2CADR GETDAT
|
2CADR GETDAT
|
||||||
|
|
||||||
RELINT
|
RELINT
|
||||||
TCF SWRETURN
|
TCF SWRETURN
|
||||||
# Page 245
|
# Page 245
|
||||||
MKABORT DXCH BUF2
|
MKABORT DXCH BUF2
|
||||||
TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
|
TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
|
||||||
OCT 01211
|
OCT 01211
|
||||||
|
|
||||||
MKRELEAS CAF ZERO
|
MKRELEAS CAF ZERO
|
||||||
XCH MARKSTAT # SET MARKSTAT TO ZERO
|
XCH MARKSTAT # SET MARKSTAT TO ZERO
|
||||||
MASK LOW9 # PICK UP VAC AREA AOR
|
MASK LOW9 # PICK UP VAC AREA AOR
|
||||||
@ -90,7 +90,7 @@ MKRELEAS CAF ZERO
|
|||||||
CAF ONE
|
CAF ONE
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR GOODEND # GO WAKE UP CALLING JOB
|
CADR GOODEND # GO WAKE UP CALLING JOB
|
||||||
|
|
||||||
# Page 246
|
# Page 246
|
||||||
KILLAOT CAF ZERO
|
KILLAOT CAF ZERO
|
||||||
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
|
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
|
||||||
@ -98,11 +98,11 @@ KILLAOT CAF ZERO
|
|||||||
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||||
MASK BIT12 # BIT12 RESET AT GETMARK
|
MASK BIT12 # BIT12 RESET AT GETMARK
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
|
|
||||||
CAF V01N71 # DISPLAY DETENT AND STAR CODE
|
CAF V01N71 # DISPLAY DETENT AND STAR CODE
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||||
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
|
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
|
||||||
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
|
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
|
||||||
@ -112,20 +112,20 @@ DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
|
|||||||
EXTEND
|
EXTEND
|
||||||
MP BIT9
|
MP BIT9
|
||||||
TS XYMARK # STORE DETENT
|
TS XYMARK # STORE DETENT
|
||||||
|
|
||||||
EXTEND
|
EXTEND
|
||||||
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
|
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
|
||||||
|
|
||||||
AD NEG7 # SEE IF DETENT 7 FOR COAS
|
AD NEG7 # SEE IF DETENT 7 FOR COAS
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF CODE7
|
BZF CODE7
|
||||||
|
|
||||||
TCF CODE1TO6
|
TCF CODE1TO6
|
||||||
|
|
||||||
CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
|
CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
|
||||||
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
|
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||||
TCF +2 # PROCEED
|
TCF +2 # PROCEED
|
||||||
TCF CODE7 # ON ENTER, RECYCLE
|
TCF CODE7 # ON ENTER, RECYCLE
|
||||||
@ -135,27 +135,27 @@ CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
|
|||||||
DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
|
DXCH 8D # STORE IN 8D AND 9D OF LOCAL VAC
|
||||||
CAF ZERO # BACKUP SYSTEM TO BE USED
|
CAF ZERO # BACKUP SYSTEM TO BE USED
|
||||||
TCF COASCODE # ZERO APPARENT ROTATION
|
TCF COASCODE # ZERO APPARENT ROTATION
|
||||||
|
|
||||||
CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
|
CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
|
||||||
CA AOTEL -1
|
CA AOTEL -1
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS 9D # STORE ELEVATION IN VAC+9D
|
TS 9D # STORE ELEVATION IN VAC+9D
|
||||||
|
|
||||||
INDEX XYMARK # INDEX DET CODE 1,2 OR 3
|
INDEX XYMARK # INDEX DET CODE 1,2 OR 3
|
||||||
# Page 247
|
# Page 247
|
||||||
CA AOTAZ -1
|
CA AOTAZ -1
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS 8D # STORE AZIMUTH IN VAC +8D
|
TS 8D # STORE AZIMUTH IN VAC +8D
|
||||||
|
|
||||||
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
|
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
|
||||||
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT
|
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT
|
||||||
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
|
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
|
||||||
MSU 8D # PRECISION ONE'S COMPLEMENT
|
MSU 8D # PRECISION ONE'S COMPLEMENT
|
||||||
COASCODE INDEX FIXLOC
|
COASCODE INDEX FIXLOC
|
||||||
TS 10D # ROT ANGLE
|
TS 10D # ROT ANGLE
|
||||||
|
|
||||||
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
|
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
|
||||||
|
|
||||||
# Page 248
|
# Page 248
|
||||||
# THE OPTAXIS SUBROUTINE 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
|
||||||
@ -192,7 +192,7 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
|
|||||||
STORE STARAD +6
|
STORE STARAD +6
|
||||||
EXIT
|
EXIT
|
||||||
TCF GETMKS
|
TCF GETMKS
|
||||||
|
|
||||||
# Page 249
|
# Page 249
|
||||||
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
|
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
|
||||||
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
|
# FROM AZIMUTH AND ELEVATION INPUT FROM THE ASTRONAUT.
|
||||||
@ -207,9 +207,9 @@ OPTAXIS CALL # GO COMPUTE OA AN X AND Y PLANE VECS
|
|||||||
BANK 05
|
BANK 05
|
||||||
SETLOC AOTMARK2
|
SETLOC AOTMARK2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/MARK
|
COUNT* $$/MARK
|
||||||
|
|
||||||
OANB SETPD STQ
|
OANB SETPD STQ
|
||||||
0
|
0
|
||||||
GCTR # STORE RETURN
|
GCTR # STORE RETURN
|
||||||
@ -245,7 +245,7 @@ OANB SETPD STQ
|
|||||||
# Page 250
|
# Page 250
|
||||||
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES 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
|
||||||
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
|
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
|
||||||
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
|
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
|
||||||
@ -256,7 +256,7 @@ OANB SETPD STQ
|
|||||||
SETLOC P50S
|
SETLOC P50S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R59
|
COUNT* $$/R59
|
||||||
|
|
||||||
SURFSTAR VLOAD*
|
SURFSTAR VLOAD*
|
||||||
0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
|
0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
|
||||||
STORE CDUSPOT
|
STORE CDUSPOT
|
||||||
@ -312,7 +312,7 @@ YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
|
|||||||
YSZERO VLOAD GOTO
|
YSZERO VLOAD GOTO
|
||||||
SCAXIS
|
SCAXIS
|
||||||
JUSTOA
|
JUSTOA
|
||||||
|
|
||||||
# Page 252
|
# Page 252
|
||||||
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
|
# THE GETMKS ROUTINE INITIALIZES THE SIGHTING MARK PROCEDURE
|
||||||
|
|
||||||
@ -325,11 +325,11 @@ GETMKS CAF ZERO # INITIALIZE MARK ID REGISTER AND MARK CNT
|
|||||||
CAF MKVB54* # DISPLAY VB54 INITIALLY
|
CAF MKVB54* # DISPLAY VB54 INITIALLY
|
||||||
PASTIT TC BANKCALL
|
PASTIT TC BANKCALL
|
||||||
CADR GOMARK4
|
CADR GOMARK4
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||||
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
|
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
|
||||||
TCF GETDAT # ENTER -- RECYCLE TO V01N71
|
TCF GETDAT # ENTER -- RECYCLE TO V01N71
|
||||||
|
|
||||||
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
|
||||||
MASK BIT12
|
MASK BIT12
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
@ -349,7 +349,7 @@ CNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD
|
|||||||
TCF +2 # PAIR BURIED -- DECREMENT COUNTER
|
TCF +2 # PAIR BURIED -- DECREMENT COUNTER
|
||||||
TCF MKALARM # NO PAIR -- ALARM
|
TCF MKALARM # NO PAIR -- ALARM
|
||||||
TS MARKCNTR # STORE DECREMENTED COUNTER
|
TS MARKCNTR # STORE DECREMENTED COUNTER
|
||||||
|
|
||||||
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
||||||
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
|
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
|
||||||
CS MARKCNTR
|
CS MARKCNTR
|
||||||
@ -359,10 +359,10 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
|||||||
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX
|
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX
|
||||||
INDEX FIXLOC
|
INDEX FIXLOC
|
||||||
TS X1 # JAM -- CDU ADR OF X-MARK IN X1
|
TS X1 # JAM -- CDU ADR OF X-MARK IN X1
|
||||||
|
|
||||||
CA FIXLOC # SET PD POINTER TO ZERO
|
CA FIXLOC # SET PD POINTER TO ZERO
|
||||||
TS PUSHLOC
|
TS PUSHLOC
|
||||||
|
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
# Page 253
|
# Page 253
|
||||||
BON VLOAD*
|
BON VLOAD*
|
||||||
@ -382,7 +382,7 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
|
|||||||
VXV UNIT # UNIT(XPSM * YPSM)
|
VXV UNIT # UNIT(XPSM * YPSM)
|
||||||
STADR
|
STADR
|
||||||
STORE 24D
|
STORE 24D
|
||||||
|
|
||||||
AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
|
AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
|
||||||
MKDEX
|
MKDEX
|
||||||
24D # LOAD CURRENT VECTOR
|
24D # LOAD CURRENT VECTOR
|
||||||
@ -405,13 +405,13 @@ ENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK
|
|||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= XYMARK
|
EBANK= XYMARK
|
||||||
2CADR MKRELEAS
|
2CADR MKRELEAS
|
||||||
|
|
||||||
TC ENDMARK
|
TC ENDMARK
|
||||||
|
|
||||||
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS
|
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS
|
||||||
OCT 111
|
OCT 111
|
||||||
TCF GETMKS
|
TCF GETMKS
|
||||||
|
|
||||||
V01N71 VN 171
|
V01N71 VN 171
|
||||||
V06N87* VN 687
|
V06N87* VN 687
|
||||||
|
|
||||||
@ -431,14 +431,14 @@ MARKRUPT TS BANKRUPT
|
|||||||
DXCH ITEMP1
|
DXCH ITEMP1
|
||||||
XCH Q
|
XCH Q
|
||||||
TS QRUPT
|
TS QRUPT
|
||||||
|
|
||||||
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
|
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED
|
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED
|
||||||
TCF SOMEKEY # ITS SOME OTHER KEY
|
TCF SOMEKEY # ITS SOME OTHER KEY
|
||||||
|
|
||||||
CAF BIT12 # ARE WE ASKING FOR A MARK
|
CAF BIT12 # ARE WE ASKING FOR A MARK
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
@ -449,42 +449,42 @@ MARKRUPT TS BANKRUPT
|
|||||||
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM
|
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM
|
||||||
OCT 112
|
OCT 112
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
FINDKEY CAF BIT5 # SEE IF MARK REJECT.
|
FINDKEY CAF BIT5 # SEE IF MARK REJECT.
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
TCF MKREJ # IT'S A MARK REJECT
|
TCF MKREJ # IT'S A MARK REJECT
|
||||||
|
|
||||||
CAF BIT4 # SEE IF Y MARK
|
CAF BIT4 # SEE IF Y MARK
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
CCS A
|
CCS A
|
||||||
|
|
||||||
TCF YMKRUPT # IT'S A Y MARK
|
TCF YMKRUPT # IT'S A Y MARK
|
||||||
|
|
||||||
CAF BIT3 # SEE IF X MARK
|
CAF BIT3 # SEE IF X MARK
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
|
|
||||||
# Page 255
|
# Page 255
|
||||||
CCS A
|
CCS A
|
||||||
TCF XMKRUPT # IT'S A X MARK
|
TCF XMKRUPT # IT'S A X MARK
|
||||||
|
|
||||||
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
|
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
|
||||||
EXTEND
|
EXTEND
|
||||||
RAND NAVKEYIN
|
RAND NAVKEYIN
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF +3 # IF NO BITS
|
BZF +3 # IF NO BITS
|
||||||
|
|
||||||
TC POSTJUMP # IF DESCENT BITS
|
TC POSTJUMP # IF DESCENT BITS
|
||||||
CADR DESCBITS
|
CADR DESCBITS
|
||||||
|
|
||||||
TC ALARM # NO INBITS IN CHANNEL 16.
|
TC ALARM # NO INBITS IN CHANNEL 16.
|
||||||
OCT 113
|
OCT 113
|
||||||
|
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
XMKRUPT CAF ZERO
|
XMKRUPT CAF ZERO
|
||||||
TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
|
TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
|
||||||
CAF BIT10
|
CAF BIT10
|
||||||
@ -493,10 +493,10 @@ YMKRUPT CAF ONE
|
|||||||
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
|
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
|
||||||
CAF BIT11
|
CAF BIT11
|
||||||
TS XYMARK # SET MARK IDENTIFICATION
|
TS XYMARK # SET MARK IDENTIFICATION
|
||||||
|
|
||||||
TC MARKTYPE # SEE IF SURFACE MARK
|
TC MARKTYPE # SEE IF SURFACE MARK
|
||||||
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
|
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
|
||||||
|
|
||||||
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE
|
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -509,7 +509,7 @@ YMKRUPT CAF ONE
|
|||||||
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
|
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
|
|
||||||
VERIFYMK CA XYMARK
|
VERIFYMK CA XYMARK
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
@ -525,11 +525,11 @@ VERIFYMK CA XYMARK
|
|||||||
TC MARKTYPE # SEE IF SURFACE MARK
|
TC MARKTYPE # SEE IF SURFACE MARK
|
||||||
TCF DSPV6N79 # IT IS
|
TCF DSPV6N79 # IT IS
|
||||||
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
|
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
|
||||||
|
|
||||||
# Page 257
|
# Page 257
|
||||||
MKREJ TC MARKTYPE # SEE IF SURFACE
|
MKREJ TC MARKTYPE # SEE IF SURFACE
|
||||||
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
|
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
|
||||||
|
|
||||||
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE
|
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
CCS A
|
CCS A
|
||||||
@ -537,7 +537,7 @@ MKREJ TC MARKTYPE # SEE IF SURFACE
|
|||||||
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM
|
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM
|
||||||
OCT 115
|
OCT 115
|
||||||
TC RESUME # DESIRED ACTION DISPLAYED
|
TC RESUME # DESIRED ACTION DISPLAYED
|
||||||
|
|
||||||
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
|
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
|
||||||
MASK MARKSTAT # LAST REJECT
|
MASK MARKSTAT # LAST REJECT
|
||||||
AD BIT13
|
AD BIT13
|
||||||
@ -545,15 +545,15 @@ REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
|
|||||||
MASK BIT13
|
MASK BIT13
|
||||||
CCS A
|
CCS A
|
||||||
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
|
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
|
||||||
|
|
||||||
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D
|
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D
|
||||||
RENEWMK MASK MARKSTAT
|
RENEWMK MASK MARKSTAT
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
TCF REMARK # GO REQUEST NEW MARK ACTION
|
TCF REMARK # GO REQUEST NEW MARK ACTION
|
||||||
|
|
||||||
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN
|
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN
|
||||||
TCF RENEWMK
|
TCF RENEWMK
|
||||||
|
|
||||||
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
|
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
|
||||||
TCF +2
|
TCF +2
|
||||||
TCF REJALM # NO MARKS TO REJECT -- ALARM
|
TCF REJALM # NO MARKS TO REJECT -- ALARM
|
||||||
@ -568,14 +568,14 @@ MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ******
|
|||||||
CCS A
|
CCS A
|
||||||
INCR Q # IF SURFACE MARK RETURN TO LOC +1
|
INCR Q # IF SURFACE MARK RETURN TO LOC +1
|
||||||
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
|
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
|
||||||
|
|
||||||
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
|
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
|
||||||
TS RUPTREG1
|
TS RUPTREG1
|
||||||
|
|
||||||
CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
|
CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
|
||||||
MASK PRIO3 # FOR MARKCHEX
|
MASK PRIO3 # FOR MARKCHEX
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
|
|
||||||
VACSTOR CAF LOW9
|
VACSTOR CAF LOW9
|
||||||
MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
|
MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
|
||||||
TS RUPTREG2
|
TS RUPTREG2
|
||||||
@ -600,7 +600,7 @@ VACSTOR CAF LOW9
|
|||||||
TS 4 # STORE CDUX
|
TS 4 # STORE CDUX
|
||||||
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB
|
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB
|
||||||
TCF SURFJOB
|
TCF SURFJOB
|
||||||
|
|
||||||
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
|
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
|
||||||
AD XYMARK # SET MARK ID IN MARKSTAT
|
AD XYMARK # SET MARK ID IN MARKSTAT
|
||||||
COM
|
COM
|
||||||
@ -609,7 +609,7 @@ VACSTOR CAF LOW9
|
|||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
MASK PRIO3 # SEE IF X, Y MARK MADE
|
MASK PRIO3 # SEE IF X, Y MARK MADE
|
||||||
TS L
|
TS L
|
||||||
|
|
||||||
# Page 259
|
# Page 259
|
||||||
CA PRIO3
|
CA PRIO3
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -620,7 +620,7 @@ VACSTOR CAF LOW9
|
|||||||
MASK BIT14
|
MASK BIT14
|
||||||
ADS MARKSTAT
|
ADS MARKSTAT
|
||||||
TCF REMARK # GO DISPLAY V54
|
TCF REMARK # GO DISPLAY V54
|
||||||
|
|
||||||
# Page 260
|
# Page 260
|
||||||
REMARK CAF PRIO3 # BITS 10 AND 11
|
REMARK CAF PRIO3 # BITS 10 AND 11
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
@ -631,15 +631,15 @@ SURFJOB CAF PRIO15
|
|||||||
TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
|
TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
|
||||||
EBANK= XYMARK # REQUEST NEXT ACTION
|
EBANK= XYMARK # REQUEST NEXT ACTION
|
||||||
2CADR CHANGEVB
|
2CADR CHANGEVB
|
||||||
|
|
||||||
TC RESUME
|
TC RESUME
|
||||||
|
|
||||||
CHANGEVB TC MARKTYPE
|
CHANGEVB TC MARKTYPE
|
||||||
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79
|
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79
|
||||||
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX
|
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX
|
||||||
CAF MKVB54
|
CAF MKVB54
|
||||||
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
|
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
|
||||||
|
|
||||||
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
|
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
|
||||||
|
|
||||||
MKVB54 VN 5471 # MAKE X OR Y MARK
|
MKVB54 VN 5471 # MAKE X OR Y MARK
|
||||||
@ -655,11 +655,11 @@ V06N79* VN 679
|
|||||||
# Page 261
|
# Page 261
|
||||||
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
|
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
|
||||||
COUNT* $$/R59
|
COUNT* $$/R59
|
||||||
|
|
||||||
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
|
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR GOMARKF
|
CADR GOMARKF
|
||||||
|
|
||||||
TCF KILLAOT # V34 -- DOES GOTOP00H
|
TCF KILLAOT # V34 -- DOES GOTOP00H
|
||||||
TCF SURFEND # V33 -- PROCEED, END MARKING
|
TCF SURFEND # V33 -- PROCEED, END MARKING
|
||||||
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
|
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
|
||||||
@ -667,19 +667,19 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
|
|||||||
CCS A # RE-DISPLAY V06N79
|
CCS A # RE-DISPLAY V06N79
|
||||||
TCF SURFAGAN # VB32 -- RECYCLE
|
TCF SURFAGAN # VB32 -- RECYCLE
|
||||||
TCF DSPV6N79 # ENTER
|
TCF DSPV6N79 # ENTER
|
||||||
|
|
||||||
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
|
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
|
||||||
MASK MARKSTAT
|
MASK MARKSTAT
|
||||||
AD BIT14
|
AD BIT14
|
||||||
TS MARKSTAT
|
TS MARKSTAT
|
||||||
|
|
||||||
SURFAGAN CA CURSOR
|
SURFAGAN CA CURSOR
|
||||||
INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
|
INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
|
||||||
TS 1 # STORE CURSOR SP 2COMP
|
TS 1 # STORE CURSOR SP 2COMP
|
||||||
CA SPIRAL
|
CA SPIRAL
|
||||||
INDEX MKDEX
|
INDEX MKDEX
|
||||||
TS 3 # STORE SPIRAL
|
TS 3 # STORE SPIRAL
|
||||||
|
|
||||||
CS MARKSTAT # IF BIT 14 SET -- END MARKING
|
CS MARKSTAT # IF BIT 14 SET -- END MARKING
|
||||||
MASK BIT14
|
MASK BIT14
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -692,4 +692,4 @@ SURFAGAN CA CURSOR
|
|||||||
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM
|
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM
|
||||||
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER
|
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER
|
||||||
TCF GETMKS +3 # GO DISPLAY MARK VB
|
TCF GETMKS +3 # GO DISPLAY MARK VB
|
||||||
|
|
||||||
|
|||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 843
|
# Page 843
|
||||||
BANK 34
|
BANK 34
|
||||||
@ -446,7 +446,7 @@ CHECKYAW SET
|
|||||||
EXITVR1
|
EXITVR1
|
||||||
GOTO
|
GOTO
|
||||||
KEEPVR
|
KEEPVR
|
||||||
|
|
||||||
BANK 5
|
BANK 5
|
||||||
SETLOC ASENT3
|
SETLOC ASENT3
|
||||||
BANK
|
BANK
|
||||||
@ -568,7 +568,7 @@ V16N85C VN 1685
|
|||||||
SETLOC ASENT1
|
SETLOC ASENT1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/ASENT
|
COUNT* $$/ASENT
|
||||||
|
|
||||||
YCOMP VLOAD DOT
|
YCOMP VLOAD DOT
|
||||||
UNIT/R/
|
UNIT/R/
|
||||||
QAXIS
|
QAXIS
|
||||||
@ -576,7 +576,7 @@ YCOMP VLOAD DOT
|
|||||||
RCO
|
RCO
|
||||||
STORE Y
|
STORE Y
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
BANK 30
|
BANK 30
|
||||||
SETLOC ASENT
|
SETLOC ASENT
|
||||||
BANK
|
BANK
|
||||||
|
|||||||
@ -33,7 +33,7 @@
|
|||||||
# FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
|
# FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
|
||||||
# USING PROGRAM LUMINARY
|
# USING PROGRAM LUMINARY
|
||||||
|
|
||||||
# THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY, MASSACHUSETTS INSTITUTE OF
|
# THIS PROGRAM AND R-567 HAVE BEEN PREPARED BY THE INSTRUMENTATION LABORATORY, MASSACHUSETTS INSTITUTE OF
|
||||||
# TECHNOLOGY, 75 CAMBRIDGE PARKWAY, CAMBRIDGE, MASSACHUSETTS, UNDER PROJECT 55-238-70, SPONSORED BY THE MANNED
|
# TECHNOLOGY, 75 CAMBRIDGE PARKWAY, CAMBRIDGE, MASSACHUSETTS, UNDER PROJECT 55-238-70, SPONSORED BY THE MANNED
|
||||||
# SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION, CONTRACT NAS 9-4065.
|
# SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION, CONTRACT NAS 9-4065.
|
||||||
|
|
||||||
@ -179,7 +179,7 @@
|
|||||||
# 14 MONITOR OCTAL COMP 1,2 IN R1,R2
|
# 14 MONITOR OCTAL COMP 1,2 IN R1,R2
|
||||||
# 15 MONITOR OCTAL COMP 1,2,3 IN R1,R2,R3
|
# 15 MONITOR OCTAL COMP 1,2,3 IN R1,R2,R3
|
||||||
# 16 MONITOR DECIMAL IN R1 OR R1,R2 OR R1,R2,R3
|
# 16 MONITOR DECIMAL IN R1 OR R1,R2 OR R1,R2,R3
|
||||||
# 17 MONITOR DP DECIMAL IN R1,R2 (TEST ONLY)
|
# 17 MONITOR DP DECIMAL IN R1,R2 (TEST ONLY)
|
||||||
# 18
|
# 18
|
||||||
# 19
|
# 19
|
||||||
# 20
|
# 20
|
||||||
@ -842,7 +842,7 @@
|
|||||||
# (B IS A BLANK 1 UNIT OF XX
|
# (B IS A BLANK 1 UNIT OF XX
|
||||||
# POSITION. DECIMAL BIT 1 OF LOW REGISTER =
|
# POSITION. DECIMAL BIT 1 OF LOW REGISTER =
|
||||||
# ONLY, DISPLAY OR 1 UNIT OF YY
|
# ONLY, DISPLAY OR 1 UNIT OF YY
|
||||||
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
|
# MONITOR ONLY. CANNOT (EACH REGISTER MUST
|
||||||
# BE LOADED.) CONTAIN A POSITIVE INTEGER
|
# BE LOADED.) CONTAIN A POSITIVE INTEGER
|
||||||
# (MAX 99B99) LESS THAN 100)
|
# (MAX 99B99) LESS THAN 100)
|
||||||
|
|
||||||
@ -899,7 +899,7 @@
|
|||||||
|
|
||||||
# CODE * TYPE SET BY
|
# CODE * TYPE SET BY
|
||||||
|
|
||||||
# 00105 ** AOTMARK SYSTEM IN USE
|
# 00105 ** AOTMARK SYSTEM IN USE
|
||||||
# 00107 MORE THAN 5 MARK PAIRS AOTMARK
|
# 00107 MORE THAN 5 MARK PAIRS AOTMARK
|
||||||
# 00111 MARK MISSING AOTMARK
|
# 00111 MARK MISSING AOTMARK
|
||||||
# 00112 MARK OR MARK REJECT NOT BEING ACCEPTED AOTMARK
|
# 00112 MARK OR MARK REJECT NOT BEING ACCEPTED AOTMARK
|
||||||
@ -948,7 +948,7 @@
|
|||||||
|
|
||||||
# 00602 PERIGEE ALTITUDE CDH LT PMIN2 P32, P72.
|
# 00602 PERIGEE ALTITUDE CDH LT PMIN2 P32, P72.
|
||||||
# 00603 CSI TO CDH TIME LT TMIN12 P32, P72, P33, P73
|
# 00603 CSI TO CDH TIME LT TMIN12 P32, P72, P33, P73
|
||||||
# 00604 CDH TO TPI TIME LT TMIN23 P32, P72,
|
# 00604 CDH TO TPI TIME LT TMIN23 P32, P72,
|
||||||
# OR COMPUTED CDH TIME GREATER THAN INPUT TP1 TIME
|
# OR COMPUTED CDH TIME GREATER THAN INPUT TP1 TIME
|
||||||
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32, P72
|
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32, P72
|
||||||
# 00606 DV EXCEEDS MAXIMUM P32, P72
|
# 00606 DV EXCEEDS MAXIMUM P32, P72
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 342-363
|
# Pages: 342-363
|
||||||
# Mod history: 2009-05-16 RSB Adapted from the corresponding
|
# Mod history: 2009-05-16 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from
|
# This source code has been transcribed or otherwise adapted from
|
||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 342
|
# Page 342
|
||||||
# BLOCK 2 LGC ATTITUDE MANEUVER ROUTINE -- KALCMANU
|
# BLOCK 2 LGC ATTITUDE MANEUVER ROUTINE -- KALCMANU
|
||||||
@ -35,7 +35,7 @@
|
|||||||
#
|
#
|
||||||
# KALCMANU IS A ROUTINE WHICH GENERATES COMMANDS FOR THE LM DAP TO CHANGE THE ATTITUDE OF THE SPACECRAFT
|
# KALCMANU IS A ROUTINE WHICH GENERATES COMMANDS FOR THE LM DAP TO CHANGE THE ATTITUDE OF THE SPACECRAFT
|
||||||
# DURING FREE FALL. IT IS DESIGNED TO MANEUVER THE SPACECRAFT FROM ITS INITIAL ORIENTATION TO SOME DESIRED
|
# DURING FREE FALL. IT IS DESIGNED TO MANEUVER THE SPACECRAFT FROM ITS INITIAL ORIENTATION TO SOME DESIRED
|
||||||
# ORIENTATION SPECIFIED BY THE PROGRAM WHICH CALLS KALCMANU, AVOIDING GIMBAL LOCK IN THE PROCESS. IN THE
|
# ORIENTATION SPECIFIED BY THE PROGRAM WHICH CALLS KALCMANU, AVOIDING GIMBAL LOCK IN THE PROCESS. IN THE
|
||||||
# MOD 2 VERSION, THIS DESIRED ATTITUDE IS SPECIFIED BY A SET OF OF THREE COMMANDED CDU ANGLES STORES AS 2'S COMPLEMENT
|
# MOD 2 VERSION, THIS DESIRED ATTITUDE IS SPECIFIED BY A SET OF OF THREE COMMANDED CDU ANGLES STORES AS 2'S COMPLEMENT
|
||||||
# SINGLE PRECISION ANGLES IN THE THREE CONSECUTIVE LOCATIONS, CPHI, CTHETA, CPSI, WHERE
|
# SINGLE PRECISION ANGLES IN THE THREE CONSECUTIVE LOCATIONS, CPHI, CTHETA, CPSI, WHERE
|
||||||
#
|
#
|
||||||
@ -48,7 +48,7 @@
|
|||||||
#
|
#
|
||||||
# WITH THIS INFORMATION KALCMANU DETERMINES THE DIRECTION OF THE SINGLE EQUIVALENT 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
|
||||||
# _
|
# _
|
||||||
# MANEUVER. ONCE COF AND AM HAVE BEEN DETERMINED, KALCMANU THEN EXAMINES THE MANEUVER TO SEE IF IT WILL BRING
|
# MANEUVER. ONCE COF AND AM HAVE BEEN DETERMINED, KALCMANU THEN EXAMINES THE MANEUVER TO SEE IF IT WILL BRING
|
||||||
# _
|
# _
|
||||||
@ -103,7 +103,7 @@
|
|||||||
# P AXIS YAW WILL BE NECESSARY, A SWITCH IS RESET (STATE SWITCH 31) TO ALLOW FOR THE COMPUTATION OF THIS FINAL
|
# P AXIS YAW WILL BE NECESSARY, A SWITCH IS RESET (STATE SWITCH 31) TO ALLOW FOR THE COMPUTATION OF THIS FINAL
|
||||||
# YAW.
|
# YAW.
|
||||||
#
|
#
|
||||||
# AS STATED PREVIOUSLY, KALCMANU GENERATES A SEQUENCE OF DESIRED GIMBAL ANGLES WHICH ARE UPDATED EVERY
|
# AS STATED PREVIOUSLY, KALCMANU GENERATES A SEQUENCE OF DESIRED GIMBAL ANGLES WHICH ARE UPDATED EVERY
|
||||||
# _
|
# _
|
||||||
# SECOND. THIS IS ACCOMPLISHED BY A SMALL ROTATION OF THE DESIRED S/C FRAME ABOUT THE VECTOR COF. THE NEW
|
# SECOND. THIS IS ACCOMPLISHED BY A SMALL ROTATION OF THE DESIRED S/C FRAME ABOUT THE VECTOR COF. THE NEW
|
||||||
# DESIRED REFERENCE MATRIX IS THEN,
|
# DESIRED REFERENCE MATRIX IS THEN,
|
||||||
@ -115,7 +115,7 @@
|
|||||||
# *
|
# *
|
||||||
# FROM MIS.
|
# FROM MIS.
|
||||||
#
|
#
|
||||||
# AT THE BEGINNING OF THE MANEUVER THE AUTOPILOT DESIRED RATES (OMEGAPD, OMEGAQD, OMEGARD) AND THE
|
# AT THE BEGINNING OF THE MANEUVER THE AUTOPILOT DESIRED RATES (OMEGAPD, OMEGAQD, OMEGARD) AND THE
|
||||||
# MANEUVER TIMINGS ARE ESTABLISHED. ON THE FIRST PASS AND ON ALL SUBSEQUENT UPDATES THE CDU DESIRED
|
# MANEUVER TIMINGS ARE ESTABLISHED. ON THE FIRST PASS AND ON ALL SUBSEQUENT UPDATES THE CDU DESIRED
|
||||||
# ANGLES ARE LOADED WITH THE APPROPRIATE VALUES AND THE INCREMENTAL CDU ANGLES ARE COMPUTED. THE AGC CLOCKS
|
# ANGLES ARE LOADED WITH THE APPROPRIATE VALUES AND THE INCREMENTAL CDU ANGLES ARE COMPUTED. THE AGC CLOCKS
|
||||||
# (TIME1 AND TIME2) ARE THEN CHECKED TO SEE IF THE MANEUVER WILL TERMINATE BEFORE THE NEXT UPDATE. IF
|
# (TIME1 AND TIME2) ARE THEN CHECKED TO SEE IF THE MANEUVER WILL TERMINATE BEFORE THE NEXT UPDATE. IF
|
||||||
@ -129,7 +129,7 @@
|
|||||||
# CALLING SEQUENCE
|
# CALLING SEQUENCE
|
||||||
#
|
#
|
||||||
# IN ORDER TO PERFORM A KALCMANU SUPERVISED MANEUVER, THE COMMANDED GIMBAL ANGLES MUST BE PRECOMPUTED AND
|
# IN ORDER TO PERFORM A KALCMANU SUPERVISED MANEUVER, THE COMMANDED GIMBAL ANGLES MUST BE PRECOMPUTED AND
|
||||||
# STORED IN LOCATIONS CPHI, CTHETA, CPSI. THE USER'S PROGRAM MUST THEN CLEAR STATE SWITCH NO 33 TO ALLOW THE
|
# STORED IN LOCATIONS CPHI, CTHETA, CPSI. THE USER'S PROGRAM MUST THEN CLEAR STATE SWITCH NO 33 TO ALLOW THE
|
||||||
# ATTITUDE MANEUVER ROUTINE TO PERFORM ANY FINAL P-AXIS YAW INCURRED BY AVOIDING GIMBAL LOCK. THE MANEUVER IS
|
# ATTITUDE MANEUVER ROUTINE TO PERFORM ANY FINAL P-AXIS YAW INCURRED BY AVOIDING GIMBAL LOCK. THE MANEUVER IS
|
||||||
# THEN INITIATED BY ESTABLISHING THE FOLLOWING EXECUTIVE JOB
|
# THEN INITIATED BY ESTABLISHING THE FOLLOWING EXECUTIVE JOB
|
||||||
# *
|
# *
|
||||||
@ -186,7 +186,7 @@
|
|||||||
# --------
|
# --------
|
||||||
#
|
#
|
||||||
# THIS ROUTINE TRANSPOSES A 3X3 MATRIX AND LEAVES THE RESULT IN THE PUSH DOWN LIST, I.E.,
|
# THIS ROUTINE TRANSPOSES A 3X3 MATRIX AND LEAVES THE RESULT IN THE PUSH DOWN LIST, I.E.,
|
||||||
#
|
#
|
||||||
# * * T
|
# * * T
|
||||||
# M = M1
|
# M = M1
|
||||||
#
|
#
|
||||||
@ -220,7 +220,7 @@
|
|||||||
#
|
#
|
||||||
# M = -SINY COSZ
|
# M = -SINY COSZ
|
||||||
# 6
|
# 6
|
||||||
#
|
#
|
||||||
# M = SINY SINZ COSX + COSY SINX
|
# M = SINY SINZ COSX + COSY SINX
|
||||||
# 7
|
# 7
|
||||||
# Page 346
|
# Page 346
|
||||||
@ -346,7 +346,7 @@
|
|||||||
# THE LOCATION CALLED DEL. IN ORDER TO USE THE ROUTINE, THE CALLING PROGRAM MUST FIRST STORE U (A HALF UNIT
|
# THE LOCATION CALLED DEL. IN ORDER TO USE THE ROUTINE, THE CALLING PROGRAM MUST FIRST STORE U (A HALF UNIT
|
||||||
# DOUBLE PRECISION VECTOR) IN THE SET OF ERASABLE LOCATIONS BEGINNING WITH THE ADDRESS CALLED COF. THE ANGLE, A,
|
# DOUBLE PRECISION VECTOR) IN THE SET OF ERASABLE LOCATIONS BEGINNING WITH THE ADDRESS CALLED COF. THE ANGLE, A,
|
||||||
# MUST THEN BE LOADED INTO D(MPAC).
|
# MUST THEN BE LOADED INTO D(MPAC).
|
||||||
#
|
#
|
||||||
# INTERNALLY, THE PROGRAM ALSO USES THE FIRST 10 LOCATIONS OF THE PUSH DOWN LIST.
|
# INTERNALLY, THE PROGRAM ALSO USES THE FIRST 10 LOCATIONS OF THE PUSH DOWN LIST.
|
||||||
#
|
#
|
||||||
# READCDUK
|
# READCDUK
|
||||||
@ -419,9 +419,9 @@
|
|||||||
BANK 15
|
BANK 15
|
||||||
SETLOC KALCMON1
|
SETLOC KALCMON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
# THE THREE DESIRED CDU ANGLES MUST BE STORED AS SINGLE PRECISION TWO'S COMPLEMENT ANGLES IN THE THREE SUCCESSIVE
|
# THE THREE DESIRED CDU ANGLES MUST BE STORED AS SINGLE PRECISION TWO'S COMPLEMENT ANGLES IN THE THREE SUCCESSIVE
|
||||||
# LOCATIONS, CPHI, CTHETA, CPSI.
|
# LOCATIONS, CPHI, CTHETA, CPSI.
|
||||||
|
|
||||||
@ -475,7 +475,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
|
|||||||
STOVL TMFI +6
|
STOVL TMFI +6
|
||||||
STADR
|
STADR
|
||||||
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
|
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
|
||||||
|
|
||||||
# CALCULATE COFSKEW AND MFISYM
|
# CALCULATE COFSKEW AND MFISYM
|
||||||
|
|
||||||
DLOAD DSU
|
DLOAD DSU
|
||||||
@ -489,7 +489,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
|
|||||||
MFI +10D
|
MFI +10D
|
||||||
VDEF
|
VDEF
|
||||||
STORE COFSKEW # EQUALS MFISKEW
|
STORE COFSKEW # EQUALS MFISKEW
|
||||||
|
|
||||||
# CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
|
# CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
|
||||||
|
|
||||||
DLOAD DAD
|
DLOAD DAD
|
||||||
@ -508,7 +508,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
|
|||||||
CPHI # GO DIRECTLY INTO ATTITUDE HOLD
|
CPHI # GO DIRECTLY INTO ATTITUDE HOLD
|
||||||
STCALL CDUXD # ABOUT COMMANDED ANGLES
|
STCALL CDUXD # ABOUT COMMANDED ANGLES
|
||||||
TOOBADI # STOP RATE AND EXIT
|
TOOBADI # STOP RATE AND EXIT
|
||||||
|
|
||||||
CHECKMAX DLOAD DSU
|
CHECKMAX DLOAD DSU
|
||||||
AM
|
AM
|
||||||
MAXANG
|
MAXANG
|
||||||
@ -533,7 +533,7 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
|
|||||||
VAD VSR1
|
VAD VSR1
|
||||||
TMFI +12D
|
TMFI +12D
|
||||||
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
|
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
|
||||||
|
|
||||||
# CALCULATE COF
|
# CALCULATE COF
|
||||||
|
|
||||||
DLOAD SR1
|
DLOAD SR1
|
||||||
@ -560,7 +560,7 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
|
|||||||
SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2
|
SQRT VDEF # COFX = SQRT(MFISYM-CAM)/(1-CAM) $ROOT 2
|
||||||
UNIT
|
UNIT
|
||||||
STORE COF
|
STORE COF
|
||||||
|
|
||||||
# DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
|
# DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
|
||||||
|
|
||||||
COFMAXGO DLOAD DSU
|
COFMAXGO DLOAD DSU
|
||||||
@ -578,9 +578,9 @@ COFMAXGO DLOAD DSU
|
|||||||
COMP12 DLOAD DSU
|
COMP12 DLOAD DSU
|
||||||
COF +2
|
COF +2
|
||||||
COF +4
|
COF +4
|
||||||
BMN
|
BMN
|
||||||
METHOD3 # COFZ G COFY OR COFX
|
METHOD3 # COFZ G COFY OR COFX
|
||||||
|
|
||||||
METHOD2 DLOAD BPL # COFY MAX
|
METHOD2 DLOAD BPL # COFY MAX
|
||||||
COFSKEW +2 # UY
|
COFSKEW +2 # UY
|
||||||
U2POS
|
U2POS
|
||||||
@ -648,9 +648,9 @@ OKU31 DLOAD BPL
|
|||||||
BANK 13
|
BANK 13
|
||||||
SETLOC KALCMON2
|
SETLOC KALCMON2
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
|
MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
|
||||||
0 # AND LEAVES RESULT IN PD LIST
|
0 # AND LEAVES RESULT IN PD LIST
|
||||||
0,1 # AND MPAC
|
0,1 # AND MPAC
|
||||||
@ -663,7 +663,7 @@ MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
|
|||||||
VXM* PUSH
|
VXM* PUSH
|
||||||
0,2
|
0,2
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
# RETURN WITH MIXM2 IN PD LIST
|
# RETURN WITH MIXM2 IN PD LIST
|
||||||
|
|
||||||
TRANSPOS SETPD VLOAD* # TRANSPOS TRANSPOSES A 3X3 MATRIX
|
TRANSPOS SETPD VLOAD* # TRANSPOS TRANSPOSES A 3X3 MATRIX
|
||||||
@ -695,13 +695,13 @@ TRNSPSPD EXIT # ENTER WITH MATRIX AT 0 IN PD LIST
|
|||||||
# Page 357
|
# Page 357
|
||||||
TC INTPRET
|
TC INTPRET
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
BANK 15
|
BANK 15
|
||||||
SETLOC KALCMON1
|
SETLOC KALCMON1
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
|
|
||||||
MINANG 2DEC 0.00069375
|
MINANG 2DEC 0.00069375
|
||||||
|
|
||||||
MAXANG 2DEC 0.472222222
|
MAXANG 2DEC 0.472222222
|
||||||
@ -732,7 +732,7 @@ READCDUK CA CDUZ # LOAD T(MPAC) WITH CDU ANGLES
|
|||||||
EXTEND
|
EXTEND
|
||||||
DCA CDUX # AND CHANGE MODE TO TRIPLE PRECISION
|
DCA CDUX # AND CHANGE MODE TO TRIPLE PRECISION
|
||||||
TCF TLOAD +6
|
TCF TLOAD +6
|
||||||
|
|
||||||
CDUTODCM AXT,1 SSP
|
CDUTODCM AXT,1 SSP
|
||||||
OCT 3
|
OCT 3
|
||||||
S1
|
S1
|
||||||
@ -814,7 +814,7 @@ LOOPSIN SLOAD* RTB
|
|||||||
STADR
|
STADR
|
||||||
STORE 16D,2 # C8=-SIN(THETA)SIN(PHI)SIN(PSI)
|
STORE 16D,2 # C8=-SIN(THETA)SIN(PHI)SIN(PSI)
|
||||||
RVQ # +COS(THETA)COS(PHI)
|
RVQ # +COS(THETA)COS(PHI)
|
||||||
|
|
||||||
# CALCULATION OF THE MATRIX DEL......
|
# CALCULATION OF THE MATRIX DEL......
|
||||||
#
|
#
|
||||||
# * * __T *
|
# * * __T *
|
||||||
@ -834,7 +834,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
|
|||||||
DPHALF
|
DPHALF
|
||||||
SIGNMPAC
|
SIGNMPAC
|
||||||
PDDL # PDA = 1-COS(A)
|
PDDL # PDA = 1-COS(A)
|
||||||
|
|
||||||
# COMPUTE THE DIAGONAL COMPONENTS OF DEL
|
# COMPUTE THE DIAGONAL COMPONENTS OF DEL
|
||||||
|
|
||||||
COF
|
COF
|
||||||
@ -859,10 +859,10 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
|
|||||||
4
|
4
|
||||||
DAD SL3
|
DAD SL3
|
||||||
2
|
2
|
||||||
BOVB
|
BOVB
|
||||||
SIGNMPAC
|
SIGNMPAC
|
||||||
STORE KEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
|
STORE KEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
|
||||||
|
|
||||||
# COMPUTE THE OFF DIAGONAL TERMS OF DEL
|
# COMPUTE THE OFF DIAGONAL TERMS OF DEL
|
||||||
|
|
||||||
DLOAD DMP
|
DLOAD DMP
|
||||||
@ -918,7 +918,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
|
|||||||
SIGNMPAC
|
SIGNMPAC
|
||||||
STORE KEL +10D # UY UZ (1-COS(A)) -UX SIN(A)
|
STORE KEL +10D # UY UZ (1-COS(A)) -UX SIN(A)
|
||||||
RVQ
|
RVQ
|
||||||
|
|
||||||
# DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
|
# DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
|
||||||
# X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2).
|
# X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2).
|
||||||
# LEAVE CDU ANGLES SCALED 2PI IN V(MPAC).
|
# LEAVE CDU ANGLES SCALED 2PI IN V(MPAC).
|
||||||
@ -1004,24 +1004,24 @@ VECOFANG VDEF RVQ
|
|||||||
TOOBADF EXIT
|
TOOBADF EXIT
|
||||||
TC ALARM
|
TC ALARM
|
||||||
OCT 00401
|
OCT 00401
|
||||||
|
|
||||||
TCF NOGO # DO NOT ZERO ATTITUDE ERRORS
|
TCF NOGO # DO NOT ZERO ATTITUDE ERRORS
|
||||||
|
|
||||||
TC BANKCALL
|
TC BANKCALL
|
||||||
CADR ZATTEROR # ZERO ATTITUDE ERRORS
|
CADR ZATTEROR # ZERO ATTITUDE ERRORS
|
||||||
|
|
||||||
NOGO TC BANKCALL
|
NOGO TC BANKCALL
|
||||||
CADR STOPRATE # STOP RATES
|
CADR STOPRATE # STOP RATES
|
||||||
|
|
||||||
CAF TWO
|
CAF TWO
|
||||||
INHINT # ALL RETURNS ARE NOW MADE VIA GOODEND
|
INHINT # ALL RETURNS ARE NOW MADE VIA GOODEND
|
||||||
TC WAITLIST
|
TC WAITLIST
|
||||||
EBANK= BCDU
|
EBANK= BCDU
|
||||||
2CADR GOODMANU
|
2CADR GOODMANU
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
TOOBADI EXIT
|
TOOBADI EXIT
|
||||||
TCF NOGO
|
TCF NOGO
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 731-751
|
# Pages: 731-751
|
||||||
# Mod history: 2009-05-19 RSB Adapted from the corresponding
|
# Mod history: 2009-05-19 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
# 2009-06-07 RSB Corrected 3 typos.
|
# 2009-06-07 RSB Corrected 3 typos.
|
||||||
# 2009-07-23 RSB Added Onno's notes on the naming
|
# 2009-07-23 RSB Added Onno's notes on the naming
|
||||||
@ -28,7 +28,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 731
|
# Page 731
|
||||||
## At the get-together of the AGC developers celebrating the 40th anniversary
|
## At the get-together of the AGC developers celebrating the 40th anniversary
|
||||||
@ -36,11 +36,11 @@
|
|||||||
## with Peter Adler) has related to us a little interesting history behind the
|
## with Peter Adler) has related to us a little interesting history behind the
|
||||||
## naming of the routine.
|
## naming of the routine.
|
||||||
##
|
##
|
||||||
## It traces back to 1965 and the Los Angeles riots, and was inspired
|
## It traces back to 1965 and the Los Angeles riots, and was inspired
|
||||||
## by disc jockey extraordinaire and radio station owner Magnificent Montague.
|
## by disc jockey extraordinaire and radio station owner Magnificent Montague.
|
||||||
## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the
|
## Magnificent Montague used the phrase "Burn, baby! BURN!" when spinning the
|
||||||
## hottest new records. Magnificent Montague was the charismatic voice of
|
## hottest new records. Magnificent Montague was the charismatic voice of
|
||||||
## soul music in Chicago, New York, and Los Angeles from the mid-1950s to
|
## soul music in Chicago, New York, and Los Angeles from the mid-1950s to
|
||||||
## the mid-1960s.
|
## the mid-1960s.
|
||||||
# BURN, BABY, BURN -- MASTER IGNITION ROUTINE
|
# BURN, BABY, BURN -- MASTER IGNITION ROUTINE
|
||||||
|
|
||||||
@ -363,7 +363,7 @@ TIG-5 EXTEND
|
|||||||
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
|
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES ASTNFLAG
|
ADRES ASTNFLAG
|
||||||
|
|
||||||
INDEX WHICH
|
INDEX WHICH
|
||||||
TCF 11
|
TCF 11
|
||||||
|
|
||||||
@ -380,7 +380,7 @@ P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
|
|||||||
DISPCHNG CS VB99DEX # (11)
|
DISPCHNG CS VB99DEX # (11)
|
||||||
TS DISPDEX
|
TS DISPDEX
|
||||||
|
|
||||||
# Page 738
|
# Page 738
|
||||||
COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
|
COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
|
||||||
OCT 40074
|
OCT 40074
|
||||||
TCF TASKOVER
|
TCF TASKOVER
|
||||||
@ -449,11 +449,11 @@ P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
|
|||||||
CS FLAGWRD9 # SET FLAG FOR P70-P71
|
CS FLAGWRD9 # SET FLAG FOR P70-P71
|
||||||
MASK LETABBIT
|
MASK LETABBIT
|
||||||
ADS FLAGWRD9
|
ADS FLAGWRD9
|
||||||
|
|
||||||
CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
|
CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
|
||||||
MASK SWANDBIT
|
MASK SWANDBIT
|
||||||
ADS FLAGWRD7
|
ADS FLAGWRD7
|
||||||
|
|
||||||
CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
|
CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
|
||||||
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
|
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
|
||||||
TS DAPBOOLS
|
TS DAPBOOLS
|
||||||
@ -680,7 +680,7 @@ STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
|
|||||||
DXCH MPAC
|
DXCH MPAC
|
||||||
EXTEND
|
EXTEND
|
||||||
DCS TIME2
|
DCS TIME2
|
||||||
# Page 744
|
# Page 744
|
||||||
DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER
|
DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER
|
||||||
TC TPAGREE # POSITIVE, SINCE WE PASSED THE
|
TC TPAGREE # POSITIVE, SINCE WE PASSED THE
|
||||||
CAF 1SEC # 45 SECOND CHECK.
|
CAF 1SEC # 45 SECOND CHECK.
|
||||||
@ -726,7 +726,7 @@ CLOKJOB EXTEND
|
|||||||
DCS TIG
|
DCS TIG
|
||||||
DXCH TTOGO
|
DXCH TTOGO
|
||||||
EXTEND
|
EXTEND
|
||||||
# Page 745
|
# Page 745
|
||||||
DCA TIME2
|
DCA TIME2
|
||||||
DAS TTOGO
|
DAS TTOGO
|
||||||
INHINT
|
INHINT
|
||||||
|
|||||||
@ -98,7 +98,7 @@
|
|||||||
# * +27 FOR MOON *
|
# * +27 FOR MOON *
|
||||||
# Page 1161
|
# Page 1161
|
||||||
# VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
|
# VRECT * +7 FOR EARTH * DP INITIAL VELOCITY VECTOR IN METERS/CENTISECOND
|
||||||
# * +5 FOR MOON *
|
# * +5 FOR MOON *
|
||||||
# X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
|
# X1 (38D) * NONE * INDEX REGISTER SET TO -2D OR -10D ACCORDING TO WHETHER THE EARTH OR MOON,
|
||||||
# * * 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)
|
||||||
@ -188,7 +188,7 @@
|
|||||||
# SGA MEMO 67-4.
|
# SGA MEMO 67-4.
|
||||||
#
|
#
|
||||||
# INPUT - ERASABLE INITIALIZATION REQUIRED
|
# INPUT - ERASABLE INITIALIZATION REQUIRED
|
||||||
#
|
#
|
||||||
# * SCALE FACTOR *
|
# * SCALE FACTOR *
|
||||||
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
|
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
|
||||||
# -------- *-------------- * -----------------------
|
# -------- *-------------- * -----------------------
|
||||||
@ -365,7 +365,7 @@
|
|||||||
# Page 1168
|
# Page 1168
|
||||||
# DEBRIS -
|
# DEBRIS -
|
||||||
# PARAMETERS WHICH MAY BE OF USE -
|
# PARAMETERS WHICH MAY BE OF USE -
|
||||||
#
|
#
|
||||||
# * SCALE FACTOR *
|
# * SCALE FACTOR *
|
||||||
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
|
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
|
||||||
# -------- *-------------- * -----------------------
|
# -------- *-------------- * -----------------------
|
||||||
@ -1641,7 +1641,7 @@ TIMERAD STQ SETPD # PL AT 0
|
|||||||
BADR2
|
BADR2
|
||||||
SQRT SIGN
|
SQRT SIGN
|
||||||
SGNRDOT
|
SGNRDOT
|
||||||
CLEAR
|
CLEAR
|
||||||
APSESW
|
APSESW
|
||||||
# Page 1199
|
# Page 1199
|
||||||
TERMNVEC VXSC VSL1
|
TERMNVEC VXSC VSL1
|
||||||
|
|||||||
@ -30,7 +30,7 @@
|
|||||||
SETLOC P40S
|
SETLOC P40S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P40
|
COUNT* $$/P40
|
||||||
|
|
||||||
# *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
|
# *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
|
||||||
|
|
||||||
FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
|
FDPS 2DEC 4.3670 B-7 # 9817.5 LBS FORCE IN NEWTONS
|
||||||
@ -48,7 +48,7 @@ FRCS2 2DEC 0.08896 B-7 # 200 LBS FORCE IN NEWTONS
|
|||||||
SETLOC P40S1
|
SETLOC P40S1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P40
|
COUNT* $$/P40
|
||||||
|
|
||||||
# *** APS IMPULSE DATA FOR P42 ***************************************
|
# *** APS IMPULSE DATA FOR P42 ***************************************
|
||||||
|
|
||||||
K1VAL 2DEC 124.55 B-23 # 2800 LB-SEC
|
K1VAL 2DEC 124.55 B-23 # 2800 LB-SEC
|
||||||
@ -75,7 +75,7 @@ S40.136_ 2DEC .4671 B+1 # S40.136 SHIFTED LEFT 10.
|
|||||||
|
|
||||||
K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
|
K(1/DV) 2DEC 436.70 B-9 # DPS ENGINE THRUST IN NEWTONS / 100 CS.
|
||||||
|
|
||||||
(AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
|
(AT)A 2DEC 3.2883 E-4 B9 # INITIAL ASC. STG. ACCELERATION ** M/CS.
|
||||||
# ASSUMPTIONS SAME AS FOR (1/DV)A.
|
# ASSUMPTIONS SAME AS FOR (1/DV)A.
|
||||||
(TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG.
|
(TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG.
|
||||||
# ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
|
# ASSUMPTIONS SAME AS FOR (1/DV)A WITH THE
|
||||||
@ -90,7 +90,7 @@ AT/RCS 2DEC .0000785 B+10 # 4 JETS IN A DRY LEM
|
|||||||
SETLOC SERVICES
|
SETLOC SERVICES
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/SERV
|
COUNT* $$/SERV
|
||||||
|
|
||||||
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
|
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
|
||||||
|
|
||||||
APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
|
APSVEX DEC -3030 E-2 B-5 # 9942 FT/SEC IN M/CS.
|
||||||
@ -101,7 +101,7 @@ DPSVEX DEC* -2.95588868 E+1 B-05* # VE (DPS) +2.95588868E+ 3
|
|||||||
SETLOC F2DPS*31
|
SETLOC F2DPS*31
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/F2DPS
|
COUNT* $$/F2DPS
|
||||||
|
|
||||||
TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
|
TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
|
||||||
|
|
||||||
# Page 40
|
# Page 40
|
||||||
@ -110,7 +110,7 @@ TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
|
|||||||
SETLOC P40S
|
SETLOC P40S
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P40
|
COUNT* $$/P40
|
||||||
|
|
||||||
THRESH1 DEC 24
|
THRESH1 DEC 24
|
||||||
THRESH3 DEC 12
|
THRESH3 DEC 12
|
||||||
HIRTHROT = BIT13
|
HIRTHROT = BIT13
|
||||||
@ -118,13 +118,13 @@ HIRTHROT = BIT13
|
|||||||
SETLOC FFTAG5
|
SETLOC FFTAG5
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P40
|
COUNT* $$/P40
|
||||||
|
|
||||||
THRESH2 DEC 308
|
THRESH2 DEC 308
|
||||||
|
|
||||||
SETLOC FTHROT
|
SETLOC FTHROT
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/THROT
|
COUNT* $$/THROT
|
||||||
|
|
||||||
FMAXODD DEC +3841 # FSAT +4.81454413 E+4
|
FMAXODD DEC +3841 # FSAT +4.81454413 E+4
|
||||||
FMAXPOS DEC +3467 # FMAX +4.34546769 E+4
|
FMAXPOS DEC +3467 # FMAX +4.34546769 E+4
|
||||||
THROTLAG DEC +20 # TAU (TH) +1.99999999 E-1
|
THROTLAG DEC +20 # TAU (TH) +1.99999999 E-1
|
||||||
@ -133,7 +133,7 @@ SCALEFAC 2DEC* +7.97959872 E+2 B-16* # BITPERF +7.97959872 E-2
|
|||||||
SETLOC F2DPS*32
|
SETLOC F2DPS*32
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/F2DPS
|
COUNT* $$/F2DPS
|
||||||
|
|
||||||
DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
|
DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
|
||||||
|
|
||||||
# Page 41
|
# Page 41
|
||||||
@ -142,25 +142,25 @@ DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
|
|||||||
SETLOC RADARUPT
|
SETLOC RADARUPT
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/RRUPT
|
COUNT* $$/RRUPT
|
||||||
|
|
||||||
LVELBIAS DEC -12288 # LANDING RADAR BIAS FOR 153.6 KC.
|
LVELBIAS DEC -12288 # LANDING RADAR BIAS FOR 153.6 KC.
|
||||||
RDOTBIAS 2DEC 17000 # BIAS COUNT FOR RR RANGE RATE.
|
RDOTBIAS 2DEC 17000 # BIAS COUNT FOR RR RANGE RATE.
|
||||||
|
|
||||||
SETLOC LRS22
|
SETLOC LRS22
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/LRS22
|
COUNT* $$/LRS22
|
||||||
|
|
||||||
RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
|
RDOTCONV 2DEC -.0019135344 B7 # CONVERTS RR RDOT READING TO M/CS AT 2(7)
|
||||||
RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
|
RANGCONV 2DEC 2.859024 B-3 # CONVERTS RR RANGE READING TO M. AT 2(-29
|
||||||
|
|
||||||
SETLOC SERVICES
|
SETLOC SERVICES
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/SERV
|
COUNT* $$/SERV
|
||||||
|
|
||||||
HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
|
HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
|
||||||
2DEC 0
|
2DEC 0
|
||||||
2DEC -.1741224271
|
2DEC -.1741224271
|
||||||
|
|
||||||
HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
|
HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
|
||||||
|
|
||||||
# ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *********
|
# ***** THE SEQUENCE OF THE FOLLOWING CONSTANTS MUST BE PRESERVED *********
|
||||||
@ -182,7 +182,7 @@ ARCONV1 2DEC 656.167979 B-10 # CONV. ALTRATE COMP. TO BIT UNITS<
|
|||||||
SETLOC R10
|
SETLOC R10
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R10
|
COUNT* $$/R10
|
||||||
|
|
||||||
ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
|
ARCONV OCT 24402 # 656.1679798B-10 CONV ALTRATE TO BIT UNIT
|
||||||
ARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.
|
ARTOA DEC .1066098 B-1 # .25/2.345 B-1 4X/SEC CYCLE RATE.
|
||||||
ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
|
ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
|
||||||
@ -193,7 +193,7 @@ MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
|
|||||||
SETLOC DAPS3
|
SETLOC DAPS3
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/DAPAO
|
COUNT* $$/DAPAO
|
||||||
|
|
||||||
TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
|
TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
|
||||||
|
|
||||||
# Page 43
|
# Page 43
|
||||||
@ -202,13 +202,13 @@ TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
|
|||||||
SETLOC FRANDRES
|
SETLOC FRANDRES
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/START
|
COUNT* $$/START
|
||||||
|
|
||||||
FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
|
FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
|
||||||
|
|
||||||
SETLOC LOADDAP1
|
SETLOC LOADDAP1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R03
|
COUNT* $$/R03
|
||||||
|
|
||||||
MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
|
MINLMD DEC -2850 B-16 # MIN. DESCENT STAGE MASS -- 2(16) KG.
|
||||||
MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
|
MINMINLM DEC -2200 B-16 # MIN ASCENT STAGE MASS -- 2(16) KG.
|
||||||
MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
|
MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
|
||||||
@ -216,7 +216,7 @@ MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
|
|||||||
SETLOC DAPS3
|
SETLOC DAPS3
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/DAPAD
|
COUNT* $$/DAPAD
|
||||||
|
|
||||||
LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
|
LOASCENT DEC 2200 B-16 # MIN ASCENT LEM MASS -- 2(16) KG.
|
||||||
HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
|
HIDESCNT DEC 15300 B-16 # MAX DESCENT LEM MASS -- 2(16) KG.
|
||||||
LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
|
LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
|
||||||
@ -227,7 +227,7 @@ LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
|
|||||||
SETLOC IMU2
|
SETLOC IMU2
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P07
|
COUNT* $$/P07
|
||||||
|
|
||||||
OMEG/MS 2DEC .24339048
|
OMEG/MS 2DEC .24339048
|
||||||
|
|
||||||
SETLOC R30LOC
|
SETLOC R30LOC
|
||||||
@ -244,20 +244,20 @@ OMEG/MS 2DEC .24339048
|
|||||||
SETLOC P40S1
|
SETLOC P40S1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/S40.9
|
COUNT* $$/S40.9
|
||||||
|
|
||||||
EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
|
EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
|
||||||
|
|
||||||
SETLOC ASENT1
|
SETLOC ASENT1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/P12
|
COUNT* $$/P12
|
||||||
|
|
||||||
MUM(-37) 2DEC* 4.9027780 E8 B-37*
|
MUM(-37) 2DEC* 4.9027780 E8 B-37*
|
||||||
MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
|
MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
|
||||||
|
|
||||||
SETLOC SERVICES
|
SETLOC SERVICES
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/SERV
|
COUNT* $$/SERV
|
||||||
|
|
||||||
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
|
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
|
||||||
|
|
||||||
-MUDT 2DEC* -7.9720645 E+12 B-44*
|
-MUDT 2DEC* -7.9720645 E+12 B-44*
|
||||||
@ -275,7 +275,7 @@ RESQ 2DEC* 40.6809913 E12 B-58*
|
|||||||
SETLOC P50S1
|
SETLOC P50S1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/LOSAM
|
COUNT* $$/LOSAM
|
||||||
|
|
||||||
RSUBEM 2DEC 384402000 B-29
|
RSUBEM 2DEC 384402000 B-29
|
||||||
RSUBM 2DEC 1738090 B-29
|
RSUBM 2DEC 1738090 B-29
|
||||||
RSUBE 2DEC 6378166 B-29
|
RSUBE 2DEC 6378166 B-29
|
||||||
@ -284,14 +284,14 @@ ROE 2DEC .00257125
|
|||||||
SETLOC CONICS1
|
SETLOC CONICS1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/LT-LG
|
COUNT* $$/LT-LG
|
||||||
|
|
||||||
ERAD 2DEC 6373338 B-29 # PAD RADIUS
|
ERAD 2DEC 6373338 B-29 # PAD RADIUS
|
||||||
504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
|
504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
|
||||||
|
|
||||||
SETLOC CONICS1
|
SETLOC CONICS1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/CONIC
|
COUNT* $$/CONIC
|
||||||
|
|
||||||
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED **************
|
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED **************
|
||||||
|
|
||||||
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
||||||
@ -302,20 +302,20 @@ MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
|
|||||||
2DEC* .203966 E-8 B+28* # 1/MUM
|
2DEC* .203966 E-8 B+28* # 1/MUM
|
||||||
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
|
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
|
||||||
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
|
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
|
||||||
|
|
||||||
# *************************************************************************
|
# *************************************************************************
|
||||||
|
|
||||||
# Page 46
|
# Page 46
|
||||||
SETLOC INTINIT
|
SETLOC INTINIT
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/INTIN
|
COUNT* $$/INTIN
|
||||||
|
|
||||||
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
|
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
|
||||||
|
|
||||||
SETLOC ORBITAL2
|
SETLOC ORBITAL2
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/ORBIT
|
COUNT* $$/ORBIT
|
||||||
|
|
||||||
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ************
|
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ************
|
||||||
|
|
||||||
2DEC* 1.32715445 E16 B-54*
|
2DEC* 1.32715445 E16 B-54*
|
||||||
@ -334,13 +334,13 @@ J2REQSQ 2DEC* 1.75501139 E21 B-72*
|
|||||||
SETLOC TOF-FF1
|
SETLOC TOF-FF1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/TFF
|
COUNT* $$/TFF
|
||||||
|
|
||||||
1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
|
1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
|
||||||
|
|
||||||
SETLOC SBAND
|
SETLOC SBAND
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/R05
|
COUNT* $$/R05
|
||||||
|
|
||||||
REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
|
REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
|
||||||
|
|
||||||
# Page 47
|
# Page 47
|
||||||
@ -349,167 +349,167 @@ REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
|
|||||||
SETLOC STARTAB
|
SETLOC STARTAB
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/STARS
|
COUNT* $$/STARS
|
||||||
|
|
||||||
2DEC +.8342971408 B-1 # STAR 37 X
|
2DEC +.8342971408 B-1 # STAR 37 X
|
||||||
2DEC -.2392481515 B-1 # STAR 37 Y
|
2DEC -.2392481515 B-1 # STAR 37 Y
|
||||||
2DEC -.4966976975 B-1 # STAR 37 Z
|
2DEC -.4966976975 B-1 # STAR 37 Z
|
||||||
|
|
||||||
2DEC +.8139832631 B-1 # STAR 36 X
|
2DEC +.8139832631 B-1 # STAR 36 X
|
||||||
2DEC -.5557243189 B-1 # STAR 36 Y
|
2DEC -.5557243189 B-1 # STAR 36 Y
|
||||||
2DEC +.1691204557 B-1 # STAR 36 Z
|
2DEC +.1691204557 B-1 # STAR 36 Z
|
||||||
|
|
||||||
2DEC +.4541086270 B-1 # STAR 35 X
|
2DEC +.4541086270 B-1 # STAR 35 X
|
||||||
2DEC -.5392368197 B-1 # STAR 35 Y
|
2DEC -.5392368197 B-1 # STAR 35 Y
|
||||||
2DEC +.7092312789 B-1 # STAR 35 Z
|
2DEC +.7092312789 B-1 # STAR 35 Z
|
||||||
|
|
||||||
2DEC +.3201817378 B-1 # STAR 34 X
|
2DEC +.3201817378 B-1 # STAR 34 X
|
||||||
2DEC -.4436021946 B-1 # STAR 34 Y
|
2DEC -.4436021946 B-1 # STAR 34 Y
|
||||||
2DEC -.8370786986 B-1 # STAR 34 Z
|
2DEC -.8370786986 B-1 # STAR 34 Z
|
||||||
|
|
||||||
2DEC +.5520184464 B-1 # STAR 33 X
|
2DEC +.5520184464 B-1 # STAR 33 X
|
||||||
2DEC -.7933187400 B-1 # STAR 33 Y
|
2DEC -.7933187400 B-1 # STAR 33 Y
|
||||||
2DEC -.2567508745 B-1 # STAR 33 Z
|
2DEC -.2567508745 B-1 # STAR 33 Z
|
||||||
|
|
||||||
2DEC +.4537196908 B-1 # STAR 32 X
|
2DEC +.4537196908 B-1 # STAR 32 X
|
||||||
2DEC -.8779508801 B-1 # STAR 32 Y
|
2DEC -.8779508801 B-1 # STAR 32 Y
|
||||||
2DEC +.1527766153 B-1 # STAR 32 Z
|
2DEC +.1527766153 B-1 # STAR 32 Z
|
||||||
|
|
||||||
2DEC +.2069525789 B-1 # STAR 31 X
|
2DEC +.2069525789 B-1 # STAR 31 X
|
||||||
2DEC -.8719885748 B-1 # STAR 31 Y
|
2DEC -.8719885748 B-1 # STAR 31 Y
|
||||||
2DEC -.4436288486 B-1 # STAR 31 Z
|
2DEC -.4436288486 B-1 # STAR 31 Z
|
||||||
|
|
||||||
2DEC +.1217293692 B-1 # STAR 30 X
|
2DEC +.1217293692 B-1 # STAR 30 X
|
||||||
2DEC -.7702732847 B-1 # STAR 30 Y
|
2DEC -.7702732847 B-1 # STAR 30 Y
|
||||||
# Page 48
|
# Page 48
|
||||||
2DEC +.6259880410 B-1 # STAR 30 Z
|
2DEC +.6259880410 B-1 # STAR 30 Z
|
||||||
|
|
||||||
2DEC -.1124304773 B-1 # STAR 29 X
|
2DEC -.1124304773 B-1 # STAR 29 X
|
||||||
2DEC -.9694934200 B-1 # STAR 29 Y
|
2DEC -.9694934200 B-1 # STAR 29 Y
|
||||||
2DEC +.2178116072 B-1 # STAR 29 Z
|
2DEC +.2178116072 B-1 # STAR 29 Z
|
||||||
|
|
||||||
2DEC -.1146237858 B-1 # STAR 28 X
|
2DEC -.1146237858 B-1 # STAR 28 X
|
||||||
2DEC -.3399692557 B-1 # STAR 28 Y
|
2DEC -.3399692557 B-1 # STAR 28 Y
|
||||||
2DEC -.9334250333 B-1 # STAR 28 Z
|
2DEC -.9334250333 B-1 # STAR 28 Z
|
||||||
|
|
||||||
2DEC -.3516499609 B-1 # STAR 27 X
|
2DEC -.3516499609 B-1 # STAR 27 X
|
||||||
2DEC -.8240752703 B-1 # STAR 27 Y
|
2DEC -.8240752703 B-1 # STAR 27 Y
|
||||||
2DEC -.4441196390 B-1 # STAR 27 Z
|
2DEC -.4441196390 B-1 # STAR 27 Z
|
||||||
|
|
||||||
2DEC -.5326876930 B-1 # STAR 26 X
|
2DEC -.5326876930 B-1 # STAR 26 X
|
||||||
2DEC -.7160644554 B-1 # STAR 26 Y
|
2DEC -.7160644554 B-1 # STAR 26 Y
|
||||||
2DEC +.4511047742 B-1 # STAR 26 Z
|
2DEC +.4511047742 B-1 # STAR 26 Z
|
||||||
|
|
||||||
2DEC -.7861763936 B-1 # STAR 25 X
|
2DEC -.7861763936 B-1 # STAR 25 X
|
||||||
2DEC -.5217996305 B-1 # STAR 25 Y
|
2DEC -.5217996305 B-1 # STAR 25 Y
|
||||||
2DEC +.3311371675 B-1 # STAR 25 Z
|
2DEC +.3311371675 B-1 # STAR 25 Z
|
||||||
|
|
||||||
2DEC -.6898393233 B-1 # STAR 24 X
|
2DEC -.6898393233 B-1 # STAR 24 X
|
||||||
2DEC -.4182330640 B-1 # STAR 24 Y
|
2DEC -.4182330640 B-1 # STAR 24 Y
|
||||||
2DEC -.5909338474 B-1 # STAR 24 Z
|
2DEC -.5909338474 B-1 # STAR 24 Z
|
||||||
|
|
||||||
2DEC -.5812035376 B-1 # STAR 23 X
|
2DEC -.5812035376 B-1 # STAR 23 X
|
||||||
2DEC -.2909171294 B-1 # STAR 23 Y
|
2DEC -.2909171294 B-1 # STAR 23 Y
|
||||||
2DEC +.7599800468 B-1 # STAR 23 Z
|
2DEC +.7599800468 B-1 # STAR 23 Z
|
||||||
|
|
||||||
2DEC -.9170097662 B-1 # STAR 22 X
|
2DEC -.9170097662 B-1 # STAR 22 X
|
||||||
2DEC -.3502146628 B-1 # STAR 22 Y
|
2DEC -.3502146628 B-1 # STAR 22 Y
|
||||||
2DEC -.1908999176 B-1 # STAR 22 Z
|
2DEC -.1908999176 B-1 # STAR 22 Z
|
||||||
|
|
||||||
# Page 49
|
# Page 49
|
||||||
2DEC -.4523440203 B-1 # STAR 21 X
|
2DEC -.4523440203 B-1 # STAR 21 X
|
||||||
2DEC -.0493710140 B-1 # STAR 21 Y
|
2DEC -.0493710140 B-1 # STAR 21 Y
|
||||||
2DEC -.8904759346 B-1 # STAR 21 Z
|
2DEC -.8904759346 B-1 # STAR 21 Z
|
||||||
|
|
||||||
2DEC -.9525211695 B-1 # STAR 20 X
|
2DEC -.9525211695 B-1 # STAR 20 X
|
||||||
2DEC -.0593434796 B-1 # STAR 20 Y
|
2DEC -.0593434796 B-1 # STAR 20 Y
|
||||||
2DEC -.2986331746 B-1 # STAR 20 Z
|
2DEC -.2986331746 B-1 # STAR 20 Z
|
||||||
|
|
||||||
2DEC -.9656605484 B-1 # STAR 19 X
|
2DEC -.9656605484 B-1 # STAR 19 X
|
||||||
2DEC +.0525933156 B-1 # STAR 19 Y
|
2DEC +.0525933156 B-1 # STAR 19 Y
|
||||||
2DEC +.2544280809 B-1 # STAR 19 Z
|
2DEC +.2544280809 B-1 # STAR 19 Z
|
||||||
|
|
||||||
2DEC -.8608205219 B-1 # STAR 18 X
|
2DEC -.8608205219 B-1 # STAR 18 X
|
||||||
2DEC +.4636213989 B-1 # STAR 18 Y
|
2DEC +.4636213989 B-1 # STAR 18 Y
|
||||||
2DEC +.2098647835 B-1 # STAR 18 Z
|
2DEC +.2098647835 B-1 # STAR 18 Z
|
||||||
|
|
||||||
2DEC -.7742591356 B-1 # STAR 17 X
|
2DEC -.7742591356 B-1 # STAR 17 X
|
||||||
2DEC +.6152504197 B-1 # STAR 17 Y
|
2DEC +.6152504197 B-1 # STAR 17 Y
|
||||||
2DEC -.1482892839 B-1 # STAR 17 Z
|
2DEC -.1482892839 B-1 # STAR 17 Z
|
||||||
|
|
||||||
2DEC -.4657947941 B-1 # STAR 16 X
|
2DEC -.4657947941 B-1 # STAR 16 X
|
||||||
2DEC +.4774785033 B-1 # STAR 16 Y
|
2DEC +.4774785033 B-1 # STAR 16 Y
|
||||||
2DEC +.7450164351 B-1 # STAR 16 Z
|
2DEC +.7450164351 B-1 # STAR 16 Z
|
||||||
|
|
||||||
2DEC -.3612508532 B-1 # STAR 15 X
|
2DEC -.3612508532 B-1 # STAR 15 X
|
||||||
2DEC +.5747270840 B-1 # STAR 15 Y
|
2DEC +.5747270840 B-1 # STAR 15 Y
|
||||||
2DEC -.7342932655 B-1 # STAR 15 Z
|
2DEC -.7342932655 B-1 # STAR 15 Z
|
||||||
|
|
||||||
2DEC -.4118589524 B-1 # STAR 14 X
|
2DEC -.4118589524 B-1 # STAR 14 X
|
||||||
2DEC +.9065485360 B-1 # STAR 14 Y
|
2DEC +.9065485360 B-1 # STAR 14 Y
|
||||||
2DEC +.0924226975 B-1 # STAR 14 Z
|
2DEC +.0924226975 B-1 # STAR 14 Z
|
||||||
|
|
||||||
2DEC -.1820751783 B-1 # STAR 13 X
|
2DEC -.1820751783 B-1 # STAR 13 X
|
||||||
# Page 50
|
# Page 50
|
||||||
2DEC +.9404899869 B-1 # STAR 13 Y
|
2DEC +.9404899869 B-1 # STAR 13 Y
|
||||||
2DEC -.2869271926 B-1 # STAR 13 Z
|
2DEC -.2869271926 B-1 # STAR 13 Z
|
||||||
|
|
||||||
2DEC -.0614937230 B-1 # STAR 12 X
|
2DEC -.0614937230 B-1 # STAR 12 X
|
||||||
2DEC +.6031563286 B-1 # STAR 12 Y
|
2DEC +.6031563286 B-1 # STAR 12 Y
|
||||||
2DEC -.7952489957 B-1 # STAR 12 Z
|
2DEC -.7952489957 B-1 # STAR 12 Z
|
||||||
|
|
||||||
2DEC +.1371725575 B-1 # STAR 11 X
|
2DEC +.1371725575 B-1 # STAR 11 X
|
||||||
2DEC +.6813721061 B-1 # STAR 11 Y
|
2DEC +.6813721061 B-1 # STAR 11 Y
|
||||||
2DEC +.7189685267 B-1 # STAR 11 Z
|
2DEC +.7189685267 B-1 # STAR 11 Z
|
||||||
|
|
||||||
2DEC +.2011399589 B-1 # STAR 10 X
|
2DEC +.2011399589 B-1 # STAR 10 X
|
||||||
2DEC +.9690337941 B-1 # STAR 10 Y
|
2DEC +.9690337941 B-1 # STAR 10 Y
|
||||||
2DEC -.1432348512 B-1 # STAR 10 Z
|
2DEC -.1432348512 B-1 # STAR 10 Z
|
||||||
|
|
||||||
2DEC +.3507315038 B-1 # STAR 9 X
|
2DEC +.3507315038 B-1 # STAR 9 X
|
||||||
2DEC +.8926333307 B-1 # STAR 9 Y
|
2DEC +.8926333307 B-1 # STAR 9 Y
|
||||||
2DEC +.2831839492 B-1 # STAR 9 Z
|
2DEC +.2831839492 B-1 # STAR 9 Z
|
||||||
|
|
||||||
2DEC +.4105636020 B-1 # STAR 8 X
|
2DEC +.4105636020 B-1 # STAR 8 X
|
||||||
2DEC +.4988110001 B-1 # STAR 8 Y
|
2DEC +.4988110001 B-1 # STAR 8 Y
|
||||||
2DEC +.7632988371 B-1 # STAR 8 Z
|
2DEC +.7632988371 B-1 # STAR 8 Z
|
||||||
|
|
||||||
2DEC +.7032235469 B-1 # STAR 7 X
|
2DEC +.7032235469 B-1 # STAR 7 X
|
||||||
2DEC +.7075846047 B-1 # STAR 7 Y
|
2DEC +.7075846047 B-1 # STAR 7 Y
|
||||||
2DEC +.0692868685 B-1 # STAR 7 Z
|
2DEC +.0692868685 B-1 # STAR 7 Z
|
||||||
|
|
||||||
2DEC +.5450107404 B-1 # STAR 6 X
|
2DEC +.5450107404 B-1 # STAR 6 X
|
||||||
2DEC +.5314955466 B-1 # STAR 6 Y
|
2DEC +.5314955466 B-1 # STAR 6 Y
|
||||||
2DEC -.6484410356 B-1 # STAR 6 Z
|
2DEC -.6484410356 B-1 # STAR 6 Z
|
||||||
|
|
||||||
2DEC +.0130968840 B-1 # STAR 5 X
|
2DEC +.0130968840 B-1 # STAR 5 X
|
||||||
2DEC +.0078062795 B-1 # STAR 5 Y
|
2DEC +.0078062795 B-1 # STAR 5 Y
|
||||||
# Page 51
|
# Page 51
|
||||||
2DEC +.9998837600 B-1 # STAR 5 Z
|
2DEC +.9998837600 B-1 # STAR 5 Z
|
||||||
|
|
||||||
2DEC +.4917678276 B-1 # STAR 4 X
|
2DEC +.4917678276 B-1 # STAR 4 X
|
||||||
2DEC +.2204887125 B-1 # STAR 4 Y
|
2DEC +.2204887125 B-1 # STAR 4 Y
|
||||||
2DEC -.8423473935 B-1 # STAR 4 Z
|
2DEC -.8423473935 B-1 # STAR 4 Z
|
||||||
|
|
||||||
2DEC +.4775639450 B-1 # STAR 3 X
|
2DEC +.4775639450 B-1 # STAR 3 X
|
||||||
2DEC +.1166004340 B-1 # STAR 3 Y
|
2DEC +.1166004340 B-1 # STAR 3 Y
|
||||||
2DEC +.8708254803 B-1 # STAR 3 Z
|
2DEC +.8708254803 B-1 # STAR 3 Z
|
||||||
|
|
||||||
2DEC +.9342640400 B-1 # STAR 2 X
|
2DEC +.9342640400 B-1 # STAR 2 X
|
||||||
2DEC +.1735073142 B-1 # STAR 2 Y
|
2DEC +.1735073142 B-1 # STAR 2 Y
|
||||||
2DEC -.3115219339 B-1 # STAR 2 Z
|
2DEC -.3115219339 B-1 # STAR 2 Z
|
||||||
|
|
||||||
2DEC +.8748658918 B-1 # STAR 1 X
|
2DEC +.8748658918 B-1 # STAR 1 X
|
||||||
2DEC +.0260879174 B-1 # STAR 1 Y
|
2DEC +.0260879174 B-1 # STAR 1 Y
|
||||||
2DEC +.4836621670 B-1 # STAR 1 Z
|
2DEC +.4836621670 B-1 # STAR 1 Z
|
||||||
|
|
||||||
CATLOG DEC 6970
|
CATLOG DEC 6970
|
||||||
|
|
||||||
# *******************************************************************************
|
# *******************************************************************************
|
||||||
|
|
||||||
SETLOC EPHEM1
|
SETLOC EPHEM1
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/EPHEM
|
COUNT* $$/EPHEM
|
||||||
|
|
||||||
KONMAT 2DEC 1.0 B-1 # ********************
|
KONMAT 2DEC 1.0 B-1 # ********************
|
||||||
2DEC 0 # *
|
2DEC 0 # *
|
||||||
2DEC 0 # *
|
2DEC 0 # *
|
||||||
@ -538,13 +538,13 @@ VAL67 2DEC* .01726666666 B+1* # AMOD
|
|||||||
2DEC .005325277 B+1 # CMOD
|
2DEC .005325277 B+1 # CMOD
|
||||||
2DEC -.01106341036 # CARG
|
2DEC -.01106341036 # CARG
|
||||||
2DEC .002737925 B+1 # 1/365
|
2DEC .002737925 B+1 # 1/365
|
||||||
|
|
||||||
# ********************************************************************************
|
# ********************************************************************************
|
||||||
|
|
||||||
SETLOC PLANTIN2
|
SETLOC PLANTIN2
|
||||||
BANK
|
BANK
|
||||||
COUNT* $$/LUROT
|
COUNT* $$/LUROT
|
||||||
|
|
||||||
COSI 2DEC .99964173 B-1 # COS (5521.5 SEC.) B-1
|
COSI 2DEC .99964173 B-1 # COS (5521.5 SEC.) B-1
|
||||||
SINI 2DEC .02676579 B-1 # SIN (5521.5 SEC.) B-1
|
SINI 2DEC .02676579 B-1 # SIN (5521.5 SEC.) B-1
|
||||||
NODDOT 2DEC -.457335121 E-2 # REV/CSEC B+28 = -1.07047011 E-8 RAD/SEC
|
NODDOT 2DEC -.457335121 E-2 # REV/CSEC B+28 = -1.07047011 E-8 RAD/SEC
|
||||||
|
|||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1410
|
# Page 1410
|
||||||
# THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES
|
# THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES
|
||||||
|
|||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1406
|
# Page 1406
|
||||||
BANK 20
|
BANK 20
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1341-1373
|
# Pages: 1341-1373
|
||||||
# Mod history: 2009-05-27 RSB Adapted from the corresponding
|
# Mod history: 2009-05-27 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||||
# 2011-05-08 JL Removed workaround.
|
# 2011-05-08 JL Removed workaround.
|
||||||
@ -26,7 +26,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1341
|
# Page 1341
|
||||||
# DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
|
# DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 988-997
|
# Pages: 988-997
|
||||||
# Mod history: 2009-05-24 RSB Adapted from the corresponding
|
# Mod history: 2009-05-24 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from
|
# This source code has been transcribed or otherwise adapted from
|
||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 988
|
# Page 988
|
||||||
# PROGRAM NAME -- DOWN TELEMETRY PROGRAM
|
# PROGRAM NAME -- DOWN TELEMETRY PROGRAM
|
||||||
@ -161,7 +161,7 @@
|
|||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= DNTMBUFF
|
EBANK= DNTMBUFF
|
||||||
|
|
||||||
COUNT* $$/DPROG
|
COUNT* $$/DPROG
|
||||||
DODOWNTM TS BANKRUPT
|
DODOWNTM TS BANKRUPT
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -184,7 +184,7 @@ MINTIME2 -1DNADR TIME2 # NEGATIVE OF TIME2 1DNADR
|
|||||||
|
|
||||||
CCS SUBLIST # IS THE SUBLIST IN CONTROL
|
CCS SUBLIST # IS THE SUBLIST IN CONTROL
|
||||||
TCF NEXTINSL # YES
|
TCF NEXTINSL # YES
|
||||||
# Page 992
|
# Page 992
|
||||||
DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
|
DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
|
||||||
|
|
||||||
CHKLIST CA CTLIST
|
CHKLIST CA CTLIST
|
||||||
@ -235,7 +235,7 @@ DODNCHAN TC 6 # (EXECUTED AS EXTEND) IT'S A CHANNEL
|
|||||||
WOZERO CS BIT7
|
WOZERO CS BIT7
|
||||||
EXTEND
|
EXTEND
|
||||||
WAND CHAN13 # SET WORD ORDER CODE TO ZERO
|
WAND CHAN13 # SET WORD ORDER CODE TO ZERO
|
||||||
# Page 993
|
# Page 993
|
||||||
TC Q # RETURN TO CALLER
|
TC Q # RETURN TO CALLER
|
||||||
|
|
||||||
DODNPTR INDEX DNECADR # DNECADR CONTAINS ADRES OF SUBLIST
|
DODNPTR INDEX DNECADR # DNECADR CONTAINS ADRES OF SUBLIST
|
||||||
@ -415,7 +415,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
|
|||||||
TCF DNPHASE1 # YES -- START SENDING INTERRUPTED DOWNLIST
|
TCF DNPHASE1 # YES -- START SENDING INTERRUPTED DOWNLIST
|
||||||
# AGAIN
|
# AGAIN
|
||||||
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALIZE NEXT BANK
|
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALIZE NEXT BANK
|
||||||
|
|
||||||
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
|
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
|
||||||
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
|
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK
|
||||||
|
|
||||||
@ -439,7 +439,7 @@ SENDID EXTEND # ** ENTRANCE USED BY ERASABLE DUMP PROG. **
|
|||||||
CAF ERASID # TO LOCATION FOLLOWING `TC SENDID'
|
CAF ERASID # TO LOCATION FOLLOWING `TC SENDID'
|
||||||
|
|
||||||
TS L # ** ENTRANCE USED BY REGULAR DOWNLINK PG **
|
TS L # ** ENTRANCE USED BY REGULAR DOWNLINK PG **
|
||||||
# Page 997
|
# Page 997
|
||||||
TC WOZERO # GO SET WORD ORDER CODE TO ZERO
|
TC WOZERO # GO SET WORD ORDER CODE TO ZERO
|
||||||
CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
|
CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
|
||||||
XCH L # AND ID BACK INTO A
|
XCH L # AND ID BACK INTO A
|
||||||
@ -452,4 +452,4 @@ WOTEST CA BIT7 # AT THE BEGINNING OF THE LIST THE WORD
|
|||||||
TC DNTMGOTO
|
TC DNTMGOTO
|
||||||
CA BIT7
|
CA BIT7
|
||||||
TCF WO1
|
TCF WO1
|
||||||
|
|
||||||
|
|||||||
@ -25,7 +25,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 90
|
# Page 90
|
||||||
# CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
|
# CONVENTIONS AND NOTATIONS UTILIZED FOR ERASABLE ASSIGNMENTS.
|
||||||
@ -94,7 +94,7 @@ FBANK EQUALS 4
|
|||||||
Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
|
Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
|
||||||
BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
|
BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
|
||||||
# REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
|
# REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
|
||||||
|
|
||||||
ARUPT EQUALS 10 # INTERRUPT STORAGE
|
ARUPT EQUALS 10 # INTERRUPT STORAGE
|
||||||
LRUPT EQUALS 11
|
LRUPT EQUALS 11
|
||||||
QRUPT EQUALS 12
|
QRUPT EQUALS 12
|
||||||
@ -186,7 +186,7 @@ DNTM2 EQUALS 35
|
|||||||
SETLOC 61
|
SETLOC 61
|
||||||
# INTERRUPT TEMPORARY STORAGE POOL. (11D)
|
# INTERRUPT TEMPORARY STORAGE POOL. (11D)
|
||||||
|
|
||||||
# (ITEMP1 THROUGH RUPTREG4)
|
# (ITEMP1 THROUGH RUPTREG4)
|
||||||
|
|
||||||
# ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
|
# ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
|
||||||
# IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT.
|
# IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST -- THE RUPTREGS ARE NOT.
|
||||||
@ -381,7 +381,7 @@ PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
|
|||||||
PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
|
PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
|
||||||
|
|
||||||
ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
|
ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
|
||||||
|
|
||||||
# INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
|
# INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
|
||||||
|
|
||||||
R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V
|
R22DISP EQUALS TIME2SAV # I(4) N49 DISPLAY OF DELTA R AND DELTA V
|
||||||
@ -800,7 +800,7 @@ RADSKAL ERASE +1 # LR ALT DOPPLER BIAS: 2T/LAMBDA SCALED
|
|||||||
# AT 1/(2(7) M/CS)
|
# AT 1/(2(7) M/CS)
|
||||||
SKALSKAL ERASE # LR ALT SCALE FACTOR RATIO: .2 NOM
|
SKALSKAL ERASE # LR ALT SCALE FACTOR RATIO: .2 NOM
|
||||||
|
|
||||||
END-UE EQUALS # NEXT UNUSED UE ADDRESS
|
END-UE EQUALS # NEXT UNUSED UE ADDRESS
|
||||||
|
|
||||||
# SELF-CHECK ASSIGNMENTS (17D)
|
# SELF-CHECK ASSIGNMENTS (17D)
|
||||||
|
|
||||||
@ -992,7 +992,7 @@ END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 **
|
|||||||
# EBANK-4 ASSIGNMENTS
|
# EBANK-4 ASSIGNMENTS
|
||||||
|
|
||||||
SETLOC 2000
|
SETLOC 2000
|
||||||
|
|
||||||
# E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
|
# E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
|
||||||
|
|
||||||
AMEMORY EQUALS
|
AMEMORY EQUALS
|
||||||
@ -1673,7 +1673,7 @@ END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 ***
|
|||||||
# EBANK-6 ASSIGNMENTS.
|
# EBANK-6 ASSIGNMENTS.
|
||||||
|
|
||||||
SETLOC 3000
|
SETLOC 3000
|
||||||
|
|
||||||
# DAP PAD-LOADED DATA. (10D)
|
# DAP PAD-LOADED DATA. (10D)
|
||||||
|
|
||||||
# ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP.
|
# ALL OF THE FOLLOWING EXCEPT PITTIME AND ROLLTIME ARE INITIALIZED IN FRESH START TO PERMIT IMMEDIATE USE OF DAP.
|
||||||
@ -1902,7 +1902,7 @@ ACCFCTZ1 = 1/ANET1 +6 # ADRSDIFF FROM THESE REGISTERS TO PICK UP
|
|||||||
ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
|
ACCFCTZ5 = 1/ANET1 +7 # PARAMETERS FOR THE PROPER AXIS, NUMBER
|
||||||
FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
|
FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
|
||||||
COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
|
COASTDB = 1/ANET1 +12D # REGISTERS IN ALL IN THIS BLOCK.
|
||||||
AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
|
AXISDIST = 1/ANET1 +14D # FOUR NOT REFERENCED (P-AXIS) ARE FILLED
|
||||||
# IN BY THE FOLLOWING:
|
# IN BY THE FOLLOWING:
|
||||||
ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
|
ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
|
||||||
ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
|
ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
|
||||||
@ -2046,7 +2046,7 @@ DAPLRUPT EQUALS DAPARUPT +1
|
|||||||
DAPBQRPT EQUALS DAPARUPT +2
|
DAPBQRPT EQUALS DAPARUPT +2
|
||||||
DAPZRUPT EQUALS DAPARUPT +4
|
DAPZRUPT EQUALS DAPARUPT +4
|
||||||
# (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG)
|
# (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG)
|
||||||
|
|
||||||
# NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
|
# NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
|
||||||
|
|
||||||
T5TEMP EQUALS ITEMP1
|
T5TEMP EQUALS ITEMP1
|
||||||
@ -2071,7 +2071,7 @@ END-E6 EQUALS VJETCTR
|
|||||||
# EBANK-7 ASSIGNMENTS
|
# EBANK-7 ASSIGNMENTS
|
||||||
|
|
||||||
SETLOC 3400
|
SETLOC 3400
|
||||||
|
|
||||||
# P35 CONSTANTS. -- PAD LOADED -- (4D)
|
# P35 CONSTANTS. -- PAD LOADED -- (4D)
|
||||||
|
|
||||||
ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
|
ATIGINC ERASE +1 # B(2)PL *MUST BE AT 1400 FOR SYSTEMSTEST
|
||||||
@ -2099,7 +2099,7 @@ DELTTFAP ERASE # B(1) INCREMENT ADDED TO TTF/8 WHEN
|
|||||||
# SWITCHING FROM P63 TO P64.
|
# SWITCHING FROM P63 TO P64.
|
||||||
LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH
|
LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH
|
||||||
# GUIDANCE IS PROJECTED FORWARD
|
# GUIDANCE IS PROJECTED FORWARD
|
||||||
|
|
||||||
# LANDING RADAR. -- PAD LOADED -- (2D)
|
# LANDING RADAR. -- PAD LOADED -- (2D)
|
||||||
|
|
||||||
RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME)
|
RPCRTIME ERASE # B(1) REPOSITIONING CRITERION (TIME)
|
||||||
@ -2117,7 +2117,7 @@ REPOSTM EQUALS REPOSCNT +1 # I(2)TMP PRESENT TIME PLUS INCREMENTS OF
|
|||||||
# TEN SECONDS.
|
# TEN SECONDS.
|
||||||
DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING
|
DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING
|
||||||
# DESIGNATE TASK.
|
# DESIGNATE TASK.
|
||||||
|
|
||||||
# *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
|
# *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
|
||||||
|
|
||||||
# P32-35 P72-75 STORAGE. (6D)
|
# P32-35 P72-75 STORAGE. (6D)
|
||||||
@ -2400,7 +2400,7 @@ RANGRDOT EQUALS RM +2 # B(2) DOWNLINKED RAW RANGE AND RRATE
|
|||||||
R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED
|
R65CNTR EQUALS RRBORSIT +5 # B(1)SS COUNT NUMBER OF TIMES PREFERRED
|
||||||
# TRACKING ROUTINE IS TO CYCLE
|
# TRACKING ROUTINE IS TO CYCLE
|
||||||
WHCHREAD EQUALS R65CNTR # TELLS WHICH RR DATA TRIGGERED N49 DISPLAY
|
WHCHREAD EQUALS R65CNTR # TELLS WHICH RR DATA TRIGGERED N49 DISPLAY
|
||||||
|
|
||||||
# P21 STORAGE (2D)
|
# P21 STORAGE (2D)
|
||||||
|
|
||||||
P21TIME EQUALS RANGRDOT +2 # I(2)TMP
|
P21TIME EQUALS RANGRDOT +2 # I(2)TMP
|
||||||
@ -2621,7 +2621,7 @@ ENGOFFDT EQUALS XRANGE +2 # B(1)TMP
|
|||||||
VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED.
|
VGVECT EQUALS ENGOFFDT +1 # I(6)OUT VELOCITY-TO-BE-GAINED.
|
||||||
TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
|
TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
|
||||||
# IS ALLOWED.
|
# IS ALLOWED.
|
||||||
|
|
||||||
# END OF THE ASCENT GUIDANCE ERASABLES
|
# END OF THE ASCENT GUIDANCE ERASABLES
|
||||||
|
|
||||||
# THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
|
# THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1103-1114
|
# Pages: 1103-1114
|
||||||
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
# 2011-01-06 JL Fixed pseudo-label indentation.
|
# 2011-01-06 JL Fixed pseudo-label indentation.
|
||||||
# 2011-05-08 JL Removed workaround.
|
# 2011-05-08 JL Removed workaround.
|
||||||
@ -26,7 +26,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1103
|
# Page 1103
|
||||||
BLOCK 02
|
BLOCK 02
|
||||||
|
|||||||
File diff suppressed because it is too large
Load Diff
@ -22,7 +22,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 908
|
# Page 908
|
||||||
# PROGRAM NAME: FINDCDUW
|
# PROGRAM NAME: FINDCDUW
|
||||||
|
|||||||
@ -7,8 +7,8 @@
|
|||||||
# Contact: Ron Burkey <info@sandroid.org>.
|
# Contact: Ron Burkey <info@sandroid.org>.
|
||||||
# Website: www.ibiblio.org/apollo.
|
# Website: www.ibiblio.org/apollo.
|
||||||
# Pages: 1095-1099
|
# Pages: 1095-1099
|
||||||
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
# Mod history: 2009-05-25 RSB Adapted from the corresponding
|
||||||
# Luminary131 file, using page
|
# Luminary131 file, using page
|
||||||
# images from Luminary 1A.
|
# images from Luminary 1A.
|
||||||
#
|
#
|
||||||
# This source code has been transcribed or otherwise adapted from
|
# This source code has been transcribed or otherwise adapted from
|
||||||
@ -24,7 +24,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 1095
|
# Page 1095
|
||||||
BLOCK 02
|
BLOCK 02
|
||||||
@ -37,11 +37,11 @@ POSMAX OCT 37777
|
|||||||
|
|
||||||
LIMITS = NEG1/2
|
LIMITS = NEG1/2
|
||||||
|
|
||||||
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
|
NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO
|
||||||
# LOCATIONS IN FRONT OF BIT14)
|
# LOCATIONS IN FRONT OF BIT14)
|
||||||
|
|
||||||
# BIT TABLE
|
# BIT TABLE
|
||||||
|
|
||||||
BIT15 OCT 40000
|
BIT15 OCT 40000
|
||||||
BIT14 OCT 20000
|
BIT14 OCT 20000
|
||||||
BIT13 OCT 10000
|
BIT13 OCT 10000
|
||||||
@ -162,7 +162,7 @@ OCT17770 OCT 17770
|
|||||||
# OCT 20033 # T4RUPT RELTAB +3D
|
# OCT 20033 # T4RUPT RELTAB +3D
|
||||||
PRIO21 OCT 21000
|
PRIO21 OCT 21000
|
||||||
BLOCK 03
|
BLOCK 03
|
||||||
COUNT* $$/FCONS
|
COUNT* $$/FCONS
|
||||||
PRIO22 OCT 22000 # SERVICE ROUTINES
|
PRIO22 OCT 22000 # SERVICE ROUTINES
|
||||||
PRIO23 OCT 23000
|
PRIO23 OCT 23000
|
||||||
PRIO24 OCT 24000
|
PRIO24 OCT 24000
|
||||||
@ -178,7 +178,7 @@ C1/2 DEC .7853134 # (OCTAL 31103)
|
|||||||
PRIO32 OCT 32000
|
PRIO32 OCT 32000
|
||||||
PRIO33 OCT 33000
|
PRIO33 OCT 33000
|
||||||
PRIO34 OCT 34000
|
PRIO34 OCT 34000
|
||||||
# OCT 34034 # T4RUPT RELTAB +6D
|
# OCT 34034 # T4RUPT RELTAB +6D
|
||||||
# Page 1098
|
# Page 1098
|
||||||
PRIO35 OCT 35000
|
PRIO35 OCT 35000
|
||||||
PRIO36 OCT 36000
|
PRIO36 OCT 36000
|
||||||
|
|||||||
@ -23,7 +23,7 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
|
|
||||||
# Page 61
|
# Page 61
|
||||||
@ -244,7 +244,7 @@ FLAGWRD0 = STATE +0 # (000-014)
|
|||||||
# BIT 15 FLAG 0 (S)
|
# BIT 15 FLAG 0 (S)
|
||||||
= 000D
|
= 000D
|
||||||
= BIT15
|
= BIT15
|
||||||
|
|
||||||
# BIT 14 FLAG 0 (S)
|
# BIT 14 FLAG 0 (S)
|
||||||
JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
|
JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
|
||||||
JSWCHBIT = BIT14 # MATRIX VECTOR
|
JSWCHBIT = BIT14 # MATRIX VECTOR
|
||||||
@ -311,7 +311,7 @@ FLAGWRD1 = STATE +1 # (015-029)
|
|||||||
|
|
||||||
# Page 67
|
# Page 67
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 1 (S)
|
# BIT 15 FLAG 1 (S)
|
||||||
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
|
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
|
||||||
NJETSBIT = BIT15
|
NJETSBIT = BIT15
|
||||||
@ -332,7 +332,7 @@ RODFLBIT = BIT12 # OPERATION CONTINUES. IALIZATION IS PER-
|
|||||||
# BIT 11 FLAG 1
|
# BIT 11 FLAG 1
|
||||||
= 019D
|
= 019D
|
||||||
= BIT11
|
= BIT11
|
||||||
|
|
||||||
# BIT 10 FLAG 1 (L)
|
# BIT 10 FLAG 1 (L)
|
||||||
R61FLAG = 020D # RUN R61 LEM RUN R65 LEM
|
R61FLAG = 020D # RUN R61 LEM RUN R65 LEM
|
||||||
R61FLBIT = BIT10
|
R61FLBIT = BIT10
|
||||||
@ -340,7 +340,7 @@ R61FLBIT = BIT10
|
|||||||
# BIT 9 FLAG 1
|
# BIT 9 FLAG 1
|
||||||
= 021D
|
= 021D
|
||||||
= BIT9
|
= BIT9
|
||||||
|
|
||||||
# BIT 8 FLAG 1 (S)
|
# BIT 8 FLAG 1 (S)
|
||||||
VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR
|
VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR
|
||||||
VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
|
VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
|
||||||
@ -359,10 +359,10 @@ NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED
|
|||||||
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
|
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
|
||||||
TRACKBIT = BIT5
|
TRACKBIT = BIT5
|
||||||
|
|
||||||
# BIT 4 FLAG 1
|
# BIT 4 FLAG 1
|
||||||
= 026D
|
= 026D
|
||||||
= BIT4
|
= BIT4
|
||||||
|
|
||||||
# BIT 3 FLAG 1 (S)
|
# BIT 3 FLAG 1 (S)
|
||||||
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
|
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
|
||||||
# METHOD IN ITERATOR FALSI METHOD IN
|
# METHOD IN ITERATOR FALSI METHOD IN
|
||||||
@ -372,14 +372,14 @@ SLOPEBIT = BIT3 # ITERATOR
|
|||||||
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
|
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
|
||||||
GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
|
GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
|
||||||
|
|
||||||
# BIT 1 FLAG 1
|
# BIT 1 FLAG 1
|
||||||
= 029D
|
= 029D
|
||||||
= BIT1 # OH 2009-05-15 Scan does not have this line
|
= BIT1 # OH 2009-05-15 Scan does not have this line
|
||||||
|
|
||||||
FLAGWRD2 = STATE +2 # (030-044)
|
FLAGWRD2 = STATE +2 # (030-044)
|
||||||
|
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 2 (S)
|
# BIT 15 FLAG 2 (S)
|
||||||
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
|
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
|
||||||
DRFTBIT = BIT15 # COMPENSATION COMPENSATION
|
DRFTBIT = BIT15 # COMPENSATION COMPENSATION
|
||||||
@ -405,7 +405,7 @@ STEERBIT = BIT11 # IS PRESENT IS PRESENT
|
|||||||
# BIT 10 FLAG 2 (S)
|
# BIT 10 FLAG 2 (S)
|
||||||
= 035D # OH 2009-05-15 These two line don't appear in scan
|
= 035D # OH 2009-05-15 These two line don't appear in scan
|
||||||
= BIT10
|
= BIT10
|
||||||
|
|
||||||
# BIT 9 FLAG 2 (S)
|
# BIT 9 FLAG 2 (S)
|
||||||
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
|
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
|
||||||
# BURN (CUTOFF TIME CUTOFF TIME YET
|
# BURN (CUTOFF TIME CUTOFF TIME YET
|
||||||
@ -454,8 +454,8 @@ NODOBIT = BIT1
|
|||||||
FLAGWRD3 = STATE +3 # (045-059)
|
FLAGWRD3 = STATE +3 # (045-059)
|
||||||
|
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 3
|
# BIT 15 FLAG 3
|
||||||
= 045D #
|
= 045D #
|
||||||
= BIT15 # OH 2009-05-15 This line is not in scans
|
= BIT15 # OH 2009-05-15 This line is not in scans
|
||||||
|
|
||||||
@ -493,7 +493,7 @@ READRBIT = BIT9 # PURSUANT TO R29 PURSUANT TO R29
|
|||||||
PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP
|
PRECIFLG = 052D # NORMAL INTEGRATION ENGAGES 4-TIME STEP
|
||||||
# IN P00 (P00) LOGIC IN INTE-
|
# IN P00 (P00) LOGIC IN INTE-
|
||||||
PRECIBIT = BIT8 # GRATION
|
PRECIBIT = BIT8 # GRATION
|
||||||
|
|
||||||
# BIT 7 FLAG 3 (S)
|
# BIT 7 FLAG 3 (S)
|
||||||
CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
|
CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
|
||||||
CULTBIT = BIT7
|
CULTBIT = BIT7
|
||||||
@ -526,7 +526,7 @@ FLAGWRD4 = STATE +4 # (060-074)
|
|||||||
|
|
||||||
# Page 72
|
# Page 72
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 4 (S)
|
# BIT 15 FLAG 4 (S)
|
||||||
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
|
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
|
||||||
MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
|
MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
|
||||||
@ -544,7 +544,7 @@ PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP
|
|||||||
# TURN A NORMAL DIS-
|
# TURN A NORMAL DIS-
|
||||||
PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
|
PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
|
||||||
# DISPLAY IN R60
|
# DISPLAY IN R60
|
||||||
|
|
||||||
# BIT 11 FLAG 4 (S)
|
# BIT 11 FLAG 4 (S)
|
||||||
MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
|
MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
|
||||||
# DISPLAY OPERATING DISPLAY OPERATING
|
# DISPLAY OPERATING DISPLAY OPERATING
|
||||||
@ -556,7 +556,7 @@ NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
|
|||||||
# DISPLAY OPERATING DISPLAY OPERATING
|
# DISPLAY OPERATING DISPLAY OPERATING
|
||||||
NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
|
NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
|
||||||
# DISPLAY INITIATED INITIATED
|
# DISPLAY INITIATED INITIATED
|
||||||
|
|
||||||
# BIT 9 FLAG 4 (S)
|
# BIT 9 FLAG 4 (S)
|
||||||
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
|
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
|
||||||
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
|
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
|
||||||
@ -567,7 +567,7 @@ NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
|
|||||||
# KEYBOARD WHEN KEYBOARD WHEN
|
# KEYBOARD WHEN KEYBOARD WHEN
|
||||||
NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
|
NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
|
||||||
# INITIATED INITIATED
|
# INITIATED INITIATED
|
||||||
|
|
||||||
# BIT 7 FLAG 4 (S)
|
# BIT 7 FLAG 4 (S)
|
||||||
PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
|
PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
|
||||||
|
|
||||||
@ -575,7 +575,7 @@ PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
|
|||||||
# KEYBOARD WHEN KEYBOARD WHEN
|
# KEYBOARD WHEN KEYBOARD WHEN
|
||||||
PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
|
PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
|
||||||
# INITIATED INITIATED
|
# INITIATED INITIATED
|
||||||
|
|
||||||
# BIT 6 FLAG 4 (S)
|
# BIT 6 FLAG 4 (S)
|
||||||
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
|
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
|
||||||
# INTERFERED WITH INTERFERED WITH
|
# INTERFERED WITH INTERFERED WITH
|
||||||
@ -591,7 +591,7 @@ NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
|
|||||||
# INTERRUPTED BY INTERRUPTED BY
|
# INTERRUPTED BY INTERRUPTED BY
|
||||||
NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
|
NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
|
||||||
# DISPLAY DISPLAY
|
# DISPLAY DISPLAY
|
||||||
|
|
||||||
# BIT 3 FLAG 4 (S)
|
# BIT 3 FLAG 4 (S)
|
||||||
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
|
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
|
||||||
MKOVBIT = BIT3 # NORMAL NORMAL
|
MKOVBIT = BIT3 # NORMAL NORMAL
|
||||||
@ -599,8 +599,8 @@ MKOVBIT = BIT3 # NORMAL NORMAL
|
|||||||
# BIT 2 FLAG 4
|
# BIT 2 FLAG 4
|
||||||
= 073D
|
= 073D
|
||||||
= BIT2 # OH 2009-05-15 Not in scan.
|
= BIT2 # OH 2009-05-15 Not in scan.
|
||||||
|
|
||||||
|
|
||||||
# BIT 1 FLAG 4 (S)
|
# BIT 1 FLAG 4 (S)
|
||||||
XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
|
XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
|
||||||
XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
|
XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
|
||||||
@ -608,7 +608,7 @@ XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
|
|||||||
FLAGWRD5 = STATE +5 # (075-089)
|
FLAGWRD5 = STATE +5 # (075-089)
|
||||||
|
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 5 (S)
|
# BIT 15 FLAG 5 (S)
|
||||||
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
|
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
|
||||||
DSKYFBIT = BIT15 # DSKY
|
DSKYFBIT = BIT15 # DSKY
|
||||||
@ -616,7 +616,7 @@ DSKYFBIT = BIT15 # DSKY
|
|||||||
# BIT 14 FLAG 5
|
# BIT 14 FLAG 5
|
||||||
= 076D
|
= 076D
|
||||||
= BIT14
|
= BIT14
|
||||||
|
|
||||||
# Page 74
|
# Page 74
|
||||||
# BIT 13 FLAG 5 (S,L)
|
# BIT 13 FLAG 5 (S,L)
|
||||||
SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED
|
SNUFFER = 077D # U,V JETS DISABLED U,V JETS ENABLED
|
||||||
@ -648,7 +648,7 @@ DMENFBIT = BIT9 # FOR INCORPORATION FOR INCORPORATION
|
|||||||
|
|
||||||
# BIT 7 FLAG 5 (S)
|
# BIT 7 FLAG 5 (S)
|
||||||
ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
|
ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
|
||||||
ENGONBIT = BIT7 #
|
ENGONBIT = BIT7 #
|
||||||
|
|
||||||
# BIT 6 FLAG 5 (S)
|
# BIT 6 FLAG 5 (S)
|
||||||
3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
|
3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
|
||||||
@ -703,25 +703,25 @@ S32.1F3B = 093D # = FIRST NEWTON ITERATION BEING DONE
|
|||||||
S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWTON ITERATION
|
S32BIT3B = BIT12 # (0,0)= FIRST PASS OF SECOND NEWTON ITERATION
|
||||||
# (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION
|
# (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION
|
||||||
# (1,0)= REMAINDER OF SECOND NEWTON ITERATION
|
# (1,0)= REMAINDER OF SECOND NEWTON ITERATION
|
||||||
# BIT 11 FLAG 6 (S)
|
# BIT 11 FLAG 6 (S)
|
||||||
= 094D #
|
= 094D #
|
||||||
= BIT11 #
|
= BIT11 #
|
||||||
# Page 76
|
# Page 76
|
||||||
# BIT 10 FLAG 6 (S)
|
# BIT 10 FLAG 6 (S)
|
||||||
GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
|
GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
|
||||||
GMBDRBIT = BIT10 #
|
GMBDRBIT = BIT10 #
|
||||||
|
|
||||||
# BIT 9 FLAG 6
|
# BIT 9 FLAG 6
|
||||||
= 096D #
|
= 096D #
|
||||||
= BIT9 #
|
= BIT9 #
|
||||||
|
|
||||||
# BIT 8 FLAG 6 (S)
|
# BIT 8 FLAG 6 (S)
|
||||||
MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
|
MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
|
||||||
MUNFLBIT = BIT8 # MUNRVG CALCRVG
|
MUNFLBIT = BIT8 # MUNRVG CALCRVG
|
||||||
|
|
||||||
# BIT 7 FLAG 6 (L)
|
# BIT 7 FLAG 6 (L)
|
||||||
= 098D #
|
= 098D #
|
||||||
= BIT7 #
|
= BIT7 #
|
||||||
|
|
||||||
# BIT 6 FLAG 6 (L)
|
# BIT 6 FLAG 6 (L)
|
||||||
REDFLAG = 099D # LANDING SITE LANDING SITE
|
REDFLAG = 099D # LANDING SITE LANDING SITE
|
||||||
@ -729,12 +729,12 @@ REDFLAG = 099D # LANDING SITE LANDING SITE
|
|||||||
REDFLBIT = BIT6 # PERMITTED PERMITTED
|
REDFLBIT = BIT6 # PERMITTED PERMITTED
|
||||||
|
|
||||||
# BIT 5 FLAG 6
|
# BIT 5 FLAG 6
|
||||||
= 100D #
|
= 100D #
|
||||||
= BIT5 # OH 2009-05-15 Not in scan
|
= BIT5 # OH 2009-05-15 Not in scan
|
||||||
|
|
||||||
# BIT 4 FLAG 6
|
# BIT 4 FLAG 6
|
||||||
= 101D #
|
= 101D #
|
||||||
= BIT4 # OH 2009-05-15 Not in scan
|
= BIT4 # OH 2009-05-15 Not in scan
|
||||||
|
|
||||||
# BIT 3 FLAG 6 (S)
|
# BIT 3 FLAG 6 (S)
|
||||||
NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
|
NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
|
||||||
@ -772,7 +772,7 @@ MANUFBIT = BIT14 # SEARCH
|
|||||||
|
|
||||||
# BIT 13 FLAG 7 (S)
|
# BIT 13 FLAG 7 (S)
|
||||||
IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
|
IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
|
||||||
IGNFLBIT = BIT13 #
|
IGNFLBIT = BIT13 #
|
||||||
|
|
||||||
# BIT 12 FLAG 7 (S)
|
# BIT 12 FLAG 7 (S)
|
||||||
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
|
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
|
||||||
@ -789,7 +789,7 @@ NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL
|
|||||||
# BIT 9 FLAG 7 (S)
|
# BIT 9 FLAG 7 (S)
|
||||||
RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
|
RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
|
||||||
# FINAL STATE VECTOR VECTOR IN TIME-THETA
|
# FINAL STATE VECTOR VECTOR IN TIME-THETA
|
||||||
RVSWBIT = BIT9 # IN TIME-DELTA
|
RVSWBIT = BIT9 # IN TIME-DELTA
|
||||||
|
|
||||||
# BIT 8 FLAG 7 (S)
|
# BIT 8 FLAG 7 (S)
|
||||||
V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
|
V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
|
||||||
@ -799,7 +799,7 @@ V67FLBIT = BIT8 # VALUES INITIAL VALUES
|
|||||||
# Page 78
|
# Page 78
|
||||||
# BIT 7 FLAG 7 (S)
|
# BIT 7 FLAG 7 (S)
|
||||||
IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
|
IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
|
||||||
IDLEFBIT = BIT7 #
|
IDLEFBIT = BIT7 #
|
||||||
|
|
||||||
# BIT 6 FLAG 7 (S)
|
# BIT 6 FLAG 7 (S)
|
||||||
V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
|
V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
|
||||||
@ -811,19 +811,19 @@ AVEGFBIT = BIT5 # DESIRED NOT DESIRED
|
|||||||
|
|
||||||
# BIT 4 FLAG 7 (S)
|
# BIT 4 FLAG 7 (S)
|
||||||
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
|
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
|
||||||
UPLOCBIT = BIT4 #
|
UPLOCBIT = BIT4 #
|
||||||
|
|
||||||
# BIT 3 FLAG 7 (S)
|
# BIT 3 FLAG 7 (S)
|
||||||
VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
|
VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
|
||||||
VERIFBIT = BIT3 #
|
VERIFBIT = BIT3 #
|
||||||
|
|
||||||
# BIT 2 FLAG 7 (L,C)
|
# BIT 2 FLAG 7 (L,C)
|
||||||
V82EMFLG = 118D # MOON VICINITY EARTH VICINITY
|
V82EMFLG = 118D # MOON VICINITY EARTH VICINITY
|
||||||
V82EMBIT = BIT2 #
|
V82EMBIT = BIT2 #
|
||||||
|
|
||||||
# BIT 1 FLAG 7 (S)
|
# BIT 1 FLAG 7 (S)
|
||||||
TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
|
TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
|
||||||
TFFSWBIT = BIT1 #
|
TFFSWBIT = BIT1 #
|
||||||
|
|
||||||
|
|
||||||
FLAGWRD8 = STATE +8D # (120-134)
|
FLAGWRD8 = STATE +8D # (120-134)
|
||||||
@ -837,8 +837,8 @@ RPQFLBIT = BIT15 # TWEEN SECONDARY BODY
|
|||||||
# AND PRIMARY BODY)
|
# AND PRIMARY BODY)
|
||||||
|
|
||||||
# BIT 14 FLAG 8
|
# BIT 14 FLAG 8
|
||||||
= 121D #
|
= 121D #
|
||||||
= BIT14 #
|
= BIT14 #
|
||||||
|
|
||||||
# Page 79
|
# Page 79
|
||||||
# BIT 13 FLAG 8 (S)
|
# BIT 13 FLAG 8 (S)
|
||||||
@ -859,10 +859,10 @@ FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED
|
|||||||
|
|
||||||
# BIT 9 FLAG 8 (L)
|
# BIT 9 FLAG 8 (L)
|
||||||
P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
|
P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
|
||||||
P39SWBIT = BIT9 #
|
P39SWBIT = BIT9 #
|
||||||
|
|
||||||
# BIT 8 FLAG 8 *** PROTECTED FROM FRESH START ***
|
# BIT 8 FLAG 8 *** PROTECTED FROM FRESH START ***
|
||||||
SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
|
SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
|
||||||
SURFFBIT = BIT8 # SURFACE
|
SURFFBIT = BIT8 # SURFACE
|
||||||
|
|
||||||
# BIT 7 FLAG 8 (S)
|
# BIT 7 FLAG 8 (S)
|
||||||
@ -904,8 +904,8 @@ FLAGWRD9 = STATE +9D # (135-149)
|
|||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 9
|
# BIT 15 FLAG 9
|
||||||
= 135D #
|
= 135D #
|
||||||
= BIT15 #
|
= BIT15 #
|
||||||
|
|
||||||
# BIT 14 FLAG 9 (L)
|
# BIT 14 FLAG 9 (L)
|
||||||
FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
|
FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
|
||||||
@ -929,7 +929,7 @@ FLRCSBIT = BIT10 # (ASCENT GUIDANCE)
|
|||||||
|
|
||||||
# BIT 9 FLAG 9 (L)
|
# BIT 9 FLAG 9 (L)
|
||||||
|
|
||||||
# Page 81
|
# Page 81
|
||||||
LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
|
LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
|
||||||
LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
|
LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
|
||||||
|
|
||||||
@ -941,24 +941,24 @@ FLAPBIT = BIT8 # (ASCENT GUIDANCE)
|
|||||||
# BIT 7 FLAG 9 (L)
|
# BIT 7 FLAG 9 (L)
|
||||||
= 143D
|
= 143D
|
||||||
= BIT7 # OH 2009-05-15 Line not in scan
|
= BIT7 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
|
|
||||||
# BIT 6 FLAG 9 (L)
|
# BIT 6 FLAG 9 (L)
|
||||||
ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT
|
ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT
|
||||||
ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE
|
ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE
|
||||||
# ROTATION IN THE ROTATION IN THE
|
# ROTATION IN THE ROTATION IN THE
|
||||||
# PREFERRED DIRECTION PREFERRED DIRECTION
|
# PREFERRED DIRECTION PREFERRED DIRECTION
|
||||||
|
|
||||||
# BIT 5 FLAG 9 (S)
|
# BIT 5 FLAG 9 (S)
|
||||||
QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
|
QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
|
||||||
QUITBIT = BIT5 #
|
QUITBIT = BIT5 #
|
||||||
|
|
||||||
# BIT 4 FLAG 9
|
# BIT 4 FLAG 9
|
||||||
= 146D #
|
= 146D #
|
||||||
= BIT4 #
|
= BIT4 #
|
||||||
|
|
||||||
# BIT 3 FLAG 9 (L)
|
# BIT 3 FLAG 9 (L)
|
||||||
MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE
|
MID1FLAG = 147D # INTEGRAT TO TDEC INTEGRATE TO THE
|
||||||
MID1FBIT = BIT3 # THEN-PRESENT TIME
|
MID1FBIT = BIT3 # THEN-PRESENT TIME
|
||||||
|
|
||||||
# BIT 2 FLAG 9 (L)
|
# BIT 2 FLAG 9 (L)
|
||||||
@ -981,7 +981,7 @@ FLGWRD10 = STATE +10D # (150-164)
|
|||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 10 (S)
|
# BIT 15 FLAG 10 (S)
|
||||||
= 150D #
|
= 150D #
|
||||||
= BIT15 # OH 2009-05-15 Line not in scan
|
= BIT15 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 14 FLAG 10 (L,C)
|
# BIT 14 FLAG 10 (L,C)
|
||||||
@ -989,57 +989,57 @@ INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
|
|||||||
INTFLBIT = BIT14 # PROGRESS PROGRESS
|
INTFLBIT = BIT14 # PROGRESS PROGRESS
|
||||||
|
|
||||||
# BIT 13 FLAG 10 (S,L)
|
# BIT 13 FLAG 10 (S,L)
|
||||||
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
|
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
|
||||||
APSFLBIT = BIT13 # *** PROTECTED FROM FRESH START ***
|
APSFLBIT = BIT13 # *** PROTECTED FROM FRESH START ***
|
||||||
|
|
||||||
# BIT 12 FLAG 10
|
# BIT 12 FLAG 10
|
||||||
= 153D #
|
= 153D #
|
||||||
= BIT12 # OH 2009-05-15 Line not in scan
|
= BIT12 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 11 FLAG 10
|
# BIT 11 FLAG 10
|
||||||
= 154D #
|
= 154D #
|
||||||
= BIT11 # OH 2009-05-15 Line not in scan
|
= BIT11 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 10 FLAG 10
|
# BIT 10 FLAG 10
|
||||||
= 155D #
|
= 155D #
|
||||||
= BIT10 # OH 2009-05-15 Line not in scan
|
= BIT10 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 9 FLAG 10
|
# BIT 9 FLAG 10
|
||||||
= 156D #
|
= 156D #
|
||||||
= BIT9 # OH 2009-05-15 Line not in scan
|
= BIT9 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 8 FLAG 10
|
# BIT 8 FLAG 10
|
||||||
= 157D #
|
= 157D #
|
||||||
= BIT8 # OH 2009-05-15 Line not in scan
|
= BIT8 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 7 FLAG 10 (L,C)
|
# BIT 7 FLAG 10 (L,C)
|
||||||
REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
|
REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
|
||||||
REINTBIT = BIT7 # TO BE RESTARTED NOT TO BE RESTARTED
|
REINTBIT = BIT7 # TO BE RESTARTED NOT TO BE RESTARTED
|
||||||
|
|
||||||
# BIT 6 FLAG 10
|
# BIT 6 FLAG 10
|
||||||
= 159D #
|
= 159D #
|
||||||
= BIT6 # OH 2009-05-15 Line not in scan
|
= BIT6 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 5 FLAG 10
|
# BIT 5 FLAG 10
|
||||||
= 160D #
|
= 160D #
|
||||||
= BIT5 # OH 2009-05-15 Line not in scan
|
= BIT5 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# Page 83
|
# Page 83
|
||||||
# BIT 4 FLAG 10
|
# BIT 4 FLAG 10
|
||||||
= 161D #
|
= 161D #
|
||||||
= BIT4 # OH 2009-05-15 Line not in scan
|
= BIT4 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 3 FLAG 10
|
# BIT 3 FLAG 10
|
||||||
= 162D #
|
= 162D #
|
||||||
= BIT3 # OH 2009-05-15 Line not in scan
|
= BIT3 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 2 FLAG 10
|
# BIT 2 FLAG 10
|
||||||
= 163D #
|
= 163D #
|
||||||
= BIT2 # OH 2009-05-15 Line not in scan
|
= BIT2 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
# BIT 1 FLAG 10
|
# BIT 1 FLAG 10
|
||||||
= 164D #
|
= 164D #
|
||||||
= BIT1 # OH 2009-05-15 Line not in scan
|
= BIT1 # OH 2009-05-15 Line not in scan
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
@ -1051,13 +1051,13 @@ FLGWRD11 = STATE +11D # (165-179)
|
|||||||
LRBYPASS = 165D # BYPASS ALL LANDING DO NOT BYPASS LR
|
LRBYPASS = 165D # BYPASS ALL LANDING DO NOT BYPASS LR
|
||||||
LRBYBIT = BIT15 # RADAR UPDATES UPDATES
|
LRBYBIT = BIT15 # RADAR UPDATES UPDATES
|
||||||
|
|
||||||
# BIT 14 FLAG 11
|
# BIT 14 FLAG 11
|
||||||
= 166D #
|
= 166D #
|
||||||
= BIT14 #
|
= BIT14 #
|
||||||
|
|
||||||
# BIT 13 FLAG 11
|
# BIT 13 FLAG 11
|
||||||
= 167D #
|
= 167D #
|
||||||
= BIT13 #
|
= BIT13 #
|
||||||
|
|
||||||
# BIT 12 FLAG 11 (L)(R12)
|
# BIT 12 FLAG 11 (L)(R12)
|
||||||
VXINH = 168D # IF Z VELOCITY DATA UPDATE X AXIS
|
VXINH = 168D # IF Z VELOCITY DATA UPDATE X AXIS
|
||||||
@ -1067,7 +1067,7 @@ VXINHBIT = BIT12 # BYPASS X VELOCITY
|
|||||||
|
|
||||||
# BIT 11 FLAG 11 (L)(R12)
|
# BIT 11 FLAG 11 (L)(R12)
|
||||||
PSTHIGAT = 169D # PAST HIGATE PREHIGATE
|
PSTHIGAT = 169D # PAST HIGATE PREHIGATE
|
||||||
PSTHIBIT = BIT11 #
|
PSTHIBIT = BIT11 #
|
||||||
|
|
||||||
# BIT 10 FLAG 11 (L)(R12)
|
# BIT 10 FLAG 11 (L)(R12)
|
||||||
|
|
||||||
@ -1114,7 +1114,7 @@ VFLSHBIT = BIT2 # FLASHING
|
|||||||
|
|
||||||
# BIT 1 FLAG 11 (L)(R12)
|
# BIT 1 FLAG 11 (L)(R12)
|
||||||
# Page 85
|
# Page 85
|
||||||
HFLSHFLG = 179D # LR ALTITUDE FAIL LR ALTITUDE FAIL
|
HFLSHFLG = 179D # LR ALTITUDE FAIL LR ALTITUDE FAIL
|
||||||
HFLSHBIT = BIT1 # LAMP SHOULD BE LAMP SHOULD NOT BE
|
HFLSHBIT = BIT1 # LAMP SHOULD BE LAMP SHOULD NOT BE
|
||||||
# FLASHING FLASHING
|
# FLASHING FLASHING
|
||||||
|
|
||||||
@ -1124,7 +1124,7 @@ FLGWRD12 = STATE +12D # (180-194) WAS RADMODES
|
|||||||
|
|
||||||
# (SET) (RESET)
|
# (SET) (RESET)
|
||||||
|
|
||||||
# BIT 15 FLAG 12
|
# BIT 15 FLAG 12
|
||||||
CDESFLAG = 180D # CONTINUOUS DESIG- LGC CHECKS FOR LOCK-
|
CDESFLAG = 180D # CONTINUOUS DESIG- LGC CHECKS FOR LOCK-
|
||||||
CDESBIT = BIT15 # NATE, LGC COMMANDS ON WHEN ANTENNA
|
CDESBIT = BIT15 # NATE, LGC COMMANDS ON WHEN ANTENNA
|
||||||
# RR REGARDLESS OF BEING DESIGNATED
|
# RR REGARDLESS OF BEING DESIGNATED
|
||||||
@ -1148,12 +1148,12 @@ REPOSMON = 184D # REPOSITION MONITOR. NO REPOSITION TAKING
|
|||||||
REPOSBIT = BIT11 # RR REPOSITION IS PLACE
|
REPOSBIT = BIT11 # RR REPOSITION IS PLACE
|
||||||
# TAKING PLACE
|
# TAKING PLACE
|
||||||
|
|
||||||
# BIT 10 FLAG 12
|
# BIT 10 FLAG 12
|
||||||
DESIGFLG = 185D # RR DESIGNATE RR DESIGNATE NOT
|
DESIGFLG = 185D # RR DESIGNATE RR DESIGNATE NOT
|
||||||
DESIGBIT = BIT10 # REQUESTED OR IN REQUESTED OR IN
|
DESIGBIT = BIT10 # REQUESTED OR IN REQUESTED OR IN
|
||||||
# PROGRESS PROGRESS
|
# PROGRESS PROGRESS
|
||||||
|
|
||||||
# BIT 9 FLAG 12
|
# BIT 9 FLAG 12
|
||||||
ALTSCALE = 186D # LR ALTITUDE READING LR ALTITUDE READING
|
ALTSCALE = 186D # LR ALTITUDE READING LR ALTITUDE READING
|
||||||
ALTSCBIT = BIT9 # IS ON HIGH SCALE IS ON LOW SCALE
|
ALTSCBIT = BIT9 # IS ON HIGH SCALE IS ON LOW SCALE
|
||||||
|
|
||||||
|
|||||||
@ -25,19 +25,19 @@
|
|||||||
# Notations on the hardcopy document read, in part:
|
# Notations on the hardcopy document read, in part:
|
||||||
#
|
#
|
||||||
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
|
||||||
# 16:27 JULY 14, 1969
|
# 16:27 JULY 14, 1969
|
||||||
|
|
||||||
# Page 211
|
# Page 211
|
||||||
BANK 10
|
BANK 10
|
||||||
SETLOC FRANDRES
|
SETLOC FRANDRES
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
EBANK= LST1
|
EBANK= LST1
|
||||||
|
|
||||||
COUNT* $$/START # FRESH AND RESTART
|
COUNT* $$/START # FRESH AND RESTART
|
||||||
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
|
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
|
||||||
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK
|
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK
|
||||||
|
|
||||||
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION
|
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION
|
||||||
STARTSIM CAF BIT14
|
STARTSIM CAF BIT14
|
||||||
TC FINDVAC
|
TC FINDVAC
|
||||||
@ -48,31 +48,31 @@ SKIPSIM CA DSPTAB +11D # TURN OFF ALL DSPTAB +11D LAMPS
|
|||||||
MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
|
MASK BITS4&6 # EXCEPT THE GIMBAL LOCK & NO ATT ONLY ON
|
||||||
AD BIT15 # REQUESTED FRESH START.
|
AD BIT15 # REQUESTED FRESH START.
|
||||||
TS DSPTAB +11D
|
TS DSPTAB +11D
|
||||||
|
|
||||||
CA BIT12 # INITIALIZE DOWNLINK EARASABLE MEMORY
|
CA BIT12 # INITIALIZE DOWNLINK EARASABLE MEMORY
|
||||||
TS DUMPCNT # DUMP FOR ONE PASS
|
TS DUMPCNT # DUMP FOR ONE PASS
|
||||||
|
|
||||||
CA ZERO
|
CA ZERO
|
||||||
TS ERCOUNT
|
TS ERCOUNT
|
||||||
TS FAILREG
|
TS FAILREG
|
||||||
TS FAILREG +1
|
TS FAILREG +1
|
||||||
TS FAILREG +2
|
TS FAILREG +2
|
||||||
TS REDOCTR
|
TS REDOCTR
|
||||||
|
|
||||||
CS PRIO12
|
CS PRIO12
|
||||||
TS DSRUPTSW
|
TS DSRUPTSW
|
||||||
|
|
||||||
DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
|
DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE DSALMOUT
|
WRITE DSALMOUT
|
||||||
CS ZERO
|
CS ZERO
|
||||||
TS THRUST
|
TS THRUST
|
||||||
|
|
||||||
DOFSTRT1 CAF FOUR
|
DOFSTRT1 CAF FOUR
|
||||||
TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
|
TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
|
||||||
CA PRIO30
|
CA PRIO30
|
||||||
TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
|
TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
|
||||||
|
|
||||||
CA ZERO
|
CA ZERO
|
||||||
TS ABDELV # DAP INITIALIZATION
|
TS ABDELV # DAP INITIALIZATION
|
||||||
TS NVSAVE
|
TS NVSAVE
|
||||||
@ -88,7 +88,7 @@ DOFSTRT1 CAF FOUR
|
|||||||
TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
|
TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN5 # TURN OFF RCS JETS.
|
WRITE CHAN5 # TURN OFF RCS JETS.
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN6 # TURN OFF RCS JETS.
|
WRITE CHAN6 # TURN OFF RCS JETS.
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE CHAN12
|
WRITE CHAN12
|
||||||
@ -107,10 +107,10 @@ DOFSTRT1 CAF FOUR
|
|||||||
|
|
||||||
CS ZERO
|
CS ZERO
|
||||||
TS MODREG
|
TS MODREG
|
||||||
|
|
||||||
CAF IM30INIF # FRESH START IMU INITIALIZATION
|
CAF IM30INIF # FRESH START IMU INITIALIZATION
|
||||||
TS IMODES30
|
TS IMODES30
|
||||||
|
|
||||||
CAF MAXDB
|
CAF MAXDB
|
||||||
TS DB
|
TS DB
|
||||||
CAF FOUR
|
CAF FOUR
|
||||||
@ -120,7 +120,7 @@ DOFSTRT1 CAF FOUR
|
|||||||
CAF EBANK6
|
CAF EBANK6
|
||||||
TS EBANK
|
TS EBANK
|
||||||
EBANK= HIASCENT
|
EBANK= HIASCENT
|
||||||
|
|
||||||
CA STIKSTRT
|
CA STIKSTRT
|
||||||
TS STIKSENS
|
TS STIKSENS
|
||||||
CA RATESTRT
|
CA RATESTRT
|
||||||
@ -143,7 +143,7 @@ DOFSTRT1 CAF FOUR
|
|||||||
CAF IM33INIT
|
CAF IM33INIT
|
||||||
AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
|
AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
|
||||||
TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
|
TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
|
||||||
|
|
||||||
EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
|
EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
|
||||||
DCA SWINIT
|
DCA SWINIT
|
||||||
DXCH STATE
|
DXCH STATE
|
||||||
@ -173,10 +173,10 @@ DOFSTRT1 CAF FOUR
|
|||||||
TS STATE +10D
|
TS STATE +10D
|
||||||
CAF SWINIT +11D
|
CAF SWINIT +11D
|
||||||
TS STATE +11D
|
TS STATE +11D
|
||||||
|
|
||||||
ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
|
ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
|
||||||
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DON'T ZERO NEWJOB)
|
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DON'T ZERO NEWJOB)
|
||||||
|
|
||||||
MR.KLEAN INHINT
|
MR.KLEAN INHINT
|
||||||
# Page 214
|
# Page 214
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -258,10 +258,10 @@ SETINFL CS INTFLBIT
|
|||||||
MASK IMODES30 # HARDWARE RESTART, RESET ALL FAILURE
|
MASK IMODES30 # HARDWARE RESTART, RESET ALL FAILURE
|
||||||
AD IM30INIR # CODES.
|
AD IM30INIR # CODES.
|
||||||
TS IMODES30
|
TS IMODES30
|
||||||
|
|
||||||
CA AGSWORD # BE SURE OF CORRECT DOWNLIST
|
CA AGSWORD # BE SURE OF CORRECT DOWNLIST
|
||||||
TS DNLSTCOD
|
TS DNLSTCOD
|
||||||
|
|
||||||
CA BIT4 # TURN ON THROTTLE COUNTER
|
CA BIT4 # TURN ON THROTTLE COUNTER
|
||||||
EXTEND
|
EXTEND
|
||||||
WOR CHAN14 # TURN ON THRUST DRIVE
|
WOR CHAN14 # TURN ON THRUST DRIVE
|
||||||
@ -286,7 +286,7 @@ GOPROG2A TC LIGHTSET
|
|||||||
CS RSFLGBTS # CLEAR BITS 7 AND 14.
|
CS RSFLGBTS # CLEAR BITS 7 AND 14.
|
||||||
MASK FLGWRD10
|
MASK FLGWRD10
|
||||||
TS FLGWRD10
|
TS FLGWRD10
|
||||||
|
|
||||||
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
|
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
|
||||||
PCLOOP TS MPAC +5
|
PCLOOP TS MPAC +5
|
||||||
DOUBLE
|
DOUBLE
|
||||||
@ -302,24 +302,24 @@ PCLOOP TS MPAC +5
|
|||||||
# Page 217
|
# Page 217
|
||||||
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||||
TCF PCLOOP
|
TCF PCLOOP
|
||||||
|
|
||||||
TS MPAC +6 # SET TO +0.
|
TS MPAC +6 # SET TO +0.
|
||||||
TC MMDSPLAY # DISPLAY MAJOR MODE
|
TC MMDSPLAY # DISPLAY MAJOR MODE
|
||||||
|
|
||||||
INHINT # RELINT DONE IN MMDSPLAY
|
INHINT # RELINT DONE IN MMDSPLAY
|
||||||
|
|
||||||
CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
|
CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
|
||||||
MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
|
MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
|
||||||
TS FLAGWRD1 # OPERATION AT THE TIME OF THE RESTART.
|
TS FLAGWRD1 # OPERATION AT THE TIME OF THE RESTART.
|
||||||
|
|
||||||
CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
|
CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
|
||||||
MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
|
MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
|
||||||
TS FLAGWRD1 # CONTINUE.
|
TS FLAGWRD1 # CONTINUE.
|
||||||
|
|
||||||
CS P21FLBIT # CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
|
CS P21FLBIT # CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
|
||||||
MASK FLAGWRD0 # NEW BASE STATE VECTORS.
|
MASK FLAGWRD0 # NEW BASE STATE VECTORS.
|
||||||
TS FLAGWRD0
|
TS FLAGWRD0
|
||||||
|
|
||||||
CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
|
CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
|
||||||
NXTRST TS MPAC +5
|
NXTRST TS MPAC +5
|
||||||
DOUBLE
|
DOUBLE
|
||||||
@ -327,16 +327,16 @@ NXTRST TS MPAC +5
|
|||||||
CCS PHASE1
|
CCS PHASE1
|
||||||
TCF PACTIVE # PNZ -- GROUP ACTIVE.
|
TCF PACTIVE # PNZ -- GROUP ACTIVE.
|
||||||
TCF PINACT # +0 -- GROUP NOT RUNNING.
|
TCF PINACT # +0 -- GROUP NOT RUNNING.
|
||||||
|
|
||||||
PACTIVE TS MPAC
|
PACTIVE TS MPAC
|
||||||
INCR MPAC # ABS OF PHASE.
|
INCR MPAC # ABS OF PHASE.
|
||||||
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
|
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
|
||||||
CA RACTCADR
|
CA RACTCADR
|
||||||
TC SWCALL # MUST RETURN TO SWRETURN.
|
TC SWCALL # MUST RETURN TO SWRETURN.
|
||||||
|
|
||||||
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
||||||
TCF NXTRST
|
TCF NXTRST
|
||||||
|
|
||||||
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
|
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
|
||||||
TCF ENDRSTRT # PHASE ACTIVE
|
TCF ENDRSTRT # PHASE ACTIVE
|
||||||
CAF BIT15 # IS MODE -0
|
CAF BIT15 # IS MODE -0
|
||||||
@ -346,7 +346,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
|
|||||||
TCF ENDRSTRT # YES
|
TCF ENDRSTRT # YES
|
||||||
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
|
||||||
OCT 1107
|
OCT 1107
|
||||||
|
|
||||||
TCF DOFSTRT1
|
TCF DOFSTRT1
|
||||||
#******** ****** ******
|
#******** ****** ******
|
||||||
# Page 218
|
# Page 218
|
||||||
@ -428,12 +428,12 @@ STARTSB1 CAF POSMAX
|
|||||||
STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
||||||
EXTEND # ENGINE ON, OFF AND ISS WARNING.
|
EXTEND # ENGINE ON, OFF AND ISS WARNING.
|
||||||
WAND DSALMOUT
|
WAND DSALMOUT
|
||||||
|
|
||||||
CS READRBIT # CLEAR READRFLG FOR R29
|
CS READRBIT # CLEAR READRFLG FOR R29
|
||||||
MASK FLAGWRD3
|
MASK FLAGWRD3
|
||||||
TS FLAGWRD3
|
TS FLAGWRD3
|
||||||
# Page 220
|
# Page 220
|
||||||
|
|
||||||
CS FLAGWRD3 # DURING SOFTWARE RESTART, CLEAR TURNON,
|
CS FLAGWRD3 # DURING SOFTWARE RESTART, CLEAR TURNON,
|
||||||
MASK NR29FBIT # REPOSITION, CDU ZERO AND REMODE BITS
|
MASK NR29FBIT # REPOSITION, CDU ZERO AND REMODE BITS
|
||||||
EXTEND # IN RADMODES, SINCE TASKS ASSOCIATED
|
EXTEND # IN RADMODES, SINCE TASKS ASSOCIATED
|
||||||
@ -448,30 +448,30 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
|||||||
WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
|
WAND CHAN12 # IMU CDUS, ENABLE IMU COUNTER) AND GIMBAL
|
||||||
# TRIM DRIVES. LEAVE RR LOCKON ENABLE
|
# TRIM DRIVES. LEAVE RR LOCKON ENABLE
|
||||||
# ALONE.
|
# ALONE.
|
||||||
|
|
||||||
CS NORRMBIT # ENABLE R25.
|
CS NORRMBIT # ENABLE R25.
|
||||||
MASK FLAGWRD5
|
MASK FLAGWRD5
|
||||||
TS FLAGWRD5
|
TS FLAGWRD5
|
||||||
|
|
||||||
CS R77FLBIT # CLEAR R77FLAG
|
CS R77FLBIT # CLEAR R77FLAG
|
||||||
MASK FLAGWRD5
|
MASK FLAGWRD5
|
||||||
TS FLAGWRD5
|
TS FLAGWRD5
|
||||||
CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
||||||
EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
|
EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
|
||||||
WAND CHAN13 # ENABLE T6RUPT FLAG.
|
WAND CHAN13 # ENABLE T6RUPT FLAG.
|
||||||
|
|
||||||
CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
|
CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
|
||||||
EXTEND # RESUMES EXCEPT DURING P64)
|
EXTEND # RESUMES EXCEPT DURING P64)
|
||||||
WOR CHAN13
|
WOR CHAN13
|
||||||
|
|
||||||
CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
||||||
EXTEND # GYRO ENABLE FLAG.
|
EXTEND # GYRO ENABLE FLAG.
|
||||||
WAND CHAN14
|
WAND CHAN14
|
||||||
|
|
||||||
EBANK= LST1
|
EBANK= LST1
|
||||||
CAF STARTEB
|
CAF STARTEB
|
||||||
TS EBANK # SET FOR E3
|
TS EBANK # SET FOR E3
|
||||||
|
|
||||||
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
|
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
|
||||||
TS LST1 +7
|
TS LST1 +7
|
||||||
TS LST1 +6
|
TS LST1 +6
|
||||||
@ -503,7 +503,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
|||||||
TS LST2 +13D
|
TS LST2 +13D
|
||||||
TS LST2 +15D
|
TS LST2 +15D
|
||||||
TS LST2 +17D
|
TS LST2 +17D
|
||||||
|
|
||||||
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
|
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
|
||||||
TS PRIORITY # AVAILABLE.
|
TS PRIORITY # AVAILABLE.
|
||||||
TS PRIORITY +12D
|
TS PRIORITY +12D
|
||||||
@ -513,10 +513,10 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
|||||||
TS PRIORITY +60D
|
TS PRIORITY +60D
|
||||||
TS PRIORITY +72D
|
TS PRIORITY +72D
|
||||||
TS PRIORITY +84D
|
TS PRIORITY +84D
|
||||||
|
|
||||||
TS DSRUPTSW
|
TS DSRUPTSW
|
||||||
TS NEWJOB # SHOWS NO ACTIVE JOBS.
|
TS NEWJOB # SHOWS NO ACTIVE JOBS.
|
||||||
|
|
||||||
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
|
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
|
||||||
TS VAC1USE
|
TS VAC1USE
|
||||||
AD LTHVACA
|
AD LTHVACA
|
||||||
@ -527,7 +527,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
|
|||||||
TS VAC4USE
|
TS VAC4USE
|
||||||
AD LTHVACA
|
AD LTHVACA
|
||||||
TS VAC5USE
|
TS VAC5USE
|
||||||
|
|
||||||
CAF TEN
|
CAF TEN
|
||||||
DSPOFF TS MPAC # R1, R2, R3
|
DSPOFF TS MPAC # R1, R2, R3
|
||||||
CS BIT12
|
CS BIT12
|
||||||
@ -535,8 +535,8 @@ DSPOFF TS MPAC # R1, R2, R3
|
|||||||
TS DSPTAB
|
TS DSPTAB
|
||||||
CCS MPAC
|
CCS MPAC
|
||||||
TCF DSPOFF
|
TCF DSPOFF
|
||||||
|
|
||||||
# Page 222
|
# Page 222
|
||||||
TS DELAYLOC
|
TS DELAYLOC
|
||||||
TS DELAYLOC +1
|
TS DELAYLOC +1
|
||||||
TS DELAYLOC +2
|
TS DELAYLOC +2
|
||||||
@ -562,20 +562,20 @@ DSPOFF TS MPAC # R1, R2, R3
|
|||||||
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
|
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
|
||||||
CAF NOUTCON
|
CAF NOUTCON
|
||||||
TS NOUT
|
TS NOUT
|
||||||
|
|
||||||
CS ONE
|
CS ONE
|
||||||
TS SAMPLIM
|
TS SAMPLIM
|
||||||
CAF BIT6
|
CAF BIT6
|
||||||
MASK IMODES33 # LEAVE BIT 6 UNCHANGED
|
MASK IMODES33 # LEAVE BIT 6 UNCHANGED
|
||||||
AD IM33INIT # NO PIP OR TM FAILS. BIT6=0 IN THIS WORD.
|
AD IM33INIT # NO PIP OR TM FAILS. BIT6=0 IN THIS WORD.
|
||||||
TS IMODES33
|
TS IMODES33
|
||||||
|
|
||||||
CAF LESCHK # SELF CHECK GO-TO REGISTER.
|
CAF LESCHK # SELF CHECK GO-TO REGISTER.
|
||||||
TS SELFRET
|
TS SELFRET
|
||||||
|
|
||||||
CS VD1
|
CS VD1
|
||||||
TS DSPCOUNT
|
TS DSPCOUNT
|
||||||
|
|
||||||
TC Q
|
TC Q
|
||||||
EBANK= AOSQ
|
EBANK= AOSQ
|
||||||
IDLEADR 2CADR DAPIDLER
|
IDLEADR 2CADR DAPIDLER
|
||||||
@ -607,7 +607,7 @@ SWINIT OCT 0
|
|||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 00100
|
OCT 00100
|
||||||
|
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
OCT 0
|
OCT 0
|
||||||
@ -637,13 +637,13 @@ SWINIT OCT 0
|
|||||||
BLOCK 03
|
BLOCK 03
|
||||||
SETLOC FFTAG5
|
SETLOC FFTAG5
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/P00
|
COUNT* $$/P00
|
||||||
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
|
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
|
||||||
TS L
|
TS L
|
||||||
COM
|
COM
|
||||||
DXCH -PHASE4
|
DXCH -PHASE4
|
||||||
|
|
||||||
TC POSTJUMP
|
TC POSTJUMP
|
||||||
CADR GOP00FIX
|
CADR GOP00FIX
|
||||||
OCT24 MM 20
|
OCT24 MM 20
|
||||||
@ -652,11 +652,11 @@ OCT31 MM 25
|
|||||||
BANK 20
|
BANK 20
|
||||||
SETLOC VERB37
|
SETLOC VERB37
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
|
COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
|
||||||
GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
|
GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
|
||||||
ADRES XOVINFLG
|
ADRES XOVINFLG
|
||||||
|
|
||||||
TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
|
TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
|
||||||
ADRES ULLAGFLG
|
ADRES ULLAGFLG
|
||||||
# Page 225
|
# Page 225
|
||||||
@ -667,7 +667,7 @@ GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
|
|||||||
TCF -3
|
TCF -3
|
||||||
TCF -4
|
TCF -4
|
||||||
TCF -5
|
TCF -5
|
||||||
|
|
||||||
V37N99 VN 3799
|
V37N99 VN 3799
|
||||||
|
|
||||||
# Page 226
|
# Page 226
|
||||||
@ -739,12 +739,12 @@ V37N99 VN 3799
|
|||||||
V37 TS MMNUMBER # SAVE MAJOR MODE
|
V37 TS MMNUMBER # SAVE MAJOR MODE
|
||||||
CAF PRIO30 # RESTART AT PINBALL PRIORITY
|
CAF PRIO30 # RESTART AT PINBALL PRIORITY
|
||||||
TS RESTREG
|
TS RESTREG
|
||||||
|
|
||||||
CA IMODES30 # IS IMU BEING INITIALIZED
|
CA IMODES30 # IS IMU BEING INITIALIZED
|
||||||
MASK BIT6
|
MASK BIT6
|
||||||
CCS A
|
CCS A
|
||||||
TCF CANTROD
|
TCF CANTROD
|
||||||
|
|
||||||
CS MMNUMBER # IS P70 REQUESTED?
|
CS MMNUMBER # IS P70 REQUESTED?
|
||||||
AD DEC70
|
AD DEC70
|
||||||
EXTEND
|
EXTEND
|
||||||
@ -752,23 +752,23 @@ V37 TS MMNUMBER # SAVE MAJOR MODE
|
|||||||
AD ONE # IS P71 REQUESTED?
|
AD ONE # IS P71 REQUESTED?
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF SETUP71 # YES
|
BZF SETUP71 # YES
|
||||||
|
|
||||||
CA MMNUMBER # IS NEW REQUEST P00
|
CA MMNUMBER # IS NEW REQUEST P00
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF ISSERVON # YES, CHECK SERVICER STATUS
|
BZF ISSERVON # YES, CHECK SERVICER STATUS
|
||||||
|
|
||||||
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
|
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
|
||||||
MASK NODOBIT
|
MASK NODOBIT
|
||||||
CCS A
|
CCS A
|
||||||
TCF CHECKTAB # NO
|
TCF CHECKTAB # NO
|
||||||
CANTROD TC ALARM
|
CANTROD TC ALARM
|
||||||
OCT 1520
|
OCT 1520
|
||||||
|
|
||||||
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
|
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
|
||||||
|
|
||||||
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
|
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
|
||||||
CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
|
CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
|
||||||
|
|
||||||
CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
|
CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
|
||||||
|
|
||||||
# Page 228
|
# Page 228
|
||||||
@ -782,10 +782,10 @@ AGAINMM TS MPAC +1
|
|||||||
CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
|
CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
|
||||||
TCF AGAINMM # YES, GET NEXT ONE
|
TCF AGAINMM # YES, GET NEXT ONE
|
||||||
TCF V37NONO # LAST TIME OR PASSED MM
|
TCF V37NONO # LAST TIME OR PASSED MM
|
||||||
|
|
||||||
CA MPAC +1
|
CA MPAC +1
|
||||||
TS MINDEX # SAVE INDEX FOR LATER
|
TS MINDEX # SAVE INDEX FOR LATER
|
||||||
|
|
||||||
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
||||||
MASK V37FLBIT
|
MASK V37FLBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -793,12 +793,12 @@ ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
|
|||||||
|
|
||||||
TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND
|
TC DOWNFLAG # YES, TURN OFF THE AVERAGE FLAG AND
|
||||||
ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37
|
ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37
|
||||||
|
|
||||||
CAF V37RETAD
|
CAF V37RETAD
|
||||||
TS OUTROUTE
|
TS OUTROUTE
|
||||||
|
|
||||||
TCF ENDOFJOB
|
TCF ENDOFJOB
|
||||||
|
|
||||||
V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
|
V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
|
||||||
MASK RNDVZBIT
|
MASK RNDVZBIT
|
||||||
CCS A
|
CCS A
|
||||||
@ -811,19 +811,19 @@ V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
|
|||||||
2.11SPT AD BIT5
|
2.11SPT AD BIT5
|
||||||
2.7SPT AD OCT40072
|
2.7SPT AD OCT40072
|
||||||
TC PHSCHNGA
|
TC PHSCHNGA
|
||||||
|
|
||||||
CANV37 CAF ZERO
|
CANV37 CAF ZERO
|
||||||
EXTEND
|
EXTEND
|
||||||
WRITE SUPERBNK
|
WRITE SUPERBNK
|
||||||
|
|
||||||
CAF R00AD
|
CAF R00AD
|
||||||
TS TEMPFLSH
|
TS TEMPFLSH
|
||||||
|
|
||||||
TC PHASCHNG
|
TC PHASCHNG
|
||||||
OCT 14
|
OCT 14
|
||||||
|
|
||||||
# Page 229
|
# Page 229
|
||||||
|
|
||||||
R00 TC INTPRET
|
R00 TC INTPRET
|
||||||
|
|
||||||
CALL # WAIT FOR INTEGRATION TO FINISH
|
CALL # WAIT FOR INTEGRATION TO FINISH
|
||||||
@ -832,41 +832,41 @@ DUMMYAD EXIT
|
|||||||
|
|
||||||
TC DOWNFLAG
|
TC DOWNFLAG
|
||||||
ADRES 3AXISFLG # RESET 3-AXIT FLAG
|
ADRES 3AXISFLG # RESET 3-AXIT FLAG
|
||||||
|
|
||||||
CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
|
CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
|
||||||
TS FLGWRD11
|
TS FLGWRD11
|
||||||
|
|
||||||
TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
|
TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
|
||||||
ADRES R04FLAG
|
ADRES R04FLAG
|
||||||
|
|
||||||
TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
|
TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
|
||||||
ADRES MUNFLAG
|
ADRES MUNFLAG
|
||||||
|
|
||||||
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
|
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
|
||||||
ADRES XOVINFLG
|
ADRES XOVINFLG
|
||||||
CCS MMNUMBER # IS THIS A P00H REQUEST
|
CCS MMNUMBER # IS THIS A P00H REQUEST
|
||||||
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
|
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
|
||||||
|
|
||||||
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
|
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
|
||||||
|
|
||||||
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
|
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
|
||||||
TS PHSPRDT2 # P00 INTEGRATION.
|
TS PHSPRDT2 # P00 INTEGRATION.
|
||||||
|
|
||||||
TC CLRADMOD # CLRADMOD DOES AN INHINT.
|
TC CLRADMOD # CLRADMOD DOES AN INHINT.
|
||||||
|
|
||||||
CS NODOBIT # TURN OFF NODOFLAG.
|
CS NODOBIT # TURN OFF NODOFLAG.
|
||||||
MASK FLAGWRD2
|
MASK FLAGWRD2
|
||||||
TS FLAGWRD2
|
TS FLAGWRD2
|
||||||
|
|
||||||
CA FIVE # SET RESTART FOR STATEINT1
|
CA FIVE # SET RESTART FOR STATEINT1
|
||||||
TS L
|
TS L
|
||||||
COM
|
COM
|
||||||
DXCH -PHASE2
|
DXCH -PHASE2
|
||||||
|
|
||||||
CS OCT700 # TURN OFF P20, P25, IMU IN USE FLAG
|
CS OCT700 # TURN OFF P20, P25, IMU IN USE FLAG
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
TS FLAGWRD0 # REMDFLG
|
TS FLAGWRD0 # REMDFLG
|
||||||
|
|
||||||
CAF DNLADP00
|
CAF DNLADP00
|
||||||
|
|
||||||
SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
||||||
@ -874,16 +874,16 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
|||||||
# NEW ONE IS STARTED)
|
# NEW ONE IS STARTED)
|
||||||
TC IBNKCALL
|
TC IBNKCALL
|
||||||
CADR ENGINOF1
|
CADR ENGINOF1
|
||||||
|
|
||||||
# Page 230
|
# Page 230
|
||||||
TC IBNKCALL # INSURE ALLCOAST.
|
TC IBNKCALL # INSURE ALLCOAST.
|
||||||
CADR ALLCOAST # DOES A RESTORDB.
|
CADR ALLCOAST # DOES A RESTORDB.
|
||||||
|
|
||||||
CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
|
CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
|
||||||
TS EBANKTEM
|
TS EBANKTEM
|
||||||
MASK FLAGWRD1
|
MASK FLAGWRD1
|
||||||
TS FLAGWRD1
|
TS FLAGWRD1
|
||||||
|
|
||||||
TC IBNKCALL # KILL GROUPS 1,3,5,6
|
TC IBNKCALL # KILL GROUPS 1,3,5,6
|
||||||
CADR V37KLEAN
|
CADR V37KLEAN
|
||||||
|
|
||||||
@ -891,23 +891,23 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
|
|||||||
TCF RENDV00 # NO
|
TCF RENDV00 # NO
|
||||||
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
|
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
|
||||||
CADR P00KLEAN
|
CADR P00KLEAN
|
||||||
|
|
||||||
CA MMNUMBER
|
CA MMNUMBER
|
||||||
TS MODREG
|
TS MODREG
|
||||||
|
|
||||||
GOGOPROG TC POSTJUMP
|
GOGOPROG TC POSTJUMP
|
||||||
CADR GOPROG2
|
CADR GOPROG2
|
||||||
|
|
||||||
RENDV00 CS MODREG # IS CURRENT PROGRAM 22
|
RENDV00 CS MODREG # IS CURRENT PROGRAM 22
|
||||||
AD OCT26
|
AD OCT26
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF RESET22 # YES -- CLEAR RENDEZVOUS FLAG
|
BZF RESET22 # YES -- CLEAR RENDEZVOUS FLAG
|
||||||
|
|
||||||
CS MMNUMBER # IS NE PROGRAM P22
|
CS MMNUMBER # IS NE PROGRAM P22
|
||||||
AD OCT26
|
AD OCT26
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF RESET22
|
BZF RESET22
|
||||||
|
|
||||||
AD NEG2 # IS NEW PROGRAM = P20 OR P25
|
AD NEG2 # IS NEW PROGRAM = P20 OR P25
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF RENDN00 # YES
|
BZF RENDN00 # YES
|
||||||
@ -919,31 +919,31 @@ RENDV00 CS MODREG # IS CURRENT PROGRAM 22
|
|||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
CCS A
|
CCS A
|
||||||
TCF P00FIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
|
TCF P00FIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
|
||||||
|
|
||||||
RESET22 CS OCT700 # CLEAR RENDEZVOUS, P25
|
RESET22 CS OCT700 # CLEAR RENDEZVOUS, P25
|
||||||
MASK FLAGWRD0 # AND IMU IN USE FLAGS
|
MASK FLAGWRD0 # AND IMU IN USE FLAGS
|
||||||
TS FLAGWRD0
|
TS FLAGWRD0
|
||||||
TC CLRADMOD
|
TC CLRADMOD
|
||||||
# Page 231
|
# Page 231
|
||||||
|
|
||||||
KILL2 EXTEND # NO, KILL 2
|
KILL2 EXTEND # NO, KILL 2
|
||||||
DCA NEG0
|
DCA NEG0
|
||||||
DXCH -PHASE2
|
DXCH -PHASE2
|
||||||
|
|
||||||
P00FIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
|
P00FIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
|
||||||
TS TEMPFLSH
|
TS TEMPFLSH
|
||||||
|
|
||||||
TCF GOGOPROG
|
TCF GOGOPROG
|
||||||
|
|
||||||
RENDN00 CS MODREG
|
RENDN00 CS MODREG
|
||||||
AD OCT24
|
AD OCT24
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 --
|
BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 --
|
||||||
|
|
||||||
AD FIVE
|
AD FIVE
|
||||||
EXTEND
|
EXTEND
|
||||||
BZF KILL2
|
BZF KILL2
|
||||||
|
|
||||||
CA OCT500
|
CA OCT500
|
||||||
MASK FLAGWRD0
|
MASK FLAGWRD0
|
||||||
AD MMNUMBER
|
AD MMNUMBER
|
||||||
@ -974,11 +974,11 @@ NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
|
|||||||
|
|
||||||
INHINT
|
INHINT
|
||||||
TCF SEUDOP00
|
TCF SEUDOP00
|
||||||
|
|
||||||
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
|
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
|
||||||
# Page 232
|
# Page 232
|
||||||
TCF V37BAD
|
TCF V37BAD
|
||||||
|
|
||||||
OCT00010 EQUALS BIT4
|
OCT00010 EQUALS BIT4
|
||||||
OCT500 OCT 500 # BITS 7 AND 9
|
OCT500 OCT 500 # BITS 7 AND 9
|
||||||
OCT305 OCT 305
|
OCT305 OCT 305
|
||||||
@ -990,37 +990,37 @@ V37XEQ INHINT
|
|||||||
CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
|
CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
|
||||||
TS MMTEMP
|
TS MMTEMP
|
||||||
TS CYR # SHIFT RIGHT TO BITS 14-10
|
TS CYR # SHIFT RIGHT TO BITS 14-10
|
||||||
|
|
||||||
CA CYR
|
CA CYR
|
||||||
MASK PRIO37
|
MASK PRIO37
|
||||||
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
|
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
|
||||||
TS NEWPRIO # STORE PRIO FOR SPVAC
|
TS NEWPRIO # STORE PRIO FOR SPVAC
|
||||||
|
|
||||||
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
|
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
|
||||||
EXTEND
|
EXTEND
|
||||||
MP BIT8
|
MP BIT8
|
||||||
MASK LOW3
|
MASK LOW3
|
||||||
TS L
|
TS L
|
||||||
|
|
||||||
INDEX MINDEX
|
INDEX MINDEX
|
||||||
CAF FCADRMM1
|
CAF FCADRMM1
|
||||||
TS BASETEMP # MAKE BBCON BY ADDING HI5 OR FCADR
|
TS BASETEMP # MAKE BBCON BY ADDING HI5 OR FCADR
|
||||||
MASK HI5
|
MASK HI5
|
||||||
ADS L
|
ADS L
|
||||||
|
|
||||||
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
|
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
|
||||||
MASK LOW10
|
MASK LOW10
|
||||||
AD BIT11
|
AD BIT11
|
||||||
|
|
||||||
TC SPVAC
|
TC SPVAC
|
||||||
|
|
||||||
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
|
||||||
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
|
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
|
||||||
TC NEWMODEA # PHSPRDT1)
|
TC NEWMODEA # PHSPRDT1)
|
||||||
|
|
||||||
TC RELDSP # RELEASE DISPLAY
|
TC RELDSP # RELEASE DISPLAY
|
||||||
TC ENDOFJOB # AND EXIT
|
TC ENDOFJOB # AND EXIT
|
||||||
|
|
||||||
NEG7 EQUALS OCT77770
|
NEG7 EQUALS OCT77770
|
||||||
|
|
||||||
MMTEMP EQUALS PHSPRDT3
|
MMTEMP EQUALS PHSPRDT3
|
||||||
@ -1040,7 +1040,7 @@ SETUP70 TS Q
|
|||||||
DCA P70CADR
|
DCA P70CADR
|
||||||
AD Q
|
AD Q
|
||||||
DTCB
|
DTCB
|
||||||
|
|
||||||
DEC70 DEC 70
|
DEC70 DEC 70
|
||||||
EBANK= R
|
EBANK= R
|
||||||
P70CADR 2CADR P70
|
P70CADR 2CADR P70
|
||||||
@ -1051,7 +1051,7 @@ P70CADR 2CADR P70
|
|||||||
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
|
# TO THE LOWEST MAJOR MODE WHICH IS THE LAST ENTRY IN EACH TABLE.
|
||||||
#
|
#
|
||||||
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
|
# THE FCADRMM TABLE CONTAINS THE FCADR OF THE STARTING JOB OF
|
||||||
# THE MAJOR MODE. FOR EXAMPLE,
|
# THE MAJOR MODE. FOR EXAMPLE,
|
||||||
#
|
#
|
||||||
# FCADRMM1 FCADR P79 # START OF P 79
|
# FCADRMM1 FCADR P79 # START OF P 79
|
||||||
# FCADR PROG18 # START OF P 18
|
# FCADR PROG18 # START OF P 18
|
||||||
@ -1091,7 +1091,7 @@ FCADRMM1 FCADR P79
|
|||||||
FCADR PROG20
|
FCADR PROG20
|
||||||
FCADR P12LM
|
FCADR P12LM
|
||||||
FCADR P06
|
FCADR P06
|
||||||
|
|
||||||
# THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
|
# THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
|
||||||
# INFORMATION, IT IS IN THE FOLLOWING FORM,
|
# INFORMATION, IT IS IN THE FOLLOWING FORM,
|
||||||
#
|
#
|
||||||
@ -1144,7 +1144,7 @@ PREMM1 OCT 27717 # MM 79 EBANK 7 PRIO 13
|
|||||||
OCT 27624 # MM 20 EBANK 7 PRIO 13
|
OCT 27624 # MM 20 EBANK 7 PRIO 13
|
||||||
OCT 27614 # MM 12 EBANK 7 PRIO 13
|
OCT 27614 # MM 12 EBANK 7 PRIO 13
|
||||||
OCT 27006 # MM 06 EBANK 4 PRIO 13
|
OCT 27006 # MM 06 EBANK 4 PRIO 13
|
||||||
|
|
||||||
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
|
# NOTE: THE FOLLOWING CONSTANT IS THE NUMBER OF ENTRIES IN EACH OF
|
||||||
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
|
# ----- THE ABOVE LISTS-1 (I.E., THE NUMBER OF MAJOR MODES (EXCEPT P00)
|
||||||
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
|
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
|
||||||
@ -1153,7 +1153,7 @@ NOV37MM DEC 29 # MM'S -1
|
|||||||
|
|
||||||
DNLADMM1 ADRES RENDEZVU # P79
|
DNLADMM1 ADRES RENDEZVU # P79
|
||||||
ADRES RENDEZVU # P78
|
ADRES RENDEZVU # P78
|
||||||
ADRES RENDEZVU
|
ADRES RENDEZVU
|
||||||
ADRES RENDEZVU # P75
|
ADRES RENDEZVU # P75
|
||||||
ADRES RENDEZVU # P74
|
ADRES RENDEZVU # P74
|
||||||
ADRES RENDEZVU # P73
|
ADRES RENDEZVU # P73
|
||||||
@ -1193,11 +1193,11 @@ LUNRSALN = 5
|
|||||||
BANK 13
|
BANK 13
|
||||||
SETLOC INTINIT
|
SETLOC INTINIT
|
||||||
BANK
|
BANK
|
||||||
|
|
||||||
COUNT* $$/INTIN
|
COUNT* $$/INTIN
|
||||||
|
|
||||||
EBANK= RRECTCSM
|
EBANK= RRECTCSM
|
||||||
|
|
||||||
# THIS ROUTINE DOES THE P00 INTEGRATION
|
# THIS ROUTINE DOES THE P00 INTEGRATION
|
||||||
|
|
||||||
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
||||||
@ -1211,7 +1211,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
|
|||||||
DOINT CLEAR CALL
|
DOINT CLEAR CALL
|
||||||
PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
|
PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
|
||||||
INTEGRV # WHEN MODREG = 0
|
INTEGRV # WHEN MODREG = 0
|
||||||
|
|
||||||
BON DLOAD
|
BON DLOAD
|
||||||
SURFFLAG
|
SURFFLAG
|
||||||
NO-INT
|
NO-INT
|
||||||
@ -1233,10 +1233,10 @@ DOINT2 SET CALL
|
|||||||
NO-INT CLRGO
|
NO-INT CLRGO
|
||||||
NODOFLAG
|
NODOFLAG
|
||||||
ENDINT
|
ENDINT
|
||||||
# Page 237
|
# Page 237
|
||||||
# THISVINT IS CALLED BY MIDTOAV1 AND 2
|
# THISVINT IS CALLED BY MIDTOAV1 AND 2
|
||||||
|
|
||||||
THISVINT CLEAR RVQ
|
THISVINT CLEAR RVQ
|
||||||
VINTFLAG
|
VINTFLAG
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user