kjodle/Apollo-11
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Trim whitespace

Browse Source
This commit is contained in:
James Harris 2016-12-28 16:11:25 +00:00
parent 7c33b5996c
commit 4f3a1d4374
166 changed files with 5357 additions and 5357 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

64
Comanche055/AUTOMATIC_MANEUVERS.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -31,9 +31,9 @@
BANK 21
SETLOC DAPS3
BANK
COUNT 21/DAPAM
EBANK= KMPAC
AHFNOROT EXTEND
READ CHAN31
@ -50,12 +50,12 @@ AHFNOROT EXTEND
MASK BIT13
EXTEND
BZMF HOLDFUNC
AUTOCONT CA HOLDFLAG # IF HOLDFLAG IS +, GO TO GRABANG.
EXTEND # OTHERWISE, GO TO ATTHOLD.
BZMF ATTHOLD
TCF GRABANG
# MINIMUM IMPULSE CONTROL
FREECONT CAF ONE
@ -80,12 +80,12 @@ FREECONT CAF ONE
# Page 1026
TS TAU2
TCF T6PROGM
MINTAU DEC 0
DEC 23 # = 14MS
DEC -23 # = -14MS
DEC 0
# Page 1027
# CALCULATION OF ATTITUDE ERRORS:
# _ * _ _ _
@ -143,7 +143,7 @@ ATTHOLD CA CDUX
CA BIAS2
ADS ERRORZ
TCF JETS
HOLDFUNC CCS HOLDFLAG
TCF +3
TCF ATTHOLD
@ -158,7 +158,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES
TS BIAS
TS BIAS1
TS BIAS2
CA RCSFLAGS
MASK OCT16000
EXTEND # IS RATE DAMPING COMPLETED
@ -168,7 +168,7 @@ GRABANG CAF ZERO # ZERO WBODYS AND BIASES
TS ERRORY
TS ERRORZ
TCF JETS
ENDDAMP TS HOLDFLAG # SET HOLDFLAG +0
EXTEND
DCA CDUX # PICK UP CDU ANGLES FOR ATTITUDE HOLD
@ -250,7 +250,7 @@ JLOOP TS SPNDX
INHOLD INDEX SPNDX
CA ERRORX
TS AERR # AERR = BIAS + AK
CCS EDOT
TCF POSVEL
TCF SIGNCK1
@ -275,14 +275,14 @@ NEGVEL EXTEND
TS ADBVEL # -(ADB+AF)
CS AERR
TS AERRVEL
J6. EXTEND
# Page 1031
SU ADB
AD WLH/SLOP
EXTEND
BZMF J8
CS T5TEMP # (ADB+AF)
AD AERRVEL
EXTEND
@ -298,7 +298,7 @@ J6. EXTEND
EXTEND
BZMF J18
TCF J23
J7 CS WL-H/SLP
EXTEND
SU T5TEMP # (ADB+AF)
@ -306,7 +306,7 @@ J7 CS WL-H/SLP
EXTEND
BZMF J20
TCF J21
J8 EXTEND
DCS WLH
DXCH WTEMP
@ -321,7 +321,7 @@ SIGNCK2 CCS WTEMP +1
TCF J22
TCF J22
TCF NJ22
NJ22 EXTEND
DCA EDOTVEL
EXTEND
@ -334,7 +334,7 @@ NJ22 EXTEND
TCF J23
TCF +2
TCF J23
EXTEND
DCS WLMH # WL - H
DXCH WTEMP
@ -349,7 +349,7 @@ SIGNCK3 CCS WTEMP +1
TCF J23
TCF J23
TCF NJ23
NJ23 CA AERRVEL
AD T5TEMP # (ADB+AF)
AD WL-H/SLP
@ -358,12 +358,12 @@ NJ23 CA AERRVEL
TCF J24
TCF J22
TCF J22
J18 EXTEND
DCS EDOT
DXCH KMPAC
TCF JTIME
J20 CS AERR
AD ADBVEL
EXTEND
@ -373,7 +373,7 @@ J20 CS AERR
DCS EDOT
DAS KMPAC
TCF JTIME
J21 CCS EDOT
TCF JP
TCF SIGNCK4
@ -390,7 +390,7 @@ JN EXTEND
DCA WL
DAS KMPAC
TCF JTIME
JP EXTEND
DCS EDOT
DXCH KMPAC
@ -398,7 +398,7 @@ JP EXTEND
DCS WL
DAS KMPAC
TCF JTIME
J22 CCS EDOT
TCF JN
TCF SIGNCK5
@ -408,21 +408,21 @@ SIGNCK5 CCS EDOT +1
TCF JN
TCF JP
TCF JP
J23 INDEX SPNDX
CS BIT13 # RESET RATE DAMPING FLAG
MASK RCSFLAGS # BIT13 FOR ROLL (SPNDX = 0)
TS RCSFLAGS # BIT12 FOR PITCH (SPNDX = 1)
# BIT11 FOR YAW (SPNDX = 2)
INDEX SPNDX
CAF OCT01400 # IS THERE TO BE A FORCED FIRING ON THIS
MASK RCSFLAGS # AXIS
EXTEND
BZF DOJET +2 # NO, GO TO DOJET +2 AND DO NOTHING
TCF J18 # YES, GO TO J18 AND FORCE A FIRING
J24 CS AERR
EXTEND
SU ADBVEL
@ -433,7 +433,7 @@ J24 CS AERR
# Page 1034
DCS EDOT
DAS KMPAC
# Page 1035
# 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
CA NEGMAX
TCF DOJET
TAUNORM CA KMPAC +1
DOJET INDEX SPNDX
TS TAU
CCS SPNDX
TCF JLOOP
TCF T6PROG
# Page 1036
ZEROCMDS CAF ZERO
TS TAU
@ -493,7 +493,7 @@ T6PROG EXTEND # WHEN THE ROTATION COMMANDS (TAUS)
DCA JETADDR # HAVE BEEN DETERMINED
DXCH T5LOC # RESET T5LOC FOR PHASE3
TCF RESUME
EBANK= KMPAC
JETADDR 2CADR JETSLECT

76
Comanche055/CM_BODY_ATTITUDE.agc
View File

@ -10,11 +10,11 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name and Comanche 055 page images.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -30,18 +30,18 @@
# Page 883
BANK 35
SETLOC BODYATT
BANK
COUNT 37/CMBAT
# PDL 12D - 15D SAFE.
# VALUE OF GIMBAL AND BODY ANGLES VALID AT PIP TIME ARE SAVED DURING READACCS.
EBANK= RTINIT # LET INTERPRETER SET EB
CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT.
SETPD VLOAD
@ -55,11 +55,11 @@ CM/POSE TC INTPRET # COME HERE VIA AVEGEXIT.
KWE
VAD STADR
STORE -VREL # SAVE FOR ENTRY GUIDANCE. REF COORDS
UNIT LXA,1
36D # ABVAL( -VREL) TO X1
STORE UXA/2 # -UVREL REF COORDS
VXV VCOMP
UNITR # .5 UNIT REF COORDS
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
STORE OLDUYA # RESTORE, OR SAVE AS CASE MAY BE.
VXV VCOMP
UXA/2 # FINISH OBTAINING TRAJECTORY TRIAD.
VSL1
@ -81,7 +81,7 @@ CM/POSE2 STORE UYA/2 # REF COORDS
AOG/PIP # TO PIPUP TIME IN 2'S C AND SAVE.
CM/TRIO STODL 24D
25D # AIG/PIP
RTB PUSH # TO PDL0
CDULOGIC
COS
@ -91,7 +91,7 @@ CM/TRIO STODL 24D
STODL UBX/2 +4 # -SI /2
26D # AMG/PIP
RTB PUSH # TO PDL 0
CDULOGIC
CDULOGIC
SIN PDDL # XCH PDL 0. SAVE SM /2
COS PDDL # CM /2 TO PDL 2
0 # SM /2
@ -119,9 +119,9 @@ CM/TRIO STODL 24D
UBX/2 # CI /2
UBY/2 +4
STOVL UBY/2 +4 # YB/4 PLATFORM COORDS
# YB = (-COSMCI + SOSI , COCM , COSMSI + SOCI )
UBY/2
VXM VSL2
REFSMMAT # .5 UNIT
@ -134,20 +134,20 @@ CM/TRIO STODL 24D
STADR # SM /2 FROM PDL 0
STOVL UBX/2 +2 # SM /2 REPLACES NOISE
UBX/2 # XB/2 PLATFORM COORDS
# XB = ( CMCI , SM , -CMSI )
VXM VSL1
REFSMMAT # .5 UNIT
STORE UBX/2 # XB/2 DONE REF COORDS
VXV VSL1
UBY/2
STOVL UBZ/2 # ZB/2 DONE REF COORDS
# EQUIVALENT TO
# ZB = ( SOSMCI + COSI , -SOCM , -SOSMSI + COCI )
UXA/2 # -UVREL/2 = -UVA/2
VXV UNIT # GET UNIT(-UVREL*UBY)/2 = UL/2
UBY/2 # YB/2
@ -155,7 +155,7 @@ CM/TRIO STODL 24D
UZA/2 # UNA/2
STOVL COSTH # COS(ROLL)/4
0 # UL/2
DOT
UYA/2
STCALL SINTH # -SIN(ROLL)/4
@ -181,7 +181,7 @@ CM/TRIO STODL 24D
UZA/2 # MORE ACCURATE AT LARGE ARG.
ARCCOS
STORE 10D # (-GAMA/180)/2
TLOAD EXIT # ANGLES IN MPAC IN THE ORDER
# -( (ROLL, BETA, ALFA) /180)/2
6D # THESE VALUES CORRECT AT PIPUP TIME.
@ -190,19 +190,19 @@ CM/TRIO STODL 24D
# BASIC SUBROUTINE TO UPDATE ATTITUDE ANGLES
EBANK= AOG
CM/ATUP CA EBAOG
TS EBANK
CMTR1 INDEX FIXLOC
CS 10D # (GAMA/180)/2
XCH GAMA
TS L
INHINT
# MUST REMAIN INHINTED UNTIL UPDATE OF BODY
# ANGLES, SO THAT GAMDIFSW IS VALID FIRST PASS
# INDICATOR.
CS CM/FLAGS
MASK BIT11 # GAMDIFSW=94D BIT11 INITLY=0
EXTEND # DON'T CALC GAMA DOT UNTIL HAVE FORMD
@ -210,20 +210,20 @@ CMTR1 INDEX FIXLOC
BZF DOGAMDOT # IS OK, GO ON.
ADS CM/FLAGS # KNOW BIT IS 0
TC NOGAMDOT # SET GAMDOT = 0
DOGAMDOT CS L
AD GAMA # DEL GAMA/360= T GAMDOT/360
EXTEND
MP TCDU # TCDU = .1 SEC, T = 2 SEC.
TS GAMDOT # GAMA DOT TCDU / 180
EXTEND # IGNORE GAMDOT IF LEQ .5 DEG/SEC
BZMF +2
COM
AD FIVE
EXTEND
BZMF +3 # SET GAMDOT=+0 AS TAG IF TOO SMALL.
NOGAMDOT CA ZERO # COME HERE INHINTED
TS GAMDOT
# FOR NOW LEAVE IN 2'S C
@ -239,7 +239,7 @@ NOGAMDOT CA ZERO # COME HERE INHINTED
TC CORANGOV # CORRECT FOR OVFL IF ANY
# Page 888
TS TEMPROLL
CS MPAC +2 # GET (ALFA EUL/180) /2
DOUBLE # SAME AS FOR ROLL. NEEDED FOR EXT ATM DAP
TC CORANGOV # CORRECT FOR OVFL IF ANY
@ -248,43 +248,43 @@ NOGAMDOT CA ZERO # COME HERE INHINTED
AD ALFA/180
TC CORANGOV # CORRECT FOR OVFL IF ANY
TS TEMPALFA
CS MPAC +1 # GET (BETA EUL/180) /2
CMTR2 DOUBLE
EXTEND
SU BETA/PIP
AD BETA/180
XCH TEMPBETA # OVFL NOT EXPECTED.
CA EBANK3
TS EBANK
EBANK= PHSNAME5
EXTEND
DCA REPOSADR # THIS ASSUMES THAT THE TC PHASCHNG
DXCH PHSNAME5 # IS NOT CHANGED IN OCT 10035
# SERVICER.
CA EBAOG
TS EBANK
EBANK= AOG
REDOPOSE EXTEND # RE-STARTS COME HERE
DCA TEMPROLL
DXCH ROLL/180
CA TEMPBETA
TS BETA/180
RELINT
TC INTPRET # CAN'T TC DANZIG AFTER PHASCHNG.
CM/POSE3 VLOAD ABVAL # RETURN FROM CM/ATUP. (RESTART)
VN # 2(-7) M/CS
STORE VMAGI # FOR DISPLAY ON CALL.
GOTO
POSEXIT # ENDEXIT, STARTENT, OR SCALEPOP.
CORANGOV TS L
TC Q
INDEX A
@ -292,7 +292,7 @@ CORANGOV TS L
CA LIMITS
ADS L
TC Q # COSTS 2 MCT TO USE. SEE ANGOVCOR.
-KVSCALE 2DEC -.81491944 # -12800/(2 VS .3048)
TCDU DEC .1 # TCDU = .1 SEC.

308
Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc
View File

@ -9,8 +9,8 @@
# Pages: 1063-1092
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 page images.
# 2009-05-20 RSB Corrections: Removed an extraneous label
# EXDAPIN, added a missing instruction in
# 2009-05-20 RSB Corrections: Removed an extraneous label
# EXDAPIN, added a missing instruction in
# COMPAT.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -38,43 +38,43 @@
# CM/DSTBY = 0 TO TERMINATE DAP OPERATION
BANK 15
SETLOC ETRYDAP
BANK
COUNT 15/DAPEN
EBANK= AOG
READGYMB CA TEN # KEEP RESTART DT GOING RELATIVE TO
ADS CM/GYMDT # PIPTIME. (GROUP 6)
# IF A RESTART OCCURS, SKIP PRESENT CYCLE. THE
# PHASCHNG PROTECTION IS IN CM/DAPIC.
CA BIT6 # CHECK FOR FINE ALIGN MODE OF CDU.
MASK IMODES33 # (PROTECT AOG/PIP ETC AS WELL AS
EXTEND # GIMBAL DIFFERENCES)
BZF READGYM1 # OK
CS BIT1 # NOT IN FINE ALIGN, SO IDLE
MASK CM/FLAGS # SET GYMDIFSW = 0
TS CM/FLAGS
TC FLUSHJET # QUENCH JETS, SINCE MAY BE A WHILE.
TC CM/GYMIC +2
READGYM1 CA CDUX
XCH AOG
EXTEND
MSU AOG # -DELAOG=AOG(N-1) - AOG(N)
TS -DELAOG
CA CDUY
XCH AIG
EXTEND
MSU AIG
TS -DELAIG
CA CDUZ
XCH AMG
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.
NOOP
TC FLUSHJET # TURN OFF ALL JETS
TC PHASCHNG
OCT 00006 # DEACTIVATE DAP GROUP 6.
TC TASKOVER
DOBRATE CA ONE # DO BODYRATE
DOBRATE1 TS JETEM # SKIP BODYRATE
@ -103,13 +103,13 @@ DOBRATE1 TS JETEM # SKIP BODYRATE
TC WAITLIST
EBANK= AOG
2CADR READGYMB
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
CCS JETEM
TC BODYRATE
TC TASKOVER # SKIP CALC ON INITIAL PASS. (PASSES)
CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0
CAF ZERO
TS JETAG
@ -118,7 +118,7 @@ CM/GYMIC ADS CM/FLAGS # GYMDIFSW: C(A)=1, KNOW BIT IS 0
TS OLDELR
TS GAMDOT # NO GYM DIF, PROB NO GAM DIF.
TC DOBRATE1
# Page 1065
# COME HERE TO CORRECT FOR OVERFLOW IN ANGULAR CALCULATIONS
@ -128,45 +128,45 @@ ANGOVCOR TS L # THIS COSTS 2 MCT TO USE.
CAF LIMITS
ADS L
TC Q
BLOCK 3
COUNT 03/DAPEN
FLUSHJET CA 7 # COME HERE TO TURN OFF ALL JETS.
EXTEND
WRITE ROLLJETS # ZERO CHANNEL 6
EXTEND
WRITE PYJETS # ZERO CHANNEL 5
TC Q
BANK 15
COUNT 15/DAPEN
SETLOC ETRYDAP
BANK
RATEAVG COM # SUBROUTINE TO ESTIMATE RATES IN PRESENCE
AD JETEM # OF CONSTANT ACCELERATION.
EXTEND
MP HALF # DELV (EST) = DELV +(DELV-OLDELV)/2
AD JETEM
TC Q
# Page 1066
# THESE ARE CALLED FOR THE VARIOUS INITIALIZATIONS NEEDED.
BANK 20
SETLOC DAPS1
BANK
COUNT 20/DAPEN
EBANK= AOG
CM/DAPON CA EBAOG
TS EBANK
TC DOWNFLAG # RESET DAPBIT1. T5 RESTART IDENTIFIER.
ADRES DAPBIT1 # BIT 15 FLAG 6 CMFLAGS.
TC DOWNFLAG # RESET DAPBIT2
@ -177,14 +177,14 @@ CM/DAPON CA EBAOG
EXTEND
DCA T5IDLER1 # DISABLE RCS JET CALLS
DXCH T6LOC
TC FLUSHJET # JETS DEPARTED ON SM. ZERO JET BITS.
CS 13,14,15
MASK DAPDATR1 # SET CONFIG BITS=0 FOR ENTRY
TS DAPDATR1
TC +4
NOTYET CA .5SEC
TC BANKCALL
CADR DELAYJOB # (DELAYJOB DOES INHINT)
@ -192,15 +192,15 @@ NOTYET CA .5SEC
MASK CM/FLAGS # IF ZERO, WAIT UNTIL CM/POSE UPDATE.
EXTEND
BZF NOTYET
CS ONE # ACTIVATE CM/DAP
TS RCSFLAGS # USE BIT3 TO INITIALIZE NEEDLER ON
# NEXT PASS.
TS P63FLAG # SO WAKEP62 WILL NOT BE INITIATED UNTIL
# HEADSUP IS SET IN P62.
# FLAG TO PREVENT MULTIPLE CALLS TO WAKEP62
CA 7
TS JETAG
TS PAXERR1 # KEEP NEEDLES ZERO UNTIL DAP UPDATE
@ -215,20 +215,20 @@ NOTYET CA .5SEC
EXTEND
MP HALF
TS ROLLC # NOT INTERESTED IN LO WORD.
CS CM/FLAGS
MASK BIT12 # CMDAPARM =93D BIT12 INITLY=0
ADS CM/FLAGS # SET BIT TO 1.
CS FLAGWRD2 # SET NODOFLAG TO PREVENT FURTHER
MASK BIT1 # V 37 ENTRIES.
ADS FLAGWRD2
RELINT
TC POSTJUMP
CADR P62.1
# Page 1068
# INITIALIZE CM/DAP. WAITLIST CALL FOR READGYMB. SET SWITCH CM/DSTBY =1
# SO READACCS WILL ENTER A WTLST CALL FOR SETJTAG .
@ -237,17 +237,17 @@ NOTYET CA .5SEC
CM/DAPIC CA EBAOG
TS EBANK
INHINT
CM/DAP2C CS PIPTIME +1
# PRIO OF P62 L PRIO AVG.:PIPTM=PIPTM1.
TS JETEM
CA POS1/2
AD POS1/2
AD TIME1 # OVFL GUARANTEED
ADS JETEM # C(A) = DELTA TIME SINCE PIPUP
CS FIVE
AD JETEM
CCS A
@ -259,28 +259,28 @@ CM/DAP2C CS PIPTIME +1
TC WAITLIST
EBANK= AOG
2CADR READGYMB
CS CM/SWIC1 # GAMDIFSW, GYMDIFSW, CM/DSTBY
MASK CM/FLAGS # DAPARM, .05GSW, LATSW, ENTRYDSP
AD CM/SWIC2 # SET CM/DSTBY, LATSW
# DISABLE ENTRY DISPLAY, SINCE DES. GIMB.
# CALC. (P62.3) GOES TO ENDEXIT
TS CM/FLAGS
CA 7
TS BETA/180 # NECESSARY: NO OVFL CORRECTIO
CA ONE # INITIALIZE THE TM OF BODY RATES VIA
TS SW/NDX # UPBUFF.
TC 2PHSCHNG # DOES INHINT/RELINT
OCT 40116 # SAVE TBASE6
OCT 05024
OCT 13000
TC POSTJUMP
# Page 1069
CADR P62.2
CM/SWIC1 OCT 16017
CM/SWIC2 = TEN # 00012: CM/DSTBY, LATSW
-CDUT+1 OCT 77766
@ -301,29 +301,29 @@ T5IDLER1 2CADR T5IDLOC
BANK 15
SETLOC ETRYDAP
BANK
COUNT 15/DAPEN
BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
TC SPCOS
TS COSM
CA AOG # C(AOG) = AOG/180
TC SPSIN # SINO
TS SINO # SINO = SIN(AOG)
EXTEND
MP COSM
TS SINOCOSM # SO CM
CA AOG
TC SPCOS # COSO
TS COSO
EXTEND
MP COSM
TS COSOCOSM # CO CM
# PITCHDOT: Q TCDU/180 = IDOT TCDU/180 COSO COSM + MDOT TCDU/180 SINO
CS -DELAMG
@ -338,7 +338,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
XCH OLDELQ
TC RATEAVG
TS QREL # PITCHDOT = Q TCDU/180
# Page 1071
# 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
TC RATEAVG
TS RREL # YAWDOT = R TCDU/180
# ROLLDOT: P TCDU/180 = ODOT TCDU/180 + IDOT TCDU/180 SINM
CA AMG
TC SPSIN
TS SINM
EXTEND
MP -DELAIG
TS JETEM
@ -373,9 +373,9 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
XCH OLDELP
TC RATEAVG
TS PREL # ROLLDOT = P TCDU/180
# IF GAMDOT < 0.5 DEG/SEC, THEN GAMDOT =0
CCS GAMDOT
TC +2
TC NOGAMDUT
@ -387,7 +387,7 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
EXTEND
MP SINTRIM # SIN(-20) (FOR NOMINAL L/D = .3)
ADS PREL # PREL TCDU/180=(P-SALF SR GAMDOT)TCDU/180
CA ROLL/180
TC SPCOS
# Page 1072
@ -395,12 +395,12 @@ BODYRATE CA AMG # THESE ARE 2'S COMPL NOS, BUT USE ANYWAY.
EXTEND
MP GAMDOT
ADS QREL # QREL TCDU/180=(Q-CR GAMDOT) TCDU/180
CS JETEM +1 # B( ) = -SR GAMDOT
EXTEND
MP COSTRIM # COS(-20) (FOR NOMINAL L/D = .3)
ADS RREL # RREL TCDU/180=(R+CALF SR GAMDOT)TCDU/180
NOGAMDUT CA BIT12 # CMDAPARM = 93D BIT 12
MASK CM/FLAGS
EXTEND
@ -408,14 +408,14 @@ STBYDUMP BZF TASKOVER # DAP NOT ARMED.
CA POSMAX # PICK UP AT ATTRATES IN 10 MS OR SO.
TS TIME5
EXTEND
DCA ATDOTCAD
DXCH T5LOC
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
TC TASKOVER
EBANK= AOG
ATDOTCAD 2CADR ATTRATES
@ -433,7 +433,7 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
DOUBLE
TS CM/SAVE
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
CA QREL
AD ALFA/180
TC ANGOVCOR
@ -441,28 +441,28 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
TC SPCOS
TS CALFA # CALFA
TS PHIDOT
EXTEND
MP PREL
XCH PHIDOT # CA PREL
EXTEND
MP RREL # CA RREL
TS BETADOT
CA ALFA/180
TC SPSIN
TS SALFA # SIN(ALFA)
EXTEND
MP RREL # SA RREL
ADS PHIDOT # CB PHIDOT, SAVED.
CS SALFA
EXTEND
MP PREL
ADS BETADOT # SAVE BETADOT TCDU/180
ADS BETA/180 # BETA DONE.
TC SPSIN
EXTEND
MP PHIDOT # NEGLECT CB IN CB PHIDOT
@ -475,13 +475,13 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
TC ANGOVCOR # JUST IN CASE ...
TS AK1
TS QAXERR # FOR PITCH FDAI AND EDIT.
CA PHIDOT # PHIDOT TCDU/180, NEGLECTING CB
AD ROLL/180
TC ANGOVCOR
TS ROLLTM # ROLL/180 FOR TM.
TS ROLL/180 # ROLL DONE.
# START YAW AUTOPILOT HERE. RATE DAMPING WITH ENFORCED COORDINATED ROLL MANEUVER.
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
# IS OK.) FINAL C(RAXERR) AT END OF DAP CYCLE WILL
# BE R-AXIS ERROR.
CA BIT3 # .05GSW = 102D BIT3 SW=0, LESS .05G
MASK CM/FLAGS # SWITCH =1, GREATER THAN .05 G
EXTEND
BZF EXDAP # IF G LESS THAN .05
CS ONE # IF G GEQ THAN .05
TS CMDAPMOD # SAVE -1 FOR USE IN CM/RCS
TS AK1 # TO ZERO PITCH AND YAW FDAI NEEDLES
TS AK2 # IN ATM. (MODE =-1)
CS PREL # YAW ERROR = RREL - PREL TAN(ALFA)
EXTEND
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
INDEX A # +/- 1 IF NOT
CAF YJETCODE
TS JETEM
# START PITCH AUTOPILOT HERE. RATE DAMPING ONLY.
CA QREL
@ -518,11 +518,11 @@ ATTRATES LXCH BANKRUPT # CONTINUE HERE VIA T5
EXDAPIN INDEX A # COME HERE FROM EX ATM DAP
CAF P/RJCODE
ADS JETEM # COMBINE ALL NEW BITS.
EXTEND # DOES NOT REQUIRE SAVING OLD CODES.
# Page 1075
# Page 1075
WRITE PYJETS # SET PYCHAN TO DESIRED BIT CONFIG.
CCS JETAG
TC CM/RCS
TC CM/FDAI
@ -536,7 +536,7 @@ EXDAPIN INDEX A # COME HERE FROM EX ATM DAP
TCF DZCOM
AD YAWLIM
TCF DZNOCOM
# BIASED DZ FOR EXT ATM DAP.
BIASEDZ TS JETEM2 # SAVE RATE/180. ERROR/180 IS IN L.
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
ZL # RATE GEQ 4 D/S. OVER RIDE ERROR BIT
XCH JETEM2 # AND CONTINUE TO GET SIGN.
2D/SDZ CCS A # COME HERE TO TEST IF A WITHIN 2DEG/S DZ
AD YDOTLIM # 1.0 - YDOT DZ (OR PDOT)
TCF +3
@ -564,7 +564,7 @@ DZCOM COM
DZNOCOM TS JETEM +1 # GENERATE TAG, SET C(A)= -+1 OUTSIDE DZ
CA ZERO # SET C(A) = +0 INSIDE
TC Q
# Page 1077
# EXTRA ATMOSPHERIC DIGITAL AUTOPILOT
#
@ -598,7 +598,7 @@ EXDAP TS CMDAPMOD # +0 FOR NOW
AD C45LIM
TS A
TCF EXDAP2 # HERE IF ABS(CALFA) L COS(45)
CCS CALFA # |CALFA| > 0.707
TCF +1 # CONTINUE IF POS; GO TO EXDAP4 IF NEG.
@ -614,10 +614,10 @@ EXDAP TS CMDAPMOD # +0 FOR NOW
TC WAITLIST
EBANK= AOG
2CADR WAKEP62 # CALL TO TERMINATE P62 IN N SEC.
# Page 1078
# Page 1078
# 65 DEG/ 3DEG/SEC = 21 SEC NOMINAL
# TRANSIT TIME FROM ALFA=45 TO ALFA TRIM.
EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC
TCF EXDAP3 # DAP AND THE 2 SEC CM/RCS DAP
TCF EXDAP3
@ -625,7 +625,7 @@ EXDAP4 CCS JETAG # ROLLJET INTERFACE TEST BETWEEN .1 SEC
EXTEND # TURN OFF ROLL JETS IF ON AND WAIT
WRITE ROLLJETS # UNTIL START OF 2 SEC CM/RCS CYCLE
TS JETAG # RESTORE PROPER VALUE +0
# ROLL FDAI WILL BE IN ERROR UNTIL NEXT CM/RCS CALL.
EXDAP3 CCS CALFA # HERE IF ABS(CALFA) GEQ COS(45)
CA RAXERR # C()= BETACOM - BETA/180
@ -648,7 +648,7 @@ EXDAP1 TS RAXERR # FOR YAW FDAI
INDEX A
CAF YJETCODE
TS JETEM
CA QAXERR # ALFA ERROR.
TS L
CA QREL # FOR ALPHADOT USE QREL
@ -656,18 +656,18 @@ EXDAP1 TS RAXERR # FOR YAW FDAI
EXTEND
ROR LCHAN
TCF EXDAPIN # CONTINUE ON IN DAP
EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
CS ONE # INDICATE CHANGE FROM .1 SEC UPDATE TO
TS JETAG # TO 2 SEC FOR ROLL JETS. (IF CMDAPMOD
# =0 AND JETAG =-1, QUENCHES JETS IF ON)
CCS P63FLAG # IF FLAG WAS +1, SET =0.
TS P63FLAG
# Page 1079
# Page 1079
NOOP
CCS SALFA # BETA CONTROL WITH P JETS
CS RAXERR # B()= BETACOM - BETA/180
TCF +2
@ -688,7 +688,7 @@ EXDAP2 INCR CMDAPMOD # SET CMDAPMOD TO +1
CAF P/RJCODE # GET ROLL CODE
EXTEND # ROLL CONTROL WITH YAW JETS.
WRITE ROLLJETS # WE'LL SKIP REGULAR ROLL SYST
CA ROLLHOLD # ROLL/180 AT CM/DAPON TIME.
EXTEND
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
CS L
TC EXDAP1
NSEC DEC 2100 # 65 DEG/ 3 DEG/SEC
# IF NSEC IS CHANGED, REMEMBER TO CHANGE 4.33SPOT.
4D/SLIM DEC 16348 # 1.0 -4/180 D/S = 4/1800 EXP 14
YDOTLIM DEC 16366 # =1.0 - YDOT DZ= 16384 -18
# YDOT DZ = YDOT TCDU/180 = 2/1800 EXP 14
CM/BIAS DEC 55 # =.6/180 B14 = 55
YAWLIM DEC 16055 # YAWLIM=1.0-3.6/180=16384-329=16055
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
OCTAL 00240 # NEG Y
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
# Page 1081
# 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
@ -740,9 +740,9 @@ SETJTAG CS TIME1 # SAVE NOMINAL UPDATE TIME FOR SYNCH
TS JETAG # SET JETAG=1 TO CAUSE CM/RCS TO BE
TC PHASCHNG
OCT 00001
TC TASKOVER # EXECUTED AFTER NEXT BODYRATE UPDATE
# 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
# 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
# MAY MISS A CYCLE. CM/RCS WILL MISS A CYCLE ONLY
# IF A RESTART OCCURS AFTER TIMETST COMMENCES.
CM/RCS CS ONE
TS JNDX # SET NDX FOR POS ROLL, AND CHANGE LATER
CS 2T/TCDU # ROLLDOT = DELAOG + DELAIG SINM =DELR
EXTEND
MP PREL # DELR/180 = RDOT TCDU/180 = RDOT/1800
AD L # -2 RDOT T/180 IN L
TS -VT/180 # SAVE -2VT/180 HERE
CS ROLL/180
TS SR # SAVE (-R/180) /2
CS CM/FLAGS
MASK BIT4 # LATSW = 101D BIT4
EXTEND # ROLL OVER TOP $
@ -776,19 +776,19 @@ CM/RCS CS ONE
AD SR # -(R/180) /2
XCH LCX/360 # DIFFERENT X REQD HERE. DISCONT AT 180.
TCF COMPAT # POSSIBLE OVFL ABOVE.
# Page 1082
GETLCX CA POS1/2 # FORM RCOM/360
DOUBLE
AD ROLLC
XCH LCX/360 # IGNORE POSSIBLE OVFL.
CA SR # FORM -R/360
AD NEG1/2
AD NEG1/2 # IGNORE OVFL
XCH LCX/360 # -R/360
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 ?
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
DOUBLE
ADS LCX/360
COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN.
EXTEND
MP CALFA # COS ALFA
TS LCX/360 # SCALED LCX OK HERE.
CCS CMDAPMOD # FOUR POSSIBILITIES HERE
TC DZCALL1 # EXIT, SETTING JETAG=0. (C(A)=0)
# ALL 3 AXES ALREADY DONE.
@ -839,7 +839,7 @@ COMPAT CA LCX/360 # CORRECT FOR ASSUMED COORD TURN.
EXTEND
MP 180/8ATT
TS VSQ/4API
# 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
@ -854,7 +854,7 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1
AD BUFLIM
EXTEND
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?
COM
@ -862,20 +862,20 @@ WHICHALF DOUBLE # FOR SECOND BURN, A1
AD BUFLIM
EXTEND
BZMF DZ1 # POINT (X,V) IN RHP
# IS POINT WITHIN VELOCITY DZ?
CS VSQMIN # IS VSQ/4API - (VSQ/4API) MIN NEG?
AD VSQ/4API
EXTEND
BZMF DZCALL # YES.
# POINT IS IN BUFFER ZONE. THRUST TO X AXIS.
CS JNDX
TS JNDX1
TC OVRLINE1
REFLECT CS -VT/180 # RELFECT LHP INTO RHP REL TO TERM CONTR
TS -VT/180
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
CS JNDX
TS JNDX
# 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
BZMF DZ2 # YES, GO TEST FURTHER.
TCF MAXVTEST # NO
# IS X/360 - XMIN/360 -VT/360 NEG?
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
EXTEND # IS X/360 - XMIN/360 -VT/360 NEG $
BZMF DZCALL # YES, IN DZ. EXIT SETTING JETAG=0.
# IS XD/360 - VM/360K - XS/360 POS?
MAXVTEST CS JNDX
@ -918,7 +918,7 @@ MAXVTEST CS JNDX
EXTEND
MP KTRCS
DDOUBL # GO SAVE PREDICTED DRIFTING VELOCITY.
TC GETON1 # INSURE THAT Q IS POS AS TAG.
MAXVTIM1 EXTEND
ZQ # SET +Q AS TAG
@ -933,14 +933,14 @@ GETON1 TS VDT/180 # VDT/180 OR VMT/180
EXTEND
BZMF OVRLINE
TC GETON2 # RESET Q POS IF CAME FROM MAXVTIM1
OVRLINE CCS Q
TCF OVRLINE1
MAXVTIM2 CA JNDX1 # ABOVE VM, SO THRUST DOWN
TS JNDX
CS TON1
TCF OVRLINE2 +1
OVRLINE1 CS -VT/180 # DRIFT AT V
TS VDT/180
OVRLINE2 CA ZERO
@ -951,14 +951,14 @@ GETON2 CA VDT/180 # VDT/180, OR VMT/180 OR VT/180
MP 180/8ATT
DOUBLE # FOR SECOND BURN, A1
TS TON2 # = TON2 / 4T
COM
EXTEND
BZMF GETOFF
TS TON2
CA JNDX
TS JNDX1
GETOFF CS TON2 # TON2 / 4T
EXTEND
MP VDT/180 # VDT/180, OR VT/180, OR VMT/180.
@ -977,7 +977,7 @@ GETOFF CS TON2 # TON2 / 4T
DV VDT/180
EXTEND
BZF GETOFF2 # DIVIDE OK
TOFFOVFL CA 2JETT # OVFL, USE 2T FOR CONVENIENCE.
TCF TIMSCAL
@ -993,19 +993,19 @@ TIMSCAL TS TOFF # IN CS
EXTEND
MP TON1 # C(TON1) = TON1 / 4T
TS TON1 # IN CS
CAF 4JETT
EXTEND
MP TON2 # C(TON2) = TON2 / 4T
TS TON2 # IN CS
CA ZERO # CANNOT REDO AFTER TIMETST. TUSED GONE
TS JETAG # SET +0 TO SHOW ROLL DAP CALLED.
# CAUSE THE TM OF BODY RATES VIA UPBUFF TO BE
# INITIALIZED. ALSO CAUSE NEEDLES TO BE DONE ON EXIT
# AND ON ALTERNATE PASSES THROUGH CM/DUMPR.
CA ONE
TS SW/NDX
@ -1024,11 +1024,11 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL.
AD POS1/2
AD POS1/2 # OVFL GUARANTEED.
ADS TUSED # B(TUSED) =-TUSED =-OLTIME1
CA -T-3 # =-T +2 -5 (SEE SETJTAG)
# THE +2 REQUIRED FOR PROPER BRANCH.
ADS TUSED # TUSED = TIME(K)-TIME(K-1)-T+2
CS TWO # USE 2 SINCE TIME3 UNCERTAIN TO 1
AD TON1
EXTEND
@ -1036,7 +1036,7 @@ TIMETST CA TIME1 # CORRECT FOR POSSIBLE TIME1 OVFL.
INDEX JNDX
CAF P/RJCODE
TS T1BITS
CA TON1
ADS TUSED
EXTEND
@ -1076,11 +1076,11 @@ TIMETST3 TS TON1
TIMETST4 TS TOFF
TIMETST5 CS ONE
TS TON2
# SECTION JETCALL EXAMINES CONTENTS OF JET TIMES IN LIST, ESTABLISHES WTLST ENTRIES, AND EXECUTES CORRESPONDING
# JET CODES. A POSITIVE NZ NUMBER IN A TIME REGISTER INDICATES THAT A WTLST CALL IS TO BE MADE, AND ITS JET BITS
# EXECUTED. A +0 INDICATES THAT THE TIME INTERVAL DOES NOT APPLY, BUT THE 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
# THAN ONE REGISTER.
@ -1110,18 +1110,18 @@ JETCALL2 XCH L # SAVE JET BITS FOR AFTER WTLST CALL
TC WAITLIST
EBANK= AOG
2CADR JETCALL
JETACTN CA NUJET # COME HERE WHEN DESIRED JET CODE IS KNOWN
# Page 1089
EXTEND # NO NEED TO SAVE OLD CODES
WRITE ROLLJETS # SET RCHAN TO NEW BIT CONFIG.
CCS OUTTAG
TC TASKOVER
ROLLDUMP TC CM/FDAIR
# EDIT DUMP AT ABOVE LOCATION.
# WAITLIST ENTRIES COME HERE.
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.
ZL # NO, CONTINUE.
TCF JETCALL3 # C(A) POS, C(L) = +0
# DEAD ZONE ENTRIES COME HERE.
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.
TS ROLLHOLD # IF CMDAPMOD =-0, SAVE ROLL ANGLE.
# OTHERWISE, SAVE ROLL COMMAND.
CA ZERO # COME HERE IF IN DZ, AND CANCEL JETS.
EXTEND # INHINT NOT NEEDED HERE.
WRITE ROLLJETS # TURN OFF ALL ROLL JETS.
@ -1173,33 +1173,33 @@ CM/FDAI CS PHIDOT # INTEGRATE ROLL ERROR 'TWEEN 2SEC UPDATES
EXTEND
MP HALF
ADS PAXERR1 # ROLL ERROR/360. OVFL OK.
# EDIT DUMP AT ABOVE LOCATION.
CM/FDAIR CA HALF
EXTEND
MP PAXERR1 # FULL SCALE FOR FDAI (ROLL) IS 67.5 D
TS PAXERR # .25 (ROLL ERROR/180) FOR FDAI NEEDLE.
# PROGRAM TO FILE BODY RATES FOR TM ON ONE PASS AND
# TO UPDATE THE NEEDLE DISPLAY ON THE NEXT.
# SYNCHRONIZATION WITH CM/RCS IS USED SO THAT THE TM
# IS DONE WITH THE ROLL SYSTEM AND NEEDLES START ON
# THE SUBSEQUENT PASS.
CM/DUMPR CS SW/NDX # COMBINED ALTERNATION SWITCH AND FILE
TS SW/NDX
EXTEND # INDEX
BZMF CMTMFILE # FILE STARTS WITH SW/NDX +1 AND GOES TO
# ENDBUF.
# ENDBUF.
# INDEX IS POS FOR NEEDLES.
TC IBNKCALL
CADR NEEDLER
TC CM/END
# INDEX IS NEG FOR TM FILE
CMTMFILE AD THREE
EXTEND
BZMF SAVENDX
@ -1216,16 +1216,16 @@ SAVENDX TS SW/NDX # A NEGATIVE NUMBER.
CA RREL
INDEX SW/NDX
TS ENDBUF +1
CM/END CA CM/SAVE
TS SR
# DOES NOT PROTECT TEMK, SQ IN SPSIN/COS
EXTEND
DCA T5IDLER2
DXCH T5LOC
TC RESUME
EBANK= T5LOC
T5IDLER2 2CADR T5IDLOC
@ -1241,7 +1241,7 @@ T5IDLER2 2CADR T5IDLOC
# Q PITCH RATE
# R YAW RATE
# ETC.
#CMTMTIME = UPBUFF
#SW/NDX = UPBUFF +1
#ENDBUF = UPBUFF +16D
@ -1249,7 +1249,7 @@ T5IDLER2 2CADR T5IDLOC
# Page 1092
# 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,
# XMIN = 4 DEG, VMIN = 2 DEG/SEC, K = .25, A1 = 4.55 DEG/SECSQ, VI = 1 DEG/SEC, INTERCEPT WITH DZ SIDE
# XBUF = 4DEG

118
Comanche055/CONIC_SUBROUTINES.agc
View File

@ -9,7 +9,7 @@
# Pages: 1262-1308
# Mod history: 2009-05-08 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 page images.
# 2009-05-20 RSB Corrected: Fixed four interpreter
# 2009-05-20 RSB Corrected: Fixed four interpreter
# instructions.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# 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
# 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.
#
# THE RESTRICTIONS ARE --
@ -581,7 +581,7 @@
BANK
COUNT 12/CONIC
EBANK= UR1
KEPLERN SETPD BOV
0
@ -602,7 +602,7 @@ KEPLERN SETPD BOV
DMP SL1R
1/ROOTMU # 1/ROOTMU (-17 OR -14)
STOVL KEPC1 # C1=R.V/ROOTMU (+17 OR +16)
VRECT
VSQ DMPR
1/MU # 1/MU (-34 OR -28)
@ -632,25 +632,25 @@ KEPLERN SETPD BOV
BOV
STOREMAX
STOREMAX STORE XMAX
DMP PDDL
DMP PDDL
1/ROOTMU
ALPHA
NORM PDDL
NORM PDDL
X1
SL* DDV
SL* DDV
0 -6,1
BOV BMN
MODDONE
MODDONE # MPAC=PERIOD
PERIODCH PDDL ABS # 0D=PERIOD
TAU.
TAU.
DSU BMN
0D
MODDONE
SIGN
TAU.
STODL TAU.
GOTO
GOTO
PERIODCH
MODDONE SETPD DLOAD
0
@ -675,7 +675,7 @@ STORBNDS DLOAD BPL
DXCOMP
STOREMIN DLOAD
KEPZERO
STORE XMIN
STORE XMIN
DXCOMP DLOAD DMPR
# Page 1279
TAU.
@ -727,7 +727,7 @@ KEPLOOP DLOAD DSQ
NDXCHNGE
NDXCHNGE
DLOAD GOTO
# Page 1280
# Page 1280
0D
NEWDELX
@ -770,11 +770,11 @@ PDXCHNGE DLOAD DSU
BADX DLOAD SR1
XMAX
SIGN
SIGN
TAU.
STCALL X
STORBNDS
# Page 1281
# Page 1281
TIMEOVFL DLOAD BMN # X WAS TOO BIG
X
NEGTOVFL
@ -852,25 +852,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
TC POLY
DEC 8
2DEC .083333334
2DEC -.266666684
2DEC .406349155
2DEC -.361198675
2DEC .210153242
2DEC -.086221951
2DEC .026268812
2DEC -.006163316
2DEC .001177342
2DEC -.000199055
TC INTPRET
STODL S(XI)
XI
@ -878,25 +878,25 @@ DELTIME EXIT # MPAC=XI (+6), 0D=XSQ (+34 OR +32 -N1)
TC POLY
DEC 8
2DEC .031250001
2DEC -.166666719
2DEC .355555413
2DEC -.406347410
2DEC .288962094
2DEC -.140117894
2DEC .049247387
2DEC -.013081923
2DEC .002806389
2DEC -.000529414
TC INTPRET
# Page 1284
DMP SRR* # PL AT 0
@ -1107,7 +1107,7 @@ COGLOLIM 2DEC -.999511597
BANK
COUNT 12/CONIC
TIMETHET STQ SETPD # PL AT 0
RTNTT
0
@ -1152,10 +1152,10 @@ PARAM STQ CLEAR # MPAC=V1VEC, 0D=R1VEC PL AT 6
37777 # GAMMA ALWAYS LESS THAN 180DEG
GEOM # MPAC=SNGA (+1), 0D=CSGA (+1) PL AT 2
STODL 36D # 36D=SIN GAMMA (+1) PL AT 0
# Page 1290
# Page 1290
SR DDV
5
36D
STOVL* COGA
MUTABLE,1
@ -1220,7 +1220,7 @@ HAVENORM ABVAL SIGN
BANK
COUNT 12/CONIC
GETX AXT,2 SSP # ASSUMES P (+4) IN MPAC
3
S2
@ -1268,17 +1268,17 @@ POLYCOEF BMN PUSH # 0D=1/W (+2) OR 16/W (+6) PL AT 2
TC POLY
DEC 5
2DEC .5
2DEC -.166666770
2DEC .100000392
2DEC -.071401086
2DEC .055503292
2DEC -.047264098
2DEC .040694204
TC INTPRET
@ -1292,7 +1292,7 @@ XCOMMON DSQ NORM
R1A
0 -12D,1
STODL XI # XI (+6)
R1
SR1 SQRT
ROUND DMP
@ -1486,7 +1486,7 @@ LAMBLOOP DMP
0 -8D,1
D1/32
STODL R1A # R1A=2-P(1+COGA COGA) (+6)
P
BOV CALL
HIENERGY
@ -1558,7 +1558,7 @@ SUFFCHEK DLOAD ABS
INITV
SOLNSW
RTNLAMB
360LAMB SETPD SETGO # LAMBERT CANNOT HANDLE CSTH=1
0
SOLNSW
@ -1579,7 +1579,7 @@ NOGUESS SSP DLOAD
LOLIM DLOAD GOTO
COGLOLIM # COGLOLIM=-.999511597
MINCOGA
INITV DLOAD NORM
R1
X1
@ -1619,7 +1619,7 @@ TARGETV DLOAD CALL
TIMERAD STQ SETPD # PL AT 0
RTNTR
0
BOV
BOV
+1
VLOAD PDVL # PL AT 6
RVEC
@ -1663,7 +1663,7 @@ TIMERAD STQ SETPD # PL AT 0
BADR2
SQRT SIGN
SGNRDOT
CLEAR
CLEAR
APSESW
# Page 1302
@ -1755,23 +1755,23 @@ ABTCONIC EXIT
# Page 1305
SETLOC CONICS1
BANK
COUNT 04/CONIC
MUTABLE 2DEC* 3.986032 E10 B-36* # MUE
2DEC* .25087606 E-10 B+34* # 1/MUE
2DEC* 1.99650495 E5 B-18* # SQRT(MUE)
2DEC* .50087529 E-5 B+17* # 1/SQRT(MUE)
2DEC 4.902778 E8 B-30 # MUM
2DEC .203966 E-8 B+28 # 1/MUM
2DEC* 2.21422176 E4 B-15* # SQRT(MUM)
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
LDPOSMAX EQUALS LODPMAX # DPPOSMAX IN LOW MEMORY.

4
Comanche055/CONTRACT_AND_APPROVALS.agc
View File

@ -14,13 +14,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
# Page 1

58
Comanche055/CSM_GEOMETRY.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -31,7 +31,7 @@
BANK 22
SETLOC COMGEOM1
BANK
# THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
# VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WITH THE SEXTANT LINE OF SIGHT.
#
@ -43,7 +43,7 @@
# OUTPUT IS ALSO AVAILABLE AT MPAC.
COUNT 23/GEOM
SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
5,1 # TRUNNION = TA
CDULOGIC
@ -54,15 +54,15 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
3,1 # SHAFT = SA
RTB PUSH # PD4 = SA
CDULOGIC
COS DMP
2
STODL STARM # COS(SA)SIN(TA)
SIN DMP
STADR
STODL STARM +2 # SIN(SA)SIN(TA)
COS
STOVL STARM +4
STARM # STARM = 32D
@ -70,7 +70,7 @@ SXTNB SLOAD* RTB # PUSHDOWN 00,02,04,(17D-19D),32D-36D
NB1NB2
STORE 32D
RVQ
SXTLOGIC CAF 10DEGS- # CORRECT FOR 19.775 DEGREE OFFSET
ADS MPAC
CAF QUARTER
@ -133,11 +133,11 @@ SXTANG ITA RTB # PUSHDOWN 16D,18D,22D-26D,28D
MXV VSL1
NB2NB1
STORE ZNB1
RTB RTB
TRANSP1
TRANSP2
SXTANG1 VLOAD VXV
ZNB1
STAR
@ -146,12 +146,12 @@ SXTANG1 VLOAD VXV
UNIT BOV
ZNB=S1
STORE PDA # PDA = UNIT(ZNB X S)
DOT DCOMP
XNB1
STOVL SINTH # SIN(SA) = PDA . -XNB
PDA
DOT
YNB1
STCALL COSTH # COS(SA) = PDA . YNB
@ -185,7 +185,7 @@ ZNB=S1 DLOAD
STODL SAC
20DEGS-
STORE PAC
CLRGO
CLRGO
CULTFLAG
28D
@ -226,13 +226,13 @@ SVDWN1 BOF RVQ # SW=1=AVETOMID DOING W-MATRIX INTEG
VSL* VAD
0 -4,2
VCV
VSL*
VSL*
0,2
STODL VN
TET
STORE PIPTIME
RVQ
SVDWN2 VLOAD VSL*
TDELTAV
0 -7,2
@ -264,7 +264,7 @@ SVDWN2 VLOAD VSL*
SETLOC POWFLIT2
BANK
COUNT 23/GEOM
LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
MPAC +3 # UNTIL IT LIES BETWEEN .5 AND 1.
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 .0130145859
2DEC .0215738898
CAF ZERO
TS MPAC +2
EXTEND
@ -284,15 +284,15 @@ LOG NORM BDSU # GENERATES LOG BY SHIFTING ARG
DXCH MPAC +3
COM # LOAD POSITIVE SHIFT COUNT IN A.
TC SHORTMP # MULTIPLY BY SHIFT COUNT.
DXCH MPAC +1
DXCH MPAC
DXCH MPAC +3
DAS MPAC
TC INTPRET # RESULT IN MPAC, MPAC +1
RVQ
NEARLY1 2DEC .999999999
# Page 292
@ -321,7 +321,7 @@ CLOG2/32 2DEC .0216608494
# RTNORM = RTEAST * UNITW
#
# FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
#
#
# CALLING SEQUENCE: FIRST CALL SUBSEQUENT CALL
# STCALL DTEAROT STCALL DTEAROT
# EARROT1 EARROT2
@ -347,17 +347,17 @@ CLOG2/32 2DEC .0216608494
# DEBRIS: QPRET, PDL+0 ... PDL+5
# Page 294
EBANK= RTINIT
EARROT1 VLOAD VXV
UNITW # FULL UNIT VECTOR
RTINIT # .5 UNIT
STORE RTEAST # .5 UNIT
VXV
UNITW # FULL UNIT
STODL RTNORM # .5 UNIT
DTEAROT # (-28) CS
EARROT2 BOVB DDV
TCDANZIG # RESET OVFIND, IF ON
1/WIE
@ -373,19 +373,19 @@ EARROT2 BOVB DDV
VAD UNIT # INSURE THAT RT IS "UNIT".
RTINIT # .5 UNIT
STORE RT # .5 UNIT TARGET VECTOR
RVQ
OVERADAY DLOAD SIGN
1/WIE
DTEAROT
BDSU
DTEAROT
STORE DTEAROT
GOTO
EARROT2
#WIE 2DEC .1901487997
1/WIE 2DEC 8616410
NB2NB1 2DEC +.8431756920 B-1
@ -415,4 +415,4 @@ NB1NB2 2DEC +.8431756920 B-1
DEC -00000
20DEG- DEC 03600
DEC 00000

22
Comanche055/DISPLAY_INTERFACE_ROUTINES.agc
View File

@ -8,16 +8,16 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -278,7 +278,7 @@
# ... ... # TERMINATE RETURN
# ... ... # PROCEED RETURN
# ... ... # ENTER OR RECYCLE RETURN
#
#
# ... ... # 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
@ -509,7 +509,7 @@
BANK
COUNT 02/DSPLA
BLANKET TS MPAC +6
CS PLAYTEM4
MASK MPAC +6
@ -805,7 +805,7 @@ IFLEGAL CAF TWO
PRIOBORT TC P00DOO
OCT 1502
# Page 1471
# Page 1471
OKTOPLAY TC COPIES2
@ -957,7 +957,7 @@ COPIES2 INHINT
TS EBANKSAV # EQUIV TO DSPFLG
MASK CADRMASK # FLASH AND GODSPRET
EXTEND
# Page 1474
# Page 1474
BZF SKIPADD
CA PLAYTEM3
@ -1364,7 +1364,7 @@ MARKOVER CAF MINUS1 # RUPTREG2 IS - MEANS ENDOFJOB TO ENDRET
CA FLAGWRD4 # IS ENDIDFLG SET
MASK PRIO30 # IS NORMAL OR PRIO IN ENDIDLE
CCS A
# Page 1482
# Page 1482
TCF NORMBNCH
NORMRET CA FLAGWRD4 # IS MARK SLEEPING

14
Comanche055/DOWN-TELEMETRY_PROGRAM.agc
View File

@ -10,14 +10,14 @@
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
# and page images. Corrected various typos
# in the transcription of program comments,
# and these should be back-ported to
# and these should be back-ported to
# Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -168,9 +168,9 @@
BANK
EBANK= DNTMBUFF
COUNT 05/DPROG
DODOWNTM TS BANKRUPT
EXTEND
QXCH QRUPT # SAVE Q
@ -423,7 +423,7 @@ DNDUMP CA TWO # INCREMENT ECADR IN DUMPLOC
TCF DNPHASE1 # YES -- SEND DOWNLIST AGAIN
# AGAIN
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALZE NEXT BANK
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
TS DNTMGOTO # FOR WORDS 3 TO 256D OF CURRENT EBANK

20
Comanche055/ENTRY_LEXICON.agc
View File

@ -10,11 +10,11 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name and Comanche 055 page images.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -48,7 +48,7 @@
# _
# 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
# _
@ -122,7 +122,7 @@
#
# 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
#
@ -140,7 +140,7 @@
#
# L/D DESIRED LIFT TO DRAG RATIO 1
# (VERTICAL PLANE)
#
#
# L/D1 TEMP STORAGE FOR L/D IN LATERAL 1
#
# L/DCMINR LAD COS(15DEG) 1 (NOM = 0.2895)
@ -171,7 +171,7 @@
# THETNM DESIRED RANGE (NM) 21600 NM NON EXISTENT
#
# V VELOCITY MAGNITUDE 2 VSAT
#
#
# V1 INITIAL 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
# G5 NOMINAL G VALUE FOR SCALING 32.2 FPSS
# H5 ATMOSPHERE SCALE HEIGHT 28500 FT
# J GRAVITY HARMONIC COEFFICIENT .00162346
# J GRAVITY HARMONIC COEFFICIENT .00162346
# KWE EQUATORIAL EARTH RATE 1546.10168 FPS
# MUE EARTH GRAVITATIONAL CONSTANT 3.986032233 E14 CUBIC M/ SEC SEC
# RE EARTH RADIUS 21202900 FT
# REQ EARTH EQUATORIAL RADIUS 20925738.2 FT
# VSAT SATELLITE VELOCITY AT RE 25766.1973 FPS
# WIE EARTH RATE .0000729211505 RAD/SEC
# (END GSOP AS-278, VOL 1, FIG. 5.6-3 CONSTANTS, GAINS, ETC.)
# DISPLAY QUANTITIES
@ -335,7 +335,7 @@
# LAT PRESENT LATITUDE 1 REVOLUTION N 67
# LONG PRESENT LONGITUDE 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
# EMSALT FT ABOVE FISCHER RADIUS.
# TTE TIME OF FREE FALL TO ALT B 28 CENTISEC N 63

326
Comanche055/ERASABLE_ASSIGNMENTS.agc
View File

File diff suppressed because it is too large Load Diff

8
Comanche055/EXECUTIVE.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -33,7 +33,7 @@
# TO ENTER A JOB REQUEST REQUIRING NO VAC AREA:
COUNT 02/EXEC
NOVAC INHINT
AD FAKEPRET # LOC(MPAC +6) - LOC(QPRET)
TS NEWPRIO # PRIORITY OF NEW JOB + NOVAC C(FIXLOC)
@ -130,7 +130,7 @@ FAKEPRET ADRES MPAC -36D # LOC(MPAC +6) - LOC(QPRET)
BANK 01
COUNT 01/EXEC
FINDVAC2 TS EXECTEM1 # (SAVE CALLER'S BANK FIRST.)
CCS VAC1USE
TCF VACFOUND

340
Comanche055/EXTENDED_VERBS.agc
View File

@ -10,19 +10,19 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
# 2009-05-20 RSB Corrections: POODOO -> P00DOO,
# GOTOPOOH -> GOTOP00H, added a couple of
# GOTOPOOH -> GOTOP00H, added a couple of
# 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=
# 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 ....
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -40,16 +40,16 @@
BANK 7
SETLOC EXTVERBS
BANK
EBANK= OGC
COUNT* $$/EXTVB
# FAN-OUT
GOEXTVB INDEX MPAC # VERB-40 IS IN MPAC
TC LST2FAN # FAN AS BEFORE.
LST2FAN TC VBZERO # VB40 ZERO (USED WITH NOUN 20 ONLY)
TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
# 91 ONLY)
@ -113,7 +113,7 @@ VERB69 TC VERB69 # VB69 CAUSE RESTART
TC GOLOADLV # VB97 PLEASE PERFORM ENGINE-FAIL (R41)
TC ALM/END # VB98 SPARE
TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
# END OF EXTENDED VERB FAN
TESTXACT CCS EXTVBACT
@ -121,20 +121,20 @@ TESTXACT CCS EXTVBACT
CA FLAGWRD4 # ARE PRIOS USING DSKY
MASK OC24100
CCS A
TC ALM/END
TC ALM/END
CAF OCT24 # SET BITS 3 AND 5
SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
# SYSTEM BUSY
CA Q
TS MPAC +1
CS TWO # BLANK EVERYTHING EXCEPT MM AND VERB
TC NVSUB
TC +1
TC MPAC +1
XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
# 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
GOPIN TC POSTJUMP
CADR PINBRNCH
OC24100 OCT 24100
# Page 239
# VBZERO VERB 40 DESCRIPTION
#
# 1. REQUIRE NOUN 20 (ICDU ANGLES)
# 1. REQUIRE NOUN 20 (ICDU ANGLES)
# 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.
# 4. SET EXT VERB DISPLAY ACTIVE FLAG.
@ -165,29 +165,29 @@ VBZERO TC OP/INERT
TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
TC ALM/END # RETURN HERE IF NOUN = OCDU(91)
# (NOT IN USE YET)
IMUZEROK TC CKMODCAD # KEYBOARD REQUEST FOR ISS CDUZERO
TC BANKCALL
CADR IMUZERO
TC BANKCALL # STALL
CADR IMUSTALL
TC +1
TC GOPIN
TC GOPIN
OP/INERT CS OCT24
AD NOUNREG
EXTEND
BZF XACT0Q # IF = 20.
INCR Q
AD OPIMDIFF # -71
EXTEND
BZF XACT0Q
TC ALM/END # ILLEGAL.
OPIMDIFF DEC -71
# Page 240
@ -235,30 +235,30 @@ OPIMDIFF DEC -71
VBCOARK TC OP/INERT
TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
TC OPTCOARK # RETURN HERE IF NOUN = OCDU (91)
# RETURNS TO L+1 IF NOUN 20 -- TO L+2 IF NOUN 91.
IMUCOARK TC CKMODCAD # COARSE ALIGN FROM KEYBOARD
TC TESTXACT
TC TESTXACT
CAF VNLODCDU # CALL FOR THETAD LOAD
TC BANKCALL
CADR GOXDSPF
TC TERMEXTV
TCF +1
# Page 241
ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
TC BANKCALL
CADR EXDSPRET
TC BANKCALL # CALL MODE SWITCHING PROG
CADR IMUCOARS
TC BANKCALL # STALL
CADR IMUSTALL
TC ENDEXTVB
TC ENDEXTVB
VNLODCDU VN 2522
IMUCOARV VN 4100
@ -270,29 +270,29 @@ OPTCOARK CA OPTCADR
TC TESTXACT
CAF EBANK5
TS EBANK
CCS SWSAMPLE # SEE IF SWITCH AT COMPUTER
TC +5 # SWITCH AT COMPUTER
TC +1 # NOT ON COMPUTER
TC FALTON # TURN ON OPERATOR ERR
TC ALARM # AND ALARM
OCT 00115
CCS OPTIND # SEE IF OPTICS AVAILABLE
TC OPTC1 # IN USE
TC OPTC1 # IN USE
TC OPTC1 # IN USE
TC ALARM # OPTICS RESERVED (OPTIND=-0)
OCT 00117
TC ENDEXT
OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
TC BANKCALL
CADR GOXDSPF
TC TERMEXTV
TC +1 # PROCEED
CA SAC
TS DESOPTS
CA PAC
@ -300,13 +300,13 @@ OPTC1 CAF VNLD0CDU # VERB-NOUN TO LOAD OPTICS CDUS
CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
TC BANKCALL
CADR EXDSPRET
CAF ONE
TS OPTIND # SET COARS WORKING
TC ENDEXTVB
TC ENDEXTVB
VNLD0CDU VN 2492
OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
@ -336,27 +336,27 @@ IMUFINEK TC CKMODCAD # FINE ALIGN WITH GYRO TORQUING.
CADR GOXDSPF
TC TERMEXTV
TC +1 # PROCEED WITHOUT A LOAD
CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
TC BANKCALL
CADR EXDSPRET
TC BANKCALL # CALL MODE SWITCH PROG
CADR IMUFINE
TC BANKCALL # HIBERNATION
CADR IMUSTALL
TC ENDEXTVB
FINEK2 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGISTERS
TC BANKCALL
CADR IMUPULSE
TC BANKCALL # WAIT FOR PULSES TO GET OUT.
CADR IMUSTALL
TC ENDEXTVB
TC ENDEXTVB
LGYROBIN ECADR OGC
VNLODGYR VN 2593
IMUFINEV VN 4200 # FINE ALIGN VERB
@ -392,30 +392,30 @@ V60 EXTEND # SET ASTRONAUT TOTAL ATTITUDE (N17) EQUAL
CA CDUZ
TS CPHIX +2
TC GOPIN
# V61 VERB 61
V61 TC DOWNFLAG # SET NEEDLFLG TO 0 (FLAGWRD0,BIT9), PHASE
ADRES NEEDLFLG # PLANE A/P FOLLOWING ERROR DISPLAYED
TC GOPIN
# V62 VERB 62
V62 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
TC UPFLAG # SET N22ORN17 TO 1 (FLAGWRD9,BIT6),
ADRES N22ORN17 # COMPUTE TOTAL ATTITUDE ERROR WRT N22
TC GOPIN
# V63 VERB 63
V63 TC UPFLAG # SET NEEDLFLG TO 1 (FLAGWRD0,BIT9),
ADRES NEEDLFLG # TOTAL ATTITUDE ERROR DISPLAYED
TC DOWNFLAG # SET N22ORN17 TO 0 (FLAGWRD9,BIT6),
# Page 245
ADRES N22ORN17 # COMPUTE TOAL ASTRONAUT ATTITUDE ERROR
TC GOPIN
# Page 246
# Page 246
# ALINTIME VERB 55 DESCRIPTION
#
# 1. SET EXT VERB DISPLAY BUSY FLAG.
@ -438,7 +438,7 @@ ALINTIME TC TESTXACT
EXTEND
BZF UPDATIME # GO AHEAD WITH UPDATE ONLY IF RECALL
TC ENDEXT # WITH V23 (DATA IN).
UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
CAF ZERO
TS MPAC +2 # NEEDED FOR TP AGREE
@ -447,7 +447,7 @@ UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
DXCH MPAC
DXCH DSPTEM2 +1 # INCREMENT
DAS MPAC
TC TPAGREE # FORCE SIGN AGREEMENT.
DXCH MPAC # NEW CLOCK.
DAS TIME2
@ -471,10 +471,10 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
# REPEAT LOAD REQUEST DISPLAY. (NO. 3 ABOVE)
EBANK= QPLACE
COUNT 04/EXTVB
SYSTEST TC CHKP00H
SYSTEST TC CHKP00H
CA FLAGWRD1 # IS NODOP01 FLAGBIT ON? (SET BY P11)
MASK NOP01BIT
EXTEND
@ -487,12 +487,12 @@ V92CONT TC EXDAPOFF # TURN DAP OFF IF IT'S ON
EBANK= QPLACE
SBANK= IMUSUPER
2CADR REDO
TC GOPIN
# REDO AND TSELECT ARE NOW IN SYSTEM TEST.
COUNT* $$/EXTVB
# REDO AND TSELECT ARE NOW IN SYSTEM TEST.
COUNT* $$/EXTVB
# CKOPTVB VERB 65 DESCRIPTION
# OPTICAL VERIFICATION FOR PRELAUNCH.
# 1. SCHEDULE GCOMPVER, OPTICAL VERIFICATION SUBPROGRAM, WITH PRIORITY 17.
@ -505,9 +505,9 @@ CKOPTVB TC CHECKMM
TC FINDVAC
EBANK= QPLACE
2CADR COMPVER # STANDARD LEADIN TO GCOMPVER.
TC GOPIN
# Page 248
# V 78 .... TO CHANGE GYROCOMPASS AZIMUTH
@ -519,7 +519,7 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
TC FINDVAC
EBANK= XSM
2CADR AZMTHCG1
TC PHASCHNG
OCT 00174
TC GOPIN
@ -536,20 +536,20 @@ CHAZFOGC TC CHECKMM # IS IT PRELAUNCH
# TRANSFER LOADED VALUES TO REGISTERS, AND SEND COMMANDS.
# 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
EXTEND
EXTEND
RAND CHAN12
CCS A
TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
TC TESTXACT # AFTER
CS OCT50 # REMOVE COARSE AND ECTR ENABLE
EXTEND
EXTEND
WAND CHAN12
CAF VNLODCDU
TC BANKCALL
CADR GOXDSPF
@ -557,20 +557,20 @@ IMUATTCK TC CHKP00H
TC +1
CAF EBANK6
TS EBANK # SET E6 FOR NEEDLES.
EBANK= AK
TC BANKCALL # INITIALIZE CURRENT DAC AND
CADR NEEDLE11 # COMMAND VALUES.
TC BANKCALL # ENABLE ERROR COUNTERS.
CADR NEEDLER2
CAF TWO # 4 MS MIN.
TC WAITLIST
EBANK= AK
2CADR ATTCK1
TRMATTCK TC CKLFTBTS # IS IT BEFORE OR AFTER LIFTOFF
TCF ENDEXT # AFTER
TC GOPIN
@ -580,12 +580,12 @@ ATTCK1 EXTEND # TRANSFER LOADED VALUES TO DESIRED REQS.
DXCH AK
CAE THETAD +2
TS AK +2
TC IBNKCALL # SENDS COMMANDS LIMITED TO +,- 384 PULSES
CADR NEEDLES # AND LEAVES ERROR COUNTERS ENABLED.
TC TASKOVER
CKLFTBTS CAF GRRBKBIT # HAS LIFTOFF OCCURRED
MASK FLAGWRD5
CCS A
@ -605,19 +605,19 @@ VB64 TC CHKP00H # DEMAND PROGRAM 00.
TC FINDVAC
EBANK= RHOSB
2CADR SBANDANT # CALC.,DISPLAY S-BAND ANTENNA ANGLES.
TC ENDOFJOB
# ENATMA VERB 58 DESCRIPTION
# 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.
ENATMA TC DOWNFLAG # RESET STIKFLAG.
ADRES STIKFLAG # BIT 14 FLAG 1
TC GOPIN
# Page 251
# STROKON VERB 68 DESCRIPTION
# STROKE TEST SETUP/ENABLE
@ -635,9 +635,9 @@ STROKON CS FLAGWRD6 # V68 PERMITTED ONLY DURING TVC
SBANK= PINSUPER # Added RSB 2009.
EBANK= STROKER
2CADR STRKTSTI
TC GOPIN
# STABLISH VERB 46 DESCRIPTION
# ESTABLISH G AND N AUTOPILOT CONTROL
# 1. SETS UP EITHER RCS, ENTRY, OR SATURN
@ -649,7 +649,7 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
TS EBANK
CS FLAGWRD6 # TEST FOR TVC
MASK OCT60000
MASK OCT60000
EXTEND
BZMF +8
@ -688,16 +688,16 @@ STABLISH CAF EBANK6 # V46 - SET EBANK TO E6
# 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00
TC TESTXACT
CAF PRIO10
TC FINDVAC
EBANK= CPHI
2CADR R62DISP
TC ENDOFJOB
# Page 253
# DAPDISP VERB 48 DESCRIPTION
# LOAD AUTOPILOT DATA (ROUTINE R03)
@ -713,13 +713,13 @@ CREWMANU TC CHKP00H # DEMAND P00
# 8. UPON PROCEED RESPONSE, RELEASE EXTENDED VERB DISPLAY SYSTEM.
COUNT* $$/EXTVB
DAPDISP CS FLAGWRD6
MASK OCT60000
EXTEND
BZMF +2 # TVC = 10, CS YIELDS 01, BZMF TO CONTINUE
TC ALM/END # RETURN IF TVC
TC TESTXACT
TC BANKCALL
CADR DAPDISP1
@ -727,21 +727,21 @@ DAPDISP CS FLAGWRD6
SETLOC EXTVBS
BANK
COUNT 24/R03
DAPDISP1 CAF EBANK6
TS EBANK
CAF PRIO10
TC PRIOCHNG
DONOUN46 CAF V04N46 # R1 R2
TC BANKCALL # DAPDATR1 DAPDATR2
CADR GOXDSPF # GOXDSP ROUTINES USED FOR EXTENDED VERBS.
TC ENDEXT # EXT. VBS GO TO ENDEXT, NOT ENDOFJOB.
TC +2
TC DONOUN46
CA DAPDATR1
MASK BIT4
CCS A
@ -750,12 +750,12 @@ DONOUN46 CAF V04N46 # R1 R2
ADRES MAXDBFLG
MAXOUT TC BANKCALL
CADR S41.2
DONOUN47 CAF V06N47 # R1 R2 R3
# Page 254
TC BANKCALL # CSM WGT. LEM WGT. BLANK
CADR GOXDSPF
TC ENDEXT
TC +2
TC DONOUN47
@ -770,30 +770,30 @@ DONOUN47 CAF V06N47 # R1 R2 R3
INHINT
TC IBNKCALL
CADR MASSPROP # UPDATE IXX, IAVG, IAVG/TLX
RELINT
TC BANKCALL
CADR S40.14 # COMPUTE RCS DAP STUFF
DONOUN48 CAF V0648 # R1 R2 R3
TC BANKCALL # PTRIM YTRIM BLANK
CADR GOXDSPF
TC ENDEXT
TC ENDEXT
TC DONOUN48
MAXIN TC UPFLAG
ADRES MAXDBFLG
TC MAXOUT
V0648 VN 0648
V06N47 VN 0647
V04N46 VN 0446
BANK 43
SETLOC EXTVERBS
BANK
COUNT* $$/EXTVB
# V82PERF VERB82 DESCRIPTION
@ -808,7 +808,7 @@ V04N46 VN 0446
# Page 255
# RPER (PERIGEE RADIUS), RAP0 (APOGEE RADIUS), HPER (PERIGEE
# 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).
# FLASH MONITOR V16N44 (HAPO, HPER, TFF). TFF IS -59M59S IF IT WAS
# NOT COMPUTABLE, OTHERWISE IT INCREMENTS ONCE PER SECOND.
@ -829,11 +829,11 @@ V04N46 VN 0446
V82PERF TC TESTXACT
CAF PRIO7
CAF PRIO7
TC PRIOCHNG
TC POSTJUMP
CADR V82CALL # ***** V82CALL MUST NOT BE A FINDVAC JOB.
# VB83PERF VERB 83 DESCRIPTION
# REQUEST RENDEZVOUS PARAMETER DISPLAY (R31)
#
@ -854,7 +854,7 @@ V83PERF TC TESTXACT
SBANK= LOWSUPER # Added by RSB 2009
EBANK= SUBEXIT
2CADR R31CALL
TC ENDOFJOB
# Page 256
@ -883,12 +883,12 @@ GOTOR23 TC UPFLAG # SET R23FLG
MASK RNDVZBIT # RENDEZVOUS AND TRACK FLAGS ON
EXTEND
BZF R22ALARM
CA FLAGWRD1
MASK TRACKBIT
EXTEND
BZF R22ALARM
CA FLAGWRD1 # TEST R23FLG
MASK R23BIT
EXTEND
@ -897,18 +897,18 @@ GOTOR23 TC UPFLAG # SET R23FLG
TC NOVAC
EBANK= MRKBUF1
2CADR R23CSM
TC ENDOFJOB
REGR21 CAF PRIO16
TC NOVAC
EBANK= MRKBUF1
2CADR R21CSM
TC ENDOFJOB
R22ALARM TC ALARM # VERB 57 WAS SELECTED AND NEITHER REND
OCT 00406 # NOR TRACK FLAG WERE ON.
TC ENDEXT
# Page 258
# VERB 86 DESCRIPTION
# V86 IS TO R23 AS MARK REJECT IS TO R21
@ -920,7 +920,7 @@ V86PERF CAF EBANK7 # BACKUP MARK REJECT (R23)
CA NEGONE
TS MRKBUF1
TC GOPIN
# Page 259
# TRACKTRM VERB 56 DESCRIPTION
# TERMINATE TRACKING (P20)
@ -939,33 +939,33 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON
MASK FLAGWRD0
EXTEND
BZF GOPIN # NO
TC DOWNFLAG
ADRES RNDVZFLG
CA TRACKBIT # IS TRACK FLAG ON
MASK FLAGWRD1
EXTEND
BZF GOPIN # NO
TC DOWNFLAG
ADRES TRACKFLG
TC DOWNFLAG
ADRES UPDATFLG
TC DOWNFLAG
ADRES IMUSE
CAF EBANK6
TS EBANK
INHINT
TC STOPRATE
CAF NEGONE
TS OPTIND
TC INTPRET
CALL
INTSTALL # DON'T INTERRUPT INTEGRATION
@ -975,29 +975,29 @@ TRACKTRM CA RNDVZBIT # IS REND FLAG ON
# Page 260
OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
OCT 1 # ALSO KILL GROUP 1
CLEANOUT INHINT
TC POSTJUMP
CADR ENEMA # CAUSE RESTART
# LEMVEC VERB 80 DESCRIPTION
# UPDATE LEM STATE VECTOR
# RESET VEHUPFLG TO 0
LEMVEC TC DOWNFLAG
ADRES VEHUPFLG # VEHUPFLG DOWN INDICATES LEM
TCF GOPIN
# CSMVEC VERB 81 DESCRIPTION
# UPDATE CSM STATE VECTOR
# SET VEHUPFLG TO 1
CSMVEC TC UPFLAG
ADRES VEHUPFLG # VEHUPFLG UP INDICATES CM
TCF GOPIN
# DNEDUMP VERB 74 DESCRIPTION
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
#
@ -1021,13 +1021,13 @@ LDNDUMPI REMADR DNDUMPI
LFTFLGON TC UPFLAG # VB 75 -- SET LIFTOFF FLAG BIT
ADRES GRRBKFLG # BIT 5 FLAG 5
TC GOPIN
# Page 261
CHKP00H CA MODREG
EXTEND
BZF TCQ
TCF ALM/END
EXDAPOFF EXTEND
DCA IDLECADR # SET T5 TO IDLE.
DXCH T5LOC
@ -1035,14 +1035,14 @@ EXDAPOFF EXTEND
MASK FLAGWRD6 # RESET DAPBITS 1 AND 2.
TS FLAGWRD6
TC Q
SBANK= PINSUPER # Added RSB 2009
EBANK= PACTOFF
IDLECADR 2CADR T5IDLOC
# Page 262
# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
#
#
# 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
# (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.
EBANK= P21TIME
2CADR V89CALL
TCF ENDOFJOB
WMATRXNG TC DOWNFLAG # RESET RENDWFLAG
ADRES RENDWFLG
ADRES RENDWFLG
# Page 263
TC DOWNFLAG # RESET ORBWFLAG
ADRES ORBWFLAG
TC GOPIN
GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H
@ -1121,7 +1121,7 @@ NOKILL CA ADRS1 # *
TC NOKILL # *
CA SELFADRS
TS SKEEP1
TC ENDEXT # *
VNCON VN 501 # *
@ -1130,20 +1130,20 @@ ENDSUMS CA SKEEP6 # *
EXTEND # *
BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
TC STSHOSUM # * START SHOWSUM AGAIN.
# VB 76 --- SET PREFERRED ATTITUDE FLAG --- DRIVE TO PREFERRED.
SETPRFLG TC UPFLAG
ADRES PRFTRKAT # BIT 10 FLAG 5
TC GOPIN
# VB 77 --- RESET PREFERRED ATTITUDE FLAG --- DRIVE TO +X-AXIS ATT.
RESETPRF TC DOWNFLAG
ADRES PRFTRKAT # BIT 10 FLAG 5
TC GOPIN
# Page 264
# VB 87 --- SET VHF RANGE FLAG --- ALLOWS R22 TO ACCEPT RANGE DATA.
@ -1151,29 +1151,29 @@ SETVHFLG TC INTPRET
SET EXIT
VHFRFLAG
TC GOPIN
# VB 88 --- RESET VHF RANGE FLAG --- STOPS ACCEPTANCE OF RANGE DATA.
RESETVHF TC INTPRET
CLEAR EXIT
VHFRFLAG
TC TRFAILOF # TRACKER FAIL LIGHT
TC GOPIN
# VERB 66. VEHICLES ARE ATTACHED. --- MOVE THIS VEHICLE STATE VECTOR TO
# OTHER VEHICLE STATE VECTOR.
# USE SUBROUTINE GENTRAN.
EBANK= RRECTHIS
ATTACHED CAF PRIO10
TC FINDVAC
EBANK= RRECTHIS
2CADR ATTACHIT
TC ENDOFJOB
ATTACHIT TC INTPRET
CALL
INTSTALL
@ -1188,7 +1188,7 @@ ATTACHIT TC INTPRET
TC GENTRAN
ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
ADRES RRECTOTH
TACHEXIT RELINT
TC INTPRET
CALL # UPDATE RN, VN, R-OTHER, V-OTHER
@ -1200,16 +1200,16 @@ TACHEXIT RELINT
CALL
SVDWN2
EXIT
CAF TCPINAD
INDEX FIXLOC
TS QPRET
TC POSTJUMP
CADR INTWAKE
TCPIN RTB
PINBRNCH
OCT51 OCT 51
TCPINAD CADR TCPIN
@ -1219,9 +1219,9 @@ LMTOCMSV CAF PRIO10
TC FINDVAC
EBANK= RRECTHIS
2CADR LMTOCM
TC ENDOFJOB
LMTOCM TC INTPRET
CALL
INTSTALL
@ -1232,14 +1232,14 @@ LMTOCM TC INTPRET
CLEAR
MOONTHIS
EXIT
CAF OCT51
TC GENTRAN
ADRES RRECTOTH # LM STATE VECTOR INTO CM VIA GENTRAN
ADRES RRECTHIS
TCF TACHEXIT
# VERB 94 --- DO R64 VIA ENEMA TO PICK UP IN P23.
VERB94 CAF V94FLBIT
@ -1247,18 +1247,18 @@ VERB94 CAF V94FLBIT
# Page 266
EXTEND
BZF ALM/END # NO --- OPERATOR ERROR
TC DOWNFLAG
ADRES V94FLAG
TC CHECKMM # IS IT P23
MM 23
TC ALM/END # NO -- OPERATOR ERROR
TC PHASCHNG
OCT 112 # SET GROUP 2 TO DO R64
TC CLEANOUT # CAUSE RESTART
# V90PERF VERB 90 DESCRIPTION
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
#
@ -1277,27 +1277,27 @@ V90PERF TC TESTXACT
SBANK= PINSUPER # Added RSB 2009
EBANK= RPASS36
2CADR R36
TCF ENDOFJOB
# VERB 96 SET QUITFLAG TO STOP INTEGRATION
VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
ADRES QUITFLAG # AT NEXT TIMESTEP
TC UPFLAG
ADRES V96ONFLG
CAF ZERO
TC POSTJUMP
CADR V37 # GO TO P00
EBANK= LANDMARK
V52 TC CHECKMM # IS P22 OPERATING
MM 22
TC ALM/END # NO
CAF LANDBANK
TS EBANK
# Page 267
CS PRIO7 # YES SET BITS 12,11,10 OF LANDMARK =
MASK LANDMARK # BITS 14,13,12 OF MARKSTAT AFTER
@ -1320,15 +1320,15 @@ V67 TC TESTXACT
TC FINDVAC
EBANK= W
2CADR V67CALL
TC ENDOFJOB
# VB 44. SET SURFACE FLAG.
SETSURF TC UPFLAG
ADRES SURFFLAG
TCF GOPIN
# VB 45. RESET SURFACE FLAG
RESTSRF TC DOWNFLAG

16
Comanche055/FIXED_FIXED_CONSTANT_POOL.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -38,11 +38,11 @@ POSMAX OCT 37777
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)
# BIT TABLE
# BIT TABLE
BIT15 OCT 40000
BIT14 OCT 20000
BIT13 OCT 10000
@ -160,7 +160,7 @@ OCT17770 OCT 17770
PRIO21 OCT 21000
BLOCK 03
COUNT 03/FCONS
PRIO22 OCT 22000 # SERVICE ROUTINES
PRIO23 OCT 23000
PRIO24 OCT 24000
@ -176,7 +176,7 @@ C1/2 DEC .7853134 # (OCTAL 31103)
PRIO32 OCT 32000
PRIO33 OCT 33000
PRIO34 OCT 34000
# OCT 34034 # T4RUPT RELTAB +6D
# OCT 34034 # T4RUPT RELTAB +6D
PRIO35 OCT 35000
PRIO36 OCT 36000
# Page 1203

268
Comanche055/FRESH_START_AND_RESTART.agc
View File

@ -13,11 +13,11 @@
# 2009-05-21 RSB Changed a "TC BANKCALL" to "TC STOPRATE"
# in INITSUB.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -136,14 +136,14 @@
BANK 10
SETLOC FRANDRES
BANK
EBANK= LST1
COUNT 05/START
COUNT 05/START
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK.
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM...FOR SIMULATION
STARTSIM CAF BIT14
TC FINDVAC
@ -151,20 +151,20 @@ SIM2CADR OCT 77777 # PATCH 2CADR (AND EBANK DESIGNATION) OF
OCT 77777 # SIMULATION START ADDRESS.
SKIPSIM CA DSPTAB +11D
MASK BITS4&6
AD BIT15
MASK BITS4&6
AD BIT15
TS DSPTAB +11D # REQUESTED FRESH START.
CA ZERO # SAME STORY ON ZEROING FAILREG.
TS ERCOUNT
TS FAILREG
TS FAILREG +1
TS FAILREG +2
TS REDOCTR
CS PRIO12
TS DSRUPTSW
DOFSTART CAF ZERO # DO A FRESH START.
TS ERESTORE # ***** 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
TS MODREG
CAF PRIO30
TS RESTREG
CAF IM30INIF # FRESH START IMU INITIALIZATION.
TS IMODES30
CAF NEGONE
TS OPTIND # KILL COARSE OPTICS
CAF OPTINITF
TS OPTMODES
CAF IM33INIT
TS IMODES33
EXTEND # LET T5 IDLE.
DCA T5IDLER
DXCH T5LOC
CA SWINIT
TS STATE
@ -256,10 +256,10 @@ DOFSTART CAF ZERO # DO A FRESH START.
EXTEND
DCA SWINIT +10D
DXCH STATE +10D
ENDRSTRT TC POSTJUMP
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (IN A SWITCHED BANK.)
MR.KLEAN INHINT
EXTEND
DCA NEG0
@ -280,7 +280,7 @@ V37KLEAN EXTEND
DCA NEG0
DXCH -PHASE6
TC Q
OCT6200 OCT 6200
# Page 186
@ -300,12 +300,12 @@ GOPROG INCR REDOCTR # ADVANCE RESTART COUNTER.
EXTEND # STATE OF AGC WARNING BIT.
BZF BUTTONS
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
EXTEND # FRESH START ON THE ASSUMPTION THAT
CA BIT14 # IF AGC WARNING ON (BIT = 0), DO A
EXTEND # FRESH START ON THE ASSUMPTION THAT
RAND CHAN33 # WE ARE IN A RESTART LOOP.
EXTEND
BZF NONAVKEY +1
BUTTONS TC LIGHTSET # MAKE FRESH START CHECKS BEFORE ERESTORE.
# ERASCHK TEMPORARILY STORES THE CONTENST OF TWO ERASABLE LOCATIONS, X
@ -348,12 +348,12 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
CS INTFLBIT
MASK RASFLAG
TS RASFLAG
CA OPTMODES
MASK OPTINITR
AD BIT7
TS OPTMODES
CAF BIT6
MASK IMODES33
AD IM33INIT
@ -368,17 +368,17 @@ ELRSKIP CA FLAGWRD6 # RESTART AUTOPILOTS
BZF NOCOARSE
TC IBNKCALL # IF NO ATT LAMP ON, RETURN ISS TO
CADR SETCOARS # COARSE ALIGN.
CAF SIX
TC WAITLIST
EBANK= CDUIND
2CADR CA+ECE
NOCOARSE CAF IFAILINH # LEAVE FAILURE INHIBITS INTACT ON
MASK IMODES30 # HARDWARE RESTART. RESET ALL
AD IM30INIR # FAILURE CODES.
TS IMODES30
CS FLAGWRD5
MASK ENGONBIT
CCS A
@ -395,17 +395,17 @@ ENEMA INHINT
CS INTMASK # RESET INTEGRATION BITS
MASK RASFLAG
TS RASFLAG
CS FLAGWRD6 # IS TVC ON
MASK OCT60000
EXTEND
BZMF GOPROG3 # NO
CAF .5SEC # YES, CALL TVCEXEC TASK WHICH WAS KILLED
TC WAITLIST # IN STARTSB2
EBANK= BZERO
2CADR TVCEXEC
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
PCLOOP TS MPAC +5
DOUBLE
@ -421,12 +421,12 @@ PCLOOP TS MPAC +5
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF PCLOOP
TS MPAC +6 # SET TO +0.
TC MMDSPLAY # DISPLAY MAJOR MODE
INHINT # RELINT DONE IN MMDSPLAY
CAE FLAGWRD6 # IS RCS DAP RUNNING (BITS 15 14 OF
MASK OCT60000 # FLAGWORD6 = 01)
EXTEND # YES, DO STOPRATE
@ -446,16 +446,16 @@ NXTRST TS MPAC +5
CCS PHASE1
TCF PACTIVE # PNZ -- GROUP ACTIVE.
TCF PINACT # +0 -- GROUP NOT RUNNING.
PACTIVE TS MPAC
INCR MPAC # ABS OF PHASE.
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
CA RACTCADR
TC SWCALL # MUST RETURN TO SWRETURN.
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF NXTRST
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
TCF ENDRSTRT # PHASE ACTIVE
CAF BIT15 # IS MODE -0
@ -465,7 +465,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107
TCF DOFSTART # IN R21.
# ********* ********* **********
@ -525,7 +525,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
EBANK= LST1
CAF STARTEB
TS EBANK # SET FOR E3
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
TS LST1 +7
TS LST1 +6
@ -557,7 +557,7 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
TS LST2 +13D
TS LST2 +15D
TS LST2 +17D
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
TS PRIORITY # AVAILABLE.
TS PRIORITY +12D
@ -566,10 +566,10 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
TS PRIORITY +48D
TS PRIORITY +60D
TS PRIORITY +72D
TS DSRUPTSW
TS NEWJOB # SHOWS NO ACTIVE JOBS.
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
TS VAC1USE
AD LTHVACA
@ -580,16 +580,16 @@ STARTSB2 CAF OCT77603 # TURN OFF UPLINK ACTY, TEMP CAUTION, KR,
TS VAC4USE
AD LTHVACA
TS VAC5USE
CAF TEN # BLANK DSKY REGISTERS (PROGRAM,VERB,NOUN,
# R1,R2,R3)
DSPOFF TS MPAC
DSPOFF TS MPAC
CS BIT12
INDEX MPAC
TS DSPTAB
CCS MPAC
TCF DSPOFF
TS DELAYLOC
# Page 192
TS DELAYLOC +1
@ -616,34 +616,34 @@ DSPOFF TS MPAC
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
CAF NOUTCON
TS NOUT
CAF BIT14
MASK EXTVBACT
TS EXTVBACT
CAF LESCHK # SELF CHECK GO-TO REGISTER.
TS SELFRET
CS VD1
TS DSPCOUNT
TC Q
T5IDLOC CA L # T5RUPT COMES HERE EVERY 163.84 SECS
TCF NOQRSM +1 # WHEN NOBODY IS USING IT.
EBANK= OGANOW
T5IDLER 2CADR T5IDLOC
EBANK= OGANOW
2CADR REDORCS
EBANK= OGANOW
2CADR REDOTVC
EBANK= OGANOW
2CADR REDOSAT
# Page 193
IFAILINH OCT 435
LDNPHAS1 GENADR DNPHASE1
LESCHK GENADR SELFCHK
@ -666,7 +666,7 @@ SWINIT OCT 0
OCT 0
OCT 0
OCT 0
OCT 0
OCT 00200
OCT 0
@ -701,20 +701,20 @@ SWINIT OCT 0
BLOCK 02
SETLOC FFTAG10
BANK
COUNT 02/P00
GOTOP00H TC PHASCHNG # RESTART GOTOP00H
OCT 14
TC POSTJUMP
CADR GOP00FIX
BANK 10
SETLOC VERB37
BANK
COUNT 04/P00
GOP00FIX TC INITSUB
TC CLEARMRK +2
CAF V37N99
@ -795,37 +795,37 @@ V37N99 VN 3799
BLOCK 02
SETLOC FFTAG10
BANK
COUNT 02/V37
OCT24 MM 20
OCT31 MM 25
BANK 27
SETLOC VERB37
BANK
COUNT 04/V37
V37 TS MMNUMBER # SAVE MAJOR MODE
CAF PRIO30 # RESTART AT PINBALL PRIORITY
TS RESTREG
CA IMODES30 # IS IMU BEING INITIALIZED
MASK BIT6
CCS A
TCF CANTR00
CAF BIT13 # IS ENGINE ON
EXTEND
RAND DSALMOUT
CCS A
TCF R00TOP00 # YES, SET UP FOR P00
CS FLAGWRD6 # NO, IS TVC DAP ON
MASK OCT60000
EXTEND
BZMF ISITP00 # NO, CONTINUE WITH R00
R00TOP00 INHINT
CAF EBANK6
# Page 198
@ -840,7 +840,7 @@ R00TOP00 INHINT
CAF 3.1SEC
TC IBNKCALL
CADR RCSDAPON +1
TC IBNKCALL
CADR TVCZAP # DISABLE TVC
CAF ZERO
@ -857,19 +857,19 @@ R00TOP00 INHINT
ISITP00 CA MMNUMBER
EXTEND
BZF ISSERVON # YES, CHECK SERVICER STATUS
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
MASK NODOBIT
CCS A
TCF CHECKTAB # NO
CANTR00 TC ALARM
OCT 1520
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
CADR PINBRNCH # WAS ONE. OY
CHECKTAB CA NOV37MM # THE NO. OF MM
AGAINMM TS MPAC +1
NDX MPAC +1
@ -882,10 +882,10 @@ AGAINMM TS MPAC +1
# Page 199
TCF AGAINMM # YES, GET NEXT ONE
TCF V37NONO # LAST TIME OR PASSED MM
CA MPAC +1
TS MINDEX # SAVE INDEX FOR LATER
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
MASK V37FLBIT
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
MASK FLAGWRD1 # FOR SERVICER TO RETURN TO CANV37
TS FLAGWRD1
TCF ENDOFJOB
CANV37 CAF R00AD
TS TEMPFLSH
TC PHASCHNG
OCT 14
ROC TC INTPRET
CALL # WAIT FOR INTEGRATION TO FINISH
@ -929,40 +929,40 @@ DUMMYAD EXIT
TC DOWNFLAG
ADRES STIKFLAG
# Page 200
TC BANKCALL
CADR UPACTOFF # TURN OFF UPLINK ACTIV LIGHT
TC DOWNFLAG
ADRES VHFRFLAG
TC DOWNFLAG
ADRES R21MARK
CCS MMNUMBER # IS THIS A P00H REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
COUNT 04/P00
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART REGISTER FOR P00.
TS PHSPRDT2
TS PHSPRDT2
INHINT
CS NODOBIT # TURN OFF NODOFLAG.
MASK FLAGWRD2
TS FLAGWRD2
CA FIVE # SET 2.5 RESTART FOR STATEINT1
TS L
COM
DXCH -PHASE2
CS BIT7-8 # RESET IMUSE + KILL P20 BY TURNING OFF
MASK FLAGWRD0
TS FLAGWRD0 # RENDFLG
CAF DNLADP00
COUNT 04/V37
@ -974,7 +974,7 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TS EBANKTEM
MASK FLAGWRD1
TS FLAGWRD1
GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
CADR V37KLEAN
@ -983,13 +983,13 @@ GROUPKIL TC IBNKCALL # KILL GROUPS 3,5,6
# Page 201
TC IBNKCALL
CADR P00KLEAN # REDUNDANT EXCEPT FOR GROUP 4.
GOMOD CA MMNUMBER
TS MODREG
GOGOPROG TC POSTJUMP
CADR GOPROG2
RENDV00 CS MMNUMBER # IS NEW PROG = 20
AD OCT24 # 20
EXTEND
@ -998,8 +998,8 @@ RENDV00 CS MMNUMBER # IS NEW PROG = 20
RENDN00 CS MMNUMBER
AD MODREG
EXTEND
BZF KILL20
BZF KILL20
CA FLAGWRD0 # IS RENDEZVOO FLAG SET
MASK RNDVZBIT
CCS A
@ -1012,21 +1012,21 @@ P00FIZZ CAF RNDVZBIT
KILL20 EXTEND # NO, KILL GROUPS 1 + 2
DCA NEG0
DXCH -PHASE1
EXTEND
DCA NEG0
DXCH -PHASE2
REV37 CAF V37QCAD # SET RESTART POINT
TS TEMPFLSH
TCF GOGOPROG
STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
MASK OCT120
MASK OCT120
ADS FLAGWRD1
EXTEND # KILL GROUP 4
DCA NEG0
DXCH -PHASE4
@ -1034,10 +1034,10 @@ STATQUO CS FLAGWRD1 # SET TRACKFLAG AND UPDATE FLAG
# Page 202
TCF GOMOD
NOUVEAU CAF RNDVZBIT
NOUVEAU CAF RNDVZBIT
MASK FLAGWRD0
CCS A
TCF +3
TCF +3
TC DOWNFLAG # NO, RESET IMUINUSE FLAG
ADRES IMUSE # BIT 8 FLAG 0
+3 INDEX MINDEX
@ -1045,22 +1045,22 @@ NOUVEAU CAF RNDVZBIT
INHINT
TCF SEUDOP00
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
TCF V37BAD
OCT00010 EQUALS BIT4
V37XEQ INHINT
INDEX MINDEX
CAF PREMM1
CAF PREMM1
TS MMTEMP # OBTAIN PRIORITY BITS 15-11
TS CYR # SHIFT RIGHT TO BITS 14-10
CA CYR
MASK PRIO37
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
TS NEWPRIO # STORE PRIO FOR SPVAC
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
EXTEND
MP BIT8
@ -1071,13 +1071,13 @@ V37XEQ INHINT
TS BASETEMP
MASK HI5
ADS L
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
MASK LOW10
AD BIT11
TC SPVAC
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
TC NEWMODEA # PHSBRDT1)
@ -1086,15 +1086,15 @@ V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
# FOR SUNDISK ONLY
TC RELDSP # RELEASE DISPLAY
TC ENDOFJOB # AND EXIT
INITSUB EXTEND
QXCH MPAC +1
CAF EBANK6 # SET E6 FOR DEADBAND CODING
TS EBANK # WILL BE RESET IN STARTSB2
INHINT
TC STOPRATE
CA FLAGWRD9 # RESTORE DEADBAND
MASK MAXDBBIT
CCS A
@ -1104,7 +1104,7 @@ INITSUB EXTEND
TCF RAKE
SETMAXER TC BANKCALL
CADR SETMAXDB
RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
+1 TS MPAC # LOOP COMES HERE
INDEX MPAC
@ -1116,14 +1116,14 @@ RAKE CAF ELEVEN # THIS PART CLEARS FLAGWORD BITS.
CCS MPAC
TCF RAKE +1 # GET THE NEXT FLAGWORD
RELINT
TC UPFLAG # NOW SET IMPULSW
ADRES IMPULSW
CA NEGONE
TS OPTIND
TC MPAC +1 # RETURN FROM INITSUB
FLAGTABL OCT 0
OCT 00040 # IDLEFAIL
OCT 06000 # P21FLAG, STEERSW
@ -1131,13 +1131,13 @@ FLAGTABL OCT 0
OCT 0
OCT 04140 # V59FLAG, ENGONFLG, 3AXISFLG
OCT 10000 # STRULLSW
OCT 16000
OCT 16000
OCT 0
# Page 204
OCT 42000 # SWTOVER, V94FLAG
OCT 0
OCT 0
SETLOC VAC5LOC
BANK
VAC5STOR CA ZERO # INITIALIZE INDEX REGISTERS
@ -1204,7 +1204,7 @@ V5OUT2 CA MPAC +3
CA NEWJOB
TS VAC5 +22D
CA NEWPRIO
TS VAC5 +26D
@ -1240,7 +1240,7 @@ RCSADDR4 2CADR RCSATT
# 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 MAJOR MODE. FOR EXAMPLE,
# THE MAJOR MODE. FOR EXAMPLE,
#
# FCADRMM1 FCADR P79 # START OF P 79
# FCADR PROG18 # START OF P 18
@ -1335,7 +1335,7 @@ PREMM1 EQUALS
OCT 27021 # MM 17 EBANK 6 PRIO 13
OCT 27006 # MM 06 EBANK 4 PRIO 13
OCT 41201 # MM 01 EBANK 5 PRIO 20
# Page 208
# 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= TIME2SAV # EBANK SETTING REQUIRED BY MM 06
EBANK= QPLACE # EBANK SETTING REQUIRED BY MM 01
# 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)
# 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
SETLOC INTINIT
BANK
COUNT* $$/INTIN
EBANK= RRECTCSM
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
VINTFLAG
# Page 210
ORBWFLAG # ALSO 6X6 W-MATRIX IF VALID
+3 # FOR ORBITAL NAVIGATION
SET
SET
DIM0FLAG
CLEAR CALL
PRECIFLG
INTEGRV
INTEGRV
BON DLOAD
SURFFLAG
STATEND
@ -1456,7 +1456,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
CLEAR CALL # EXTRAPOLATE LM STATE VECTOR
VINTFLAG
SETIFLGS # AND 6X6 W-MATRIX IF VALID
BOF SET
BOF SET
RENDWFLG # FOR RENDEZVOUS NAVIGATION
+2
DIM0FLAG
@ -1466,9 +1466,9 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
STATEND CLRGO
NODOFLAG
ENDINT
# THIS VINT IS CALLED BY MIDTOAV1 AND 2
THISVINT SET RVQ
VINTFLAG

44
Comanche055/GIMBAL_LOCK_AVOIDANCE.agc
View File

@ -7,13 +7,13 @@
# Reference: pp. 412-413
# Contact: Onno Hommes <ohommes@cmu.edu>.
# 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
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -29,17 +29,17 @@
# Page 412
BANK 15
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
# DETECTING GIMBAL LOCK
LOCSKIRT EQUALS WCALC
WCALC LXC,1 DLOAD*
RATEINDX
ARATE,1
ARATE,1
SR4 CALL # COMPUTE THE INCREMENTAL ROTATION MATRIX
DELCOMP # DEL CORRESPONDING TO A 1 SEC ROTATION
# ABOUT COF
@ -48,7 +48,7 @@ WCALC LXC,1 DLOAD*
COF
MXV
QUADROT
STODL BRATE
STODL BRATE
AM
DMP DDV*
ANGLTIME
@ -64,16 +64,16 @@ WCALC LXC,1 DLOAD*
SETGO # STATE SWITCH CALCMAN2 (43D)
CALCMAN2 # 0(OFF) = BYPASS STARTING PROCEDURE
NEWANGL +1 # 1(ON) = START MANEUVER
ARATE 2DEC .0022222222 # = .05 DEG/SEC
2DEC .0088888889 # = .2 DEG/SEC
2DEC .0222222222 # = .5 DEG/SEC
2DEC .0888888889 # = 2 DEG/SEC $22.5 DEG/SEC
ANGLTIME 2DEC .000190735 # = 100B - 19
# MANEUVER ANGLE TO MANEUVER TIME
@ -81,19 +81,19 @@ QUADROT 2DEC .1 # ROTATION MATRIX FROM S/C AXES TO CONTROL
# Page 413
2DEC 0 # AXES (X ROT = -7.25 DEG)
2DEC 0
2DEC 0
2DEC .099200 # =(.1)COS7.25
2DEC -.012620 # =-(.1)SIN7.25
2DEC 0
2DEC .012620 # (.1)SIN7.25
2DEC .099200 # (.1)COS7.25
BIASCALE 2DEC .0002543132 # = (450/180)(1/0.6)(1/16384)

22
Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
View File

@ -7,14 +7,14 @@
# Reference: pp. 456-459
# Contact: Onno Hommes <ohommes@cmu.edu>.
# 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.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -90,7 +90,7 @@
EBANK= P21TIME
COUNT 24/P21
PROG21 CAF ONE
TS OPTION2 # ASSUMED VEHICLE IS LM, R2 = 00001
CAF BIT2 # OPTION 2
@ -106,7 +106,7 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
TC +2 # PROCEED VALUES OK
TC -5 # TIME LOADED THROUGH DSKY
TC INTPRET
DLOAD
DLOAD
DSPTEM1
STCALL TDEC1 # INTEG TO TIME SPECIFIED IN TDEC
INTSTALL
@ -126,9 +126,9 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
INTEGRV # CALCULATE
GOTO # .AND
P21VSAVE # ..SAVE BASE VECTOR
P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
P21CONT VLOAD # RECYCLE..INTEG FROM BASE VECTOR
P21BASER
# Page 458
# Page 458
STOVL RCV # ..POS
P21BASEV
STODL VCV # ..VEL
@ -179,7 +179,7 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
DMP # MPAC = ALT, METERS B-29
K.01
STORE P21ALT # ALT/100 FOR N73 DSP
# Page 459
# Page 459
EXIT
CAF V06N43 # DISPLAY LAT,LONG,ALT
TC BANKCALL # LAT,LONG = REVS B0 BOTH EARTH/MOON
@ -191,9 +191,9 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
P21TIME
600SEC # 600 SECONDS OR 10 MIN
STORE DSPTEM1
RTB
RTB
P21PROG1
600SEC 2DEC 60000 # 10 MIN
P21ONENN OCT 00001 # NEEDED TO DETERMINE VEHICLE

186
Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc
View File

@ -12,11 +12,11 @@
# of 25DECML fixed.
# 2009-05-23 RSB At SPECSTS, corrected to PRIO22.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -48,7 +48,7 @@
BANK 33
SETLOC IMUCAL
BANK
EBANK= POSITON
IMUTEST CA ZERO
TS DRIFTT
@ -58,11 +58,11 @@ IMUTEST CA ZERO
TC COAALIGN # TAKE CARE OF DRIFT FLAG
CAF 1SECX
TS 1SECXT1
CA OC14400
TS 1/PIPADT
TS 1/PIPADT
GUESS TC INTPRET # CALCULATE -COS LATITUDE AND SIN LATITUDE
CALL
CALL
LATAZCHK
COS DCOMP
SL1
@ -122,10 +122,10 @@ NBPOSPL CA DEC17
EXTEND
DCA PERFDLAY
TC LONGCALL
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
SBANK= LOWSUPER # RSB 2004, OH 2009: Ask Ron
EBANK= POSITON
2CADR GOESTIMS
CA ESTICADR
TC JOBSLEEP
GOESTIMS CA ESTICADR
@ -140,11 +140,11 @@ TORQUE CA ZERO
INDEX POSITON
TS SOUTHDR -1
TC SHOW
PIPACHK INDEX NDXCTR # PIPA TEST
TC +1
TC EARTHR*
CA DEC57
CA DEC57
TS LENGTHOT
CA ONE
TS RESULTCT
@ -173,9 +173,9 @@ STARTPIP CAF PRIO20
TC FINDVAC
EBANK= XSM
2CADR PIPJOBB
TC TASKOVER
PIPJOBB INDEX NDXCTR
TC +1
TC EARTHR*
@ -190,7 +190,7 @@ PIPJOBB INDEX NDXCTR
EXTEND
DCS DATAPL
DAS DATAPL +4
TC INTPRET
DLOAD DSU
DATAPL +6
@ -222,7 +222,7 @@ PON4 CS BIT5 # OFFSET PLATFORM
CA BIT5
ADS ERCOMP1
TCF PONG
PON2 CS BIT5
PON2 CS BIT5
ADS ERCOMP1 +2
CA BIT5
ADS ERCOMP1 +4
@ -242,7 +242,7 @@ VALMIS CA DRIFTO
CA ZERO
TS DSPTEM2
TC SHOW
ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
ADRES IMUSE # BIT 8 FLAG 0
CS ZERO
@ -251,12 +251,12 @@ ENDTEST1 TC DOWNFLAG # IMU NOT IN USE
CADR MKRELEAS
TC ENDEXT
# Page 428
OVERFFIX DAD DAD
DPPOSMAX
ONEDPP
RVQ
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
QXCH QPLACE
CA ZERO
@ -273,7 +273,7 @@ COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
IMUSTLLG EXTEND
QXCH QPLACE
TC COAALIGN +10
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
QXCH QPLACE
TC +6
@ -359,7 +359,7 @@ ERTHR SL VXSC
PULSEIMU
GOTO
S2
EARTHR* EXTEND
QXCH QPLACES
TC INTPRET
@ -369,7 +369,7 @@ PROUT EXIT
TC IMUSTLLG
TC QPLACES
# Page 431
SHOW EXTEND
QXCH QPLACE
SHOW1 CA POSITON
@ -380,7 +380,7 @@ SHOW1 CA POSITON
TC ENDTEST1 # V34
TC QPLACE # V33
TCF SHOW1
OC14400 OCT 14400
3990DEC = OMEG/MS
VB06N98 VN 0698
@ -395,7 +395,7 @@ OMEG/MS 2DEC .24339048
P11OUT TC BANKCALL
CADR MATRXJOB # RETURN TO P11
COUNT 02/COMST
BLOCK 2
@ -417,7 +417,7 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
EXTEND
READ HISCALAR
TC Q
# Page 432
# PROGRAM NAME: OPTIMUM PRELAUNCH ALIGNMENT CALIBRATION
# 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.
# 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.
# 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
# ROUTINES USE STANDARD SYSTEM TEST LEADIN PROCEDURES. THE INITIALIZATION
# 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.
COUNT 33/P02
EBANK= XSM
BANK 33
SETLOC IMUCAL
@ -524,7 +524,7 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
STORE GCOMP
STORE DELVX # GCOMPZER SUBROUTINE NO LONGER NEEDED
EXIT
CCS GEOCOMP1 # NON ZERO IF COMPASS.
TC +2
TC SLEEPIE +1
@ -534,11 +534,11 @@ RSTGTS1 INHINT # COMES HERE PHASE1 RESTART
EXIT
CA LENGTHOT # TIMES FIVE IS THE NUM OF SEC ERECTING
TS ERECTIME
TC NEWMODEX
MM 02
TC BANKCALL # SET UP PIPA FAIL TO CAUSE ISS ALARM
# Page 435
# Page 435
CADR PIPUSE # COMPASS NEVER TURNS THIS OFF
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
TC SETGWLST
TC ENDOFJOB
SETGWLST EXTEND
QXCH MPAC # CALLED EVERY WAITLIST OR AZIMUTH CHANGE
INHINT
@ -572,7 +572,7 @@ WTGTSMPL TC TWIDDLE
TC MPAC
RIGHTGTS CAF FOUR # SET UP NEXT WAITLIST-ALLOW SOME TIME
TC WTGTSMPL # END OF WAITLIST SECTION
# STORE AND LOAD DATA SECTIONS FOR RESTART PROOFING
25DECML EQUALS OCT31
@ -597,9 +597,9 @@ LOADSTDT CAF 25DECML
CCS MPAC
TCF LOADSTDT +1
TC Q
# COMES HERE EVERY ITERATION BY A WAITLIST CALL SET IN SLEEPIE
ALLOOP CA TIME1
TS GTSWTLT1 # STORE TIME TO SET UP NEXT WAITLIST.
ALLOOP3 CA ALTIM
@ -629,9 +629,9 @@ SPECSTS CAF PRIO22
TC FINDVAC
EBANK= GEOSAVE1
2CADR ALFLT # START THE JOB
TC TASKOVER
# Page 438
# THIS IS PART OF THE JOB DONE EVERY ITERATION
@ -659,20 +659,20 @@ NORMLOP TC INTPRET
STODL DPIPAY
MPAC +5
STORE DPIPAZ
SETPD AXT,1
0
8D
SLOAD DCOMP
GEOCOMP1
BMN
BMN
ALWAYSG # DO A QUICK COMPASS
# Page 439
# NOW WE HAVE JUST THE CALIBRATION PARTS OF THE PROGRAM-NEXT PAGES
COUNT 33/COMST
ALCGKK SLOAD BMN
ALTIMS
ALFLT3 # NO NEW GAINS NEEDED
@ -686,7 +686,7 @@ ALKCG2 DLOAD* INCR,1
TIX,2 SXA,1
ALKCG2
ALX1S
ALFLT3 AXT,1 # MEASUREMENT INCORPORATION ROUTINES
8D # AND GAIN UPDATES
DELMLP DLOAD* DMP
@ -740,7 +740,7 @@ ALKLP LXC,1 SXA,1
TIX,2 AXT,1
ALKLP
8D
LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
ACCWD +8D,1
VLAUN +8D,1
@ -759,7 +759,7 @@ LOOSE DLOAD* PDDL* # EXTRAPOLATE SWAY VARIABLES
STORE ACCWD +8D,1
TIX,1
LOOSE
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
6
2
@ -777,13 +777,13 @@ BOOP DLOAD* DMPR
STORE 22D,2 # COSINES
TIX,2
BOOP
PERFERAS EXIT
CA EBANK7
EBANK= LAT(SPL)
TS EBANK
TC LAT(SPL) # GOTO ERASABLE ONLY TO RETURN
# CAUTION
#
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
@ -809,9 +809,9 @@ SETUPER1 TC INTPRET # DRIFT TEST OVER
XSM
STORE OGC
EXIT
TORQINCH TC PHASCHNG
OCT 00005
OCT 00005
CA OGCPL
TC BANKCALL
CADR IMUPULSE
@ -824,39 +824,39 @@ TORQINCH TC PHASCHNG
ERTHRVSE
EXIT
TC TORQUE # GO TO IMU2 FOR A PIPA TEST AND DISPLAY
SOMEERRR TC ALARM
OCT 1600
TC +3
SOMERR2 TC ALARM
OCT 1601
OCT 1601
TC PHASCHNG
OCT 00005
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
SCHZEROS 2DEC .00000000
2DEC .00000000
OCT 00000
ONEDPP OCT 00000
OCT 00001 # ABOVE ORDER IS IMPORTANT
INTVAL OCT 4
OCT 2
DEC 144
DEC -1
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
77DECML DEC 77
ALXXXZ GENADR ALX1S -1
# GYROCOMPASS PORTIONS FINISH THIS LOG SECTION
COUNT 33/P01
# INITIALIZATION SECTION
GTSCPSS CA FLAGWRD1 # CALLED BY V37
@ -866,7 +866,7 @@ GTSCPSS CA FLAGWRD1 # CALLED BY V37
BZF GTSCPSSA
TC P00DOO
OCT 1521 # NODO ALARM FOR P01 - P11 ALREADY DONE
GTSCPSSA CAF ONE
TS GEOCOMP1 # THIS IS THE LEAD IN FOR COMPASS
CA 1/PIPAGT
@ -892,8 +892,8 @@ SETUPGC CA DEC17
TC ZEROING
TC POSN17C
TC GEOIMUTT # GO TO IMU2 FOR FURTHER INITIALIZATION
POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
QXCH QPLACE # FROM NORTH IN REVOLUTIONS + CLOCKWISE
CS HALF # ALL THIS TO INITIALIZE MATRIX
@ -910,12 +910,12 @@ POSN17C EXTEND # COMPASS POSITION Z DOWN, X DOWNRANGE
STORE XSM +2
EXIT
TC QPLACE
# Page 444
# JOB DONE EVERY ITERATION THROUGH COMPASS PROGRAM. SET BY TASK ALLOOP
COUNT 33/P02
ALWAYSG DLOAD* DSU* # COMPASS AND ERECT
DPIPAY +8D,1
FILDELV1 +8D,1
@ -962,7 +962,7 @@ COMPGS DLOAD DAD # COMPASS
GEOCONS4
BDSU STADR
STORE THETAN1 +2
# Page 445
# Page 445
ADDINDRF EXIT
@ -971,7 +971,7 @@ ENDGTSAL CCS LENGTHOT # IS 5 SEC OVER-THE TIME TO TORQ PLATFORM
TC CHKCOMED
CCS LGYRO # YES BUT ARE GYROS BUSY
TCF SLEEPIE +1 # BUSY-GET THEM .5 SECONDS FROM NOW
LASTGTS TC INTPRET
VLOAD
ERCOMP1
@ -979,7 +979,7 @@ LASTGTS TC INTPRET
TMARK
STORE ALK
EXIT # PREVIOUS SECTION WAS FOR RESTARTS
RESTAIER TC PHASCHNG
OCT 00275
TC INTPRET # ADD COMPASS COMMANDS INTO ERATE
@ -1040,19 +1040,19 @@ SPITGYRO CA ERCOMPPL
CADR IMUSTALL
TC SOMERR2
TC ESTIMS # RE-INITIALIZE
NOAZCHGE EXIT
CA ONE
TS PREMTRXC
NOCHORLD CCS GEOSAVE1
TS ERECTIM1 # COUNTS DOWN FOR ERECTION.
ANNNNNN CAF NINE
TS LENGTHOT
TC SLEEPIE +1
CHKCOMED INHINT
CS MODREG # CHECK FOR MM 07 FIRST
AD SEVEN
@ -1064,13 +1064,13 @@ CHKCOMED INHINT
MASK BIT5 # LIFTOFF BIT
CCS A
TCF PRELTERM # LIFTOFF HAS OCCURRED
# Page 447
CA GRRBKBIT # CHECK FOR BACKUP LIFTOFF
MASK FLAGWRD5 # BIT5 FLAGWRD5
CCS A
TCF PRELTERM # BACKUP RECEIVED
RELINT
GOBKCALB TC Q
@ -1079,8 +1079,8 @@ PRELTERM CA PRIO22 # PRELAUNCH DONE -- SET UP P11
INHINT
TC POSTJUMP
CADR P11
ERCOMPPL ECADR ERCOMP
GEOCONS5 EQUALS HIDPHALF
@ -1097,7 +1097,7 @@ GEOSTRT4 EQUALS ENDOFJOB
# OPTICAL VERIFICATION ROUTINES FOR GYROCOMPASS
COUNT 33/P03
GCOMPVER TC PHASCHNG # OPTICAL VERIFICATION ROUTINE
OCT 00154
TC NEWMODEX # ENTERED BY VERB 65 ENTER
@ -1131,9 +1131,9 @@ VN0641 VN 0641
CAF TWO
TS L
TCF OPTDATA +2 # MPAC 1ST PASS=0 2ND PASS=2
TC CONTIN33
V05N30E VN 0530
TC INTPRET # UNDYNAMIC ASSEMBLER
@ -1146,7 +1146,7 @@ TAR/EREF AXT,1 AXT,2 # TARGET VECTOR
# Page 450
0
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
SIN
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
TIX,2 RVQ
TAR1
BANK 33
SETLOC IMUCAL
BANK
COUNT* $$/P03
CONTIN33 CA ONE
TS STARCODE
CA ZERO
@ -1186,7 +1186,7 @@ CONTIN33 CA ONE
NEXTBNKS VLOAD MXV
6D
XSM
VSL1
VSL1
STOVL STARAD
12D
MXV VSL1
@ -1198,8 +1198,8 @@ NEXTBNKS VLOAD MXV
EXIT
TC BANKCALL
CADR MKRELEAS
NEXBNKSS CAF TWO
TS STARCODE
CAF SIX
@ -1230,7 +1230,7 @@ GCOMP5 TC BANKCALL
CADR MKRELEAS
TC DOWNFLAG
ADRES TRM03FLG
TC NEWMODEX
MM 02
TC PHASCHNG
@ -1240,15 +1240,15 @@ V06N93S VN 0693
GTSOPTCS TC ALARM
GTSOPTSS OCT 01602
TC GCOMP5
BANK 34
SETLOC IMUCAL1
BANK
# Page 452
COUNT 34/COMST
LATAZCHK DLOAD SL2 # CALLS FOR AZIMUTH AND LATITUDE
LATITUDE
STODL DSPTEM1 +1
@ -1278,8 +1278,8 @@ VNG0641 VN 0641
BANK 33
SETLOC IMUCAL
BANK
COUNT* $$/P03
TARGDRVE EXTEND
QXCH QPLAC
@ -1311,14 +1311,14 @@ RETARG CAF ZERO
MASK TRM03BIT
CCS A
TC GCOMP5
INDEX MARKSTAT
CA QPRET
EXTEND
BZF RETARG1
TC QPLAC
RETARG1 CA ZERO # RELEASE PREVIOUSLY GRABBED VAC AREA
XCH MARKSTAT
CCS A
@ -1336,7 +1336,7 @@ VELSC 2DEC -.52223476
ALSK 2DEC .17329931
2DEC -.00835370
GEORGEJ 2DEC .63661977
GEOCONS1 2DEC .1
@ -1361,8 +1361,8 @@ LITTLSUB STQ
TRG*NBSM
GOTO
QPLAC
EXIT
AZMTHCG1 TC INTPRET
DLOAD RTB
@ -1391,7 +1391,7 @@ AZMTHCG1 TC INTPRET
OCT 00004
TC POSTJUMP
CADR PINBRNCH
VN0629 VN 0629
# Page 455

112
Comanche055/IMU_COMPENSATION_PACKAGE.agc
View File

@ -17,13 +17,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -31,45 +31,45 @@
# Page 297
BANK 7
SETLOC IMUCOMP
BANK
BANK
EBANK= NBDX
COUNT 06/ICOMP
1/PIPA CAF LGCOMP # SAVE EBANK OF CALLING PROGRAM
XCH EBANK
TS MODE
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
TCF +2
TCF IRIG1 # RETURN
INHINT # ASSURE COMPLETE COMPENSATION OF DELV'S
# FOR DOWNLINK.
1/PIPA1 CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF +2
INDEX BUF +2
CA PIPASCF # (P.P.M.) X 2(-9)
EXTEND
INDEX BUF +2
MP DELVX # (PP) X 2(+14) NOW (PIPA PULSES) X 2(+5)
TS Q # SAVE MAJOR PART
CA L # MINOR PART
EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2
TS DELVX +1 # FRACTIONAL PIPA PULSES SCALED 2(+14)
CA Q # MAJOR PART
EXTEND
MP BIT6 # SCALE 2(+9) SHIFT RIGHT 9
INDEX BUF +2
INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SF)
INDEX BUF +2
CS PIPABIAS # (PIPA PULSES)/(CS) X 2(-8) *
EXTEND
@ -78,7 +78,7 @@
MP BIT1 # SCALE 2(+14) SHIFT RIGHT 14 *
INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
# Page 298
AD NEG1
@ -89,16 +89,16 @@
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
IRIGX EXTEND
IRIGX EXTEND
DCS DELVX # (PIPA PULSES) X 2(+14)
DXCH MPAC
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
TC GCOMPSUB # -(ADIAX)(PIPAX) (GYRO PULSES) X 2(+14)
EXTEND #
EXTEND #
DCS DELVY # (PIPA PULSES) X 2(+14)
DXCH MPAC #
DXCH MPAC #
CS ADSRAX # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
@ -138,13 +138,13 @@ IRIGZ EXTEND
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
# Page 300
TC GCOMPSUB # -(ADSRAZ)(PIPAY) (GYRO PULSES) X 2(+14)
EXTEND
DCS DELVZ # (PIPA PULSES) X 2(+14)
DXCH MPAC
CA ADIAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-3) *
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
# EXTEND # ***
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
# DXCH MPAC # ***
@ -156,14 +156,14 @@ IRIGZ EXTEND
# Page 301
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF +2 # YES
TCF IRIG1 # NO
TCF +2 # YES
TCF IRIG1 # NO
CA PRIO21 # HIGHER THAN SERVICER -- LESS THAN PRELAUNCH
TC NOVAC
TC NOVAC
EBANK= NBDX
2CADR 1/GYRO
RELINT
IRIG1 CA MODE # SET EBANK FOR RETURN
TS EBANK
@ -208,7 +208,7 @@ DRIFTSUB EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA MPAC +1 # NOW MINOR PART
EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
@ -216,7 +216,7 @@ DRIFTSUB EXTEND
CAF ZERO
INDEX BUF # ADD IN FRACTIONAL COMPENSATION
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
AD BUF
XCH BUF
@ -224,23 +224,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
TCF +2 # YES
TC BUF +1 # NO
MASK NEGONE
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
TC BUF +1 # NO
# Page 303
1/GYRO CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF
INDEX BUF # SCALE GYRO COMMANDS FOR IMUPULSE
CA GCOMP +1 # FRACTIONAL PULSES
EXTEND
MP BIT8 # SHIFT RIGHT 7
INDEX BUF
TS GCOMP +1 # FRACTIONAL PULSES SCALED
CAF ZERO # SET GCOMP = 0 FOR DAS INSTRUCTION
INDEX BUF
XCH GCOMP # GYRO PULSES
@ -248,7 +248,7 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
MP BIT8 # SHIFT RIGHT 7
INDEX BUF
DAS GCOMP # ADD THESE TO FRACTIONAL PULSES ABOVE
CCS BUF # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF 1/GYRO +1
@ -260,25 +260,25 @@ LGCOMP ECADR GCOMP # LESS THAN ZERO IMPOSSIBLE
TC BANKCALL
CADR IMUSTALL # WAIT FOR PULSES TO GET OUT
TCF ENDOFJOB # TEMPORARY
GCOMP1 CAF FOUR # PIPAZ, PIPAY, PIPAX
TS BUF
INDEX BUF # RESCALE
CA GCOMP +1
EXTEND
MP BIT8 # SHIFT MINOR PART LEFT 7 -- MAJOR PART = 0
INDEX BUF
LXCH GCOMP +1 # BITS 8-14 OF MINOR PART WERE = 0
CCS BUF # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF GCOMP1 +1
V06N30S VN 0630
TCF ENDOFJOB
# Page 304
# Page 304
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
TCF +2
@ -289,7 +289,7 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF ENDOFJOB
TCF ENDOFJOB
TCF +1
CA TIME1 # (CS) X 2(+14)
XCH 1/PIPADT # PREVIOUS TIME
RELINT
@ -300,36 +300,36 @@ NBD2 CCS A # CALCULATE ELAPSED TIME.
TCF NBD3 # RESTORE TIME DIFFERENCE AND JUMP
TCF +2 # TIME1 OVERFLOW
TCF ENDOFJOB # IF ELAPSED TIME = 0 (DIFFERENCE = -0)
COM # CALCULATE ABSOLUTE DIFFERENCE
AD POSMAX
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
MP BIT10 # SHIFT RIGHT 5
DXCH VBUF
DXCH VBUF
EXTEND
DCA VBUF
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
CAF ZERO
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX X, Y, Z.
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
EXTEND
DCS VBUF
DCS VBUF
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CA NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
EXTEND
DCS VBUF
DCS VBUF
DXCH MPAC # DELTAT SCALED (CS) X 2(+19)
CS NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
# Page 305
# Page 305
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF 1/GYRO # YES
TCF ENDOFJOB # NO
@ -337,13 +337,13 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
# Page 306
FBIASSUB XCH Q
TS BUF +1
CA Q # NBD SCALED (GYRO PULSES)/(CS) X 2(-5)
EXTEND
MP MPAC # DELTAT SCALED (CS) X 2(+19)
INDEX BUF
DAS GCOMP # HI(NBD)(DELTAT) (GYRO PULSES) X 2(+14)
CA Q # NO FRACTIONAL PART
EXTEND
MP MPAC +1
@ -351,20 +351,20 @@ FBIASSUB XCH Q
CAF ZERO
INDEX BUF
DAS GCOMP # (NBD)(DELTAT) (GYRO PULSES) X 2(+14)
TCF DRFTSUB2 # CHECK MAGNITUDE OF COMPENSATION
LASTBIAS TC BANKCALL
CADR PIPUSE
CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
TCF +2
TCF ENDOFJOB
CAF PRIO31 # 2 SECONDS SCALED (CS) X 2(+8)
XCH 1/PIPADT
COM
AD PIPTIME1 +1 # TIME AT PIPA1 =0
TCF NBD2

16
Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1420-1448
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from
# the Colossus249/ file of the same name,
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting from
# the Colossus249/ file of the same name,
# using Comanche055 page images.
#
# This source code has been transcribed or otherwise adapted from digitized
@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -38,7 +38,7 @@
# FIXED-FIXED ROUTINES
COUNT 02/IMODE
ZEROICDU CAF ZERO # ZERO ICDU COUNTERS.
TS CDUX
TS CDUY
@ -55,7 +55,7 @@ SPSCODE = BIT9
BANK
COUNT 07/IMODE
IMUZERO INHINT # ROUTINE TO ZERO ICDUS.
CS DSPTAB +11D # DON'T ZERO CDUS IS IMU IN GIMBAL LOCK AND
MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION)
@ -844,7 +844,7 @@ GOMANUR CA ATTCADR # IS KALCMANU FREE
BZF +3
TC P00DOO # NO
OCT 1210 # 2 TRYING TO USE SAME DEVICE
+3 EXTEND
DCA BUF2
DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3
@ -899,7 +899,7 @@ KALEBCON ECADR BCDU
SETLOC R02
BANK
COUNT 04/R02 # COUNT*
DEC51 DEC 51
R02BOTH CAF BIT13
MASK STATE +3 # REFSMFLG
@ -1063,6 +1063,6 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
ADRES NODOFLAG
TC GOTOP00H

6
Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -43,7 +43,7 @@
# MGC, AND OGC RESPECTIVELY.
COUNT 23/INFLT
CALCGTA ITA DLOAD # PUSHDOWN 00-03, 16D-27D, 34D-37D
S2 # XDC = (XD1 XD2 XD3)
XDC # YDC = (YD1 YD2 YD3)

26
Comanche055/INTEGRATION_INITIALIZATION.agc
View File

@ -19,13 +19,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -275,7 +275,7 @@
BANK
EBANK= RRECTCSM
COUNT 13/INTIN
STATEINT TC PHASCHNG
OCT 00052
CAF PRIO5
@ -325,7 +325,7 @@ NOINT EXIT
TC DOWNFLAG
ADRES QUITFLAG
TC ENDOFJOB
# ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
@ -340,7 +340,7 @@ ATOPCSM STQ RTB
S2
MOVEACSM
SET CALL
# Page 1315
# Page 1315
CMOONFLG
SVDWN1
BON CLRGO
@ -438,7 +438,7 @@ USEPIOS SETPD VLOAD
RLS
PDDL PUSH
TDEC1
# Page 1317
# Page 1317
STODL TET
5/8
CALL
@ -464,7 +464,7 @@ USEPIOS SETPD VLOAD
STCALL TNUV
A-PCHK
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
SETBANK CAF INTBANK
TS BBANK
CAF FORTYONE
@ -646,7 +646,7 @@ ANDOUT BOFCLR EXIT
BON GOTO
VINTFLAG
ATOPCSM
# Page 1321
# Page 1321
ATOPLEM
PHEXIT CALL
GRP2PC
@ -928,7 +928,7 @@ SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,UN AS WELL AS
+3
CLEAR
CMOONFLG
BON DLOAD # NOW DO LM
SURFFLAG
FAZAB5 # NO COASTING LM
@ -1029,7 +1029,7 @@ ENTMID1 CLEAR CALL
BZE SET
+2
AMOONFLG
VLOAD
VLOAD
RATT
STOVL RN1
VATT
@ -1055,7 +1055,7 @@ CKMID2 BOF RTB
TDEC
BPL CALL
TESTLOOP # YES
# Page 1331
# Page 1331
NOTIME
TIMEINC RTB DAD
@ -1071,14 +1071,14 @@ MID2 DLOAD DSU
3CSECS
BPL
TIMEINC
RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER
LOADTIME
TET
DSU BPL
5.6SECS
A-PCHK # YES. GET OUT.
DLOAD DAD # NO. ADD TIMEDELT TO T-TO-ADD AND TRY
T-TO-ADD # AGAIN.
TIMEDELT

12
Comanche055/INTER-BANK_COMMUNICATION.agc
View File

@ -10,14 +10,14 @@
# Mod history: 2009-05-08 RSB Adapted from Colossus249/ file of same name
# and page images. Corrected various typos
# in the transcription of program comments,
# and these should be back-ported to
# and these should be back-ported to
# Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -37,7 +37,7 @@
BLOCK 02
COUNT 02/BANK
BANKCALL DXCH BUF2 # SAVE INCOMING A,L.
INDEX Q # PICK UP CADR.
CA 0
@ -178,6 +178,6 @@ SUPERSW EXTEND
# CHANNEL 07
TC Q # TC TO INSTRUCTION FOLLOWING
# TC SUPERSW

188
Comanche055/INTERPRETER.agc
View File

@ -8,8 +8,8 @@
# Website: www.ibiblio.org/apollo.
# Pages: 1107-1199
# Mod history: 2009-05-08 RSB Adapted from the Luminary131/ file of the
# same name, using Comanche055 page images.
# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a
# same name, using Comanche055 page images.
# 2009-05-20 RSB Corrections: P00D00 -> P00DOO, fixed a
# "Page N" reference.
# 2009-05-21 RSB Corrected definition of 5B10, which overflowed
# integer arithmetic.
@ -20,13 +20,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -41,7 +41,7 @@
# E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE (100-3777) IS ADDRESSED.
BLOCK 03
COUNT* $$/INTER
INTPRET RELINT
EXTEND # SET LOC TO THE WORD FOLLOWING THE TC.
@ -128,15 +128,15 @@ NEG4 DEC -4
CCS A
AD -ENDERAS # IF NOT, SEE IF IN GENERAL ERASABLE.
TCF IERASTST
NETZERO CA FIXLOC # IF SO, LEAVE THE MODIFIED ADDRESS IN
ADS ADDRWD # ADDRWD AND DISPATCH.
ITR15 INDEX CYR # THIS INDEX MAKES THE NEXT INSTRUCTION
7 INDJUMP -1 # TCF INDJUMP + OP, EDITING CYR.
IERASTST EXTEND
BZMF GEADDR # GO PROCESS GENERAL-ERASABLE ADDRESS.
MASK LOW10 # FIXED BANK ADDRESS. RESTORE AND ADD B15.
AD LOW10 # SWITCH BANKS AND LEAVE SUBADDRESS IN
XCH ADDRWD # ADDRWD FOR OPERAND RETRIEVAL. (THIS
@ -144,7 +144,7 @@ IERASTST EXTEND
TS FBANK # LOCATION IN EACH FBANK.)
ITR12 INDEX CYR
7 INDJUMP -1
GEADDR MASK LOW8
AD OCT1400
XCH ADDRWD
@ -159,7 +159,7 @@ ITR10 INDEX CYR
DODLOAD* CAF DLOAD* # STODL* COMES HERE TO PROCESS LOAD ADR.
TS CYR # (STOVL* ENTERS HERE).
INDEX CA FIXLOC # SET UP INDEX LOCATION.
TS INDEXLOC
INCR LOC # (ADDRESS ALWAYS GIVEN).
@ -168,7 +168,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
CCS A # INDEX 2 IF ADDRESS STORED COMPLEMENTED.
INCR INDEXLOC
NOOP
TS ADDRWD # 14 BIT ADDRESS TO ADDRWD.
MASK HIGH4 # IF ADDRESS GREATER THAN 2K, ADD INTBIT15
EXTEND
@ -179,7 +179,7 @@ INDEX CA FIXLOC # SET UP INDEX LOCATION.
INDEX2 INDEX INDEXLOC
CS X1
ADS ADDRWD # DO AUGMENT, IGNORING AND CORRECTING OVF.
MASK HIGH9 # SEE IF ADDRESS IS IN WORK AREA.
EXTEND
BZF INDWORK
@ -194,7 +194,7 @@ INDEX2 INDEX INDEXLOC
TS ADDRWD
ITR11 INDEX CYR
3 INDJUMP -1
INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
TCF ITR13 -1
@ -206,7 +206,7 @@ INDERASE CA OCT1400
# Page 1112
ITR13 INDEX CYR
3 INDJUMP -1
# Page 1113
# PUSH-UP ROUTINES. WHEN NO OPERAND ADDRESS IS GIVEN, THE APPROPRIATE OPERAND IS TAKEN FROM THE PUSH-DOWN
# LIST. IN MOST CASES THE MODE OF THE RESULT (VECTOR OR SCALAR) OF THE LAST ARITHMETIC OPERATION PERFORMED
@ -227,7 +227,7 @@ PUSHUP CAF OCT23 # IF THE LOW 5 BITS OF CYR ARE LESS THAN
AD -OCT10 # (NO -0).
CCS A
TCF REGUP # FOR ALL CODES GREATER THAN OCT 7.
-OCT10 OCT -10
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
CS NO.WDS
TCF REGUP +2
INDEX MODE # FOR VXSC AND V/SC WE WANT THE REQUIRED
CS REVCNT # PUSHLOC DECREMENT WITHOUT CHANGING THE
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.
TCF OPJUMP3 # TEST THIRD BIT TO SEE IF UNARY OR SHIFT
-ENDVAC DEC -45
# 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.
CA 0
TS POLISH # WE MAY NEED A SUBADDRESS LATER.
CAF LOW7+2K # THESE INSTRUCTIONS ARE IN BANK 1.
TS FBANK
MASK CYR
ITR7 INDEX A
TCF MISCJUMP
# Page 1115
# 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.
INDEX A # THE DECREMENTED UNARY CODE IS IN BITS
TCF UNAJUMP # 1-4 OF A (ZERO, EXIT, HAS BEEN DETECTED)
CCS MODE # IT'S A SHORT SHIFT CODE. SEE IF PRESENT
TCF SHORTT # SCALAR OR VECTOR.
TCF SHORTT
TCF SHORTV # CALLS THE APPROPRIATE ROUTINE.
FBANKMSK EQUALS BANKMASK
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 DLOAD # 06 -- LOAD MPAC WITH A DP SCALAR.
TCF V/SC # 07 -- VECTOR DIVIDED BY A SCALAR.
TCF SLOAD # 10 -- LOAD MPAC IN SINGLE PRECISION.
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
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 VXM # 16 -- MATRIX PRE-MULTIPLIED BY VECTOR.
TCF TSLC # 17 -- NORMALIZE MPAC (SCALAR ONLY).
TCF DMPR # 20 -- DP MULTIPLY AND ROUND.
TCF DDV # 21 -- DP DIVIDE BY.
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 BVSU # 26 -- VECTOR SUBTRACT FROM.
TCF DOT # 27 -- VECTOR DOT PRODUCT.
TCF VXV # 30 -- VECTOR CROSS PRODUCT.
TCF VPROJ # 31 -- VECTOR PROJECTION.
TCF DSU # 32 -- DP SUBTRACT.
@ -332,7 +332,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF +0 # 35 -- AVAILABLE
TCF DMP1 # 36 -- DP MULTIPLY.
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.
# Page 1117
@ -346,7 +346,7 @@ MISCJUMP TCF AXT # 00 -- ADDRESS TO INDEX TRUE.
TCF XCHX # 05 -- EXCHANGE INDEX WITH ERASABLE.
TCF INCR # 06 -- INCREMENT INDEX REGISTER.
TCF TIX # 07 -- TRANSFER ON INDEX.
TCF XAD # 10 -- INDEX REGISTER ADD FROM ERASABLE.
TCF XSU # 11 -- INDEX SUBTRACT FROM ERASABLE.
TCF BZE/GOTO # 12 -- BRANCH ZERO AND GOTO
@ -367,7 +367,7 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
TCF ARCCOS # 05 -- ARC COS.
TCF DSQ # 06 -- DP SQUARE.
TCF ROUND # 07 -- ROUND TO DP.
TCF COMP # 10 -- COMPLEMENT VECTOR OR SCALAR
TCF VDEF # 11 -- VECTOR DEFINE.
TCF UNIT # 12 -- UNIT VECTOR.
@ -376,12 +376,12 @@ UNAJUMP TCF SQRT # 01 -- SQUARE ROOT.
TCF STADR # 15 -- PUSH UP ON STORE CODE.
TCF RVQ # 16 -- RETURN VIA QPRET.
TCF PUSH # 17 -- PUSH MPAC DOWN.
# Page 1119
# SECTION 2 LOAD AND STORE PACKAGE.
#
# 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
# 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.
BLOCK 3
COUNT 03/INTER
STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
TS FBANK # ADDRESS) ENTERS HERE.
INCR LOC
ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
AD NEGONE # (YUL CANT REMOVE 1 BECAUSE OF EARLY CCS)
DOSTORE TS ADDRWD
DOSTORE TS ADDRWD
MASK LOW11 # ENTRY FROM DISPATCHER. SAVE THE ERASABLE
XCH ADDRWD # ADDRESS AND JUMP ON THE STORE CODE NO.
MASK B12T14
@ -411,7 +411,7 @@ DOSTORE TS ADDRWD
MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
ITR0 INDEX A
TCF STORJUMP
# Page 1120
# STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
# A SUPPLIED OPERATION CODE.
@ -424,30 +424,30 @@ STORJUMP TC STORE # STORE.
TCF DANZIG
TC STORE,2
TCF DANZIG
TC STORE # STODL.
TCF DODLOAD
TC STORE # STODL WITH INDEXED LOAD ADDRESS.
TCF DODLOAD*
TC STORE # STOVL.
TCF DOVLOAD
TC STORE # STOVL WITH INDEXED LOAD ADDRESS.
TCF DOVLOAD*
TC STORE # STOTC.
CAF CALLCODE
TS CYR
TCF 15BITADR # GET A 15 BIT ADDRESS.
# Page 1121
# STORE CODE ADDRESS PROCESSOR.
STORE,1 INDEX FIXLOC
CS X1
TCF PRESTORE
STORE,2 INDEX FIXLOC
CS X2
PRESTORE ADS ADDRWD # RESULTANT ADDRESS IS IN ERASABLE.
@ -471,27 +471,27 @@ STARTSTO EXTEND # MPAC,+1 MUST BE STORED IN ANY EVENT.
DCA MPAC
INDEX ADDRWD
DXCH 0
CCS MODE
TCF TSTORE
TC Q
VSTORE EXTEND
DCA MPAC +3
INDEX ADDRWD
DXCH 2
EXTEND
DCA MPAC +5
INDEX ADDRWD
DXCH 4
TC Q
TSTORE CA MPAC +2
INDEX ADDRWD
TS 2
TC Q
# Page 1123
# ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRESS ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
# ITSELF.
@ -519,7 +519,7 @@ TLOAD INDEX ADDRWD
DXCH MPAC
TMODE CAF ONE
TCF NEWMODE # DECLARE TRIPLE PRECISION MODE.
SLOAD ZL # LOAD A SINGLE PRECISION NUMBER INTO
INDEX ADDRWD # MPAC, SETTING MPAC+1,2 TO ZERO. THE
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
DCA 0 # CONTENTS OF MPAC +2 ARE IRRELEVANT.
DXCH MPAC
ENDVLOAD EXTEND # PDVL COMES HERE TO FINISH UP FOR DP, TP.
INDEX ADDRWD
DCA 2
DXCH MPAC +3
+4 EXTEND # TPDVL FINISHES HERE.
INDEX ADDRWD
DCA 4
@ -594,7 +594,7 @@ PDVL EXTEND # RELOAD MPAC AND PUSH DOWN ITS CONTENTS.
DXCH MPAC
INDEX PUSHLOC
DXCH 0
INDEX MODE # ADVANCE THE PUSHDOWN POINTER.
CAF NO.WDS
ADS PUSHLOC
@ -609,26 +609,26 @@ VPDVL EXTEND # PUSHDOWN AND RE-LOAD LAST TWO COMPONENTS
DXCH MPAC +3
INDEX PUSHLOC
DXCH 0 -4
EXTEND
INDEX ADDRWD
DCA 4
DXCH MPAC +5
INDEX PUSHLOC
DXCH 0 -2
TCF DANZIG
TPDVL EXTEND # ON TP, WE MUST LOAD THE Y COMPONENT
INDEX ADDRWD # BEFORE STORING MPAC +2 IN CASE THIS IS A
DCA 2 # PUSHUP.
DXCH MPAC +3
CA MPAC +2
INDEX PUSHLOC # IN DP.
TS 0 -1
TCF ENDVLOAD +4
# SSP (STORE SINGLE PRECISION) IS EXECUTED HERE.
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.
# Page 1127
TCF DANZIG
# Page 1128
# 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).
INDEX FIXLOC
TS QPRET
GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
+1 MASK HIGH4
EXTEND
@ -682,9 +682,9 @@ GOTO CA POLISH # BASIC BRANCHING SEQUENCE.
AD 2K
TS LOC
TCF INTPRET +3
EBANK= 1400 # SO YUL DOESN'T CUSS THE "CA 1400" BELOW.
GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
AD -ENDVAC # IF RELATIVE TO THE WORK ARA.
CCS A
@ -698,14 +698,14 @@ GOTOERS CA POLISH # THE GIVEN ADDRESS IS IN ERASABLE -- SEE
CA 0 # THE BRANCH ADDRESS.
TS POLISH
TCF GOTO +1 # ALLOWS ARBITRARY INDIRECTNESS LEVELS.
GOTOGE TS EBANK
MASK LOW8
INDEX A # USE THE GIVEN ADDRESS AS THE ADDRESS OF
CA 1400 # THE BRANCH ADDRESS.
TS POLISH
TCF GOTO +1
CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
CA 1 # LIST
INDEX ADDRWD # ADD MODIFIER.
@ -716,14 +716,14 @@ CGOTO INDEX LOC # COMPUTED GO TO. PICK UP ADDRESS OF CADR
CA 10000
TS POLISH
TCF GOTO +1 # WITH ADDRESS IN A.
SWBRANCH CA BANKSET # SWITCH INSTRUCTIONS WHICH ELECT TO
TS FBANK # BRANCH COME HERE TO DO SO.
INDEX LOC
CA 1
TS POLISH
TCF GOTO +1
# Page 1130
# TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
# L+1 IF MPAC IS GREATER THAN ZERO.
@ -734,23 +734,23 @@ BRANCH CCS MPAC
TC Q
TCF +2 # ON ZERO.
TCF NEG
CCS MPAC +1
TC Q
TCF +2
TCF NEG
CCS MPAC +2
TC Q
TCF +2
TCF NEG
Q+1 INDEX Q
TC 1
NEG INDEX Q # IF FIRST NON-ZERO REGISTER WAS NEGATIVE.
TC 2
Q+2 = NEG
# 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.
TCF +2
VAD CAF PRIO30 # CHANGES 0 TO DCA.
ADS ADDRWD
EXTEND
@ -786,7 +786,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
EXTEND # CHECK OVERFLOW.
BZF +2
TC OVERFLWY
EXTEND
INDEX ADDRWD
READ CHAN5 # DCA 4 OR DCS 4
@ -794,7 +794,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
EXTEND
BZF +2
TC OVERFLWZ
EXTEND
INDEX ADDRWD
READ LCHAN # DCA 0 OR DCS 0
@ -806,11 +806,11 @@ DAD EXTEND
ENDVXV DAS MPAC # VXV FINISHES HERE.
EXTEND
BZF DANZIG
# Page 1132
SETOVF TC OVERFLOW
TCF DANZIG
# Page 1133
DSU EXTEND
INDEX ADDRWD
@ -820,11 +820,11 @@ DSU EXTEND
OVERFLWZ TS L # ENTRY FOR THIRD COMPONENT.
CAF FIVE
TCF +3
OVERFLWY TS L # ENTRY FOR SECOND COMPONENT.
CAF THREE
XCH L
OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
CS LIMITS # PICK UP POSMAX OR NEGMAX.
TS BUF
@ -840,18 +840,18 @@ OVERFLOW INDEX A # ENTRY FOR 1ST COMP OR DP (L=0).
TS 7
TC Q # NO OVERFLOW EXIT.
TCF SETOVF2 # SET OVFIND AND EXIT.
BVSU EXTEND
INDEX ADDRWD
DCA 2
DXCH MPAC +3
EXTEND
DCOM
DCOM
DAS MPAC +3
EXTEND
BZF +2
TC OVERFLWY
EXTEND
INDEX ADDRWD
DCA 4
@ -862,7 +862,7 @@ BVSU EXTEND
EXTEND
BZF +2
TC OVERFLWZ
# Page 1134
BDSU EXTEND
INDEX ADDRWD
@ -871,7 +871,7 @@ BDSU EXTEND
EXTEND
DCOM
TCF ENDVXV
# Page 1135
# TRIPLE PRECISION ADD ROUTINE.
@ -884,9 +884,9 @@ TAD EXTEND
AD MPAC
TS MPAC
TCF DANZIG
TCF SETOVF # SET OVFIND IF SUCH OCCURS.
# Page 1136
# ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
# 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).
MP MPAC
DAS MPAC +1 # GUARANTEED NO OVERFLOW.
INDEX ADDRWD # GET MAJOR PART OF ARGUMENT AT C(ADDRWD).
CA 0
XCH MPTEMP # SAVE AND BRING OUT MINOR OF MPAC.
DMPSUB2 EXTEND
DMPSUB2 EXTEND
MP MPTEMP # MAJOR OF C(ADDRWD) X MINOR OF MPAC.
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).
DAS MPAC # GUARANTEED NO OVERFLOW.
TC Q # 49 MCT = .573 MS. INCLUDING RETURN.
# Page 1137
# ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
@ -979,7 +979,7 @@ DOTSUB EXTEND
TS BUF
TCF +2
TS OVFIND # IF OVERFLOW OCCURS.
DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
DXCH MPAC
CA DOTINC
@ -1037,30 +1037,30 @@ POLY INDEX Q
POLYCOM CAF LVBUF # INCOMING X WILL BE MOVED TO VBUF, SO
TS ADDRWD # SET ADDRWD SO DMPSUB WILL MPY BY VBUF.
EXTEND
INDEX POLISH
DCA 3
# Page 1140
DXCH MPAC # LOAD A(N) INTO MPAC
DXCH VBUF # SAVING X IN VBUF
TCF POLY2
POLYLOOP TS POLYCNT # SAVE DECREMENTED LOOP COUNTER
CS TWO
ADS POLISH # REGRESS COEFFICIENT POINTER
POLY2 TC DMPSUB # MULTIPLY BY X
EXTEND
INDEX POLISH
DCA 1 # ADD IN NEXT COEFFICIENT
DAS MPAC # USER'S RESPONSIBILITY TO ASSURE NO OVFLOW
CCS POLYCNT
TCF POLYLOOP
TC POLYRET # RETURN CALLER
# Page 1141
# MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
@ -1477,7 +1477,7 @@ DCOMP CS MPAC +2
BANK 00
COUNT 00/INTER
SHORTT CAF SIX # SCALAR SHORT SHIFTS COME HERE. THE SHIFT
MASK CYR # COUNT-1 IS NOW IN BITS 2-3 OF CYR. THE
TS SR # ROUNDING BIT IS IN BIT1 AT THIS POINT.
@ -2816,7 +2816,7 @@ TCSUBTR TCF SUBTR
BANK 01
COUNT 01/INTER
AXT TC TAGSUB # SELECT APPROPRIATE INDEX REGISTER.
CA POLISH
XSTORE INDEX INDEXLOC # CONTAINS C(FIXLOC) OR C(FIXLOC)+1
@ -3056,4 +3056,4 @@ SWSKIP INCR LOC
SW/ EQUALS SWITCHES
+13D TCF DANZIG # 11 -- NOOP.

12
Comanche055/INTERPRETIVE_CONSTANTS.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -32,7 +32,7 @@
BANK
COUNT 23/ICONS
DP1/4TH 2DEC .25
UNITZ 2DEC 0
@ -44,7 +44,7 @@ UNITX 2DEC .5
ZEROVECS 2DEC 0
2DEC 0
2DEC 0
DPHALF = UNITX
@ -58,7 +58,7 @@ DPPOSMAX OCT 37777
BANK
COUNT 14/ICONS
ZUNIT 2DEC 0
YUNIT 2DEC 0
@ -68,7 +68,7 @@ XUNIT 2DEC .5
ZEROVEC 2DEC 0
2DEC 0
2DEC 0
OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER

38
Comanche055/INTERRUPT_LEAD_INS.agc
View File

@ -10,11 +10,11 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 09/05/09 FB Transcription of Batch FB-1 Assignment.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -29,66 +29,66 @@
# information. Please report any errors to info@sandroid.org.
# Page 131
SETLOC 4000
SETLOC 4000
COUNT 02/RUPTS
INHINT # GO
CAF GOBB
XCH BBANK
TCF GOPROG
DXCH ARUPT # T6RUPT
EXTEND
DCA T6LOC
DTCB
DXCH ARUPT # T5RUPT
CS TIME5
AD .5SEC
TCF T5RUPT
DXCH ARUPT # T3RUPT
CAF T3RPTBB
XCH BBANK
TCF T3RUPT
DXCH ARUPT # T4RUPT
CAF T4RPTBB
XCH BBANK
TCF T4RUPT
DXCH ARUPT # KEYRUPT1
CAF KEYRPTBB
XCH BBANK
TCF KEYRUPT1
DXCH ARUPT # KEYRUPT2
CAF MKRUPTBB
XCH BBANK
TCF MARKRUPT
DXCH ARUPT # UPRUPT
CAF UPRPTBB
XCH BBANK
TCF UPRUPT
DXCH ARUPT # DOWNRUPT
CAF DWNRPTBB
XCH BBANK
TCF DODOWNTM
DXCH ARUPT # RADAR RUPT
# Page 132
CAF RDRPTBB
XCH BBANK
TCF VHFREAD
DXCH ARUPT # HAND CONTROL RUPT
CAF HCRUPTBB
XCH BBANK
TCF RESUME +3 # NOT USED
EBANK= LST1 # RESTART USES E0,E3
GOBB BBCON GOPROG
@ -123,6 +123,6 @@ T5RUPT EXTEND
EXTEND
DCA T5LOC
DTCB

144
Comanche055/JET_SELECTION_LOGIC.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -31,11 +31,11 @@
BANK 21
SETLOC DAPS4
BANK
COUNT 17/DAPJS
EBANK= KMPAC
# EXAMINE CHANNEL 31 FOR TRANSLATION COMMANDS
JETSLECT LXCH BANKRUPT
@ -69,13 +69,13 @@ JETSLECT LXCH BANKRUPT
MP BIT7 # 2 = - XLN
MASK THREE # 3 = NO XLN
TS YNDX # Y-TRANSLATION INDEX
CA T5TEMP
EXTEND
MP BIT5
MASK THREE
TS ZNDX # Z-TRANSLATION INDEX
CA DAPDATR1 # SET ATTKALMN TO PICK UP FILTER GAINS FOR
MASK BIT14 # TRANSLATIONS.
EXTEND # CHECK DAPDATR1 BIT 14 FOR LEM ATTACHED.
@ -99,7 +99,7 @@ NOXLNCMD TS XNDX1 # ZERO ALL REQUESTS FOR TRANSLATION
TS XNDX2
TS YNDX
TS ZNDX
# PITCH COMMANDS TIMING(NO X-TRANS, NO QUAD FAILS) 32MCT
PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
@ -107,7 +107,7 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
TCF +2 # 0 = NO PITCH
CAF TWO # +1 = + PITCH
TS PINDEX # +2 = - PITCH
CCS RACFAIL # FLAG FOR REAL AC QUAD FAILURES
TCF AFAILP
TCF TABPCOM # 0 = NO REAL AC FAILURES
@ -115,17 +115,17 @@ PWORD CCS TAU1 # CHECK FOR PITCH COMMANDS
TCF TABPCOM # - = C QUAD FAILED
# IF FAILURES ARE PRESENT IGNORE
# X-TRANSLATIONS ON THIS AXIS
AFAILP CAF NINE # IF FAILURE IS PRESENT 1JET OPERATION
TCF TABPCOM +2 # IS ASSUMED. IGNORE X-TRANSLATION
CFAILP CAF TWELVE
TCF TABPCOM +2
XLNNDX DEC 0 # INDICES FOR TRANSLATION COMMANDS
DEC 3 # FOR USE IN TABLE LOOK UP
DEC 6
DEC 0
TWELVE = OCT14
# TABLE LOOK UP FOR PITCH COMMANDS WITH AND WITHOUT X-TRANSLATION AND AC QUAD FAILURES PRESENT.
@ -142,7 +142,7 @@ TABPCOM INDEX XNDX1
EXTEND
MP BIT7
TS NPJETS # = NO. OF PITCH JETS
# YAW JET COMMANDS TIMING(NO X-TRANS, NO QUAD FAILURES) 32MCT
YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
@ -150,18 +150,18 @@ YWORD CCS TAU2 # CHECK FOR YAW COMMANDS
TCF +2
CAF TWO
TS YINDEX # YAW ROTATION INDEX
CCS RBDFAIL # FLAG FOR B OR D QUAD FAILURES
TCF BFAILY # 0 = NO BD FAILURE
TCF TABYCOM # + = B QUAD FAILED
TCF DFAILY # - = D QUAD FAILED
TCF TABYCOM
BFAILY CAF NINE
TCF TABYCOM +2
DFAILY CAF TWELVE
TCF TABYCOM +2
# Page 1042
# TABLE FOR PITCH(YAW) COMMANDS
# 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 2504 # + C(D) 12
OCT 2610 # - C(D) 12
# MASKS FOR PITCH AND YAW COMMANDS
PJETS OCT 1417
@ -213,28 +213,28 @@ RWORD CCS TAU # CHECK FOR ROLL COMMANDS
TCF +2
CAF TWO
TS RINDEX
CCS ACORBD # FLAG FOR AC OR BD QUAD SELECTION FOR
TCF BDROLL # ROLL COMMANDS
TCF BDROLL # +, +0 = BD ROLL
TCF +1 # -, -0 = AC ROLL
ACROLL CCS RACFAIL # CHECK FOR REAL FAILURES
TCF RAFAIL # ON AC QUADS
TCF RXLNS
TCF RCFAIL
TCF RXLNS
RAFAIL CAF NINE # QUAD FAILURE WILL GET
TCF TABRCOM # 1-JET OPERATION
RCFAIL CAF TWELVE
TCF TABRCOM
XLN1NDX DEC 0
DEC 1 # INDECES FOR TRANSLATION
DEC 2
DEC 0
# 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
@ -245,13 +245,13 @@ TABRCOM AD RINDEX
CA RTABLE
MASK ACRJETS # = 3760 OCT
TS RWORD1
# CHECK FOR Z-TRANSLATIONS ON BD
BDZCHECK CA ZNDX
EXTEND
BZMF NOBDZ # NO Z-TRANSLATION
# Page 1044
# 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
@ -269,31 +269,31 @@ BDZCHECK CA ZNDX
MASK BDZJETS # = 3417 OCT
AD RWORD1 # ADD TO ROLL COMMANDS
TS T5TEMP # IF POSSIBLE. MUST CHECK TAU FIRST
EXTEND
MP BIT7 # DETERMINE THE NET ROLL COMMAND WITH
AD =-4 # Z-TRANSLATION ADDED ON
TS NRJETS # NET NO. OF +,- ROLL JETS ON
EXTEND
BZF TAUCHECK
ACRBDZ CA T5TEMP # Z-TRANSLATION ACCEPTED EVEN THO WE MAY
TS RWORD1 # HAVE INTRODUCED AN UNDESIREABLE ROLL
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
TAUCHECK CCS TAU
TCF NOBDZ
TCF ACRBDZ
TCF NOBDZ
TCF ACRBDZ
NOBDZ CA RWORD1 # Z-TRANSLATION NOT ACCEPTED
EXTEND
MP BIT7
AD =-2
TS NRJETS
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATION
# Page 1045
# BD QUAD SELECTION FOR ROLL COMMANDS
@ -306,7 +306,7 @@ RBFAIL CAF NINE
TCF TABRZCMD
RDFAIL CAF TWELVE
TCF TABRZCMD
RZXLNS INDEX ZNDX # NO BD FAILURES
CA XLNNDX # +,-,0 Z-TRANSLATION PRESENT
TABRZCMD AD RINDEX
@ -314,7 +314,7 @@ TABRZCMD AD RINDEX
CA RTABLE
MASK BDRJETS # = 34017 OCT
TS RWORD1
ACYCHECK CA YNDX # ANY Y-TRANSLATION
EXTEND
BZF NOACY # NO Y-TRANSLATION
@ -335,17 +335,17 @@ ACYCHECK CA YNDX # ANY Y-TRANSLATION
TS NRJETS # NO. OF NET ROLL JETS
EXTEND
BZF TAUCHCK # IF NRJETS = 0
BDRACZ CA T5TEMP # Y-TRANSLATION ACCEPTED
TS RWORD1
TCF ROLLTIME # BRANCH TO JET ON-TIME CALCULATIONS
TAUCHCK CCS TAU
TCF NOACY
TCF BDRACZ
TCF NOACY
TCF BDRACZ
# Page 1046
NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
EXTEND
@ -353,7 +353,7 @@ NOACY CA RWORD1 # Y-TRANSLATION NOT ACCEPTED
AD =-2
TS NRJETS
TCF ROLLTIME
# Page 1047
# 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.
# ROLL TRANS QUADFAIL BIAS
RTABLE OCT 11000 # 0 0
OCT 22125 # + 0
OCT 00252 # - 0
@ -440,7 +440,7 @@ YZTABLE OCT 11000 # 0 0
OCT 11000 # 0 D(C) 6
OCT 15421 # +Z(+Y) D(C) 6
OCT 04442 # -Z(-Y) D(C) 6
# YZ-TABLE MASKS:
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
# 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.
#
# 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
TS DFT1 # NO PITCH ROTATION
TCF PBYPASS # COMMANDS
PTAUNEG CS NPJETS
TS NPJETS
PTAUPOS CA TAU1
@ -513,7 +513,7 @@ PBLASTOK CA BLAST1
LXCH DFT1 # FOR USE IN UPDATING RATE FILTER
TS TAU1 # ZERO TAU1 (ACC CONTAINS ZERO)
TCF ASMBLWP
# Page 1052
# YAW JET ON-TIME CALCULATION
@ -523,7 +523,7 @@ YAWTIME CCS TAU2
TCF YTAUNEG
TS DFT2 # NO YAW ROTATION COMMANDS
TCF YBYPASS
YTAUNEG CS NYJETS
TS NYJETS
YTAUPOS CA TAU2
@ -542,7 +542,7 @@ YTAUPOS CA TAU2
CAF =+.1SEC # LIMIT THE LENGTH OF YAW ROTATION COMMAND
TS BLAST2 # TO 0.1 SEC SO THAT ONLY X-TRANSLATION
TCF ASMBLWY # WILL CONTINUE ON SWITCH OVER TO TVC
AD14MSY CS BLAST2 # SEE IF JET ON-TIME LESS THAN
AD =14MS # MINIMUM IMPULSE TIME
EXTEND
@ -555,7 +555,7 @@ YBLASTOK CA BLAST2 # YAW COMMANDS WILL BE COMPLETED WITHIN
LXCH DFT2
TS TAU2 # ZERO TAU2
TCF ASMBLWY
# Page 1053
# ROLL ON-TIME CALCULATION-
@ -567,7 +567,7 @@ ROLLTIME CCS TAU
CA DFTMAX # UPDATE DFT EVEN THO NO ROLL COMMANDS ARE
TS DFT # PRESENT
TCF RBYPASS
DEC -480 # =-.3SEC
DEC -320 # =-.2SEC
=-.1SEC DEC -160 # =-.1SEC
@ -594,7 +594,7 @@ RBLAST CA TAU
CAF =+.1SEC # LIMIT THE LENGTH OF ROLL ROTATION
TS BLAST # COMMANDS TO 0.1 SEC SO THAT ONLY Y-Z
TCF ASMBLWR # TRANSLATION COMMANDS CONTINUE
AD14MSR CS BLAST # SEE IF THE JET ON-TIME LESS THAN
AD =14MS # MINIMUM IMPULSE TIME
EXTEND
@ -607,7 +607,7 @@ RBLASTOK CA BLAST
LXCH DFT
TS TAU # ZERO TAU
TCF ASMBLWR
# Page 1054
DEC -.333333 # = -1/3
DEC -.500000 # = -1/2
@ -616,7 +616,7 @@ NJET DEC 0
DEC .999999 # = +1 (POSMAX)
DEC .500000 # = +1/2
DEC .333333 # = +1/3
# Page 1055
# 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.
@ -637,13 +637,13 @@ FPX2 CA PYTABLE
MASK PJETS
TS PWORD2
TCF YAWTIME
PBYPASS CA PWORD1 # THE T6 PROGRAM WILL LOAD PWORD2
TS PWORD2 # UPON ENTRY
CAF ZERO
TS BLAST1 # THERE IS NO PWORD2
TCF YAWTIME
# Page 1056
# GENERATION OF THE SECOND ROLL (Y,Z) WORD (RWORD2)
@ -656,7 +656,7 @@ NO2Y CAF ZERO
NO2Z CAF ZERO
ADS RWORD2
TCF PITCHTIM # RWORD2 ASSEMBLED
ACBD2Y CCS ACORBD
TCF AC2Y # CAN DO Y-TRANS
TCF AC2Y
@ -665,14 +665,14 @@ ACBD2Y CCS ACORBD
TCF NO2Y # USING AC AND AC HAS FAILED
TCF +2
TCF NO2Y # DITTO
INDEX YNDX # NO FAILURES, CAN DO Y
CA XLNNDX
INDEX A
CA RTABLE
MASK ACRJETS
TCF NO2Y +1
AC2Y CCS RACFAIL
CAF THREE
TCF +2
@ -720,7 +720,7 @@ ACBD2Z CCS ACORBD
CA L
ADS DFT
TCF PITCHTIM
BDF2Z CCS RBDFAIL
TCF NO2Z # USING BD-ROLL AND BD HAS FAILED
TCF +2
@ -731,14 +731,14 @@ BDF2Z CCS RBDFAIL
CA RTABLE
MASK BDRJETS
TCF NO2Z +1
RBYPASS CA RWORD1
TS RWORD2
CAF ZERO
TS BLAST
TCF PITCHTIM
# Page 1058
# Page 1058
# GENERATION OF THE SECOND YAW (X-TRANS) WORD...YWORD2
ASMBLWY CCS RBDFAIL
@ -752,7 +752,7 @@ FYX2 CA PYTABLE
MASK YJETS
TS YWORD2
TCF T6SETUP
YBYPASS CA YWORD1
TS YWORD2
CAF ZERO
@ -783,7 +783,7 @@ T6SETUP CAF ZERO # BRANCH INDEX FOR ROLL
TS BLAST1 +1
CAF ELEVEN # BRANCH INDEX FOR YAW
TS BLAST2 +1
CS BLAST
AD BLAST1
EXTEND
@ -805,7 +805,7 @@ ENDJETS CS BIT1 # RESET BIT1 FOR INITIALIZATION OF
CS ZERO # RESET T5PHASE FOR PHASE1
TS T5PHASE
TCF RESUME # RESUME INTERRUPTED PROGRAM
EBANK= KMPAC
RCS2CADR 2CADR RCSATT
@ -814,7 +814,7 @@ DXCHT12 DXCH BLAST
DXCH BLAST1
DXCH BLAST
TCF CHECKT23
DXCHT23 DXCH BLAST1
DXCH BLAST2
DXCH BLAST1
@ -827,14 +827,14 @@ DXCHT23 DXCH BLAST1
DXCH BLAST1
DXCH BLAST
TCF CALCDT6
# Page 1061
# T6 PROGRAM AND CHANNEL SETUP
BANK 21
SETLOC DAPS5
BANK
T6START LXCH BANKRUPT
EXTEND
QXCH QRUPT
@ -842,7 +842,7 @@ T6START LXCH BANKRUPT
TCF RESUME # AFTER T6RUPT OCCURED(IN T5RUPT)
TCF +2 # IF SO WAIT FOR NEXT T6RUPT BEFORE
TCF RESUME # TAKING ACTION
CS RCSFLAGS
MASK BIT1 # IF BIT1 IS 0 RESET TO 1
EXTEND # AND INITIALIZE CHANNEL
@ -855,7 +855,7 @@ T6START LXCH BANKRUPT
AD YWORD1
EXTEND
WRITE CHAN5
T6RUPTOR CCS BLAST
TCF ZBLAST # ZERO BLAST1
TCF REPLACE # REPLACE WORD1
@ -871,31 +871,31 @@ T6L2 CCS BLAST2
TCF REPLACE2
TCF RESUME
TCF REPLACE2
REPLACE INDEX BLAST +1
TC REPLACER
CS ONE
TS BLAST
TCF T6L1
REPLACE1 INDEX BLAST1 +1
# Page 1062
TC REPLACER
CS ONE
TS BLAST1
TCF T6L2
REPLACE2 INDEX BLAST2 +1
TC REPLACER
CS ONE
TS BLAST2
TCF RESUME
REPLACER CA RWORD2
REPLACER CA RWORD2
EXTEND # INITIALIZE CHANNELS 5,6 WITH WORD2
WRITE CHAN6
TC Q
REPLACEP CA YJETS
EXTEND
RAND CHAN5
@ -903,7 +903,7 @@ REPLACEP CA YJETS
EXTEND
WRITE CHAN5
TC Q
REPLACEY CA PJETS
EXTEND
RAND CHAN5
@ -925,7 +925,7 @@ ENABT6 TS TIME6
EXTEND
WOR CHAN13 # ENABLE T6RUPT
TCF RESUME
# END OF T6 INTERRUPT
ENDSLECT EQUALS

58
Comanche055/KALCMANU_STEERING.agc
View File

@ -7,13 +7,13 @@
# Reference: pp. 414-419
# Contact: Onno Hommes <ohommes@cmu.edu>.
# 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
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -33,14 +33,14 @@
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
COUNT 22/KALC
NEWDELHI CS HOLDFLAG # SEE IF MANEUVER HAS BEEN INTERRUPTED
EXTEND # BY ASTRONAUT.
BZMF NOGO -2 # IF SO, TERMINATE KALCMANU
@ -59,7 +59,7 @@ NEWANGL TC INTPRET
AXC,1 CALL
MIS
DCMTOCDU # PICK UP THE NEW CDU ANGLES FROM MATRIX
RTB
RTB
V1STO2S
STORE NCDU # NEW CDU ANGLES
BONCLR EXIT
@ -87,23 +87,23 @@ INCRDCDU TS KSPNDX
TS CDUXD
CCS KSPNDX
TCF INCRDCDU # LOOP FOR THREE AXES
RELINT
RELINT
# COMPARE PRESENT TIME WITH TIME TO TERMINATE MANEUVER
TMANUCHK TC TIMECHK
TC POSTJUMP
CADR CONTMANU
CAF ONE
CAF ONE
MANUSTAL TC WAITLIST
EBANK= BCDU
2CADR MANUSTOP
RELINT
TCF ENDOFJOB
TIMECHK EXTEND
DCS TIME2
DXCH TTEMP
@ -165,9 +165,9 @@ HIGHGAIN CS RCSFLAGS # IF SO, SET HIGH RATE FLAG (BIT 15 OF
XCH NEXTIME
TC POSTJUMP
CADR INCRDCDU -1
CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
CS TIME1
CS TIME1
AD NEXTIME
CCS A
AD ONE
@ -177,7 +177,7 @@ CONTMANU INHINT # CONTINUE WITH UPDATE PROCESS
MANUCALL TC WAITLIST
EBANK= BCDU
2CADR UPDTCALL
RELINT
# Page 417
CAF 1SEC # INCREMENT TIME FOR NEXT UPDATE
@ -191,13 +191,13 @@ UPDTCALL CAF PRIO26 # CALL FOR UPDATE
2CADR NEWDELHI
TC TASKOVER
# Page 418
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
SETLOC KALCMON3
BANK
MANUSTOP TC STOPYZ
TC IBNKCALL
CADR LOADYZ
@ -207,14 +207,14 @@ ENDROLL CA CPHI
TC STOPRATE
ENDMANU CA ATTPRIO # RESTORE USERS PRIO
TS NEWPRIO
CA ZERO # ZERO ATTCADR
DXCH ATTCADR
TC SPVAC # RETURN TO USER OF GOMANUR
TC TASKOVER
SETLOC STOPRAT
BANK
STOPRATE CAF ZERO
@ -223,11 +223,11 @@ STOPRATE CAF ZERO
TS WBODY # RATE
TS WBODY +1
TS BIAS # BIAS
CS BIT15 # MAKE SURE HIGH RATE FLAG (BIT 15 OF
MASK RCSFLAGS # RCSFLAGS) IS RESET.
TS RCSFLAGS
STOPYZ CAF ZERO
TS DELCDUY # ZERO PITCH, YAW
TS DELCDUY +1 # INCREMENTAL ANGLES
@ -240,7 +240,7 @@ STOPYZ CAF ZERO
TS BIAS1 # BIASES
TS BIAS2
TC Q
SETLOC MANUSTUF
BANK
@ -255,7 +255,7 @@ ZEROERROR CA CDUX # PICK UP CDU ANGLES AND STORE IN
SETLOC KALCMON1
BANK
LOADCDUD CA CPHI # STORE TERMINAL ANGLES INTO
TS CDUXD # COMMAND ANGLES
LOADYZ CA CTHETA

12
Comanche055/KEYRUPT_UPRUPT.agc
View File

@ -8,16 +8,16 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#

6
Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -54,7 +54,7 @@
BANK
COUNT 13/LT-LG
EBANK= ALPHAV
LAT-LONG STQ SETPD
INCORPEX

14
Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
View File

@ -12,11 +12,11 @@
# 2009-07-26 RSB Added annotations related to computation
# of the ephemeral(?) polynomials.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -45,7 +45,7 @@
# INPUT BY THE USER SHOULD FALL WITHIN THIS 15 DAY INTERVAL.
## The 9th-degree polynomial spoken of here is a pad load, meaning
## 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">
## <b>Orbiter</b> NASSP wiki</a>, as well as information about calculation
## 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
# TIMEMO IN METERS/CS x B-9
#
#
# 6) OMEGAES -- ANGULAR VELOCITY OF THE VECTOR RESO AT TIMEMO IN
# REV/CS x B+26
#
@ -131,7 +131,7 @@
BANK 36
SETLOC EPHEM
BANK
COUNT* $$/EPHEM
EBANK= END-E7
LSPOS AXT,2 # COMPUTES POSITION VECTORS OF BOTH THE
@ -166,7 +166,7 @@ RES PUSH DMP # PD- 2
OMEGAES
PUSH COS # PD- 4
VXSC PDDL # PD- 8
RESO
RESO
SIN PDVL # PD-10
RESO
PUSH UNIT # PD-16

2
Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A

30
Comanche055/MAIN.agc
View File

@ -14,21 +14,21 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
#
# 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.
# 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.
# 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
# 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
@ -37,32 +37,32 @@
#
# 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
# 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.
# 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
# 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
# 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
# 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,
# 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.
#
# 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
# 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
# code from what YUL or GAP accepted, so the source code has been targeted for
# 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
# assembly with yaYUL.
# 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
# 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
# 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
$TAGS_FOR_RELATIVE_SETLOC.agc # pp. 27-35

10
Comanche055/MEASUREMENT_INCORPORATION.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -459,11 +459,11 @@ NEWZCOMP VLOAD ABVAL
STADR
STCALL NORMZI # LARGEST ABVAL
NEWZCMP1
SETLOC MEASINC3
BANK
# Page 1261
# Page 1261
NEWZCMP1 DLOAD SXA,1
NORMZI
NORMZI # SAVE X1

14
Comanche055/MYSUBS.agc
View File

@ -17,13 +17,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -32,7 +32,7 @@
BANK 20
SETLOC MYSUBS
BANK
EBANK= KMPAC
SPCOS1 EQUALS SPCOS
SPSIN1 EQUALS SPSIN
@ -40,7 +40,7 @@ SPCOS2 EQUALS SPCOS
SPSIN2 EQUALS SPSIN
COUNT 21/DAPMS
# ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
SMALLMP TS KMPTEMP # A(X+Y)
@ -53,7 +53,7 @@ SMALLMP TS KMPTEMP # A(X+Y)
MP KMPTEMP # AX
DAS KMPAC # AX+AY
TC Q
# SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
# 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)
@ -74,7 +74,7 @@ DPADD DAS KMPAC
CA POSMAX # UPPER WAS = 0
TSK TS KMPAC
TC Q
DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
TCF TSK
@ -82,7 +82,7 @@ DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
DPADD- COM
AD POSMAX # KMPAC LESS THAN 0
TCF TSK
DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
TS KMPAC +1
CA NEGMAX # UPPER WAS = 0

56
Comanche055/ORBITAL_INTEGRATION.agc
View File

@ -9,7 +9,7 @@
# Pages: 1334-1354
# Mod history: 2009-05-14 RSB Adapted from the Colossus249/ file of the
# 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.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -391,18 +391,18 @@ COMTERM STORE UZ
J4REQ/J3,2
DDV DAD
ALPHAM
DMPR* SR3
DMPR* SR3
2J3RE/J2,2
DDV DAD
DDV DAD
ALPHAM
VXSC VSL1
UZ
BVSU
TVEC
STODL TVEC
ALPHAM
NORM DSQ
X1
VXSC VSL1
UZ
BVSU
TVEC
STODL TVEC
ALPHAM
NORM DSQ
X1
DSQ NORM
S1 # 4
PUSH BDDV* # NORMED R TO 0D
@ -424,7 +424,7 @@ COMTERM STORE UZ
QUALITY3 DSQ # J22 TERM X R**4 IN 2D. SCALED B61
# AS VECTOR.
PUSH DMP # STORE COSPHI**2 SCALED B2 IN 8D.
# Page 1343
# Page 1343
5/8 # 5 SCALED B3
PDDL SR2 # PUT 5 COSPHI**2, D5, IN 8D. GET
# COSPHI**2 D2 FROM 8D
@ -492,14 +492,14 @@ COSPHIE DLOAD
DIFEQTAB CADR DIFEQ+0
CADR DIFEQ+1
CADR DIFEQ+2
TIMESTEP BOF CALL
MIDFLAG
RECTEST # SKIP ORIGIN CHANGE LOGIC
CHKSWTCH
BMN
DOSWITCH
RECTEST VLOAD ABVAL # RECTIFY IF
TDELTAV
BOV
@ -526,7 +526,7 @@ CALLRECT CALL
RECTIFY
INTGRATE VLOAD
TNUV
# Page 1345
# Page 1345
STOVL ZV
TDELTAV
STORE YV
@ -567,20 +567,20 @@ RPQOK LXA,2 VLOAD # RESTORE X2 AFTER USING LUNPOS
EARSPH
SR2 BDSU # INSIDE
RSPHERE
GOTO
GOTO
ORIGEX
EARSPH VSU ABVAL # OUTSIDE
RPQV
DSU GOTO
RSPHERE
ORIGEX
DOSWITCH CALL
ORIGCHNG
GOTO
INTGRATE
# Page 1346
# Page 1346
ORIGCHNG STQ CALL
ORIGEX
RECTIFY
@ -848,7 +848,7 @@ DOW..1 VLOAD VSR4
34D
VSL* RVQ
# Page 1353
0 -8D,2
0 -8D,2
SETLOC ORBITAL1
BANK
@ -901,25 +901,25 @@ ASCALE DEC -7
DEC -6
# Page 1354
2DEC* 1.32715445 E16 B-54* # S
2DEC* 4.9027780 E8 B-30* # M
MUEARTH 2DEC* 3.986032 E10 B-36*
2DEC 0
J4REQ/J3 2DEC* .4991607391 E7 B-26*
2DEC -176236.02 B-25
2J3RE/J2 2DEC* -.1355426363 E5 B-27*
2DEC* .3067493316 E18 B-60*
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
-1/12 2DEC -.1

142
Comanche055/P11.agc
View File

@ -7,10 +7,10 @@
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
# Website: www.ibiblio.org/apollo.
# Pages: 533-550
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0533.jpg - 0550.jpg.
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
# Mod history: 2009-05-13 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0533.jpg - 0550.jpg.
# 2009-05-20 RSB Corrections: ERTHALT -> EARTHALT,
# STATSW -> SATSW.
# 2009-05-23 RSB At end of RESCALES, corrected TC 0 to TC Q.
# Added an SBANK= prior to a 2CADR.
@ -22,13 +22,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -72,7 +72,7 @@
# R1 V1 -- INERTIAL VELOCITY MAGNITUDE IN FPS
# R2 HDOT -- RATE OF CHANGE OF VEHICLE VEL IN FPS
# R3 H -- VEHICLE ALTITUDE ABOVE PAD IN NM
#
#
# 12. DISPLAY BODY AXES ATT. ERRORS ON FDAI NEEDLES
#
# A) FROM L.O. TO RPSTART (APPROX. 0 TO +10SECS AFTER L.O.)
@ -146,16 +146,16 @@
# CENTRALS, CORE SET, AND VAC AREAS
COUNT 34/P11
BITS5-6 = SUPER011
BANK 42
SETLOC P11ONE
BANK
EBANK= TEPHEM
P11 CA EBANK3
TS EBANK
EXTEND
DCA REP11S # DIRECT RESTARTS TO REP11
DXCH -PHASE3
@ -166,11 +166,11 @@ P11 CA EBANK3
P11+7 EXTEND
DCA REP11SA
DXCH TLIFTOFF
EXTEND
DCA TIME2
DXCH LIFTTEMP # FORE RESTARTS
CA ZERO
ZL
DXCH TIME2
@ -184,57 +184,57 @@ REP11A INHINT
CA TEPHEM
# Page 536
XCH TEPHEM1
EXTEND
DCA TLIFTOFF
DAS TEPHEM1 +1
ADS TEPHEM1 # CORRECT FOR OVERFLOW
TC PHASCHNG
OCT 05023
OCT 22000
INHINT
EXTEND
DCA TEPHEM1
DXCH TEPHEM
CA TEPHEM1 +2
XCH TEPHEM +2
CAF EBDVCNT
TS EBANK
EBANK= DVCNTR
TC IBNKCALL
CADR PREREAD1 # ZERO PIPS AND INITIALIZE AVERAGEG
TC PHASCHNG
OCT 05023 # CONTINUE HERE ON RESTART
OCT 22000
CAF .5SEC # START ATT ERROR DISPLAY
TC WAITLIST # IN .5 SEC
EBANK= BODY3
2CADR ATERTASK
TC NEWMODEX # DISPLAY MM 11
MM 11
TC UPFLAG
ADRES NODOP01
CA POWDNCOD # SWITCH TO POWERED FLIGHT DOWNLIST
TS DNLSTCOD
TC BANKCALL
TC BANKCALL
CADR CLEANDSP # CLEAR DSKY IN CASE OF V75
TC 2PHSCHNG
OCT 40514 # PROTECT ATERTASK
OCT 00073
CAF EBQPLACE
# Page 537
TS EBANK
EBANK= QPLACES
CA P11XIT # SET EXIT FROM PROUT IN EARTHR
TS QPLACES
@ -253,9 +253,9 @@ REP11A INHINT
MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
CA CDUX # ERROR DISPLAY AFTER LIFTOFF
DXCH OGC
ZL
ZL
CA CDUY
DXCH IGC
DXCH IGC
ZL
CA CDUZ
DXCH MGC
@ -276,8 +276,8 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
CLEAR CALL
ERADFLAG
LALOTORV # CONVERT TO POSITION VECTOR IN REF. COORDS.
STCALL RN1 # _
STCALL RN1 # _
GETDOWN # RETURN WITH VECTOR FOR DOWN DIRECTION
VCOMP UNIT
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
REFSMMAT
STORE REFSMMAT
VXV UNIT # (REF1 X REF3) = -REF3
REFSMMAT +12D
VCOMP
@ -318,21 +318,21 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
STORE SATRLRT # FOR ROLL CALC IN FDAI ATT. ERROR DISPLAY
SET EXIT
REFSMFLG # SET REFSMMAT KNOWN FLAG
TC PHASCHNG
OCT 04023
EXTEND
DCA P11SCADR
DXCH AVGEXIT # SET AVGEXIT
CA PRIO31 # 2 SECONDS AT 2(+8)
TS 1/PIPADT
EBANK= RCSFLAGS
CA EBANK6
TS EBANK
INHINT
# Page 539
CS ZERO
@ -340,47 +340,47 @@ MATRXJOB ZL # STORE DP GIMBAL ANGLES FOR ATTITUDE
CS TIME1
AD 2SECS # DO READACCS 2 SECONDS AFTER LIFTOFF
CCS A # CHECK TO INSURE DT IS POSITIVE
TCF +3 # TIME POSITIVE
TCF +2 # CANNOT GET HERE
CA ZERO # TIME NEGATIVE -- SET TO 1
AD ONE # RESTORE TIME -- OR MAKE POSITIVE
TC WAITLIST
EBANK= AOG
2CADR READACCS
TC 2PHSCHNG
OCT 00003 # TURN OFF GROUP 3
OCT 00025 # PROTECT NORMLIZE AND READACCS
TC POSTJUMP
CADR NORMLIZE # DO NORMLIZE AND ENDOFJOB
EBANK= TEPHEM
REP11 INHINT
CCS PHASE5
TC ENDOFJOB
CCS LIFTTEMP
TCF +4
TCF +3
TCF +2
TCF P11+7
CS TLIFTOFF
EXTEND
BZMF ENDREP11
CCS TIME2 # ** TIME2 MUST BE NON-ZERO AT LIFTOFF **
TCF REP11A -5 # T2,T1 NOT YET ZEROED, GO AND DO IT
EXTEND # T2,T1 ZEROED, SET TLIFTOFF
DCA LIFTTEMP
TCF REP11A-2
ENDREP11 EXTEND
DCA REP11SA
TCF REP11A-1
@ -409,16 +409,16 @@ VHHDOT TC INTPRET
EXIT
TC PHASCHNG
OCT 00035
CAF V06N62 # DISPLAY IN R1 R2 R3
TC BANKCALL # VI HDOT H
CADR REGODSP
ATERTASK CAF PRIO1 # ESTABLISH JOB TO DISPLAY ATT ERRORS
TC FINDVAC # COMES HERE AT L.O. + .33 SEC
EBANK= BODY3
2CADR ATERJOB
CS RCSFLAGS # SET BIT3 FOR
MASK BIT3 # NEEDLER
ADS RCSFLAGS # INITIALIZATION PASS
@ -463,7 +463,7 @@ GETDOWN STQ SETPD
# TSMV = (-SIN(R)*COS(P) -COS(R) -SIN(R)*SIN(P)) = (YDC)
# (-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
# ORIENTATION. THIS EULER SET, OGC, IGC, AND MGC, MAY BE IDENTIFIED
# AS THE DESIRED CDU ANGLES.
@ -516,7 +516,7 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
CA TIME2
EXTEND
BZMF +2
TC NOPOLY # GO TO ATTITUDE HOLD
TC NOPOLY # GO TO ATTITUDE HOLD
CAE POLYNUM
TS L
CAF COEFPOLY # EVALUATE PITCH POLYNOMIAL
@ -536,16 +536,16 @@ ATTDISP CS RPSTART # PITCH/ROLL START TIME
SETLOC P11TWO
BANK # 36 IN COL., 34 IN DISK
COUNT 36/P11
ATTDISP1 COS DCOMP
STODL 14D # -.5*COS(P)
SIN
STODL 10D # .5*SIN(P)
ZEROVECS
STORE 12D # 0
# EVALUATE ROLL = LAUNCHAZ-AZIMUTH-.5+SATRLRT*T
SLOAD DMP
SPOLYARG # TIME1 - RSPSTART, CSECS B-14.
@ -578,7 +578,7 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
10D
STOVL 20D # -.5*SIN(R)*SIN(P)
10D
# FROM TSMV FIND THE HALF UNIT VECTORS XDC,YDC,ZDC = INPUT TO CALCGTA
# Page 544
UNIT
@ -590,11 +590,11 @@ ATTDISPR PUSH COS # CONTINUE COMPUTING TSMV
UNIT
STCALL ZDC # ZDC = .5*UNIT(-COS(R)*COS(P),SIN(R),
CALCGTA # -COS(R)*SIN(P))
# CALL CALCGTA TO COMPUTE DESIRED SM ORIENTATION OGC,IGC, AND MGC
# _ _ _
# FIND DIFFERENCE VECTOR DELTACDU = OGC-CDUX
#
#
# ENTER HERE IF ATTITUDE HOLD
NOPOLYM VLOAD PUSH # OGC IGC
@ -619,7 +619,7 @@ NOPOLYM VLOAD PUSH # OGC IGC
4
GOTO
ATTDISP2
SETLOC P11ONE
BANK
COUNT 34/P11
@ -649,7 +649,7 @@ ATTDISP2 STODL 16D # 16D, .5(DPHI + DTHETA*SIN(CDUZ))
16D
STORE AK # STORE ATTITUDE ERRORS IN AK,AK1,AK2
EXIT
CA SATSW
CCS A # CHK TAKEOVER STATUS
TC SATOUT # POS -- DISPLAY ONLY
@ -713,7 +713,7 @@ TAKEON CAF BIT9 # ENABLE
WOR CHAN12 # TAKEOVER
CA ZERO # INDICATE NEEDLER
TS SATSW # WAS INITIALIZED
TC SATOUT
TC SATOUT
S11.1 VLOAD ABVAL
VN
STOVL VMAGI # VI SCALED 2(7) IN METERS/CSEC
@ -751,7 +751,7 @@ DELSTOR CA BOOSTEMP
TCF DANZIG
RLTST CA MPAC # DETERMINE IF ROLLOUT
EXTEND # IS COMPLETED
MP SATRLRT +1
MP SATRLRT +1
EXTEND
BZMF DANZIG # UNLIKE SIGNS STILL ROLLING
EXTEND # ROLLOUT COMPLETED
@ -772,7 +772,7 @@ RESCALES EXTEND # RESCALE AK S FOR
# SATURN TAKEOVER FUNCTION
# ************************
#
#
# PROGRAM DESCRIPTION
#
# MOD NUMBER 1
@ -842,7 +842,7 @@ RESCALES EXTEND # RESCALE AK S FOR
BANK 43
SETLOC EXTVERBS
BANK
COUNT 23/STTKE
SATSTKON EXTEND
DCA 2REDOSAT
@ -857,7 +857,7 @@ SATSTKON EXTEND
CADR ZEROJET # LEAVE THE T6 CLOCK DISABLED
RELINT
TC GOPIN # EXIT THUS BECAUSE WE CAME VIA V46
SBANK= PINSUPER # Added RSB 2009
EBANK= BODY3
2REDOSAT 2CADR REDOSAT
@ -867,7 +867,7 @@ SATSTKON EXTEND
BANK 32
SETLOC P11FOUR
BANK
REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
EXTEND
QXCH QRUPT
@ -885,13 +885,13 @@ REDOSAT LXCH BANKRUPT # ALSO COMES HERE FOR RESTARTS
CAF 100MST5 # IN 100 MSECS
TS TIME5
TCF RESUME # END OF SATURN STICK INITIALIZATION
# THIS SECTION IS EXECUTED EVERY 100 MSECS.
# Page 550
SATSTICK LXCH BANKRUPT
EXTEND
QXCH QRUPT
CAF 2SATSTCK # SET UP RUPT
TS T5LOC # LO ORDER LOC SET
CAF 100MST5 # 100 MSECS
@ -902,7 +902,7 @@ SATSTICK LXCH BANKRUPT
MASK STIKBITS
TC IBNKCALL # SET RATE INDICES
CADR STICKCHK # FOR PITCH YAW AND ROLL
INDEX RMANNDX # SET SATURN RATES
CA SATRATE
TS AK # ROLL
@ -912,11 +912,11 @@ SATSTICK LXCH BANKRUPT
INDEX YMANNDX
CA SATRATE
TS AK2 # YAW
TC IBNKCALL # FOR SATURN INTERFACE AND FDAI DISPLAY
CADR NEEDLER
CADR NEEDLER
TCF RESUME # END OF SATURN STICK CONTROL
STIKBITS OCT 00077
100MST5 DEC 16374
EBANK= BODY3

198
Comanche055/P20-P25.agc
View File

@ -7,12 +7,12 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 562-534
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
# 2009-05-20 RSB Corrections: P2OS -> P20S, STO -> STQ,
# GOTOPOOH -> GOTOP00H, a duplicated EXTEND
# was fixed, P23.10 -> R23.10,
# was fixed, P23.10 -> R23.10,
# S22B0X44 -> S22BOX44, S22SUBSCL -> 22SUBSCL,
# S22DPP -> S22DSPP, changed some instructions in
# P23.152.
@ -23,13 +23,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -86,7 +86,7 @@
BANK 33
SETLOC P20S
BANK
EBANK= ESTROKER
COUNT* $$/P20
@ -110,7 +110,7 @@ PROG20 TC BANKCALL
TC 2PHSCHNG
OCT 4
OCT 05022
OCT 26000
OCT 26000
TC INTPRET
RTB
LOADTIME
@ -141,7 +141,7 @@ P20.3 CALL
TC FINDVAC
EBANK= MRKBUF2
2CADR R22
TC 2PHSCHNG
OCT 00072
OCT 00111
@ -183,10 +183,10 @@ FIRST3 EQUALS FURST3
BANK 31
SETLOC P20S1
BANK
EBANK= LANDMARK
COUNT* $$/P22
PROG22 TC DOWNFLAG # RESET RNDVZFLG BIT 7 FLAG 0
ADRES RNDVZFLG
TC BANKCALL
@ -269,7 +269,7 @@ V05N7022 VN 00570
V05N7122 VN 00571
SETLOC P20S
BANK
SETLOC P20S1
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
VSR2 # LUNAFLAG AND ERADFLAG SET ABOVE
STORE ALPHAV # SCALE RLS B-29 FOR LAT-LONG
RTB
RTB
LOADTIME # SET PRESENT TIME IN MPAC FOR LAT-LONG
CALL
LAT-LONG
@ -383,7 +383,7 @@ S22ABDE TC INTPRET
22SUBSCL # =0 GET LLA FROM ASTRO, NOT=0 USE RLS
BHIZ GOTO
OBTAINLL # GET LAT/LONG/ALT FROM ASTRO N89
# Page 569
# Page 569
S22LSITE # GET LAT/LONG/ALT FROM RLS
DE-GR-50 TC 2PHSCHNG
OCT 00004
@ -482,7 +482,7 @@ ENDR57 TC DOWNFLAG # RESET V59FLAG
TC NOVAC # THIS JOB CLEARS BIT IN
EBANK= MARKSTAT
2CADR ENDMARK # MARKING IN R57 SO R53 CAN TAKE OVER
TC INTPRET
GOTO
EGRESS
@ -542,9 +542,9 @@ V51NB VN 5100
EBANK= MRKBUF1
SETLOC RENDEZ
BANK
COUNT* $$/R21
R21CSM TC UPFLAG # SET R21MARK
ADRES R21MARK # BIT 14 FLAG 2
R23CSM CA NEGONE
@ -587,7 +587,7 @@ R21C1 CAF V51NB
TC R21END # V34: TERMINATE R21
TCF R21CSMA # PROCEED: END R21
TCF R21C1 # RECYCLE
R21CSMA CA MRKBUF1 # IF -1 NO MARK
AD ONE
EXTEND
@ -653,7 +653,7 @@ V0694 VN 0694
EBANK= GENRET
COUNT* $$/R61 # ROUTINES -- NAVIGATION -- PREF. TR. 9TT=
R61CSM CAF EBANK6 # SWITCH TO EBANK 6
XCH EBANK
TS SAVBNK # SAVE EBANK
@ -677,7 +677,7 @@ R61C1 TC DOWNFLAG # RESET 3-AXIS FLAG
# Page 575
CS ONE # SET R61CNTR NEG. TO INDICATE KALCMANU
TS R61CNTR
TC UPFLAG # SET FLAG FOR PRIORITY DISPLAYS FOR R60
ADRES PDSPFLAG # BIT 12 FLAG 4
TC BANKCALL
@ -701,7 +701,7 @@ DECRM61 TS R61CNTR
BANK 13
SETLOC P20S2
BANK
EBANK= MRKBUF1
# Page 576
# BVECTOR PERFORMS COMPUTATIONS FOR
@ -737,7 +737,7 @@ DECRM61 TS R61CNTR
# L+1 OF CALLING SEQUENCE
COUNT 23/20SUB
BVECTORS STQ
EGRESS
VLOAD UNIT
@ -798,7 +798,7 @@ PI/4.0 2DEC .785398164
# NORMAL EXIT
#
# L+1 OF CALLING SEQUENCE
GETUM STQ SETPD
EGRESS
0
@ -815,13 +815,13 @@ GETUM STQ SETPD
S1 # S1 = MARKDATA(ADR) +2
CALL
SXTNB # SEXT. ANGULAR READINGS TO NAV. BASE COOR.
CALL
CALL
NBSM # TRANSFORM FROM NAV. BASE TO STABLE MEM.
VXM VSL1
VXM VSL1
REFSMMAT
GOTO # MPAC = (UM) LINE OF SIGHT VECTOR
EGRESS # EXIT
# Page 579
# RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
#
@ -835,9 +835,9 @@ GETUM STQ SETPD
BANK 34
SETLOC P20S3
BANK
COUNT 34/R22
R22 CAF PRIO26
TS PHSPRDT2
TC PRIOCHNG
@ -849,7 +849,7 @@ R22 CAF PRIO26
STORE VHFTIME # PRESENT TIME
REND1 CALL
GRP2PC
CALL
CALL
WAITONE
REND1A EXIT
CA MRKBUF2
@ -876,7 +876,7 @@ REND3A TC INTPRET
REND3 CALL
# Page 580
GRP2PC
CALL
CALL
WAITONE
BOFF
VHFRFLAG
@ -1140,7 +1140,7 @@ RENDISP EXIT
TC NOVAC
EBANK= MRKBUF1 # THAN PRESENT JOB
2CADR RENDISP2
RENDISP7 TC INTPRET
STORE MPAC
SLOAD BZE
@ -1282,11 +1282,11 @@ CONVRNGE 2DEC 18.52 B-13 # VHF INPUT RANGE CONV. FROM .01 NM TO M
VHFREAD EXTEND
ROR SUPERBNK # MUST SAVE SBANK BECAUSE OF RUPT
# Page 588
# Page 588
TS BANKRUPT # EXITS VIA TASKOVER BADEND OR GOODEND
CS ZERO
TS RUPTAGN
EXTEND
EXTEND
QXCH QRUPT
CS STATE +2
MASK SKIPVBIT # SKIPVHF FLAG
@ -1312,7 +1312,7 @@ BYPASS TS VHFRANGE # STORE NON ZERO VALUE
TC POSTJUMP
CADR BADEND
BYPASS1 CAF ZERO
TC BYPASS
TC BYPASS
VHFGOOD CAF TWO
TC POSTJUMP
CADR GOODEND
@ -1333,7 +1333,7 @@ SHIFTA BON RVQ
INITIALW AXT,1 SSP
36D
S1
# Page 589
# Page 589
6
VLOAD
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
# 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
# GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
# 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
SETLOC P20S4
BANK
EBANK= CDUXD
COUNT* $/CRS61
CRS61.1 STQ SETPD
Q611
0
RTB
# Page 593
LOADTIME # LOAD CLOCK TIME2,1 INTO MPAC.
STORT STCALL P21TIME # STORE CLOCK TIME FOR SUBR R63
R63 # SUBR TO CALC DCDU (T=PRESENT,PASS1)
TLOAD
THETAD # SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
STORE SAVEDCDU
EXIT
TC STEP2CK
AUTOCK CAF PRIO30
@ -1536,7 +1536,7 @@ AUTOCK CAF PRIO30
EXTEND # AUTO MODE SELECTED (BITS 15-13=011)
BZF DAPCK # YES -- CONTINUE.
TC ASET
DAPCK CS FLAGWRD1 # IS STIKFLAG SET (I.E., IS SOMEONE ON RHC)
MASK STIKBIT
CCS A
@ -1546,10 +1546,10 @@ ASET CAF ZERO
TC INTPRET # EXIT CRS61.1
GOTO
Q611
STEP2CK TC BANKCALL
CADR UPACTOFF
CAF TWO # SET TEMPORARY INDEX DTHETASM = 2
CDULOOP TS DTHETASM
INDEX DTHETASM
@ -1575,7 +1575,7 @@ STKTEST EXIT
CAF BIT3
EXTEND # STIKFLG IS SET
WOR DSALMOUT # TURN ON UPACTY LIGHT
TC ASET # EXIT AND SET R61CNTR
STEP3CK TC INTPRET
SETPD
@ -1594,11 +1594,11 @@ CRS61.2 VLOAD VSU
P21TIME # P21TIME IS TEMP STORE FOR ABSLOS.
X1
PUSH # NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
DLOAD NORM
36D # NORM ABS VALUE OF DV(NUM).
S1
XSU,1 SR1 # X1 = X1(N DENOM)-S1(N NUM).
S1 # SR1 TO AVOID OFLOW ON DOV.
DDV VXSC # ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
@ -1627,7 +1627,7 @@ CRS61.2 VLOAD VSU
DCDU # (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
0 -17D,1 # EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
STORE 14D # HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
CALL # COMPUTES SINES AND COSINES FOR *SMNB*
CDUTRIG
VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
@ -1640,7 +1640,7 @@ CRS61.2 VLOAD VSU
LXA,1 VSL* # RELOAD X1 TO RECOVER NORMALIZ.
Q6111 # (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
0 -14D,1 # OBTAIN REVS SCALED AT 450 DEGREES.
CRS61.2A EXIT
INHINT
CAF ZERO # TRANSFER DESIRED GIMBAL ANGLES
@ -1653,7 +1653,7 @@ CRS61.2A EXIT
TS CDUYD
CA SAVEDCDU +2
TS CDUZD
EXTEND # TRANSFER OMEGA CONTROL (ANG. LOS RATE)
DCA MPAC # FROM V(MPAC) TO V(WBODY)
DXCH WBODY
@ -1663,7 +1663,7 @@ CRS61.2A EXIT
EXTEND
DCA MPAC +5
DXCH WBODY2
EXTEND # TRANSFER CDU INCREMENTS
INDEX FIXLOC # FROM V(VAC14D) TO V(DELCDUX)
DCA 14D
@ -1671,7 +1671,7 @@ CRS61.2A EXIT
EXTEND
INDEX FIXLOC
DCA 16D
# Page 596
# Page 596
DXCH DELCDUY
EXTEND
INDEX FIXLOC
@ -1688,7 +1688,7 @@ MANUEXIT TLOAD # ENTER FROM STEP2. ACDU-DCDU EXCEEDS
SLOAD GOTO # SPECIAL RETURN (MPAC+0 = 1)
LOONE # OCTAL 00001
Q611
R63 STQ DLOAD # SUBR TO CALC DCDUS(T)
Q6111
P21TIME
@ -1741,9 +1741,9 @@ CRSTOR1 VLOAD
PRFUNIT 2DEC .40957602 # 55 DEG TRACK AXIS UNIT VECTOR
2DEC 0.0 # FOR USE WITH VECPOINT
2DEC .28678822
DEGREE10 DEC .05556 # 10 DEG IN REVS STEP2
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
2DEC 0 # X-AXIS ROTATION MATRIX
2DEC 0 # CONVERTS BODY TO CTL
2DEC 0 # AXES. CAME AS QUADROT
2DEC .99200495 B-1 # COS7.25 B1 BUT SCALED B
2DEC -.12619897 B-1 # -SIN7.25 B1
2DEC 0
2DEC .12619897 B-1 # SIN7.25 B1
2DEC .99200495 B-1 # COS7.25 B1
LOONE OCT 00001 # TO SET MPAC = 00001 FOR SPECIAL EXIT.
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
BANK 13
SETLOC P20S6
BANK
EBANK= LANDMARK
COUNT 35/LUORB
S22.1 STQ SSP
S22RTNEX
S1
@ -1853,7 +1853,7 @@ S22SHIFT SXA,1 SETPD
0D
FIG2EXIT CALL
INTSTALL
CALL
CALL
S22FLGS
# FLOWCHART D=0 THEN DIM0FLAG=0, D6O9FLG NOT TESTED
# FLOWCHART D=6 THEN DIM0FLAG=1, D60R9FLG=0
@ -1912,7 +1912,7 @@ DMPINTEG SLOAD PUSH # TEST OFF=I
S22D=9
CALL
GRP2PC
SET
SET
ORBWFLAG
SET SET
DMENFLG # =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
@ -2062,7 +2062,7 @@ S22W78X DLOAD DSQ
PDDL DSQ
W +144D # W72
DAD
BDSU BMN
BDSU BMN
S22UUT # E0
S22SCLW
SQRT
@ -2231,7 +2231,7 @@ CLRW678 STORE W +162D,1
S22WSUBL
STORE W +144D
STORE W +152D
# Page 607
# Page 607
STORE W +160D
CLEAR BOFF # SET LUNAFLAG, TIME FOR LALOTORV
LUNAFLAG # ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
@ -2324,7 +2324,7 @@ S22.981X TC INTPRET
S22EXEX TC INTPRET # WITHOUT CONVERTING W
GOTO
S22RTNEX
S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
CALL
9DWTO6DW
@ -2333,7 +2333,7 @@ S22GTP TC INTPRET # CONVERT W BEFORE TC GOTOP00H
S22F2410 SETPD VLOAD # COMPUTE FORMULA 2.4.10
0D
CSMPOS # RC B-29 EARTH, B-27 MOON
# Page 609
# Page 609
UNIT DOT # UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
UM
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
36D # VXSC RESULT B-29 MOON, B-31 EARTH
STORE S22RHO # RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
VXSC
VXSC
UM
VSL2 VAD # SCALE B-27 MOON, B-29 EARTH AND ADD RC
CSMPOS
@ -2368,7 +2368,7 @@ S22CALRC LXA,1 VLOAD # COMPUTE RC B-29 OR B-27
RVQ
SETLOC P22S
BANK
S2231X13 STORE S221X3 # MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
SSP AXT,2 # S22UMRL - S22UMRL+17D
S2
@ -2384,7 +2384,7 @@ S2231NXT VLOAD VXSC*
DEC -6
S2231NXT
RVQ
# Page 610
# Page 610
GETTF LXC,1 DLOAD* # SET MPAC= TF
S22LOC
0,1
@ -2397,7 +2397,7 @@ S22FLGS SET SET # INTEGRATION FLAGS
STATEFLG
CLEAR RVQ
INTYPFLG
# SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
# PRIOR TO DISPLAY.
@ -2421,7 +2421,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
RVQ
SETLOC P20S6
BANK
9DWTO6DW STQ SETPD
9DWXX
0D
@ -2486,7 +2486,7 @@ LLASRDA DLOAD # ALT, LANDALT METERS B-29
6
CLEARW54 STORE W +108D,1
TIX,1
# Page 612
# Page 612
CLEARW54
9DWI=JA LXA,1 SXA,1 # I=J
9DWJ
@ -2537,7 +2537,7 @@ TST2I=0 SLOAD BHIZ # TEST I=0
2
SXA,1 LXC,1
9DWP
# Page 613
# Page 613
9DWI
XSU,1 BOV # -(I+N)
9DWN
@ -2588,7 +2588,7 @@ ROWDOT SSP BOV
9DWJ
DLOAD PUSH
HI6ZEROS
# Page 614
# Page 614
ROWDOT1 DLOAD* DMPR*
W,1
W,2
@ -2669,7 +2669,7 @@ S22UOFF = LEMPOS # 6 U SUB OFF
# 5. CURRENT TIME IS STORED AND R63COMP IS CALLED
#
# R63COMP JOB:
#
#
# UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
#
# CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM CSM TO LM.
@ -2703,7 +2703,7 @@ DP1MIN 2DEC 6000
SETLOC P20S4
BANK
COUNT* $$/R63
V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
CADR R02BOTH # KNOWN. ALARMS IF NOT.
CAF THREE # ALLOW ASTRONAUT TO SELECT DESIRED
@ -2742,11 +2742,11 @@ V89RECL TC INTPRET
TC BANKCALL # PERFORMS CSM MANEUVER TO ALIGN SELECTED
CADR R60CSM # SPACECRAFT AXIS TO LOS.
TCF ENDEXT
SETPAF TC UPFLAG # SET PREFERRED ATT FLAG FOR R63COMP
ADRES RNGSCFLG # TO DO PREF AXIS. SET BIT 10 FLAG 5.
TC V89RECL
VB04N06 VN 0406
VB06N18 VN 0618
@ -2757,7 +2757,7 @@ R63COMP EQUALS R63
# MOD NO:
# 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.
#
# CALLING SEQUENCE: ASTRONAUT OPERATED
@ -2775,7 +2775,7 @@ R63COMP EQUALS R63
# 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.
# 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.
#
# OUTPUT: UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
@ -2792,7 +2792,7 @@ R63COMP EQUALS R63
EBANK= W
P23 TC DOWNFLAG
ADRES RNDVZFLG
TC 2PHSCHNG
OCT 00004 # LEAVE GROUP 4
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 UPFLAG
ADRES LUNAFLAG
TCF +3
TCF +3
P23.16 TC DOWNFLAG
ADRES LUNAFLAG
CA STARCODE # IS STARCODE GREATER THAN OR
@ -2865,8 +2865,8 @@ P23.16 TC DOWNFLAG
EXTEND
BZMF +2
TC R23.10
# Page 621
# Page 621
TC INTPRET
P23.17 SLOAD BZE
STARCODE
@ -2917,7 +2917,7 @@ P23.31 BON EXIT
P23.55 TC INTPRET
GOTO
P23.56
# Page 622
# Page 622
# VERB 94 BEGINS HERE
V94ENTER TC INTPRET
@ -2996,7 +2996,7 @@ P23.85 CLEAR CALL
# WE BEGIN CALCULATIONS HERE
# POINTAXIS SUBROUTINE
POINTAXS STQ
POINTAXS STQ
POINTEX
R23.05 BON DLOAD
ORBWFLAG
@ -3019,10 +3019,10 @@ R23.2 SET CALL
TC INTPRET
CALL
RECT.1 # PICKUP CSM STATE VECTOR FROM PERM
BOFF
BOFF
ZMEASURE # IN SPHERE OF INFLUENCE OF PRIMARY BODY
R23.3
# Page 624
# Page 624
DLOAD CALL
MARKTIME
LUNPOS
@ -3030,7 +3030,7 @@ R23.2 SET CALL
CMOONFLG
+1
VAD
RZC
RZC
STORE RZC
R23.3 SLOAD BHIZ
LANDMARK # IF LANDMARK = 0, USE HORIZ SUBR
@ -3202,7 +3202,7 @@ HORIZ.1 VLOAD MXV
MPAC
STODL 30D
0
# Page 628
# Page 628
STODL 34D
6 # YH
CALL
@ -3245,7 +3245,7 @@ HORIZ.1 VLOAD MXV
28D # SQRT(A-1)/A
DMP SL1
6 # YH
PDDL
PDDL
2 # AH
STODL 34D
0
@ -3268,7 +3268,7 @@ HORIZ.1 VLOAD MXV
DLOAD DSU
20D # XH/A
24D # ALPHA
PDDL DAD
PDDL DAD
22D # YH/A
26D # BETA
PDDL PUSH
@ -3375,9 +3375,9 @@ SPSIX OCT 00006
JCAXIS 2DEC .2688190620 # 1/2(SIN 32.523 DEG) TRACK AXIS
2DEC 0
2DEC .4215878460 # 1/2(COS 32.523 DEG)
R60ADRS CADR R60CALL +3
NEG37 DEC -37
BITS7-9 OCT 700

92
Comanche055/P30-P37.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 635-648
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
# 2009-05-20 RSB Corrected BDV -> BOV.
#
@ -18,32 +18,32 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
# Page 635
BANK 32
SETLOC P30S1
BANK
EBANK= +MGA
COUNT 35/P34
DISPMGA STQ EXIT # USED IN P30
RGEXIT
TC COMPTGO
DISP45 CAF V16N45
TC BANKCALL
CADR GOFLASHR
@ -57,15 +57,15 @@ END45 TC INTPRET
CLEAR GOTO
TIMRFLAG
RGEXIT
COMPTGO EXTEND # USED TO COMPUTE TTOGO
QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE **
TC UPFLAG # SET TIMRFLAG
ADRES TIMRFLAG # BIT 11 FLAG 7
CAF ZERO
TS NVWORD1
CAF ONE
TC WAITLIST
EBANK= TIG
@ -75,7 +75,7 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
OCT 40036 # 6.3SPOT FOR CLOKTASK
OCT 05024 # GROUP 4 CONTINUES HERE
OCT 13000
TC PHSPRDT6
# Page 636
# PROGRAM DESCRIPTION P30 DATE 3-6-67
@ -115,13 +115,13 @@ COMPTGO EXTEND # USED TO COMPUTE TTOGO
# X
COUNT 35/P30
P30 TC P30/P31
TC CNTNUP30
TC DOWNFLAG # RESET UPDATFLG
ADRES UPDATFLG # BIT 7 FLAG 1
TC INTPRET
CALL
CALL
S30.1
EXIT
TC PARAM30
@ -129,7 +129,7 @@ P30 TC P30/P31
# Page 637
ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
TCF GOTOP00H
P31 TC P30/P31
TC DOWNFLAG
ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
@ -144,7 +144,7 @@ P31 TC P30/P31
TC DOWNFLAG
ADRES XDELVFLG # BIT 8 FLAG 2.
TCF GOTOP00H
P30/P31 XCH Q
TS P30/31RT
TC UPFLAG
@ -160,7 +160,7 @@ P30/P31 XCH Q
TC PHASCHNG
OCT 00014
TC ENDOFJOB
CNTNUP30 XCH Q
TS P30/RET
CAF V06N81
@ -200,7 +200,7 @@ FLASHMGA CALL
MARSDP OCT 00000 # (00000) (16440) = (+00001)
OCT 35100
# ( .01 ) DEGREES IN THE LOW ORDER REGISTER
V06N33 VN 0633
V06N42 VN 0642
V16N35 VN 1635
@ -251,15 +251,15 @@ V06N45 VN 0645
SETLOC P30S1A
BANK
COUNT 35/S30S
S30.1 STQ DLOAD
QTEMP
TIG # TIME IGNITION SCALED AT 2(+28)CS
STCALL TDEC1
THISPREC # ENCKE ROUTINE FOR
THISPREC # ENCKE ROUTINE FOR
VLOAD SXA,2
VATT
RTX2
@ -282,19 +282,19 @@ S30.1 STQ DLOAD
STOVL VGDISP # MAG DELV
RTIG
PDVL VAD
DELVSIN
DELVSIN
VTIG
CALL
PERIAPO1
CALL
SHIFTR1
CALL
SHIFTR1
CALL
MAXCHK
STODL HPER # PERIGEE ALT B+29
4D
CALL
SHIFTR1
CALL
SHIFTR1
CALL
MAXCHK
STCALL HAPO # APOGEE ALT B+29
QTEMP
@ -338,7 +338,7 @@ S30.1 STQ DLOAD
S31.1 STQ DLOAD
QTEMP
TIG
STCALL TDEC1
STCALL TDEC1
AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
VLOAD PDVL # DELUEET3
RTIG
@ -354,7 +354,7 @@ S31.1 STQ DLOAD
CALL
SHIFTR1
CALL
MAXCHK
MAXCHK
STOVL HAPO # B29
# Page 642
DELVEET3
@ -405,7 +405,7 @@ S31.1 STQ DLOAD
SETLOC DELRSPL1
BANK
COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
DELRSPL STORE 8D
BPL DSU
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
STCALL 8D
GETARG # GO SET RSP-RREC =0
AUGEKUGL VLOAD
X1CON -2
STODL X1 -2
@ -521,7 +521,7 @@ TENT DMP RVQ
TGR26 DLOAD GOTO
TGR26CON
TENT
MAXPHI DLOAD PDDL
MAXPHIC
GOTO
@ -531,31 +531,31 @@ MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
# Page 646
COUNT* $$/P30
# BELOW
# **** TABLE IS INDEXED. KEEP IN ORDER ***
2DEC 7.07304526 E-4 # 5500
2DEC 3.08641975 E-4 # 2400
2DEC 3.08641975 E-4 # 2400
2DEC -8.8888888 E-3 # -3.2
2DEC 2.7777777 E-3 # 1
CK1K2 2DEC 6.6666666 E-3 # 2.4
2DEC 0 # 0
2DEC* -1.86909989 E-5 B7* # -.443
2DEC 0
2DEC* 1.11639691 E-3 B7* # .001225
2DEC* 9.56911636 E-4 B7* # .00105
YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
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
2DEC 85.344 B-7
V(32K) 2DEC 97.536 B-7
V(4K) 2DEC 12.192 B-7
@ -585,7 +585,7 @@ V(26K) 2DEC 79.248 B-7 # 26000
X1CON DEC 10
DEC 8
DEC 6
# **** TABLE IS INDEXED. KEEP IN ORDER ***
# ABOVE

72
Comanche055/P32-P33_P72-P73.agc
View File

@ -8,14 +8,14 @@
# Website: www.ibiblio.org/apollo.
# Pages: 649-683
# 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.
# 2009-05-20 RSB Corrected CSI/COM3 -> CSI/CDH3,
# CSI/CDHI -> CSI/CDH1, CDHTAB -> CDHTAG,
# changed a SETLOC from CSI/CDH to CSI/CDH1,
# a SETLOC CSI/CDH1 to CSIPROG.
# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in
# P32/P72D. DP1/4TH changed to DP1/4 in
# 2009-05-21 RSB Changed a P32/P72D to P32/P72E in
# P32/P72D. DP1/4TH changed to DP1/4 in
# CDHMVR.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -450,7 +450,7 @@ P32/P72F STORE T2TOT3
# VN1645
COUNT 35/P3373
P33 TC AVFLAGA
TC P33/P73A
P73 TC AVFLAGP
@ -497,7 +497,7 @@ P33/P73B CALL
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
# Page 659
# Page 659
TC +2
TC P33/P73A
TC INTPRET
@ -521,7 +521,7 @@ P33/P73D DLOAD DAD
P33/P73E
SETLOC CSI/CDH1
BANK
P33/P73E DSU BPL
60MIN
P33/P73E
@ -611,7 +611,7 @@ V06N50 VN 0650
BANK
EBANK= SUBEXIT
COUNT 34/CSI
60MIN 2DEC 360000
ALARM/TB OCT 00600 # NO 1
@ -710,10 +710,10 @@ CSI/B1 DLOAD DAD # IF LOOPCT = 16
BPL GOTO
SCNDSOL
CSI/B2
SETLOC CSIPROG2
BANK
CSI/B2 SETPD
0D
DLOAD ABS
@ -737,17 +737,17 @@ CSI/B22 SET DLOAD
DELVCSI
STCALL DELVCSI
CSI/B23
SETLOC CSIPROG3
BANK
CSI/B23 VLOAD PUSH
RACT1
UNIT PDVL
UP1
VXV UNIT # UNIT (URP1 X UVP1 X URA1) = UH1
VXSC VSL1
# Page 666
# Page 666
DELVCSI
STORE DELVEET1
VAD BOV
@ -798,7 +798,7 @@ CSI/B23D STCALL VACT4
SL2 DSU
1RTEB2 # 1.B.2
STODL 14D
# Page 667
# Page 667
RTSR1/MU
SR1 DDV # (1/ROOTMU)/R1 B-16-B29 = B-45 PL02D
PDDL DMP
@ -837,19 +837,19 @@ CSI/B3 PDVL DOT
SETGO
RVSW
CSINEXT
SN359+ 2DEC -.000086601
CS359+ 2DEC +.499999992
SETLOC CSIPROG4
BANK
BANK
CSINEXT STCALL RVEC
TIMETHET
PDDL BPL
RDOTV
# Page 668
# Page 668
NTP/2
DLOAD DSU
HAFPA1
@ -887,10 +887,10 @@ NTP/2 DLOAD DMP
RPASS1
GOTO
CSINEXT1
SETLOC CSIPROG5
BANK
CSINEXT1 CALL
INTINT2C
STOVL RPASS2
@ -900,7 +900,7 @@ CSINEXT1 CALL
VLOAD SETPD
RACT2
0D
# Page 669
# Page 669
PDVL CALL
VACT3
PERIAPO1
@ -935,10 +935,10 @@ CSINEXT1 CALL
VXSC STADR # (COSLOS)(UH3) B2 PL08D
STCALL 18D # PLUS
CSINEXT2
SETLOC CSIPROG6
BANK
CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
VAD VSL1
18D # B1
@ -951,7 +951,7 @@ CSINEXT2 DLOAD VXSC # (SINLOS)(URA3) = U B2 PL00D
RACT3
RACT3
TLOAD DCOMP # RA3 . RA3
# Page 670
# Page 670
MPAC
PDVL DOT # RP3 . RP3 B58 PL14D
RPASS3
@ -988,10 +988,10 @@ K10RK2 SQRT PUSH # TEMP3 = TEMP2**.5 B29 PL10D
12D
STCALL 10D # K EQUALS K1
K2.
SETLOC CSIPROG7
BANK
K2. DLOAD
10D
VXSC VSL1
@ -1002,7 +1002,7 @@ K2. DLOAD
PDVL UNIT
VPASS3 # PL12D
VXV PDVL # UVP3 X URP3 PL18D
# Page 671
# Page 671
06D
06D
VXV DOT
@ -1050,11 +1050,11 @@ FRSTPAS DLOAD
DELVCSI
STCALL DVPREV
CSINEXT3
SETLOC CSIPROG8
BANK
# Page 672
# Page 672
CSINEXT3 DSU CLEAR
DELDV
S32.1F2
@ -1116,10 +1116,10 @@ CSI/SOL DLOAD AXT,2
LXA,1 GOTO
RTX1
CSINEXT4
SETLOC CSIPROG9
BANK
CSINEXT4 DSU* BMN
PMINE -2,1
SCNDSOL
@ -1156,7 +1156,7 @@ SCNDSOL BON BOFF
ZEROVECS
CLEAR SET
S32.1F1
# Page 674
# Page 674
S32.1F2
CLEAR CLEAR
S32.1F3A
@ -1333,7 +1333,7 @@ CDHMVR STQ VLOAD
PDVL ABVAL # 0D = V SUB PV
SL* PDVL
0,2
# Page 681
# Page 681
RACT2
ABVAL PDDL # 2D = LENGTH OF R SUB A
DSU
@ -1384,7 +1384,7 @@ CDHMVR STQ VLOAD
08D
VAD VSL1
STADR
# Page 682
# Page 682
STORE VACT3
VSU
VACT2

44
Comanche055/P34-35_P74-75.agc
View File

@ -11,11 +11,11 @@
# 2009-05-23 RSB In DISPLAYE, corrected a CADR GOFLASHR
# to CADR GOFLASH.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -179,7 +179,7 @@
BANK
EBANK= SUBEXIT
COUNT 35/P3474
P34 TC AVFLAGA
TC P34/P74A
P74 TC AVFLAGP
@ -657,7 +657,7 @@ S34/35.1 VLOAD VSU
# ADVANCE PASSIVE VEH TO RENDEZVOUS TIME AND GET REQ VEL FROM LAMBERT
SETLOC CSI/CDH
BANK
S34/35.2 STQ VLOAD
SUBEXIT
VPASS3
@ -833,7 +833,7 @@ S34/35.5 STQ BON
FLAGON VLOAD
DELVLVC
STORE DVLOS # SAVE DELTA V BEFORE DISPLAY
EXIT
EXIT
CAF V06N81
TC VNP00H
TC INTPRET
@ -944,7 +944,7 @@ DISPLAYE EXTEND
TCF GOTOP00H
TC NORMEX
TCF -5
# Page 484
# ***** P3XORP7X *****
@ -971,7 +971,7 @@ VNP00H EXTEND
CAF VNBANK # ***** THIS ROUTINE MUST REMAIN IN
XCH FBANK # FIXED-FIXED *****
TS TBASE5 # * WATCH OUT *
CA VERBNOUN
TCR BANKCALL
CADR GOFLASH
@ -994,7 +994,7 @@ V06N81 VN 0681
V16N45 VN 1645
SETLOC CSI/CDH
BANK
TWOPI 2DEC 6.283185307 B-4
MAX250 2DEC 25 E3 B-28 # RSB 2004 added the B-28. OH 2009 leave?
THIRD 2DEC .333333333
@ -1325,12 +1325,12 @@ INITVELX SETPD VLOAD
HALFREV 2DEC 1 B-1
MIDGIM BON BOFF
MIDGIM BON BOFF
AVFLAG
MIDGIM1
COMPUTER
GET.LVC
# COMPUTE +MGA IF AVFLAG AND COMPUTER HAVE OPPOSITE VALUES.
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
CLR RVQ # CLEAR MGLVFLAG TO INDICATE +MGA CALC
MGLVFLAG # AND EXIT
MIDGIM1 BOFF
COMPUTER
GET+MGA
# COMPUTE DELVLVC IF AVFLAG AND COMPUTER HAVE SAME VALUES
GET.LVC VLOAD UNIT # (PL 6D) R (+29) IN MPAC UNITZE UR
RINIT
VCOMP # U(-R)
@ -1587,7 +1587,7 @@ SHIFTR1 LXA,2 SL*
BANK
# Page 502
EBANK= RPASS36
SBANK= R36A
COUNT* $$/R36
@ -1603,7 +1603,7 @@ R36 CAF TWO
TC -5 # R2 LOADED VIA DSKY
TC POSTJUMP
CADR R36A
OPTION36 VN 0412
SETLOC R36LM
@ -1627,10 +1627,10 @@ ASTROTIM DXCH MPAC # A-REG NON-ZERO, TIME = ASTRO INPUT TIME
RTB GOTO
DPMODE
R36INT
SETLOC R36LM1
BANK
R36INT STORE TDEC1
SLOAD SR1
OPTIONY
@ -1664,7 +1664,7 @@ R36PROG4 CALL
R36PROG5 VLOAD PDVL # _
VATT # VELOCITY VECTOR V 00D
RATT # A
PDDL
PDDL
TAT # SAVE TIME IN LOCATION 30D FOR REDISPLAY
STOVL 30D # _
PUSH PUSH # POSITION VECTOR R IN 06D AND 12D
@ -1685,7 +1685,7 @@ R36PROG5 VLOAD PDVL # _
VSL2 UNIT # RA A RA A
UNIT GOTO
R36B
SETLOC R36CM1
# Page 504
BANK
@ -1710,10 +1710,10 @@ R36B STOVL 00D # UNIT HORIZONTAL IN FORWARD DIR. 00D
RTHETA
STCALL RTHETA
R36TAG2
SETLOC R36LM
BANK
R36TAG2 DLOAD RTB
30D
SGNAGREE

70
Comanche055/P37_P70.agc
View File

@ -11,7 +11,7 @@
# of the same name, using Comanche055 page
# images.
# 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.
#
# This source code has been transcribed or otherwise adapted from digitized
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -35,10 +35,10 @@
BANK 31
SETLOC RTE1
BANK
EBANK= RTEDVD
COUNT 31/P37
# PROGRAM DESCRIPTION: P37, RETURN TO EARTH
#
# DESCRIPTION
@ -219,7 +219,7 @@ RTE369 VLOAD ABVAL
2DEC -4.8760771 E-2 B4
2DEC 4.5419476 E-4 B11
2DEC -1.4317675 E-6 B18
TC INTPRET
DAD
RTED1
@ -312,7 +312,7 @@ RTEALRM CALL
P370ALRM
EXIT
TCF P37 # RECYCLE AFTER ALARM DISPLAY
# RETURN TO EARTH DISPLAY SUBROUTINE
RTEVN STQ CALL
@ -338,7 +338,7 @@ RTEVN STQ CALL
TCR INTPRET
GOTO
VNSTORE
# PRECISION DISPLAY, TARGETING COMPUTATION AND RTE END PROCESSING
P37G CALL
@ -453,7 +453,7 @@ P37W CLEAR CLEAR
VN1645
GOTO
P37W
# SUBROUTINE TO GO TO GOFLASHR AND BLANK R1
P37GFRB1 EXTEND
@ -464,7 +464,7 @@ P37GFRB1 EXTEND
TCF ENDOFJOB
TC SPRTEX # RECYCLE
TCF P37PROC # PROCEED
# SUBROUTINE TO GO TO GOFLASHR
P370GOFR EXTEND
@ -479,7 +479,7 @@ P370GOFR EXTEND
TCF 0 +4
INDEX RTENCKEX # RECYCLE
TCF 0 +3
# SUBROUTINE TO GO TO GOFLASH
# Page 899
@ -502,7 +502,7 @@ V6N81RTE VN 0681
SETLOC RTE
BANK
COUNT 32/RTE
# Page 900
# ALARM DISPLAY SUBROUTINE
@ -595,7 +595,7 @@ RTEDISP STQ VLOAD # DISPLAY
36D
STODL VPRED # V(T2)
T2
DSU
DSU
SPRTETIG
STOVL T3TOT4 # T21
R(T2)/
@ -877,10 +877,10 @@ PREC125 CALL
X(T2)
ABS DSU
EPC4RTE
BOV BMN
BOV BMN
PREC130
PREC175
# DESIRED REENTRY ANGLE NOT ACHIEVED
# Page 909
@ -890,7 +890,7 @@ PREC130 DLOAD BMN
PREC132 SLOAD GOTO # TOO MANY ITERATIONS
OCT605 # EXIT WITH ALARM
PRECX
# DETERMINE RADIUS AT WHICH THE DESIRED REENTRY ANGLE WILL BE ACHIEVED
PREC140 DLOAD BZE
@ -987,7 +987,7 @@ PREC170 DLOAD DAD
0 -3,1
# Page 911
PUSH BMN # BETA13=(DT21)/(DT21PR) R3 PL04D
PREC172
PREC172
DLOAD PDDL # BETA14=1 B0 PL04D
2RTEB1
GOTO
@ -999,7 +999,7 @@ PREC173 DDV DSU
1RTEB3
BMN DLOAD
PREC174
DMP
DMP
DT21PR
STORE 00D # DT21=(BETA14)DT21PR B28
PREC174 DLOAD PUSH
@ -1015,7 +1015,7 @@ PREC175 DLOAD DSU
DSU BMN
EPC7RTE
PREC220
# DESIRED RADIUS HAS NOT BEEN ACHIEVED
DLOAD BZE
@ -1077,7 +1077,7 @@ PREC210 DLOAD # PREPARE FOR NEXT ITERATION
BHIZ GOTO
PREC120
PRECX
# DESIRED RADIUS ACHIEVED
SETLOC RTE2
@ -1106,7 +1106,7 @@ PREC225 DLOAD
ZERORTE
PRECX GOTO
SPRTEX
# Page 914
# INTEGRATION CALLING SUBROUTINE
#
@ -1179,7 +1179,7 @@ RTENCK1 STQ CALL
INTYPFLG
GOTO
RTENCK3B
RTENCK2 STQ CALL
RTENCKEX
INTSTALL
@ -1194,7 +1194,7 @@ RTENCK2 STQ CALL
DAD
GOTO
RTENCK3D
RTENCK3 STQ CALL
RTENCKEX
INTSTALL
@ -1367,7 +1367,7 @@ V2T101 SETPD CLEAR
V2T102
GOTO
V2T110
# PROCEED HERE IF NOT PRECISION COMPUTATION
V2T102 DLOAD
@ -1462,7 +1462,7 @@ V2T150 CALL # GOTO X(T1)-DV ITERATOR
DLOAD BZE # EXIT IF MINIMUM FUEL MODE
RTEDVD
V2T1X
# CONTINUE IF TIME CRITICAL MODE
DSU BMN
@ -1475,7 +1475,7 @@ V2T155 DLOAD BMN
V2T160
GOTO
V2T185
# CONIC TRAJECTORY COMPUTATION
V2T160 DLOAD BZE
@ -1519,7 +1519,7 @@ V2T179 STCALL 16D # DX(T1)
DLOAD BMN
NN1A
V2T300
# PREVENT A LARGE CHANGE IN INDEPENDENT VARIABLE DURING AN ITERATION FOR A
# PRECISION TRAJECTORY
@ -1557,7 +1557,7 @@ V2T300 DLOAD
ZERORTE
V2T1X GOTO
33D
# Page 924
# X(T1)-DV ITERATOR SUBROUTINE
#
@ -1679,7 +1679,7 @@ GAMDV32 DLOAD DCOMP
GAMDV33 SETPD GOTO
18D # PL18D
GAMDV50
# TIME CRITICAL MODE
GAMDV35 DLOAD DSU
@ -1718,7 +1718,7 @@ GAMDV47 DLOAD SIGN
12D
16D
STORE 16D # DX(T1)MAX(SIGNDX(T1))=DX(T1)
# CHECK TO KEEP INDEPENDENT VARIABLE IN BOUNDS
GAMDV50 DLOAD DMP
@ -1756,7 +1756,7 @@ GAMDV65 DLOAD ABS
GAMDV25
GAMDVX GOTO
31D
# Page 928
# DV CALCULATION SUBROUTINE
#
@ -1879,18 +1879,18 @@ XT1LIM2 DLOAD # BETA10=POSMAX IF OVERFLOW
2RTEB1
XT1LIM3 SQRT GOTO # X(T1)=SQRT(BETA10)
XT1LIMX
XT1LIM5 DLOAD
XT1LIM5 DLOAD
ZERORTE
XT1LIMX GOTO
20D
# Page 931
# CONSTANTS FOR THE P37 AND P70 PROGRAMS AND SUBROUTINES
BANK 36
SETLOC RTECON1
BANK
1RTEB1 2DEC 1. B-1
1RTEB2 2DEC 1. B-2
1RTEB3 2DEC 1. B-3
@ -1900,7 +1900,7 @@ XT1LIMX GOTO
1RTEB13 2DEC 1. B-13
1RTEB17 2DEC 1. B-17
1RTEB25 2DEC 1. B-25
# * * B25 AND B28 MUST BE CONSECUTIVE * *
# * * B25 AND B28 MUST BE CONSECUTIVE * *
1RTEB28 2DEC 1. B-28
ZERORTE 2DEC 0
M144RTE 2DEC -144. B-28
@ -1938,7 +1938,7 @@ EPC10RTE 2DEC .0001 B-7
BANK 35
SETLOC RTECON1
BANK
C4RTE 2DEC -6.986643 E7 B-30
K1RTE 2DEC 7. E6 B-29
K2RTE 2DEC 6495000. B-29

510
Comanche055/P40-P47.agc
View File

File diff suppressed because it is too large Load Diff

140
Comanche055/P51-P53.agc
View File

@ -9,7 +9,7 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# 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,
# V853 -> VB53, R56A -> R56A1 (some places
# only), added missing R56A1 label, added a
@ -19,11 +19,11 @@
# TC PHASCHNG. In R53C, a CADR GOFLASHR was
# corrected to CADR GOFLASH.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -137,7 +137,7 @@ P54 = PROG52
SBANK= LOWSUPER
EBANK= SAC
COUNT 15/P52
PROG52 TC PHASCHNG
OCT 00254
TC DOWNFLAG
@ -159,7 +159,7 @@ P52B CAF BIT1
TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
CADR GOPERF4R
TC GOTOP00H
TC +5
TC +5
TC P52B # NEW CODE -- NEW ORIENTATION CODE INPUT
TC PHASCHNG
OCT 00014
@ -186,7 +186,7 @@ P52T EXTEND
EXTEND
BZF +2
TCF +4
EXTEND
DCA TIME2
DXCH DSPTEM1
@ -252,7 +252,7 @@ P52I TC ALARM
CADR GOFLASH
TC GOTOP00H
TC P52F # PROCEED: DO FINE ALIGN-R51
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
TC P52C # RECYCLE: VEHICLE HAS BEEN MANEUVERED
V06N34 VN 0634
VB06N22 VN 00622
COARSTYP CAF OCT13
@ -311,7 +311,7 @@ V16N20 VN 1620
ALRM15 EQUALS OCT15
SETLOC P50S2
BANK
V06N89* VN 0689
V06N89* VN 0689
# NAME -- P52LS
#
@ -353,21 +353,21 @@ P52LS STQ SET
STODL 0D
TSIGHT
STCALL 6D
# Page 743
# Page 743
RP-TO-R
VSR2
STODL ALPHAV
STODL ALPHAV
TSIGHT
CALL
LAT-LONG
CALL
LLASRD
EXIT
LSDISP CAF V06N89*
LSDISP CAF V06N89*
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC +2
TC +2
TC LSDISP
TC INTPRET
CALL
@ -393,7 +393,7 @@ LSDISP CAF V06N89*
QMAJ
SETLOC P50S1
BANK
# 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.
@ -418,7 +418,7 @@ LSDISP CAF V06N89*
# 6. SR52.1
COUNT 15/R52
R52 STQ CLEAR
SAVQR52
ADVTRK
@ -456,7 +456,7 @@ R52JA CAF BIT10 # IS THIS A LEM
MASK STATE
CCS A
TCF R52E # YES
# Page 745
# Page 745
CAF V06N92 # NO
TC BANKCALL
CADR GODSPR
@ -492,19 +492,19 @@ R52HA TC BANKCALL
MASK BIT5
EXTEND # TRACKFLG
BZF R52Q
CS STATE +1
MASK BIT7 # UPDATFLG
CCS A
TCF R52SYNC
R52I CA STATE +5
MASK BIT10
CCS A
TC R52D # PRFTRKAT = 1
R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
TCF R52F +1
R52J TC DOWNFLAG # CLEAR TRUNFLAG
ADRES TRUNFLAG # BIT 4 FLAG 0
# Page 746
@ -520,22 +520,22 @@ R52M CAF BIT6 # IS R53FLAG SET
TC FINDVAC
EBANK= SAC
2CADR R53JOB
RELINT
TCF R52F
R53JOB TC INTPRET
CALL
R53
ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
TC ENDOFJOB
TC ENDOFJOB
V06N92 VN 00692
V06N89A VN 0689
SHAXIS 2DEC .5376381241 B-1
2DEC 0
2DEC .8431766920 B-1
R52L CAF BIT10 # IS THIS A LEM
MASK STATE +1
CCS A
@ -547,7 +547,7 @@ R52L CAF BIT10 # IS THIS A LEM
TCF R52F # PROCEED
TCF R52F # NO PROVISION FOR NEW DATA
TCF ENDOFJOB
OCT404 OCT 404
1.8SEC DEC 180
@ -560,12 +560,12 @@ TERM52 TC CLEARMRK
CAF ZERO
TS OPTCADR
TC BANKCALL # CLEAR OUT EXTENDED VERBS
CADR KLEENEX
TC GOTOP00H # NO GO TO P00
ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
SAVQR52
ADVTRK
@ -632,7 +632,7 @@ ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
# Page 749
SETLOC P50S1
BANK
COUNT* $$/S50
LOCSAM = S50
@ -721,9 +721,9 @@ RSUBE 2DEC 6378166 B-29
ECLIPOL 2DEC 0 # *
2DEC -.00007896 B-1 # *
2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
TSIGHT1 2DEC 24000
CEARTH = 14D
@ -775,7 +775,7 @@ CSSUN 2DEC .24148 # (COS 15)/4
# STARAD -- STAR +5
COUNT 14/PICAP
SETLOC P50S1
BANK
PICAPAR TC MAKECADR
@ -834,7 +834,7 @@ PIC4 VLOAD* CALL
BMN DAD
PIC3
CSS6640 # SEPARATION MORE THAN 40 DEG.
BPL
BPL
PIC3
# Page 754
VLOAD* DOT
@ -920,7 +920,7 @@ PICBXT CA QMIN
# SUBROUTINES -- R52, R54, R55 (SXTNB, NBSM, AXISGEN)
COUNT 14/R51
R51 EXIT
CAF BIT1
TS STARIND
@ -1014,10 +1014,10 @@ R51K EXIT
TC +3
TC BANKCALL
CADR P52C
# Page 758
# Page 758
TC INTPRET
GOTO
ENDP50S
ENDP50S
R51.4 TC INTPRET
MXV UNIT
REFSMMAT
@ -1048,7 +1048,7 @@ V01N70 VN 0170
SETLOC P50S
BANK
COUNT* $$/R55
COUNT* $$/R55
R55 STQ
QMIN
CALL
@ -1135,7 +1135,7 @@ CHKSB VLOAD* DOT* # CAL. ANGLE THETA
CHKSD DLOAD DSU
THETA # COMPUTE POS DIFF
18D
ABS RTB
ABS RTB
SGNAGREE
STORE NORMTEM1
SET EXIT
@ -1143,10 +1143,10 @@ CHKSD DLOAD DSU
CAF ZERO
TC BANKCALL
CADR CLEANDSP
CAF VB6N5
# Page 761
TC BANKCALL
TC BANKCALL
CADR GOFLASH
TCF GOTOP00H
TC CHKSDA # PROCEED
@ -1160,7 +1160,7 @@ CHKSDA TC INTPRET
VB6N5 VN 605
# NAME -- CAL53A
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
# FUNCTION -- COARSE ALIGN THE IMU, IF NECESSARY
# CALLING SEQUENCE -- CALL CAL53A
# INPUT -- PRESENT GIMBAL ANGLES -- CDUX, CDUY, CDUZ
# DESIRED GIMBAL ANGLES -- THETAD,+1,+2
@ -1168,7 +1168,7 @@ VB6N5 VN 605
# SUBROUTINES -- 1.IMUCOARS, 2.IMUSTALL, 3CURTAINS
COUNT 14/R50
CAL53A CALL
S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
RTB SSP
@ -1197,7 +1197,7 @@ COARFINE EXIT
CADR IMUCOARS # PERFORM COARSE ALIGNMENT
TC BANKCALL
CADR IMUSTALL # REQUEST MODE SWITCH
# Page 762
# Page 762
TC CURTAINS
TC BANKCALL
CADR IMUFIN20
@ -1232,7 +1232,7 @@ MATMOVE VLOAD* # TRANSFER MATRIX
STORE 12D,2
RVQ
DEGREE1 DEC 46
DEG359 DEC 16338
DEG359 DEC 16338
SETLOC P50S
BANK
RDCDUS INHINT # READ CDUS
@ -1264,7 +1264,7 @@ RDCDUS INHINT # READ CDUS
SETLOC P50S2
BANK
COUNT 14/INFLT
CALCSMSC DLOAD DMP
SINCDUY
COSCDUZ
@ -1304,7 +1304,7 @@ CALCSMSC DLOAD DMP
XNB
STORE YNB
RVQ
# NAME -- P51 -- IMU ORIENTATION DETERMINATION
# MOD. NO. 2 21 DEC 66 LOG SECTION -- P51-P53
# Page 764
@ -1444,18 +1444,18 @@ CALCSMSC DLOAD DMP
BANK
COUNT 14/P5153
P53 EQUALS P51
P53 EQUALS P51
P51 CS IMODES30
MASK BIT9
CCS A
# Page 767
# Page 767
TC P51A
TC ALARM
OCT 210
TC GOTOP00H
P51A TC BANKCALL
CADR R02ZERO
P51AA CAF PRFMSTAQ
TC BANKCALL
CADR GOPERF1
@ -1508,7 +1508,7 @@ P51B TC PHASCHNG
EXIT
CAF BIT1
TS MARKINDX # INITIALIZE FOR ONE MARK
P51C TC PHASCHNG
OCT 05024
OCT 13000
@ -1539,7 +1539,7 @@ P51D VLOAD STADR
CALL
PLANET
STORE PLANVEC
# Page 769
# Page 769
P51E EXIT
TC PHASCHNG
OCT 05024
@ -1593,7 +1593,7 @@ SET1/PDT CA TIME1
# Page 770
TS 1/PIPADT
TCF DANZIG
# Page 771
# 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.
#
# SUBROUTINES CALLED
#
#
# SXTMARK
# OPTSTALL
# GOFLASH
@ -1667,9 +1667,9 @@ MKDNCDR ECADR MARKDOWN
SETLOC RT53
BANK
COUNT 14/R53
R53 STQ SET # SET SIGHTING MARK FLAG
R53EXIT
R53FLAG
@ -1703,7 +1703,7 @@ R53B TC CHECKMM
TCF R53D
R53C1 CAF ZERO
TC BANKCALL
CADR CLEANDSP
CADR CLEANDSP
R53C CAF V01N71
TC BANKCALL
CADR GOFLASH
@ -1748,9 +1748,9 @@ NEG47 OCT 77730
SETLOC S52/2
BANK
COUNT 13/S52.2
S52.2 STQ
S52.2 STQ
QMAJ
CALL
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
# 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 TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
# POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
@ -1842,7 +1842,7 @@ S52.2.1 AXC,1 AXC,2
# Page 776
SETLOC SR52/1
BANK
SR52.1 TC MAKECADR
TS QMIN
TC INTPRET
@ -1951,7 +1951,7 @@ ADVTRACK SETPD
VLOAD VXV
VATT
RATT
UNIT
UNIT
STOVL 24D # SAVE -UNIT(VxR) FOR 2ND ROTATION
RATT
UNIT VCOMP
@ -1984,7 +1984,7 @@ ADVTRACK SETPD
0
STCALL STAR # STORE FINAL LOS IN STAR
COM52 # RETURN TO SR52.1
ROTA DLOAD SIN
AOPTIME
PDVL VXV # PUSH 1/2SIN(A) PD 6-7
@ -2006,7 +2006,7 @@ ROTA DLOAD SIN
UNIT SETPD
0
PUSH RVQ
DP1/6 2DEC .16666666
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
BANK
COUNT 15/S52.3
COUNT 15/S52.3
S52.3 STQ
QMAJ
STCALL TDEC1
@ -2095,11 +2095,11 @@ R56 STQ EXIT
TC -5 # ENTER: NEW ANGLES
R56A TC BANKCALL
CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
CAF ZERO
TC BANKCALL
CADR CLEANDSP
R56A1 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
TC BANKCALL
# Page 782
@ -2147,13 +2147,13 @@ VB53 VN 05300 # ALTERNATE MARK VERB
V06N94B VN 00694
SETLOC P50S
BANK
PLANET STORE TSIGHT
STQ CALL
QMIN
LOCSAM
VLOAD
# Page 783
# Page 783
VEARTH
STOVL 0D
VSUN
@ -2181,7 +2181,7 @@ NOSAM EXIT
STARSAV3
1/SQR3
UNIT GOTO
CORPLAN
CORPLAN
NOTPLAN CS A
AD DEC227
EXTEND
@ -2204,7 +2204,7 @@ CALSAM1 TC INTPRET
CORPLAN VAD UNIT
VEL/C
GOTO
# Page 784
# Page 784
QMIN
DEC227 DEC 227
VNPLANV VN 0688

248
Comanche055/P61-P67.agc
View File

@ -14,11 +14,11 @@
# interpreter operands fixed stuff like
# N-M,1 to N -M,1
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -61,22 +61,22 @@
BANK 26
SETLOC P60S
BANK
EBANK= AOG
COUNT* $$/P61
P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
TS EXTVBACT # TO V37
# LOCK OUT EXTENDED VERBS SO CAN USE TFF
# ROUTINES. EXT VERB ERASE IS USED
CS ONE # REMOVE IF HEADSUP EVER ON UPLINK DATA
TS HEADSUP # PRELOAD
TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION
# RV 50GENRET. DOES PHASCHNG, GROUP 4.
CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
# XXX.XX DEG XXX.XX DEG XXXXX.
TC BANKCALL
@ -85,18 +85,18 @@ P61 CA BIT14 # EXTENDED VERB SHOULD BE FREE THIS CLOSE
# Page 790
TC P61.4
TC -5
P61.3 TC PHASCHNG
OCT 00014
TC ENDOFJOB
P61.4 ZL
CCS HEADSUP # C(HEADSUP)= +1/-1
CA BIT14 # IF HEADSUP POS,ROLLC =180 DEG.(LIFT DWN)
NOOP # IF HEADSUP NEG,ROLLC =0 (LIFT UP)
DXCH ROLLC # ROLLC IS USED BY S62.3: GIM ANG AT .05G
TC INTPRET
NEWRNVN DLOAD
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
TC BANKCALL
CADR GOFLASH
TC GOTOP00H
TC P61.2 # PROCEED
TC -5
P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
# ABOVE DISPLAY.
RTB DSU
@ -138,9 +138,9 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
DAD
TTE1 # NEGATIVE OF FREE FALL TIME.
STORE TTE # DECREMENTED
EXIT
CA V06N63 # RTGO VIO TTE
# XXXX.X NM XXXXX. FPS XXBXX M,S
TC BANKCALL
@ -148,7 +148,7 @@ P61.2 TC INTPRET # CORRECT TTE FOR TIME LAPSE DURING
TC GOTOP00H
TC +2
TC P61.2 # REDO
# .... THEN FALL INTO P62
# 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.
# CALLING SEQUENCE: BY V37 OR DIRECTLY FROM P61
# EXIT: TO P63
# ERASABLE INITIALIZATION:
# ERASABLE INITIALIZATION:
# ALFAPAD LEFT BY PAD LOAD
# LADPAD 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.
COUNT* $$/P62
TC NEWMODEX # MODE CHANGE IF CAME FROM P61.
MM 62 # MODE CHANGE AUTOMATIC VIA V 37.
CA ONE
TS DNLSTCOD
P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
TC INTPRET
@ -187,14 +187,14 @@ P62 TC S61.1 # CHECK STATE VECTOR AND IMU ORIENTATION.
P62.3 # CALCULATE DESIRED .05G GIMBAL ANGLES.
# WITHOUT DISPLAY.
CM/DAPIC # START CM/POSE AND BODY RATE CALC
# DOES 2PHSCHNG, OCT 40116, OCT 05024, OCT 13000.
# CM/DAPIC SETS EBANK = EBAOG
# AND RETURNS IN BASIC TO P62.2.
# AND RETURNS IN BASIC TO P62.2.
P62.2 EXTEND
DCA POSECADR # CONTINUE WITH CM/POSE AFTER AV G.
DXCH AVEGEXIT
CAF OCT41 # REQUEST SEPARATION
TC BANKCALL
CADR GOPERF1R
@ -204,42 +204,42 @@ P62.2 EXTEND
# NOTE: NODOFLAG WILL BE SET IN CM/DAPON. ***
TC -5 # ENTER
TC P61.3 # FOR PHASCHNG AND ENDOFJOB
+3 TC POSTJUMP
CADR CM/DAPON # DISABLE RCS DAP, ENABLE ENTRY DAP AND
# DO ATTITUDE HOLD.
# WILL IDLE UNTIL CM/POSE DOES ONE UPDATE.
# CM/DAPON DOES NO PHASCHNG.
P62.1 CA V06N61 # LAT(SPL) LNG(SPL) HEADSUP
# XXX.XX DEG XXX.XX DEG 0000X.
# TERMINATE ATTITUDE HOLD. SET UP COMMANDS:
# ROLLC, ALFACOM, BETACOM. BEGIN MANEUVER TO
# ENTRY ATTITUDE.
TC BANKCALL
CADR GOFLASH
TC -3
TC +2
TC -5
TC PHASCHNG
OCT 04024 # USE ENTRYVN FOR DISPLAY BELOW.
# EBANK WAS SET IN CM/DAPON TO EBAOG
CCS HEADSUP # C(HEADSUP) = +/- 1
CA BIT14 # IF HEADSUP POS, ROLLC=180 DEG (LIFT DWN)
NOOP # IF HEADSUP NEG, ROLLC=0 DEG (LIFT UP)
TS ROLLC
TS ROLLC
CA ALFAPAD # NOMINAL ALFATRIM PAD LOADED, NEG. NO.
ZL
DXCH ALFACOM # SET ALFACOM = ALFA TRIM, BETACOM=0
CA ONE # PERMITS EXDAP2 TO CHANGE FLAG TO +0
TS P63FLAG # AS INDICATOR. STARTS UP P63.
CA V06N22 # SET UP DISPLAY FOR CDU DESIRED VALUES
TS ENTRYVN # FROM ENTRY ATTITUDE CALC, THAT IS
# ALREADY GOING.
@ -253,26 +253,26 @@ SKIP
BZF P63.1 # DISABLE GRP 4, GO TO ENDOFJOB.
# (I.E., CONTINUE IF CMDAPMOD = -1, OR +0)
TC P63
# PUT JOB TO SLEEP UNTIL VEHICLE MANEUVER HAS
# REDUCED ALFA TO +/-45 DEG. CONSIDER REMAINING
# 65 DEG (25 DEG IF ALFA NEG) TO ALFA TRIM TO
# OCCUR AT 3 DEG/SEC, AND TERMINATE P62 AT THAT
# TIME.
# TASK WAKEP62 IS CALLED FROM ENTRY DAP.
WAKEP62 CA PRIO13
TC NOVAC
EBANK= AOG
2CADR P63
TC TASKOVER
# EACH 2 SEC, CALCULATE GIMBAL ANGLES FOR ENTRY CON-
# DITIONS THAT WILL HOLD IF REORIENTATION WERE MADE
# AT PRESENT RN, VN. COME HERE FROM CM/POSE AND ALSO
# IN KEPLER PHASE OF ENTRY.
P62.3 SSP GOTO # SET RETURN ADDRESS SO THAT ROUTINE
QPRET # GOES DIRECTLY TO ENTRY GUIDANCE EXIT
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
COUNT* $$/P63
P63 TC NEWMODEX
MM 63
# ARRIVE WITH EBANK = AOG.
CA ENTCADR # CONTINUE AT STARTENT AFTER CM/POSE.
# AT END OF STATEMENT, CHANGE ADDRESS IN GOTOADDR
# TO CONTINUE AT SCALEPOP THEREAFTER.
TS POSEXIT
CA V06N64 # G VI R TO SPLSH
# XXX.XX G XXXX. FPS XXXX.X NM
TS ENTRYVN # FOR DISPLAY CALL IN OVERNOUT
CS ONE # IN CASE FLAG IS LEFT AT +1 BY DAP. THE
TS P63FLAG # -1 ASSURES THAT EXO-ATM DAP WILL NOT
# CALL P63 OUT OF SEQUENCE IN P66.
TC PHASCHNG # THIS IS REQUIRED TO PRESERVE CLEANDSP
OCT 00004 # RETURN IN EVENT OF AN EXTENDED VERB
TC BANKCALL # FLUSH 'N22' DISPLAY, IF ON, (OMIT
CADR CLEANDSP # DISPLAY DURING 'STARTENT' PASS.)
P63.1 TC PHASCHNG
OCT 00004 # DISABLE. DISPLAY RESTARTED VIA ENTRY.
TC ENDOFJOB
V06N60 VN 0660
V06N61 VN 0661
V06N63 VN 0663
@ -356,22 +356,22 @@ POSECADR 2CADR CM/POSE
BANK 25
SETLOC P60S1
BANK
# THIS DISPLAY IS CALLED EACH PASS THROUGH STEERING. RESTART PROTECTION IS VIA STEERING.
COUNT* $$/P64
P64 TC NEWMODEX # ENTER VIA RTB WHEN .05G IS EXCEEDED.
MM 64
CA V06N74 # ROLLC VI D
# XXX.XX DEG XXXXX. FPS XXX.XX G
TS ENTRYVN # DISPLAY VIA OVERNOUT.
TC DANZIG # ... AND CONTINUE IN INITROLL ...
V06N74 VN 0674
# Page 798
# Page 798
# PROGRAM: P65
# 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
@ -382,15 +382,15 @@ V06N74 VN 0674
# SUBROUTINE CALLS: NEWMODEX
COUNT* $$/P65
P65 TC NEWMODEX # ENTER VIA RTB WHEN RANGE < 25 N M OF
MM 65 # TARGET.
CA PRIO13
TC NOVAC
EBANK= ENTRYVN
2CADR P65.1
TC 2PHSCHNG # 2 PHASE CHG REQUIRED TO PREVENT RE-
OCT 00554 # STARTING FLASHING DISPLAY TWICE.
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
REFAZE10 # GO HERE TO REESTABLISH ENTRY SEQUENCER.
# AND CONTINUE AT UPCONTRL...
P65.1 TC DOWNFLAG
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
CA V16N69 # ROLLC DL (Q7) VL
TC BANKCALL # XXX.XX DEG XXX.XX G XXXXX. FPS
CADR GOFLASHR
@ -414,11 +414,11 @@ P65.1 TC DOWNFLAG
# IF PROCEED, CONTINUE
TC UPFLAG
ADRES ENTRYDSP # ENTRYDSP = 92D BIT 13 FLAG 6
TC P63.1 # DISABLE GRP 4, START UP ENTRY DISPLAY
# N06V68 VIA OVERNOUT, AS USED IN P64
V16N69 VN 1669
# Page 799
# PROGRAM: P66
# MOD NO: 0 MOD BY: RR BAIRNSFATHER DATE: 17 JAN 68 COLOSSUS GSOP ADDITIONS
@ -429,18 +429,18 @@ V16N69 VN 1669
# SUBROUTINE CALLS: NEWMODEX
COUNT* $$/P66
P66 TC NEWMODEX # ENTER VIA RTB WHEN D < Q7 FPSS
MM 66
CA V06N22 # OGA IGA MGA
# XXX.XX DEG XXX.XX DEG XXX.XX DEG
TC P66END # IN CASE CAME FROM P65, GO TO DISABLE GRP 4,
# AND SET ENTRYDSP TO DO DISPLAY VIA
# OVERNOUT.
# ... AND CONTINUE AT KEP2
# ... AND CONTINUE AT KEP2
# Page 800
# PROGRAM: P67
# 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.
COUNT* $$/P67
P67 TC NEWMODEX # ENTER VIA RTB
MM 67
CA V06N66 # ROLLC XRNGERR DNRNGERR
@ -465,15 +465,15 @@ P66END TS ENTRYVN # DISPLAY VIA OVERNOUT.
# BIT 13 FLAG 6
KILLGRP4 TC PHASCHNG # DISABLE GRP4, IN CASE CAME FROM HUNTEST.
OCT 00004 # (COME TO KILLGRP4 VIA RTB, RET TO CALLER)
TC DANZIG # ... AND CONTINUE AT PREDICT3 ...
V06N66 VN 0666
BANK 26
SETLOC P60S2
BANK
P67.1 CA V16N67 # RTOGO LAT LONG
# XXXX.X NM XXX.XX DEG XXX.XX DEG
TC BANKCALL
@ -481,7 +481,7 @@ P67.1 CA V16N67 # RTOGO LAT LONG
TC +3 # EFFECTIVE GOTOP00H
TC +2
TC P67.1 # REDO
CS THREE # TURN OFF ENTRY DAP
INHINT
MASK CM/FLAGS # CM/DSTBY, GAMDIFSW
@ -489,12 +489,12 @@ P67.1 CA V16N67 # RTOGO LAT LONG
RELINT
EXTEND
DCA SERVCAD2
# Page 801
DXCH AVEGEXIT
TCF GOTOP00H
# Page 802
P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
RN
@ -506,13 +506,13 @@ P67.2 VLOAD CLEAR # CALC PRESENT LAT, LONG, ALT.
LAT-LONG
P67.3 RTB # ENTRY EXIT THAT OMITS DISPLAY.
SERVNOUT
V16N67 VN 1667
OCT41 = 33DEC
SERVCAD2 = SERVCAD1
# Page 803
# SUBROUTINE NAME: S61.1
# SUBROUTINE NAME: S61.1
# MOD NO: 0 DATE: 21 FEB 67
# MOD BY: RR BAIRNSFATHER LOG SECTION: P61-P67
# MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 22 JUN 67 RESTARTS.
@ -559,9 +559,9 @@ SERVCAD2 = SERVCAD1
BANK 26
SETLOC P60S3
BANK
COUNT* $$/S61.1
S61.1 EXTEND
QXCH 60GENRET # SAVE RET ADDR IN EB 6
TC BANKCALL
@ -572,36 +572,36 @@ S61.1 EXTEND
AVEGFLAG # IS AVERAGEG ON
S61.1A # YES
MIDTOAV2 # GET FUTURE STATE VECTOR SOON AS CAN
CA MPAC +1 # RETURN INHINTED ***
TS S61DT # FOR RESTART.
TC WAITLIST
EBANK= DVCNTR
2CADR S61.1C
TC PHASCHNG
OCT 40434
TC ENDOFJOB
S61.1C CA PRIO13
TC FINDVAC
EBANK= AOG
2CADR S61.1A -1
EXTEND
DCA SERVCAD1 # HE WHO START AVERAGEG MUST SERVICE
DXCH AVEGEXIT # THE EXIT.
TC 2PHSCHNG
OCT 00454
OCT 00415
CA EBENTRY # SET EB= 7 FOR PREREAD.
TS EBANK
TC POSTJUMP
CADR PREREAD # PREREAD DOES TC TASKOVER.
TC INTPRET
S61.1A BOVB VLOAD
TCDANZIG # TURN OFF OVFIND, IF ON
@ -622,21 +622,21 @@ S61.1B DCOMP DAD
C(30)LIM # = 1.0 - .5 COS(30)
BOVB EXIT
RETRN2
RETRN3 TC ALARM
OCT 01426 # IMU UNSATISFACTORY
TC RETRN2 +2
RETRN2 TC ALARM
OCT 01427 # IMU REVERSED
+2 CAF V05N09
TC BANKCALL
CADR GODSPR # DO DISPLAY
CA 10SECS
TC BANKCALL
CADR DELAYJOB
RETRN1 TC 60GENRET
EBANK= DVCNTR
@ -723,7 +723,7 @@ C(30)LIM 2DEC .566985 # = 1.0 - .5 COS(30)
BANK 34
SETLOC P60S2
BANK
COUNT* $$/S61.2
# PDL LEFT AT ZERO BY TARGETING
@ -735,30 +735,30 @@ S61.2 DLOAD DSU
1/RTMU # ESTABLISH MU FOR ORBITAL ENTRIES
CALLCON CALL
TFFCONIC # FILL VAC AREA WITH CONIC PARAMETERS
DLOAD CALL
RTRIAL # 1ST GUESS AT TERMINAL RADIUS (-29)
CALCTFF # SAVES MPAC IN RTERM (18D)
CALL # CALC SDELF/2, CDELF/2
TFF/TRIG # RETURN WITH S(THETA) IN MPAC
CALL # GET FISCHER RADIUS (-29) M
FISHCALC # ANS IN MPAC AND IN ERADM
DAD CALL
EMSALT
CALCTFF # SAVES MPAC IN RTERM (18D)
DCOMP # NEGATIVE AS IN COUNTDOWN
STORE TTE1 # DECR TTE FROM BASB TTE1. (RESTART)
# DNLIST AND DSKY WILL USE TTE.
STCALL TTE # LET MISS CONTRL DECR BY ELAPSED TIME
# TTE= TIME FROM NOW TO EMSALT +FISCHER
TFF/TRIG # S(THETA) IN MPAC ON RETURNING
# AND THETA= RANGE FROM NOW TO EMSALT
CALL
FISHCALC
CALL
@ -770,26 +770,26 @@ CALLCON CALL
STCALL RTGO
# Page 809
VGAMCALC
DMP # MPAC = GAMMA
# PDL0 HAS VGAM.
BDDV DAD
BDDV DAD
VEMSCON # -HS D 180/PI (-14)
0 # VGAM FROM PDL0
STODL VIO # PREDICTED VELOCITY AT EMSALT.
# GAMMA AND VGAM AT 300K FT ARE REQUIRED BY GMAX
# ALGORITHM.
ERADM # EARTH RADIUS FROM GETERAD (-29) M
# = FISCHER RADIUS (-29)
DAD
300KFT # M (-29)
STCALL RTERM # TERMINAL RADIUS M (-29)
PREVGAM # VGAMCALC WITH NEW RTERM
# 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.
@ -800,7 +800,7 @@ CALLCON CALL
DDV DSQ
20KFT/S # (-6) M/CS
STORE 0 # VBARSQ (-2) TO PDL0
DMP DAD
KR1
# GAM, POS DOWN, FROM PDL2
@ -829,27 +829,27 @@ CALLCON CALL
TFF/TRIG # GET SIN, COS DELF
CALL
FISHCALC # GET CORRESPONDING FISCHER RADIUS.
DAD LXA,2 # SAVE HI-WORD FOR DOWNLIST.
400KFT # M (-29)
RTGO # (RANGE ANGLE FROM EMSALT) / 360
STCALL RTERM
PREVGAM # VGAMCALC WITH NEW RTERM
DCOMP SXA,2 # HI-WORD OF EACH ON DOWNLIST.
MPAC +1
STODL GAMMAEI # CONIC GAMMA/360 AT 400K FT. (HI-WORD)
# CONIC RTGO/360 FROM EMSALT (LOW-WORD)
# FOR TM, DP(GAMMAEI) = (GAMMA, RTGO) / 360
# VGAM FROM PDL+0 (-7)
STADR
STORE VPRED # CONIC VELOCITY AT 400K FT
RTB
P61.1
# PDL BACK TO ZERO.
LUNENT DLOAD GOTO
1/RTMUE # ESTABLISH MU FOR LUNAR TYPE ENTRIES
CALLCON
@ -940,7 +940,7 @@ FISHCALC PDVL VXV # URPR = UR CDELF + UHOR SDELF
DUMPFISH GOTO
GETERAD # SAVES FISCHER RAD (-29) M IN ERADM AND
# IN MPAC. RETURNS TO CALLER VIO QPRET.
# Page 813
# SUBROUTINE NAME: VGAMCALC (USED BY S61.2) DATE: 01.21.67
# MOD NO: 0 LOG SECTION: P61-P67
@ -971,7 +971,7 @@ DUMPFISH GOTO
# NORMAL EXIT MODE: RVQ
#
# ALARMS: NONE
#
#
# OUTPUT: GAMMA / 360 IN MPAC, POSITIVE NUMBER
# VGAM E: (-7) M: (-5) M/CS IN PDL+0
# PUSHLOC AT PDL+2
@ -1005,7 +1005,7 @@ VGAMCALC DLOAD DMP
NRTERM # RTERM M E: (-29+NR) M: (-27+NR)
SL* DDV # 2(RN-RTERM) E: (-30+NR) M: (-28+NR)
0 -8D,1 # (-8+NR)
# PUSH UP PRODUCT.
# PUSH UP PRODUCT.
DSU
TFFVSQ # -(V SQ/MU) E: (20) M: (18)
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
# 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
# M: (-27+NR)
# M: (-27+NR)
# NRMAG E: (-29+NR) M NORM LENGTH OF PRESENT POSITION LEFT BY TFFCONIC
# M: (-27+NR)
#
@ -1089,9 +1089,9 @@ TFF/TRIG DLOAD SR1
DUMPTRIG SIGN RVQ
TFFTEM # AFFIX SIGN(DELE/2)
# RETURN WITH .5 SIN(THETA) IN MPAC
# 16W 15MS
DISPTARG STQ # C(MPAC = TRGO ESTIMATE
60GENRET
DMP DSU
@ -1164,7 +1164,7 @@ VRCALC VLOAD DOT
# UZA/2 REF COORDS LEFT BY CM/POSE
#
# OUTPUT
#
#
# CPHI GIMBAL ANGLES (O,I,M) 2'S COMP TP (O,I,M)/180
#
# DEBRIS
@ -1176,7 +1176,7 @@ VRCALC VLOAD DOT
BANK
# Page 818
COUNT* $$/S62.3
S62.3 SETPD SLOAD
0
ALFAPAD # ALFATRIM / 180, ALFA IS NEG.
@ -1193,7 +1193,7 @@ S62.3 SETPD SLOAD
# VECTOR FROM PDL4...9
VSL1
STORE YNB # = UYD REF COORDS
VXV VSL1
UXA/2 # REF COORDS
VXSC PDDL
@ -1204,7 +1204,7 @@ S62.3 SETPD SLOAD
# FROM PDL0
VSL1
STORE XNB # X SC AXIS (.5 UNIT) REF COORDS
VXV VSL1
YNB
STOVL ZNB # Z SC IN REF COOR. SCALED AT 2
@ -1214,12 +1214,12 @@ S62.3 SETPD SLOAD
STOVL YSM
REFSMMAT +12D
STORE ZSM
CLEAR GOTO
CPHIFLAG # CAUSE CALCGA TO STORE ANS IN TP CPHI
CALCGA
# CALCGA WILL RETURN TO ORIGINAL CALLER
# VIA QPRET WITH 2'S COMP. ANGLES IN CPHI

22
Comanche055/P76.agc
View File

@ -7,9 +7,9 @@
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
# Website: www.ibiblio.org/apollo.
# Pages: pp 511-513
# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file
# of the same name, using Comanche055 page
# images 0511.jpg - 0513.jpg.
# Mod history: 2009-05-08 HG Adapting from the Luminary131/ file
# of the same name, using Comanche055 page
# images 0511.jpg - 0513.jpg.
#
# This source code has been transcribed or otherwise adapted from digitized
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -62,7 +62,7 @@ P76 TC UPFLAG
CAF V06N84 # FLASH LAST DELTA V.
TC BANKCALL # AND WAIT FOR KEYBOARD ACTION.
CADR GOFLASH
TCF ENDP76
TCF ENDP76
TC +2 # PROCEED
TC -5 # STORE DATA AND REPEAT FLASHING
CAF V06N84 +1 # FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
@ -131,7 +131,7 @@ INTOTHIS STCALL TDEC1
# Page 513
TC UPFLAG
ADRES REINTFLG
TC INTPRET
CALL
ATOPOTH
@ -144,19 +144,19 @@ OUT EXIT
ENDP76 CAF ZERO
TS MARKCTR # CLEAR RR TRACKING MARK COUNTER
TS VHFCNT
CAF NEGONE
TS MRKBUF2 # INVALIDATE MARK BUFFER
TCF GOTOP00H
V06N84 NV 0684
NV 0633
P76SUB1 CLEAR SLOAD
MOONFLAG
MOONFLAG
X2
BHIZ SET # X2=0...CLEAR MOONFLAG
+2 # =2.....SET MOONFLAG
MOONFLAG
RVQ
RVQ

14
Comanche055/PHASE_TABLE_MAINTENANCE.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -62,7 +62,7 @@ TCQ = Q+2 +1
BANK
COUNT 10/PHASE
SETUPDSP INHINT
DXCH RUPTREG1 # SAVE CALLER'S RETURN 2CADR
CAF PRIO30 # EITHER A TASK OR JOB CAN COME TO
@ -196,7 +196,7 @@ DSPMMJOB EQUALS DSPMMJB
# AD+4 # FOR GROUP 5 PHASE INFORMATION.
COUNT 02/PHASE
2PHSCHNG INHINT # THE ENTRY FOR A DOUBLE PHASE CHANGE
NDX Q
CA 0
@ -221,7 +221,7 @@ DSPMMJOB EQUALS DSPMMJB
PHASCHNG INHINT
CA ONE # INDICATES CAME FROM A PHASCHNG ENTRY
TS TEMPSW2
NDX Q
CA 0
INCR Q
@ -304,7 +304,7 @@ BB EQUALS BBANK
EBANK= PHSNAME1
COUNT 10/PHASE
PHSCHNG2 LXCH TEMPBBCN
CA TEMPSW
MASK OCT7
@ -395,12 +395,12 @@ CON2 LXCH TEMPBBCN
BANK
COUNT 02/PHASE
CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT SHOULD
CCS A # BE HERE IF WE ARE TO GET A NEW PRIORITY
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.

414
Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
View File

File diff suppressed because it is too large Load Diff

38
Comanche055/PINBALL_NOUN_TABLES.agc
View File

@ -11,11 +11,11 @@
# Mod history: 2009-05-18 FB Transcription Batch 3 Assignment.
# 2009-05-23 RSB In NNTYPTAB, corrected former 13 SPARE.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -129,9 +129,9 @@
BANK 06
SETLOC PINBALL3
BANK
COUNT 42/NOUNS
LODNNTAB DXCH IDAD2TEM # SAVE RETURN INFO IN IDAD2TEM, IDAD3TEM.
INDEX NOUNREG
CAF NNADTAB
@ -162,7 +162,7 @@ LODMIXNN CAF TWO # MIXED. +2 INTO MIXBR.
DCA IDADDTAB +1 # LOAD IDAD3TEM WITH 3RD IDADDTAB ENTRY.
LODNLV DXCH IDAD2TEM # PUT RETURN INFO INTO A, L.
DXCH Z
MIXCON = OCT50 # FIRST MIXED NOUN =40. (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WITH THE DP SFOUTAB ENTRIES.
@ -174,7 +174,7 @@ GTSFOUT DXCH SFTEMP1 # 2X (SFCONUM) ARRIVES IN SFTEMP1.
DCA SFOUTAB
SFCOM DXCH SFTEMP1
DXCH Z
# GTSFIN LOADS SFTEMP1, SFTEMP2 WITH THE DP SFINTAB INTRIES.
GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
@ -182,7 +182,7 @@ GTSFIN DXCH SFTEMP1 # 2X (SFCONUM) ARIVES IN SFTEMP1.
INDEX A
DCA SFINTAB
TCF SFCOM
# NN NORMAL NOUNS
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 TET # 38 TIME OF STATE VECTOR
ECADR T3TOT4 # 39 DELTA TIME TO TRANSFER (HRS,MIN,SEC)
# END OF NNADTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
@ -367,7 +367,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS OPTION
# END OF NNADTAB FOR MIXED NOUNS
# NN NORMAL NOUNS
@ -412,13 +412,13 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 24400 # 37 3COMP HMS (DEC ONLY)
OCT 24400 # 38 3COMP HMS (DEC ONLY)
OCT 24400 # 39 3COMP HMS (DEC ONLY)
# END OF NNTYPTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
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 24410 # 42 3COMP POS4, POS4, VEL3
# (DEC ONLY)
@ -519,7 +519,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 01162 # 99 3COMP POS9, VEL4, WHOLE
# (DEC ONLY)
# END OF NNTYPTAB FOR MIXED NOUNS
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
@ -560,9 +560,9 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 27176 # POSITION 8
OCT 14235
2DEC 30480 B-19 # POSITION 9
2DEC 30.48 B-7 # VELOCITY4
# END OF SFINTAB
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
@ -603,9 +603,9 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 00260 # POSITION 8
OCT 06213
2DEC 17.2010499 B-7 # POSITION 9
2DEC .032808399 # VELOCITY4
# END OF SFOUTAB
# NN SF CONSTANT SF ROUTINE
@ -794,7 +794,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR WWPOS # 99 POS9 DP3
ECADR WWVEL # 99 VEL4 DP2
ECADR WWOPT # 99 WHOLE ARTH
# END OF IDADDTAB
# NN SF ROUTINES
@ -860,7 +860,7 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
OCT 06143 # 97 ARTH, ARTH, ARTH
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 06247 # 99 DP3, DP2, ARTH
# END OF RUTMXTAB
SBANK= LOWSUPER

4
Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A

20
Comanche055/POWERED_FLIGHT_SUBROUTINES.agc
View File

@ -6,7 +6,7 @@
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1365-1372
# Pages: 1365-1372
# Mod history: 2009-05-10 SN (Sergio Navarro). Started adapting
# from the Colossus249/ file of the same
# name, using Comanche055 page images.
@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -158,7 +158,7 @@ QUICTRIG INHINT # INHINT SINCE DAP USES THE SAME TEMPS
NBSM STQ
X2
LXC,1 VLOAD*
LXC,1 VLOAD*
S1 # BASE ADDRESS OF THE CDU ANGLES IS IN S1
0,1
STOVL CDUSPOT
@ -330,32 +330,32 @@ INDEXI DEC 4 # ********** DON'T ***********
BANK 14
SETLOC POWFLIT1
BANK
SMCDURES DLOAD DMP
DTHETASM
COSCDUY
PDDL DMP
DTHETASM +4
SINCDUY
BDSU
DDV
COSCDUZ
STORE DCDU
DMP SL1 # SCALE
SINCDUZ
BDSU
DTHETASM +2
STODL DCDU +2
DTHETASM
DMP PDDL
SINCDUY
DTHETASM +4
DMP DAD
COSCDUY
SL1

22
Comanche055/R30.agc
View File

@ -7,9 +7,9 @@
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
# Website: www.ibiblio.org/apollo.
# Pages: 514-524
# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0514.jpg - 0524.jpg.
# Mod history: 2009-05-09 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0514.jpg - 0524.jpg.
#
# This source code has been transcribed or otherwise adapted from digitized
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -103,7 +103,7 @@ V82CALL TC INTPRET
V82GOFF EXIT # ALLOW ASTRONAUT TO SELECT VEHICLE
CAF TWO # DESIRED FOR ORBITAL PARAMETERS
TS OPTIONX
TS OPTIONX
CAF ONE
TS OPTIONX +1
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
DLOAD*
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
STORE TFF/RTMU # X2 IS 2 FOR MOON
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
BOTHPAD STCALL RPADTEM
SR30.1 # CALCULATE ORBITAL PARAMETERS
EXIT
EXIT
CA MODREG # ARE WE IN P00
EXTEND
BZF CANDEL # YES, DO DELRSPL
SPLRET1 TC INTPRET
SPLRET1 TC INTPRET
RTB DSU
LOADTIME
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.
STORE -TPER # -TPER CORRECTED FOR TIME SINCE V82GOFF1
EXIT # BEGAN.
# Page 518
CAF BIT1
TS V82FLAGS # INFORMS TICKTEST TO INCREMENT ONLY -TPER
TC ENDOFJOB
TICKTFF DLOAD DAD # (-TPER=0) TFF WAS COMPUTED. TICK TFF.
TFF # DO NOT TICK -TPER. DISPLAY TFF, BUT NOT
TSTART82 # -TPER

16
Comanche055/R31.agc
View File

@ -10,11 +10,11 @@
# Mod history: 2009-05-11 OH Batch 2 Assignment Comanche Transcription
# 2009-05-20 RSB Corrected INSTALL -> INTSTALL
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -96,7 +96,7 @@ R34ANG VLOAD UNIT
R31FLAG
+2 # R31-THETA
12D
CALL
CALL
*NBSM*
VXM PUSH # UXORZ TO 6D PD=12D
REFSMMAT
@ -134,7 +134,7 @@ R34ANG VLOAD UNIT
CS EXTVBACT
MASK BIT12
ADS EXTVBACT
TCF V83
V16N54 VN 1654
V16N53 VN 1653
@ -240,7 +240,7 @@ OTHINT STORE TDEC1 # ENTERED IF AV G ON TO INTEG LM
STCALL TET
INTEGRVS
GOTO
COMPDISP # COMPUTE R RDOT RTHETA
COMPDISP # COMPUTE R RDOT RTHETA
GETRVN5 CALL # AV G ON
GETRVN
BON CALL
@ -268,7 +268,7 @@ GETRVN STQ
STODL VONE
PIPTIME
GOTO
0D
0D
SETLOC R34
BANK
R34LOS EXIT
@ -284,7 +284,7 @@ R34LOS EXIT
INDEX FIXLOC
TS X1
TC INTPRET
CALL
CALL
SXTNB
STCALL 12D
R34ANG

96
Comanche055/R60_62.agc
View File

@ -7,9 +7,9 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 390-398
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
# Mod history: 2009-05-09 RSB Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# images.
#
# This source code has been transcribed or otherwise adapted from digitized
# images of a hardcopy from the MIT Museum. The digitization was performed
@ -17,13 +17,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -32,18 +32,18 @@
BANK 34
SETLOC MANUVER
BANK
EBANK= TEMPR60
COUNT 27/R60
# CONFORMS TO GSOP CHAPTER FOUR REVISION LOGIC 09 JAN 18, 1968
R60CSM TC MAKECADR
TS TEMPR60
# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR
# INSERT PRIODSP CHECK WITH R22 (V06N49) WITH JENNINGS BRODEUR
REDOMANN CAF BIT6
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@ -53,17 +53,17 @@ REDOMANN CAF BIT6
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
EXIT
TOBALL CAF V06N18
TC BANKCALL
CADR GOPERF2R # DISPLAY PLEASE PERFORM AUTO MANEUVER
TC R61TEST
TC REDOMANC # PROCEED
TCF ENDMANU1 # ENTER I.E., FINISHED WITH R60
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
TC ENDOFJOB
REDOMANC CAF BIT6
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@ -73,7 +73,7 @@ REDOMANC CAF BIT6
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE ANGLES
EXIT
TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC
# Page 391
EXTEND
@ -82,12 +82,12 @@ TOBALLC CAF PRIO30 # IS MODE AUTO AND CTL GNC
EXTEND
BZF +2 # AUTO, NON-FLASH N18
TCF TOBALL # NOT AUTO
CAF V06N18 # STATIC UP NON-FLASHING V06 N18
TC BANKCALL
CADR GODSPR
TC CHKLINUS
STARTMNV TC BANKCALL
CADR GOMANUR
ENDMANUV TCF TOBALL # FINISHED MANEUVER.
@ -96,7 +96,7 @@ ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
ADRES 3AXISFLG # BIT 6 FLAG 5
CAE TEMPR60
TC BANKJUMP
CHKLINUS CS FLAGWRD4
MASK BIT12 # IS PRIORITY DISPLAY FLAG SET?
CCS A
@ -106,39 +106,39 @@ CHKLINUS CS FLAGWRD4
CS THREE # OBTAIN LOCATION FOR RESTART
AD BUF2 # HOLD Q OF LAST DISPLAY
TS TBASE1
TC PHASCHNG
OCT 71 # 1.7SPOT FOR RELINUS
CAF BIT7
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
TC MPAC +2
RELINUS CAF BIT5 # IS TRACK FLAG ON
MASK FLAGWRD1
EXTEND
BZF GOREDO20 # NO
TC UPFLAG
ADRES PDSPFLAG # R60 PRIODSP FLAG
TC UPFLAG
ADRES TARG1FLG # FOR R52
CAF ZERO # RESET TO ZERO, SINCE
# Page 392
TS OPTIND # OPTIND WAS SET TO -1 BY V379
CAF PRIO14 # RESTORE ORIGINAL PRIORITY
TC PRIOCHNG
TC TBASE1
GOREDO20 TC PHASCHNG
OCT 111 # 1.11 FOR PIKUP20
TC ENDOFJOB
R61TEST CA MODREG # ARE WE IN P00. IF YES THIS MUST BE
EXTEND # VERB49 OR VERB89 SO DO 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
BZF GOTOP00H # NO
TC GOTOV56 # YES
BIT14+7 OCT 20100
V06N18 VN 0618
@ -204,9 +204,9 @@ V06N18 VN 0618
BANK
# Page 394
EBANK= BCDU
COUNT 27/VECPT
VECPOINT STQ BOV # SAVE RETURN ADDRESS
VECQTEMP
VECLEAR # AND CLEAR OVFIND
@ -241,14 +241,14 @@ COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM
DEL # S/C AXES TO STABLE MEMBER AXES
CALL # MFS = MIS MFI
MXM3 # (IN PD LIST)
DLOAD ABS
6 # MFS6 = SIN(CPSI) $2
DSU BMN
SINGIMLC # = SIN(59 DEGS) $2
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
SCAXIS # THE THRUST AXIS
DSU BPL
@ -265,13 +265,13 @@ COMPMATX CALL # NO COMPUTE THE TRANSFORMATION FROM
MIS +6 # INNER GIMBAL AXIS IN FINAL S/C AXES
BPL VCOMP # LOCATE THE IG AXIS DIRECTION CLOSEST TO
IGSAMEX # FINAL X S/C AXIS
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
IGSAMEX VXV BMN # FIND THE SHORTEST WAY OF ROTATING THE
SCAXIS # S/C OUT OF GIMBAL LOCK BY A ROTATION
U=SCAXIS # ABOUT +- SCAXIS, I.E., IF (IG (SGN MFS3)
# X SCAXIS . XF) LESS THAN Q, U = SCAXIS
# OTHERWISE U = -SCAXIS.
VLOAD VCOMP
SCAXIS
STCALL COF # ROTATE ABOUT -SCAXIS
@ -308,7 +308,7 @@ FINDGIMB AXC,1 CALL
0
GOTO
VECQTEMP # RETURN TO CALLER
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
28D
SCAXIS
@ -317,7 +317,7 @@ PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
25D
GOTO # IF VF = VI, CDU DESIRED = PRESENT CDU
VECQTEMP # PRESENT CDU ANGLES
ROT180 VLOAD VXV # IF VF, VI ANTI-PARALLEL, 180 DEG ROTATION
MIS +6 # IS REQUIRED. Y STABLE MEMBER AXIS IN
HIUNITX # INITIAL S/C AXES.
@ -342,7 +342,7 @@ PICKX VLOAD GOTO # PICK THE XAXIS IN THIS CASE
BANK 35
SETLOC MANUVER1
BANK
SINGIMLC 2DEC .4285836003 # = SIN(59) $2
SINVEC1 2DEC .3796356537 # = SIN(49.4) $2
@ -361,27 +361,27 @@ DPB-14 OCT 00001
BANK 34
SETLOC MANUVER
BANK
# Page 398
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
EBANK= CPHI
COUNT 27/R62
R62DISP CAF V06N22 # DISPLAY COMMAND ICDUS CPHI, CTHETA, CPHI
TC BANKCALL
CADR GOFLASH
TCF ENDEXT
TCF ENDEXT
TCF GOMOVE # PROCEED
TCF R62DISP # ENTER
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
# POINT.
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
ADRES 3AXISFLG
TC BANKCALL
CADR R60CSM
TCF ENDEXT
TCF ENDEXT

10
Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
View File

@ -17,13 +17,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -44,7 +44,7 @@
BANK 20
SETLOC DAPS8
BANK
COUNT* $$/DAPEX
EBANK= KMPAC
AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
@ -53,8 +53,8 @@ AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
MASK BIT14 # IF NOT RCS, EXIT
EXTEND
BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
CA CDUZ
CA CDUZ
TC SPSIN2
TS AMGB1 # CALCULATE AMGB
CA CDUZ

148
Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -35,9 +35,9 @@
BANK 20
SETLOC DAPS3
BANK
COUNT 21/DAPRC
EBANK= KMPAC
REDORCS LXCH BANKRUPT # RESTART OF AUTOPILOT COMES HERE
CA T5PHASE # ON A T5 RUPT
@ -62,7 +62,7 @@ RCSATT LXCH BANKRUPT # SAVE BB
EXTEND
BZF SETT5 # IF G/C AUTOPILOT IS FULLY ENABLED,
# GO TO SETT5
CS RCSFLAGS # IF G/C AUTOPILOT IS NOT FULLY ENABLED,
MASK BIT14
ADS RCSFLAGS # SET NORATE FLAG,
@ -78,13 +78,13 @@ RCSATT LXCH BANKRUPT # SAVE BB
EXTEND
# Page 1003
BZF SETT5 # IF IN FREE MODE, GO TO SETT5.
TS T5PHASE # IF NOT IN FREE MODE,
CAF OCT37766 # SCHEDULE REINITIALIZATION (FRESHDAP)
TS TIME5 # IN 100 MS VIA T5RUPT
TCR ZEROJET # ZERO JET CHANNELS IN 14 MS VIA ZEROJET
TCF KMATRIX
DELTATT OCT 37770 # 80MS (TIME5)
DELTATT2 OCT 37776 # 20MS (TIME5)
@ -95,7 +95,7 @@ PRIO34A = PRIO34
# 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,
# TO ALLOW FOR THE EXECUTION OF OTHER
# INTERRUPTS. T5PHASE IS ALSO USED IN THE INITIALIZATION OF THE AUTOPILOT
@ -112,7 +112,7 @@ SETT5 CCS T5PHASE
TCF FRESHDAP # TURN ON AUTOPILOT
TCF T5PHASE2 # BRANCH TO PHASE2 OF PROGRAM
TCF REDAP # RESTART AUTOPILOT
TS T5PHASE # PHASE 1 RESET FOR PHASE 2
CA TIME5
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
BZF +2
TCF KMATRIX # IF NOT, SKIP RATE DERIVATION
# RATE FILTER TIMING = 7.72 MS
#
# RATE FILTER EQUATIONS
@ -183,7 +183,7 @@ DRHOLOOP TS SPNDX
DAS DRHO
CCS SPNDX
TCF DRHOLOOP
CA CDUX # MEASURED BODY RATES--
XCH RHO
EXTEND
@ -268,9 +268,9 @@ KMATRIX CA ATTSEC
TC NOVAC # MATRIX FROM GIMBAL AXES TO BODY AXES
EBANK= KMPAC
2CADR AMBGUPDT
CAF NINE
TENTHSEK TS ATTSEC
# Page 1007
@ -336,7 +336,7 @@ DELOOP TS SPNDX
DXCH CDUXD
CCS SPNDX
TCF DELOOP
# Page 1009
# RCS-CSM AUTOPILOT ATTITUDE ERROR DISPLAY
#
@ -373,7 +373,7 @@ DACNDLS CS RCSFLAGS # ALTERNATE BETWEEN FDAIDSP1 AND FDAIDSP2
MASK BIT4
EXTEND
BZF FDAIDSP2
FDAIDSP1 ADS RCSFLAGS
TC NEEDLER
KRESUME1 TCF RESUME # END PHASE 1
@ -445,7 +445,7 @@ NEEDLER CAF BIT4 # CHECK FOR COARSE ALIGN ENABLE
MASK BIT3
ADS RCSFLAGS
TC Q
NEEDLER1 CA RCSFLAGS
MASK SIX
EXTEND
@ -453,7 +453,7 @@ NEEDLER1 CA RCSFLAGS
MASK BIT3
EXTEND
BZF NEEDLER2 # BIT3 = 0, BIT2 = 1
CS BIT6 # FIRST PASS BIT3 = 1
EXTEND # DISABLE IMU ERROR COUNTER TO ZERO DACS
WAND CHAN12 # MUST WAIT AT LEAST 60 MS. BEFORE
@ -462,7 +462,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS.
TS AK1
TS AK2
TS EDRIVEX # ZERO THE DISPLAY REGISTERS
TS EDRIVEY
TS EDRIVEY
TS EDRIVEZ
TS CDUXCMD # ZERO THE OUT COUNTERS
TS CDUYCMD
@ -472,7 +472,7 @@ NEEDLE11 CS ZERO # ENABLING COUNTERS.
AD BIT2
TS RCSFLAGS
TC Q # END PASS1
NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
EXTEND
WOR CHAN12
@ -481,7 +481,7 @@ NEEDLER2 CAF BIT6 # ENABLE IMU ERROR COUNTERS
MASK RCSFLAGS # ERRORS WAIT AT LEAST 4 MS FOR
TS RCSFLAGS # RELAY CLOSURE
TC Q
NEEDLES3 CAF BIT6 # CHECK TO SEE IF IMU ERROR COUNTER
EXTEND # IS ENABLED
RAND CHAN12
@ -518,7 +518,7 @@ DACLOOP TS SPNDX
EXTEND
WOR CHAN14 # SET DAC ACTIVITY BITS
TC Q
REINIT CAF DELAY200 # ........TILT LOGIC
TS TIME5 # REINITIALIZE DAP IN 200MS
TS T5PHASE
@ -527,10 +527,10 @@ DELAY200 DEC 16364 # 200MS
DEC -384
# Page 1013
# Page 1013
DACLIMIT DEC 16000
DEC 384
# Page 1014
# INITIALIZATION PROGRAM FOR RCS-CSM AUTOPILOT
#
@ -549,13 +549,13 @@ DACLIMIT DEC 16000
FRESHDAP CAF ONE # RESET HOLDFLAG TO STOP AUTOMATIC
TS HOLDFLAG # STEERING AND PREPARE TO PICK UP AN
# ATTITUDE HOLD REFERENCE
REDAP TC IBNKCALL # DECODE DAPDATR1, DAPDATR2 FOR DEADBANDS
CADR S41.2 # RATES, QUADFAILS, QUAD MANAGEMENT
TC IBNKCALL # DECODE IXX, IAVG, AND CONVERT
CADR S40.14 # TO AUTOPILOT GAINS
CAF NO.T5VAR # NO. LOCATIONS TO BE ZEROED MINUS ONE
ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
CAF ZERO
@ -564,23 +564,23 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
CCS SPNDX
TCF ZEROT5
TCR ZEROJET
CS ZERO
TS CHANTEMP # INITIALIZE MINIMUM IMPULSE CONTROL
TS CH31TEMP # INITIALIZE RHC POSITION MEMORY FOR
# MANUAL RATE MODES
CAF =.24
TS SLOPE # INITIALIZE SWITCHING LOGIC SLOPE
CAF FOUR
TS T5TIME # PHASE 0 RESETS FOR PHASE 2 INTERRUPT IN
# 60 MS. PHASE 2 RESETS FOR PHASE 1 RUPT
# IN (80MS - T5TIME(40MS)). THEREFORE
# PHASE 1 (RATEFILTER) BEGINS CYCLING 100
# MS FROM NOW AND EVERY 100MS THEREAFTER.
CAF ELEVEN
TS ATTKALMN # RESET TO PICK UP KALMAN FILTER TAINS
# TO INITIALIZE THE S/C ANGULAR RATES
@ -593,7 +593,7 @@ ZEROT5 TS SPNDX # ZERO ALL NECESSARY ERASABLE REGISTERS
TS RHO2
CAF ZERO # RESET AUTOPILOT TO BEGIN EXECUTING
TS T5PHASE # PHASE2 OF PROGRAM
CS IMODES33 # CHECK IMU STATUS
MASK BIT6 # IF BIT6 = 0 IMU IN FINE ALIGN
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
TCF RCSSWIT # DON'T START UP RATE FILTER
# SIGNAL NO RATE FILTER
IMUAOK CAF PRIO34 # START MATRIX INITIALIZATION
TC NOVAC # BYPASS IF IMU NOT IN FINE ALIGN
EBANK= KMPAC
2CADR AMBGUPDT
CAF RCSINIT # CLEAR BIT14 --ASSUME WE HAVE A GOOD IMU
RCSSWIT TS RCSFLAGS # CLEAR BIT1 --INITIALIZE T6 PROGRAM
# 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
# FILTER WILL BEGIN OPERATING ZOOMS FROM
# NOW
# CONSTANTS USED IN INITIALIZATION PROGRAM
NO.T5VAR DEC 36
@ -633,22 +633,22 @@ T6ADDR 2CADR T6START
ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2,
TS SPNDX # YWORD1, PWORD2, PWORD1, RWORD2,
CAF ZERO # AND RWORD1
# Page 1016
INDEX SPNDX
TS RWORD1
CCS SPNDX
TCF ZEROJET +1
CAF FOUR
TS BLAST1 +1
CAF ELEVEN
TS BLAST2 +1
CS BIT1
MASK RCSFLAGS
TS RCSFLAGS # RESET BIT1 OF RCSFLAGS TO 0
EXTEND
DCA T6ADDR
DXCH T6LOC
@ -657,18 +657,18 @@ ZEROJET CAF ELEVEN # ZERO BLAST2, BLAST1, BLAST, YWORD2,
CAF BIT15
EXTEND
WOR CHAN13
TC Q
T5PHASE2 CCS ATTKALMN # IF (+) INITIALIZE RATE ESTIMATE
TCF KALUPDT
TCF +2 # ONLY IF ATTKALMN POSITIVE
TCF +1
CA DELTATT2 # RESET FOR PHASE3 IN 20 MS
XCH TIME5 # (JET SELECTION LOGIC)
ADS T5TIME # TO COMPENSATE FOR DELAYS IN T5RUPT
CA RCSFLAGS # IF A HIGH RATE AUTO MANEUVER IS IN
MASK BIT15 # PROGRESS (BIT 15 OF RCSFLAGS SET), SET
EXTEND # ATTKALMN TO -1
@ -682,7 +682,7 @@ NOHIAUTO TS ATTKALMN
CS OCT01760 # RESET FORCED FIRING BITS (BITS 10 TO 5
MASK RCSFLAGS # OF RCSFLAGS) TO ZERO
TS RCSFLAGS
EXTEND
READ CHAN31
TS L
@ -692,10 +692,10 @@ NOHIAUTO TS ATTKALMN
MASK MANROT # = OCT00077
EXTEND
BZMF NOCHANGE
LXCH A
TS CH31TEMP # SAVE CONTENTS OF CHANNEL 31 IN CH31TEMP
CA L
EXTEND
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
# ROLL, BITS 8,7 FOR YAW, BITS 6,5 FOR
# PITCH
CS RCSFLAGS # SET RATE DAMPING FLAGS (BITS 13,12, AND
MASK OCT16000 # 11 OF RCSFLAGS)
ADS RCSFLAGS
NOCHANGE CS CH31TEMP
MASK MANROT
EXTEND
BZMF AHFNOROT # IF NO MANUAL COMMANDS, GO TO AHFNOROT
TS HOLDFLAG # SET HOLDFLAG +
TC STICKCHK # WHEN THE RHC IS OUT OF DETENT, PMANNDX,
# YMANNDX, AND RMANNDX ARE ALL SET, BY
# 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
# Page 1018
# VALUES.
CS FLAGWRD1 # SET STIKFLAG TO INFORM STEERING
MASK BIT14 # PROGRAMS (P20) THAT ASTRONAUT HAS
ADS FLAGWRD1 # ASSUMED ROTATIONAL CONTROL OF SPACECRAFT
CAF BIT14
EXTEND
RAND CHAN31
EXTEND
BZMF FREEFUNC
CA RCSFLAGS # EXAMINE RCSFLAGS TO SEE IF RATE FILTER
MASK BIT14 # HAS BEEN INITIALIZED
CCS A # IF SO, PROCEED WITH MANUAL RATE COMMANDS
TCF REINIT # .....TILT, RECYCLE TO INITIALIZE FILTER
CS FIVE # IF MANUAL MANEUVER IS AT HIGH RTE, SET
AD RATEINDX # ATTKALMN TO -1.
EXTEND # OTHERWISE, LEAVE ATTKALMN ALONE.
BZMF +3
CS ONE
TS ATTKALMN
CAF TWO # AUTO-HOLD MANUAL ROTATION
SETWBODY TS SPNDX
DOUBLE
@ -762,7 +762,7 @@ SETWBODY TS SPNDX
EXTEND # = 2 - ROTATION
BZF NORATE # IF NO ROTATION COMMAND ON THIS AXIS,
# GO TO NORATE.
AD RATEINDX # RATEINDX = 0 0.05 DEG/SEC
TS Q # = 2 0.2 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
INDEX DPNDX # TO GET COMMANDED RATE.
DXCH WBODY # SET WBODY TO COMMANDED RATE.
CA RCSFLAGS
MASK OCT16000 # IS RATE DAMPING COMPLETED (BITS 13,12 AND
EXTEND # 11 OF RCSFLAGS ALL ZERO.) IF SO, GO TO
@ -784,7 +784,7 @@ ZEROER CA ZERO # ZEROER ZEROS MERRORS
INDEX DPNDX
DXCH MERRORX
TCF SPNDXCHK
NORATE ZL
INDEX DPNDX
DXCH WBODY # ZERO WBODY FOR THIS AXIS
@ -793,14 +793,14 @@ NORATE ZL
EXTEND # IS RATE DAMPING COMPLETED
BZF SPNDXCHK # YES, KEEP CURRENT MERRORX GO TO SPNDXCHK
TCF ZEROER # NO, GO TO ZEROER
MERUPDAT INDEX Q # MERRORX=MERRORX+MEASURED CHANGE IN ANGLE
CS MANTABLE -1 # -COMMANDED CHANGE IN ANGLE
EXTEND # THE ADDITION OF MEASURED CHANGE IN ANGLE
MP BIT7 # HAS ALREADY BEEN DONE IN THE RATE FILTER
INDEX DPNDX # COMMANDED CHANGE IN ANGLE = WBODY TIMES
DAS MERRORX # .1SEC = MANTABLE ENTRY TIMES 2 TO THE -8
SPNDXCHK INDEX DPNDX
CA MERRORX
INDEX SPNDX
@ -808,7 +808,7 @@ SPNDXCHK INDEX DPNDX
CCS SPNDX
TCF SETWBODY
TCF JETS
OCT01760 OCT 01760 # FORCED FIRING BITS MASK
OCT01400 OCT 01400 # ROLL FORCED FIRING MASK ORDER OF
@ -838,18 +838,18 @@ FREEFUNC INDEX RMANNDX # ACCELERATION
CA FREETAU # (+3) 0 SEC
TS TAU2
TCF T6PROGM
FREETAU DEC 0
DEC 480
DEC -480
DEC 0
T6PROGM CAF ZERO # FOR MANUAL ROTATIONS
TS ERRORX
TS ERRORY
TS ERRORZ
TCF T6PROG
# Page 1021
DEC .2112 # FILTER GAIN FOR TRANSLATION, LEM ON
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 .8151
DEC .9342
DEC .0174 # FILTER GAIN FOR TRANSLATION, LEM ON
DEC .3600 # FILTER GAIN FOR TRANSLATION (WN)(WN)DT
DEC .0174 # FILTER GAIN FOR 4 DEGREE/SEC MANEUVERS
@ -896,7 +896,7 @@ STICKCHK TS T5TEMP
TC Q
KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING
# KALMAN FILTER TAKES 1.1 SEC
CA DELTATT # =1SEC - 80MS
AD T5TIME # + DELAYS
# Page 1022
@ -904,15 +904,15 @@ KALUPDT TS ATTKALMN # INITIALIZATION OF ATTITUDE RATES USING
TCF +3
CAF DELTATT2 # SAFETY PLAY TO ASSURE
TS TIME5 # A T5RUPT
KRESUME2 CS ZERO # RESET FOR PHASE1
TS T5PHASE # RESUME INTERRUPTED PROGRAM
TCF RESUME
FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1
MASK RCSFLAGS
TS RCSFLAGS
CS FLAGWRD0 # ON - DISPLAY ONE OF THE TOTAL ATTITUDE
MASK BIT9 # ERRORS
EXTEND
@ -923,7 +923,7 @@ FDAIDSP2 CS BIT4 # RESET FOR FDAIDSP1
CS ERRORZ
TS AK2
TCF RESUME # END PHASE 1
FDAITOTL CA FLAGWRD9
MASK BIT6
EXTEND
@ -933,7 +933,7 @@ WRTN22 EXTEND # OTHERWISE, CONTINUE ON TO WRTN22 AND
DCA CTHETA # GET SET TO COMPUTE TOTAL ATTITUDE
DXCH WTEMP # ERROR WRT N22 BY PICKING UP THE THREE
CA CPHI # COMPONENTS OF N22
GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR
MSU CDUX # DISPLAY ON FDAI ERROR NEEDLES
TS AK
@ -965,12 +965,12 @@ GETAKS EXTEND # COMPUTE TOTAL ATTITUDE ERROR FOR
MP AMGB8
ADS AK2
TCF RESUME # END PHASE1 OF RCS DAP
WRTN17 EXTEND # GET SET TO COMPUTE TOTAL ASTRONAUT
DCA CPHIX +1 # ATTITUDE ERROR WRT N17 BY PICKING UP
DXCH WTEMP # THE THREE COMPONENTS OF N17
CA CPHIX
TCF GETAKS
# Page 1024 (empty page)

334
Comanche055/REENTRY_CONTROL.agc
View File

File diff suppressed because it is too large Load Diff

20
Comanche055/RESTARTS_ROUTINE.agc
View File

@ -8,16 +8,16 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -39,7 +39,7 @@
EBANK= PHSNAME1 # GOPROG MUST SWITCH TO THIS EBANK
COUNT 01/RSROU
RESTARTS CA MPAC +5 # GET GROUP NUMBER -1
DOUBLE # SAVE FOR INDEXING
TS TEMP2G
@ -107,7 +107,7 @@ TIMETEST CCS A # IS IT AN IMMEDIATE RESTART
BANK
COUNT 02/RSROU
ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
LXCH BB # SWITCHED ERASABLE
@ -126,7 +126,7 @@ ITSINDIR LXCH GOLOC +1 # GET THE CORRECT E BANK IN CASE THIS IS
BANK
COUNT 01/RSROU
FINDTIME COM # MAKE NEGATIVE SINCE IT WILL BE SUBTRACTED
TS L # AND SAVE
NDX TEMP2G
@ -225,7 +225,7 @@ CONTBL2 EXTEND # FIND OUT WHAT'S IN THE TABLE
BANK
COUNT 02/RSROU
ITSLGCL1 LXCH GOLOC +1 # OBTAIN THE CORRECT E BANK
LXCH BB
LXCH GOLOC +1 # AND PRESERVE OUR E AND F BANKS

36
Comanche055/RT8_OP_CODES.agc
View File

@ -8,14 +8,14 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# 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.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -59,7 +59,7 @@ CDULOGIC CCS MPAC
MP HALF
DAS MPAC
TCF DANZIG # MODE IS ALREADY AT DOUBLE-PRECISION
# READ THE PIPS INTO MPAC WITHOUT CHANGING THEM:
READPIPS INHINT
@ -70,7 +70,7 @@ READPIPS INHINT
CA PIPAZ
RELINT
TS MPAC +5
CAF ZERO
TS MPAC +1
TS MPAC +4
@ -80,9 +80,9 @@ VECMODE TCF VMODE
# FORCE TP SIGN AGREEMENT IN MPAC:
SGNAGREE TC TPAGREE
# Page 1509
TCF DANZIG
# 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.
CAE MPAC # INCREMENT IN 1'S COMPL.
TC CDUINC
INCR BUF
CAE MPAC +3
TC CDUINC
INCR BUF
CAE MPAC +5
TC CDUINC
TCF VECMODE
LOCTHETA ADRES THETAD
# 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
EBANK= XNB
TRANSP1 CAF XNBEB
TS EBANK
DXCH XNB +2
DXCH XNB +6
DXCH XNB +2
DXCH XNB +4
DXCH XNB +12D
DXCH XNB +4
DXCH XNB +10D
DXCH XNB +14D
DXCH XNB +10D
TCF DANZIG
EBANK= XNB1
TRANSP2 CAF XNB1EB
TS EBANK
DXCH XNB1 +2
DXCH XNB1 +6
DXCH XNB1 +2
DXCH XNB1 +4
DXCH XNB1 +12D
DXCH XNB1 +4
DXCH XNB1 +10D
DXCH XNB1 +14D
DXCH XNB1 +10D

6
Comanche055/S-BAND_ANTENNA_FOR_CM.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -34,10 +34,10 @@
BANK 23
SETLOC SBAND
BANK
COUNT* $$/R05
EBANK= EMSALT
SBANDANT TC BANKCALL # V 64 E GETS US HERE
CADR R02BOTH # CHECK IF IMU IS ON AND ALIGNED
TC INTPRET

170
Comanche055/SERVICER207.agc
View File

@ -10,11 +10,11 @@
# Mod history: 2009-05-12 RSB Adapted from Colossus249 file of the same
# name and Comanche 055 page images.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -86,7 +86,7 @@
#
# 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.
#
# QUIKREAD
@ -123,7 +123,7 @@
# SEQUENCE MAY BE REPEATED.
# ENGINOF3 PERFORMED.
# DAP SET UP FOR RCS.
#
#
# AVERAGE G
# Page 821
# RN1, VN1, GDT1/2 CALCULATED VIA CALCRVG ROUTINE BY UPDATING RN, VN WITH DELV AND AN AVERAGED VALUE
@ -204,17 +204,17 @@
BANK 27
SETLOC SERVICES
BANK
EBANK= DVCNTR
# ********************* PREREAD ***************************************
COUNT 37/SERV
PREREAD CAF PRIO21 # CALLER MUST PROTECT PREREAD
TC NOVAC
EBANK= NBDX
2CADR LASTBIAS # DO LAST GYRO COMPENSATION IN FREE FALL
# CALL-TO AND LASTBIAS ITSELF ARE NOT
# PROTECTED. REREADAC SETS 1/PIPADT
# 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
EBANK= DVCNTR # FIRST AVERAGE G PASS
2CADR NORMLIZE
CAF 2SECS
TC WAITLIST
EBANK= AOG
2CADR READACCS
CS TWO
TC NEWPHASE
OCT 5
TCF TASKOVER
PREREAD1 EXTEND
QXCH RUPTREG1
TC PIPASR # CLEAR + READ PIPS LAST TIME IN FREE FALL
CAF ONE # SET UP PIPAGE FOR REREADAC IN CASE A
TS PIPAGE # RESTART OCCURS BEFORE READACCS
CS FLAGWRD1 # SET AVEG FLAG
MASK BIT1
ADS FLAGWRD1
CA POSMAX
MASK FLAGWRD2
TS FLAGWRD2 # KNOCK DOWN DRIFT FLAG
CS FLAGWRD7 # SET V37 FLAG
MASK BIT6
ADS FLAGWRD7
CAF ZERO
TS DVTOTAL # CLEAR DVTOTAL
TS DVTOTAL +1
TC RUPTREG1
# Page 824
@ -273,18 +273,18 @@ PIPSDONE CAF FIVE
TS L
COM
DXCH -PHASE5
REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
TS PIPAGE
CA TWO # SET PIPCTR FOR ONMINTOR
TS PIPCTR # AFTER ABOVE PHASCHNG
CS CM/FLAGS
MASK BIT2 # CM/DSTBY
CCS A
TC CHEKAVEG
CS PIPTIME1 +1
TS TBASE6 # FOR RESTARTS
EXTEND # CONTINUE FOR ENTRY DAP
@ -301,17 +301,17 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
MASK BIT12 # CM/DAPARM 93D BIT12
EXTEND # DURING ENTRY, WHEN RCS DAP IS INACTIVE,
BZF NOSAVPIP # SAVE PIPAS EACH 0.5 SEC FOR TM.
CA 0.5SEC
TC WAITLIST
EBANK= XPIPBUF
2CADR QUIKREAD
# NO NEED TO RESTART PROTECT THIS.
CA DELVX # SAVE PIPAS AS READ (BUT NOT COMPENSATED)
XCH XPIPBUF
TS XOLDBUF
CA DELVY
XCH YPIPBUF
TS YOLDBUF
@ -319,56 +319,56 @@ REDO5.5 CAF ONE # SHOW PIPS HAVE BEEN READ
CA DELVZ
XCH ZPIPBUF
TS ZOLDBUF
NOSAVPIP CA FIVE
TS CM/GYMDT
CA JTAGTIME # ACTIVATE CM/RCS AFTER PIPUP TO GO
# IN JTAGTIME +5 CS.
TC WAITLIST
EBANK= AOG
2CADR SETJTAG
CS THREE # 1.3SPOT FOR SETJTAG
TC NEWPHASE
OCT 1
CAF OCT37
TS L
COM
DXCH -PHASE5
CHEKAVEG CS FLAGWRD1
MASK BIT1
CCS A # IF AVEG FLAG DOWN SET FINAL EXIT AVEG
TC AVEGOUT
CAF 2SECS
TC WAITLIST
EBANK= AOG
2CADR READACCS
MAKESERV CAF PRIO20 # ESTABLISH SERVICER ROUTINE
TC FINDVAC
EBANK= DVCNTR
2CADR SERVICER
CS FOUR # RESTART SERVICER AND READACCS
TC NEWPHASE
OCT 5
CAF BIT9
EXTEND
WOR DSALMOUT # TURN TEST CONNECTOR OUTBIT ON
TCF TASKOVER # END PREVIOUS READACCS WAITLIST TASK
# Page 826
AVEGOUT EXTEND
DCA AVOUTCAD
DXCH AVGEXIT
TCF MAKESERV
EBANK= DVCNTR
AVOUTCAD 2CADR AVGEND
@ -428,7 +428,7 @@ CHKCTR CCS RUPTREG1
# ********************* SERVICER ***************************************
EBANK= DVCNTR
SERVICER CAF TWO
INHINT
PIPCHECK TS RUPTREG1
@ -438,48 +438,48 @@ PIPCHECK TS RUPTREG1
CCS DELVX
TC +2
TC PIPLOOP
AD -MAXDELV # DO PIPA-SATURATION TEST BEFORE
EXTEND
BZMF PIPLOOP # COMPENSATION.
TC ALARM
OCT 00205 # SATURATED-PIPA ALARM ***CHANGE LATER
TC AVERAGEG
PIPLOOP CCS RUPTREG1
TCF PIPCHECK
TC PHASCHNG # RESTART REREADAC + SERVICER
OCT 16035
OCT 20000
EBANK= DVCNTR
2CADR DVTOTUP
TC BANKCALL # PIPA COMPENSATION CALL
CADR 1/PIPA
DVTOTUP TC INTPRET
VLOAD ABVAL # GET ABS VALUE OF DELV
DELV
DMP EXIT
KPIP1 # SCALE AT 2(+7)
EXTEND
DCA MPAC
DAS DVTOTAL # ACCUMULATE DVTOTAL
AVERAGEG TC PHASCHNG
OCT 10035
TC INTPRET
CALL
# Page 829
CALCRVG
EXIT
TC PHASCHNG
OCT 10035
CAF OCT31 # COPY RN1,VN1,GOT102,GOBL1/2,PIPTIME1
TC GENTRAN # INTO RN, VN, GDT/12, GOBL/2,PIPTIME
ADRES RN1
@ -491,37 +491,37 @@ AVERAGEG TC PHASCHNG
EXTEND
DCA AVGEXIT
DXCH Z # AVERAGEG EXIT
AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
TS OLDBT1 # SET UP FREE FALL GYRO COMPENSATION
TC UPFLAG # SET DRIFTFLG
ADRES DRIFTFLG # BIT 15 FLAG 2
TC 2PHSCHNG
OCT 5 # GROUP 5 OFF
OCT 05022 # GROUP 2 ON FOR AVETOMID
OCT 20000
TC INTPRET
CALL
AVETOMID # CONVERT STATE VECTOR TO REFERENCE SCALE.
EXIT
CAF ZERO # ZERO MARK COUNTERS.
TS VHFCNT
TS TRKMKCNT
TC BANKCALL
CADR PIPFREE
CS BIT9
TS MRKBUF2 # INVALIDATE MARK BUFFER
EXTEND
WAND DSALMOUT
TC DOWNFLAG
ADRES CM/DSTBY
TC DOWNFLAG
ADRES V37FLAG
@ -530,23 +530,23 @@ AVGEND CA PIPTIME +1 # FINAL AVERAGE G EXIT
MASK FLAGWRD0
EXTEND
BZF +4
TC 2PHSCHNG
OCT 111 # 1.11SPOT
OCT 132 # 2.13SPOT
TC POSTJUMP
CADR CANV37
SERVEXIT TC PHASCHNG
OCT 00035 # A, 5.3 = REREADAC (ONLY)
TCF ENDOFJOB
DVTHRUSH EQUALS ELEVEN # 15 PERCENT OF 2SEC PIPA ACCUMULATION,
# FOR 503-FULL CSM/LEM....DELV SC.AT
# 5.85 CM/SEC.
-MAXDELV DEC -6398 # 3200 PPS FOR 2 SEC CCS TAKES 1
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
# SHOULD BE 2-4 SECS FOR NO START
# 6-8 SECS FOR FAILURE
# Page 831
# 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
@ -565,19 +565,19 @@ NORMLIZE CAF THIRTEEN # SET UP TO COPY 14 REGS: RN1,VN1,PIPTIME1
TC GENTRAN # INTO RN,VN,PIPTIME
ADRES RN1 # FROM HERE
ADRES RN # TO HERE
RELINT
TC INTPRET
VLOAD CALL # LOAD RN FOR CALCGRAV
RN
CALCGRAV # INITIALIZE UNITR RMAG GDT1
STOVL GDT/2
GOBL1/2
STORE GOBL/2
EXIT
TCF ENDOFJOB
# Page 832
# ***** PIPA READER *****
# MOD NO. 00 BY D. LICKLY DEC. 9 1966
@ -625,47 +625,47 @@ PIPASR EXTEND
CA ZERO
TS DELVZ # OTHER DELVS OK INCLUDING LOW ORDER
TS DELVY
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 DELVZ +1 # CONTAIN PROPER COMPENSATION. IF=0, THEN
# THE TM VALUES ARE BEFORE COMPENSATION.
TS PIPAGE # SHOW PIPA READING IN PROGRESS
REPIP1 EXTEND
DCS PIPAX # X AND Y PIPS READ
DXCH TEMX
DXCH PIPAX # PIPAS SET TO NEG ZERO AS READ.
TS DELVX
LXCH DELVY
REPIP3 CS PIPAZ # REPEAT PROCESS FOR Z PIP
XCH TEMZ
XCH PIPAZ
DODELVZ TS DELVZ
TC Q
EBANK= AOG
REREADAC CCS PHASE5 # LAST PASS CHECK
TCF +2
TCF TASKOVER
CAF PRIO31 # RESTART MAY HAVE WIPED OUT LASTBIAS, AN
TS 1/PIPADT # UNPROTECTED NOVAC FROM PREREAD,
# WHICH SET(S) UP 1/PIPADT (THUSLY)
# FOR NON-COASTING COMPENSATION....BE
# SURE 1/PIPADT IS AOK. (PRIO31 IS
# 2.0SEC SC.AT B+8(CS)
CCS PIPAGE
TCF READACCS # PIP READING NOT STARTED. GO TO BEGINNING
CAF DONEADR # SET UP RETURN FROM PIPASR
TS Q
CCS DELVZ
TC Q # Z DONE, GO DO CDUS
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 +1
LXCH PIPAZ # Y DONE, ZERO Z PIP.
CCS TEMZ
CS TEMZ # TEMZ NOT = -0, CONTAINS -PIPAZ VALUE.
TCF DODELVZ
TCF -2
LXCH DELVZ # TEMZ = -0, L HAS ZPIP VALUE.
TC Q
CHKTEMX CCS TEMX # HAS THIS CHANGED
CS TEMX # YES
TCF +3 # YES
TCF -2 # YES
TCF REPIP1 # NO
TS DELVX
CS TEMY
TS DELVY
CS ZERO # ZERO X AND Y PIPS
DXCH PIPAX # L STILL ZERO FROM ABOVE
TCF REPIP3
DONEADR GENADR PIPSDONE
# Page 835
@ -777,13 +777,13 @@ CALCRVG VLOAD VXSC
31D
STCALL RN1 # TEMP STORAGE OF RN SCALED 2(+29)M
CALCGRAV
VAD VAD
VAD
VN
STCALL VN1 # TEMP STORAGE OF VN SCALED 2(+7) M/CS.
31D
KPIP 2DEC .1024 # SCALES DELV TO 2(+4)
KPIP1 2DEC 0.074880 # 207 DELV SCALING. 1 PULSE = 5.85 CM/SEC.

36
Comanche055/SERVICE_ROUTINES.agc
View File

@ -8,16 +8,16 @@
# Contact: Ron Burkey <info@sandroid.org>
# Website: http://www.ibiblio.org/apollo.
# Mod history: 2009-05-07 RSB Adapted from Colossus249 file of the same
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# name, and page images. Corrected various
# typos in the transcription of program
# comments, and these should be back-ported
# to Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -38,40 +38,40 @@
COUNT 03/FLAG
UPENT2 TS L # WHICH FLAGWORD IS IT
MASK OCT7
MASK OCT7
XCH L # SAVE IN L FOR INDEXING
MASK OCT77770 # OBTAIN THE BIT INFORMATION
INHINT # PREVENT INTERRUPTS
TS ITEMP1 # STORE THE BIT INFORMATION TEMPORARILY
NDX L
CS FLAGWRD0
MASK ITEMP1
NDX L
ADS FLAGWRD0
RELINT # RELEASE INTERRUPT INHIBIT
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
TC Q # RETURN
DOWNENT2 TS L # WHICH FLAGWORD IS IT
MASK OCT7
XCH L # SAVE IN L FOR INDEXING
MASK OCT77770 # OBTAIN THE BIT INFORMATION
COM # START TO PROCESS THE INFORMATION
INHINT # PREVENT INTERRUPTS
NDX L
MASK FLAGWRD0
NDX L
TS FLAGWRD0
RELINT # RELEASE INTERRUPT INHIBIT
INCR Q # OBTAIN THE CORRECT RETURN ADDRESS
TC Q
OCT7 EQUALS SEVEN
BANK 10
@ -256,16 +256,16 @@ TRFAILOF INHINT
CS OPTMODES # TO INSURE THAT OCDU FAIL WILL GO ON
MASK BIT7 # AGAIN IF IT WAS ON IN ADDITION TO
ADS OPTMODES # TRACKER FAIL.
REQ RELINT
TC Q
TRFAILON INHINT
CS DSPTAB +11D # TURN ON
MASK OCT40200
ADS DSPTAB +11D
TCF REQ

8
Comanche055/SINGLE_PRECISION_SUBROUTINES.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -33,7 +33,7 @@
# SINGLE PRECISION SINE AND COSINE
COUNT 02/INTER
SPCOS AD HALF # ARGUMENTS SCALED AT PI
SPSIN TS TEMK
TCF SPT
@ -66,7 +66,7 @@ POLLEY EXTEND
ARG90 INDEX A
CS LIMITS
TC Q # RESULT SCALED AT 1.
# SPROOT WAS DELETED IN REV 51 OF MASTER. ASS. CONT. HAS CARDS.

24
Comanche055/STABLE_ORBIT.agc
View File

@ -7,9 +7,9 @@
# Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
# Website: www.ibiblio.org/apollo.
# Pages: 525-532
# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0525.jpg - 0532.jpg.
# Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
# of the same name, using Comanche055 page
# images 0525.jpg - 0532.jpg.
#
# This source code has been transcribed or otherwise adapted from digitized
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -106,10 +106,10 @@
BANK 04
SETLOC STBLEORB
BANK
EBANK= SUBEXIT
COUNT* $$/P3879
P38 TC AVFLAGA # THIS VEHICLE ACTIVE
TC +2
P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
@ -207,7 +207,7 @@ JUNCTN2 DLOAD DSU
TINT
DELTTIME
STORE TARGTIME # TT = TI - DELTA T
# .... MAINRTNE ....
#
# SUBROUTINES USED
@ -275,7 +275,7 @@ DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
P39/79SW
P39/P79B
RECYCLE
# STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
#
# MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
@ -344,7 +344,7 @@ P39/P79B RTB DAD
DLOAD GOTO
TARGTIME
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
# .... PREC/TT ....
#
# SUBROUTINES USED
@ -378,7 +378,7 @@ PREC/TT STQ DLOAD
DLOAD GOTO
T
RTRN
# .... INTRPVP ....
#
# SUBROUTINES USED
@ -399,7 +399,7 @@ OTHERV CALL
LEMPREC
GOTO
RTRN
# .... VNDSPLY ....
#
# SUBROUTINES USED

90
Comanche055/STAR_TABLES.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -32,162 +32,162 @@
BANK 32
SETLOC STARTAB
BANK
COUNT 14/STARS
2DEC +.8342971408 B-1 # STAR 37 X
2DEC -.2392481515 B-1 # STAR 37 Y
2DEC -.4966976975 B-1 # STAR 37 Z
2DEC +.8139832631 B-1 # STAR 36 X
2DEC -.5557243189 B-1 # STAR 36 Y
2DEC +.1691204557 B-1 # STAR 36 Z
2DEC +.4541086270 B-1 # STAR 35 X
2DEC -.5392368197 B-1 # STAR 35 Y
2DEC +.7092312789 B-1 # STAR 35 Z
2DEC +.3201817378 B-1 # STAR 34 X
2DEC -.4436021946 B-1 # STAR 34 Y
2DEC -.8370786986 B-1 # STAR 34 Z
2DEC +.5520184464 B-1 # STAR 33 X
2DEC -.7933187400 B-1 # STAR 33 Y
2DEC -.2567508745 B-1 # STAR 33 Z
2DEC +.4537196908 B-1 # STAR 32 X
2DEC -.8779508801 B-1 # STAR 32 Y
2DEC +.1527766153 B-1 # STAR 32 Z
2DEC +.2069525789 B-1 # STAR 31 X
2DEC -.8719885748 B-1 # STAR 31 Y
2DEC -.4436288486 B-1 # STAR 31 Z
2DEC +.1217293692 B-1 # STAR 30 X
# Page 1390
# Page 1390
2DEC -.7702732847 B-1 # STAR 30 Y
2DEC +.6259880410 B-1 # STAR 30 Z
2DEC -.1124304773 B-1 # STAR 29 X
2DEC -.9694934200 B-1 # STAR 29 Y
2DEC +.2178116072 B-1 # STAR 29 Z
2DEC -.1146237858 B-1 # STAR 28 X
2DEC -.3399692557 B-1 # STAR 28 Y
2DEC -.9334250333 B-1 # STAR 28 Z
2DEC -.3516499609 B-1 # STAR 27 X
2DEC -.8240752703 B-1 # STAR 27 Y
2DEC -.4441196390 B-1 # STAR 27 Z
2DEC -.5326876930 B-1 # STAR 26 X
2DEC -.7160644554 B-1 # STAR 26 Y
2DEC +.4511047742 B-1 # STAR 26 Z
2DEC -.7861763936 B-1 # STAR 25 X
2DEC -.5217996305 B-1 # STAR 25 Y
2DEC +.3311371675 B-1 # STAR 25 Z
2DEC -.6898393233 B-1 # STAR 24 X
2DEC -.4182330640 B-1 # STAR 24 Y
2DEC -.5909338474 B-1 # STAR 24 Z
2DEC -.5812035376 B-1 # STAR 23 X
2DEC -.2909171294 B-1 # STAR 23 Y
2DEC +.7599800468 B-1 # STAR 23 Z
2DEC -.9170097662 B-1 # STAR 22 X
2DEC -.3502146628 B-1 # STAR 22 Y
# Page 1391
# Page 1391
2DEC -.1908999176 B-1 # STAR 22 Z
2DEC -.4523440203 B-1 # STAR 21 X
2DEC -.0493710140 B-1 # STAR 21 Y
2DEC -.8904759346 B-1 # STAR 21 Z
2DEC -.9525211695 B-1 # STAR 20 X
2DEC -.0593434796 B-1 # STAR 20 Y
2DEC -.2986331746 B-1 # STAR 20 Z
2DEC -.9656605484 B-1 # STAR 19 X
2DEC +.0525933156 B-1 # STAR 19 Y
2DEC +.2544280809 B-1 # STAR 19 Z
2DEC -.8608205219 B-1 # STAR 18 X
2DEC +.4636213989 B-1 # STAR 18 Y
2DEC +.2098647835 B-1 # STAR 18 Z
2DEC -.7742591356 B-1 # STAR 17 X
2DEC +.6152504197 B-1 # STAR 17 Y
2DEC -.1482892839 B-1 # STAR 17 Z
2DEC -.4657947941 B-1 # STAR 16 X
2DEC +.4774785033 B-1 # STAR 16 Y
2DEC +.7450164351 B-1 # STAR 16 Z
2DEC -.3612508532 B-1 # STAR 15 X
2DEC +.5747270840 B-1 # STAR 15 Y
2DEC -.7342932655 B-1 # STAR 15 Z
2DEC -.4118589524 B-1 # STAR 14 X
2DEC +.9065485360 B-1 # STAR 14 Y
2DEC +.0924226975 B-1 # STAR 14 Z
# Page 1392
# Page 1392
2DEC -.1820751783 B-1 # STAR 13 X
2DEC +.9404899869 B-1 # STAR 13 Y
2DEC -.2869271926 B-1 # STAR 13 Z
2DEC -.0614937230 B-1 # STAR 12 X
2DEC +.6031563286 B-1 # STAR 12 Y
2DEC -.7952489957 B-1 # STAR 12 Z
2DEC +.1371725575 B-1 # STAR 11 X
2DEC +.6813721061 B-1 # STAR 11 Y
2DEC +.7189685267 B-1 # STAR 11 Z
2DEC +.2011399589 B-1 # STAR 10 X
2DEC +.9690337941 B-1 # STAR 10 Y
2DEC -.1432348512 B-1 # STAR 10 Z
2DEC +.3507315038 B-1 # STAR 9 X
2DEC +.8926333307 B-1 # STAR 9 Y
2DEC +.2831839492 B-1 # STAR 9 Z
2DEC +.4105636020 B-1 # STAR 8 X
2DEC +.4988110001 B-1 # STAR 8 Y
2DEC +.7632988371 B-1 # STAR 8 Z
2DEC +.7032235469 B-1 # STAR 7 X
2DEC +.7075846047 B-1 # STAR 7 Y
2DEC +.0692868685 B-1 # STAR 7 Z
2DEC +.5450107404 B-1 # STAR 6 X
2DEC +.5314955466 B-1 # STAR 6 Y
2DEC -.6484410356 B-1 # STAR 6 Z
2DEC +.0130968840 B-1 # STAR 5 X
# Page 1393
# Page 1393
2DEC +.0078062795 B-1 # STAR 5 Y
2DEC +.9998837600 B-1 # STAR 5 Z
2DEC +.4917678276 B-1 # STAR 4 X
2DEC +.2204887125 B-1 # STAR 4 Y
2DEC -.8423473935 B-1 # STAR 4 Z
2DEC +.4775639450 B-1 # STAR 3 X
2DEC +.1166004340 B-1 # STAR 3 Y
2DEC +.8708254803 B-1 # STAR 3 Z
2DEC +.9342640400 B-1 # STAR 2 X
2DEC +.1735073142 B-1 # STAR 2 Y
2DEC -.3115219339 B-1 # STAR 2 Z
2DEC +.8748658918 B-1 # STAR 1 X
2DEC +.0260879174 B-1 # STAR 1 Y
2DEC +.4836621670 B-1 # STAR 1 Z
CATLOG DEC 6970

112
Comanche055/SXTMARK.agc
View File

@ -10,11 +10,11 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 16/05/09 FB Transcription Batch 2 Assignment.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -32,7 +32,7 @@
# PROGRAM NAME: SXTMARK DATE: 5 APRIL 1967
# PROGRAM MODIFIED BY 258/278 PROGRAMMERS LOG SECTION SXTMARK
# MOD BY: R. MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 116
#
#
# FUNCTIONAL DESCRIPTION:
#
# SXTMARK IS CALLED FROM INTERNAL ROUTINES WHICH MAY REQUIRE STAR OR LANDMARK MARKINGS BY THE ASTRONAUT. IF
@ -74,13 +74,13 @@
BANK 13
SETLOC SXTMARKE
BANK
EBANK= MRKBUF1
COUNT 07/SXTMK
SXTMARK INHINT
TS RUPTREG1 # NUMBER OF MARKS WANTED
CAF SIX # BIT2 = MARKING SYSTEM IN USE
MASK EXTVBACT # BIT3 = EXTENDED VERB IN PROGRESS
CCS A
@ -89,7 +89,7 @@ SXTMARK INHINT
CAF BIT2 # NOT SET
ADS EXTVBACT # SET IT, RESET IN ENDMARK
TC MARKOK # YES, FIND VAC AREA
MKABORT TC BAILOUT
OCT 01211
MARKOK CCS VAC1USE # FIND VAC AREA
@ -104,16 +104,16 @@ MARKOK CCS VAC1USE # FIND VAC AREA
TC MKVACFND
TC BAILOUT
OCT 01207
MKVACFND AD TWO # ADDRESS OF VAC AREA
TS MARKSTAT
INDEX A
TS QPRET # STORE NEXT AVAILABLE MARK SLOT
CAF ZERO # STORE VAC AREA OCCUPIED
INDEX MARKSTAT
TS 0 -1
TC CHECKMM # BACKUP MARK ROUTINE USES SXTMARK
MM 53
TCF +2
@ -127,15 +127,15 @@ MKVACFND AD TWO # ADDRESS OF VAC AREA
MP RUPTREG1
XCH L
ADS MARKSTAT
CAF PRIO32 # ENTER MARK JOB
TC NOVAC
EBANK= MARKSTAT
2CADR MKVB51
RELINT
TCF SWRETURN # SAME AS MODEEXIT
# Page 224
# PROGRAM NAME: MKRELEAS DATE: 5 APRIL 1967
# PROGRAM MODIFIED BY 248/278 PROGRAMMERS LOG SECTION SXTMARK
@ -181,14 +181,14 @@ MKRLEES INHINT
CS BIT9 # COARSE OPTICS RETURN FLAG.
MASK OPTMODES
TS OPTMODES
CA NEGONE
TS OPTIND # KILL COARSE OPTICS
CS BIT2 # DISABLE OPTICS ERROR COUNTER
EXTEND
WAND CHAN12
RELINT
TC SWRETURN
# Page 225
@ -244,23 +244,23 @@ MARKRUPT TS BANKRUPT # STORE CDUS AND OPTICS NOW
EXTEND
DCA MKT2T1
DXCH SAMPTIME # RUPT TIME FOR NOUN 65.
XCH Q
TS QRUPT
CAF BIT6 # SEE IF MARK OR MKREJECT
# Page 226
EXTEND
RAND NAVKEYIN
CCS A
TC MARKIT # IT'S A MARK
CAF BIT7 # NOT A MARK, SEE IF MKREJECT
EXTEND
RAND NAVKEYIN
CCS A
TC MKREJECT # IT'S A MARK REJECT
KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
EXTEND
RAND NAVKEYIN
@ -268,11 +268,11 @@ KEYCALL CAF OCT37 # NOT MARK OR MKREJECT, SEE IF KEYCODE
BZF +3 # IF NO INBITS
TC POSTJUMP
CADR KEYCOM # IT'S A KEY CODE, NOT A MARK.
+3 TC ALARM # ALARM IF NO INBITS
OCT 113
TC RESUME
# Page 227
# PROGRAM NAME: MARKCONT DATE: 19 SEPT 1967
# 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
ADRES MRKBUF1
ADRES MRKBUF2
CAF SIX # TRANSFER CURRENT MARK DATE TO MARKBUF1
TC GENTRAN
ADRES MKT2T1
ADRES MRKBUF1
TCF TASKOVER
MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
TC MARK2 # COLLECT MARKS
CAF TWO # IS MARKING SYSTEM IN USE (BIT2)
MASK EXTVBACT
EXTEND
@ -363,7 +363,7 @@ MARKET CCS MARKSTAT # SEE IF MARKS CALLED FOR
TC NOVAC # SPECIAL DISPLAY JOB
EBANK= MRKBUF1
2CADR MARKDISP
CAF SIX
TC GENTRAN # TRANSFER MARK DATE TO MARKDOWN
ADRES MKT2T1
@ -379,7 +379,7 @@ MARKET3 TC ALARM
114ALM TC ALARM # MARK NOT WANTED
OCT 114
TCF TASKOVER
# Page 229
# STORE MARK DATA IN MKVAC AND INCREMENT POINTER
@ -390,7 +390,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
COM
MASK BIT10 # SET BIT10 TO ENABLE REJECT
ADS MARKSTAT
MASK LOW9
TS ITEMP1
INDEX A
@ -399,7 +399,7 @@ MARK2 AD 74K # SEE IF MARKS WANTED-REDUCE MARKS WANTED
AD SEVEN # INCREMENT POINTER
INDEX ITEMP1
TS QPRET # STORE ADVANCED POINTER
VACSTOR EXTEND
DCA MKT2T1
INDEX ITEMP2
@ -419,7 +419,7 @@ VACSTOR EXTEND
CA MKCDUX
INDEX ITEMP2
TS 6
CAF PRIO34 # IF ALL MARKS MADE FLASH VB50
MASK MARKSTAT
EXTEND
@ -429,9 +429,9 @@ VACSTOR EXTEND
TC NOVAC
EBANK= MARKSTAT
2CADR MKVB50
TCF TASKOVER
# Page 230
# PROGRAM NAME: MKREJECT DATE: 5 APRIL 1967
# 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
OCT 112
TC RESUME
REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
MASK MARKSTAT # REJECT, AND SET BIT10 TO ZERO TO
XCH MARKSTAT # SHOW MARK REJECT
@ -494,18 +494,18 @@ REJECT2 CS BIT10 # SEE IF MARK HAD BEEN MADE SINCE LAST
MASK BIT10
CCS A
TC REJECT3
TC ALARM # DON'T ACCEPT TWO REJECTS TOGETHER
OCT 110
TC RESUME
REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
MASK MARKSTAT
TS ITEMP1
CS SEVEN
INDEX ITEMP1
ADS QPRET # NEW POINTER
CAF BIT12 # INCREMENT MARKS WANTED AND IF FIELD
AD MARKSTAT # IS NOW NON-ZERO, CHANGE TO VB51 TO
XCH MARKSTAT # INDICATE MORE MARKS WANTED
@ -516,9 +516,9 @@ REJECT3 CAF LOW9 # DECREMENT POINTER TO REJECT MARK
TC NOVAC
EBANK= MARKSTAT
2CADR MKVB51
TC RESUME
# Page 232
# PROGRAM DESCRIPTION MKVB51 AND MKVB50
#
@ -553,7 +553,7 @@ MKVB51 TC BANKCALL # CLEAR DISPLAY FOR MARK VERB
TCF TERMSXT # VB34-TERMINATE
TCF ENTANSWR # V33-PROCEED-MARKING DONE
TCF MKVB5X # ENTER-RECYCLE TO INITIAL MARK DISPLAY
TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
TC CHECKMM
@ -562,7 +562,7 @@ TERMSXT TC CLEARMRK # CLEAR MARK ACTIVITY.
TC TERMP03
TC POSTJUMP
CADR TERM52
TERMP03 TC UPFLAG
ADRES TRM03FLG
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
EBANK= MARKSTAT
2CADR ENDMARKS
TC ENDMARK # KNOCKS DOWN MARKING FLAG + DOES ENDOFJOB
ENDMARKS CAF ONE
TC IBNKCALL
CADR GOODEND
MKVB5X CAF PRIO34
MASK MARKSTAT # RE-DISPLAY VB51 IF MORE MARKS WANTED
CCS A # AND VB50 IF ALL IN
TCF MKVB51
TCF MKVB51
MKVB50 CAF R1D1 # OCT 16
TS DSPTEM1
CAF V50N25
TCF MKVB51 +3
V50N25 VN 5025
VB51 VN 5100
OCT37 = LOW5
@ -634,14 +634,14 @@ MARKIT CCS CDUCHKWD
TC WAITLIST
EBANK= MRKBUF1
2CADR MARKDIF
TCF RESUME
SETLOC SXTMARK1
BANK
COUNT 20/SXTMK
# PROGRAM NAME: MARKDIF
#
# CALLING SEQUENCE
@ -675,10 +675,10 @@ MARKDIF CA CDUCHKWD # IF DELAY CHECK IS ZERO OR NEG, ACP MARK
TC DIFCHK
CA MKCDUZ
TC DIFCHK
MKACPT TC IBNKCALL
CADR MARKCONT # MARK DATA OK, WHAT DO WE DO WITH IT
DIFCHK INCR MKNDX # INCREMENT INDEX
EXTEND
@ -693,10 +693,10 @@ DIFCHK INCR MKNDX # INCREMENT INDEX
AD NEG2 # SEE IF DIFFERENCE GREATER THAN 3 BITS
EXTEND
BZMF -3 # NOT GREATER
TC ALARM # COUPLED WITH PROGRAM ALARM
OCT 00121
TCF TASKOVER # DO NOT ACCEPT
TCF TASKOVER # DO NOT ACCEPT

36
Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc
View File

@ -7,13 +7,13 @@
# Reference: pp. 420-422
# Contact: Onno Hommes <ohommes@cmu.edu>.
# 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
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -30,13 +30,13 @@
# Page 420
EBANK= XSM
BANK 33
SETLOC E/PROG1
BANK
COUNT* $$/P07
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
#
# 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
E/SWITCH DXCH EBUF2
DTCB
# Page 421
# 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
# CADR ROUTINE # THE INTERPRETIVE SUBROUTINE YOU WANT
# # RETURNS HERE IN INTERPRETIVE.
E/CALL LXCH LOC # ADRES -1 OF CADR.
INDEX L
CA L # CADR IN A.
@ -97,7 +97,7 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
EXIT # LEAVE VIA RVQ OR EQUIVALENT.
LXCH EBUF2 +1 # PICK UP RETURN.
TCF INTPRET +2 # SET LOC AND RETURN TO CALLER.
# Page 422
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
#
@ -116,16 +116,16 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
BANK 33
SETLOC E/PROG
BANK
COUNT* $$/P07
E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A.
CS BIT11
NDX LOCCTR
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
TC RUPTREG3 # RETURN
# 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.
@ -133,15 +133,15 @@ E/JOBWAK TC JOBWAKE # ARRIVE IWTH ADRES IN A.
BANK 33
SETLOC TESTLEAD
BANK
COUNT 33/COMST
EBANK= QPLACE
COMPVER TC GCOMPVER # MUST BE 33,2000.
GTSCPSS1 TC GTSCPSS # MUST BE AT 33,2001
REDO TC NEWMODEX # DISPLAY MM 07.
MM 07 # FALL INTO IMUTEST

78
Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc
View File

@ -6,7 +6,7 @@
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# 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.
# 2009-05-20 RSB Corrected R32 -> R31.
#
@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -49,22 +49,22 @@ P30SUBS EQUALS
STOPRAT EQUALS
P23S EQUALS
BNKSUM 02
BLOCK 03
FFTAG5 EQUALS
FFTAG6 EQUALS
DAPS9 EQUALS
FFTAG13 EQUALS
BNKSUM 03
BANK 00
DLAYJOB EQUALS
BNKSUM 00
BANK 01
RESTART EQUALS
BNKSUM 01
BANK 4
VERB37 EQUALS
CONICS1 EQUALS
@ -80,14 +80,14 @@ E/PROG EQUALS
MIDDGIM EQUALS
BNKSUM 04
BANK 5
FRANDRES EQUALS
DOWNTELM EQUALS
DAPMASS EQUALS
CDHTAG EQUALS
BNKSUM 05
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
BANK 6
@ -96,7 +96,7 @@ T4RUP EQUALS
IMUCAL2 EQUALS
CSIPROG EQUALS
BNKSUM 06
BANK 7
SXTMARKE EQUALS
R02 EQUALS
@ -105,7 +105,7 @@ XANG EQUALS
KEYRUPT EQUALS
CSIPROG6 EQUALS
BNKSUM 07
BANK 10
DISPLAYS EQUALS
PHASETAB EQUALS
@ -115,7 +115,7 @@ P60S4 EQUALS
OPTDRV EQUALS
CSIPROG8 EQUALS
BNKSUM 10
BANK 11
ORBITAL EQUALS
ORBITAL1 EQUALS # CONSTANTS
@ -127,14 +127,14 @@ S52/2 EQUALS
CSIPROG5 EQUALS
INTINIT1 EQUALS
BNKSUM 11
BANK 12
CONICS EQUALS
CSIPROG2 EQUALS
CSI/CDH2 EQUALS
MODCHG2 EQUALS
BNKSUM 12
BANK 13
P76LOC EQUALS
LATLONG EQUALS
@ -145,7 +145,7 @@ CDHTAGS EQUALS
E/PROG1 EQUALS
MODCHG3 EQUALS
BNKSUM 13
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
BANK 14
@ -154,14 +154,14 @@ RT53 EQUALS
P50S1 EQUALS
MEASINC2 EQUALS
CSI/CDH3 EQUALS
BNKSUM 14
BNKSUM 14
BANK 15
P50S EQUALS
ETRYDAP EQUALS
S52/3 EQUALS
BNKSUM 15
BANK 16
P40S1 EQUALS
@ -172,14 +172,14 @@ P50S2 EQUALS
P23S1 EQUALS
RTE2 EQUALS
BNKSUM 16
BANK 17
DAPS4 EQUALS
DAPS5 EQUALS
DAPS7 EQUALS
P50S3 EQUALS
BNKSUM 17
BANK 20
DAPS6 EQUALS
DAPS1 EQUALS
@ -188,7 +188,7 @@ MANUSTUF EQUALS
R36CM EQUALS
VAC5LOC EQUALS
BNKSUM 20
BANK 21
DAPS3 EQUALS
MYSUBS EQUALS
@ -222,18 +222,18 @@ R30LOC EQUALS
P11FOUR EQUALS
CSIPROG4 EQUALS
BNKSUM 23
BANK 24
LOADDAP EQUALS
P40S EQUALS
CSIPROG7 EQUALS
BNKSUM 24
BANK 25
REENTRY EQUALS
CDHTAG1 EQUALS
BNKSUM 25
BANK 26
INTPRET1 EQUALS
REENTRY1 EQUALS
@ -246,7 +246,7 @@ EPHEM EQUALS
P05P06 EQUALS
26P50S EQUALS
BNKSUM 26
BANK 27
TOF-FF EQUALS
TOF-FF1 EQUALS
@ -275,7 +275,7 @@ P20S6 EQUALS
P40S3 EQUALS
R35A EQUALS
BNKSUM 30
BANK 31
R35 EQUALS
RT23 EQUALS
@ -287,14 +287,14 @@ R31 EQUALS
P22S EQUALS
RTE3 EQUALS
BNKSUM 31
BANK 32
MSGSCAN1 EQUALS
RTE EQUALS
DELRSPL1 EQUALS
IMUCAL3 EQUALS
BNKSUM 32
BANK 33
TESTLEAD EQUALS
@ -302,14 +302,14 @@ TESTLEAD EQUALS
IMUCAL EQUALS
BNKSUM 33
BANK 34
P11ONE EQUALS
P20S3 EQUALS
P20S4 EQUALS
RTECON EQUALS
BNKSUM 34
BANK 35
RTECON1 EQUALS
CSI/CDH EQUALS
@ -319,7 +319,7 @@ P17S1 EQUALS
MEASINC3 EQUALS
INTINIT2 EQUALS
BNKSUM 35
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
BANK 36
@ -329,7 +329,7 @@ P17S EQUALS
RTE1 EQUALS
S3435LOC EQUALS
BNKSUM 36
BANK 37
P20S EQUALS
BODYATT EQUALS
@ -338,7 +338,7 @@ SERVICES EQUALS
P11TWO EQUALS
CDHTAG3 EQUALS
BNKSUM 37
BANK 40
PINSUPER EQUALS
@ -348,29 +348,29 @@ SELFSUPR EQUALS
PINBALL1 EQUALS
R36CM1 EQUALS
BNKSUM 40
BANK 41
PINBALL2 EQUALS
R36LM EQUALS
BNKSUM 41
BANK 42
SBAND EQUALS
SBAND EQUALS
PINBALL3 EQUALS
EXTVBS EQUALS
R36LM1 EQUALS
BNKSUM 42
BANK 43
SELFCHEC EQUALS
EXTVERBS EQUALS
BNKSUM 43
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
HIDPHALF EQUALS UNITX
LODPHALF EQUALS XUNIT
HIDP1/4 EQUALS DP1/4TH
HIDP1/4 EQUALS DP1/4TH
LODP1/4 EQUALS D1/4 # 2DEC .25
HIUNITX EQUALS UNITX
HIUNITY EQUALS UNITY
@ -431,6 +431,6 @@ EBRN1 ECADR RN1
#******************************************************************************************************
# Page 36
# *** END OF MAIN PROGRAM ***

2
Comanche055/TIME_OF_FREE_FALL.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A

32
Comanche055/TPI_SEARCH.agc
View File

@ -17,13 +17,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -40,7 +40,7 @@
# FOR THE TPI AND TPF MANEUVERS.
#
# 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.
#
# THE S17.2 ROUTINE FURTHER DEFINES THE SEARCH SECTOR BY COMPUTING ANGULAR LIMITS AND USES THE TIME THETA
@ -64,11 +64,11 @@
BANK 36
SETLOC P17S1
BANK
COUNT 36/TPI
EBANK= RACT3
# **** TEMPORARY ****
HPE 2DEC 157420.0 B-29 # EARTH'S MIN. PERICENTER ALTITUDE 85 N.M.
@ -134,7 +134,7 @@ S17.1 STQ DLOAD
SL1 ACOS
PDVL
VXV DOT
# Page 553
# Page 553
RACT3
E2
PDDL SIGN
@ -185,7 +185,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS
TIMETHET
DLOAD # SAVE START TIME AND GET END TIME
T
# Page 554
# Page 554
STORE TF
STODL TFO
IT
@ -197,7 +197,7 @@ S17.2 STQ VLOAD # COMPUTE SEARCH SECTOR LIMITS
STORE CSTH
LXA,1 CALL
XRS
TIMETHET
TIMETHET
# INITIALIZE LOOP
DLOAD CLEAR
T
@ -287,7 +287,7 @@ JUNCT3 VLOAD
XRS
STOVL X1
VIPRIME
# Page 556
# Page 556
VSR*
0,2
STOVL VVEC
@ -338,7 +338,7 @@ INTERP SET DSU # HP-HPO
X2
XSU,2 DDV
X1
# Page 557
# Page 557
DMP SR*
DELTEE
0 -1,2
@ -405,7 +405,7 @@ USEKAY SLOAD BON
DECTWO
KFLAG
NEXUS
DSU
DSU
P21ONENN
NEXUS STODL NN1
HP
@ -415,7 +415,7 @@ NEXUS STODL NN1
SETLOC XANG
BANK
COUNT 07/XANG
# CENTRAL ANGLE SUBROUTINE
#
# THIS SUBROUTINE COMPUTES THE CENTRAL ANGLE OF TRAVEL OF THE
@ -472,7 +472,7 @@ TRANSANG STQ SETPD
SETLOC P17S1
BANK
COUNT 35/P17
# TPI SEARCH DISPLAY ROUTNE
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
TCF ENDOFJOB
EBANK= RTRN
VNCOMP17 EXTEND
QXCH QSAVED
TS VERBNOUN
@ -543,7 +543,7 @@ VNCOMP17 EXTEND
CS MPAC # RECYCLE WITH NEW TPI TIME
AD BIT6 # OR PROCEED WITH NEW SEARCH OPTION
EXTEND
# Page 561
# Page 561
BZF P17.1
TC VNCOMP17 +3
ALARUMS SET EXIT

220
Comanche055/TVCDAPS.agc
View File

@ -11,7 +11,7 @@
# same name, using Comanche055 page images.
# 2009-05-20 RSB Corrections: Eliminated an extraneous EXTEND,
# 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
# an MP operation in 2CASFLTR.
#
@ -21,13 +21,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -122,33 +122,33 @@
BANK
EBANK= BZERO
COUNT* $$/DAPS
# Page 963
# PITCH TVCDAP STARTS HERE....(INCOPORATES CSM/LEM DAP FILTER, MODOR DESIGN)
PITCHDAP LXCH BANKRUPT # T5 ENTRY, NORMAL OR VIA DAPINIT
EXTEND
QXCH QRUPT
CAF YAWT5 # SET UP T5 CALL FOR YAW AUTOPILOT (LOW-
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
CAE T5TVCDT
TS TIME5
PSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
TC HACK # TEST-START OR TEST-IN-PROGRESS
TCF +2 # NO-TEST
TC HACK # TEST-IN-PROGRESS
PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
XCH PCDUYPST
EXTEND
MSU PCDUYPST
TCR RLIMTEST # RATE TEST
TS MCDUYDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
CAE CDUZ # COMPUTE CDUZDOT (USED BY PITCH AND YAW)
XCH PCDUZPST
EXTEND
@ -156,7 +156,7 @@ PCDUDOTS CAE CDUY # COMPUTE CDUYDOT (USED BY PITCH AND YAW)
TCR RLIMTEST # RATE TEST
TS MCDUZDOT # (MINUS, SC.AT 1/2TVCDT REVS/SEC)
TCF PINTEGRL
RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
EXTEND # THAN 2.33 DEG IN ONE SAMPLE PERIOD
MP 1/RTLIM
@ -166,16 +166,16 @@ RLIMTEST TS TTMP1 # TEST FOR EXCESSIVE CDU RATES (GREATER
TS TTMP1
CAE TTMP1
TC Q
PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
DCA PERRB # ERROR, SC.AT B-1 REVS
DXCH ERRBTMP
EXTEND
DCA OMEGAYC
DAS ERRBTMP
# Page 964
# Page 964
CS COSCDUZ # PREPARE BODY-AXIS PITCH RATE, OMEGAYB
EXTEND
MP COSCDUX
@ -184,17 +184,17 @@ PINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS PITCH-RATE
MP MCDUYDOT
DDOUBL
DXCH OMEGAYB
CS MCDUZDOT
EXTEND
MP SINCDUX
DDOUBL
DAS OMEGAYB # (COMPLETED OMEGAYB, SC.AT 1/2TVCDT REVS)
EXTEND # PICK UP -OMEGAYB (SIGN CHNG, INTEGRATE)
DCS OMEGAYB
DAS ERRBTMP
PERORLIM TCR ERRORLIM # PITCH BODY-AXIS-ERROR INPUT LIMITER
PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
@ -206,25 +206,25 @@ PFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
EXTEND
DCA PTMP5
DXCH TMP5
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
# (INCLUDES VARIABLE GAIN PACKAGE)
POFFSET EXTEND
DCA PDELOFF
DCA PDELOFF
DAS CMDTMP # NO SCALED AT B+0 ASCREV
PACLIM TCR ACTLIM # ROUND OFF & LIMIT PITCH ACTUATOR COMMAND
POUT CS PCMD # INCREMENTAL PITCH COMMAND
AD CMDTMP
ADS TVCPITCH # UPDATE THE ERROR COUNTER (NO RESTART-
# PROTECT. SINCE ERROR CNTR ZEROED)
CAF BIT11 # BIT FOR TVCPITCH COUNT RELEASE
EXTEND
WOR CHAN14
PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
# Page 965
DCA PTMP2
@ -235,9 +235,9 @@ PPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR PITCH
EXTEND
DCA PTMP6
DXCH TMP6
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
DELBARP CAE DELPBAR +1
EXTEND
MP E(-AT)
@ -250,7 +250,7 @@ DELBARP CAE DELPBAR +1
EXTEND
MP 1-E(-AT)
DAS DELBRTMP
PCOPYCYC TCR PCOPY # PITCH COPYCYCLE
PDAPEND TCF RESUME # PITCH DAP COMPLETED
@ -261,9 +261,9 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
# NOTE POSSIBLE RE-ENTRY FROM RESTART
# PACKAGE, SHOULD A RESTART OCCUR
# DURING PITCH COPYCYCLE.
EXTEND
DCA TMP1
EXTEND
DCA TMP1
DXCH PTMP1
EXTEND
DCA TMP2
@ -271,7 +271,7 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
EXTEND
DCA TMP3
DXCH PTMP3
EXTEND
EXTEND
DCA TMP4
DXCH PTMP4
EXTEND
@ -280,21 +280,21 @@ PCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (1)
EXTEND
DCA TMP6
DXCH PTMP6
PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
DCA ERRBTMP
TS AK1 # FOR PITCH NEEDLES, SC.AT B-1 REVS
DXCH PERRB
CAE CMDTMP # PITCH ACTUATOR COMMAND
TS PCMD
EXTEND # PITCH OFFSET-TRACKER-FILTER
DCA DELBRTMP
DXCH DELPBAR
INCR TVCPHASE # PITCH COPYCYCLE COMPLETED (2)
TC Q
# Page 967
@ -303,27 +303,27 @@ PMISC EXTEND # MISC....PITCH-RATE-ERROR INTEGRATOR
YAWDAP LXCH BANKRUPT # T5 ENTRY, NORMAL
EXTEND
QXCH QRUPT
CAF PITCHT5 # SET UP T5 CALL FOR PITCH AUTOPILOT (LOW-
TS T5LOC # ORDER PART OF 2CADR ALREADY THERE)
CAE T5TVCDT
TS TIME5
YSTROKER CCS STROKER # (STRKFLG) CHECK FOR STROKE TEST
TC HACK # TEST-START OR TEST-IN-PROGRESS
TCF +2 # NO-TEST
TC HACK # TEST-IN-PROGRESS
# USE BODY RATES FROM PITCHDAP (PCDUDOTS)
YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
DCA YERRB # ERROR, SC.AT B-1 REVS
DXCH ERRBTMP
EXTEND
DCA OMEGAZC
DAS ERRBTMP
CAE COSCDUZ # PREPARE BODY-AXIS YAW-RATE, OMEGAZB
EXTEND
MP SINCDUX
@ -332,22 +332,22 @@ YINTEGRL EXTEND # COMPUTE INTEGRAL OF BODY-AXIS YAW-RATE
MP MCDUYDOT
DDOUBL
DXCH OMEGAZB
CS MCDUZDOT
EXTEND
MP COSCDUX
DDOUBL
DAS OMEGAZB # (COMPLETED OMEGAZB, SC.AT 1/2TVCDT REVS)
EXTEND # PICK UP -OMEGAZB (SIGN CHNG, INTEGRATE)
DCS OMEGAZB
DAS ERRBTMP
YERORLIM TCR ERRORLIM # YAW BODY-AXIS-ERROR INPUT LIMITER
YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
DCA YTMP1 # FOR THE YAW CHANNEL
# Page 968
# Page 968
DXCH TMP1
EXTEND
DCA YTMP3
@ -355,10 +355,10 @@ YFORWARD EXTEND # PREPARE THE FILTER STORAGE LOCATIONS
EXTEND
DCA YTMP5
DXCH TMP5
TCR FWDFLTR # GO COMPUTE PRESENT OUTPUT
# (INCLUDES VARIABLE GAIN PACKAGE)
YOFFSET EXTEND
DCA YDELOFF
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
EXTEND
WOR CHAN14
YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
DCA YTMP2
DXCH TMP2
@ -383,9 +383,9 @@ YPRECOMP EXTEND # PREPARE THE FILTER STORAGE FOR YAW
EXTEND
DCA YTMP6
DXCH TMP6
TCR PRECOMP # TO THE FILTER FOR PRECOMPUTATION
DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
EXTEND
MP E(-AT)
@ -398,7 +398,7 @@ DELBARY CAE DELYBAR +1 # UPDATE YAW OFFSET-TRACKER-FILTER
EXTEND
MP 1-E(-AT)
DAS DELBRTMP
# Page 969
YCOPYCYC TCR YCOPY # YAW COPYCYCLE
@ -411,17 +411,17 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3)
# NOTE POSSIBLE RE-ENTRY FROM RESTART
# PACKAGE, SHOULD A RESTART OCCUR
# DURING YAW COPYCYCLE.
EXTEND
DCA TMP1
EXTEND
DCA TMP1
DXCH YTMP1
EXTEND
DCA TMP2
DXCH YTMP2
EXTEND
DCA TMP3
DXCH YTMP3
EXTEND
DXCH YTMP3
EXTEND
DCA TMP4
DXCH YTMP4
EXTEND
@ -430,24 +430,24 @@ YCOPY INCR TVCPHASE # RESTART-PROTECT THE COPYCYCLE. (3)
EXTEND
DCA TMP6
DXCH YTMP6
YMISC EXTEND # MISC....YAW-RATE-ERROR INTEGRATOR
DCA ERRBTMP
TS AK2 # FOR YAW NEEDLES, SC.AT B-1 REVS
DXCH YERRB
CAE CMDTMP
CAE CMDTMP
TS YCMD
EXTEND
EXTEND
DCA DELBRTMP
DXCH DELYBAR
CAF ZERO # YAW COPYCYCLE COMPLETED
TS TVCPHASE # RESET TVCPHASE
TC Q
# Page 971
# SUBROUTINES COMMON TO BOTH PITCH AND YAW DAPS....
@ -462,14 +462,14 @@ DAPINIT LXCH BANKRUPT # T5 RUPT ENTRY (CALLED BY TVCINT4)
TS TIME5
CAF PITCHT5 # (BBCON ALREADY THERE)
TS T5LOC
CAE CDUY # READ AND STORE CDUS FOR DIFFERENTIATOR
TS PCDUYPST # PAST-VALUES
CAE CDUZ
TS PCDUZPST
TCF NOQRSM
# BODY-AXIS-ERROR INPUT LIMITER PACKAGE....
ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
@ -482,9 +482,9 @@ ERRORLIM CAE ERRBTMP # CHECK FOR INPUT-ERROR LIMIT
TCF +2
CS ERRLIM
TS ERRBTMP # LIMIT WRITES OVER UPPER WORD ONLY
TC Q
# ACTUATOR-COMMAND LIMITER PACKAGE....
ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
@ -492,7 +492,7 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
TS L
CAF ZERO
AD CMDTMP
EXTEND # CHECK FOR ACTUATOR COMMAND LIMIT
MP 1/ACTSAT
EXTEND
@ -503,9 +503,9 @@ ACTLIM CAE CMDTMP +1 # ROUND UP FOR OUTPUT
TCF +2
CS ACTSAT
TS CMDTMP # LIMITS WRITE OVER CMDTMP
TC Q
# FILTER COMPUTATIONS FOR PRESENT OUTPUT................
FWDFLTR CAF ZERO
@ -513,7 +513,7 @@ FWDFLTR CAF ZERO
TS DAP2
TS DAP3
TS CMDTMP
TS DELBRTMP
1DAPCAS CAE ERRBTMP +1 # FIRST DAP CASCADE
@ -547,7 +547,7 @@ FWDFLTR CAF ZERO
DXCH DAP3
TCF OPTVARK
# Page 973
# Page 973
3DAPCAS CAE DAP2 +1 # THIRD DAP CASCADE
EXTEND
MP N10 +10D # N30
@ -567,14 +567,14 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE
EXTEND
MP VARK
DAS CMDTMP
DXCH CMDTMP # FIX UP SCALING -- SCALED B+3 ASCREVS
DDOUBL
DDOUBL
DXCH CMDTMP # -- SCALED B+1 ASCREVS
# NOTE -- THERE IS AN INHERENT GAIN OF
# (B+1 ASCREVS) ON THE OUTPUT DACS.
TC Q
# FILTER PRECOMPUTATIONS FOR NEXT PASS................
@ -582,7 +582,7 @@ OPTVARK CS DAP3 +1 # VARIABLE GAIN PACKAGE
PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
TS TTMP1
TS TTMP2
CA ERRBTMP +1 # MULTIPLY INPUT BY
EXTEND
MP N10 +1 # N11/2
@ -591,31 +591,31 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +1 # N11/2
DAS TTMP1
CS DAP1 +1 # MULTIPLY OUTPUT BY
EXTEND
MP N10 +3 # D11/2
TS TTMP2 +1
CS DAP1
# Page 974
EXTEND
MP N10 +3 # D11/2
DAS TTMP2
DXCH TTMP2
DAS TTMP1
DXCH TTMP1
DDOUBL
DAS TMP2
DXCH TMP2
DXCH TMP1
CAF ZERO
TS TTMP1
TS TMP2
CA ERRBTMP +1 # MULTIPLY INPUT BY
EXTEND # SECOND-ORDER NUMERATOR COEFF.
MP N10 +2 # N12
@ -624,7 +624,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +2 # N12
DAS TTMP1
CS DAP1 +1 # MULTIPLY OUTPUT BY
EXTEND
MP N10 +4 # D12
@ -633,14 +633,14 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +4 # D12
DAS TMP2
DXCH TTMP1
DAS TMP2
2CASFLTR CAF ZERO # **** SECOND CASCADE FILTER **********
TS TTMP1
TS TTMP2
CA DAP1 +1 # MULTIPLY INPUT BY
EXTEND
MP N10 +6 # N21/2
@ -648,9 +648,9 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
CA DAP1
EXTEND
MP N10 +6 # N21/2
# Page 975
# Page 975
DAS TTMP1
CS DAP2 +1 # MULTIPLY OUTPUT BY
EXTEND
MP N10 +8D # D21/2
@ -659,20 +659,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +8D # D21/2
DAS TTMP2
DXCH TTMP2
DAS TTMP1
DXCH TTMP1
DDOUBL
DAS TMP4
DXCH TMP4
DXCH TMP3
CAF ZERO
TS TTMP1
TS TMP4
CA DAP1 +1 # MULTIPLY INPUT BY
EXTEND # SECOND-ORDER NUMERATOR COEFF.
MP N10 +7 # N22
@ -681,7 +681,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +7 # N22
DAS TTMP1
CS DAP2 +1 # MULTIPLY OUTPUT BY
EXTEND
MP N10 +9D # D22
@ -690,20 +690,20 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +9D # D22
DAS TMP4
DXCH TTMP1
DAS TMP4
CAE DAPDATR1 # TEST FOR LEM ON OR OFF
MASK BIT13
CCS A
TC Q # EXIT IF LEM OFF
# Page 976
# Page 976
3CASFLTR CAF ZERO # **** THIRD CASCADE FILTER **********
TS TTMP1
TS TTMP2
CA DAP2 +1 # MULTIPLY INPUT BY (1/2)
EXTEND
MP N10 +11D # N31/2
@ -712,7 +712,7 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +11D # N31/2
DAS TTMP1
CS DAP3 +1
EXTEND
MP N10 +13D # D31/2
@ -721,45 +721,45 @@ PRECOMP CAF ZERO # **** FIRST CASCADE FILTER **********
EXTEND
MP N10 +13D # D31/2
DAS TTMP2
DXCH TTMP2
DAS TTMP1
DXCH TTMP1
DDOUBL
DAS TMP6
DXCH TMP6
DXCH TMP5
CAF ZERO
TS TTMP1
TS TMP6
CA DAP2 +1 # MULTIPLY INPUT BY
EXTEND
EXTEND
MP N10 +12D # N32
TS TTMP1 +1
CA DAP2
EXTEND
MP N10 +12D # N32
DAS TTMP1
CS DAP3 +1
EXTEND
MP N10 +14D # D32
TS TMP6 +1
CS DAP3
EXTEND
# Page 977
# Page 977
MP N10 +14D # D32
DAS TMP6
DXCH TTMP1
DAS TMP6
TC Q
# Page 978
# Page 978
# CONSTANTS FOR AUTOPILOTS
# NOTE....1 ASCREV (ACTUATOR CMD SCALING) = 85.41 ARCSEC/BIT OR 1.07975111 REVS (85.41x16384/3600/360)

72
Comanche055/TVCEXECUTIVE.agc
View File

@ -10,7 +10,7 @@
# Mod history: 2009-05-12 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 page images.
# 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.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -85,36 +85,36 @@
BANK
EBANK= BZERO
COUNT* $$/TVCX
TVCEXEC CS FLAGWRD6 # CHECK FOR TERMINATION (BITS 15,14 READ
MASK OCT60000 # 10 FROM TVCDAPON TO RCSDAPON)
EXTEND
BZMF TVCEXFIN # TERMINATE
CAF .5SEC # W.L. CALL TO PERPETUATE TVCEXEC
TC WAITLIST
EBANK= BZERO
2CADR TVCEXEC
ROLLPREP CAE CDUX # UPDATE ROLL LADDERS (NO NEED TO RESTART-
XCH OGANOW # PROTECT, SINCE ROLL DAPS RE-START)
XCH OGAPAST
CAE OGAD # PREPARE ROLL FDAI NEEDLE WITH FLY-TO
EXTEND # ERROR (COMMAND - MEASURED)
MSU OGANOW
TS AK # FLY-TO OGA ERROR, SC.AT B-1 REVS
EXTEND # PREPARE ROLL DAP PHASE PLANE OGAERR
MP -BIT14
MP -BIT14
TS OGAERR # PHASE-PLANE (FLY-FROM) OGAERROR,
# SC.AT B+0 REVS
CAF THREE # SET UP ROLL DAP TASK (ALLOW SOME TIME)
TC WAITLIST
EBANK= BZERO
2CADR ROLLDAP
NEEDLEUP TC IBNKCALL # DO A NEEDLES UPDATE (RETURNS AFTER CADR)
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)
CCS VCNTR # TEST FOR GAIN OF UPDATE TIME
TCF +4 # NOT YET
# Page 947
# Page 947
TCF GAINCHNG # NOW
TCF +0 # NOT USED
TCF VARGAINS +5 # NO, LOTHRUST (S40.6 R40)
+4 TS VCNTRTMP # PROTECT VCNTR AND
CAE CSMMASS # CSMMASS DURING AN IMPULSIVE BURN
TS MASSTMP
TCF EXECCOPY
GAINCHNG TC IBNKCALL # UPDATE IXX, IAVG, IAVG/TLX
CADR FIXCW # MASSPROP ENTRY (ALREADY INITIALIZED)
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
AD CSMMASS
TS MASSTMP # KG B+16
CAF NINETEEN # RESET THE VARIABLE-GAIN UPDATE COUNTER
TS VCNTRTMP
@ -153,24 +153,24 @@ EXECCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (1)
CAE MASSTMP # CSMMASS KG B+16
TS CSMMASS
CAE VCNTRTMP # VCNTR
TS VCNTR
TS V97VCNTR # FOR ENGFAIL (R41) MASS UPATES AT SPSOFF
INCR TVCEXPHS # COPYCYCLE OVER (2)
1SHOTCHK CCS CNTR # CHECK FOR ONE-SHOT OR REPCORR
TCF +4 # NOT YET
TCF 1SHOTOK # NOW
TCF REPCHEK # ONE-SHOT OVER, ON TO REPCORR
TCF 1SHOTOK # NOW (ONE-SHOT ONLY, NO REPCORR)
+4 TS CNTRTMP # COUNT DOWN
CAF SIX # SETUP TVCEXPHS FOR ENTRY AT CNTRCOPY
TS TVCEXPHS
TCF CNTRCOPY
REPCHEK CAE REPFRAC # CHECK FOR REPETITIVE UPDATES
EXTEND
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
TS TVCEXPHS
TCF CORSETUP
# Page 948
# Page 948
1SHOTOK CAF BIT13 # CHECK ENGINE-ON BIT, NOT PERMITTING
EXTEND # SWITCHOVER DURING ENGINE-SHUTDOWN
RAND DSALMOUT
CCS A
TCF +2 # ONE-SHOT OK
TCF TVCEXFIN # NO, TERMINATE
INCR TVCEXPHS # (3)
# 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
# it to CAF instead to indicate fixed memory.
TEMPSET CAF FCORFRAC # SET UP CORRECTION FRACTION
TS TEMPDAP +1
INCR TVCEXPHS # ENTRY FROM REPCHECK AT NEXT LOCATION (4)
CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
MASK BIT13 # (NOTE, SHOWS LEM-OFF)
EXTEND
@ -203,10 +203,10 @@ CORSETUP CAE DAPDATR1 # CHECK FOR LEM-OFF/ON
CAE TEMPDAP +1 # LEM IS OFF, PICK UP 2(TEMPDAP+1)
AD TEMPDAP +1
TS TEMPDAP # CG.CORR USES TEMPDAP
CAF NEGONE # SET UP FOR CNTR = -1 (SWTCHOVR DONE)
TS CNTRTMP # (COPYCYCLE AT "CNTRCOPY")
CG.CORR EXTEND # PITCH TMC LOOP
DCA PDELOFF
DXCH PACTTMP
@ -225,14 +225,14 @@ CG.CORR EXTEND # PITCH TMC LOOP
EXTEND
MP TEMPDAP
DAS PACTTMP
EXTEND # YAW TMC LOOP
DCA YDELOFF
DXCH YACTTMP
EXTEND
DCS YDELOFF
DDOUBL
# Page 949
# Page 949
DDOUBL
DXCH TTMP1
EXTEND
@ -245,29 +245,29 @@ CG.CORR EXTEND # PITCH TMC LOOP
EXTEND
MP TEMPDAP
DAS YACTTMP
CORCOPY INCR TVCEXPHS # RESTART-PROTECT THE COPYCYCLE (5)
EXTEND # TRIM-ESTIMATES, AND
DCA PACTTMP
TS PACTOFF # TRIMS
DXCH PDELOFF
EXTEND
DCA YACTTMP
TS YACTOFF
DXCH YDELOFF
INCR TVCEXPHS # ENTRY FROM 1SHOTCHK AT NEXT LOCATION (6)
CNTRCOPY CAE CNTRTMP # UPDATE CNTR (RESTARTS OK, FOLLOWS CPYCY)
TS CNTR
TVCEXFIN CAF ZERO # RESET TVCEXPHS
TS TVCEXPHS
TS TVCEXPHS
TCF TASKOVER # TVCEXECUTIVE FINISHED
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
FCORFRAC OCT 10000 # ONE-SHOT CORRECTION FRACTION
# Page 950 (page is empty)

60
Comanche055/TVCINITIALIZE.agc
View File

@ -10,9 +10,9 @@
# Mod history: 2009-05-11 JVL Adapted from the Colossus249/ file
# of the same name, using Comanche055 page
# 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
# of a couple of the "Page N" comments,
# of a couple of the "Page N" comments,
# corrected a couple of lines in LOADCOEFF.
# 2009-05-22 RSB In LOADCOEF, DXCH N10 +14D corrected to
# TS N10 +14D. Also, various comment-marks
@ -31,7 +31,7 @@
# Notations on the hardcopy document read, in part:
#
# 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
# Colossus 2A
@ -71,9 +71,9 @@
BANK 17
SETLOC DAPS7
BANK
EBANK= BZERO
TVCDAPON LXCH BANKRUPT # T5 RUPT ARRIVAL (CALL BY DOTVCON - P40)
EXTEND # SAVE Q REQUIRED IN RESTART (MRCLEAN AND
QXCH QRUPT # TVCINIT4 ARE ENTRIES)
@ -98,10 +98,10 @@ ENDMRC TCF RESUME # ENTRY.
TVCINIT1 LXCH BANKRUPT
EXTEND
QXCH QRUPT
TC IBNKCALL # UPDATE IXX, IAVG/TLX FOR DAP GAINS (R03
CADR MASSPROP # OR NOUNS 46 AND 47 MUST BE CORRECT)
CAE EMDOT # SPS FLOW RATE, SCALED B+3 KG/CS
EXTEND
MP ONETHOU
@ -109,46 +109,46 @@ TVCINIT1 LXCH BANKRUPT
COM
AD CSMMASS
TS MASSTMP # DECREMENT FOR FIRST 10 SEC OF BURN
CAE DAPDATR1 # CHECK LEM-ON/OFF
MASK BIT14
CCS A
CAF BIT1 # LEM-ON (BIT1)
TS CNTR # LEM-OFF (ZERO)
INDEX CNTR # LOAD THE FILTER COEFFICIENTS
CAF CSMCFADR
TS COEFFADR
TC LOADCOEF
INDEX CNTR # PICK UP LM-OFF,-ON KTLX/I
CAE EKTLX/I # SCALED AT 1/(8 ASCREV) OF ACTUAL VALUE
TS KTLX/I
TCR S40.15 # COMPUTE 1/CONACC, VARK
TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
INDEX A # DETERMINATION:
CAF BIT2 # BIT2 FOR CSM ONLY 40MS FILTER
TS KPRIMEDT # BIT3 FOR CSM/LM 80MS FILTER
COM # PREPARE T5TVCDT
AD POSMAX
AD BIT1
TS T5TVCDT
CS BIT15 # RESET SWTOVER FLAG
# Page 939
# Page 939
MASK FLAGWRD9
TS FLAGWRD9
INDEX CNTR # PICK UP LEM-OFF,-ON KPRIME
CAE EKPRIME # SCALED (100 PI)/16
EXTEND
MP KPRIMEDT # (TVCDT/2, SC.AT B+14 CS)
LXCH A # SC.AT PI/8 (DIMENSIONLESS)
DXCH KPRIMEDT
INDEX CNTR # PICK UP LEM-OFF,-ON REPFRAC
CAE EREPFRAC
TS REPFRAC
@ -159,16 +159,16 @@ TVCINIT2 CS CNTR # PICK LM-OFF,-ON VALUE FOR FILTER PERIOD
CAF NEGONE # PREVENT STROKE TEST UNTIL CALLED
TS STRKTIME
CAF NINETEEN # SET VCNTR FOR VARIABLE-GAIN UPDATES IN
TS VCNTR # 10 SECONDS (TVCEXEC 1/2 SEC RATE)
TS V97VCNTR # FOR ENGFAIL (R41) LOGIC
TVCINIT3 CAE PACTOFF # TRIM VALUES TO TRIM-TRACKERS, OUTPUT
TS PDELOFF # TRACKERS, OFFSET-UPDATES, AND
TS PCMD # OFFSET-TRACKER FILTERS
TS DELPBAR # NOTE, LO-ORDER DELOFF,DELBAR ZEROED
CAE YACTOFF
TS YDELOFF
TS YCMD
@ -209,11 +209,11 @@ NEEDLEIN CS RCSFLAGS # SET BIT 3 FOR INITIALIZATION PASS AND GO
ADS RCSFLAGS # (RETURNS AFTER CADR)
TC IBNKCALL
CADR NEEDLER
TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
TS TVCPHASE # NEEDLEIN INITIALIZATION FINISHED.
# (POSSIBLE TVC-RESTART ENTRY)
CAE CDUX # PREPARE ROLL DAP
TS OGANOW
@ -223,15 +223,15 @@ TVCINIT4 CAF ZERO # SET TVCPHASE TO INDICATE TVCDAPON-THRU-
EXTEND # TOUCH CSMMASS. IF ENGINE IS ON,
BZF +3 # THEN IT'S OK TO DO THE COPYCYCLE
# EVEN BURNS LESS THAN 0.4 SEC ARE AOK
CAE MASSTMP # COPYCYCLE
TS CSMMASS
+3 CAF .5SEC # CALL TVCEXECUTIVE (ROLLDAP CALL, ETC)
TC WAITLIST
EBANK= BZERO
2CADR TVCEXEC
EXTEND # CALL FOR DAPINIT
DCA DAPINIT5
DXCH T5LOC
@ -264,7 +264,7 @@ MCLEANJR CA ZERO
CCS CNTRTMP
CCS A
TCF SWICHOVR +8D
CS FLAGWRD9 # SET SWITCHOVER FLAG FOR DOWNLINK
MASK BIT15
ADS FLAGWRD9
@ -272,10 +272,10 @@ MCLEANJR CA ZERO
CAE EKTLX/I +2 # LOW BANDWIDTH GAINS - DAP
TS KTLX/I
TCR S40.15 +7
CAF FKPRIMDT # - STEERING
TS KPRIMEDT
CAF FREPFRAC # - TMC LOOP
TS REPFRAC
@ -285,7 +285,7 @@ MCLEANJR CA ZERO
EXTEND
DCA DELYBAR
DXCH YDELOFF
CA LBCFADR
# Page 942
TS COEFFADR
@ -303,7 +303,7 @@ LOADCOEF EXTEND # LOAD DAP FILTER COEFFICIENTS
EXTEND # NOTE: FOR CSM/LM, NORMAL COEFFICIENT
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
# COEFFICIENTS FROM FIXED MEMORY.

36
Comanche055/TVCMASSPROP.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -71,7 +71,7 @@
# (1) IXX, 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
#
#
# THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
# CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
# Page 952
@ -127,19 +127,19 @@
BANK
EBANK= BZERO
COUNT* $$/MASP
MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERRUPT TEMPS
TS PHI333 # SET UP TEN PASSES
LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
MASK BIT13
EXTEND
BZF LEMYES
LEMNO INDEX PHI333 # LEM NOT ATTACHED
CAF NOLEMVAL
TCF STOINST
LEMYES CAE LEMMASS # LEM IS ATTACHED
DOUBLE
EXTEND
@ -148,12 +148,12 @@ LEMYES CAE LEMMASS # LEM IS ATTACHED
DDOUBL
INDEX PHI333
AD INTVALUE
STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
TS VARST0
CCS PHI333 # ARE ALL TEN PASSES COMPLETED
TCF MASSPROP +1 # NO: GO DECREMENT PHI333
DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
TCF FIXCW
TCF FIXCW
@ -161,11 +161,11 @@ DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
DAS VARST0 +1
CA DXITFIX
ADS VARST0 +7
FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
TS PHI333 # THREE PASSES
TS PSI333
CAE CSMMASS # GET DELTA CSM WEIGHT: SIGN DETERMINES
AD NEGBPW # SLOPE LOCATIONS.
DOUBLE
@ -175,7 +175,7 @@ FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
BZMF PEGGY # DETERMINE CORRECT SLOPE
CAF NEG2
TS PHI333
PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
CAE VARST5 # GET SLOPE
EXTEND
@ -185,10 +185,10 @@ PEGGY INDEX PHI333 # ALL IS READY: CALCULATE OUTPUTS NOW
AD VARST0 # ADD BREAKPOINT VALUE
INDEX PSI333
TS IXX # ***** OUTPUTS (IXX0, IXX1, IXX2) *****
CCS PSI333 # BOOKKEEPING: MASSPROP FINISHED OR NOT
TCF BOKKEP2 # NO: GO TAKE CARE OF INDEXING REGISTERS
CAE DAPDATR1 # UPDATE WEIGHT/G
MASK BIT14
CCS A
@ -201,7 +201,7 @@ BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
EXTEND
DIM PHI333
TCF PEGGY
# Page 955
NOLEMVAL DEC 25445 B-20
DEC 87450 B-20
@ -211,7 +211,7 @@ NOLEMVAL DEC 25445 B-20
DEC 1.54 B-6
DEC 7.77177 B-6
DEC 3.46458 E-5 B+12
INTVALUE DEC 26850 B-20
DEC 127518 B-20
DEC .54059 B-2
@ -222,7 +222,7 @@ INTVALUE DEC 26850 B-20
DEC .647625 E-4 B+12
DEC -27228 B-20
DEC -.206476 B-2
SLOPEVAL DEC 1.96307 B-6
DEC 27.5774 B-6
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.284 B-6
DEC 2 E-5 B+12
NEGBPW DEC -15402.17 B-16
DXITFIX DEC* -1.88275 E-5 B+12*

52
Comanche055/TVCRESTARTS.agc
View File

@ -10,9 +10,9 @@
# Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
# same name, using Comanche055 page images.
# 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.
# Page 924 corrected to 961. CORCOPY +2
# Page 924 corrected to 961. CORCOPY +2
# corrected to CORCOPY +1.
#
# 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
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -98,7 +98,7 @@
# Page 957
# STROKE TEST TO BE TERMINATED. A NEW V68 ENTRY WILL BE REQUIRED
# TO GET IT GOING AGAIN (NO AUTOMATIC RESTART).
#
#
# *REDOTVC IS REACHED FOLLOWING ANY RESTART WHICH FINDS THE T5 BITS
# (BITS 15,14 OF FLAGWRD6) SET FOR TVC. DOTVCON TVCPHASE = -1
# AND TVC EXPHS = 0 JUST BEFORE SETTING THESE BITS, JUST BEFORE
@ -148,15 +148,15 @@
BANK
EBANK= TVCPHASE
COUNT* $$/RSRT
REDOTVC LXCH BANKRUPT # TVC RESTART PACKAGE
EXTEND
QXCH QRUPT # ("TCR" IN "FINCOPY")
EXECPHS CCS TVCEXPHS # CHECK TVCEXECUTIVE PHASE
TCF +2 # MUST RESTART TVCEXECUTIVE
TCF TVCDAPHS # NO NEED TO RESTART TVCEXECUTIVE
CAF NINE # 9CS DELAY TO FORCE EXRSTRT TO OCCUR
TC WAITLIST # BEFORE PITCHDAP, AFTER CMDSOUT
EBANK= TVCEXPHS
@ -167,12 +167,12 @@ TVCDAPHS CS OCT37776 # CHECK BITS 15 AND 1 OF TVCPHASE TO SEE
CCS A
TCF FINCOPY # FINISH THE COPYCYCLE FIRST
TCF ENABL1 # JUST PREPARE THE OUTCOUNTERS AND GO
CS TVCPHASE # TEST FOR TVCPHASE = -2
MASK BIT2 # (THIS INDICATES RESTART OCCURRED
EXTEND # DURING CSM/LM V46 SWITCH-OVER)
BZF TRIM/CMD # NO. TVCPHASE = -1. RSTRT WAS IN TVCINIT
ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
AD BIT11 # SET BIT FOR OPTICS-DAC-ENABLE ALSO
EXTEND # (ENABL1 ENTERED FROM TVCDAPHS / FINCOPY)
@ -181,46 +181,46 @@ ENABL1 CAF BIT8 # TVC ENABLE, FOLLOWED BY 40 MS (MIN) WAIT
TS T5LOC
CAF TVCADDR +4 # 60 MS (TVCEXADR)
TS TIME5
TCF RESUME
ENABL2 LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
CAF BIT2 # OPTICS ERROR CNTR ENABLE, 4MS MIN WAIT
EXTEND
WOR CHAN12
# Page 959
# Page 959
CAF TVCADDR +2 # WAIT, CALLING CMDSOUT (BBCON THERE)
TS T5LOC
CAF OCT37776 # 20MS
TS TIME5
TCF NOQRSM
CMDSOUT LXCH BANKRUPT # CONTINUE PREPARATION OF OUTCOUNTERS
EXTEND
QXCH QRUPT
CS ZERO # MOST RECENT ACTUATOR COMMANDS
AD PCMD # (AVOID +0)
TS TVCPITCH
CS ZERO
AD YCMD
TS TVCYAW
CAF PRIO6 # RELEASE THE COUNTERS (BITS 11,12)
EXTEND
WOR CHAN14
PHSCHK2 CCS TVCPHASE # CHECK TVCPHASE AGAIN
TCF CHKSTRK
TCF CHKSTRK
CCS A # A CONTAINS THE DIMINISHED ABSOLUTE OF
TC +3 # TVCPHASE (-2 BECOMES +1. -1 BECOMES +0)
TC POSTJUMP # REPEAT TVC INITIALIZATION
CADR MRCLEAN # (DO NOT RETURN)
+3 TC IBNKCALL # REPEAT CSM/LM V46 SWITCH-OVER
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 +2 # NO, PROCEED
TCF TSTINITJ # YES, KILL IT
+4 TC POSTJUMP # IF POSITIVE OR ZERO, RESTART AT
CADR TVCINIT4 # TVCINIT4 (ZEROS TVCPHASE, AND
# CALLS TVC DAPS VIA DAPINIT)
@ -236,18 +236,18 @@ FINCOPY INDEX TVCPHASE # PICK UP THE APPROPRIATE COPYCYCLE
CAF TVCCADR
TCR ISWCALL # RE-ENTER THE COPYCYCLE, RETURN AT END
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
TRIM/CMD EXTEND # TVCDAPON INITIALIZATION NOT COMPLETED,
# Page 960
DCA PACTOFF # EG. P,YCMD MAY NOT BE SET. SET...
DXCH PCMD
TCF ENABL1 # NOW PREPARE THE OUTCOUNTERS
TSTINITJ CAF ZERO # DISABLE STROKE TEST (-0 SHOWS PRIOR V68)
TS STROKER # (+0 MEANS NEW V68 REQUIRED FOR STARTUP)
TCF CHKSTRK +4
EXRSTRT INDEX TVCEXPHS # TVCEXECUTIVE RESTARTS....GO TO
CAF TVCEXADR # APPROPRIATE RESTART POINT
INDEX A
@ -267,5 +267,5 @@ TVCEXADR OCT 37772 # (UNUSED TABLE LOC, FILL WITH 60MS, T5)
+4 GENADR CORSETUP
+5 GENADR CORCOPY +1
+6 GENADR CNTRCOPY

78
Comanche055/TVCROLLDAP.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -145,7 +145,7 @@
# THE APPROXIMATE AND QUADRATIC SOLUTIONS CONVERGE IN THE LIMIT AS
# THE SWITCH LINE IS APPROACHED). IF THE OPERATING POINT IS NOT CLOSE
# 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
# SECOND INTERVALS) WILL BENEFIT FROM THE CONVERGENT NATURE OF THE
# APPROXIMATION.
@ -219,7 +219,7 @@ ROLLDAP CAE OGANOW # OGA RATE ESTIMATOR...SIMPLE FIRST-ORDER
MP BIT5
LXCH A
TS OGARATE # SC.AT B-4 REV/SEC
# COMPUTATIONS WHICH FOLLOW USE OGA FOR OGAERR (SAME REGISTER)
# 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
BZF +2 # ROLL JETS ARE NOW OFF.
TCF ROLLOGIC # ENTER LOGIC, JETS NOW ON.
CAE TEMREG # EXAMINE LAST FIRING INTERVAL
EXTEND # IF POSITIVE, DON'T FIRE
BZF ROLLOGIC # ENTER LOGIC, JETS NOW OFF.
CAF ZERO # JETS HAVE NOT BEEN OFF FOR 1/2 SEC. WAIT
TS TEMREG # RESET TEMREG
WAIT1/2 TCF TASKOVER # EXIT ROLL DAP
@ -245,7 +245,7 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
MP OGARATE
AD DB # SCALED AT 2(+0) REV
TS TEMREG # QUANTITY SCALED AT 2(+0) REV.
# GET SIGN OF OGARATE
CA OGARATE
@ -255,14 +255,14 @@ ROLLOGIC CS OGARATE # SCALED AT 2(-4) REV/SEC
TCF +2
CS BIT1
TS SGNRT # + OR - 2(-14)
# Page 990
# Page 990
# CALCULATE DISTANCE FROM SWITCH PARABOLA,DELOGA
EXTEND
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
CS L
MP TEMREG # SGN(OGARATE) TEMREG NOW IN L
CS L
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.
@ -272,7 +272,7 @@ DELOGAC TS DELOGA # SC.AT B+0 REV, PLUS TO RIGHT OF C-PARAB
TCF +2
CAF BIT15 # = CS (40000)
TS I
INDEX I # TSET ON I SGN(OGARATE)
0 SGNRT # CA OR CS
COM
@ -302,11 +302,11 @@ REG3TST BZMF RATELIM # IF REGION 3 (RATES TOO HIGH, FIRE JETS)
DDOUBL
DDOUBL # (OGA ERROR MUST BE LESS THAN +-225 DEG)
AD TEMREG
INDEX I
0 A # I((-SLOPE)OGA+OGARATE) AT 2(-3)REV/SEC
COM
# Page 991
# Page 991
AD INTERCEP # SCALED AT 2(-3) REV.
COM
EXTEND
@ -341,7 +341,7 @@ REGION6 CAE OGA # USE ACTUAL OPERATING POINT FOR TANGENT
CA OGARATE
TS DELOGART # ACTUAL STATE, I.E., DEL OGARATE
TCF ONROLL
# JETS ALSO FIRE FROM HERE EXCEPT OGARATE IS POS (VICE VERSA), USE INDIRECT
# STRAIGHT LINE ESTABLISHED BY TANGENT TO A CONTROL PARABOLA AT ((DELOGA
# + 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
0 DB
ADS DELOGA # DELOGA WAS DIST. FROM SWITCH PARABOLA
CS LMCRATE # LIMIT CYCLE RATE AT 2(-4) REV/SEC
INDEX I
0 A
@ -392,23 +392,23 @@ RATENUM AD DELOGART # NUMERATOR COMPLETED
DV TEMREG # OVERFLOW, IF ANYTHING, NOW APPEARS IN A
EXTEND
BZF DVOK # NO OVERFLOW....(0,L)/TEMREG = 0,L
MINLIMAP CCS A
CAF POSMAX # POSITIVE OVERFLOW
TCF ROLLSET
CS POSMAX # NEGATIVE OVERFLOW
TCF ROLLSET
DVOK LXCH A # PUT NUMERATOR BACK INTO A, 0 INTO L
EXTEND
DV TEMREG # RESULT OF DIVISION IS DESIRED OGARATE
TCF ROLLSET # (SCALED AT B-4 REV/SEC)
RATELIM CS MAXLIM
INDEX I
# Page 993
0 A # IF I = CA, DESIRED RATE IS -MAXLIM
# COMPUTE JET FIRE TIME, BASED ON DESIRED RATE MINUS PRESENT RATE
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
EXTEND # POS MEANS POSITIVE ROLL TORQUE.
BZF NOROLL
# JET FIRE TIME IS NZ, TEST FOR JETS NOW ON.
CAE TEMREG # DESIRED CHANGE IN OGARATE
EXTEND
EXTEND
MP ROLLFIRE # (SGN OF TORQUE: ZERO IF JETS NOW OFF)
CCS A
TCF MOREROLL # CONTINUE FIRING WITH PRESENT POLARITY
TCF NEWROLL # START NEW FIRING NOW, PLUS
TCF NOROLL # TERMINATE OLD FIRING, NEW SIGN REQUESTED
TCF NEWROLL # START NEW FIRING NOW, MINUS
# CONTINUE PRESENT FIRING
MOREROLL CAF ZERO
TS I # USE TEMP. AS MOREROLL SWITCH
TCF MAXTFIRE
# START NEW FIRING BUT CHECK IF GREATER THAN MIN FIRE TIME.
NEWROLL CCS TEMREG # CALL THIS T6FIRE
@ -457,7 +457,7 @@ NEWROLL CCS TEMREG # CALL THIS T6FIRE
AD ONE
COM # -MAG(T6FIRE)
AD TMINFIRE # TMINFIRE-MAG(T6FIRE)
# Page 994
# Page 994
COM
EXTEND
MINTST BZMF NOROLL # IF NOT GREATER THAN TMINFIRE (NEW FIRE)
@ -483,36 +483,36 @@ NOMXFIRE CCS TEMREG # FOR TORQUE SIGN
TCF +2
CA NEGMAX # NEGATIVE TORQUE REQUIRED
TS ROLLFIRE # SET ROLLFIRE FOR + OR - TORQUE
COM # COMPLEMENT... POS. FOR NEG. TORQUE
EXTEND
BZMF +3 # POSITIVE TORQUE REQUIRED
CS TEMREG
TS TEMREG
FIRELOOK CA I # IS IT MOREROLL
EXTEND
BZF FIREPLUG # YES
TCF JETROLL # MAG(T6FIRE) NOW IN TEMREG
FIREPLUG CAE TIME6 # CHECK FOR EXTENDED FIRING
EXTEND
SU TEMREG
EXTEND
EXTENTST BZMF TASKOVER # IF EXTENSION WANTED, DON'T, EXIT ROLL DAP
TCF JETROLL
NOROLL CS ZERO # COAST....(NEG ZERO FOR TIME6)
TS ROLLFIRE # NOTE, JETS CAN FIRE NEXT PASS
TS TEMREG
JETROLL EXTEND
DCA NOROL1T6
# Page 995
# Page 995
DXCH T6LOC
CA TEMREG # ENTER JET FIRING TIME
TS TIME6
CA I # I=0 IF MOREROLL, KEEP SAME JETS ON
EXTEND
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 -TORQUE
TCF T6ENABL
# PROCEED WITH + TORQUE
+TORQUE CA ROLLWORD # WHAT WAS THE LAST +TORQUE COMBINATION
@ -537,19 +537,19 @@ NO.13-15 CS BIT1
EXTEND
WRITE CHAN6
TCF T6ENABL
NO.9-11 CAF BIT1 # 1ST + JETS TO FIRE (MRCLEAN OS ROLLWORD)
ADS ROLLWORD # CHANGE BIT 1 TO ONE
CAF +ROLL1
EXTEND
WRITE CHAN6
TCF T6ENABL
-TORQUE CA ROLLWORD # WHAT WAS LAST -TORQUE COMBINATION
MASK BIT2 # WAS IT NO.12-10
EXTEND
BZF NO.12-10 # NOT 12-10, SO USE IT THIS TIME
NO.16-14 CS BIT2
MASK ROLLWORD
TS ROLLWORD # CHANGE BIT 2 TO ZERO
@ -557,14 +557,14 @@ NO.16-14 CS BIT2
EXTEND
WRITE CHAN6
TCF T6ENABL
NO.12-10 CAF BIT2 # 1ST -JETS TO FIRE (MRCLEAN OS ROLLWORD)
# Page 996
ADS ROLLWORD # CHANGE BIT 2 TO ONE
CAF -ROLL1
EXTEND
WRITE CHAN6
T6ENABL CAF BIT15
EXTEND
WOR CHAN13

48
Comanche055/TVCSTROKETEST.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -136,35 +136,35 @@
BANK 17
SETLOC DAPS2
BANK
COUNT* $$/STRK
EBANK= CADDY
STRKTSTI TCR TSTINIT # STROKE TEST INITIALIZATION PKG (CALLED
# AS A JOB BY VERB68)
STRKCHK INHINT
CAE DAPDATR1 # CHECK FOR CSM/LM CONFIGURATION
MASK BIT14
EXTEND
BZF +3
CAE ESTROKER # BEGIN ON NEXT DAP PASS (PITCH OR YAW)
TS STROKER # (STROKING DONE IN PITCH ONLY, HOWEVER)
TCF ENDOFJOB
TSTINIT CS FCADDY # NORMAL ENTRY FROM STRKTSTI
TS CADDY
TS N # NOTE SGN CHNG FCADDY(+) TO CADDY(-)
CAF FREVS
TS REVS
CS FCARD # NOTE SGN CHNG FCARD(+) TO CARD(-)
TS CARD
TC Q # RETURN TO STRKTSTI+1 (OR CHKSTRK+2 OR +4)
# Page 982
@ -200,20 +200,20 @@ FCARD6 DEC 4 # 4..(+ 4)
HACK EXTEND # ENTRY (IN T5 RUPT) FROM TVCDAPS
QXCH BUNKER # SAVE Q FOR DAP RETURN
CAF 20MS # 2DAPSx2(PASSES/DAP)x2(CS/PASS)=8CS=TVCDT
TC WAITLIST
EBANK= BUNKER
2CADR HACKWLST
TCF +3
HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
TS BUNKER # BUNKER IS TC TASKOVER
CA STROKER # STROKE
ADS TVCPITCH
CAF BIT11 # RELEASE THE ERROR COUNTERS
EXTEND
WOR CHAN14
@ -223,16 +223,16 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
EXTEND
BZMF +2
TC BUNKER # EXIT, WHILE ON A SLOPE
CCS REVS
TCF REVUP # POSITIVE REVS
TCF REVUP +4 # FINAL REVERSAL, THE SET
INCR CARD # NEGATIVE REVS SET LAST PASS, READY FOR
CS CARD # THE NEXT SET. CHECK IF NO MORE SETS
EXTEND
BZF STROKILL # ALL SETS COMPLETED
INDEX CARD
CAF FCARD +4 # PICK UP NO. REVERSALS (-), NEXT SET
TS REVS # REINITIALIZE
@ -241,21 +241,21 @@ HACKWLST CAF TCTSKOVR # ENTRY FROM WAITLIST
TS N # REINITIALIZE
TS CADDY
TC BUNKER # EXIT, AT END OF SET
STROKILL TS STROKER # RESET (TO +0) TO END TEST
TC BUNKER # EXIT, STROKE TEST FINIS
REVUP TS REVS # ALL REVERSALS EXCEPT LAST OF SET
CA N
DOUBLE # 2 x 1/2AMP
TCF +4
+4 CS ONE # FINAL REVERSAL, THIS SET
TS REVS # PREPARE TO BRANCH TO NEW BURST
CA N # JUST RETURN TO ZERO, FINAL SLOPE OF SET
TS CADDY # CADUP
CS STROKER # CHANGE SIGN OF SLOPE
TS STROKER
TC BUNKER # EXIT AT A REVERSAL (SLOPE CHANGE)

28
Comanche055/UPDATE_PROGRAM.agc
View File

@ -10,14 +10,14 @@
# Mod history: 2009-05-07 RSB Adapted from Colossus249/UPDATE_PROGRAM.agc
# and page images. Corrected various typos
# in the transcription of program comments,
# and these should be back-ported to
# and these should be back-ported to
# Colossus249.
#
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
# The contents of the "Comanche055" files, in general, are transcribed
# from scanned documents.
#
# 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
#
@ -166,7 +166,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
BZF +2 # (+0 = P00, -0 = FRESHSTART)
TC CKMDMORE # NOW CHECK FOR PROGRAM WHICH CAN BE
# INTERRUPTED BY P27.
CAE MODREG # UPDATE ALLOWED
TS UPOLDMOD # SAVE CURRENT MAJOR MODE
# Page 1500
@ -178,7 +178,7 @@ V73UPDAT CAF UP73 # COMES HERE ON V73E
TC POSTJUMP # LEAVE EXTENDED VERB BANK AND
CADR UPPART2 # GO TO UPDATE PROGRAM (P27) BANK.
CKMDMORE CS FLAGWRD5
MASK BIT8 # CHECK IF COMPUTER IS LGC
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
# P00 OR P02.
TC Q # ALLOW UPDATE TO PROCEED.
UPERROR TC POSTJUMP # TURN ON 'OPERATOR ERROR' LIGHT
CADR UPERROUT +2 # GO TO COMMON UPDATE PROGRAM EXIT
@ -217,7 +217,7 @@ UPPART2 EQUALS # UPDATE PROGRAM -- PART 2
TS DNLSTCOD # DOWNLIST
TC NEWMODEX # SET MAJOR MODE = 27
# Page 1501
# Page 1501
DEC 27
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
XCH L # INDICATE TO THE GROUND (VIA DOWNLINK)
CAF BIT3 # THAT THE V33 (WHICH THE GROUND SENT TO
# Page 1503
# Page 1503
EXTEND # VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
RXOR LCHAN # RECEIVED BY THE UPDATE PROGRAM
TS FLAGWRD7
@ -415,7 +415,7 @@ DELTAOK TC TPAGREE # FORCE SIGN AGREEMENT
UPEND71 CAE UPBUFF +1 # SET EBANK
TS EBANK # AND
# Page 1505
# Page 1505
MASK LOW8 # CALCULATE
TS UPTEMP # S-REG VALUE OF RECEIVING AREA
AD NEG3 # IN THE PROCESS OF
@ -465,7 +465,7 @@ LDLOOP72 TS MPAC # NOW PERFORM THE UPDATE
MASK LOW8 # ISOLATE RELATIVE ADDRESS
INDEX A
# Page 1506
# Page 1506
EBANK= 1400
LXCH 1400 # UPDATE THE REGISTER BY CONTENTS OF L
EBANK= TEPHEM
@ -513,8 +513,8 @@ UPEND70 EXTEND # V70 DOES THE FOLLOWING WITH DP DELTA
DAS TETCSM
CAF ZERO
# Page 1507
# Page 1507
ZL
DXCH UPBUFF +12D # DECREMENT LEM STATE VECTOR TIME
DAS TETLEM
@ -549,6 +549,6 @@ UPACTOFF CS BIT3
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
TC Q

26
Comanche055/WAITLIST.agc
View File

@ -16,13 +16,13 @@
# thanks to both. The images (with suitable reduction in storage size and
# consequent reduction in image quality as well) are available online at
# www.ibiblio.org/apollo. If for some reason you find that the images are
# illegible, contact me at info@sandroid.org about getting access to the
# illegible, contact me at info@sandroid.org about getting access to the
# (much) higher-quality images which Paul actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 055 of AGC program Comanche by NASA
# 2021113-051. 10:28 APR. 1, 1969
# 2021113-051. 10:28 APR. 1, 1969
#
# This AGC program shall also be referred to as
# Colossus 2A
@ -116,7 +116,7 @@
EBANK= LST1 # TASK LISTS IN SWITCHED E BANK.
COUNT 02/WAIT
TWIDDLE INHINT
TS L # SAVE DELAY TIME IN L
CA POSMAX
@ -164,7 +164,7 @@ VARDELAY XCH Q # DT TO Q. TASK ADRES TO WAITADR.
TS WAITADR
CA BBANK # BBANK IS SAVED DURING DELAY.
EXTEND
# Page 1224
# Page 1224
ROR SUPERBNK # ADD SBANK TO BBCON.
TS L
CAF DELAYEX
@ -185,7 +185,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG
TCF +1
CCS IMUCADR # DON'T DO NBDONLY IF SOMEONE ELSE IS IN
TCF SVCT3X
TCF SVCT3X
TCF +3
TCF SVCT3X
TCF SVCT3X
@ -195,7 +195,7 @@ SVCT3 CCS FLAGWRD2 # DRIFT FLAG
2CADR NBDONLY
TCF TASKOVER
SETLOC FFTAG6
BANK
@ -208,7 +208,7 @@ SVCT3X TC FIXDELAY # DELAY MAX OF 2 TIMES FOR IMU ZERO
BANK 01
COUNT 01/WAIT
WAIT2 TS WAITBANK # BBANK OF CALLING PROGRAM.
CS TIME3
AD BIT8 # BIT 8 = OCT 200
@ -319,7 +319,7 @@ WTLST5 CCS A # TEST TD - T2 + 1
OCT 6
# Page 1229
+4 CCS A
+4 CCS A
AD LST1 +7
TCF +4
AD ONE
@ -329,13 +329,13 @@ WTLST5 CCS A # TEST TD - T2 + 1
+4 CCS A
WTABORT TC BAILOUT # NO ROOM IN THE INN
OCT 1203
AD ONE
TC WTLST2
OCT 10
OCT40201 OCT 40201
# Page 1230
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
# N N+1
@ -411,7 +411,7 @@ T3RUPT2 CAF NEG1/2 # DISPATCH WAITLIST TASK.
BLOCK 02
COUNT 02/WAIT
TASKOVER CCS RUPTAGN # IF +1 RETURN TO T3RUPT, IF -0 RESUME.
CAF WAITBB
TS BBANK
@ -495,7 +495,7 @@ LGCL2CDR 2CADR LNGCALL2
BANK 01
COUNT 01/WAIT
LNGCALL2 LXCH LONGEXIT +1 # SAVE THE CORRECT BB FOR RETURN
CA TWO # OBTAIN THE RETURN ADDRESS
ADS Q

2
Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1284
# PROGRAM DESCRIPTION DATE: 20 DECEMBER 1967

2
Luminary099/AGS_INITIALIZATION.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 206

4
Luminary099/ALARM_AND_ABORT.agc
View File

@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1381
# 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
TS FLAGWRD2
TC Q

30
Luminary099/AOSTASK_AND_AOSJOB.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1485-1506
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Corrected a memory-bank error type.
# 2009-06-07 RSB Corrected a typo.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1485
# PROGRAM NAME: 1/ACCS
@ -281,7 +281,7 @@ LRESC CAE ABDELV # SCALED AT 2(13) CM/SEC(2)
EXTEND
MP L,PVT-CG # SCALED AT 8 FEET.
# Page 1490
# Page 1490
INHINT
TS MPAC
EXTEND
@ -425,19 +425,19 @@ MAXPLUS CAF POSMAX # -,- OR +,+
# AND C IS SCALED AT B+16 KG.
2DEC +.0410511917 # L A DESCENT
INERCONA 2DEC +.0059347674 # 1JACCP A DESCENT
2DEC +.0014979264 # 1JACCQ A DESCENT
2DEC +.0010451889 # 1JACCR A DESCENT
2DEC +.0065443852 # 1JACCP A ASCENT
2DEC +.0035784354 # 1JACCQ A ASCENT
2DEC +.0056946631 # 1JACCR A ASCENT
DEC +.155044 # L B DESCENT
DEC -.025233 # L C DESCENT
# Page 1494
@ -754,7 +754,7 @@ NOTMUCH TS L # ABS(AOS) LESS THAN AMIN, SAVE IN L
AD L # L HAS ABS(AOS) - AMIN
EXTEND # RESULT IS ABS(AOS)- AMIN/2
BZMF NOAOS # ABS(AOS) LESS THAN AMIN/2
SOMEAOS CA DBVAL3 # AMIN/2 LT ABS(AOS) LT AMIN
INDEX -SIGNAOS
TS DBB3 # DB3(4) = DB/2
@ -781,7 +781,7 @@ ACCTHERE INDEX -SIGNAOS
CA ABSAOS # SEE IF OVERFLOW IN MIN CASE
AD 1JACCU
# Page 1501
# Page 1501
AD BIT9 # MAXIMUM POSSIBLE VALUE
TS A # OVERFLOW POSSIBLE BUT REMOTE
TCF +2
@ -879,7 +879,7 @@ STORV CA ACCSW # STORE V AXIS VALUES
TS ACCSWV
CA NINE
TC GENTRAN +1
# Page 1503
# Page 1503
ADRES 1/ATEM1 # TEMPORARY BUFFER
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
TS ANET
# Page 1505
# Page 1505
TCF 1/NETMIN +1 # CONTINUE AS IF NOTHING HAPPENED.
FIXMIN CCS SIGNAOS
@ -1066,4 +1066,4 @@ PAXISADR GENADR PAXIS
OCT 00022 # -V
+UMASK OCT 00204 # +U
OCT 00041 # +V

146
Luminary099/AOTMARK.agc
View File

@ -24,28 +24,28 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 244
BANK 12
SETLOC AOTMARK1
BANK
EBANK= XYMARK
COUNT* $$/MARK
AOTMARK INHINT
CCS MARKSTAT # SEE IF AOTMARK BUSY
TC +2 # MARK SYSTEM BUSY -- DO ALARM
TC EXTVBCHK
TC P00DOO
OCT 00105
EXTVBCHK CAF SIX # SEE IF EXT. VERB WORKING
MASK EXTVBACT
CCS A
TCF MKABORT # YES -- ABORT
CAF BIT2 # NO -- DISALLOW SOME EXTENDED VERB ACTION
ADS EXTVBACT # BIT2 RESET IN ENDMARK
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
TC BAILOUT1 # ALL VAC AREAS OCCUPIED -- ABORT.
OCT 01207
MKVACFND AD TWO
TS MARKSTAT # STORE VAC ADR IN LOW 9 OF MARKSTAT
CAF ZERO
INDEX MARKSTAT
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
EBANK= XYMARK
2CADR GETDAT
RELINT
TCF SWRETURN
# Page 245
MKABORT DXCH BUF2
TC BAILOUT1 # CONFLICT WITH EXTENDED VERB
OCT 01211
MKRELEAS CAF ZERO
XCH MARKSTAT # SET MARKSTAT TO ZERO
MASK LOW9 # PICK UP VAC AREA AOR
@ -90,7 +90,7 @@ MKRELEAS CAF ZERO
CAF ONE
TC IBNKCALL
CADR GOODEND # GO WAKE UP CALLING JOB
# Page 246
KILLAOT CAF ZERO
TS EXTVBACT # TERMINATE AOTMARK -- ALLOW EXT VERB
@ -98,11 +98,11 @@ KILLAOT CAF ZERO
GETDAT CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12 # BIT12 RESET AT GETMARK
ADS MARKSTAT
CAF V01N71 # DISPLAY DETENT AND STAR CODE
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF DODAT # V33 -- PROCEED -- USE THIS STAR FOR MARKS
ENTERDAT TCF GETDAT # ENTER -- REDISPLAY STAR CODE
@ -112,20 +112,20 @@ DODAT CAF HIGH9 # PICK DETENT CODE FROM BITS7-9 OF AOTCODE
EXTEND
MP BIT9
TS XYMARK # STORE DETENT
EXTEND
BZMF GETDAT # COAS CALIBRATION CODE - NO GOOD HERE
AD NEG7 # SEE IF DETENT 7 FOR COAS
EXTEND
BZF CODE7
TCF CODE1TO6
CODE7 CAF V06N87* # CODE 7, COAS SIGHTING, GET OPTIC AXIS
TC BANKCALL # AZ AND EL OF SIGHTING DEVICE FROM ASTRO
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF +2 # PROCEED
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
CAF ZERO # BACKUP SYSTEM TO BE USED
TCF COASCODE # ZERO APPARENT ROTATION
CODE1TO6 INDEX XYMARK # INDEX AOT POSITION BY DET CODE
CA AOTEL -1
INDEX FIXLOC
TS 9D # STORE ELEVATION IN VAC+9D
INDEX XYMARK # INDEX DET CODE 1,2 OR 3
# Page 247
CA AOTAZ -1
INDEX FIXLOC
TS 8D # STORE AZIMUTH IN VAC +8D
CA AOTAZ +1 # COMPENSATION FOR APPARENT ROTATION OF
EXTEND # AOT FIELD OF VIEW IN LEFT AND RIGHT
INDEX FIXLOC # DETENTS IS STORED IN VAC +10D IN SP
MSU 8D # PRECISION ONE'S COMPLEMENT
COASCODE INDEX FIXLOC
TS 10D # ROT ANGLE
TC INTPRET # COMPUTE X AND Y PLANE VECTORS
# Page 248
# THE OPTAXIS SUBROUTINE COMPUTES THE X AND Y MARK PLANE VECS AND
# 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
EXIT
TCF GETMKS
# Page 249
# THE OANB SUBROUTINE COMPUTES THE OPTIC AXIS OF THE SIGHTING INSTRUMENT
# 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
SETLOC AOTMARK2
BANK
COUNT* $$/MARK
OANB SETPD STQ
0
GCTR # STORE RETURN
@ -245,7 +245,7 @@ OANB SETPD STQ
# Page 250
# SURFSTAR COMPUTES A STAR VECTOR IN SM COORDINATES FOR LUNAR
# SURFACE ALIGNMENT AND EXITS TO AVEIT TO AVERAGE STAR VECTORS.
#
#
# GIVEN X-MARK PLANE 1/4 VEC IN NB AT 18D OF LOCAL VAC
# Y-MARK PLANE 1/4 VEC IN NB AT 12D OF LOCAL VAC
# CURSOR SP 2COMP AT POSITION 1 OF INDEXED MARKVAC
@ -256,7 +256,7 @@ OANB SETPD STQ
SETLOC P50S
BANK
COUNT* $$/R59
SURFSTAR VLOAD*
0,1 # PUT X-MARK CDUS IN CDUSPOT FOR TRG*NBSM
STORE CDUSPOT
@ -312,7 +312,7 @@ YZCHK SLOAD* BZE # YROT ZERO AND IF SROT ZERO FORCE STAR
YSZERO VLOAD GOTO
SCAXIS
JUSTOA
# Page 252
# 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
PASTIT TC BANKCALL
CADR GOMARK4
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF MARKCHEX # VB33 -- PROCEED, GOT MARKS, COMPUTE LOS
TCF GETDAT # ENTER -- RECYCLE TO V01N71
MARKCHEX CS MARKSTAT # SET BIT12 TO DISCOURAGE MARKRUPT
MASK BIT12
ADS MARKSTAT
@ -349,7 +349,7 @@ CNTCHK CCS MARKCNTR # NO PAIR SHOWING -- SEE IF PAIR IN HOLD
TCF +2 # PAIR BURIED -- DECREMENT COUNTER
TCF MKALARM # NO PAIR -- ALARM
TS MARKCNTR # STORE DECREMENTED COUNTER
AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
ADS MKDEX # MKDEX WAS INITIALIZED ZERO IN MARKCHEX
CS MARKCNTR
@ -359,10 +359,10 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
AD L # ADD -- MARK VAC ADR SET IN MARKCHEX
INDEX FIXLOC
TS X1 # JAM -- CDU ADR OF X-MARK IN X1
CA FIXLOC # SET PD POINTER TO ZERO
TS PUSHLOC
TC INTPRET
# Page 253
BON VLOAD*
@ -382,7 +382,7 @@ AVESTAR CAF BIT12 # INITIALIZE MKDEX FOR STAR LOS COUNTER
VXV UNIT # UNIT(XPSM * YPSM)
STADR
STORE 24D
AVEIT SLOAD PDVL # N(NUMBER OF VECS) IN 0-1
MKDEX
24D # LOAD CURRENT VECTOR
@ -405,13 +405,13 @@ ENDMARKS CAF FIVE # NO MORE MARKS -- TERMINATE AOTMARK
TC WAITLIST
EBANK= XYMARK
2CADR MKRELEAS
TC ENDMARK
MKALARM TC ALARM # NOT A PAIR TO PROCESS -- DO GETMKS
OCT 111
TCF GETMKS
V01N71 VN 171
V06N87* VN 687
@ -431,14 +431,14 @@ MARKRUPT TS BANKRUPT
DXCH ITEMP1
XCH Q
TS QRUPT
CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
EXTEND
RAND NAVKEYIN
CCS A
TCF +2 # ITS A LIVE ONE -- SEE IF ITS WANTED
TCF SOMEKEY # ITS SOME OTHER KEY
CAF BIT12 # ARE WE ASKING FOR A MARK
MASK MARKSTAT
CCS A
@ -449,42 +449,42 @@ MARKRUPT TS BANKRUPT
TC ALARM # MARKS NOT BEING ACCEPTED -- DO ALARM
OCT 112
TC RESUME
FINDKEY CAF BIT5 # SEE IF MARK REJECT.
EXTEND
RAND NAVKEYIN
CCS A
TCF MKREJ # IT'S A MARK REJECT
CAF BIT4 # SEE IF Y MARK
EXTEND
RAND NAVKEYIN
CCS A
TCF YMKRUPT # IT'S A Y MARK
CAF BIT3 # SEE IF X MARK
EXTEND
RAND NAVKEYIN
# Page 255
CCS A
TCF XMKRUPT # IT'S A X MARK
SOMEKEY CAF OCT140 # NOT MARK OR MKREJECT -- SEE IF DESCENT BITS
EXTEND
RAND NAVKEYIN
EXTEND
BZF +3 # IF NO BITS
TC POSTJUMP # IF DESCENT BITS
CADR DESCBITS
TC ALARM # NO INBITS IN CHANNEL 16.
OCT 113
TC RESUME
XMKRUPT CAF ZERO
TS RUPTREG1 # SET X MARK STORE INDEX TO ZERO
CAF BIT10
@ -493,10 +493,10 @@ YMKRUPT CAF ONE
TS RUPTREG1 # SET Y MARK STORE INDEX TO ONE
CAF BIT11
TS XYMARK # SET MARK IDENTIFICATION
TC MARKTYPE # SEE IF SURFACE MARK
TCF SURFSTOR # SURFACE MARK -- JUST STORE CDUS
CAF BIT14 # GOT A MARK -- SEE IF MARK PARI MADE
MASK MARKSTAT
EXTEND
@ -509,7 +509,7 @@ YMKRUPT CAF ONE
CS PRIO23 # CLEAR BITS 10,11,14 FOR NEXT PAIR
MASK MARKSTAT
TS MARKSTAT
VERIFYMK CA XYMARK
MASK MARKSTAT
CCS A
@ -525,11 +525,11 @@ VERIFYMK CA XYMARK
TC MARKTYPE # SEE IF SURFACE MARK
TCF DSPV6N79 # IT IS
TC RESUME # DON'T CHANGE DISPLAY -- DO NOTHING
# Page 257
MKREJ TC MARKTYPE # SEE IF SURFACE
TCF SURFREJ # SURFACE -- JUST CHECK MARK COUNTER
CAF PRIO3 # INFLIGHT -- SEE IF MARKS MADE
MASK MARKSTAT
CCS A
@ -537,7 +537,7 @@ MKREJ TC MARKTYPE # SEE IF SURFACE
REJALM TC ALARM # NO MARK TO REJECT -- BAD PROCEDURE -- ALARM
OCT 115
TC RESUME # DESIRED ACTION DISPLAYED
REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
MASK MARKSTAT # LAST REJECT
AD BIT13
@ -545,15 +545,15 @@ REJECT CS PRIO30 # ZERO BIT14, SHOW REJ., SEE IF MARK SINCE
MASK BIT13
CCS A
TCF REJECT2 # ANOTHER REJECT SET BIT 10+11 TO ZERO
CS XYMARK # MARK MADE SINCE REJECT -- REJECT MARK IN 1D
RENEWMK MASK MARKSTAT
TS MARKSTAT
TCF REMARK # GO REQUEST NEW MARK ACTION
REJECT2 CS PRIO3 # ON SECOND REJECT -- DISPLAY VB53 AGAIN
TCF RENEWMK
SURFREJ CCS MARKCNTR # IF MARK DECREMENT COUNTER
TCF +2
TCF REJALM # NO MARKS TO REJECT -- ALARM
@ -568,14 +568,14 @@ MARKTYPE CS FLAGWRD8 # SURFFLAG ******** TEMPORARY ******
CCS A
INCR Q # IF SURFACE MARK RETURN TO LOC +1
TC Q # IF INFLIGHT MARK RETURN TO LOC +2
SURFSTOR CAF ZERO # FOR SURFACE MARK ZERO MARK KIND INDEX
TS RUPTREG1
CS MARKSTAT # SET BITS10,11 TO SHOW SURFACE MARK
MASK PRIO3 # FOR MARKCHEX
ADS MARKSTAT
VACSTOR CAF LOW9
MASK MARKSTAT # STORE MARK VAC ADR IN RUPTREG2
TS RUPTREG2
@ -600,7 +600,7 @@ VACSTOR CAF LOW9
TS 4 # STORE CDUX
TC MARKTYPE # IF SURFACE MARK -- JUST DO SURFJOB
TCF SURFJOB
CAF BIT13 # CLEAR BIT13 TO SHOW MARK MADE
AD XYMARK # SET MARK ID IN MARKSTAT
COM
@ -609,7 +609,7 @@ VACSTOR CAF LOW9
TS MARKSTAT
MASK PRIO3 # SEE IF X, Y MARK MADE
TS L
# Page 259
CA PRIO3
EXTEND
@ -620,7 +620,7 @@ VACSTOR CAF LOW9
MASK BIT14
ADS MARKSTAT
TCF REMARK # GO DISPLAY V54
# Page 260
REMARK CAF PRIO3 # BITS 10 AND 11
MASK MARKSTAT
@ -631,15 +631,15 @@ SURFJOB CAF PRIO15
TC NOVAC # ENTER JOB TO CHANGE DISPLAY TO
EBANK= XYMARK # REQUEST NEXT ACTION
2CADR CHANGEVB
TC RESUME
CHANGEVB TC MARKTYPE
TCF DSPV6N79 # SURFACE -- DISPLAY V 06 N 79
INDEX MKDEX # INFLIGHT -- PICK UP MARK VB INDEX
CAF MKVB54
TC PASTIT # PASTE UP NEXT MK VERB DISPLAY
# THE FOUR MKVBS ARE INDEXED -- THEIR ORDER CANNOT BE CHANGED
MKVB54 VN 5471 # MAKE X OR Y MARK
@ -655,11 +655,11 @@ V06N79* VN 679
# Page 261
# ROUTINE TO REQUEST CURSOR AND SPIRAL MEASUREMENTS
COUNT* $$/R59
DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
TC BANKCALL
CADR GOMARKF
TCF KILLAOT # V34 -- DOES GOTOP00H
TCF SURFEND # V33 -- PROCEED, END MARKING
CAF BIT6 # IF V32(OCT40) IN MPAC DO RECYCLE
@ -667,19 +667,19 @@ DSPV6N79 CAF V06N79* # CURSOR -- SPIRAL DISPLAY
CCS A # RE-DISPLAY V06N79
TCF SURFAGAN # VB32 -- RECYCLE
TCF DSPV6N79 # ENTER
SURFEND CS BIT14 # SET BIT14 TO SHOW MARK END
MASK MARKSTAT
AD BIT14
TS MARKSTAT
SURFAGAN CA CURSOR
INDEX MKDEX # HOLDS VAC AREA POINTER FOR SURF MARKING
TS 1 # STORE CURSOR SP 2COMP
CA SPIRAL
INDEX MKDEX
TS 3 # STORE SPIRAL
CS MARKSTAT # IF BIT 14 SET -- END MARKING
MASK BIT14
EXTEND
@ -692,4 +692,4 @@ SURFAGAN CA CURSOR
BZMF 5MKALARM # CAN'T RECYCLE -- TOO MANY MARKS -- ALARM
INCR MARKCNTR # OF FOR RECYCLE -- INCR COUNTER
TCF GETMKS +3 # GO DISPLAY MARK VB

8
Luminary099/ASCENT_GUIDANCE.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 843
BANK 34
@ -446,7 +446,7 @@ CHECKYAW SET
EXITVR1
GOTO
KEEPVR
BANK 5
SETLOC ASENT3
BANK
@ -568,7 +568,7 @@ V16N85C VN 1685
SETLOC ASENT1
BANK
COUNT* $$/ASENT
YCOMP VLOAD DOT
UNIT/R/
QAXIS
@ -576,7 +576,7 @@ YCOMP VLOAD DOT
RCO
STORE Y
RVQ
BANK 30
SETLOC ASENT
BANK

10
Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
View File

@ -33,7 +33,7 @@
# FOR MANNED LM EARTH ORBITAL AND LUNAR MISSIONS
# 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
# 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
# 15 MONITOR OCTAL COMP 1,2,3 IN 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
# 19
# 20
@ -842,7 +842,7 @@
# (B IS A BLANK 1 UNIT OF XX
# POSITION. DECIMAL BIT 1 OF LOW REGISTER =
# 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
# (MAX 99B99) LESS THAN 100)
@ -899,7 +899,7 @@
# CODE * TYPE SET BY
# 00105 ** AOTMARK SYSTEM IN USE
# 00105 ** AOTMARK SYSTEM IN USE
# 00107 MORE THAN 5 MARK PAIRS AOTMARK
# 00111 MARK MISSING AOTMARK
# 00112 MARK OR MARK REJECT NOT BEING ACCEPTED AOTMARK
@ -948,7 +948,7 @@
# 00602 PERIGEE ALTITUDE CDH LT PMIN2 P32, P72.
# 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
# 00605 NUMBER OF ITERATIONS EXCEEDS LOOP MAXIMUM P32, P72
# 00606 DV EXCEEDS MAXIMUM P32, P72

78
Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 342-363
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-16 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 342
# 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
# 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
# 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
# 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
# _
@ -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
# 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
# DESIRED REFERENCE MATRIX IS THEN,
@ -115,7 +115,7 @@
# *
# 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
# 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
@ -129,7 +129,7 @@
# CALLING SEQUENCE
#
# 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
# 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.,
#
#
# * * T
# M = M1
#
@ -220,7 +220,7 @@
#
# M = -SINY COSZ
# 6
#
#
# M = SINY SINZ COSX + COSY SINX
# 7
# 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
# 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).
#
#
# INTERNALLY, THE PROGRAM ALSO USES THE FIRST 10 LOCATIONS OF THE PUSH DOWN LIST.
#
# READCDUK
@ -419,9 +419,9 @@
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
# THE THREE DESIRED CDU ANGLES MUST BE STORED AS SINGLE PRECISION TWO'S COMPLEMENT ANGLES IN THE THREE SUCCESSIVE
# LOCATIONS, CPHI, CTHETA, CPSI.
@ -475,7 +475,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
STOVL TMFI +6
STADR
STORE TMFI # TMFI = TRANSPOSE (MFI) SCALED BY 4
# CALCULATE COFSKEW AND MFISYM
DLOAD DSU
@ -489,7 +489,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
MFI +10D
VDEF
STORE COFSKEW # EQUALS MFISKEW
# CALCULATE AM AND PROCEED ACCORDING TO ITS MAGNITUDE
DLOAD DAD
@ -508,7 +508,7 @@ SECAD AXC,1 CALL # MIS AND MFS ARRAYS CALCULATED $2
CPHI # GO DIRECTLY INTO ATTITUDE HOLD
STCALL CDUXD # ABOUT COMMANDED ANGLES
TOOBADI # STOP RATE AND EXIT
CHECKMAX DLOAD DSU
AM
MAXANG
@ -533,7 +533,7 @@ ALTCALC VLOAD VAD # IF AM GREATER THAN 170 DEGREES
VAD VSR1
TMFI +12D
STORE MFISYM +12D # MFISYM=(MFI+TMFI)/2 SCALED BY 4
# CALCULATE COF
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
UNIT
STORE COF
# DETERMINE LARGEST COF AND ADJUST ACCORDINGLY
COFMAXGO DLOAD DSU
@ -578,9 +578,9 @@ COFMAXGO DLOAD DSU
COMP12 DLOAD DSU
COF +2
COF +4
BMN
BMN
METHOD3 # COFZ G COFY OR COFX
METHOD2 DLOAD BPL # COFY MAX
COFSKEW +2 # UY
U2POS
@ -648,9 +648,9 @@ OKU31 DLOAD BPL
BANK 13
SETLOC KALCMON2
BANK
EBANK= BCDU
MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
0 # AND LEAVES RESULT IN PD LIST
0,1 # AND MPAC
@ -663,7 +663,7 @@ MXM3 SETPD VLOAD* # MXM3 MULTIPLIES 2 3X3 MATRICES
VXM* PUSH
0,2
RVQ
# RETURN WITH MIXM2 IN PD LIST
TRANSPOS SETPD VLOAD* # TRANSPOS TRANSPOSES A 3X3 MATRIX
@ -695,13 +695,13 @@ TRNSPSPD EXIT # ENTER WITH MATRIX AT 0 IN PD LIST
# Page 357
TC INTPRET
RVQ
BANK 15
SETLOC KALCMON1
BANK
EBANK= BCDU
MINANG 2DEC 0.00069375
MAXANG 2DEC 0.472222222
@ -732,7 +732,7 @@ READCDUK CA CDUZ # LOAD T(MPAC) WITH CDU ANGLES
EXTEND
DCA CDUX # AND CHANGE MODE TO TRIPLE PRECISION
TCF TLOAD +6
CDUTODCM AXT,1 SSP
OCT 3
S1
@ -814,7 +814,7 @@ LOOPSIN SLOAD* RTB
STADR
STORE 16D,2 # C8=-SIN(THETA)SIN(PHI)SIN(PSI)
RVQ # +COS(THETA)COS(PHI)
# CALCULATION OF THE MATRIX DEL......
#
# * * __T *
@ -834,7 +834,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
DPHALF
SIGNMPAC
PDDL # PDA = 1-COS(A)
# COMPUTE THE DIAGONAL COMPONENTS OF DEL
COF
@ -859,10 +859,10 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
4
DAD SL3
2
BOVB
BOVB
SIGNMPAC
STORE KEL +16D # UZ UZ(1-COS(A)) +COS(A) $1
# COMPUTE THE OFF DIAGONAL TERMS OF DEL
DLOAD DMP
@ -918,7 +918,7 @@ DELCOMP SETPD PUSH # MPAC CONTAINS THE ANGLE A
SIGNMPAC
STORE KEL +10D # UY UZ (1-COS(A)) -UX SIN(A)
RVQ
# DIRECTION COSINE MATRIX TO CDU ANGLE ROUTINE
# X1 CONTAINS THE COMPLEMENT OF THE STARTING ADDRESS FOR MATRIX (SCALED 2).
# LEAVE CDU ANGLES SCALED 2PI IN V(MPAC).
@ -1004,24 +1004,24 @@ VECOFANG VDEF RVQ
TOOBADF EXIT
TC ALARM
OCT 00401
TCF NOGO # DO NOT ZERO ATTITUDE ERRORS
TC BANKCALL
CADR ZATTEROR # ZERO ATTITUDE ERRORS
NOGO TC BANKCALL
CADR STOPRATE # STOP RATES
CAF TWO
INHINT # ALL RETURNS ARE NOW MADE VIA GOODEND
TC WAITLIST
EBANK= BCDU
2CADR GOODMANU
TCF ENDOFJOB
TOOBADI EXIT
TCF NOGO

24
Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 731-751
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected 3 typos.
# 2009-07-23 RSB Added Onno's notes on the naming
@ -28,7 +28,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 731
## 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
## 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.
## 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
## 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.
# BURN, BABY, BURN -- MASTER IGNITION ROUTINE
@ -363,7 +363,7 @@ TIG-5 EXTEND
ADRES IGNFLAG # FOR LIGHT-UP LOGIC.
TC DOWNFLAG
ADRES ASTNFLAG
INDEX WHICH
TCF 11
@ -380,7 +380,7 @@ P40SJUNK CCS PHASE3 # (11) P40 AND P42. S40.13 IN PROGRESS?
DISPCHNG CS VB99DEX # (11)
TS DISPDEX
# Page 738
# Page 738
COMMON TC PHASCHNG # RESTART TIG-0 (4.7SPOT)
OCT 40074
TCF TASKOVER
@ -449,11 +449,11 @@ P63IGN EXTEND # (13) INITIATE BURN DISPLAYS
CS FLAGWRD9 # SET FLAG FOR P70-P71
MASK LETABBIT
ADS FLAGWRD9
CS FLAGWRD7 # SET SWANDISP TO ENABLE R10.
MASK SWANDBIT
ADS FLAGWRD7
CS PULSES # MAKE SURE DAP IS NOT IN MINIMUM-IMPULSE
MASK DAPBOOLS # MODE, IN CASE OF SWITCH TO P66
TS DAPBOOLS
@ -680,7 +680,7 @@ STCLOK3 TC MAKECADR # SETTING DISPDEX POSITIVE KILLS IT.
DXCH MPAC
EXTEND
DCS TIME2
# Page 744
# Page 744
DAS MPAC # HAVE TIG -- TIME2, UNDOUBTEDLY A + NUMBER
TC TPAGREE # POSITIVE, SINCE WE PASSED THE
CAF 1SEC # 45 SECOND CHECK.
@ -726,7 +726,7 @@ CLOKJOB EXTEND
DCS TIG
DXCH TTOGO
EXTEND
# Page 745
# Page 745
DCA TIME2
DAS TTOGO
INHINT

8
Luminary099/CONIC_SUBROUTINES.agc
View File

@ -98,7 +98,7 @@
# * +27 FOR MOON *
# Page 1161
# 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,
# * * RESPECTIVELY, IS THE CENTRAL BODY
# TAU * +28 * DESIRED TRANSFER TIME IN CENTISECONDS (DP)
@ -188,7 +188,7 @@
# SGA MEMO 67-4.
#
# INPUT - ERASABLE INITIALIZATION REQUIRED
#
#
# * SCALE FACTOR *
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
# -------- *-------------- * -----------------------
@ -365,7 +365,7 @@
# Page 1168
# DEBRIS -
# PARAMETERS WHICH MAY BE OF USE -
#
#
# * SCALE FACTOR *
# VARIABLE *IN POWERS OF 2 * DESCRIPTION AND REMARKS
# -------- *-------------- * -----------------------
@ -1641,7 +1641,7 @@ TIMERAD STQ SETPD # PL AT 0
BADR2
SQRT SIGN
SGNRDOT
CLEAR
CLEAR
APSESW
# Page 1199
TERMNVEC VXSC VSL1

144
Luminary099/CONTROLLED_CONSTANTS.agc
View File

@ -30,7 +30,7 @@
SETLOC P40S
BANK
COUNT* $$/P40
# *** THE ORDER OF THE FOLLOWING SIX CONSTANTS MUST NOT BE CHANGED ***
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
BANK
COUNT* $$/P40
# *** APS IMPULSE DATA FOR P42 ***************************************
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.
(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.
(TBUP)A 2DEC 91902 B-17 # ESTIMATED BURN-UP TIME OF THE ASCENT STG.
# 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
BANK
COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST NOT BE CHANGED *******
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
BANK
COUNT* $$/F2DPS
TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
# Page 40
@ -110,7 +110,7 @@ TRIMACCL 2DEC* +3.50132708 E-5 B+08* # A (T) +3.50132708E- 1
SETLOC P40S
BANK
COUNT* $$/P40
THRESH1 DEC 24
THRESH3 DEC 12
HIRTHROT = BIT13
@ -118,13 +118,13 @@ HIRTHROT = BIT13
SETLOC FFTAG5
BANK
COUNT* $$/P40
THRESH2 DEC 308
SETLOC FTHROT
BANK
COUNT* $$/THROT
FMAXODD DEC +3841 # FSAT +4.81454413 E+4
FMAXPOS DEC +3467 # FMAX +4.34546769 E+4
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
BANK
COUNT* $$/F2DPS
DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
# Page 41
@ -142,25 +142,25 @@ DPSTHRSH DEC 36 # (THRESH1 + THRESH3 FOR P63)
SETLOC RADARUPT
BANK
COUNT* $$/RRUPT
LVELBIAS DEC -12288 # LANDING RADAR BIAS FOR 153.6 KC.
RDOTBIAS 2DEC 17000 # BIAS COUNT FOR RR RANGE RATE.
SETLOC LRS22
BANK
COUNT* $$/LRS22
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
SETLOC SERVICES
BANK
COUNT* $$/SERV
HBEAMANT 2DEC -.4687018041 # RANGE BEAM IN LR ANTENNA COORDINATES.
2DEC 0
2DEC -.1741224271
HSCAL 2DEC -.3288792 # SCALES 1.079 FT/BIT TO 2(22)M.
# ***** 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
BANK
COUNT* $$/R10
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.
ARTOA2 DEC .0021322 B8 # (.5)/(2.345)(100)
@ -193,7 +193,7 @@ MAXVBITS OCT 00547 # MAX. DISPLAYED VELOCITY 199.9989 FT/SEC.
SETLOC DAPS3
BANK
COUNT* $$/DAPAO
TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
# Page 43
@ -202,13 +202,13 @@ TORKJET1 DEC .03757 # 550 / .2 SCALED AT (+16) 64 / 180
SETLOC FRANDRES
BANK
COUNT* $$/START
FULLAPS DEC 5050 B-16 # NOMINAL FULL ASCENT MASS -- 2(16) KG.
SETLOC LOADDAP1
BANK
COUNT* $$/R03
MINLMD DEC -2850 B-16 # MIN. DESCENT 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
@ -216,7 +216,7 @@ MINCSM = BIT11 # MIN CSM MASS (OK FOR 1/ACCS) = 9050 LB
SETLOC DAPS3
BANK
COUNT* $$/DAPAD
LOASCENT DEC 2200 B-16 # MIN ASCENT 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.
@ -227,7 +227,7 @@ LODESCNT DEC 1750 B-16 # MIN DESCENT STAGE (ALONE) -- 2(16) KG.
SETLOC IMU2
BANK
COUNT* $$/P07
OMEG/MS 2DEC .24339048
SETLOC R30LOC
@ -244,20 +244,20 @@ OMEG/MS 2DEC .24339048
SETLOC P40S1
BANK
COUNT* $$/S40.9
EARTHMU 2DEC* -3.986032 E10 B-36* # M(3)/CS(2)
SETLOC ASENT1
BANK
COUNT* $$/P12
MUM(-37) 2DEC* 4.9027780 E8 B-37*
MOONRATE 2DEC* .26616994890062991 E-7 B+19* # RAD/CS.
SETLOC SERVICES
BANK
COUNT* $$/SERV
# *** THE ORDER OF THE FOLLOWING TWO CONSTANTS MUST BE PRESERVED ***********
-MUDT 2DEC* -7.9720645 E+12 B-44*
@ -275,7 +275,7 @@ RESQ 2DEC* 40.6809913 E12 B-58*
SETLOC P50S1
BANK
COUNT* $$/LOSAM
RSUBEM 2DEC 384402000 B-29
RSUBM 2DEC 1738090 B-29
RSUBE 2DEC 6378166 B-29
@ -284,14 +284,14 @@ ROE 2DEC .00257125
SETLOC CONICS1
BANK
COUNT* $$/LT-LG
ERAD 2DEC 6373338 B-29 # PAD RADIUS
504RM 2DEC 1738090 B-29 # METERS B-29 (EQUATORIAL MOON RADIUS)
SETLOC CONICS1
BANK
COUNT* $$/CONIC
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST BE PRESERVED **************
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* 2.21422176 E4 B-15* # SQRT(MUM)
2DEC* .45162595 E-4 B+14* # 1/SQRT(MUM)
# *************************************************************************
# Page 46
SETLOC INTINIT
BANK
COUNT* $$/INTIN
OMEGMOON 2DEC* 2.66169947 E-8 B+23*
SETLOC ORBITAL2
BANK
COUNT* $$/ORBIT
# *** THE ORDER OF THE FOLLOWING CONSTANTS MUST NOT BE CHANGED ************
2DEC* 1.32715445 E16 B-54*
@ -334,13 +334,13 @@ J2REQSQ 2DEC* 1.75501139 E21 B-72*
SETLOC TOF-FF1
BANK
COUNT* $$/TFF
1/RTMU 2DEC* .5005750271 E-5 B17* # MODIFIED EARTH MU
SETLOC SBAND
BANK
COUNT* $$/R05
REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
# Page 47
@ -349,167 +349,167 @@ REMDIST 2DEC 384402000 B-29 # MEAN DISTANCE BETWEEN EARTH AND MOON.
SETLOC STARTAB
BANK
COUNT* $$/STARS
2DEC +.8342971408 B-1 # STAR 37 X
2DEC -.2392481515 B-1 # STAR 37 Y
2DEC -.4966976975 B-1 # STAR 37 Z
2DEC +.8139832631 B-1 # STAR 36 X
2DEC -.5557243189 B-1 # STAR 36 Y
2DEC +.1691204557 B-1 # STAR 36 Z
2DEC +.4541086270 B-1 # STAR 35 X
2DEC -.5392368197 B-1 # STAR 35 Y
2DEC +.7092312789 B-1 # STAR 35 Z
2DEC +.3201817378 B-1 # STAR 34 X
2DEC -.4436021946 B-1 # STAR 34 Y
2DEC -.8370786986 B-1 # STAR 34 Z
2DEC +.5520184464 B-1 # STAR 33 X
2DEC -.7933187400 B-1 # STAR 33 Y
2DEC -.2567508745 B-1 # STAR 33 Z
2DEC +.4537196908 B-1 # STAR 32 X
2DEC -.8779508801 B-1 # STAR 32 Y
2DEC +.1527766153 B-1 # STAR 32 Z
2DEC +.2069525789 B-1 # STAR 31 X
2DEC -.8719885748 B-1 # STAR 31 Y
2DEC -.4436288486 B-1 # STAR 31 Z
2DEC +.1217293692 B-1 # STAR 30 X
2DEC -.7702732847 B-1 # STAR 30 Y
# Page 48
2DEC +.6259880410 B-1 # STAR 30 Z
2DEC -.1124304773 B-1 # STAR 29 X
2DEC -.9694934200 B-1 # STAR 29 Y
2DEC +.2178116072 B-1 # STAR 29 Z
2DEC -.1146237858 B-1 # STAR 28 X
2DEC -.3399692557 B-1 # STAR 28 Y
2DEC -.9334250333 B-1 # STAR 28 Z
2DEC -.3516499609 B-1 # STAR 27 X
2DEC -.8240752703 B-1 # STAR 27 Y
2DEC -.4441196390 B-1 # STAR 27 Z
2DEC -.5326876930 B-1 # STAR 26 X
2DEC -.7160644554 B-1 # STAR 26 Y
2DEC +.4511047742 B-1 # STAR 26 Z
2DEC -.7861763936 B-1 # STAR 25 X
2DEC -.5217996305 B-1 # STAR 25 Y
2DEC +.3311371675 B-1 # STAR 25 Z
2DEC -.6898393233 B-1 # STAR 24 X
2DEC -.4182330640 B-1 # STAR 24 Y
2DEC -.5909338474 B-1 # STAR 24 Z
2DEC -.5812035376 B-1 # STAR 23 X
2DEC -.2909171294 B-1 # STAR 23 Y
2DEC +.7599800468 B-1 # STAR 23 Z
2DEC -.9170097662 B-1 # STAR 22 X
2DEC -.3502146628 B-1 # STAR 22 Y
2DEC -.1908999176 B-1 # STAR 22 Z
# Page 49
2DEC -.4523440203 B-1 # STAR 21 X
2DEC -.0493710140 B-1 # STAR 21 Y
2DEC -.8904759346 B-1 # STAR 21 Z
2DEC -.9525211695 B-1 # STAR 20 X
2DEC -.0593434796 B-1 # STAR 20 Y
2DEC -.2986331746 B-1 # STAR 20 Z
2DEC -.9656605484 B-1 # STAR 19 X
2DEC +.0525933156 B-1 # STAR 19 Y
2DEC +.2544280809 B-1 # STAR 19 Z
2DEC -.8608205219 B-1 # STAR 18 X
2DEC +.4636213989 B-1 # STAR 18 Y
2DEC +.2098647835 B-1 # STAR 18 Z
2DEC -.7742591356 B-1 # STAR 17 X
2DEC +.6152504197 B-1 # STAR 17 Y
2DEC -.1482892839 B-1 # STAR 17 Z
2DEC -.4657947941 B-1 # STAR 16 X
2DEC +.4774785033 B-1 # STAR 16 Y
2DEC +.7450164351 B-1 # STAR 16 Z
2DEC -.3612508532 B-1 # STAR 15 X
2DEC +.5747270840 B-1 # STAR 15 Y
2DEC -.7342932655 B-1 # STAR 15 Z
2DEC -.4118589524 B-1 # STAR 14 X
2DEC +.9065485360 B-1 # STAR 14 Y
2DEC +.0924226975 B-1 # STAR 14 Z
2DEC -.1820751783 B-1 # STAR 13 X
# Page 50
2DEC +.9404899869 B-1 # STAR 13 Y
2DEC -.2869271926 B-1 # STAR 13 Z
2DEC -.0614937230 B-1 # STAR 12 X
2DEC +.6031563286 B-1 # STAR 12 Y
2DEC -.7952489957 B-1 # STAR 12 Z
2DEC +.1371725575 B-1 # STAR 11 X
2DEC +.6813721061 B-1 # STAR 11 Y
2DEC +.7189685267 B-1 # STAR 11 Z
2DEC +.2011399589 B-1 # STAR 10 X
2DEC +.9690337941 B-1 # STAR 10 Y
2DEC -.1432348512 B-1 # STAR 10 Z
2DEC +.3507315038 B-1 # STAR 9 X
2DEC +.8926333307 B-1 # STAR 9 Y
2DEC +.2831839492 B-1 # STAR 9 Z
2DEC +.4105636020 B-1 # STAR 8 X
2DEC +.4988110001 B-1 # STAR 8 Y
2DEC +.7632988371 B-1 # STAR 8 Z
2DEC +.7032235469 B-1 # STAR 7 X
2DEC +.7075846047 B-1 # STAR 7 Y
2DEC +.0692868685 B-1 # STAR 7 Z
2DEC +.5450107404 B-1 # STAR 6 X
2DEC +.5314955466 B-1 # STAR 6 Y
2DEC -.6484410356 B-1 # STAR 6 Z
2DEC +.0130968840 B-1 # STAR 5 X
2DEC +.0078062795 B-1 # STAR 5 Y
# Page 51
2DEC +.9998837600 B-1 # STAR 5 Z
2DEC +.4917678276 B-1 # STAR 4 X
2DEC +.2204887125 B-1 # STAR 4 Y
2DEC -.8423473935 B-1 # STAR 4 Z
2DEC +.4775639450 B-1 # STAR 3 X
2DEC +.1166004340 B-1 # STAR 3 Y
2DEC +.8708254803 B-1 # STAR 3 Z
2DEC +.9342640400 B-1 # STAR 2 X
2DEC +.1735073142 B-1 # STAR 2 Y
2DEC -.3115219339 B-1 # STAR 2 Z
2DEC +.8748658918 B-1 # STAR 1 X
2DEC +.0260879174 B-1 # STAR 1 Y
2DEC +.4836621670 B-1 # STAR 1 Z
CATLOG DEC 6970
# *******************************************************************************
SETLOC EPHEM1
BANK
COUNT* $$/EPHEM
KONMAT 2DEC 1.0 B-1 # ********************
2DEC 0 # *
2DEC 0 # *
@ -538,13 +538,13 @@ VAL67 2DEC* .01726666666 B+1* # AMOD
2DEC .005325277 B+1 # CMOD
2DEC -.01106341036 # CARG
2DEC .002737925 B+1 # 1/365
# ********************************************************************************
SETLOC PLANTIN2
BANK
COUNT* $$/LUROT
COSI 2DEC .99964173 B-1 # COS (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

2
Luminary099/DAPIDLER_PROGRAM.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1410
# THE DAPIDLER PROGRAM IS STARTED BY FRESH START AND RESTART. THE DAPIDLER PROGRAM IS DONE 10 TIMES

2
Luminary099/DAP_INTERFACE_SUBROUTINES.agc
View File

@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1406
BANK 20

6
Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1341-1373
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-27 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1341
# DISPLAYS CAN BE CLASSIFIED INTO THE FOLLOWING CATEGORIES --

18
Luminary099/DOWN_TELEMETRY_PROGRAM.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 988-997
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-24 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 988
# PROGRAM NAME -- DOWN TELEMETRY PROGRAM
@ -161,7 +161,7 @@
BANK
EBANK= DNTMBUFF
COUNT* $$/DPROG
DODOWNTM TS BANKRUPT
EXTEND
@ -184,7 +184,7 @@ MINTIME2 -1DNADR TIME2 # NEGATIVE OF TIME2 1DNADR
CCS SUBLIST # IS THE SUBLIST IN CONTROL
TCF NEXTINSL # YES
# Page 992
# Page 992
DNADRDCR OCT 74001 # DNADR COUNT AND ECADR DECREMENTER
CHKLIST CA CTLIST
@ -235,7 +235,7 @@ DODNCHAN TC 6 # (EXECUTED AS EXTEND) IT'S A CHANNEL
WOZERO CS BIT7
EXTEND
WAND CHAN13 # SET WORD ORDER CODE TO ZERO
# Page 993
# Page 993
TC Q # RETURN TO CALLER
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
# AGAIN
TCF DNDUMPI +2 # NO -- GO BACK AND INITIALIZE NEXT BANK
DNDUMP1 CA LDNDUMP # SET DNTMGOTO
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'
TS L # ** ENTRANCE USED BY REGULAR DOWNLINK PG **
# Page 997
# Page 997
TC WOZERO # GO SET WORD ORDER CODE TO ZERO
CAF LOWIDCOD # PLACE SPECIAL ID CODE INTO L
XCH L # AND ID BACK INTO A
@ -452,4 +452,4 @@ WOTEST CA BIT7 # AT THE BEGINNING OF THE LIST THE WORD
TC DNTMGOTO
CA BIT7
TCF WO1

28
Luminary099/ERASABLE_ASSIGNMENTS.agc
View File

@ -25,7 +25,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 90
# 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
BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
# REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
ARUPT EQUALS 10 # INTERRUPT STORAGE
LRUPT EQUALS 11
QRUPT EQUALS 12
@ -186,7 +186,7 @@ DNTM2 EQUALS 35
SETLOC 61
# 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
# 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.
ERASE +83D # EIGHT SETS OF 12 REGISTERS EACH
# INCORP STORAGE: R22 (N29) (SHARES WITH FOLLOWING SECTION) (4D)
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)
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)
@ -992,7 +992,7 @@ END-E3 EQUALS 1777 # ** LAST LOCATION USED IN E3 **
# EBANK-4 ASSIGNMENTS
SETLOC 2000
# E4 IS, FOR THE MOST PART RESERVED FOR PAD LOADED AND UNSHARABLE ERASE.
AMEMORY EQUALS
@ -1673,7 +1673,7 @@ END-E5 EQUALS STARSAV2 +6 # *** FIRST FREE LOCATION IN E5 ***
# EBANK-6 ASSIGNMENTS.
SETLOC 3000
# DAP PAD-LOADED DATA. (10D)
# 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
FIREDB = 1/ANET1 +10D # OF JETS AND SIGN OF EDOT. THERE ARE 48
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:
ACCSWU = BLOCKTOP # SET BY 1/ACCS TO SHOW WHETHER MAXIMUM
ACCSWV = ACCSWU +1 # JETS ARE REQUIRED BECAUSE OF AOS.
@ -2046,7 +2046,7 @@ DAPLRUPT EQUALS DAPARUPT +1
DAPBQRPT EQUALS DAPARUPT +2
DAPZRUPT EQUALS DAPARUPT +4
# (DAPZRUPT IS ALSO A JASK-IN-PROGRESS FLAG)
# NEEDLER (ATTITUDE ERROR EIGHT BALL DISPLAY) STORAGE. (6D)
T5TEMP EQUALS ITEMP1
@ -2071,7 +2071,7 @@ END-E6 EQUALS VJETCTR
# EBANK-7 ASSIGNMENTS
SETLOC 3400
# P35 CONSTANTS. -- PAD LOADED -- (4D)
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.
LEADTIME ERASE # B(1) TIME INCREMENT SPECIFYING HOW MUCH
# GUIDANCE IS PROJECTED FORWARD
# LANDING RADAR. -- PAD LOADED -- (2D)
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.
DELTATM EQUALS REPOSTM +2 # I(2)TMP TIME INTERVAL FOR RUNNING
# DESIGNATE TASK.
# *** RETAIN THE ORDER OF DELVSLV, TIG, RTARG, DELLT4 FOR UPDATE. ***
# 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
# TRACKING ROUTINE IS TO CYCLE
WHCHREAD EQUALS R65CNTR # TELLS WHICH RR DATA TRIGGERED N49 DISPLAY
# P21 STORAGE (2D)
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.
TXO EQUALS VGVECT +6 # I(2)TMP TIME AT WHICH X-AXIS OVERRIDE
# IS ALLOWED.
# END OF THE ASCENT GUIDANCE ERASABLES
# THE FOLLOWING CARDS KEEP THE ASSEMBLER HAPPY UNTIL THE SYMBOLS ARE DELETED FROM THE PINBALL NOUN TABLES.

6
Luminary099/EXECUTIVE.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1103-1114
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
# 2011-05-08 JL Removed workaround.
@ -26,7 +26,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1103
BLOCK 02

372
Luminary099/EXTENDED_VERBS.agc
View File

File diff suppressed because it is too large Load Diff

2
Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc
View File

@ -22,7 +22,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 908
# PROGRAM NAME: FINDCDUW

18
Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
View File

@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1095-1099
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# Mod history: 2009-05-25 RSB Adapted from the corresponding
# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@ -24,7 +24,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 1095
BLOCK 02
@ -37,11 +37,11 @@ POSMAX OCT 37777
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)
# BIT TABLE
# BIT TABLE
BIT15 OCT 40000
BIT14 OCT 20000
BIT13 OCT 10000
@ -162,7 +162,7 @@ OCT17770 OCT 17770
# OCT 20033 # T4RUPT RELTAB +3D
PRIO21 OCT 21000
BLOCK 03
COUNT* $$/FCONS
COUNT* $$/FCONS
PRIO22 OCT 22000 # SERVICE ROUTINES
PRIO23 OCT 23000
PRIO24 OCT 24000
@ -178,7 +178,7 @@ C1/2 DEC .7853134 # (OCTAL 31103)
PRIO32 OCT 32000
PRIO33 OCT 33000
PRIO34 OCT 34000
# OCT 34034 # T4RUPT RELTAB +6D
# OCT 34034 # T4RUPT RELTAB +6D
# Page 1098
PRIO35 OCT 35000
PRIO36 OCT 36000

180
Luminary099/FLAGWORD_ASSIGNMENTS.agc
View File

@ -23,7 +23,7 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 61
@ -244,7 +244,7 @@ FLAGWRD0 = STATE +0 # (000-014)
# BIT 15 FLAG 0 (S)
= 000D
= BIT15
# BIT 14 FLAG 0 (S)
JSWITCH = 001D # INTEGRATION OF W INTEGRATION OF STATE
JSWCHBIT = BIT14 # MATRIX VECTOR
@ -311,7 +311,7 @@ FLAGWRD1 = STATE +1 # (015-029)
# Page 67
# (SET) (RESET)
# BIT 15 FLAG 1 (S)
NJETSFLG = 015D # TWO JET RCS BURN FOUR JET RCS BURN
NJETSBIT = BIT15
@ -332,7 +332,7 @@ RODFLBIT = BIT12 # OPERATION CONTINUES. IALIZATION IS PER-
# BIT 11 FLAG 1
= 019D
= BIT11
# BIT 10 FLAG 1 (L)
R61FLAG = 020D # RUN R61 LEM RUN R65 LEM
R61FLBIT = BIT10
@ -340,7 +340,7 @@ R61FLBIT = BIT10
# BIT 9 FLAG 1
= 021D
= BIT9
# BIT 8 FLAG 1 (S)
VEHUPFLG = 022D # CSM STATE-VECTOR LEM STATE VECTOR
VEHUPBIT = BIT8 # BEING UPDATED BEING UPDATED
@ -359,10 +359,10 @@ NOUPFBIT = BIT6 # MAY BE UPDATED UPDATED
TRACKFLG = 025D # TRACKING ALLOWED TRACKING NOT ALLOWED
TRACKBIT = BIT5
# BIT 4 FLAG 1
# BIT 4 FLAG 1
= 026D
= BIT4
# BIT 3 FLAG 1 (S)
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULAR
# METHOD IN ITERATOR FALSI METHOD IN
@ -372,14 +372,14 @@ SLOPEBIT = BIT3 # ITERATOR
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
GUESSBIT = BIT2 # FOR ITERATION ITERATION EXISTS
# BIT 1 FLAG 1
# BIT 1 FLAG 1
= 029D
= BIT1 # OH 2009-05-15 Scan does not have this line
FLAGWRD2 = STATE +2 # (030-044)
# (SET) (RESET)
# BIT 15 FLAG 2 (S)
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
DRFTBIT = BIT15 # COMPENSATION COMPENSATION
@ -405,7 +405,7 @@ STEERBIT = BIT11 # IS PRESENT IS PRESENT
# BIT 10 FLAG 2 (S)
= 035D # OH 2009-05-15 These two line don't appear in scan
= BIT10
# BIT 9 FLAG 2 (S)
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
# BURN (CUTOFF TIME CUTOFF TIME YET
@ -454,8 +454,8 @@ NODOBIT = BIT1
FLAGWRD3 = STATE +3 # (045-059)
# (SET) (RESET)
# BIT 15 FLAG 3
# BIT 15 FLAG 3
= 045D #
= 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
# IN P00 (P00) LOGIC IN INTE-
PRECIBIT = BIT8 # GRATION
# BIT 7 FLAG 3 (S)
CULTFLAG = 053D # STAR OCCULTED STAR NOT OCCULTED
CULTBIT = BIT7
@ -526,7 +526,7 @@ FLAGWRD4 = STATE +4 # (060-074)
# Page 72
# (SET) (RESET)
# BIT 15 FLAG 4 (S)
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
MRKIDBIT = BIT15 # ENDIDLE ENDIDLE
@ -544,7 +544,7 @@ PDSPFLAG = 063D # P20 SETS SO AS TO LEAVE AS NORMAL DISP
# TURN A NORMAL DIS-
PDSPFBIT = BIT12 # PLAY INTO A PRIORITY
# DISPLAY IN R60
# BIT 11 FLAG 4 (S)
MWAITFLG = 064D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
@ -556,7 +556,7 @@ NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
NWAITBIT = BIT10 # WHEN NORMAL WHEN NORMAL DISPLAY
# DISPLAY INITIATED INITIATED
# BIT 9 FLAG 4 (S)
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
@ -567,7 +567,7 @@ NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
NRMNVBIT = BIT8 # NORMAL DISPLAY NORMAL DISPLAY
# INITIATED INITIATED
# BIT 7 FLAG 4 (S)
PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
@ -575,7 +575,7 @@ PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
PRONVBIT = BIT7 # PRIORITY DISPLAY PRIORITY DISPLAY
# INITIATED INITIATED
# BIT 6 FLAG 4 (S)
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
# INTERFERED WITH INTERFERED WITH
@ -591,7 +591,7 @@ NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
NRUPTBIT = BIT4 # PRIORITY OR MARK PRIORITY OR MARK
# DISPLAY DISPLAY
# BIT 3 FLAG 4 (S)
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
MKOVBIT = BIT3 # NORMAL NORMAL
@ -599,8 +599,8 @@ MKOVBIT = BIT3 # NORMAL NORMAL
# BIT 2 FLAG 4
= 073D
= BIT2 # OH 2009-05-15 Not in scan.
# BIT 1 FLAG 4 (S)
XDSPFLAG = 074D # MARK DISPLAY NOT NO SPECIAL MARK
XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
@ -608,7 +608,7 @@ XDSPBIT = BIT1 # TO BE INTERRUPTED INFORMATION
FLAGWRD5 = STATE +5 # (075-089)
# (SET) (RESET)
# BIT 15 FLAG 5 (S)
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
DSKYFBIT = BIT15 # DSKY
@ -616,7 +616,7 @@ DSKYFBIT = BIT15 # DSKY
# BIT 14 FLAG 5
= 076D
= BIT14
# Page 74
# BIT 13 FLAG 5 (S,L)
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)
ENGONFLG = 083D # ENGINE TURNED ON ENGINE TURNED OFF
ENGONBIT = BIT7 #
ENGONBIT = BIT7 #
# BIT 6 FLAG 5 (S)
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
# (1,1)= 50 FT/SEC STAGE OF SECOND NEWTON ITERATION
# (1,0)= REMAINDER OF SECOND NEWTON ITERATION
# BIT 11 FLAG 6 (S)
= 094D #
= BIT11 #
# BIT 11 FLAG 6 (S)
= 094D #
= BIT11 #
# Page 76
# BIT 10 FLAG 6 (S)
GMBDRVSW = 095D # TRIMGIMB OVER TRIMGIMB NOT OVER
GMBDRBIT = BIT10 #
GMBDRBIT = BIT10 #
# BIT 9 FLAG 6
= 096D #
= BIT9 #
= BIT9 #
# BIT 8 FLAG 6 (S)
MUNFLAG = 097D # SERVICER CALLS SERVICER CALLS
MUNFLBIT = BIT8 # MUNRVG CALCRVG
# BIT 7 FLAG 6 (L)
= 098D #
= BIT7 #
= 098D #
= BIT7 #
# BIT 6 FLAG 6 (L)
REDFLAG = 099D # LANDING SITE LANDING SITE
@ -729,12 +729,12 @@ REDFLAG = 099D # LANDING SITE LANDING SITE
REDFLBIT = BIT6 # PERMITTED PERMITTED
# BIT 5 FLAG 6
= 100D #
= 100D #
= BIT5 # OH 2009-05-15 Not in scan
# BIT 4 FLAG 6
= 101D #
= BIT4 # OH 2009-05-15 Not in scan
= BIT4 # OH 2009-05-15 Not in scan
# BIT 3 FLAG 6 (S)
NTARGFLG = 102D # ASTRONAUT DID ASTRONAUT DID NOT
@ -772,7 +772,7 @@ MANUFBIT = BIT14 # SEARCH
# BIT 13 FLAG 7 (S)
IGNFLAG = 107D # TIG HAS ARRIVED TIG HAS NOT ARRIVED
IGNFLBIT = BIT13 #
IGNFLBIT = BIT13 #
# BIT 12 FLAG 7 (S)
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
@ -789,7 +789,7 @@ NORMSBIT = BIT10 # TO LAMBERT OWN UNIT NORMAL
# BIT 9 FLAG 7 (S)
RVSW = 111D # DO NOT COMPUTE COMPUTE FINAL STATE
# FINAL STATE VECTOR VECTOR IN TIME-THETA
RVSWBIT = BIT9 # IN TIME-DELTA
RVSWBIT = BIT9 # IN TIME-DELTA
# BIT 8 FLAG 7 (S)
V67FLAG = 112D # ASTRONAUT OVERWRITE ASTRONAUT DOES NOT
@ -799,7 +799,7 @@ V67FLBIT = BIT8 # VALUES INITIAL VALUES
# Page 78
# BIT 7 FLAG 7 (S)
IDLEFLAG = 113D # NO DV MONITOR CONNECT DV MONITOR
IDLEFBIT = BIT7 #
IDLEFBIT = BIT7 #
# BIT 6 FLAG 7 (S)
V37FLAG = 114D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
@ -811,19 +811,19 @@ AVEGFBIT = BIT5 # DESIRED NOT DESIRED
# BIT 4 FLAG 7 (S)
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
UPLOCBIT = BIT4 #
UPLOCBIT = BIT4 #
# BIT 3 FLAG 7 (S)
VERIFLAG = 117D # CHANGED WHEN V33E OCCURS AT END OF P27
VERIFBIT = BIT3 #
VERIFBIT = BIT3 #
# BIT 2 FLAG 7 (L,C)
V82EMFLG = 118D # MOON VICINITY EARTH VICINITY
V82EMBIT = BIT2 #
V82EMBIT = BIT2 #
# BIT 1 FLAG 7 (S)
TFFSW = 119D # CALCULATE TPERIGEE CALCULATE TFF
TFFSWBIT = BIT1 #
TFFSWBIT = BIT1 #
FLAGWRD8 = STATE +8D # (120-134)
@ -837,8 +837,8 @@ RPQFLBIT = BIT15 # TWEEN SECONDARY BODY
# AND PRIMARY BODY)
# BIT 14 FLAG 8
= 121D #
= BIT14 #
= 121D #
= BIT14 #
# Page 79
# BIT 13 FLAG 8 (S)
@ -859,10 +859,10 @@ FLUNDBIT = BIT10 # DISPLAYS INHIBITED DISPLAYS PERMITTED
# BIT 9 FLAG 8 (L)
P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
P39SWBIT = BIT9 #
P39SWBIT = BIT9 #
# 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
# BIT 7 FLAG 8 (S)
@ -904,8 +904,8 @@ FLAGWRD9 = STATE +9D # (135-149)
# (SET) (RESET)
# BIT 15 FLAG 9
= 135D #
= BIT15 #
= 135D #
= BIT15 #
# BIT 14 FLAG 9 (L)
FLVR = 136D # VERTICAL RISE NON-VERTICAL RISE
@ -929,7 +929,7 @@ FLRCSBIT = BIT10 # (ASCENT GUIDANCE)
# BIT 9 FLAG 9 (L)
# Page 81
# Page 81
LETABORT = 141D # ABORT PROGRAMS ABORT PROGRAMS
LETABBIT = BIT9 # ARE ENABLED ARE NOT ENABLED
@ -941,24 +941,24 @@ FLAPBIT = BIT8 # (ASCENT GUIDANCE)
# BIT 7 FLAG 9 (L)
= 143D
= BIT7 # OH 2009-05-15 Line not in scan
# BIT 6 FLAG 9 (L)
ROTFLAG = 144D # P70 AND P71 WILL P70 AND P71 WILL NOT
ROTFLBIT = BIT6 # FORCE VEHICLE FORCE VEHICLE
# ROTATION IN THE ROTATION IN THE
# ROTATION IN THE ROTATION IN THE
# PREFERRED DIRECTION PREFERRED DIRECTION
# BIT 5 FLAG 9 (S)
QUITFLAG = 145D # DISCONTINUE INTEGR. CONTINUE INTEGRATION
QUITBIT = BIT5 #
QUITBIT = BIT5 #
# BIT 4 FLAG 9
= 146D #
= BIT4 #
= 146D #
= BIT4 #
# 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
# BIT 2 FLAG 9 (L)
@ -981,7 +981,7 @@ FLGWRD10 = STATE +10D # (150-164)
# (SET) (RESET)
# BIT 15 FLAG 10 (S)
= 150D #
= 150D #
= BIT15 # OH 2009-05-15 Line not in scan
# BIT 14 FLAG 10 (L,C)
@ -989,57 +989,57 @@ INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
INTFLBIT = BIT14 # PROGRESS PROGRESS
# BIT 13 FLAG 10 (S,L)
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
APSFLAG = 152D # ASCENT STAGE DESCENT STAGE
APSFLBIT = BIT13 # *** PROTECTED FROM FRESH START ***
# BIT 12 FLAG 10
= 153D #
= BIT12 # OH 2009-05-15 Line not in scan
= 153D #
= BIT12 # OH 2009-05-15 Line not in scan
# BIT 11 FLAG 10
= 154D #
= BIT11 # OH 2009-05-15 Line not in scan
= 154D #
= BIT11 # OH 2009-05-15 Line not in scan
# BIT 10 FLAG 10
= 155D #
= BIT10 # OH 2009-05-15 Line not in scan
= 155D #
= BIT10 # OH 2009-05-15 Line not in scan
# BIT 9 FLAG 10
= 156D #
= BIT9 # OH 2009-05-15 Line not in scan
= 156D #
= BIT9 # OH 2009-05-15 Line not in scan
# BIT 8 FLAG 10
= 157D #
= BIT8 # OH 2009-05-15 Line not in scan
= 157D #
= BIT8 # OH 2009-05-15 Line not in scan
# 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
# BIT 6 FLAG 10
= 159D #
= BIT6 # OH 2009-05-15 Line not in scan
= 159D #
= BIT6 # OH 2009-05-15 Line not in scan
# BIT 5 FLAG 10
= 160D #
= BIT5 # OH 2009-05-15 Line not in scan
= 160D #
= BIT5 # OH 2009-05-15 Line not in scan
# Page 83
# BIT 4 FLAG 10
= 161D #
= BIT4 # OH 2009-05-15 Line not in scan
= 161D #
= BIT4 # OH 2009-05-15 Line not in scan
# BIT 3 FLAG 10
= 162D #
= BIT3 # OH 2009-05-15 Line not in scan
= BIT3 # OH 2009-05-15 Line not in scan
# BIT 2 FLAG 10
= 163D #
= BIT2 # OH 2009-05-15 Line not in scan
= 163D #
= BIT2 # OH 2009-05-15 Line not in scan
# BIT 1 FLAG 10
= 164D #
= BIT1 # OH 2009-05-15 Line not in scan
= 164D #
= 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
LRBYBIT = BIT15 # RADAR UPDATES UPDATES
# BIT 14 FLAG 11
= 166D #
= BIT14 #
# BIT 14 FLAG 11
= 166D #
= BIT14 #
# BIT 13 FLAG 11
= 167D #
= BIT13 #
# BIT 13 FLAG 11
= 167D #
= BIT13 #
# BIT 12 FLAG 11 (L)(R12)
VXINH = 168D # IF Z VELOCITY DATA UPDATE X AXIS
@ -1067,7 +1067,7 @@ VXINHBIT = BIT12 # BYPASS X VELOCITY
# BIT 11 FLAG 11 (L)(R12)
PSTHIGAT = 169D # PAST HIGATE PREHIGATE
PSTHIBIT = BIT11 #
PSTHIBIT = BIT11 #
# BIT 10 FLAG 11 (L)(R12)
@ -1114,7 +1114,7 @@ VFLSHBIT = BIT2 # FLASHING
# BIT 1 FLAG 11 (L)(R12)
# 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
# FLASHING FLASHING
@ -1124,7 +1124,7 @@ FLGWRD12 = STATE +12D # (180-194) WAS RADMODES
# (SET) (RESET)
# BIT 15 FLAG 12
# BIT 15 FLAG 12
CDESFLAG = 180D # CONTINUOUS DESIG- LGC CHECKS FOR LOCK-
CDESBIT = BIT15 # NATE, LGC COMMANDS ON WHEN ANTENNA
# RR REGARDLESS OF BEING DESIGNATED
@ -1148,12 +1148,12 @@ REPOSMON = 184D # REPOSITION MONITOR. NO REPOSITION TAKING
REPOSBIT = BIT11 # RR REPOSITION IS PLACE
# TAKING PLACE
# BIT 10 FLAG 12
# BIT 10 FLAG 12
DESIGFLG = 185D # RR DESIGNATE RR DESIGNATE NOT
DESIGBIT = BIT10 # REQUESTED OR IN REQUESTED OR IN
# PROGRESS PROGRESS
# BIT 9 FLAG 12
# BIT 9 FLAG 12
ALTSCALE = 186D # LR ALTITUDE READING LR ALTITUDE READING
ALTSCBIT = BIT9 # IS ON HIGH SCALE IS ON LOW SCALE

232
Luminary099/FRESH_START_AND_RESTART.agc
View File

@ -25,19 +25,19 @@
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
# 16:27 JULY 14, 1969
# 16:27 JULY 14, 1969
# Page 211
BANK 10
SETLOC FRANDRES
BANK
EBANK= LST1
COUNT* $$/START # FRESH AND RESTART
SLAP1 INHINT # FRESH START. COMES HERE FROM PINBALL.
TC STARTSUB # SUBROUTINE DOES MOST OF THE WORK
STARTSW TCF SKIPSIM # PATCH....TCF STARTSIM FOR SIMULATION
STARTSIM CAF BIT14
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
AD BIT15 # REQUESTED FRESH START.
TS DSPTAB +11D
CA BIT12 # INITIALIZE DOWNLINK EARASABLE MEMORY
TS DUMPCNT # DUMP FOR ONE PASS
CA ZERO
TS ERCOUNT
TS FAILREG
TS FAILREG +1
TS FAILREG +2
TS REDOCTR
CS PRIO12
TS DSRUPTSW
DOFSTART CAF BIT14 # INSURE ENGINE IS OFF.
EXTEND
WRITE DSALMOUT
CS ZERO
TS THRUST
DOFSTRT1 CAF FOUR
TS RCSFLAGS # INITIALIZE ATTITUDE ERROR DISPLAYS.
CA PRIO30
TS RESTREG # SUPER BANK PRIORITY FOR DISPLAYS.
CA ZERO
TS ABDELV # DAP INITIALIZATION
TS NVSAVE
@ -88,7 +88,7 @@ DOFSTRT1 CAF FOUR
TS UPSVFLAG # ZERO UPDATE STATE VECTOR REQUEST FLAGWRD
EXTEND
WRITE CHAN5 # TURN OFF RCS JETS.
EXTEND
EXTEND
WRITE CHAN6 # TURN OFF RCS JETS.
EXTEND
WRITE CHAN12
@ -107,10 +107,10 @@ DOFSTRT1 CAF FOUR
CS ZERO
TS MODREG
CAF IM30INIF # FRESH START IMU INITIALIZATION
TS IMODES30
CAF MAXDB
TS DB
CAF FOUR
@ -120,7 +120,7 @@ DOFSTRT1 CAF FOUR
CAF EBANK6
TS EBANK
EBANK= HIASCENT
CA STIKSTRT
TS STIKSENS
CA RATESTRT
@ -143,7 +143,7 @@ DOFSTRT1 CAF FOUR
CAF IM33INIT
AD BIT6 # KEEP BOTH DAP AND ERROR-NEEDLES DISPLAY
TS IMODES33 # OFF UNTIL ICDU ZERO IS FINISHED.
EXTEND # INITIALIZE SWITCHES ONLY ON FRESH START.
DCA SWINIT
DXCH STATE
@ -173,10 +173,10 @@ DOFSTRT1 CAF FOUR
TS STATE +10D
CAF SWINIT +11D
TS STATE +11D
ENDRSTRT TC POSTJUMP # NOW IN ANOTHER BANK.
CADR DUMMYJOB +2 # PICKS UP AT RELINT. (DON'T ZERO NEWJOB)
MR.KLEAN INHINT
# Page 214
EXTEND
@ -258,10 +258,10 @@ SETINFL CS INTFLBIT
MASK IMODES30 # HARDWARE RESTART, RESET ALL FAILURE
AD IM30INIR # CODES.
TS IMODES30
CA AGSWORD # BE SURE OF CORRECT DOWNLIST
TS DNLSTCOD
CA BIT4 # TURN ON THROTTLE COUNTER
EXTEND
WOR CHAN14 # TURN ON THRUST DRIVE
@ -286,7 +286,7 @@ GOPROG2A TC LIGHTSET
CS RSFLGBTS # CLEAR BITS 7 AND 14.
MASK FLGWRD10
TS FLGWRD10
GOPROG3 CAF NUMGRPS # VERIFY PHASE TABLE AGREEMENTS
PCLOOP TS MPAC +5
DOUBLE
@ -302,24 +302,24 @@ PCLOOP TS MPAC +5
# Page 217
CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF PCLOOP
TS MPAC +6 # SET TO +0.
TC MMDSPLAY # DISPLAY MAJOR MODE
INHINT # RELINT DONE IN MMDSPLAY
CS DIDFLBIT # CLEAR DIDFLAG IN ORDER TO FORCE R10 TO
MASK FLAGWRD1 # RE-INITIALIZE ITSELF IF IT HAD BEEN
TS FLAGWRD1 # OPERATION AT THE TIME OF THE RESTART.
CS RODFLBIT # CLEAR RODFLAG. IF P66 IS IN OPERATION
MASK FLAGWRD1 # IT WILL RE-INITIALIZE ITSELF AND
TS FLAGWRD1 # CONTINUE.
CS P21FLBIT # CLEAR P21 FLAG SO THAT P21 WILL COMPUTE
MASK FLAGWRD0 # NEW BASE STATE VECTORS.
TS FLAGWRD0
CAF NUMGRPS # SEE IF ANY GROUPS RUNNING.
NXTRST TS MPAC +5
DOUBLE
@ -327,16 +327,16 @@ NXTRST TS MPAC +5
CCS PHASE1
TCF PACTIVE # PNZ -- GROUP ACTIVE.
TCF PINACT # +0 -- GROUP NOT RUNNING.
PACTIVE TS MPAC
INCR MPAC # ABS OF PHASE.
INCR MPAC +6 # INDICATE GROUP DEMANDS PRESENT.
CA RACTCADR
TC SWCALL # MUST RETURN TO SWRETURN.
PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF NXTRST
CCS MPAC +6 # NO, CHECK PHASE ACTIVITY FLAG
TCF ENDRSTRT # PHASE ACTIVE
CAF BIT15 # IS MODE -0
@ -346,7 +346,7 @@ PINACT CCS MPAC +5 # PROCESS ALL RESTART GROUPS.
TCF ENDRSTRT # YES
PTBAD TC ALARM # SET ALARM TO SHOW PHASE TABLE FAILURE.
OCT 1107
TCF DOFSTRT1
#******** ****** ******
# Page 218
@ -428,12 +428,12 @@ STARTSB1 CAF POSMAX
STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # ENGINE ON, OFF AND ISS WARNING.
WAND DSALMOUT
CS READRBIT # CLEAR READRFLG FOR R29
MASK FLAGWRD3
TS FLAGWRD3
# Page 220
CS FLAGWRD3 # DURING SOFTWARE RESTART, CLEAR TURNON,
MASK NR29FBIT # REPOSITION, CDU ZERO AND REMODE BITS
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
# TRIM DRIVES. LEAVE RR LOCKON ENABLE
# ALONE.
CS NORRMBIT # ENABLE R25.
MASK FLAGWRD5
TS FLAGWRD5
CS R77FLBIT # CLEAR R77FLAG
MASK FLAGWRD5
TS FLAGWRD5
CAF OCT74160 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # TELEMETRY FLAGS, RESET TRAP FLAGS, AND
WAND CHAN13 # ENABLE T6RUPT FLAG.
CAF BIT12 # REENABLE RUPT10 (RUPT QUICKLY
EXTEND # RESUMES EXCEPT DURING P64)
WOR CHAN13
CAF BIT6 # DURING SOFTWARE RESTART, DO NOT DISTURB
EXTEND # GYRO ENABLE FLAG.
WAND CHAN14
EBANK= LST1
CAF STARTEB
TS EBANK # SET FOR E3
CAF NEG1/2 # INITIALIZE WAITLIST DELTA-TS.
TS LST1 +7
TS LST1 +6
@ -503,7 +503,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS LST2 +13D
TS LST2 +15D
TS LST2 +17D
CS ZERO # MAKE ALL EXECUTIVE REGISTER SETS
TS PRIORITY # AVAILABLE.
TS PRIORITY +12D
@ -513,10 +513,10 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS PRIORITY +60D
TS PRIORITY +72D
TS PRIORITY +84D
TS DSRUPTSW
TS NEWJOB # SHOWS NO ACTIVE JOBS.
CAF VAC1ADRC # MAKE ALL VAC AREAS AVAILABLE.
TS VAC1USE
AD LTHVACA
@ -527,7 +527,7 @@ STARTSB2 CAF OCT30001 # DURING SOFTWARE RESTART, DO NOT DISTURB
TS VAC4USE
AD LTHVACA
TS VAC5USE
CAF TEN
DSPOFF TS MPAC # R1, R2, R3
CS BIT12
@ -535,8 +535,8 @@ DSPOFF TS MPAC # R1, R2, R3
TS DSPTAB
CCS MPAC
TCF DSPOFF
# Page 222
# Page 222
TS DELAYLOC
TS DELAYLOC +1
TS DELAYLOC +2
@ -562,20 +562,20 @@ DSPOFF TS MPAC # R1, R2, R3
TS FLAGWRD4 # KILL INTERFACE DISPLAYS
CAF NOUTCON
TS NOUT
CS ONE
TS SAMPLIM
CAF BIT6
MASK IMODES33 # LEAVE BIT 6 UNCHANGED
AD IM33INIT # NO PIP OR TM FAILS. BIT6=0 IN THIS WORD.
TS IMODES33
CAF LESCHK # SELF CHECK GO-TO REGISTER.
TS SELFRET
CS VD1
TS DSPCOUNT
TC Q
EBANK= AOSQ
IDLEADR 2CADR DAPIDLER
@ -607,7 +607,7 @@ SWINIT OCT 0
OCT 0
OCT 0
OCT 00100
OCT 0
OCT 0
OCT 0
@ -637,13 +637,13 @@ SWINIT OCT 0
BLOCK 03
SETLOC FFTAG5
BANK
COUNT* $$/P00
GOTOP00H CAF OCT33 # 4.33 SPOT FOR GOP00FIX
TS L
COM
DXCH -PHASE4
TC POSTJUMP
CADR GOP00FIX
OCT24 MM 20
@ -652,11 +652,11 @@ OCT31 MM 25
BANK 20
SETLOC VERB37
BANK
COUNT* $$/P00 # VERB 37 AND P00 IN BANK 4.
GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
ADRES XOVINFLG
TC DOWNFLAG # INSURE THAT ULLAGE IS OFF
ADRES ULLAGFLG
# Page 225
@ -667,7 +667,7 @@ GOP00FIX TC DOWNFLAG # ALLOW X-AXIS OVERRIDE
TCF -3
TCF -4
TCF -5
V37N99 VN 3799
# Page 226
@ -739,12 +739,12 @@ V37N99 VN 3799
V37 TS MMNUMBER # SAVE MAJOR MODE
CAF PRIO30 # RESTART AT PINBALL PRIORITY
TS RESTREG
CA IMODES30 # IS IMU BEING INITIALIZED
MASK BIT6
CCS A
TCF CANTROD
CS MMNUMBER # IS P70 REQUESTED?
AD DEC70
EXTEND
@ -752,23 +752,23 @@ V37 TS MMNUMBER # SAVE MAJOR MODE
AD ONE # IS P71 REQUESTED?
EXTEND
BZF SETUP71 # YES
CA MMNUMBER # IS NEW REQUEST P00
EXTEND
BZF ISSERVON # YES, CHECK SERVICER STATUS
CS FLAGWRD2 # NO, IS NODO V37 FLAG SET
MASK NODOBIT
CCS A
TCF CHECKTAB # NO
CANTROD TC ALARM
OCT 1520
V37BAD TC RELDSP # RELEASES DISPLAY FROM ASTRONAUT
TC POSTJUMP # BRING BACK LAST NORMAL DISPLAY IF THERE
CADR PINBRNCH # WAS ONE. OTHERWISE DO AN EOJ.
CHECKTAB CA NOV37MM # INDEX FOR MM TABLES.
# Page 228
@ -782,10 +782,10 @@ AGAINMM TS MPAC +1
CCS MPAC +1 # IF GR, SEE IF ANY MORE IN LIST
TCF AGAINMM # YES, GET NEXT ONE
TCF V37NONO # LAST TIME OR PASSED MM
CA MPAC +1
TS MINDEX # SAVE INDEX FOR LATER
ISSERVON CS FLAGWRD7 # V37 FLAG SET -- I.E., IS SERVICER GOING
MASK V37FLBIT
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
ADRES AVEGFLAG # WAIT FOR SERVICER TO RETURN TO CANV37
CAF V37RETAD
TS OUTROUTE
TCF ENDOFJOB
V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
MASK RNDVZBIT
CCS A
@ -811,19 +811,19 @@ V37RET CS FLAGWRD0 # IS P20 OR P22 RUNNING?
2.11SPT AD BIT5
2.7SPT AD OCT40072
TC PHSCHNGA
CANV37 CAF ZERO
EXTEND
WRITE SUPERBNK
CAF R00AD
TS TEMPFLSH
TC PHASCHNG
OCT 14
# Page 229
R00 TC INTPRET
CALL # WAIT FOR INTEGRATION TO FINISH
@ -832,41 +832,41 @@ DUMMYAD EXIT
TC DOWNFLAG
ADRES 3AXISFLG # RESET 3-AXIT FLAG
CAF LRBYBIT # CLEAN UP THE R12 FLAGWORD.
TS FLGWRD11
TC DOWNFLAG # INSURE THAT THE R04FLAG IS CLEAR.
ADRES R04FLAG
TC DOWNFLAG # INSURE MUNFLAG IS CLEAR.
ADRES MUNFLAG
TC DOWNFLAG # ALLOW X-AXIS OVERRIDE.
ADRES XOVINFLG
CCS MMNUMBER # IS THIS A P00H REQUEST
TCF NOUVEAU # NO, PICK UP NEW PROGRAM
P00H TC RELDSP # RELEASE DISPLAY SYSTEM
CAF PRIO5 # SET VARIABLE RESTART PRIORITY FOR
TS PHSPRDT2 # P00 INTEGRATION.
TC CLRADMOD # CLRADMOD DOES AN INHINT.
CS NODOBIT # TURN OFF NODOFLAG.
MASK FLAGWRD2
TS FLAGWRD2
CA FIVE # SET RESTART FOR STATEINT1
TS L
COM
DXCH -PHASE2
CS OCT700 # TURN OFF P20, P25, IMU IN USE FLAG
MASK FLAGWRD0
TS FLAGWRD0 # REMDFLG
CAF DNLADP00
SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
@ -874,16 +874,16 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
# NEW ONE IS STARTED)
TC IBNKCALL
CADR ENGINOF1
# Page 230
TC IBNKCALL # INSURE ALLCOAST.
CADR ALLCOAST # DOES A RESTORDB.
CS OCT120 # TURN OFF TRACK, UPDATE FLAGS
TS EBANKTEM
MASK FLAGWRD1
TS FLAGWRD1
TC IBNKCALL # KILL GROUPS 1,3,5,6
CADR V37KLEAN
@ -891,23 +891,23 @@ SEUDOP00 TS DNLSTCOD # SET UP APPROPRIATE DOWNLIST CODE
TCF RENDV00 # NO
GOMOD TC IBNKCALL # REDUNDANT EXCEPT FOR GROUP 4
CADR P00KLEAN
CA MMNUMBER
TS MODREG
GOGOPROG TC POSTJUMP
CADR GOPROG2
RENDV00 CS MODREG # IS CURRENT PROGRAM 22
AD OCT26
EXTEND
BZF RESET22 # YES -- CLEAR RENDEZVOUS FLAG
CS MMNUMBER # IS NE PROGRAM P22
AD OCT26
EXTEND
BZF RESET22
AD NEG2 # IS NEW PROGRAM = P20 OR P25
EXTEND
BZF RENDN00 # YES
@ -919,31 +919,31 @@ RENDV00 CS MODREG # IS CURRENT PROGRAM 22
MASK FLAGWRD0
CCS A
TCF P00FIZZ # YES, LEAVE GROUP 2 TO PICK UP P20 OR P25
RESET22 CS OCT700 # CLEAR RENDEZVOUS, P25
MASK FLAGWRD0 # AND IMU IN USE FLAGS
TS FLAGWRD0
TC CLRADMOD
# Page 231
KILL2 EXTEND # NO, KILL 2
DCA NEG0
DXCH -PHASE2
P00FIZZ CAF V37QCAD # RESTART POINT FOR V37XEQ
TS TEMPFLSH
TCF GOGOPROG
RENDN00 CS MODREG
AD OCT24
EXTEND
BZF KILL2 # P20 OR P25 ON TOP OF P20 OR P25 --
AD FIVE
EXTEND
BZF KILL2
CA OCT500
MASK FLAGWRD0
AD MMNUMBER
@ -974,11 +974,11 @@ NOUVEAU CAF OCT500 # IS P20 OR P25 FLAG SET
INHINT
TCF SEUDOP00
V37NONO TC FALTON # COME HERE IF MM REQUESTED DOESN'T EXIST
# Page 232
TCF V37BAD
OCT00010 EQUALS BIT4
OCT500 OCT 500 # BITS 7 AND 9
OCT305 OCT 305
@ -990,37 +990,37 @@ V37XEQ INHINT
CAF PREMM1 # OBTAIN PRIO, EBANK, AND MM
TS MMTEMP
TS CYR # SHIFT RIGHT TO BITS 14-10
CA CYR
MASK PRIO37
TS PHSPRDT4 # PRESET GROUP 4 RESTART PRIORITY
TS NEWPRIO # STORE PRIO FOR SPVAC
CA MMTEMP # OBTAIN EBANK -- BITS 8, 9, 10 OF MMTEMP.
EXTEND
MP BIT8
MASK LOW3
TS L
INDEX MINDEX
CAF FCADRMM1
TS BASETEMP # MAKE BBCON BY ADDING HI5 OR FCADR
MASK HI5
ADS L
CA BASETEMP # OBTAIN GENADR PORTION OF 2CADR.
MASK LOW10
AD BIT11
TC SPVAC
V37XEQC CA MMTEMP # UPON RETURN FROM FINDVAC PLACE THE
MASK LOW7 # NEW MM IN MODREG (THE LOW 7 BITS OF
TC NEWMODEA # PHSPRDT1)
TC RELDSP # RELEASE DISPLAY
TC ENDOFJOB # AND EXIT
NEG7 EQUALS OCT77770
MMTEMP EQUALS PHSPRDT3
@ -1040,7 +1040,7 @@ SETUP70 TS Q
DCA P70CADR
AD Q
DTCB
DEC70 DEC 70
EBANK= R
P70CADR 2CADR P70
@ -1051,7 +1051,7 @@ P70CADR 2CADR P70
# 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 MAJOR MODE. FOR EXAMPLE,
# THE MAJOR MODE. FOR EXAMPLE,
#
# FCADRMM1 FCADR P79 # START OF P 79
# FCADR PROG18 # START OF P 18
@ -1091,7 +1091,7 @@ FCADRMM1 FCADR P79
FCADR PROG20
FCADR P12LM
FCADR P06
# THE PREMM TABLE CONTAINS THE E-BANK, MAJOR MODE, AND PRIORITY
# 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 27614 # MM 12 EBANK 7 PRIO 13
OCT 27006 # MM 06 EBANK 4 PRIO 13
# 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)
# THAT CAN BE CALLED FROM THE KEYBOARD MINUS ONE)
@ -1153,7 +1153,7 @@ NOV37MM DEC 29 # MM'S -1
DNLADMM1 ADRES RENDEZVU # P79
ADRES RENDEZVU # P78
ADRES RENDEZVU
ADRES RENDEZVU
ADRES RENDEZVU # P75
ADRES RENDEZVU # P74
ADRES RENDEZVU # P73
@ -1193,11 +1193,11 @@ LUNRSALN = 5
BANK 13
SETLOC INTINIT
BANK
COUNT* $$/INTIN
EBANK= RRECTCSM
# THIS ROUTINE DOES THE P00 INTEGRATION
STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
@ -1211,7 +1211,7 @@ STATEUP SET BOF # EXTRAPOLATE CM STATE VECTOR
DOINT CLEAR CALL
PRECIFLG # ENGAGES 4-TIME STEP LOGIC IN INTEGRATION
INTEGRV # WHEN MODREG = 0
BON DLOAD
SURFFLAG
NO-INT
@ -1233,10 +1233,10 @@ DOINT2 SET CALL
NO-INT CLRGO
NODOFLAG
ENDINT
# Page 237
# Page 237
# THISVINT IS CALLED BY MIDTOAV1 AND 2
THISVINT CLEAR RVQ
VINTFLAG

Some files were not shown because too many files have changed in this diff Show More