diff --git a/Comanche055/AUTOMATIC_MANEUVERS.agc b/Comanche055/AUTOMATIC_MANEUVERS.agc
index 177f86c..e754f94 100644
--- a/Comanche055/AUTOMATIC_MANEUVERS.agc
+++ b/Comanche055/AUTOMATIC_MANEUVERS.agc
@@ -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
diff --git a/Comanche055/CM_BODY_ATTITUDE.agc b/Comanche055/CM_BODY_ATTITUDE.agc
index 9761c84..f47bb5c 100644
--- a/Comanche055/CM_BODY_ATTITUDE.agc
+++ b/Comanche055/CM_BODY_ATTITUDE.agc
@@ -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.
diff --git a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc
index 6efa3bc..06fb01d 100644
--- a/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc
+++ b/Comanche055/CM_ENTRY_DIGITAL_AUTOPILOT.agc
@@ -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
diff --git a/Comanche055/CONIC_SUBROUTINES.agc b/Comanche055/CONIC_SUBROUTINES.agc
index 6eca239..7e7ce68 100644
--- a/Comanche055/CONIC_SUBROUTINES.agc
+++ b/Comanche055/CONIC_SUBROUTINES.agc
@@ -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.
diff --git a/Comanche055/CONTRACT_AND_APPROVALS.agc b/Comanche055/CONTRACT_AND_APPROVALS.agc
index c3096b7..e71b456 100644
--- a/Comanche055/CONTRACT_AND_APPROVALS.agc
+++ b/Comanche055/CONTRACT_AND_APPROVALS.agc
@@ -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
diff --git a/Comanche055/CSM_GEOMETRY.agc b/Comanche055/CSM_GEOMETRY.agc
index 8a77811..f5d7196 100644
--- a/Comanche055/CSM_GEOMETRY.agc
+++ b/Comanche055/CSM_GEOMETRY.agc
@@ -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
-
+
diff --git a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc
index d50d74e..477d4f1 100644
--- a/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc
+++ b/Comanche055/DISPLAY_INTERFACE_ROUTINES.agc
@@ -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
diff --git a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc
index 01969d0..cd03a71 100644
--- a/Comanche055/DOWN-TELEMETRY_PROGRAM.agc
+++ b/Comanche055/DOWN-TELEMETRY_PROGRAM.agc
@@ -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
diff --git a/Comanche055/ENTRY_LEXICON.agc b/Comanche055/ENTRY_LEXICON.agc
index 20dfc5c..92b84f9 100644
--- a/Comanche055/ENTRY_LEXICON.agc
+++ b/Comanche055/ENTRY_LEXICON.agc
@@ -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
diff --git a/Comanche055/ERASABLE_ASSIGNMENTS.agc b/Comanche055/ERASABLE_ASSIGNMENTS.agc
index 2b7c4e9..700648e 100644
--- a/Comanche055/ERASABLE_ASSIGNMENTS.agc
+++ b/Comanche055/ERASABLE_ASSIGNMENTS.agc
@@ -6,17 +6,17 @@
# Assembler: yaYUL
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
-# Mod history: 2009-05-06 RSB Started adapting from the Colossus249/ file
-# of the same name, using Comanche055 page
+# Mod history: 2009-05-06 RSB Started adapting from the Colossus249/ file
+# of the same name, using Comanche055 page
# images. Only through page 51 so far.
# 2009-05-07 RSB Through page 92 so far.
# 2009-05-07 RSB (Again!) First draft completed.
# 2009-05-20 RSB Fixed some bugs uncovered in trial assemblies:
# EMDOT, STATEXIT, VGDISP, DVPREV, POSTCDH,
# RETROFLG not defined correctly, changed the
-# typing of labels 9X9LOC1 and 9X9LOC2,
+# typing of labels 9X9LOC1 and 9X9LOC2,
# R32FLBIT -> R31FLBIT.
-# 2009-05-21 RSB Corrected definition of DELBRTMP, which
+# 2009-05-21 RSB Corrected definition of DELBRTMP, which
# chained to quite a lot of off-by-one errors.
# Changed a +8 to a +8D.
#
@@ -26,13 +26,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,7 +106,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
@@ -396,13 +396,13 @@ JSWCHBIT = BIT14
# BIT 13 FLAG 0
MIDFLAG = 002D # INTEGRATION WITH INTEGRATION WITHOUT
# SOLAR PERTURBATIONS SOLAR PERTURBATIONS
-
+
MIDFLBIT = BIT13
# BIT 12 FLAG 0
MOONFLAG = 003D # MOON IS SPHERE OF EARTH IS SPHERE OF
# INFLUENCE INFLUENCE
-
+
MOONBIT = BIT12
# BIT 11 FLAG 0
@@ -414,13 +414,13 @@ NORFBIT = BIT11
ZMEASURE = 005D # MEASUREMENT PLANET MEASUREMENT PLANET
# AND PRIMARY PLANET AND PRIMARY PLANET
# DIFFERENT SAME
-
+
ZMEASBIT = BIT10
# BIT 9 FLAG 0
NEEDLFLG = 006D # TOTAL ATTITUDE A/P FOLLOWING ERROR
# ERROR DISPLAYED DISPLAYED
-
+
NEEDLBIT = BIT9
# BIT 8 FLAG 0
@@ -449,7 +449,7 @@ F2RTEBIT = BIT5
# BIT 4 FLAG 0
TRUNFLAG = 011D # DRIVING OF TRUNNION DRIVING OF TRUNNION
# ALLOWED NOT ALLOWED
-
+
TRUNBIT = BIT4
# BIT 3 FLAG 0
@@ -461,11 +461,11 @@ FREEFBIT = BIT3
AMOONFLG = 13D # STATE VECTOR IN STATE VECTOR IN
AMOONBIT = BIT2 # LUNAR SPHERE AT EARTH SPHERE AT
# MIDTOAVE MIDTOAVE
-
+
# BIT 1 FLAG 0
KFLAG = 014D # SEARCH SECTOR MORE SEARCH SECTOR LESS
# THAN 180 DEGREES THAN 180 DEGREES
-
+
KBIT = BIT1
FLAGWRD1 = STATE +1 # (015-029)
@@ -488,13 +488,13 @@ ERADFLAG = 017D # EARTH, COMPUTE EARTH, USED FIXED
# RADIUS
# MOON, USE FIXED MOON, USE RLS FOR
# RADIUS LUNAR RADIUS
-
+
ERADFBIT = BIT13
# BIT 12 FLAG 1
NODOP01 = 018D # P01 NOT ALLOWED P01 ALLOWED
NOP01BIT = BIT12
-
+
# BIT 11 FLAG 1
ENG2FLAG = 019D # RCS BURN SPS BURN
@@ -518,14 +518,14 @@ R23BIT = BIT9
# BIT 8 FLAG 1
VEHUPFLG = 022D # CSM STATE VECTOR LEM STATE VECTOR
# BEING UPDATED BEING UPDATED
-
+
VEHUPBIT = BIT8
# BIT 7 FLAG 1
UPDATFLG = 023D # UPDATING BY MARKS UPDATING BY MARKS
# ALLOWED NOT ALLOWED
# Page 49
-
+
UPDATBIT = BIT7
# BIT 6 FLAG 1
@@ -542,26 +542,26 @@ TRACKBIT = BIT5
TRM03FLG = 026D # REQUEST TO NO REQUEST TO
# TERMINATE P03 HAS TERMINATE P03 HAS
# BEEN ENTERED BEEN ENTERED
-
+
TRM03BIT = BIT4
# BIT 3 FLAG 1
SLOPESW = 027D # ITERATE WITH BIAS ITERATE WITH REGULA
- # METHOD IN ITERATOR FALSI METHOD IN
+ # METHOD IN ITERATOR FALSI METHOD IN
# ITERATOR
-
+
SLOPEBIT = BIT3
# BIT 2 FLAG 1
GUESSW = 028D # NO STARTING VALUE STARTING VALUE FOR
# FOR ITERATION ITERATION EXISTS
-
+
GUESSBIT = BIT2
# BIT 1 FLAG 1
AVEGFLAG = 029D # AVERAGEG (SERVICER) AVERAGEG (SERVICER)
# TO CONTINUE TO CEASE
-
+
AVEGBIT = BIT1
FLAGWRD2 = STATE +2 # (030-044)
@@ -571,13 +571,13 @@ FLAGWRD2 = STATE +2 # (030-044)
# BIT 15 FLAG 2
DRIFTFLG = 030D # T3RUPT CALLS GYRO T3RUPT DOES NO GYRO
# COMPENSATION COMPENSATION
-
+
DRFTBIT = BIT15
# Page 50
# BIT 14 FLAG 2
-R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR
+R21MARK = 031D # OPTION ONE FOR OPTION TWO FOR
# MARKRUPT MARKRUPT
R21BIT = BIT14
@@ -606,7 +606,7 @@ SKIPVBIT = BIT10 # SFTWRE OR HDWRE
IMPULSW = 036D # MINIMUM IMPULSE STEERING BURN (NO
# BURN (CUTOFF TIME CUTOFF TIME YET
# SPECIFIED) AVAILABLE)
-
+
IMPULBIT = BIT9
# BIT 8 FLAG 2
@@ -622,7 +622,7 @@ ETPIFLAG = 038D # ELEVATION ANGLE TPI TIME SUPPLIED
# BIT 7 FLAG 2
FIRSTFLG = ETPIFLAG # FIRST PASS SUCCEEDING PASS THRU
# THRU S40.9 S40.9
-
+
FIRSTBIT = BIT7
# BIT 7 FLAG 2
@@ -635,26 +635,26 @@ FINALBIT = BIT6
FINALFLG = 039D # LAST PASS THROUGH INTERIM PASS THROUGH
# RENDEZVOUS PROGRAM RENDEZVOUS PROGRAM
# COMPUTATIONS COMPUTATIONS
-
+
AVFLBIT = BIT5
# BIT 5 FLAG 2
AVFLAG = 040D # LEM IS ACTIVE CSM IS ACTIVE
# VEHICLE VEHICLE
-
+
# BIT 4 FLAG 2
PFRATFLG = 041D # PREFERRED ATTITUDE PREFERRED ATTITUDE
# COMPUTED NOT COMPUTED
-
+
PFRATBIT = BIT4
# BIT 3 FLAG 2
- = 042D
-
+ = 042D
+
# BIT 2 FLAG 2
CALCMAN2 = 043D # PERFORM MANEUVER BYPASS STARTING
# STARTING PROCEDURE PROCEDURE
-
+
CALC2BIT = BIT2
# BIT 1 FLAG 2
@@ -664,14 +664,14 @@ NODOBIT = BIT1
FLAGWRD3 = STATE +3 # (045-059)
# (SET) (RESET)
-
+
# BIT 15 FLAG 3
= 045D
-
+
# BIT 14 FLAG 3
GLOKFAIL = 046D # GIMBAL LOCK HAS NOT IN GIMBAL LOCK
# OCCURRED
-
+
GLOKFBIT = BIT14
# Page 52
@@ -689,22 +689,22 @@ LUNABIT = BIT12
# BIT 11 FLAG 3
P22MKFLG = 049D # P22 DOWNLINKED MARK P22 DOWNLINK MARK
# DATA WAS JUST TAKEN DATA NOT JUST TAKEN
-
+
P22MKBIT = BIT11
# BIT 10 FLAG 3
VFLAG = 050D # LESS THAN TWO STARS TWO STARS IN FIELD
# IN FIELD OF VIEW OF VIEW
-
+
VFLAGBIT = BIT10
# BIT 9 FLAG 3
= 051D
-
+
# BIT 8 FLAG 3
PRECIFLG = 052D # CSMPREC OR LEMPREC INTEGRV
# OR INTEGRVS CALLED CALLED
-
+
PRECIBIT = BIT8
# BIT 7 FLAG 3
@@ -715,13 +715,13 @@ CULTBIT = BIT7
# BIT 6 FLAG 3
ORBWFLAG = 054D # W MATRIX VALID FOR W MATRIX INVALID FOR
# ORBITAL NAVIGATION ORBITAL NAVIGATION
-
+
ORBWFBIT = BIT6
# BIT 5 FLAG 3
STATEFLG = 055D # PERMANENT STATE PERMANENT STATE
# VECTOR UPDATED VECTOR NOT UPDATED
-
+
STATEBIT = BIT5
# BIT 4 FLAG 3
@@ -732,46 +732,46 @@ INTYBIT = BIT4
# BIT 3 FLAG 3
VINTFLAG = 057D # CSM STATE VECTOR LEM STATE VECTOR
# BEING INTEGRATED BEING INTEGRATED
-
+
VINTFBIT = BIT3
# BIT 2 FLAG 3
D6OR9FLG = 058D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
# FOR INTEGRATION FOR INTEGRATION
-
+
D6OR9BIT = BIT2
# BIT 1 FLAG 3
DIM0FLAG = 059D # W MATRIX IS TO BE W MATRIX IS NOT TO
# USED BE USED
-
+
FLAGWRD4 = STATE +4 # (060-074)
# (SET) (RESET)
-
+
DIM0BIT = BIT1
# BIT 15 FLAG 4
MRKIDFLG = 060D # MARK DISPLAY IN NO MARK DISPLAY IN
# ENDIDLE ENDIDLE
-
+
MRKIDBIT = BIT15
# BIT 14 FLAG 4
PRIODFLG = 061D # PRIORITY DISPLAY IN NO PRIORITY DISPLAY
# ENDIDLE IN ENDIDLE
-
+
PRIODBIT = BIT14
# BIT 13 FLAG 4
NRMIDFLG = 062D # NORMAL DISPLAY IN NO NORMAL DISPLAY
# ENDIDLE IN ENDIDLE
-
+
NRMIDBIT = BIT13
# BIT 12 FLAG 4
PDSPFLAG = 063D # CAN'T INTERRUPT SEE M. HAMILTON
# PRIORITY DISPLAY
-
+
PDSPFBIT = BIT12
# BIT 11 FLAG 4
@@ -787,14 +787,14 @@ NWAITFLG = 065D # HIGHER PRIORITY NO HIGHER PRIORITY
# DISPLAY OPERATING DISPLAY OPERATING
# WHEN NORMAL WHEN NORMAL DISPLAY
# DISPLAY INITIATED INITIATED
-
+
NWAITBIT = BIT10
# BIT 9 FLAG 4
MRKNVFLG = 066D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN MARK KEYBOARD WHEN MARK
# DISPLAY INITIATED DISPLAY INITIATED
-
+
MRKNVBIT = BIT9
# BIT 8 FLAG 4
@@ -802,7 +802,7 @@ NRMNVFLG = 067D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
# NORMAL DISPLAY NORMAL DISPLAY
# INITIATED INITIATED
-
+
NRMNVBIT = BIT8
# BIT 7 FLAG 4
@@ -810,21 +810,21 @@ PRONVFLG = 068D # ASTRONAUT USING ASTRONAUT NOT USING
# KEYBOARD WHEN KEYBOARD WHEN
# PRIORITY DISPLAY PRIORITY DISPLAY
# INITIATED INITIATED
-
+
PRONVBIT = BIT7
# BIT 6 FLAG 4
PINBRFLG = 069D # ASTRONAUT HAS ASTRONAUT HAS NOT
# INTERFERED WITH INTERFERED WITH
# EXISTING DISPLAY EXISTING DISPLAY
-
+
PINBRBIT = BIT6
# BIT 5 FLAG 4
MRUPTFLG = 070D # MARK DISPLAY MARK DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
# PRIORITY DISPLAY PRIORITY DISPLAY
-
+
MRUPTBIT = BIT5
# Page 55
@@ -833,13 +833,13 @@ NRUPTFLG = 071D # NORMAL DISPLAY NORMAL DISPLAY NOT
# INTERRUPTED BY INTERRUPTED BY
# PRIORITY OR MARK PRIORITY OR MARK
# DISPLAY DISPLAY
-
+
NRUPTBIT = BIT4
# BIT 3 FLAG 4
MKOVFLAG = 072D # MARK DISPLAY OVER NO MARK DISPLAY OVER
# NORMAL NORMAL
-
+
MKOVBIT = BIT3
# BIT 2 FLAG 4 # DISPLAY BIT
@@ -848,15 +848,15 @@ MKOVBIT = BIT3
# BIT 1 FLAG 4
XDSPFLAG = 074D # MARK DISPLAY NOT TO NO SPECIAL MARK
# BE INTERRUPTED INFORMATION
-
+
XDSPBIT = BIT1
FLAGWRD5 = STATE +5 # (075-099)
# (SET) (RESET)
-
+
# BIT 15 FLAG 5
DSKYFLAG = 075D # DISPLAYS SENT TO NO DISPLAYS TO DSKY
- # DSKY
+ # DSKY
DSKYBIT = BIT15
# BIT 14 FLAG 5
@@ -867,11 +867,11 @@ RETROBIT = BIT14 # ORBIT IS RETROGRADE
SLOWFLG = 077D # P37 TRANSEARTH SLOW DOWN IS NOT
SLOWBIT = BIT13 # COAST SLOW DOWN DESIRED
# IS DESIRED
-
+
# BIT 12 FLAG 5
V59FLAG = 078D # CALIBRATING FOR NORMAL MARKING FOR
# P23 P23
-
+
V59FLBIT = BIT12
# BIT 11 FLAG 5
@@ -891,7 +891,7 @@ PRFTRBIT = BIT10
# BIT 9 FLAG 5
DMENFLG = 081D # DIMENSION OF W IS 9 DIMENSION OF W IS 6
# FOR INCORPORATION FOR INCORPORATION
-
+
DMENFBIT = BIT9
# BIT 8 FLAG 5
@@ -907,13 +907,13 @@ ENGONBIT = BIT7
# BIT 6 FLAG 5
3AXISFLG = 084D # MANEUVER SPECIFIED MANEUVER SPECIFIED
# BY THREE AXES BY ONE AXIS
-
+
3AXISBIT = BIT6
# BIT 5 FLAG 5
GRRBKFLG = 085D # BACKUP GRR RECEIVED BACKUP GRR NOT
# RECEIVED
-
+
GRRBKBIT = BIT5
# BIT 4 FLAG 5
@@ -932,22 +932,22 @@ SOLNSBIT = BIT3
MGLVFLAG = 088D # LOCAL VERTICAL MIDDLE GIMBAL ANGLE
# COORDINATES COMPUTED
# COMPUTED
-
+
MGLVFBIT = BIT2
# BIT 1 FLAG 5
RENDWFLG = 089D # W MATRIX VALID W MATRIX INVALID
# FOR RENDEZVOUS FOR RENDEZVOUS
# NAVIGATION NAVIGATION
-
+
RENDWBIT = BIT1
FLAGWRD6 = STATE +6 # (090-104)
# (SET) (RESET)
-
+
# BIT 15 FLAG 6
DAPBIT1 = 090D # 1 SATURN 1 TVC 0 RCS 0 NO
-
+
DAP1BIT = BIT15
# BIT 14 FLAG 6
@@ -963,13 +963,13 @@ STRULBIT = BIT13
# BIT 13 FLAG 6
ENTRYDSP = STRULLSW # DO ENTRY DISPLAY OMIT ENTRY DISPLAY
# VIA ENTRYVN.
-
+
ENDSPBIT = BIT13
# BIT 12 FLAG 6
CMDAPARM = 093D # ALLOW ENTRY FIRINGS INHIBIT ENTRY FIRING
# AND CALCULATIONS AND CONTROL FUNCTION
-# Page 58
+# Page 58
CMDARMBIT = BIT12
# BIT 11 FLAG 6
@@ -982,14 +982,14 @@ GMDIFBIT = BIT11
GONEPAST = 095D # LATERAL CONTROL LATERAL CONTROL
# CALCULATIONS TO BE CALCULATIONS TO BE
# OMITTED DONE
-
+
GONEBIT = BIT10
# BIT 9 FLAG 6
RELVELSW = 096D # TARGETING USES TARGETING USES
# EARTH-RELATIVE INERTIAL VELOCITY
# VELOCITY.
-
+
RELVBIT = BIT9
# BIT 8 FLAG 6
@@ -1006,14 +1006,14 @@ KNOWNBIT = BIT8
R57FLAG = KNOWNFLG # DO NOT DO R57 DO R57, TRUNION
# TRUNION BIAS HAS BIAS NEEDED
# BEEN OBTAINED.
-
+
R57BIT = BIT8
# BIT 7 FLAG 6
NOSWITCH = 098D # LATERAL ROLL LATERAL ROLL MANEUVER
# MANEUVER INHIBITED PERMITTED IN ENTRY
# IN ENTRY
-
+
NOSWBIT = BIT7
# BIT 6 FLAG 6
@@ -1022,13 +1022,13 @@ HIND = 099D # ITERATING HUNTEST ITERATING OF HUNTEST
# DONE AFTER RANGE OMITTED AFTER RANGE
# PREDICTION PREDICTION
# Page 59
-
+
HINDBIT = BIT6
# BIT 5 FLAG 6
INRLSW = 100D # INITIAL ROLL INITIAL ROLL
# V(LV) V(LV)
-
+
INRLBIT = BIT5
# ATTITUDE NOT HELD ATTITUDE HELD
@@ -1036,7 +1036,7 @@ INRLBIT = BIT5
# BIT 4 FLAG 6
LATSW = 101D # DOWNLIFT NOT DOWNLIFT INHIBITED
# INHIBITED
-
+
LATSWBIT = BIT4
# BIT 3 FLAG 6
@@ -1046,33 +1046,33 @@ LATSWBIT = BIT4
# BIT 3 FLAG 6
= 102D
-
+
# BIT 2 FLAG 6
CM/DSTBY = 103D # ENTRY DAP ACTIVATED ENTRY DAP NOT
# ACTIVATED
-
+
CM/DSBIT = BIT2
# BIT 1 FLAG 6
GYMDIFSW = 104D # CDU DIFFERENCES AND CDU DIFFERENCES AND
- # BODY RATES COMPUTED BODY RATES NOT
+ # BODY RATES COMPUTED BODY RATES NOT
# COMPUTED
-
+
GYMDIBIT = BIT1
FLAGWRD7 = STATE +7 # (105-119)
# (SET) (RESET)
-
+
# BIT 15 FLAG 7
TERMIFLG = 105D # TERMINATE R52 DO NOT TERMINATE R52
-
+
TERMIBIT = BIT15
# BIT 14 FLAG 7
ITSWICH = 106D # ACCEPT NEXT LAMBERT TEST LAMBERT ANSWER
# TPI SEARCH SOLUTION AGAINST LIMITS
# Page 60
-
+
ITSWBIT = BIT14
# BIT 13 FLAG 7
@@ -1083,7 +1083,7 @@ IGNFLBIT = BIT13
# BIT 12 FLAG 7
ASTNFLAG = 108D # ASTRONAUT HAS ASTRONAUT HAS NOT
# OKAYED IGNITION OKAYED IGNITION
-
+
ASTNBIT = BIT12
# BIT 11 FLAG 7
@@ -1094,7 +1094,7 @@ TIMRBIT = BIT11
# BIT 10 FLAG 7
NORMSW = 110D # UNIT NORMAL INPUT LAMBERT COMPUTE ITS
# TO LAMBERT. OWN UNIT NORMAL.
-
+
NORMSBIT = BIT10
# BIT 9 FLAG 7
@@ -1122,7 +1122,7 @@ V37FLBIT = BIT6
= 115D
# Page 61
= BIT5
-
+
# BIT 4 FLAG 7
UPLOCKFL = 116D # K-KBAR-K FAIL NO K-KBAR-K FAIL
@@ -1145,7 +1145,7 @@ TFFSWBIT = BIT1
FLAGWRD8 = STATE +8D # (120-134)
# (SET) (RESET)
-
+
# BIT 15 FLAG 8
RPQFLAG = 120D # RPQ NOT COMPUTED RPQ COMPUTED
@@ -1153,23 +1153,23 @@ RPQFLBIT = BIT15
# BIT 14 FLAG 8
= 121D
-
+
# BIT 13 FLAG 8
NEWIFLG = 122D # FIRST PASS THROUGH SUCCEEDING ITERATION
# INTEGRATION OF INTEGRATION
-
+
NEWIBIT = BIT13
# BIT 12 FLAG 8
CMOONFLG = 123D # PERMANENT CSM STATE PERMANENT CSM STATE
# IN LUNAR SPHERE IN EARTH SPHERE
-
+
CMOONBIT = BIT12
# BIT 11 FLAG 8
LMOONFLG = 124D # PERMANENT LM STATE PERMANENT LM STATE
# IN LUNAR SPHERE IN EARTH SPHERE
-
+
LMOONBIT = BIT11
# Page 62
@@ -1186,29 +1186,29 @@ P39/79SW = 126D # P39/79 OPERATING P38/78 OPERATING
P39SWBIT = BIT9
# BIT 8 FLAG 8
-SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
+SURFFLAG = 127D # LM ON LUNAR SURFACE LM NOT ON LUNAR
# SURFACE
-
+
SURFFBIT = BIT8
# BIT 7 FLAG 8
INFINFLG = 128D # NO CONIC SOLUTION CONIC SOLUTION
# (CLOSURE THROUGH EXISTS.
# INFINITY REQUIRED).
-
+
INFINBIT = BIT7
# BIT 6 FLAG 8
ORDERSW = 129D # ITERATOR USES 2ND ITERATOR USES 1ST
# ORDER MINIMUM MODE ORDER STANDARD MODE
-
+
ORDERBIT = BIT6
# BIT 5 FLAG 8
APSESW = 130D # RDESIRED OUTSIDE RDESIRED INSIDE
# PERICENTER-APOCENTER PERICENTER-APOCENTER
# RANGE IN TIME-RAD RANGE IN TIME-RADIUS
-
+
APSESBIT = BIT5
# BIT 4 FLAG 8
@@ -1224,28 +1224,28 @@ COGAFBIT = BIT4
V96ONFLG = 132D # P00 INTEGRATION HAS P00 INTEGRATION IS
# BEEN INHIBITED BY PROCEEDING REGULARLY
# V96
-
+
# BIT 2 FLAG 8
= 133D
-
+
# BIT 1 FLAG 8
360SW = 134D # TRANSFER ANGLE NEAR TRANSFER ANGLE NOT
# 360 DEGREES NEAR 360 DEGREES
-
+
360SWBIT = BIT1
FLAGWRD9 = STATE +9D # (135-149)
# (SET) (RESET)
-
+
# BIT 15 FLAG 9
SWTOVER = 135D # SWITCHOVER HAS NO SWITCHOVER YET
# OCCURRED.
-
+
SWTOVBIT = BIT15
# BIT 14 FLAG 9
= 136D
-
+
V67FLBIT = BIT14
# BIT 13 FLAG 9
@@ -1261,7 +1261,7 @@ MAXDBBIT = BIT12
# BIT 11 FLAG 9
V94FLAG = 139D # V94 ALLOWED DURING V94 NOT ALLOWED
# P23
-
+
V94FLBIT = BIT11
# BIT 10 FLAG 9
@@ -1269,34 +1269,34 @@ SAVECFLG = 140D # P23 DISPLAY AND P23 DISPLAY AND
# DATA STORAGE AFTER DATA STORAGE BEFORE
# Page 64
# MARK IS DONE MARK IS DONE
-
+
SAVECBIT = BIT10
# BIT 9 FLAG 9
VHFRFLAG = 141D # ALLOW R22 TO STOP ACCEPTANCE
# ACCEPT RANGE OF RANGE DATA
# DATA
-
+
VHFRBIT = BIT9
# BIT 8 FLAG 9
SOURCFLG = 142D # SOURCE OF INPUT SOURCE OF INPUT
# DATA IS FROM DATA IS FROM
# VHF RADAR OPTICS MARK
-
+
SOURCBIT = BIT8
# BIT 7 FLAG 9
R22CAFLG = 143D # R-22 CALCULATIONS R-22 CALCULATIONS
# ARE GOING ON ARE NOT GOING ON
-
+
R22CABIT = BIT7
# BIT 6 FLAG 9
N22ORN17 = 144D # COMPUTE TOTAL COMPUTE TOTAL
# ATTITUDE ERRORS ATTITUDE ERRORS
# W.R.T. N22 (V62) W.R.T. N17 (V63)
-
+
N2217BIT = BIT6
# BIT 5 FLAG 9
@@ -1311,7 +1311,7 @@ R31FLBIT = BIT4
# BIT 3 FLAG 9
MID1FLAG = 147D # INTEGRATE TO TDEC INTEGRATE TO THE
# THEN-PRESENT TIME
-
+
MID1FBIT = BIT3
# BIT 2 FLAG 9
@@ -1319,7 +1319,7 @@ MIDAVFLG = 148D # INTEGRATION ENTERED INTEGRATION WAS
# FROM ONE OF MIDTOAV NOT ENTERED VIA
# PORTALS MIDTOAV
# Page 65
-
+
MIDAVBIT = BIT2
# BIT 1 FLAG 9
@@ -1327,76 +1327,76 @@ AVEMIDSW = 149D # AVETOMID CALLING NO AVETOMID W INTEGER
# FOR W MATRIX INTEGR ALLOW SET UP RN,VN,
# DON'T WRITE OVER RN, PIPTIME
# VN,PIPTIME
-
+
AVEMDBIT = BIT1
FLGWRD10 = STATE +10D # (150-164)
# (SET) (RESET)
-
+
RASFLAG = STATE +10D
# BIT 15 FLAG 10
= 150D
-
+
# BIT 14 FLAG 10
INTFLAG = 151D # INTEGRATION IN INTEGRATION NOT IN
# PROGRESS PROGRESS
-
+
INTFLBIT = BIT14
# BIT 13 FLAG 10
= 152D
-
+
# BIT 12 FLAG 10
= 153D
-
+
# BIT 11 FLAG 10
= 154D
-
+
# BIT 10 FLAG 10
= 155D
-
+
# BIT 9 FLAG 10
= 156D
-
+
# BIT 8 FLAG 10
= 157D
# Page 66
-
+
# BIT 7 FLAG 10
REINTFLG = 158D # INTEGRATION ROUTINE INTEGRATION ROUTINE
# TO BE RESTARTED NOT TO BE RESTARTED
REINTBIT = BIT7
-
+
# BIT 6 FLAG 10
= 159D
-
+
# BIT 5 FLAG 10
= 160D
-
+
# BIT 4 FLAG 10
= 161D
-
+
# BIT 3 FLAG 10
= 162D
-
+
# BIT 2 FLAG 10
= 163D
-
+
# BIT 1 FLAG 10
= 164D
-
+
FLGWRD11 = STATE +11D # (165-179)
# (SET) (RESET)
-
+
# BIT 15 FLAG 11
S32.1F1 = 165D # DELTAN AT CSI TIME DVT1 LESS THAN MAX
S32BIT1 = BIT15 # ONE EXCEEDS MAX
-
+
# BIT 14 FLAG 11
S32.1F2 = 166D # FIRST PASS OF REITERATION OF
S32BIT2 = BIT14 # NEWTON INTEGRATION NEWTON
-
+
# BIT 13 FLAG 11
S32.1F3A = 167D # BIT 13 AND BIT 12 FUNCTION AS AN ORDERED
S32BIT3A = BIT13 # PAIR (13,12) INDICATING THE POSSIBLE OC-
@@ -1408,47 +1408,47 @@ S3229T3B = BIT12 # = FIRST NEWTON ITERATION BEING DONE
# (0,0)= FIRST PASS OF 2ND NEWTON ITER.
# (1,1)= 50 FPS STAGE OF 2ND NEWT ITER.
# (1,0)= REMAINDER OF 2ND NEWT ITER.
-
+
# BIT 11 FLAG 11
= 169D
-
+
# BIT 10 FLAG 11
= 170D
-
+
# BIT 9 FLAG 11
= 171D
-
+
# BIT 8 FLAG 11
= 172D
-
+
# BIT 7 FLAG 11
= 173D
-
+
# BIT 6 FLAG 11
= 174D
-
+
# BIT 5 FLAG 11
= 175D
-
+
# BIT 4 FLAG 11
= 176D
-
+
# BIT 3 FLAG 11
= 177D
-
+
# BIT 2 FLAG 11
= 178D
-
+
# BIT 1 FLAG 11
= 179D
-
+
# Page 68
# GENERAL ERASABLE ASSIGNMENTS
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.
@@ -1501,7 +1501,7 @@ STATEXIT ERASE # I(1) STQ ADDRESS FOR STATEXIT
# UNUSED ERASABLES ********(2)
ERASFILL ERASE +1
-# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS
+# EXEC TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOBS
# (INTB15+ THROUGH RUPTMXTM) (32D)
INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
DSEXIT EQUALS INTB15+ # RETURN FOR DSPIN
@@ -1625,10 +1625,10 @@ PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH
-
+
# SPECIAL DOWNLINK BUFFER. -- OVERLAYED BY P27 STORAGE --
-# P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D)
+# P27 (UPDATE PROGRAM) STORAGE. -- OVERLAYS SPEC DNLNK BUFF -- (24D)
COMPNUMB ERASE +23D # B(1)TMP NUMBER OF ITEMS TO BE UPLINKED.
UPOLDMOD EQUALS COMPNUMB +1 # B(1)TMP HOLDS INTERRUPTED PROGRAM NUMBER
@@ -1652,7 +1652,7 @@ ENDBUF = CMTMTIME +16D # B(1) ENTRY.)
V1 = ENDBUF +1 # I(2) REENTRY, P64-P65
A0 = V1 +2 # I(2) REENTRY, P64-P65
# HI-ORDER WORD ONLY ON DNLNK.
-
+
# ALIGNMENT STORAGE. (5D)
# (CANNOT SHARE WITH PRECISION INTEGRATION OR KEPLER STORAGE.)
@@ -1754,7 +1754,7 @@ COSCDUY = COSCDU
COSCDUZ = COSCDU +2
# PHASE TABLE AND RESTART COUNTERS (12D)
-# Page 75
+# Page 75
-PHASE1 ERASE # B(1)PRM
PHASE1 ERASE # B(1)PRM
@@ -2085,7 +2085,7 @@ RTED1 ERASE +1 # I(2)PL VGAMMA POLY COEF B-3
DVTHRESH ERASE # I(1)PL DELTA VTHRESHOLD FOR LOW THRUST
# ROUTINE B-2
-
+
# P23 *** PAD LOAD **** (2D)
HORIZALT ERASE +1 # I(2)PL HORIZON ALTITUDE M B-29
@@ -2263,7 +2263,7 @@ END-E3 EQUALS E32C31RM # NEXT UNUSED E3 ADDRESS
# EBANK-4 ASSIGNMENTS
SETLOC 2000
-
+
# P20 STORAGE. -- PAD LOADED -- (4D)
WRENDPOS ERASE # B(1)PL M B-14
@@ -2404,7 +2404,7 @@ RTRN EQUALS QSAVED +1 # B(1) RETURN
SUBEXIT EQUALS RTRN +1 # B(1)TMP
# RGEXIT CAN'T SHARE WITH HPER,HAPO
RGEXIT EQUALS SUBEXIT # I(1)TMP Q SAVE MODE 1 AND 2 TO RTRN MAIN
-
+
# P30 DISPLAY (4D)
HAPO EQUALS KT # I(2)DSP NOUN 42, FOR P30.
HPER EQUALS HAPO +2 # I(2)DSP NOUN 42, FOR P30.
@@ -2415,7 +2415,7 @@ NOMTPI EQUALS KT # I(2)TMP NOMINAL TPI TIME FOR RECYCLE.
# THE FOLLOWING ARE ERASABLES USED BY THE SYSTEM TESTS. 205 USES TRANSM1. G'S ARE NOT USED IN 205 NOR ARE THEY
# WHILE 504 USES TRANSM1 AND ALFDK.
# Page 92
-# RSB 2009. The definition of TRANSM1 was previously just "TRANSM1 EQUALS 2000",
+# RSB 2009. The definition of TRANSM1 was previously just "TRANSM1 EQUALS 2000",
# this messes up the label typing system in yaYUL.
SETLOC 2000
TRANSM1 EQUALS # (18) INITIALIZATION FOR IMU TESTS
@@ -2438,13 +2438,13 @@ END-E4 EQUALS INTVAR # LAST USED ERASABLE IN E4.
# EBANK-5 ASSIGNMENTS
SETLOC 2400
-
+
# *-*-*-*- OVERLAY 1 IN EBANK 5 -*-*-*-*
# W-MATRIX STORAGE. (162D)
# RSB 2009. The following 3 lines have been replaced to be consistent with yaYUL's
-# label-typing system. They *were* "W EQUALS 2400", "9X9LOC1 EQUALS 2444",
+# label-typing system. They *were* "W EQUALS 2400", "9X9LOC1 EQUALS 2444",
# "9X9LOC2 EQUALS 2532".
W EQUALS # B(162)
9X9LOC1 EQUALS W +44
@@ -2606,14 +2606,14 @@ ZI EQUALS TDVEL +6 # I(18)
22SUBSCL EQUALS ZI +18D # DE OF ABCDE LANDMARK ID NO.
CXOFF EQUALS 22SUBSCL +1 # B OF ABCDE OFFSET INDICATOR
8KK EQUALS CXOFF +1 # B(1)TMP INDEX OF PRESENT MARK
-8NN EQUALS 8KK +1 # B(1)TMP
+8NN EQUALS 8KK +1 # B(1)TMP
S22LOC EQUALS 8NN +1 # I(1)TMP MARK DATA LOC
LANDMARK EQUALS S22LOC +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53
HORIZON EQUALS LANDMARK +1 # B(1)DSP NOUN 70 FOR P22,51, R52,53
IDOFLMK EQUALS HORIZON +1 # B(1)
# ******P23*** (1D)
-TRUNION EQUALS IDOFLMK +1 # B(1)
+TRUNION EQUALS IDOFLMK +1 # B(1)
# Page 98
@@ -2679,7 +2679,7 @@ COUNTPL EQUALS GENPL +70D
CDUANG EQUALS GENPL +71D
AINLA = GENPL # OPTIMUM CALIB. AND ALIGNMENT
-WANGO EQUALS AINLA
+WANGO EQUALS AINLA
WANGI EQUALS AINLA +2D
WANGT EQUALS AINLA +4D
TORQNDX = WANGT
@@ -2862,7 +2862,7 @@ INTTEMP ERASE +14D # (15)
TVCRCS ERASE +11D # (12)
# RCS (WBODYS,ADOTS)
# TVC(OMEGACS,OMEGABS)
-
+
# TVC DAP TEMPORARY VARIABLES*********************************
# TVC DAP INTERRUPT TRUE TEMPORARIES**************************
@@ -3327,7 +3327,7 @@ ASPS(TM) = WBODY # I(6)DWN
# ASKEP, ASP1, ASPUP, ASPDN, ASP3, ASP3+1
# P37 PAD LOADS (1)
-P37RANGE EQUALS R61CNTR +1 # I(1)PL *****
+P37RANGE EQUALS R61CNTR +1 # I(1)PL *****
END-E6 = P37RANGE +1 # FIRST UNUSED ERASABLE LOCATION IN E6
@@ -3443,7 +3443,7 @@ ALP EQUALS THETAH +2 # 2P
ASKEP = ASPS # 2P) THESE ARE STORED IN
ASP1 = ASPS +1 # 2P) SEQUENCE, OVERLAPPING
ASPUP = ASPS +2 # 2P)>HI-WD OF EACH< HI-WORD ONLY APPEARING
-ASPDWN = ASPS +3 # 2P) ON DOWNLIST, EXCEPT
+ASPDWN = ASPS +3 # 2P) ON DOWNLIST, EXCEPT
ASP3 = ASPS +4 # 2P) ASP3 IS COMPLETE.
C/D0 EQUALS ALP +2 # 2P -1/D0
diff --git a/Comanche055/EXECUTIVE.agc b/Comanche055/EXECUTIVE.agc
index ea92c99..1ee75b6 100644
--- a/Comanche055/EXECUTIVE.agc
+++ b/Comanche055/EXECUTIVE.agc
@@ -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
diff --git a/Comanche055/EXTENDED_VERBS.agc b/Comanche055/EXTENDED_VERBS.agc
index fb13181..7370165 100644
--- a/Comanche055/EXTENDED_VERBS.agc
+++ b/Comanche055/EXTENDED_VERBS.agc
@@ -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
diff --git a/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc b/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc
index d8c439c..95adc9a 100644
--- a/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc
+++ b/Comanche055/FIXED_FIXED_CONSTANT_POOL.agc
@@ -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
diff --git a/Comanche055/FRESH_START_AND_RESTART.agc b/Comanche055/FRESH_START_AND_RESTART.agc
index 8c89614..49cf3e4 100644
--- a/Comanche055/FRESH_START_AND_RESTART.agc
+++ b/Comanche055/FRESH_START_AND_RESTART.agc
@@ -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
-
+
diff --git a/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc b/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc
index 9cd8718..03882c6 100644
--- a/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc
+++ b/Comanche055/GIMBAL_LOCK_AVOIDANCE.agc
@@ -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)
diff --git a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
index de0a100..6ae9703 100644
--- a/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
+++ b/Comanche055/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
@@ -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
diff --git a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc
index 0ae9808..3ba45f0 100644
--- a/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc
+++ b/Comanche055/IMU_CALIBRATION_AND_ALIGNMENT.agc
@@ -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
diff --git a/Comanche055/IMU_COMPENSATION_PACKAGE.agc b/Comanche055/IMU_COMPENSATION_PACKAGE.agc
index 2103864..9c539ff 100644
--- a/Comanche055/IMU_COMPENSATION_PACKAGE.agc
+++ b/Comanche055/IMU_COMPENSATION_PACKAGE.agc
@@ -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
-
+
diff --git a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc
index 0cfdcbb..cafe8a6 100644
--- a/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc
+++ b/Comanche055/IMU_MODE_SWITCHING_ROUTINES.agc
@@ -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
-
+
diff --git a/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc b/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc
index 55c0730..fcd90ac 100644
--- a/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc
+++ b/Comanche055/INFLIGHT_ALIGNMENT_ROUTINES.agc
@@ -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)
diff --git a/Comanche055/INTEGRATION_INITIALIZATION.agc b/Comanche055/INTEGRATION_INITIALIZATION.agc
index 6012ab7..9c96681 100644
--- a/Comanche055/INTEGRATION_INITIALIZATION.agc
+++ b/Comanche055/INTEGRATION_INITIALIZATION.agc
@@ -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
diff --git a/Comanche055/INTER-BANK_COMMUNICATION.agc b/Comanche055/INTER-BANK_COMMUNICATION.agc
index 3795b50..d0c4b81 100644
--- a/Comanche055/INTER-BANK_COMMUNICATION.agc
+++ b/Comanche055/INTER-BANK_COMMUNICATION.agc
@@ -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
-
+
diff --git a/Comanche055/INTERPRETER.agc b/Comanche055/INTERPRETER.agc
index 0a2e426..050ff51 100644
--- a/Comanche055/INTERPRETER.agc
+++ b/Comanche055/INTERPRETER.agc
@@ -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.
-
+
diff --git a/Comanche055/INTERPRETIVE_CONSTANTS.agc b/Comanche055/INTERPRETIVE_CONSTANTS.agc
index 2533abe..0fc21e3 100644
--- a/Comanche055/INTERPRETIVE_CONSTANTS.agc
+++ b/Comanche055/INTERPRETIVE_CONSTANTS.agc
@@ -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
diff --git a/Comanche055/INTERRUPT_LEAD_INS.agc b/Comanche055/INTERRUPT_LEAD_INS.agc
index 85fdd14..43486e7 100644
--- a/Comanche055/INTERRUPT_LEAD_INS.agc
+++ b/Comanche055/INTERRUPT_LEAD_INS.agc
@@ -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
-
-
+
+
diff --git a/Comanche055/JET_SELECTION_LOGIC.agc b/Comanche055/JET_SELECTION_LOGIC.agc
index f39337c..ea2980c 100644
--- a/Comanche055/JET_SELECTION_LOGIC.agc
+++ b/Comanche055/JET_SELECTION_LOGIC.agc
@@ -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
diff --git a/Comanche055/KALCMANU_STEERING.agc b/Comanche055/KALCMANU_STEERING.agc
index 18cb6d1..4b2b61c 100644
--- a/Comanche055/KALCMANU_STEERING.agc
+++ b/Comanche055/KALCMANU_STEERING.agc
@@ -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
diff --git a/Comanche055/KEYRUPT_UPRUPT.agc b/Comanche055/KEYRUPT_UPRUPT.agc
index 19493c2..858eca2 100644
--- a/Comanche055/KEYRUPT_UPRUPT.agc
+++ b/Comanche055/KEYRUPT_UPRUPT.agc
@@ -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
#
diff --git a/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc b/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc
index e49bd64..062b47f 100644
--- a/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc
+++ b/Comanche055/LATITUDE_LONGITUDE_SUBROUTINES.agc
@@ -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
diff --git a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
index 534fb1f..eef38b6 100644
--- a/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
+++ b/Comanche055/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
@@ -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
diff --git a/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc b/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc
index 8fb219d..9d0f8cf 100644
--- a/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc
+++ b/Comanche055/LUNAR_LANDMARK_SELECTION_FOR_CM.agc
@@ -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
diff --git a/Comanche055/MAIN.agc b/Comanche055/MAIN.agc
index 3dc04b8..340c6c0 100644
--- a/Comanche055/MAIN.agc
+++ b/Comanche055/MAIN.agc
@@ -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
diff --git a/Comanche055/MEASUREMENT_INCORPORATION.agc b/Comanche055/MEASUREMENT_INCORPORATION.agc
index 7468155..5fc213b 100644
--- a/Comanche055/MEASUREMENT_INCORPORATION.agc
+++ b/Comanche055/MEASUREMENT_INCORPORATION.agc
@@ -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
diff --git a/Comanche055/MYSUBS.agc b/Comanche055/MYSUBS.agc
index d8a8ba3..2df4abd 100644
--- a/Comanche055/MYSUBS.agc
+++ b/Comanche055/MYSUBS.agc
@@ -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
diff --git a/Comanche055/ORBITAL_INTEGRATION.agc b/Comanche055/ORBITAL_INTEGRATION.agc
index 836472e..4086ccb 100644
--- a/Comanche055/ORBITAL_INTEGRATION.agc
+++ b/Comanche055/ORBITAL_INTEGRATION.agc
@@ -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
diff --git a/Comanche055/P11.agc b/Comanche055/P11.agc
index 31ca683..0e70b1f 100644
--- a/Comanche055/P11.agc
+++ b/Comanche055/P11.agc
@@ -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
diff --git a/Comanche055/P20-P25.agc b/Comanche055/P20-P25.agc
index 2b18eab..78c9dd1 100644
--- a/Comanche055/P20-P25.agc
+++ b/Comanche055/P20-P25.agc
@@ -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
diff --git a/Comanche055/P30-P37.agc b/Comanche055/P30-P37.agc
index dfbcb04..be599c3 100644
--- a/Comanche055/P30-P37.agc
+++ b/Comanche055/P30-P37.agc
@@ -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
diff --git a/Comanche055/P32-P33_P72-P73.agc b/Comanche055/P32-P33_P72-P73.agc
index f14286d..cd141b2 100644
--- a/Comanche055/P32-P33_P72-P73.agc
+++ b/Comanche055/P32-P33_P72-P73.agc
@@ -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
diff --git a/Comanche055/P34-35_P74-75.agc b/Comanche055/P34-35_P74-75.agc
index 254fde4..e492879 100644
--- a/Comanche055/P34-35_P74-75.agc
+++ b/Comanche055/P34-35_P74-75.agc
@@ -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
diff --git a/Comanche055/P37_P70.agc b/Comanche055/P37_P70.agc
index 0cbac46..45028af 100644
--- a/Comanche055/P37_P70.agc
+++ b/Comanche055/P37_P70.agc
@@ -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
diff --git a/Comanche055/P40-P47.agc b/Comanche055/P40-P47.agc
index 8d87759..9c0206c 100644
--- a/Comanche055/P40-P47.agc
+++ b/Comanche055/P40-P47.agc
@@ -7,13 +7,13 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 684-736
-# Mod history: 2009-05-11 RSB Adapted from the Colossus249/ file
-# of the same name, using Comanche055 page
-# images.
+# Mod history: 2009-05-11 RSB Adapted from the Colossus249/ file
+# of the same name, using Comanche055 page
+# images.
# 2009-05-20 RSB In S20.1, a DMP DDV was corrected to DMPR DDV.
# 2009-05-22 RSB In BESTTRIM, TC PACTOFF corrected to
# TS PACTOFF.
-# 2009-05-23 RSB Prior to the 2CADR at T5IDLDAP, added an
+# 2009-05-23 RSB Prior to the 2CADR at T5IDLDAP, added an
# SBANK.
#
# This source code has been transcribed or otherwise adapted from digitized
@@ -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
@@ -40,12 +40,12 @@
BANK 31
SETLOC P40S
BANK
-
+
COUNT 24/P40
-
+
P40CSM TC DOWNFLAG
ADRES ENG2FLAG
-
+
TC INTPRET
SLOAD BOFF
ECSTEER # IS THIS AN EXTERNAL DELTA V BURN
@@ -58,11 +58,11 @@ P40S/C STODL CSTEER
P40S/F STODL F # P41 ENTERS HERE
TIG # ORIGINAL TIG MAY BE SLIPPED BY P40S/SV
STORE NOMTIG # SET ORIGINAL TIME OF IGNITION FOR S40.9
-
+
EXIT
TC BANKCALL
CADR R02BOTH # IMU STATUS CHECK
-
+
P40PVA TC INTPRET
CALL
S40.1 # COMPUTE VGTIG,UT
@@ -78,14 +78,14 @@ P40SXTY TCR SETMINDB -1 # NARROW DEADBAND FOR MANEUVER (EBANK6)
TS NBRCYCLS
TC UPFLAG
ADRES TIMRFLAG # ALLOW CLOCKTASK
-
+
TC P41/P40
TC P41/DSP # P41
-
+
P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED
# Page 685
TS NVWORD1 # BELOW
-
+
TC INTPRET
VLOAD ABVAL # FOR R2
VGTIG
@@ -93,11 +93,11 @@ P40TTOG CAF V06N40 # INITIALIZE FOR CLOCKTASK WHICH IS CALLED
HI6ZEROS
STORE DVTOTAL
EXIT
-
+
EXTEND
DCA STEERADS # SET FOR UPDATEVG AND TEST FOR STEERING
DXCH AVEGEXIT # AFTER AVERAGE G
-
+
P40GMB CAF P40CKLS2 # (4.1 PROTECTION)
TC BANKCALL
CADR GOPERF1
@@ -105,16 +105,16 @@ P40GMB CAF P40CKLS2 # (4.1 PROTECTION)
TCF TST,TRIM # V33
TRIMONLY CS BIT1 # SET MRKRTEMP FOR GIMBAL TRIM (-1)
+1 TS MRKRTMP # ENTRY FROM TST,TRIM
-
+
CAF ZERO # SET CNTR +0 FOR RESTART LOGIC IN S40.6
TS CNTR # +0 SAYS NORMAL ENTRY
# +1 (PRE40.6) SAYS RESTART ENTRY
-
+
CAF ONE
TC WAITLIST
EBANK= DAPDATR1
2CADR S40.6
-
+
CCS MRKRTMP # TEST TO FIND TIME TO WAIT FOR GIMBAL TEST
CAF 18SEC # PLUS, DELAY FOR 18 SECONDS
TCF +2 # HOLE
@@ -128,9 +128,9 @@ P40S/RS CAF ONE
TC WAITLIST # P41/SDP
EBANK= TIG
2CADR CLOKTASK
-
+
RELINT
-
+
P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12
EBANK= TIG
# Page 686
@@ -139,7 +139,7 @@ P40S/SV TCR E7SETTER # JOB, 4.23 PRETECTS, PREO12
TIG
SEC29.96
STORE TDEC1
-
+
CALRB # RETURN IN BASIC
MIDTOAV1
TCF +2
@@ -155,10 +155,10 @@ P40SET EXTEND
TC LONGCALL
EBANK= TIG
2CADR TIGBLNK
-
+
TC PHASCHNG
OCT 20214 # 4.21 = TIGBLNK (P40TMP CS)
-
+
TCF ENDOFJOB
P40BLNKR TC BANKCALL
CADR CLEANDSP # REMOVE RESIDUE
@@ -171,7 +171,7 @@ P40SNEWM EXTEND
DCA SEC29.96
DAS TIG
TCF P40SET # FOR LONGCALL OF TIG-30 (OR -35)
-
+
EBANK= DAPDATR1
POSTBURN CAF V16N40
TC BANKCALL
@@ -186,7 +186,7 @@ P40RCS EXTEND # V99N40 ENTERS HERE ON A P40 BYPASS SPS
TC BANKCALL
# Page 687
CADR DELAYJOB
-
+
P40MINDB TCR SETMINDB -1
RELINT
TIGNOW TC PHASCHNG
@@ -198,12 +198,12 @@ TIGNOW TC PHASCHNG
TCF POST41 # FINISH P40/P41
TCF POST41 # V03 PROCEED WITH REST OF THE CLEAN-UP
TCF TIGNOW # V32 NOT GSOP RESPONSE BUT REDISPLAY N85
-
+
POST41 EXTEND
DCA SERVCADR
DXCH AVEGEXIT
TCF GOTOP00H
-
+
MINDB DEC 46
MAXDB DEC 455
EBANK= DAPDATR1
@@ -219,7 +219,7 @@ SETMINDB CA CDUX # ROUTINE FOR SETTING
MASK DAPDATR1
TS DAPDATR1
TC Q
-
+
EBANK= DAPDATR1
-1 INHINT
SETMAXDB CA MAXDB # ROUTINE FOR SETTING
@@ -234,18 +234,18 @@ SETMAXDB CA MAXDB # ROUTINE FOR SETTING
SETLOC P40S2
BANK
-
+
EBANK= DAPDATR1
COUNT 24/P41
-
+
P41CSM TC UPFLAG
ADRES ENG2FLAG # SET FOR RCS
-
+
TC INTPRET
DLOAD
HI6ZEROS # FOR P41 CSTEER =0
STORE CSTEER
-
+
DLOAD BON
FRCS2 # 2JET THRUST FOR S40.1
NJETSFLG
@@ -253,32 +253,32 @@ P41CSM TC UPFLAG
DAD GOTO # NJETS = 0 4-JET
FRCS2
P40S/F
-
+
SETLOC P40S
BANK
-
+
P41/P40 CS MODREG
MASK ONE # P41EXITS AT CALL LOC +1
EXTEND
BZF +2 # P41
INCR Q # P40 EXITS AT CALL LOC +2
TC Q
-
+
TTG/0 CAF PRIO20 # TASK (4.4 PROTECTS IN P41)
TC NOVAC
EBANK= DAPDATR1
2CADR TIGNOW
-
+
P40CLK TC DOWNFLAG
ADRES TIMRFLAG
-
+
TCF TASKOVER
-
+
P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
TS NVWORD1
-
+
TC INTPRET
-# Page 689
+# Page 689
CALL # COMPUTE
P40CNV85 # VGTIG IN CTRL COORDS
EXIT
@@ -288,7 +288,7 @@ P41/DSP CAF V06N85B # SET UP FOR NONFLASH V 06 N85 BY CLOCKJOB
TC 2PHSCHNG
OCT 40036 # 6.3=CLOKTASK(100CS)
OCT 234 # 4.23=P40S/SV(PRIO12)
-
+
TCF P40S/RS
P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
TS NVWORD1 # REDISPLAY NONFLASHING
@@ -296,7 +296,7 @@ P41REDSP CAF V16N85B # ENTER FROM P41 SIDE OF TIGAVEG
TC WAITLIST
EBANK= DAPDATR1
2CADR TTG/0
-
+
CS BIT3
TCF TTGPHS
P40CNV85 STQ SETPD
@@ -308,7 +308,7 @@ P40CNV85 STQ SETPD
S41.1
STCALL VGBODY
QTEMP1
-
+
EBANK= DAPDATR1
CALCN85 TC INTPRET
CALL
@@ -351,20 +351,20 @@ TIGBLNK CAF 5SEC # CALL TIGAVEG IN FIVE SEC AT TIG-30
TC WAITLIST
EBANK= TIG
2CADR TIGAVEG
-
+
CAF ZERO # DISABLE HERE, NOT IN P40BLNKR
TS NVWORD1
-
+
CAF PRIO14
TC NOVAC
EBANK= TIG
2CADR P40BLNKR # DON'T PROTECT -- RESTARTS BLANK DSKY
-
+
CS OCT37 # 4.37 = TIGAVEG (500CS)
P40TSK TC NEWPHASE
OCT 4
TC TASKOVER
-
+
EBANK= TIG
ACADN83 2CADR CALCN83
@@ -378,7 +378,7 @@ ACADN85 2CADR CALCN85
# PROGRAM DESCRIPTION ** P47CSM **
COUNT 24/P47
-
+
EBANK= TIG
P47CSM TC BANKCALL # IMU STATUS CHECK
CADR R02BOTH
@@ -390,11 +390,11 @@ P47CSM TC BANKCALL # IMU STATUS CHECK
TC WAITLIST
EBANK= TIG
2CADR TIGON # TIGON IS REQUIRED TO MATHCHTAT AND AVEG
-
+
TC PHASCHNG
OCT 40574 # A, 4.57 = TIGON (P40TMP CS)
TCF ENDOFJOB
-
+
EBANK= P40TMP
TIGON EXTEND
DCA ACADN83
@@ -403,10 +403,10 @@ TIGON EXTEND
TC NOVAC
EBANK= TIG
2CADR P47BODY
-
+
CS BIT2 # 4.2 = PRECHECK (-0CS), P47BODY (PRIO30)
TCF TTGPHS
-
+
EBANK= TIG
CALCN83 TC INTPRET
SETPD # SET UP PUSHLIST FOR S41.1
@@ -427,7 +427,7 @@ CALCN83 TC INTPRET
TC GENTRAN
ADRES DV47TEMP
ADRES DELVCTL
-
+
TC SERVXT
P47BODY TC INTPRET
VLOAD
@@ -452,22 +452,22 @@ P47/DSP CAF V1683
EBANK= TIG
COUNT 24/P40
-
+
TIGAVEG TC P41/P40 # TASK (4.37 PROTECTS)
TCF P41REDSP
-
+
CAF V06N40 # UNBLANK DISPLAY
TS NVWORD1
-
+
CAF SEC24.96
TC WAITLIST
EBANK= TIG
2CADR TIG-5
-
+
CS SIX # 4.6 = TIG-5 (2496CS), PRECHECK (-0CS)
TTGPHS TC NEWPHASE # ENTRY FROM P41REDSP (P41) WITH A=-4, OR
OCT 4 # FROM TIGON (P47) WITH A=-1
-
+
PRECHECK CCS PHASE5 # HAS SERVICER BEEN RESTARTED
TCF TASKOVER # YES, DON'T START ANOTHER ONE
TC POSTJUMP
@@ -481,21 +481,21 @@ TIG-5 CAF 5SEC
TC WAITLIST
EBANK= DAPDATR1
2CADR TIG-0
-
+
CS BIT9 # WILL CAUSE V99 FLASH
TS NVWORD1
-
+
TC 2PHSCHNG
OCT 40074 # A, 4.7 = TIG-0 (500CS)
OCT 00033 # A, 3.3 = S40.13 (PRIO20)
-
+
CAF PRIO20
TC FINDVAC
EBANK= TGO
2CADR S40.13
-
+
TCF TASKOVER
-
+
# Page 695
# ROUTINES ** TIG-0 ** AND ** IGNITION ** DESCRIPTION
@@ -503,18 +503,18 @@ TIG-5 CAF 5SEC
TIG-0 CS FLAGWRD7 # SET IGN FLAG
MASK BIT13
ADS FLAGWRD7
-
+
CAE FLAGWRD7 # CHECK ASTN FLAG FOR V99 RESPONSE
MASK BIT12
EXTEND
BZF TASKOVER # WAIT FOR V99P
-
+
CAF V06N40 # CLEAR THE V99 (IN CASE OF A RESTART
TS NVWORD1 # DURING THE V99 SEQUENCE)
-
+
TC PHASCHNG # V99P HAS COME ALREADY, DO IGNITION NOW
OCT 00614 # A, 4.61 = IGNITION (-0CS) TBASE OLD
-
+
IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD
TS OGAD # V99PJOB (CLOCKJOB) SETS UP IGNITION
EXTEND # TASK (4.61 PROTECTION)
@@ -526,7 +526,7 @@ IGNITION CAE CDUX # SAVE FOR ROLL DAP REFERENCE OGAD
SPSON CAF BIT13 # TURN ON SPS ENGINE
EXTEND
WOR DSALMOUT
-
+
IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN
MASK FLAGWRD2
CCS A
@@ -534,23 +534,23 @@ IMPULCHK CAF BIT9 # CHECK FOR IMPULSIVE BURN
CS FLAGWRD6 # NON-IMPULSIVE, SET STRULLSW FOR STEERULL
MASK BIT13
ADS FLAGWRD6
-
+
PREPTVC CS OCT60000 # RESET T5 BITS
MASK FLAGWRD6
TS FLAGWRD6
-
+
EXTEND # KILL RCS
DCA T5IDL24
DXCH T5LOC
-
+
CS THREE # 4.3 = DOTVCON (40CS)
TC NEWPHASE
OCT 4
-
+
# Page 696
TC FIXDELAY
DEC 40 # 0.4 SECOND DELAY FOR THRUST BUILDUP
-
+
DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
TS TVCPHASE
CAF ZERO # SET TVCEXECUTIVE PHASE
@@ -559,58 +559,58 @@ DOTVCON CS BIT1 # SET TVCPHASE = TVCDAPON CALL (FRESHDAP)
MASK FLAGWRD6 # BITS 15,14 = 10
AD BIT15
TS FLAGWRD6
-
+
CAF THREE # 6.3 = CLOKTASK (100CS), DROPPING PRE40.6
TS L # WHICH IS HANDLED NOW BY REDOTVC
COM
DXCH -PHASE6
-
+
EXTEND # STORE RCS ATTITUDE ERRORS FOR USE IN
DCS ERRORY # INITIALIZING TVC ATTITUDE ERRORS
DXCH ERRBTMP
-
+
CS FIVE # 4.5 = DOSTRULL (160 CS)
TC NEWPHASE
OCT 4
-
+
CAF POSMAX # SET TIME5 FOR STARTING RIGHT AWAY
TS TIME5
EXTEND
DCA TVCON2C # (TVCDAPON)
DXCH T5LOC # (KILLS RCS DAP)
-
+
TC FIXDELAY # 0.4 + 1.6 = 2.0 SEC FOR ULLAGE-OFF AND
DEC 160 # STEERING (IF NON-IMPULSIVE)
-
+
DOSTRULL CAF BIT13 # CHECK STRULLSW FOR IMPULSIVE BURN
MASK FLAGWRD6
CCS A
TCR STEERULL # NON-IMPULSIVE, STEERING AND ULLAGE OFF
TCR ULAGEOFF # ULLAGE OFF (ONLY, OR AGAIN)
-
+
EXTEND
DCA NEG0 # KILL GROUP 4 (DP NEG0 = -0,+0)
DXCH -PHASE4
-
+
ENDIGN TCF TASKOVER
STEERULL CS FLAGWRD2 # SET STEERSW
MASK BIT11
ADS FLAGWRD2
-
-# Page 697
-
+
+# Page 697
+
ULAGEOFF CAF ZERO
EXTEND
WRITE CHAN5 # ZERO CHANNEL 5
TC Q
-
+
IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE
MASK FLAGWRD6 # ENGINE FAIL)
TS FLAGWRD6
-
+
TCR E7SETTER
-
+
EBANK= TIG
EXTEND # PREPARE FOR R1 OF V06N40 (CLOCKTASK)
DCA TGO
@@ -618,31 +618,31 @@ IMPLBURN CS BIT13 # RESET STRULLSW (COULD BE AN IMPULSIVE
EXTEND
DCA TIME2
DAS TIG
-
+
TC 2PHSCHNG
OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOT GROUP
OCT 07014 # C, DELTAT NEXT, TASK BELOW, IN
DEC -0 # -0 CS
EBANK= DAPDATR1
2CADR IMPLCONT
-
+
CAE TGO +1 # (TPAGREE IN S40.13, LESS THAN 600CS)
TC WAITLIST
EBANK= TGO
2CADR ENGINOFF
-
+
IMPLCONT CS BIT9 # RESET IMPULSW, ENGINOFF IS NOW SET UP
MASK FLAGWRD2
TS FLAGWRD2
-
+
TCR E6SETTER
EBANK= DAPDATR1
-
+
CAF ZERO # SET UP V97VCNTR IN CASE ENGINOFF (MASS-=
TS V97VCNTR # BACK) ARRIVES BEFORE TVCDAPON
-
+
TCF PREPTVC
-
+
EBANK= TGO # E7 FORCED BY 3.15SPOT VARIABLE DELTA-T
ENGINOFF TCR E6SETTER # TASK, 3.15 PHASE (TGO+1 CS) GET E6
EBANK= DAPDATR1
@@ -656,29 +656,29 @@ DOSPSOFF TCR SPSOFF # SHUTDOWN SPS, MASS UPDATES, ETC.
CS OCT27/24 # (OCTAL 27)
TC NEWPHASE
OCT 4 # 4.27 = DOTVCRCS (250 CS)
-
+
TC FIXDELAY # 2.5 SECOND DELAY FOR SPS TAILOFF
DEC 250
-
+
DOTVCRCS TCR SETMAXDB # WIDE DEADBAND FOR CUTOFF TRANSIENT
TC IBNKCALL # SET UP RCS DAP (KILLS TVCDAPS, SETS T5
CADR RCSDAPON # BITS, WAITS 0.6SEC FOR TVCEXEC DIE)
-
+
TC IBNKCALL # UPDATE WEIGHT/G AND MASS-PROPERTIES FOR
CADR MASSPROP # RCS DAP STARTUP IN 0.6 SECONDS
-
+
TCR TVCZAP # WIPE OUT TVC, TURN OFF CLOKTASK
-
+
TC PHASCHNG
OCT 00354 # A, 4.35 = POSTBURN (NOVAC, PRIO12)
CAF PRIO12 # SET UP POSTBURN V16N40 JOB
TC NOVAC
EBANK= DAPDATR1 # (SET MAXDB IN POST41)
2CADR POSTBURN
-
+
TCF TASKOVER
-
+
EBANK= DAPDATR1
SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT
DCA TIME2
@@ -689,7 +689,7 @@ SPSOFF EXTEND # ESTABLISH SPSOFF TEVENT
CS BIT13 # SHUT DOWN SPS ENGINE
EXTEND
WAND DSALMOUT
-
+
CAF BIT14 # ISSUE SIV CUTOFF COMMAND
EXTEND # FOR POSSIBLE BACK-UP USE
WOR CHAN12
@@ -699,12 +699,12 @@ MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS
EXTEND # VCNTR COUNTS 1/2-SECONDS IN TVC EXEC
MP EMDOT # MDOT, SC.AT B+3 KG/CS
LXCH A
-# Page 699
+# Page 699
EXTEND
MP 1SEC # DEC 100
AD MASSTMP # CORRECTION IS ACCURATE TO 5 CS OF FLOW
TS CSMMASS # (1.44 KG OR 0.4 BITS)
-
+
CA TVCPHASE # CHECK IF OK FOR TRIM UPDATE
AD ONE # THESE CHECKS ARE ONLY NEEDED
EXTEND # FOR A LESS THAN 0.4 SEC BURN
@@ -712,7 +712,7 @@ MASSBACK CAE V97VCNTR # RESTORE PART OF PRE-DECREMENTED MASS
CS FLAGWRD6 # YES, CHECK IF TVC
MASK OCT60000
EXTEND
- BZMF BTRIMR # NO, NOT TVC YET
+ BZMF BTRIMR # NO, NOT TVC YET
BESTTRIM CAE DELPBAR # UPDATE TRIMS WITH DELFILTER VALUES
TS PACTOFF
CAE DELYBAR
@@ -727,7 +727,7 @@ STEERADS 2CADR STEERING
OCT02202 OCT 02202 # BITS 2, 8, 11 FOR CHANNEL 12 TVC/OPTICS
EBANK= DAPDATR1
TVCON2C 2CADR TVCDAPON
-
+
-1 INHINT
TVCZAP CS OCT02202 # DISABLE TVC AND OPT ERR CNTRLS, REENGAGE
EXTEND # OPTICS DAC
@@ -745,12 +745,12 @@ UPDATEVG STQ BON
QTEMP1
XDELVFLG
CALL40.8
-
+
SLOAD BMN
NBRCYCLS
SETUP.9
-# Page 700
-
+# Page 700
+
VLOAD VAD
DELVSUM
DELVREF
@@ -759,22 +759,22 @@ UPDATEVG STQ BON
CA ONE
AD NBRCYCLS
TS NBRCYCLP
-
+
TC PHASCHNG # TYPE B RESTART RESTART BELOW AND 5.3 REREADACCS
OCT 10035
-
+
CA NBRCYCLP
TS NBRCYCLS
TC INTPRET
VLOAD
DELVSUMP
STORE DELVSUM
-
+
CALL40.8 CALL
S40.8
GOTO
QTEMP1
-
+
SETUP.9 BON SLOAD
FIRSTFLG
SURELY.9
@@ -793,7 +793,7 @@ SURELY.9 EXIT
TC FINDVAC
EBANK= DAPDATR1
2CADR S40.9
-
+
TC 2PHSCHNG
OCT 00051 # A, 1.5 = REDO40.9, PRIO 10
OCT 10035
@@ -801,7 +801,7 @@ SURELY.9 EXIT
VLOAD
RN # ACTIVE VEHICLE RADIUS VECTOR AT T1
STOVL RINIT
-# Page 701
+# Page 701
VN # ACTIVE VEHICLE VELOCITY VECTOR AT T1
STODL VINIT
PIPTIME
@@ -852,10 +852,10 @@ SERVXT TC POSTJUMP
DXCH TGO
CA TGO +1
TC WAITLIST
-# Page 702
+# Page 702
EBANK= TGO
2CADR ENGINOFF
-
+
TC 2PHSCHNG
OCT 40153 # A, 3.15 = ENGINOFF (TGO+1) .... NOTE GROUP
OCT 10035 # B, 5.3 = REREADAC, AND START BELOW
@@ -874,43 +874,43 @@ CLOKTASK CAF BIT11 # IS TIMRFLAG SET
TC PHASCHNG
OCT 00006 # KILL RESTART
TC TASKOVER
-
+
CLOCKON EXTEND
DCA TIME2
DXCH TTOGO
EXTEND
DCS TIG
DAS TTOGO
-
+
SETCLOCK CAF 1SEC
TC WAITLIST
EBANK= TIG
2CADR CLOKTASK
-
+
CCS NVWORD1
TCF +3
TCF SETTB6
-
+
TCF +1
CS V06N85B # CHECK FOR V06N85B (P41)
AD NVWORD1
EXTEND
BZF SETUPDYN # V06N85, SO UPDATE N85 FOR DYNAMIC DISP
-
+
CAF PRIO27
TC NOVAC
EBANK= DAPDATR1
2CADR CLOCKJOB
-
+
SETTB6 CS TIME1 # SET GROUP6 TIMEBASE
TS TBASE6
TCF TASKOVER
-
+
SETUPDYN CAF PRIO27 # SET UP A JOB TO UPDATE N85 (FOR P41=V06)
TC FINDVAC
EBANK= DAPDATR1
2CADR DYNDISP
-
+
TCF SETTB6 # CLOSE OUT CLOCKTASK
# Page 704
DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
@@ -918,7 +918,7 @@ DYNDISP TC INTPRET # UPDATE N85 FOR A DYNAMIC V06N85 IN P41.
P40CNV85
EXIT
TCF CKNVWRD1
-
+
# Page 705
# ROUTINE ** CLOCKJOB ** DESCRIPTION
@@ -942,37 +942,37 @@ FAILDSP CAF V06N40 # SPS ENGINE-FAILED V97 FLASH
TCF V97T # TERMINATE
TCF V97P # PROCEED
TCF V97E # ENTER
-
+
ENGREQST CAF V06N40
TC BANKCALL
CADR CLOCPLAY # LINUS MAKES IT A REDO, INHINT OK
TCF V99T # TERMINATE
TCF V99P # PROCEED
TCF V99E # ENTER
-
+
NOFLASH CAE NVWORD1 # DISPLAY NVWORD1 NORMALLY
TC BANKCALL
CADR REGODSP
-
+
E7SETTER CAF EBANK7
TS EBANK
EBANK= TIG
TC Q
-
+
E6SETTER CAF EBANK6 # SET UP EBANK6
TS EBANK
EBANK= DAPDATR1
TC Q
-
+
EBANK= DAPDATR1
V99E TC 2PHSCHNG
OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
OCT 05024 # C, PRIORITY NEXT, JOB BELOW
-# Page 706
+# Page 706
OCT 27000
V99EJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
TCF P40RCS # V16N85 POST-BURN OPERATIONS
-
+
EBANK= DAPDATR1
V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
OCT 00006 # KILL PRE40.6/CLOKTASK PROTECTION
@@ -980,25 +980,25 @@ V99T TC 2PHSCHNG # (ENTRY FROM V97T FLOW TOO)
OCT 27000
V99TJOB TCR TVCZAP -1 # WIPE OUT TVC, CLOKTASK
TCF POST41 # AVEGEXIT, SETMAXDB, GOTOP00H
-
+
V99P INHINT
CAE FLAGWRD7 # CHECK ASTN FLAG FOR PRIOR V99P
MASK BIT12
CCS A
TCF V99P/TIG # YES, THIS MUST BE A RESTART ENTRY
-
+
ASTNV99P CAF BIT12 # SET ASTN FLAG
ADS FLAGWRD7
CAE FLAGWRD7 # CHECK IGN FLAG FOR TIG-0 ARRIVAL
MASK BIT13
EXTEND
BZF V99P/TIG # NO, CLEAR THE V99 AND WAIT FOR TIG-0
-
+
ENDV99PI CAF BIT1 # TIG-0 HAS COME ALREADY
TC WAITLIST # SET UP IGNITION HERE
EBANK= DAPDATR1
2CADR IGNITION
-
+
V99P/TIG CAF V06N40 # CLEAR THE V99 FLASH AND WAIT FOR TIG-0
TS NVWORD1
ENDV99P TCF ENDOFJOB
@@ -1011,24 +1011,24 @@ V97T TC 2PHSCHNG
TC TWIDDLE
ADRES V97TTASK # KEEP EBANK6 FOR MASSES, SPSOFF, ETC.
TCF ENDOFJOB
-
+
EBANK= CSMMASS
V97TTASK CAF ZERO # DISABLE CLOCKJOB
TS NVWORD1
CAF 3MDOT # 3 SECONDS OF MDOT (2-4 SEC ENGFAIL
AD CSMMASS # DETECTION) NOT LOST BECAUSE THRUST
TS MASSTMP # FAILED. COPYCYCLE FOR MASSBACK
-# Page 707
+# Page 707
TC PHASCHNG
OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
DEC -0 # -0 CS
-
+
TCR SPSOFF # SHUTDOWN SPS ENGINE, MASS UPDATE, ETC.
TC PHASCHNG
OCT 00714 # A, 4.71 = V97TRCS (250 CS), TBASE OLD
TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
DEC 250 # OFF (FALSE THRUST-LOSS)
-
+
EBANK= DAPDATR1
V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS
@@ -1036,7 +1036,7 @@ V97TRCS TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
TC NOVAC # MAXDB AND GOTOP00H)
EBANK= DAPDATR1 # EBANK6 FOR SETMAXDB IN POST41
2CADR V99T
-
+
ENDV97T TCF TASKOVER
EBANK= V97VCNTR
@@ -1046,7 +1046,7 @@ V97P TC PHASCHNG
TC TWIDDLE
ADRES V97PTASK
TCF ENDOFJOB
-
+
EBANK= V97VCNTR
V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN
TS VCNTR # (ERRORS IF FLASE THRUST-LOSS AND/OR
@@ -1062,13 +1062,13 @@ V97PTASK CAE V97VCNTR # GET MASS UPDATES (TVCEXEC) GOING AGAIN
OCT 00134 # A, 4.13 = R40ENABL (200 CS), TBASE OLD
TC FIXDELAY # WAIT 2 SECONDS, THEN
DEC 200
-
+
EBANK= WHOCARES
R40ENABL TC DOWNFLAG # RE-ENABLE R40 BY CLEARING IDLEFAIL
ADRES IDLEFAIL
TC PHASCHNG
OCT 00004 # KILL GROUP 4
-# Page 708
+# Page 708
ENDV97P TCF TASKOVER
EBANK= WHOCARES
@@ -1078,9 +1078,9 @@ V97E TC PHASCHNG
TC WAITLIST
EBANK= TIG
2CADR V97ETASK
-
+
TCF ENDOFJOB
-
+
EBANK= TIG
V97ETASK CS OCT24 # FORCE R1 OF V06N40 TO READ 59X59
TS TIG
@@ -1098,17 +1098,17 @@ SPSOFF97 TCR SPSOFF
OCT 00114 # A, 4.11 = V97E40.6 (250 CS), TBASE OLD
TC FIXDELAY # DELAY 2.5 SECONDS FOR (POSSIBLE) TAIL-
DEC 250 # OFF (FALSE THRUST-LOSS)
-
+
EBANK= DAPDATR1
V97E40.6 CAF BIT1
TC WAITLIST
EBANK= CNTR
2CADR PRE40.6 # USE S40.6 RESTART ENTRY TO TRIM ENGINE
-
+
TC IBNKCALL # RCS DAP IN 0.6SEC, SETTING T5 BITS TO
CADR RCSDAPON # KILL TVCEXEC/TVCROLLDAP STARTS.
# LEAVE NARROW DEADBAND FOR REIGNITE.
-
+
TC 2PHSCHNG
OCT 00026 # A, 6.2 = PRE40.6 (-0 CS), CLOKTASK (1 SEC)
OCT 05014 # C, DELTAT NEXT, TASK BELOW, IN
@@ -1119,9 +1119,9 @@ QUICKIGN CS PRIO14 # CLEAR ASTNFLAG AND SET IGNFLAG FOR
AD BIT13
TS FLAGWRD7
TC FIXDELAY # DELAY TO ALLOW TIME FOR PRE40.6
-# Page 709
+# Page 709
DEC 30
-
+
V99FLASH CS BIT9 # CAUSE V99 TO FLASH
TS NVWORD1
TC 2PHSCHNG
@@ -1131,10 +1131,10 @@ V99FLASH CS BIT9 # CAUSE V99 TO FLASH
TC FINDVAC
EBANK= TGO
2CADR S40.13
-
+
ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
# TO FLASHING V99 RESPONSE.
-
+
# MOD N02 LOG SECTION P40-P47
# MOD BY ZELDIN
#
@@ -1199,7 +1199,7 @@ ENDV97E TCF TASKOVER # WAIT FOR CLOCKJOB (IMMEDIATE) REACTION
BANK
COUNT 16/S40.1
-
+
S40.1 SET VLOAD
FIRSTFLG
LO6ZEROS
@@ -1271,7 +1271,7 @@ S40.1B DLOAD DSU # LAMBERT
TWODT
STODL TDEC1
TPASS4
- DSU
+ DSU
TDEC1
STCALL DELLT4
AGAIN
@@ -1280,7 +1280,7 @@ S40.1B DLOAD DSU # LAMBERT
STODL UT
TIG
STORE TDEC1
-# Page 712
+# Page 712
BDSU
TPASS4
STCALL DELLT4
@@ -1294,12 +1294,12 @@ S40.1B DLOAD DSU # LAMBERT
SETPD GOTO
0
CALCUT
-
+
THETACON 2DEC .31830989 B-8
SETLOC P40S3
BANK
-
+
COUNT 24/S40.1
EP4(45)H 2DEC .125
@@ -1331,7 +1331,7 @@ AGAIN STQ CALL
PUSH CALL
INITVEL
SETPD GOTO
-# Page 713
+# Page 713
0
QTEMP1
CALCUT VLOAD CALL
@@ -1349,7 +1349,7 @@ CALCUT VLOAD CALL
STOVL 12D # B.C SCALED AT 2(-15) PDL 12D
VGTIG
UNIT PUSH # UG PDL 0 SCALED AT 2(+1)
-
+
DOT VXSC
12D
0
@@ -1377,7 +1377,7 @@ CALCUT VLOAD CALL
# MOD BY ZELDIN
#
# FUNCTIONAL DESCRIPTION
-#
+#
# COMPUTE GIMBAL ANGLES IF THRUSTING OCCURRED WITH PRESENT IMU
# ORIENTATION, WINGS LEVEL SPACECRAFT, HEADS UP
# COMPUTE X AXIS OF ENGINE BELL
@@ -1462,8 +1462,8 @@ S40.2,3 VLOAD MXV
DMP SL1
2
VDEF
-
- STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT
+
+ STODL XSCREF # PD POINTER AT 6 NEW SC X AXIS SCALED AT
ZSCREF
DMP SL1
4
@@ -1472,10 +1472,10 @@ S40.2,3 VLOAD MXV
2
SL1 DCOMP
VDEF
-
+
STODL ZSCREF # PD POINTER AT 4 NEW SC Z AXIS SCALED AT 2
VDEF
-
+
STODL YSCREF # PD POINTER AT 0 NEW SC Y AXIS SCALED AT 2
ZSCREF
PDDL PDDL
@@ -1548,7 +1548,7 @@ YBIAS 2DEC +.00263888889 # YAW MECH BIAS (+0.95 DEG, THRUST ON)
PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
# REFERENCE, TRW 68.6520.3.3-40 27 FEB, 1968
-
+
# PROGRAM DESCRIPTION S41.1 DATE 8 DEC 66
# MOD NO 1 LOG SECTION P40-P47
# MOD BY ZELDIN
@@ -1564,7 +1564,7 @@ PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
# L+1 S41.1
#
# NORMAL EXIT MODE
-#
+#
# AT L +2 OF CALLING SEQUENCE
#
# SUBROUTINES CALLED:
@@ -1591,10 +1591,10 @@ PBIAS 2DEC -.00597222222 # PITCH MECH BIAS (-2.15 DEG, THRUST ON)
# QPRET
COUNT 22/S41.1
-
+
SETLOC P40S5
BANK
-
+
S41.1 STQ CALL
QTEMP
CDUTRIG
@@ -1642,7 +1642,7 @@ TENBNK14 2DEC 10. B-4
BANK
EBANK= DAPDATR1
COUNT 16/S40.8
-
+
S40.8 SETPD STQ
SPBIT1 00D
QTEMP
@@ -1652,13 +1652,13 @@ SPBIT1 00D
VAD
VGPREV
STORE VG # VELOCITY-TO-BE-GAINED, SC.AT B+7 M/CS
-
+
ABVAL
STORE VGDISP # FOR DISPLAY PURPOSES
EXIT
TC PHASCHNG
OCT 10035 # TYPE B RESTART RESTART BELOW AND 5.3 REREADAC
-
+
TC INTPRET
VLOAD
# Page 720
@@ -1682,7 +1682,7 @@ SPBIT1 00D
INDEX A # LM-OFF, LM-ON VALUE
CAE EREPFRAC
TS REPFRAC
-
+
TC INTPRET
TGOCALC VLOAD BVSU # GET DELVG
DELVREF
@@ -1719,7 +1719,7 @@ TGOCALC VLOAD BVSU # GET DELVG
DSU BMN
FOURSEC
S40.81
-
+
XPRODUCT VLOAD VXSC
BDT
CSTEER
@@ -1736,11 +1736,11 @@ XPRODUCT VLOAD VXSC
OMEGACLC STORE OMEGAC
GOTO
QTEMP
-
+
SETLOC DAPS7
BANK
COUNT 17/S40.8
-
+
TWODT 2DEC 200.0 B-28 # 2 SEC
-FOURDT 2DEC -800 B-18 # -4(200CS), SC.AT B+18CS (-4 FOR SCALING)
@@ -1753,9 +1753,9 @@ DPB-9 2DEC 1 B-9
SETLOC DAPS6
BANK
-
+
COUNT 20/S40.8
-
+
S40.81 SET VLOAD # TGO LESS THAN 4 SECONDS
IMPULSW # FOR ENGINE-OFF CALL
HI6ZEROS
@@ -1774,21 +1774,21 @@ INCRSVG EXIT # ALARM INDICATING THAT THRUST IS POINTING
TC INTPRET
GOTO
QTEMP
-
+
LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
IDLEFAIL # SET BY V97P. ALLOWS 1 BYPASS IN CASE OF
QTEMP # UNFAVORABLE S40.8 SYNCH.
HI6ZEROS # START OF ENGINE-FAIL (R40) OPERATIONS
STORE OMEGAC # PUT TVC IN ATTITUDE HOLD
EXIT
-
+
CS ZERO
TS VCNTR # KILL CSMMASS UPDATING
TS VCNTRTMP # (TVCEXEC LOGIC REQUIRES THIS TOO)
TS REPFRAC # KILL TVCDAP CG TRIM TRACKING
TS NVWORD1 # SET UP ENGINE-FAIL V97FLASH (CLOCKJOB)
-
- TC INTPRET
+
+ TC INTPRET
CLEAR GOTO # INHIBIT STEERING AND TGO CALC (MANUAL
STEERSW # SHUTDOWN IF NOT SET UP AGAIN)
QTEMP # RESTARTS OK
@@ -1797,7 +1797,7 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
# NAME S40.9 -- VTOGAIN (AIMPOINT MANEUVERS ONLY)
# FUNCTION (1) GENERATES REQUIRED VELOCITY AND VELOCITY-TO-BE-GAINED
# VECTORS FOR USE DURING AIMPOINT MANEUVERS.
-# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
+# (2) UPDATES THE B VECTOR WHICH IS USED IN THE FINAL
# CALCULATION OF EXTRAPOLATING THE VELOCITY-TO-BE-GAINED.
# CALLING SEQ VIA FINDVEC AS NEW JOB.
# INPUT RNIT ACTIVE VEHICLE RADIUS VECTOR IN METERS AT +29.
@@ -1824,10 +1824,10 @@ LOTHRUST BON VLOAD # THRUST FAILURE (LO-OR-NO) INDICATED
SETLOC P40S1
BANK
-
+
EBANK= NBRCYCLS
COUNT 16/S40.9
-
+
S40.9 TC INTPRET
SETPD DLOAD
00D
@@ -1883,7 +1883,7 @@ FIRSTTME SLOAD DCOMP
MOONCASE EXIT
TC PHASCHNG
OCT 04021 # C, JOB BELOW
-
+
COPY40.9 TC INTPRET
DLOAD
TNIT
@@ -1898,7 +1898,7 @@ ENDS40.9 TC PHASCHNG
OCT 00001
# Page 725
TCF ENDOFJOB
-
+
REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
VLOAD # TERMINATE S40.9 SO THAT IT CAN BE
LO6ZEROS # SET UP WITH LATEST R,V,T NEXT PASS
@@ -1909,7 +1909,7 @@ REDO40.9 TC INTPRET # S40.9 RESTARTS COME HERE TO GRACEFULLY
STORE VGTEMP # NONE) NOW CAN GO THRU SETUP.9
EXIT # WITHOUT DISTURBING VGPREV.
TCF ENDS40.9 -2 # STORE 0,0 COVERED NBRCYCLS,P -- FIX UP S
-
+
200CSHI 2DEC 200 B-12
EARTHMU 2DEC* -3.986032 E10 B-36*
@@ -1922,7 +1922,7 @@ EP4(10)L 2DEC .027777777
# NAME: S40.13 -- TIMEBURN
#
# FUNCTION (1) DETERMINE WHETHER A GIVEN COMBINATION OF VELOCITY-TO-
-# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
+# BE-GAINED AND ENGINE CHOICE RESULT IN A BURN TIME SUFFICIENT
# TO ALLOW STEERING AT THE VEHICLE DURING THE BURN, AND
# (2) THE MAGNITUDE OF THE RESULTING BURN TIME -- IF IT IS SHORT --
# AND THE ASSOCIATED TIME OF THE ENGINE OFF SIGNAL.
@@ -1945,7 +1945,7 @@ EP4(10)L 2DEC .027777777
EBANK= TGO
COUNT 16/40.13
-
+
S40.13 TC INTPRET
SETPD SET
00D
@@ -1978,9 +1978,9 @@ S40.130 BDSU
EMDOT # SPS FLOW RATE SC.AT B+3 KG/CS (SP, NOTE)
3.5SEC # 350 CS AT +14
BDSU PDDL
- WEIGHT/G
+ WEIGHT/G
FANG
- DMP SR2
+ DMP SR2
5SECOND # 500 CS AT +14
DDV PUSH # 04D = TEMP2
BDSU BPL
@@ -2009,17 +2009,17 @@ S40.133 CLEAR EXIT # WILL STEER VEHICLE
IMPULSW
S40.134 TC PHASCHNG # KILL GROUP 3
OCT 3
-
+
TCF ENDOFJOB
-
+
NOTADDUL TC INTPRET
GOTO
S40.130 +1 # DO NOT COMPENSATE FOR 7 SEC OF ULLAGE
SETLOC DAPS7
BANK
-
+
COUNT 17/40.13
-
+
K1VAL = EK1VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K2VAL = EK2VAL # DP PAD LOAD B+23 NEWTON-SEC/E+2
K3VAL = EK3VAL # DP PAD LOAD B+09 NEWTONS/E+4
@@ -2033,7 +2033,7 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
# 7.96 (199.6)COS(10) LB-SEC, SC.AT
# B+23 NEWTON-SEC/E+2 (7 SEC ULLAGE
# TO GO, PLUS 0.96 SEC FROM PIPTIME)
-
+
# Page 729
# NAME S40.6 GIMBAL DRIVE TEST AND/OR GIMBAL TRIM
# MOD NO 5 DATE 9 MARCH, 1967
@@ -2080,65 +2080,65 @@ S40.135 2DEC 69.6005183 B-23 # IMPULSE FROM 7.96 SECS OF 2-JET FIRING
BANK 17
SETLOC DAPS6
BANK
-
+
EBANK= CNTR
COUNT 20/S40.6
-
+
PRE40.6 CS FLAGWRD6 # RESTART ENTRY TO S40.6 (DO NOT PERMIT
MASK OCT60000 # IF TVC, BITS 15,14 = 1,0)
EXTEND
BZMF +2
TCF TASKOVER # TVC, REDOTVC WILL REESTABLISH INTERFACE
-
+
CS BIT1 # RCS, SO DO S40.6, GIMTRIM ONLY
# Page 730
TS MRKRTMP
-
+
CAF BIT1 # FOR REVISED S40.6 TIMING FOR RESTARTS...
TS CNTR # TO INDICATE A RESTART ENTRY (CNTR 1S
# NORMALLY +0, BY S40.6)
-
+
EBANK= CNTR
S40.6 CS ZERO # INHIBIT OPTICS ACTIVITY
TS OPTIND
-
+
CS BIT2 # DISENABLE OPTICS ERROR COUNTERS (ZERO,
EXTEND # AND INHIBIT PULSE TRANSMISSION --
WAND CHAN12 # NORMAL STATE)
-
+
CAF OCT02200 # TVC ENABLE (SPS SERVO AMPS SEE DAC
EXTEND # VOLTAGES) AND DISENGAGE OPTICS/DAC
WOR CHAN12
-
+
TC FIXDELAY # 60MS PROCEDURAL DELAY (40MS MINIMUM) FOR
DEC 6 # RELAY LATCHING
-
+
CAF BIT2 # ENABLE OPTICS ERROR COUNTERS
EXTEND
WOR CHAN12
-
+
TC FIXDELAY # 20MS PROCEDURAL DELAY (4MS MINIMUM) FOR
DEC 2 # RELAY LATCHING
-
+
RSTRTST CCS CNTR # CHECK FOR RESTART ENTRY (PRE40.6)
TCF GIMTRIM +2 # RESTART ENTRY....BYPASS 4 SECOND DELAY
# TST,TRIM SETS +0 ON NORMAL ENTRY
-
+
CAE MRKRTMP # CHECK FOR TEST/TRIM OR TRIM ONLY
TS CNTR # MRKRTMP SAVES CNTR FOR RESTARTS
EXTEND
BZMF GIMTRIM # (TRIM ONLY)
-
+
GDTSETUP CS ZERO # GIMBAL DRIVE TEST SETUP, FOR PITCH
TS CNTR
-
+
GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
TC OUTPUT # (LEAVES GIMBAL AT +2 DEG)
CAF -4ACTDEG # 2ND INCREMENT (LEAVES GIMBAL AT -2)
TC OUTPUT
CAF +2ACTDEG # 3RD INCREMENT (LEAVES GIMBAL AT -0)
TC OUTPUT
-
+
CS CNTR # CHECK FOR COMPLETION OF YAW TEST.
# Page 731
CCS A
@@ -2146,36 +2146,36 @@ GIMDTEST CAF +2ACTDEG # GIMBAL DRIVE TEST, 1ST INCREMENT
CS BIT1 # SET UP YAW TEST
TS CNTR
TCF GIMDTEST # FOR YAW TEST
-
+
OUTPUT EXTEND # OUTPUT THE INCREMENT....SAVE Q
QXCH TEMPR60
-
+
INDEX CNTR
TS TVCPITCH
-
+
INDEX CNTR
CAF BIT11
EXTEND
WOR CHAN14
-
+
TC FIXDELAY # WAIT 2SEC, WHILE ASTRONAUT VERIFIES
DEC 200 # GIMBAL MOTION ON GPI
TC TEMPR60
-
+
GIMTRIM TC FIXDELAY # WAIT 4 SECONDS BEFORE GIMBAL TRIM
DEC 400
-
+
+2 CS ZERO # PICK UP TRIM VALUES AND OUTPUT THEM
AD PACTOFF # (AVOID +0) ENTRY POINT FROM RSTRTST
TS TVCPITCH # ON A RESTART, TO AVOID 4SEC DELAY
CS ZERO
AD YACTOFF
TS TVCYAW
-
+
CAF PRIO6 # RELEASE THE COUNTERS, BITS 11,12
EXTEND
WOR CHAN14
-
+
ENDS40.6 TCF TASKOVER
OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
@@ -2185,32 +2185,32 @@ OCT02200 OCT 02200 # BITS 8,11 FOR CHANNEL 12 TVC/OPTICS
# CALLED BY "DONOUN46" (VERB 48), OR DIRECTLY BY "FRESHDAP" (RCS DAP) VIA IBNKCALL
COUNT 20/S41.2
-
+
S41.2 CA DAPDATR1
# Page 732
MASK THREE
AD A
TS RATEINDX
-
+
INHINT
CAE DAPDATR1 # IS LEM ATTACHED (BITS 14,13 OF DAPDATR1
MASK PRIO30 # =10)
AD -BIT14 # (OCT57777)
EXTEND
BZF TOGETHER # YES
-
+
CS BIT2 # NO, UNSET FLAG
MASK FLAGWRD7
TS FLAGWRD7
-
+
TCF +4
TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
MASK BIT2
ADS FLAGWRD7
-
+
RELINT
-
+
CA DAPDATR1
MASK BIT4
EXTEND
@@ -2218,7 +2218,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
CA DEC409
AD DEC46 # DEC 455 MEANS WIDE DB
TS ADB
-
+
CA DAPDATR1
MASK BIT7 # QUAD BD
EXTEND
@@ -2231,7 +2231,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
BZMF +2
CS ONE
ADS XTRANS
-
+
INHINT
EXTEND
BZF +5 # CLEAR NJETSFLG (4 JETS, OR NO JETS)
@@ -2252,7 +2252,7 @@ TOGETHER CS FLAGWRD7 # ATTACHED, SET FLAG FOR INTEGRATION
CS ONE
COM
TS ACORBD # MINUS FOR A-C, PLUS FOR B-D
-
+
CA DAPDATR2
MASK BIT10
CCS A
@@ -2284,7 +2284,7 @@ BDFAIL CA DAPDATR2
CS ONE
TS RBDFAIL
TC Q
-
+
# DAPFIG ENTRY VIA TC POSTJUMP AS JOB FROM "STABLISH" (VERB 46)
BANK 42
@@ -2301,7 +2301,7 @@ DAPFIG CS BIT9 # TURN OFF SIVB TAKEOVER
MASK THREE # (IN CASE BIT 15 IS USED)
INDEX A
TCF +1 # BRANCH BASED ON CONFIG....
-
+
TCF NODAPUP # CM.......ACTIVATE NODAP
TCF RCSDAPUP # CSM......ACTIVATE RCSDAP
TCF RCSDAPUP # CSM/LEM..ACTIVATE RCSDAP
@@ -2335,7 +2335,7 @@ T5IDLDAP 2CADR T5IDLOC
BANK 17
SETLOC DAPS6
BANK
-
+
DEC409 DEC 409
DEC46 DEC 46
@@ -2346,48 +2346,48 @@ S40.14 CAE IXX # RCS ENTRY
EXTEND
MP CONTONE
TS J/M
-
+
CA IAVG
EXTEND
MP CONTONE
TS J/M1
-
+
TS J/M2
-
+
EXTEND
DCA CONTTWO
EXTEND
DV IXX
TS KMJ
-
+
EXTEND
DCA CONTTWO
EXTEND
DV IAVG
TS KMJ1
-
+
TS KMJ2
-
+
TC Q
-
+
CONTONE DEC .662034 # 2PI/M
CONTTWO 2DEC .00118
COUNT 24/TVNG
-
+
BANK 31
SETLOC P40S
BANK
-
+
POS-2.5 OCT 37405
EBANK= DAPDATR1
RCSCADR 2CADR RCSUP
6SECT5 OCT 37704
COUNT 21/RCSUP
-
+
BANK 20
-
+
SETLOC DAPS3
BANK
@@ -2396,11 +2396,11 @@ RCSCADR 2CADR RCSUP
RCSUP LXCH BANKRUPT
EXTEND
QXCH QRUPT
-
+
TCR RCSDAPON # ACTIVATE RCS DAP
-
+
TCF RESUME
-
+
EBANK= DAPDATR1
RCSADDR 2CADR RCSATT
@@ -2410,20 +2410,20 @@ RCSADDR 2CADR RCSATT
RCSDAPON CAF 0.6SECT5 # 0.6 SEC ALLOWS TVCEXEC/ROLLDAP TO DIE
+1 TS TIME5 # ENTRY FROM R00TOP00
TS T5PHASE # WILL CAUSE FRESHDAP (+1)
-
+
CS RCSFLAGS # SET BIT3 TO REINITIALIZE FDAI ERROR
MASK BIT3 # DISPLAY, IN CASE SC CONT SWITCH
ADS RCSFLAGS # IN SCS NOT GNC (GUIDEMODE PRIMARY)
-
+
EXTEND
DCA RCSADDR # (RCSATT)
DXCH T5LOC
-
+
CS OCT60000 # SEE BITS 15,14 TO 01 TO INDICATE
MASK FLAGWRD6 # T5 TAKEOVER BY RCSDAP
- AD BIT14
+ AD BIT14
TS FLAGWRD6 # KILLS TVCEXEC AND ROLLDAP STARTS
-
- TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
-
+
+ TC Q # RETURN TO CALLER (TVCDAPOF OR RCSDAPUP)
+
diff --git a/Comanche055/P51-P53.agc b/Comanche055/P51-P53.agc
index 45a488c..c750d21 100644
--- a/Comanche055/P51-P53.agc
+++ b/Comanche055/P51-P53.agc
@@ -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
diff --git a/Comanche055/P61-P67.agc b/Comanche055/P61-P67.agc
index df610cc..6a1bb3d 100644
--- a/Comanche055/P61-P67.agc
+++ b/Comanche055/P61-P67.agc
@@ -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
-
+
diff --git a/Comanche055/P76.agc b/Comanche055/P76.agc
index 41d7a29..5f6659e 100644
--- a/Comanche055/P76.agc
+++ b/Comanche055/P76.agc
@@ -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
diff --git a/Comanche055/PHASE_TABLE_MAINTENANCE.agc b/Comanche055/PHASE_TABLE_MAINTENANCE.agc
index 06b5f17..7122dc2 100644
--- a/Comanche055/PHASE_TABLE_MAINTENANCE.agc
+++ b/Comanche055/PHASE_TABLE_MAINTENANCE.agc
@@ -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.
-
+
diff --git a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
index 485d719..b58d60f 100644
--- a/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
+++ b/Comanche055/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 307-389
-# Mod history: 2009-05-08 RSB Started adapting from the Colossus249/ file
-# of the same name, using Comanche055 page
+# Mod history: 2009-05-08 RSB Started adapting from the Colossus249/ file
+# of the same name, using Comanche055 page
# images. Finished through page 329.
# 2009-05-09 RSB Finished first draft.
# 2009-05-20 RSB Corrected a CHKPOOH to CHKP00H.
@@ -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
@@ -54,14 +54,14 @@
# ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
# `EXTENDED VERBS').
#
-# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION `ASSEMBLY AND
+# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION `ASSEMBLY AND
# OPERATION INFORMATION'.
#
# CALLING SEQUENCES --
#
# KEYBOARD:
# EACH DEPRESSION OF A MAIN (NAVIGATION) KEYBOARD BUTTON ACTIVATES
-# INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
+# INTERRUPT KEYRUPT1 (KEYRUPT2) AND PLACES THE 5 BIT KEY CODE INTO
# CHANNEL 15 (CHANNEL 16). KEYRUPT1 (KEYRUPT2) PLACES THE KEY
# CODE INTO MPAC, ENTERS AN EXECUTIVE REQUEST FOR THE KEYBOARD AND DISPLAY
# PROGRAM (AT `CHARIN'), AND EXECUTES A RESUME.
@@ -83,7 +83,7 @@
# 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
# Page 308
# 2) EXTENDED VERBS TO TO THE EXTENDED VERB FAN AS PART OF THE
-# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
+# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
# RESPONSIBILITY OF THE EXTENDED VERB CALLED TO EVENTUALLY
# CHANGE PRIORITY (IF NECESSARY) AD DO AN ENDOFJOB.
# ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
@@ -91,7 +91,7 @@
# SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
# 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
# 4) KEY RELEASE BUTTON CALLS `PINBRNCH' IN THE DISPLAY INTERFACE
-# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
+# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
# THE KEY RELEASE LIGHT IS OFF AND `CADRSTOR' IS NOT 40.
#
# IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
@@ -401,9 +401,9 @@
BANK 40
SETLOC PINBALL1
BANK
-
+
COUNT 40/PIN
-
+
CHARIN CAF ONE # BLOCK DISPLAY SYST
XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
TS 21/22REG # C(DSPLOCK) FOR ERROR LIGHT RESET.
@@ -452,11 +452,11 @@ CHARIN2 XCH MPAC
TC CHARALRM # 35
TC CLEAR # 36 CLEAR
TC NOUN # 37 NOUN
-
+
ELRCODE1 OCT 22
ENTERJMP TC POSTJUMP
CADR ENTER
-
+
89TEST CCS DSPCOUNT
TC +4 # +
TC +3 # +0
@@ -467,7 +467,7 @@ ENTERJMP TC POSTJUMP
CCS A
TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
-
+
# NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
# WORD AS A FRACTION, KEEPING RESULTS TO DP.
# OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
@@ -560,13 +560,13 @@ DECEND CS ONE
MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
TS DSPCOUNT
TC ENDOFJOB
-
+
CRITCON OCT 22 # (DEC 18)
OCT 20 # (DEC 16)
OCT 12 # (DEC 10)
OCT 5
OCT 0
-
+
DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
# GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
@@ -576,7 +576,7 @@ GETINREL INDEX DSPCOUNT
CAF INRELTAB
TS INREL # (A TEMP. REG)
TC Q
-
+
INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
OCT 4 # R3D4 =(1)
OCT 4 # R3D3 =(2)
@@ -598,7 +598,7 @@ INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
OCT 1 # ND1 =(17D)
OCT 0 # VD2 =(18D)
OCT 0 # VD1 =(19D)
-
+
VERB CAF ZERO
TS VERBREG
CAF VD1
@@ -616,7 +616,7 @@ NOUN CAF ZERO
TS NOUNREG
CAF ND1 # ND1, OCT 21 (DEC 17)
TC NVCOM
-
+
NEGSGN TC SIGNTEST
TC -ON
CAF TWO
@@ -628,12 +628,12 @@ FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0. MAKE IT +0.
TS CLPASS
TC +1
TC ENDOFJOB
-
+
POSGN TC SIGNTEST
TC +ON
CAF ONE
TC BOTHSGN
-
+
+ON LXCH Q
TC GETINREL
INDEX INREL
@@ -659,11 +659,11 @@ SGNCOM CAF ZERO
AD ONE
TS SGNOFF
TC SGNCOM
-
+
SGNTAB OCT 5 # -R1
OCT 3 # -R2
OCT 0 # -R3
-
+
SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
@@ -681,12 +681,12 @@ SGNTST1 AD DSPCOUNT
BZF +2 # MATCH FOUND
TC Q
TC L # SIGN LEGAL
-
+
# CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT
# XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
# L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION.
#
-# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
+# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
# APPROPRIATE TO BE CLEARED.
#
# CLPASS +0 PASS0, CAN BE BACKED UP
@@ -731,7 +731,7 @@ LEGALTST AD NEG2
TC CCSHOLE
TC ENDOFJOB # ILLEGAL INREL=0,1
TC Q # LEGAL INREL=2
-
+
# 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
# YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT.
# DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
@@ -766,14 +766,14 @@ LEGALTST AD NEG2
CAF R1D1 -2
TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
TC L # OF REG. JUST BLANKED
-
+
SINBLANK OCT 16 # DEC 14
OCT 5
OCT 4
DOUBLK OCT 15 # DEC 13
OCT 11 # DEC 9
OCT 3
-
+
BRNCHCON OCT 77774
# 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
@@ -804,9 +804,9 @@ BLANKCON OCT 4000
BANK 41
SETLOC PINBALL2
BANK
-
+
COUNT 41/PIN
-
+
NVSUBB TC NVSUB1 # STANDARD LEAD INS. DON'T MOVE.
LOADLV1 TC LOADLV
@@ -837,7 +837,7 @@ ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
TS REQRET # SET REQRET +.
TC FLASHOFF
TC REQRET
-
+
ENTEXIT = ENTRET
MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
@@ -891,7 +891,7 @@ USEADD XCH ZREG
DCA LODNNLOC # SWITCH BANKS TO NOUN TAB E READING
DXCH Z # ROUTINE.
TC VERBFAN
-
+
EBANK= DSPCOUNT
# Page 325
LODNNLOC 2CADR LODNNTAB
@@ -909,7 +909,7 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
CA NOUNCADR
TC DSPOCTWO
TC VERBFAN
-
+
AD ONE
TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
VERBFAN CS LST2CON
@@ -927,7 +927,7 @@ LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB)
VBFANDIR INDEX VERBREG
CAF VERBTAB
TC BANKJUMP
-
+
VERBTAB CADR GODSPALM # VB00 ILLEGAL
CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
@@ -970,7 +970,7 @@ REQEXLQC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
CADR MMCHANG # VB37 CHANGE MAJOR MODE
CADR GODSPALM # VB38 SPARE
CADR GODSPALM # VB39 SPARE
-
+
# THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
# Page 327
# NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
@@ -1011,7 +1011,7 @@ MIXNN2 CA NOUNTEM
CCS DECOUNT
TC MIXNN1
TC VERBFAN
-
+
MIXAD TC MIXTEMP
# DPTEST ENTER WITH SF ROUT NUMBER IN A.
@@ -1037,7 +1037,7 @@ DPTEST INDEX A
TCF DPTEST1 # DPFRACOT
DPTEST1 INDEX Q
TC 1 # RETURN TO L+2
-
+
REQDATX CAF R1D1
TCF REQCOM
REQDATY CAF R2D1
@@ -1067,7 +1067,7 @@ PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
TS DSPCOUNT
CA NOUNREG
TCF UPDAT1
-
+
TS VERBREG
UPDATVB XCH Q
TS UPDATRET
@@ -1078,12 +1078,12 @@ UPDATVB XCH Q
UPDAT1 TC POSTJUMP # CAN'T USE SWCALL TO GO TC DSPDECVN, SINCE
CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
TC UPDATRET
-
+
GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CAN'T HANDLE F/F.
GODSPALM TC POSTJUMP
CADR DSPALARM
-
+
# Page 330
# NOUN TABLES
#
@@ -1181,7 +1181,7 @@ DSPCOM3 TS DISTEM # +0 +1 +2 INTO DISTEM
TC DSPOCTWO
XCH DISTEM
TC DSPCOM2 +2
-
+
# COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
# GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
@@ -1205,7 +1205,7 @@ DCOMPTST TS SFTEMP1 # - VERB COMP
LXCH Q
TC DECTEST
TC COMPTST1
-
+
DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
TC GETCOMP
@@ -1220,7 +1220,7 @@ DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
CCS A
TC ALMCYCLE
TC L
-
+
# NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
# IF NOT, IT RETURNS.
@@ -1230,7 +1230,7 @@ NOUNTEST LXCH Q
TC L
TC L
TC GODSPALM
-
+
TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
CA NNADTEM
AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
@@ -1246,7 +1246,7 @@ TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
TC L # NO DP
INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
TC L
-
+
CHANDSP CA NOUNCADR
MASK LOW9
EXTEND
@@ -1254,10 +1254,10 @@ CHANDSP CA NOUNCADR
READ 0
CS A
TCF DSPCOM1
-
+
COMPICK ADRES NNTYPTEM
ADRES NNADTEM
-
+
GETCOMP INDEX MIXBR # NORMAL MIXED
CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
INDEX A
@@ -1287,7 +1287,7 @@ DSPDCPUT CAF ZERO # DISPLAYS DATA
CS XREG
TS MPAC
TC SFCONUM # 2X (SF CON NUMB) IN A
-# Page 334
+# Page 334
TS SFTEMP1
EXTEND # SWITCH BANKS TO SF CONSTANT TABLE
DCA GTSFOUTL # READING ROUTINE.
@@ -1337,8 +1337,8 @@ ENDRTOUT EQUALS
# Page 335
- SETLOC BLANKCON +1
-
+ SETLOC BLANKCON +1
+
COUNT 40/PIN
# DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
# NUMBERS IN THE NEGATIVE (AGC) RANGE.
@@ -1349,7 +1349,7 @@ DEGOUTSF CAF ZERO
TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
TC DEGCOM
-
+
# OPDEGOUT SCALES BY .45 (THE RANGE IS 90 DEGREES) AND ADDS A 20 DEG BIAS.
OPDEGOUT CCS MPAC # RANGE IS 90 DEG
@@ -1364,7 +1364,7 @@ BIASCOM TS MPAC # TEST FOR OVEFLOW
ADS MPAC
CAF TWO # SET MULTIPLIER TO .45
TC DEGOUTSF +1
-
+
NEGOPT XCH MPAC # NEGATIVE CASE
AD 20BIAS
CCS A
@@ -1373,22 +1373,22 @@ NEGOPT XCH MPAC # NEGATIVE CASE
AD ONE # IF NEG RESTORE SUM
COM # IF NEG 0 LEAVE NEG 0
TC BIASCOM
-
+
SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
INDEX MPAC +2 # DP AUGMENTER CONSTANT
DCA DEGTAB
DXCH SFTEMP1
TC Q
-
+
FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
TC Q # IF MPAC IS - RETURN TO L+2 AFTER
TC Q # MASKING OUT THE SIGN BIT
TCF +1
CS BIT15
MASK MPAC
-# Page 336
+# Page 336
TS MPAC
- INDEX Q
+ INDEX Q
TC 1
DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
@@ -1399,41 +1399,41 @@ DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
DXCH SFTEMP1
DAS MPAC
TC SCOUTEND
-
+
DEGTAB OCT 05605 # HI PART OF .18
OCT 03656 # LOW PART OF .18
OCT 16314 # HI PART OF .45
OCT 31463 # LO PART OF .45
-
+
20BIAS OCT 16040 # 20 DEG BIAS FOR OPTICS
-
+
ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
DXCH MPAC
TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
SCOUTEND TC POSTJUMP
CADR DSPDCEND
-
+
AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
TC L14/OUT
-
+
DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
XCH MPAC +1 # BY B14
TS MPAC
TC SCOUTEND
-
+
DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
TC SCOUTEND
-
+
DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
TC TPLEFTN # SHIFT LEFT 7.
TC SCOUTEND
# Page 337
-
+
MPAC+6 = MPAC +6 # USE MPAC +6 INSTEAD OF OVFIND
DPOUT XCH Q
@@ -1443,7 +1443,7 @@ DPOUT XCH Q
TC DMP
ADRES SFTEMP1
TC MPAC+6
-
+
# THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
# AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
# BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
@@ -1465,8 +1465,8 @@ DPOUT XCH Q
DPFRACOT TC READLO # DP FRACTION TO MPAC,+1
TC SCOUTEND
-
-# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN
+
+# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN
# MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
# DOES NOT FORCE TPAGREE.
@@ -1483,20 +1483,20 @@ READLO1 EXTEND # MIXED NORMAL
INDEX A # C(ESUBK) C(E)
DCA 0 # C(E SUBK)+1) C(E+1)
DXCH MPAC
-# Page 338
+# Page 338
CAF ZERO
TS MPAC +2
TC TEM4
-
+
RDLONOR CA NOUNADD # E
ENDRDLO TC READLO1
BANK 42
SETLOC PINBALL3
BANK
-
+
COUNT 42/PIN
-
+
HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC.
CADR READLO # MPAC+1.
TC TPAGREE # MAKE DP DATA AGREE.
@@ -1531,7 +1531,7 @@ HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC.
TC BANKCALL # USE REGULAR DSPDECWD WITH ROUND OFF.
CADR DSPDECWD
TC ENTEXIT
-
+
SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
# Page 339
SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
@@ -1540,8 +1540,8 @@ MINCON2 OCT 00011 # .0006 FOR MINUTES DISPLAY
OCT 32445
MINCON1 OCT 02104 # .06..66 UPPED BY 2EXP-2B
OCT 10422
-HRCON1 2DEC .16384
- OCT 00000
+HRCON1 2DEC .16384
+ OCT 00000
RNDCON OCT 00062 # .5 SEC
M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC.
@@ -1604,7 +1604,7 @@ M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
CADR DSPDC2NR
TC POSTJUMP
CADR DSPDCEND +2
-
+
HISECON OCT 23147 # .6 + 2EXP-14
HIMINCON OCT 23346 # .6 + 2EXP-7
@@ -1613,7 +1613,7 @@ M/SCON2 OCT 41126 # - LO PART OF (59M58.5S)
NORMADR ADRES M/SNORM +1
M/SCON3 OCT 00025 # 59M 59.5S
OCT 37016
-
+
SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
TCF POSEC # IF -, ROUND BY SUBTRACING .5 SEC
TCF POSEC # FINDS TIME IN MPAC, MPAC+1
@@ -1640,7 +1640,7 @@ SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
XCH MPAC +1
XCH MPAC
TC SEPSCRET
-
+
SEPMIN XCH Q # FIND WHOLE MINUTES IN BIT13
TS SEPMNRET # OF LOTEMOUT AND ABOVE.
CA LOTEMOUT # REMOVES REST OF SECONDS.
@@ -1666,7 +1666,7 @@ ENDSPMIN TC SEPMNRET # GIVES WHOLE HOURS IN MPAC.
SETLOC ENDRDLO +1
COUNT 40/PIN
-
+
DSPDPDEC INDEX MIXBR
TC +0
TC +2 # NORMAL NOUN
@@ -1699,7 +1699,7 @@ ENDDPDEC TC ENTEXIT
SETLOC ENDRTOUT
COUNT 41/PIN
-
+
ABCLOAD CS TWO
TC COMPTEST
TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
@@ -1741,14 +1741,14 @@ PUTXYZ CS SIX # TEST THAT THE 3 DATA WORDS LOADED ARE
CA ZREG # ZERO TO RESET BITS. NON-ZERO TO SET BITS
INHINT
EXTEND
- BZF BITSOFF
+ BZF BITSOFF
INDEX NOUNADD
CS 0
MASK YREG # BITS TO BE PROCESSED
INDEX NOUNADD
ADS 0 # SET BITS.
TC BITSOFF1
-
+
BITSOFF CS YREG # BITS TO BE PROCESSED
INDEX NOUNADD
MASK 0
@@ -1756,7 +1756,7 @@ BITSOFF CS YREG # BITS TO BE PROCESSED
TS 0 # RESET BITS
BITSOFF1 RELINT
TC LOADLV
-
+
ABLOAD CS ONE
TC COMPTEST
TC NOUNTEST # TEST IF NOUN CAN BE LOADED
@@ -1780,7 +1780,7 @@ PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
INDEX NOUNADD
TS 1
TC LOADLV
-
+
ALOAD TC REQDATX
EXTEND
DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
@@ -1791,7 +1791,7 @@ ALOAD TC REQDATX
INDEX NOUNADD
TS 0
TC LOADLV
-
+
BLOAD CS ONE
TC COMPTEST
CAF BIT15 # SET CLPASS FOR PASS0 ONLY
@@ -1805,7 +1805,7 @@ BLOAD CS ONE
INDEX NOUNADD
TS 1
TC LOADLV
-
+
CLOAD CS TWO
TC COMPTEST
CAF BIT15 # SET CLPASS FOR PASS0 ONLY
@@ -1829,7 +1829,7 @@ LOADLV CAF ZERO
TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
-
+
VBSP1LD DEC 21 # VB21 = ALOAD
VBSP2LD DEC 22 # VB22 = BLOAD
VBSP3LD DEC 23 # VB23 = CLOAD
@@ -1855,7 +1855,7 @@ SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
MASK NNTYPTEM
TC RIGHT5
TC EXITEM # SF ROUTINE NUMBER IN A
-
+
SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
TS EXITEM
INDEX DECOUNT
@@ -1866,7 +1866,7 @@ SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
INDEX L
TC 0
-
+
# DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
@@ -1891,7 +1891,7 @@ SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A
TC EXITEM
# Page 347
-
+
DISPLACE TC GOQ
TC RIGHT5
TC LEFT5
@@ -1900,7 +1900,7 @@ CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW 5 OF
MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
DOUBLE
TC EXITEM # 2X(SF CONSTANT NUMBER) IN A
-
+
PUTCOM TS DECOUNT
XCH Q
TS DECRET
@@ -1915,7 +1915,7 @@ PUTCOM TS DECOUNT
INDEX MIXBR
TC +0
TC PUTNORM # NORMAL NOUN
-
+
# IF MIXNOUN, PLACE ADDRESS FOR COMPONENT K INTO NOUNADD, SET EBANK BITS.
INDEX DECOUNT # GET IDADDTAB ENTRY FOR COMPONENT K
@@ -1953,14 +1953,14 @@ PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
CAF ZERO # DP
TS DECOUNT
TC PUTDPCOM
-
+
CA NNADTEM
AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
EXTEND
BZF CHANLOAD
PUTCOM2 XCH MPAC
TC DECRET
-
+
EBANK= DSPCOUNT
GTSFINLC 2CADR GTSFIN
@@ -1975,7 +1975,7 @@ CHANLOAD CS SEVEN # DON'T LOAD CHAN 7. (IT'S SUPERBANK).
INDEX MPAC
WRITE 0
TC LOADLV
-
+
# PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM.
PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
@@ -2015,9 +2015,9 @@ ENDRUTIN EQUALS
# ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET.
SETLOC ENDDPDEC +1
-
+
COUNT 40/PIN
-
+
# DEGINSF APPLIES 1000/180 * 5.55555(10) = 5.43434(8)
DEGINSF TC DMP # SF ROUTINE FOR DEC DEGREES
@@ -2037,7 +2037,7 @@ DEGINSF2 TC TPSL1 # LEFT 2
TC SIGNFIX # IF +0, GO TO SIGNFIX
COM # IF -, USE -MAGNITUDE +1
TS MPAC # IF -0, USE +0
-SIGNFIX CCS MPAC+6
+SIGNFIX CCS MPAC+6
TC SGNTO1 # IF OVERFLOW
TC ENDSCALE # NO OVERFLOW/UNDERFLOW
# Page 350
@@ -2053,12 +2053,12 @@ ENDSCALE TC POSTJUMP
NEG180 CS POSMAX
TC ENDSCALE -1
-
+
SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
MASK POSMAX
CS A
TC ENDSCALE -1
-
+
DEGCON1 2DEC 5.555555555 B-3
DEGCON2 2DEC 2.222222222 B-2
@@ -2076,11 +2076,11 @@ ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
BINROUND TC 2ROUND
TC TESTOFUF
TC ENDSCALE # RETURNS IF NO OF/UF
-
+
ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
TC BINROUND
-
+
OPTDEGIN CCS MPAC # OPTICS SCALING ROUTINE
TC +4
TC +3
@@ -2095,7 +2095,7 @@ OPDEGIN2 CAF NEG.2 # RANGE IS 90 DEG
AD MPAC +1
TC 2ROUND +2
TC DEGINSF2
-
+
DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
ADRES SFTEMP1 # SFTEMP. STORES LOW PART OF RESULT
XCH MPAC +2 # IN (E SUBK) +1 OR E+1
@@ -2115,29 +2115,29 @@ DPINCOM AD NOUNADD # MIXED NORMAL
INDEX Q
TS 1 # PLACE LOW PART IN
TC ENDSCALE # (E SUBK) +1 MIXED
-
+
DPINORM CAF ZERO # E +1 NORMAL
TC DPINCOM
-
+
DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
TC TPLEFTN # SHIFT LEFT 7.
TC DPINSF +2
-
+
DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
TC TPLEFTN # SHIFT LEFT 3.
TC DPINSF +2
-
+
TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
XCH Q # CALL WITH N-1 IN A.
LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
TC TPSL1
CCS SFTEMP1
-# Page 352
+# Page 352
TC LEFTNCOM
TC SFTEMP2
@@ -2155,11 +2155,11 @@ TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
TC ALMCYCLE # OF ALARM AND RECYCLE.
TC Q
TC ALMCYCLE # UF ALARM AND RECYCLE.
-
+
SETLOC ENDSPMIN +1
-
+
COUNT 42/PIN
-
+
HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
ADRES WHOLECON # INTO MPAC, MPAC+1.
@@ -2185,7 +2185,7 @@ HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
XCH MPAC +1
EXTEND
MP MINCON # LEAVES MINUTES CONTRIBUTION IN A,L
-# Page 353
+# Page 353
DAS HITEMIN # ADD IN MINUTES CONTRIBUTION
EXTEND # IF THIS DAS OVERFLOWS, G/ 745 HR,39MIN
BZF +2
@@ -2236,7 +2236,7 @@ MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
TC Q
# Page 354
-
+
SIZETST TS MPAC +2 # CALLED WITH - CON IN A
CCS MPAC +1 # GET MAG OF MPAC+1
AD ONE
@@ -2244,10 +2244,10 @@ SIZETST TS MPAC +2 # CALLED WITH - CON IN A
AD ONE
AD MPAC +2
EXTEND # MAG OF MPAC+1 - CON
- BZMF +2
+ BZMF +2
TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
TC Q # MAG OF MPAC+1 L/= CON
-
+
# ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
# ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1).
@@ -2259,7 +2259,7 @@ ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
OCT34BAR OCT 77743
TC FORCEV25
TC Q
-
+
FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
TC ALMCYCLE # VERB. ALARM AND RECYCLE.
@@ -2293,9 +2293,9 @@ ENDHMSS EQUALS
# MONITOR DOESN'T TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW.
SETLOC ENDRUTIN
-
+
COUNT 41/PIN
-
+
MONITOR CS BIT15/14
MASK NOUNCADR
MONIT1 TS MPAC +1 # TEMP STORAGE
@@ -2335,7 +2335,7 @@ MONIT2 CAF LOW7
DXCH MONSAVE # ZERO THE KILL MONITOR BIT
RELINT # SET UP EXTERNAL MONITOR BIT
TC ENTRET
-
+
MONREQ TC LODSAMPT # CALLED BY WAITLIST
CCS MONSAVE1 # TIME IS SNATCHED N RUPT FOR NOUN 65
TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
@@ -2346,14 +2346,14 @@ MONREQ TC LODSAMPT # CALLED BY WAITLIST
TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
EBANK= DSPCOUNT
2CADR MONREQ
-
+
CAF CHRPRIO
TC NOVAC # ENTER EXEC REQUEST FOR MONDO
EBANK= DSPCOUNT
2CADR MONDO
-
+
TC TASKOVER
-
+
KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
TS MONSAVE
TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
@@ -2385,12 +2385,12 @@ MONDO CCS MONSAVE1 # CALLED BY EXEC
ENDMONDO TC TESTNN # EBANK.
BLOCK 2
-
+
SETLOC FFTAG8
BANK
-
+
COUNT 02/PIN
-
+
PASTEVB CAF MID7
MASK MONSAVE2 # NVMONOPT PASTE OPTION
EXTEND
@@ -2412,7 +2412,7 @@ MID7 OCT 37600
SETLOC ENDMONDO +1
COUNT 41/PIN
-
+
MONREF OCT 75377 # -DEC10, STARTING IN BIT8
MONBACK ADRES PASTEVB
@@ -2421,9 +2421,9 @@ MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
TC ENDOFJOB
# DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
-# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
+# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
# DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
-#
+#
# FOR BANKS L/E 27, THIS IS ENOUGH.
#
# FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
@@ -2447,7 +2447,7 @@ ENDSPF TC ENDOFJOB
# WORD DISPLAY ROUTINES
SETLOC TESTOFUF +4
COUNT 40/PIN
-
+
DSPSIGN XCH Q
TS DSPWDRET
CCS MPAC
@@ -2461,7 +2461,7 @@ DSPSIGN XCH Q
TC DSPWDRET
TC +ON
TC DSPWDRET
-
+
DSPRND EXTEND # ROUND BY 5 EXP-6
DCA DECROUND -1
DAS MPAC
@@ -2471,7 +2471,7 @@ DSPRND EXTEND # ROUND BY 5 EXP-6
DCA DPOSMAX
DXCH MPAC
TC Q
-
+
# DSPDECWD CONVERTS C(MPAC,MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
# STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
@@ -2502,7 +2502,7 @@ TRACE1S TS COUNT
CS VD1
TS DSPCOUNT
TC WDRET
-
+
OCT 00000
DECROUND OCT 02476
@@ -2522,7 +2522,7 @@ DSPDC2NR XCH Q
TC DSPSIGN
CAF ONE
TC DSPDCWD1
-
+
# DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
# STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
@@ -2553,18 +2553,18 @@ DSPDECVN EXTEND
XCH Q
TS WDRET
TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
-
+
VNDSPCON OCT 00244 # .01 ROUNDED UP
GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
TC POSTJUMP # OF UPDATVB.
CADR UPDAT1 +2
-
+
ENDECVN EQUALS
SETLOC ENDSPF +1
COUNT 41/PIN
-
+
# DSPOCTWD DISPLAYS C(A) UPON ENTRY AS A 5 CHAR OCT STARTING IN THE DSP
# CHAR SPECIFIED IN DSPCOUNT. IT STOPS AFTER 5 CHAR HAVE BEEN DISPLAYED.
@@ -2620,10 +2620,10 @@ DSP2BIT TS CYR
# DSPTAB ENTRY INTO DSREL.
SETLOC ENDECVN
-
+
COUNT 40/PIN
-
-DSPIN XCH Q # CAN'T USE L FOR RETURN, SINCE MANY OF THE
+
+DSPIN XCH Q # CAN'T USE L FOR RETURN, SINCE MANY OF THE
TS DSEXIT # ROUTINES CALLING DSPIN USE L AS RETURN.
CAF LOW5
MASK COUNT
@@ -2672,12 +2672,12 @@ DFRNT INDEX COUNT
INCR NOUT # DSPTAB ENTRY WAS +
DSLV RELINT
TC DSEXIT
-
+
DSMSK OCT 37
OCT 1740
OCT 2000
OCT 3740
-
+
# FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
# BIT11 OF CODE.
@@ -2687,7 +2687,7 @@ DSMSK OCT 37
XCH Q # MUST USE SAME RETURN AS DSPIN
TS DSEXIT
TC DSPIN1
-
+
DSPOCTIN TC DSPIN # SO DSPOCTWD DOESN'T USE SWCALL
CAF +2
TC BANKJUMP
@@ -2729,7 +2729,7 @@ NVSBENDL TC NVSUBEND
SETLOC MID7 +1
COUNT 02/PIN
-
+
ALMCYCLE TC FALTON # TURN ON CHECK FAIL LIGHT.
CS VERBSAVE # GET ORIGINAL VERB THAT WAS EXECUTED
TS REQRET # SET FOR ENTPAS0
@@ -2747,9 +2747,9 @@ ENDALM CADR ENTER
# IF NOT, IT RECYCLES.
SETLOC DSP2BIT +10D
-
+
COUNT 41/PIN
-
+
MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
# IF THIS MOVES AT ALL, MUST CHANGE
# MMADREF AT ENTPASHI.
@@ -2770,7 +2770,7 @@ MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
CA MPAC
TC POSTJUMP
CADR MODROUTB # GO THRU STANDARD LOC.
-
+
MODROUTB = V37
REQMM CS Q
TS REQRET
@@ -2784,7 +2784,7 @@ REQMM CS Q
CAF ONE
TS DECBRNCH # SET FOR DEC
TC ENTEXIT
-
+
# VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
# IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
@@ -2814,7 +2814,7 @@ REQUESTC TC RELDSP
SETVAC CAF TCFINDVC
TC REQEX1
-
+
# VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
# IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
@@ -2833,7 +2833,7 @@ ENDRQWT TC REQUESTC -1
SETLOC NVSBENDL +1
COUNT 40/PIN
-
+
VBPROC CAF ONE # PROCEED WITHOUT DATA
TS LOADSTAT
TC KILMONON # TURN ON KILL MONITOR BIT
@@ -2841,10 +2841,10 @@ VBPROC CAF ONE # PROCEED WITHOUT DATA
TC FLASHOFF
TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
-# Page 367
+# Page 367
VBTERM CS ONE
TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
-
+
# PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
# EXECUTIVE CONTROL, WITH CHRPRIO.
@@ -2853,7 +2853,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
TS DSPCOUNT
TC VBPROC
-
+
# VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
# (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
# DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
@@ -2861,7 +2861,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
TC VBPROC +1
-
+
# FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, RESEQUENCE,
# END OF LOAD.
# Page 368
@@ -2911,7 +2911,7 @@ UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
TC RELDSP1
TC ENDOFJOB
-
+
ENDRELDS EQUALS
# Page 369
@@ -2969,7 +2969,7 @@ ENDRELDS EQUALS
# PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
# A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASTED IN THE VERB
# LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
-# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
+# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
# BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
# CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
# OTHER THAN ZERO, THEN THEY WILL BE USED BO BLANK DATA BY BEING FED TO
@@ -2982,7 +2982,7 @@ ENDRELDS EQUALS
SETLOC ENDALM +1
COUNT 02/PIN
-
+
NVSUB LXCH 7 # ZERO NVMONOPT OPTIONS
NVMONOPT TS NVTEMP
CAF BIT14
@@ -3012,12 +3012,12 @@ PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBIT.
NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
-
+
SETLOC ENDRQWT +1
-
+
COUNT 41/PIN
# Page 371
-
+
# BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS:
# -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY.
@@ -3043,7 +3043,7 @@ BLANKDSP AD SEVEN # 7,8,9, OR 10 (A HAD 0,1,2,OR 3)
TS DSPCOUNT
TC FLASHOFF # PROTECT AGAINST INVISIBLE FLASH
TC ENTSET -2 # ZEROS REQRET
-
+
NVSUB1 CAF ENTSET # IN BANK
TS ENTRET # SET RETURN TO NVSUBEND
CCS NVTEMP # WHAT NOW
@@ -3061,7 +3061,7 @@ NVSUB1 CAF ENTSET # IN BANK
# USES MPAC, +1, +2)
CCS MPAC +3 # TEST NOUN
TC NVSUB2 # IF NOUN NOT +0, GO ON
- CA MPAC +4
+ CA MPAC +4
TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB. THEN RETURN
CAF ZERO # ZERO REQRET SO THAT PASTED VERBS CAN
TS REQRET # BE EXECUTED BY OPERATOR.
@@ -3096,7 +3096,7 @@ KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
# MONITOR BIT.
TC Q
-
+
# LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
# +1 PROCEED NO DATA. SET BY SPECIAL VERB
# -1 TERMINATE. SET BY SPECIAL VERB.
@@ -3130,20 +3130,20 @@ ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
TS CADRSTOR
TC JOBSLEEP
-
+
ENDINST TC ENDOFJOB
ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
TC DSPABORT # RETURNS IF CADRSTOR = +0.
TC Q
TC DSPABORT
-
+
ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
TC DSPABORT # RETURNS IF DSPLIST = +0.
TC Q
DSPABORT TC P00DOO
OCT 01206
-
+
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
# IT DOES ENDOFJOB.
@@ -3156,7 +3156,7 @@ JAMTERM CAF PINSUPBT
TS DSPCOUNT
TC POSTJUMP
CADR VBTERM
-
+
34DEC DEC 34
# JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
@@ -3172,7 +3172,7 @@ JAMPROC CAF PINSUPBT
TS DSPCOUNT
TC POSTJUMP
CADR VBPROC
-
+
33DEC DEC 33
# BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
@@ -3204,15 +3204,15 @@ BLANKSUB MASK SEVEN
EXTEND
WRITE SUPERBNK
TC BLNKSUB1
-
+
EBANK= DSPCOUNT
BLNKBBNK BBCON BLNKSUB1
ENDBLFF EQUALS
SETLOC ENDRELDS
COUNT 40/PIN
-
-# Page 375
+
+# Page 375
BLNKSUB1 CA DSPCOUNT # SAVE OLD DSPCOUNT FOR LATER RESTORATION
TS BUF +2
CAF BIT1 # TEST BIT1. SEE IF R1 TO BE BLANKED.
@@ -3237,7 +3237,7 @@ TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE
TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
TC 2
-
+
ENDBSUB1 EQUALS
# DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
@@ -3250,9 +3250,9 @@ ENDBSUB1 EQUALS
BANK 7
SETLOC PINBALL4
BANK
-
+
COUNT 07/PIN
-
+
DSPMM XCH Q
TS MPAC
INHINT
@@ -3260,7 +3260,7 @@ DSPMM XCH Q
TC NOVAC
EBANK= DSPCOUNT
2CADR DSPMMJB
-
+
RELINT
# Page 376
ENDSPMM TC MPAC
@@ -3268,9 +3268,9 @@ ENDSPMM TC MPAC
# DSPMM PLACE MAJOR MODE CODE INTO MODREG
SETLOC ENDBSUB1
-
+
COUNT 40/PIN
-
+
DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
XCH DSPCOUNT
TS DSPMMTEM # SAVE DSPCOUNT
@@ -3282,11 +3282,11 @@ DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
XCH DSPMMTEM # RESTORE DSPCOUNT
TS DSPCOUNT
TC ENDOFJOB
-
+
# RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
# EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
# EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
-#
+#
# IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
# LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
@@ -3315,13 +3315,13 @@ RECAL2 INDEX LOCCTR
# Page 377
RECAL3 TC RELDSP
TC ENDOFJOB
-
+
DOTERM CAF ZERO
TC RECAL2
-
+
DOPROC CAF ONE
TC RECAL2
-
+
SBANK= LOWSUPER
# Page 378
# MISCELLANEOUS SERVICE ROUTINES IN FIXED/FIXED
@@ -3452,18 +3452,18 @@ PRSHRTMP TS MPTEMP
TS MPAC +1
TS MPAC +2
TC Q
-
+
FLASHON CAF BIT6 # TURN ON V/N FLASH
EXTEND # BIT 6 OF CHANNEL 11
WOR DSALMOUT
TC Q
-
+
FLASHOFF CS BIT6 # TURN OFF V/N FLASH
EXTEND
WAND DSALMOUT # BIT 6 OF CHANNEL 11
TC Q
-
-# Page 381
+
+# Page 381
# INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM.
#
# USER MUST SCHEDULE CALLS TO NVSUB SO THAT THERE IS NO CONFLICT OF USE OR
@@ -3498,7 +3498,7 @@ FLASHOFF CS BIT6 # TURN OFF V/N FLASH
#
# NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
# IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
-# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
+# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
# PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
#
# NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
@@ -3523,7 +3523,7 @@ NVSUBUSY TC POSTJUMP # TO BE ENTERED.
SETLOC ENDSPMM +1
COUNT 07/PIN
-
+
NVSUBSY1 TS L
TC ISCADR+0 # ABORT IF CADRSTOR NOT= +0.
TC ISLIST+0 # ABORT IF DSPLIST NOT= +0.
@@ -3540,7 +3540,7 @@ ENDNVBSY TC JOBSLEEP
SETLOC NVSUBUSY +3
COUNT 02/PIN
-
+
NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
TS NVTEMP
CAF BIT14
@@ -3552,7 +3552,7 @@ NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
# AFTER EXECUTION.
NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
TCF PRENVBSY # GO TO SLEEP.
-
+
# RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
# VERB DISPATCHER, VBRESEQ, RECALTST.
#
@@ -3580,7 +3580,7 @@ RELDSP2 RELINT
TC RELRET
RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
- # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
+ # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
# DSPLIST IS NOT EMPTY.
CCS DSPLIST
TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE.
@@ -3588,7 +3588,7 @@ RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
TS DSPLOCK
TC RELRET
-
+
ENDPINBF EQUALS
# Page 384
@@ -3601,18 +3601,18 @@ PINTEST EQUALS LST2FAN
# OFF THE CAUTION AND STATUS LIGHTS.
SETLOC ENDNVSB1 +1
-
+
COUNT 41/PIN
-
+
VBTSTLTS TC BANKCALL
CADR CHKP00H
-
+
INHINT
CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WON'T
MASK IMODES33 # TURN OUT ANY LAMPS.
AD BIT1
TS IMODES33
-
+
CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
EXTEND # V/N FLASH, OPERATOR ERROR.
WOR DSALMOUT
@@ -3638,11 +3638,11 @@ TSTLTS1 TS ERCNT
TC WAITLIST
EBANK= DSPTAB
2CADR TSTLTS2
-
+
TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
# ACTION) UNTIL TSTLTS3 TO INSURE THAT
# LIGHTS TEST WILL BE SEEN.
-
+
FULLDSP OCT 05675 # DISPLAY ALL 8'S
FULLDSP1 OCT 07675 # DISPLAY ALL 8'S AND +
TSTCON1 OCT 00175
@@ -3654,14 +3654,14 @@ TSTCON2 OCT 40650 # DSPTAB+11D BITS 4,6,8,9,
TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
# UPLINK ACITIVY, TEMP, OPERATOR ERROR.
SHOLTS OCT 764 # 5 SEC
-
+
TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
TC NOVAC
EBANK= DSPTAB
2CADR TSTLTS3
-
+
TC TASKOVER
-
+
TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
INHINT
EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
@@ -3678,24 +3678,24 @@ TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
MASK IMODES33 # LIGHTS COMPLETE.
AD PRIO16
TS IMODES33
-
+
CS OCT55000
MASK IMODES30
AD PRIO15 # 15000.
TS IMODES30
-
+
CS OPTMODES
MASK BIT7
- ADS OPTMODES
+ ADS OPTMODES
RELINT
-
+
TC BANKCALL # REDISPLAY C(MODREG)
CADR DSPMM
TC KILMONON # TURN ON KILL MONITOR BIT.
TC FLASHOFF # TURN OFF V/N FLASH.
TC POSTJUMP # DOES RELDSP AND GOES TO PINBRNCH IF
CADR TSTLTS4 # ENDIDLE IS AWAITING OPERATOR RESPONSE.
-# Page 387
+# Page 387
13-11,1 OCT 16001
OCT55000 OCT 55000
ENDPINS2 EQUALS
@@ -3706,14 +3706,14 @@ ENDPINS2 EQUALS
# PROG ALM, TRACKER FAIL.
#
# LEAVES GIMBAL LOCK AND NO ATT ALONE.
-#
+#
# IT ALSO ZEROS THE `TEST ALARM' OUT BIT, WHICH TURNS OFF STBY, RESTART.
# IT ALSO SETS `CAUTION RESET' TO 1.
# IT ALSO FORCES BIT 12 OF ALL DSPTAB ENTRIES TO 1.
SETLOC DOPROC +2
COUNT 40/PIN
-
+
ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
TS DSPLOCK # LIGHT RESET LEAVES DSPLOCK CHANGED.
INHINT
@@ -3732,7 +3732,7 @@ ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
MASK IMODES30
AD BIT10
TS IMODES30
-
+
CS OPTMODES
MASK BIT7
ADS OPTMODES
@@ -3771,7 +3771,7 @@ ERCOM INDEX ERCNT # ETC.
ERCON OCT 104 # CHAN 11 BITS 3,7.
# UPLINK ACTIVITY, AND OPERATOR ERROR.
-BITS6,8 OCT 240
+BITS6,8 OCT 240
GL+NOATT OCT 00050 # NO ATT AND GIMBAL LOCK LAMPS
NOTBIT12 OCT 73777
diff --git a/Comanche055/PINBALL_NOUN_TABLES.agc b/Comanche055/PINBALL_NOUN_TABLES.agc
index f75fe46..9bb3ee4 100644
--- a/Comanche055/PINBALL_NOUN_TABLES.agc
+++ b/Comanche055/PINBALL_NOUN_TABLES.agc
@@ -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
diff --git a/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc b/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc
index d481ae9..206dd5c 100644
--- a/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc
+++ b/Comanche055/PLANETARY_INERTIAL_ORIENTATION.agc
@@ -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
diff --git a/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc b/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc
index f81233e..17bc407 100644
--- a/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc
+++ b/Comanche055/POWERED_FLIGHT_SUBROUTINES.agc
@@ -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
diff --git a/Comanche055/R30.agc b/Comanche055/R30.agc
index d16ec10..c65295c 100644
--- a/Comanche055/R30.agc
+++ b/Comanche055/R30.agc
@@ -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
diff --git a/Comanche055/R31.agc b/Comanche055/R31.agc
index 8fef656..4135ea8 100644
--- a/Comanche055/R31.agc
+++ b/Comanche055/R31.agc
@@ -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
diff --git a/Comanche055/R60_62.agc b/Comanche055/R60_62.agc
index 26b3b83..b2934fd 100644
--- a/Comanche055/R60_62.agc
+++ b/Comanche055/R60_62.agc
@@ -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
+
diff --git a/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc b/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
index 3e7e0f9..ad17097 100644
--- a/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
+++ b/Comanche055/RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
@@ -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
diff --git a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc
index 4116427..cf13111 100644
--- a/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc
+++ b/Comanche055/RCS-CSM_DIGITAL_AUTOPILOT.agc
@@ -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)
-
+
diff --git a/Comanche055/REENTRY_CONTROL.agc b/Comanche055/REENTRY_CONTROL.agc
index f3ffbb8..0ac72e9 100644
--- a/Comanche055/REENTRY_CONTROL.agc
+++ b/Comanche055/REENTRY_CONTROL.agc
@@ -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
@@ -36,10 +36,10 @@
BANK 25
SETLOC REENTRY
BANK
-
+
COUNT* $$/ENTRY
EBANK= RTINIT
-
+
EBENTRY = EBANK7
EBAOG EQUALS EBANK6
NTRYPRIO EQUALS PRIO20 # (SERVICER)
@@ -58,22 +58,22 @@ STARTENT EXIT # MM = 63
# EGSW = 97D B8
# HIND=99D B6 INRLSW=100D B5
# LATSW=101D B4 .05GSW=102D B3
-
+
AD ENTRYSW
TS CM/FLAGS
-
+
RELINT
-
+
TC INTPRET
-
+
SLOAD
LODPAD
STORE LOD
-
+
SLOAD
LADPAD
STORE LAD
-
+
DMP # L/DCMINR = LAD COS(15)
COS15
STODL L/DCMINR
@@ -90,7 +90,7 @@ STARTENT EXIT # MM = 63
SIGN DCOMP
HEADSUP # MAY BE NOISE FOR DISPLAY P61
STCALL L/D # L/D = - LAD SGN(HEADSUP)
-
+
STARTEN1 # RETURN VIA GOTOADDR
VLOAD VXV
VN # (-7) M/CS
@@ -101,22 +101,22 @@ STARTENT EXIT # MM = 63
DCOMP RTB
SIGNMPAC
STODL K2ROLL # K2ROLL = -SGN(LATANG)
-
+
LAD
DMP DAD
Q21
Q22
STORE Q2 # Q2 = -1152 + 500 LAD
-
+
SSP SSP
GOTOADDR # SET SELECTOR FOR INITIAL PASS
INITROLL
POSEXIT
SCALEPOP # SET CM/POSE TO CONTINUE AT SCALEPOP
-
+
RTB
SERVNOUT # OMIT INITIAL DISPLAY, SINCE 1ST GUESSBAD
-
+
# CALCULATE THE INITIAL TARGET VECTOR: RTINIT, ALSO RTEAST, RTNORM, AND RT. ALL ARE .5 UNIT AND IN
# REFERENCE COORDINATES.
@@ -128,7 +128,7 @@ STARTEN1 STQ VLOAD
LUNAFLAG
STODL LAT
3ZEROS
-
+
STODL LAT +4 # SET ALT=0.
PIPTIME # ESTABLISH RTINIT AT TIME OF PRESENT
# Page 846
@@ -146,28 +146,28 @@ STARTEN1 STQ VLOAD
ACOS
STCALL THETAH # RANGE ANGLE /360
GOTOADDR # RETURN TO CALLER
-
+
500SEC 2DEC 50000 B-28 # CS.
ENTMASK OCT 11774
ENTRYSW OCT 11010 # ENTRYDSP B13. GONEPAST B10. LATSW B4
# Page 847
-SCALEPOP CALL
+SCALEPOP CALL
TARGETNG
-
+
EXIT
-
+
REFAZE10 TC PHASCHNG
OCT 10035 # SERVICER 5.3 RESTART AT REFAZE10
-
+
TC INTPRET
-
+
# JUMP TO PARTICULAR RE-ENTRY PHASE:
# SEQUENCE
GOTO
GOTOADDR
-
+
# GOTOADDR CONTAINS THE ADDRESS OF THE ROLL COMMAND EQUATIONS TO THE CURRENT PHASE OF
# RE-ENTRY. SEQUENCING IS AS FOLLOWS:
#
@@ -204,42 +204,42 @@ REFAZE10 TC PHASCHNG
# * START TARGETING ...
EBANK= RTINIT
-
+
# TARGETNG IS CALLED BY P61, FROM GROUP 4.
# TARGETNG IS CALLED BY ENTRY, FROM GROUP 5.
-
- # ALL MM COME HERE.
+
+ # ALL MM COME HERE.
TARGETNG BOFF VLOAD # ENTER WITH PROPER EB FROM CM/POSE(TEST)
RELVELSW # RELVELSW = 96D BIT9
GETVEL # WANT INERTIAL VEL. GO GET IT.
-VREL # NEW V IS RELATIVE, CONTINUE
-
+
VCOMP GOTO # (VREL) = (V) + KWE UNITR*UNITW
GETUNITV -1 # - VREL WAS LEFT BY CM/POSE
-
+
GETVEL VLOAD VXSC # INERTIAL V WANTED
VN # KVSCALE = (12800 / .3048) / 2VS
KVSCALE # KVSCALE = .81491944
STORE VEL # V/2 VS
-
+
GETUNITV UNIT STQ
60GENRET
STODL UNITV
34D
STORE VSQUARE # VSQ/4
-
+
DSU # LEQ = VSQUARE - 1
FOURTH # 4 G'S FULL SCALE
STODL LEQ # LEQ/4
-
+
36D
STOVL V # V/2 VS = VEL/2 VS
-
+
VEL
DOT SL1 # RDOT= V.UNITR
UNITR
STOVL RDOT # RDOT /2 VS
-
+
DELV # PIPA COUNTS IN PLATFORM COORDS.
ABVAL DMP
KASCALE
@@ -251,7 +251,7 @@ DSTORE STOVL D # ACCELERATION USED TO APPROX DRAG
# Page 849
UNITR
STORE UNI # .5 UNI REF COORDS.
-
+
BOFF DLOAD
RELVELSW
GETETA
@@ -261,13 +261,13 @@ UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE
TIME/RTO
PIPTIME
STCALL DTEAROT # GET PREDICTED TARGET VECTOR RT
-
+
EARROT2
DOT SETPD # SINCE (RT) UNIT VECT, THIS IS 1/4 MAX
UNI # LATANG = RT.UNI
0
STOVL LATANG # LATANG = MAC LATANG / 4
-
+
RT
CLEAR
GONEBY # SHOW HAVE NOT GONE PAST TARGET.
@@ -277,7 +277,7 @@ UPDATERT DSU DAD # PIPTIME-TIME/RTO =ELAPSED TIME SINCE
BPL SET
+2
GONEBY # SHOW HAVE GONE PAST TARGET.
-
+
VLOAD
RT
GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR)
@@ -289,14 +289,14 @@ GETANGLE DOT DSU # THETA = ARCCOS(RT.UNITR)
SL1 ACOS
THETDONE STORE THETAH # THETAH/360
# HI WORD, LO BIT =1.32 NM=360 60/16384
-
+
BON DCOMP
GONEBY # =1 IF HAVE GONE PAST TARGET.
# (SIGN MAY BECOME ERRATIC VERY NEAR
# TARGET DUE TO LOSS OF PRECISION.)
+1
STODL RTGON67 # RANGE ERROR: NEG IF WILL FALL SHORT.
-
+
D
DSU BMN
# Page 850
@@ -314,10 +314,10 @@ THETDONE STORE THETAH # THETAH/360
BOV SQRT
NOLDCALC # OVFL LAST CLEARED IN EARROT2 ABOVE.
STORE L/DCALC
-
+
NOLDCALC GOTO
60GENRET
-
+
NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT)
.05GSW # .05GSW = 102D B3
NOLDCALC # KEEP SINGLE EXIT FOR TARGETING
@@ -328,9 +328,9 @@ NO.05G CLEAR GOTO # THIS WAY FOR DAP. (MAY INTERRUPT)
BANK 26
SETLOC REENTRY1
BANK
-
+
COUNT* $$/ENTRY
-
+
GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
# DT/2 = 2/2 =1
RDOT
@@ -345,7 +345,7 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
D
D
STORE D
-
+
BON DLOAD # EGSW INDICATES FINAL PHASE
EGSW
SUBETA
@@ -353,14 +353,14 @@ GETETA DLOAD DDV # D = D +D(-RDOT/HS -2D/V) DT/2
DMP GOTO
KTETA # = 1000x2PI/(2)E14 163.84
UPDATERT
-
+
SUBETA DLOAD DSU # SWITCH FROM INERTIAL TO RELATIVE VEL.
V
VMIN
BPL SET
SUBETA2
RELVELSW
-
+
SUBETA2 DLOAD DMP
THETAH
@@ -368,11 +368,11 @@ SUBETA2 DLOAD DMP
DDV GOTO
V # KT = RE(2 PI)/2 VS 16384 163.84/ 2 VSAT
UPDATERT
-
+
SETMIND DLOAD GOTO
1BITDP
DSTORE
-
+
# Page 852
TINYTHET DSU ABS # ENTER WITH X-.249
1BITDP +1 # GET 1/4 - MPAC
@@ -381,23 +381,23 @@ TINYTHET DSU ABS # ENTER WITH X-.249
DMP GOTO
KACOS
THETDONE
-
+
# Page 853
# * START INITIAL ROLL ...
BANK 25
SETLOC REENTRY
BANK
-
+
COUNT* $$/ENTRY
-
+
# MM = 63, 64, ...
INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
INRLSW
INITRL1
.05GSW
LIMITL/D
-
+
# MM = 64, NOW
# 3
# KA = KA1 LEG + KA2
@@ -411,11 +411,11 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
P64 # ROLLC VI RDOT
# XXX.XX DEG XXXXX. FPS XXXXX. FPS
STORE KAT
-
+
DSU BMN
KALIM
+4
- DLOAD
+ DLOAD
KALIM
STORE KAT
DLOAD DSU # IF V-VFINAL1 NEG, GO TO FINAL PHASE.
@@ -430,7 +430,7 @@ INITROLL BON BOFF # IF D- .05G NEG, GO TO LIMITL/D
GOTOADDR
KEP2 # AND IDLE UNTIL D > 0.2 G. (NO P66 HERE)
INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
-
+
D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4
# Page 854
LEQ
@@ -453,7 +453,7 @@ D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4
VFINAL
# 3
# V-VFINAL +(RDOT/V) / K44 OVFL $
-
+
DAD BOV
V
INROLOUT # GO TO LIMITL/D AFTER SETTING INRLSW.
@@ -462,38 +462,38 @@ D0EQ DLOAD DMP # D0 = KA3 LEQ + KA4
LAD
DCOMP
STORE L/D
-
+
# SET INRLSW AT END FOR RESTART PROTECTION
INROLOUT BOFSET # END OF PRE .05G PATH OF INITROLL.
INRLSW # SWITCH IS ZERO INITIALLY.
LIMITL/D # (GO TO)
-
+
KATEST DLOAD DSU # IF KAT - D POS, GO TO CONSTD
KAT
D # IF POS, OUT WITH COMMAND VIA LIMITL/D
BPL GOTO
LIMITL/D
CONSTD
-
+
INITRL1 DLOAD DAD # IF RDOT + VRCONT POS, GO TO HUNTEST
RDOT
VRCONT
BMN CALL # IF POSITIVE, FALL INTO HUNTEST.
KATEST
-
+
FOREHUNT # INITIALIZE HUNTEST.
-
+
# Page 855
# * START HUNT TEST ...
# MM = 64
SSP # INITIALIZE HUNTEST ON FIRST PASS
GOTOADDR
HUNTEST # MUST GO AFTER FOREHUNT FOR RESTARTS.
-
+
HUNTEST DLOAD
D
STODL A1 # A1/805 = A1/25G
-
+
LAD
STODL TEM1B
RDOT
@@ -501,13 +501,13 @@ HUNTEST DLOAD
A0CALC
LEWD
STODL TEM1B
-
+
RDOT
A0CALC DDV DAD # V1 = V + RDOT/TEM1B
TEM1B
V
STODL V1 # V1/2 VS
-
+
RDOT
DSQ DDV # A0=(V1/V)SQ(D+RDOT SQ/(TEM1B 2 C1 HS)
TEM1B
@@ -520,23 +520,23 @@ A0CALC DDV DAD # V1 = V + RDOT/TEM1B
DDV
VSQUARE
STODL A0 # A0/805 = A0/25G
-
+
RDOT
BPL DLOAD
V1LEAD
A0
STORE A1 # A1/25G
-
+
V1LEAD DLOAD BPL # IF L/D NEG, V1=V1 - 1000
L/D
HUNTEST1
-
+
DLOAD DSU
V1
# Page 856
VQUIT
STORE V1
-
+
HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
A0
2C1HS
@@ -547,12 +547,12 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
V1
LEWD
STORE ALP
-
+
BDSU BDDV # FACT1 = V1 / (1 - ALP)
BARELY1
V1
STODL FACT1 # FACT1 / 2VS
-
+
ALP
DSU DMP # FACT2 = ALP(ALP - 1) / A0
BARELY1
@@ -560,7 +560,7 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
DDV
A0
STORE FACT2 # FACT2 (25G)
-
+
DMP DAD
Q7 # Q7 / 805 = Q7 / 25G
ALP # VL=FACT1 (1-SQRT(Q7 FACT2 +ALP) )
@@ -569,34 +569,34 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
DMP
FACT1
STORE VL # VL / 2 VS
-
+
BDSU DMP # GAMMAL1 = LEWD (V1-VL)/VL
V1
LEWD
DDV
VL
STODL GAMMAL1 # GAMMAL1 USED IN UPCONTROL.
-
+
# GAMMAL1 = PDL 22D.
VL
DSU BMN # IF VL-VLMIN NEG, GO TO PREFINAL
VLMIN
PREFINAL
-
+
DLOAD DSQ
# Page 857
VL
STODL VBARS # VBARS / 4 VS VS
-
+
HALVE # IF VSAT-VL NEG, GO TO CONSTD
DSU BMN
VL
BECONSTD # SET MODE=HUNTEST, CONTINUE IN CONSTD
STODL DVL # DVL / 2VS
-
+
HALVE
STORE VS1 # VS1 = VSAT
-
+
DSU BMN # IF V1 GREATER THAN VSAT, GO ON
V1
GETDHOOK
@@ -605,19 +605,19 @@ HUNTEST1 DLOAD DMP # ALP = 2 C1 HS A0/LEWD V1 V1
STODL DVL # DVL = DVL - (VSAT-V1) = V1 - VL
V1
STORE VS1 # VS1 = V1, IN THIS CASE
-
+
GETDHOOK DLOAD CALL # DHOOK=((1-VS1/FACT1) SQ -ALP)/FACT2
VS1 # VS1 / 2 VS
DHOOKYQ7 # GO CALC DHOOK
STORE DHOOK # DHOOK / 25G
-
+
SR DDV
6 # CHOOK
Q7
- DSU
+ DSU
CHOOK # = .25/16 = (-6)
STORE AHOOKDV
-
+
DAD DMP # GAMMAL= GAMMAL1-CH1 DVL SQ(1+AHOOK DVL)
1/16TH
CH1
@@ -649,7 +649,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
HALVE
STODL COSG/2
VBARS # E=SQRT(1+VBARS........
-
+
DSU DMP
HALVE
VBARS
@@ -659,7 +659,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
SL2 DAD
C1/16 # C1/16 = 1/16
SQRT PDDL # E/4 INTO PDL
-
+
VBARS
DMP DMP # ASKEP/2 = ARCSIN(VBARS COSG SING/E)
COSG/2
@@ -667,14 +667,14 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
DDV ASIN
SL1 PUSH # ASKEP TO PDL 0.
STODL ASKEP # BALLISTIC RANGE ASKEP/2PI
-
+
# FOR TM, STORE RANGE COMPONENTS OVERLAPPING (SP)
VL
DMP DAD # ASP1 = Q2 + Q3 VL
Q3
Q2
STORE ASP1 # FINAL PHASE RANGE ASP1/2 PI
-
+
PDDL DSQ # ASP1 TO PDL 2.
V1
# 2
@@ -685,7 +685,7 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
DDV CALL
A0
LOG # RETURN WITH -LOG IN MPAC
-
+
DMP DDV
C12
GAMMAL1
@@ -701,16 +701,16 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
DDV PUSH # ASPDWN TO PDL 6.
LAD
STODL ASPDWN # RANGE TO PULL OUT ASPDWN /2 PI
-
+
Q6
DSU DMP # ASP3 = Q5(Q6-GAMMAL)
GAMMAL
Q5
STOVL ASP3 # GAMMA CORRECTION ASP3/2PI
-
+
ASKEP # GET HI-WD AND
STODL ASPS(TM) # SAVE HI-WORD OF ASP'S FOR TM.
-
+
ASP3
DAD DAD
# ASPDWN FROM PDL 6.
@@ -723,14 +723,14 @@ RANGER DSQ SR2 # COSG = 1-GAMMAL SQ/2, TRUNCATED SERIES
TCDANZIG
STORE DIFF # DIFF = (ASP-THETAH) / 2 PI
# ASP=ASKEP+ASP1+ASPUP+ASP3+ASPDWN = TOTAL RANGE
-
+
ABS DSU # IF ABS(THETAH-ASP) -25NM NEG, GO TO UPSY
25NM
BMN BON
GOTOUPSY
HIND
GETLEWD
-
+
DLOAD BPL
DIFF
DCONSTD # EVENTUALLY SETS MODE = HUNTEST.
@@ -751,15 +751,15 @@ LWDSTORE STADR
BOV
LEWDOVFL
STORE LEWD
-
+
SIDETRAK EXIT
CA EBENTRY
TS EBANK
-
+
CA PRIO16 # DROP GRP 5 RESTART PRIO TO 1 LESS THAN
TS PHSPRDT5 # GRP 4.
-
+
TC PHASCHNG
OCT 00474 # RESTART GRP 4 AT PRE-HUN.
# FORCE RESTART TO PICK UP IN GRP 4:
@@ -767,26 +767,26 @@ SIDETRAK EXIT
CA PRIO16 # CONTINUE GRP 5 AT LOWER PRIO THAN EITHER
# GRP 4 OR SERVICER.
TC PRIOCHNG
-
+
CAF ADENDEXT # SIDETRACK NEXT PASS UNTIL THIS ONE DONE.
TS GOTOADDR # ONLY AFTER RESTART IS LEFT AFTER DETOUR.
-
+
TC INTPRET
-
+
DLOAD SET
DIFF
HIND
STODL DIFFOLD # DIFFOLD / 2 PI
-
+
Q7F
STCALL Q7 # Q7 / 805 FPSS
HUNTEST # (GO TO)
-
+
LEWDOVFL DLOAD
NEARONE
STCALL LEWD
DCONSTD # (GO TO) ALSO WILL SET MODE = HUNTEST
-
+
LEWDPTR DLOAD SR1
LEWD
DCOMP GOTO
@@ -815,19 +815,19 @@ NEGAMA DMP DMP # ENTER WITH GAMMAL IN MPAC
DAD
VL
STCALL VL # VL/2 VS
-
+
DHOOKYQ7 # GO CALC Q7
# Q7=((1-VL/FACT1)SQ - ALP)/FACT2
STODL Q7 # Q7 / 25G
-
+
VL
DSQ
STODL VBARS # VBARS / 4 VS VS
-
+
3ZEROS
GOTO # SET GAMMAL = 0
HUNTEST3
-
+
DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7
FACT1
BDSU SL1
@@ -836,19 +836,19 @@ DHOOKYQ7 SR1 DDV # SUBROUTINE TO CALC DHOOK OR Q7
ALP
DDV RVQ
FACT2
-
+
# Page 863
# COME TO PRE-HUNT WHEN RESTART OCCURS AFTER
# HUNTEST IS SIDE-TRACKED AT SIDETRAK.
# PICK UP IN GROUP 4.
-
+
PRE-HUNT TC INTPRET
CLEAR CALL
HIND # HIND 99D BIT 6 FLAG 6
FOREHUNT # RE-INITIALIZE HUNTEST AFTER RE-START.
GOTO
HUNTEST
-
+
FOREHUNT DLOAD # INITIALIZE HUNTEST.
3ZEROS
STODL DIFFOLD
@@ -857,7 +857,7 @@ FOREHUNT DLOAD # INITIALIZE HUNTEST.
LEWD1
STORE LEWD
RVQ
-
+
ADENDEXT CADR ENDEXIT
# Page 864
@@ -869,14 +869,14 @@ GOTOUPSY RTB # END OF HUNTEST
# SET MODE = UPCONTRL.
# RETURN FROM P65 DIRECTLY TO UPDONTRL
# VIA THE GOTOADDR AT REFAZE10.
-
+
UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
D # (SUPPRESS LATERAL SWITCH)
C21
BMN SET
+2
NOSWITCH
-
+
DLOAD DSU # IF V-V1 POS, GO TO DOWN CONTROL.
V
V1
@@ -889,14 +889,14 @@ UPCONTRL DLOAD DSU # IF D-140 POS, NOSWITCH =1
DLOAD BPL # IF RDOT NEG, DO VLTEST
RDOT
CONT1
-
+
VLTEST DLOAD DSU # IF V-VL-C18 NEG,EGSW=1,MODE=PREDICT3
V
VL
DSU BMN
C18
PREFINAL
-
+
CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
D
DSU BMN
@@ -905,7 +905,7 @@ CONT1 DLOAD # IF D-A0 POS, L/D = LAD, GO TO LIMITL/D
DLOAD GOTO
LAD
STOREL/D
-
+
CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
D
FACT2
@@ -916,17 +916,17 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
BARELY1
FACT1
STORE VREF # VREF / 2VS
-
+
BDSU DMP # RDOTREF = LEWD(V1-VREF)
V1
LEWD
STODL RDOTREF # RDOTREF / 2VS
-
+
VS1
DSU BMN # IF VSAT-VREF NEG, GO TO CONTINU2
VREF
CONTINU2
-
+
PUSH PUSH # VS1-VREF TO PDL TWICE
DMP DDV # RDHOOK=CHI1(1+DV AHOOKDV/DVL) DV DV
AHOOKDV # /DHOOK VREF
@@ -942,7 +942,7 @@ CONT3 DLOAD DMP # VREF=FACT1(1-SQRT(FACT2 D + ALP))
VREF
RDOTREF # C(RDOTREF)= LEWD (V1-VREF)
STORE RDOTREF # RDOTREF = RDOTREF - RDHOOK
-
+
CONTINU2 DLOAD DSU
D
Q7MIN
@@ -957,12 +957,12 @@ CONTINU2 DLOAD DSU
Q7
DDV STADR
STORE FACTOR # FACTOR / 25G
-
+
# Page 866
# SKIPPER
# DELTA L/D=-((RDOT-RDOTREF)F1 KB1+V-VREF)F1 KB2
# WHERE F1 = FACTOR
-
+
UPCNTRL3 DLOAD
RDOT
DSU DMP # L/D = LEWD
@@ -975,7 +975,7 @@ UPCNTRL3 DLOAD
VREF
FACTOR
DDV PUSH
-
+
-1/KB2 # DELTA L/D INTO PDL
BOV ABS # NONLINEAR CIRCUIT FOR REDUCING HIGH GAIN
GOMAXL/D
@@ -986,10 +986,10 @@ UPCNTRL3 DLOAD
POINT1
PT1/16
SIGN PUSH # ATTACH SIGN OF PUSH TO MPAC THEN PUSH
-
+
NEXT1 DLOAD SL4
# DELTA L/D FROM PDL.
-
+
DAD
LEWD
NEGTESTS BOV PUSH # L/D TO PDL FOR USE IN NEGTESTS.
@@ -1015,18 +1015,18 @@ DCONSTD DLOAD # TWO RANGER ENTRIES TO CONSTD HERE
DIFF
# SAVE OLD VALUE OF DIFF FOR NEXT PASS.
STODL DIFFOLD # DIFFOLD / 2 PI
-
+
Q7F
STORE Q7
-
+
BECONSTD SSP RTB # A HUNTEST ENTRY INTO CONSTD.
GOTOADDR # RESET MODE TO HUNTEST
HUNTEST
KILLGRP4 # DEACTIVATE GRP4 FROM HUNTEST.
-
-CONSTD BOVB
+
+CONSTD BOVB
TCDANZIG # CLEAR OVF IND IF ON.
-
+
DLOAD DMP
LEQ
C/D0 # C/D0 = -4/D0 B-8
@@ -1040,7 +1040,7 @@ CONSTD BOVB
K2D # C/D0 LEQ + K2D(RDOT-RDOTREF) INTO PD
PDDL
D0 # D0 /805
-
+
CONSTD1 BDSU # ENTER WITH DREF IN MPAC
D
DMP DAD
@@ -1048,10 +1048,10 @@ CONSTD1 BDSU # ENTER WITH DREF IN MPAC
SL GOTO
8D
NEGTESTS # (GO TO)
-
+
DOWNCNTL BOVB # INITIAL PART OF UPCONTROL.
TCDANZIG # CLEAR OVFIND, IF ON.
-
+
DLOAD SR
LAD
8D
@@ -1080,7 +1080,7 @@ DOWNCNTL BOVB # INITIAL PART OF UPCONTROL.
# PUSH UP HERE
GOTO # C(MPAC) = DREF
CONSTD1
-
+
# 2 2
# DREF = (V/V1) A0 -(V-V1) LAD/2 C1 HS
# Page 869
@@ -1090,11 +1090,11 @@ KEP RTB SSP
P66 # DISPLAY TRIM GIMBAL ANGLE VALUES.
GOTOADDR # SET GOTOADDR TO KEPLER PHASE.
KEP2
-
+
# KEP2 CAN ALSO BE STARTED UP DIRECTLY FROM INITROLL
# IN P64. PROGRAM WILL IDLE IN P64 UNTIL D EXCEEDS
# .2 G BEFORE GOING ON TO P67.
-
+
KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
Q7FKDMIN # (Q7F + KDMIN)/805
D
@@ -1116,26 +1116,26 @@ KEP2 DLOAD DSU # IF Q7F+KDMIN -D NEG, GO TO FINAL PHASE.
PREFINAL SSP RTB
GOTOADDR # RESTART PROTECT: RESET GOTOADDR IF CAME
PREFINAL # FROM HUNTEST.
- P67 # DISABLES GRP4. FINE IF FROM HUNTEST, BUT
+ P67 # DISABLES GRP4. FINE IF FROM HUNTEST, BUT
# MAY ALSO REMOVE RESTART PROTECTION OF
# N69 (P65).
# ROLLC XRNGERR DNRNGERR
# XXX.XX DEG XXXX.X NM XXXX.XX NM
-
+
SET SSP
EGSW
GOTOADDR
PREDICT3
-
+
PREDICT3 DLOAD DSU # IF V-VQUIT NEG, STOP STEERING
V
VQUIT
BMN EXIT
STEEROFF
-
+
CA EBENTRY # PRECAUTIONARY.
TS EBANK
-
+
CA TWELVE
BACK TS JJ
@@ -1147,17 +1147,17 @@ BACK TS JJ
TCF BACK
AD ONE
TS TEM1B # V-VREF IN TEM1B (MUST BE POSITIVE NUM)
-
+
INDEX JJ
CS VREFER
INDEX JJ
AD VREFER +1 # V(K+1) - V(K) (POS NUM)
XCH TEM1B
- ZL
+ ZL
EXTEND
DV TEM1B
TS GRAD # GRAD = (V-VREF)/(VK+1 - VK) (POS NUM)
-
+
CAF FIVE
# Page 871
@@ -1181,7 +1181,7 @@ BACK2 TS MM
EXTEND
MP FX +5 # F1
DXCH MPAC # MPAC = F1(D-DREF)
-
+
EXTEND
DCS RDOT # FORM RDOTREF - RDOT
DDOUBL
@@ -1196,7 +1196,7 @@ BACK2 TS MM
TS PREDANG
# L/D = LOD + (THETA- PREDANG)/ Y
TC INTPRET
-
+
SR3 DSU
THETAH
BON BOFF
@@ -1209,7 +1209,7 @@ BACK2 TS MM
GONEPAST
STCALL DNRNGERR
GONEGLAD
-
+
HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
# Page 872
DCOMP # FALLS SHORT IF NEG, OVERSHOOT IF POS
@@ -1224,17 +1224,17 @@ HAVDNRNG STORE DNRNGERR # = (PREDANG - THETA) /360
GOMAXL/D
STCALL L/D
GLIMITER # (GO TO)
-
+
# GONEGLAD AND GOPOSMAX ENTRY POINTS FOR GLIMITER ...
GONEGLAD DLOAD # SET L/D = -LAD
GONEGLAD # (ANY NEGATIVE NUMBER WILL DO)
-
+
GOMAXL/D RTB DMP L/D = LAD SIGN(MPAC)
SIGNMPAC
LAD
STORE L/D # AND FALL INTO GLIMITER SECTION
-
+
GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D
GMAX/2
D
@@ -1256,7 +1256,7 @@ GLIMITER DLOAD DSU # IF GMAX/2-D POS, GO TO LIMITL/D
DAD BPL # IF RDOT+XLIM POS, GO TO LIMITL/D
RDOT
LIMITL/D
-
+
GOPOSLAD DLOAD
LAD
STOREL/D STORE L/D
@@ -1266,7 +1266,7 @@ LIMITL/D DLOAD
L/D
STODL L/D1
VSQUARE
-
+
BON # NO LATERAL CONTROL IF PAST TARGET
GONEPAST
L355
@@ -1295,7 +1295,7 @@ L353 DLOAD SIGN # IF LATANG SIGN(K2ROLL)-Y POS, SWITCH
NOSWITCH
L355
STORE K2ROLL # K2ROLL = -K2ROLL
-
+
L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD)
L/D1
LAD # MPAC SET TO +-1 IF OVERFLOW***
@@ -1304,7 +1304,7 @@ L355 DLOAD DDV # ROLLC = ACOS( (L/D1) / LAD)
K2ROLL
NOSWITCH
STORE ROLLC
-
+
ENDEXIT EXIT
OVERNOUT CA BIT13 # ENTRYDSP =92D B13
@@ -1315,7 +1315,7 @@ OVERNOUT CA BIT13 # ENTRYDSP =92D B13
CA ENTRYVN # ALL ENTRY DISPLAYS ARE DONE HERE.
TC BANKCALL
CADR REGODSPR # NO ABORT IF DISKY IN USE
-
+
NODISKY INHINT
CCS NEWJOB # PROTECT READACCS GRP 5, IF SIDETRACKED.
TC CHANG1
@@ -1328,22 +1328,22 @@ SERVNOUT TC POSTJUMP # ( COME HERE FROM P67.3 )
STEEROFF EXIT
CA EBENTRY # PRECAUTIONARY.
TS EBANK
-
+
CA PRIO16 # 2 LESS THAN NTRYPRIO.
TC NOVAC
EBANK= AOG # ANY EB HERE
2CADR P67.1 # START UP REMAINDER OF P67
-
+
# RTOGO LAT LONG
# XXXX.X NM XXX.XX DEG XXX.XX DEG
-
+
TC 2PHSCHNG # INHINT/RELINT DONE.
OCT 00414 # 4.41 RESTART FOR P67.1 DISPLAY JOB.
OCT 10035 # SERVICER 5.3 RESTART.
-
+
CA P67.2CAD # HEREAFTER, DO LAT, LONG.
TS GOTOADDR
-
+
TC INTPRET
GOTO
P67.2CAD P67.2 # CONTINUE FOR LAT, LONG THIS TIME.
@@ -1370,7 +1370,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC .448067
DEC .456023
DEC .67918 # HIGHVELOCITY FOR SAFETY.
-
+
DEC -.010337 # DRANGE/DA SCALED DRDA/(2700/805)
DEC -.016550
DEC -.026935
@@ -1384,7 +1384,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC -.602557
DEC -.99999
DEC -.99999
-
+
DEC -.0478599 B-3 # -DRANGE/DRDOT
DEC -.0683663 B-3 # SCALED ((2VS/8 2700) DR/DRDOT)
DEC -.1343468 B-3
@@ -1413,7 +1413,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC -.0179817 B3
DEC -.0159061 B3
DEC -.0159061 B3
-
+
DEC .0008067 # RANGE TO GO SCALED RTOGO/2700
DEC .0032963 # 8.9
DEC .0081852 # 22.1
@@ -1427,7 +1427,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC .186963
DEC .238148
DEC .294185185
-
+
DEC -.051099 # -AREF/805
DEC -.074534
DEC -.101242
@@ -1456,7 +1456,7 @@ VREFER DEC .019288 # REFERENCE VELOCITY SCALED V/51532.3946
DEC .512963
DEC .558519
DEC .558519 # END OF STORED REFERENCE
-
+
# Page 879
# REENTRY CONSTANTS.
@@ -1470,9 +1470,9 @@ MAXRNG 2OCT 1663106755 # DNRNGERR = 9999.9 IF GONEPAST=1
BANK 26
SETLOC REENTRY1
BANK
-
+
COUNT* $$/ENTRY
-
+
BARELY1 = NEARONE # COMMON TO BOTH DISK,DANCE, DEFND IN TFF
#1BITDP # COMMON TO BOTH DISK AND DANCE. DEFND IN VECPOINT.
@@ -1600,9 +1600,9 @@ KALIM 2DEC .06 # 1.5/25
Q7MIN = KA4 # = 40/805 = .049689441
-HSCALED 2DEC -.55305018 # -28500/2 VS
--KSCALE 2DEC -.0312424837 # -805/VS
+-KSCALE 2DEC -.0312424837 # -805/VS
-COS15 2DEC .965
+COS15 2DEC .965
LATSLOPE EQUALS 1/12TH
# ... END OF RE-ENTRY CONSTANTS ...
diff --git a/Comanche055/RESTARTS_ROUTINE.agc b/Comanche055/RESTARTS_ROUTINE.agc
index cfe42ea..e40f82f 100644
--- a/Comanche055/RESTARTS_ROUTINE.agc
+++ b/Comanche055/RESTARTS_ROUTINE.agc
@@ -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
diff --git a/Comanche055/RT8_OP_CODES.agc b/Comanche055/RT8_OP_CODES.agc
index a4e348c..ce703b8 100644
--- a/Comanche055/RT8_OP_CODES.agc
+++ b/Comanche055/RT8_OP_CODES.agc
@@ -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
diff --git a/Comanche055/S-BAND_ANTENNA_FOR_CM.agc b/Comanche055/S-BAND_ANTENNA_FOR_CM.agc
index 53d7465..ddcd8f4 100644
--- a/Comanche055/S-BAND_ANTENNA_FOR_CM.agc
+++ b/Comanche055/S-BAND_ANTENNA_FOR_CM.agc
@@ -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
diff --git a/Comanche055/SERVICER207.agc b/Comanche055/SERVICER207.agc
index 19cc951..47506b7 100644
--- a/Comanche055/SERVICER207.agc
+++ b/Comanche055/SERVICER207.agc
@@ -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.
diff --git a/Comanche055/SERVICE_ROUTINES.agc b/Comanche055/SERVICE_ROUTINES.agc
index b6ca0d0..7d2a6a1 100644
--- a/Comanche055/SERVICE_ROUTINES.agc
+++ b/Comanche055/SERVICE_ROUTINES.agc
@@ -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
-
+
diff --git a/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc b/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc
index 28882ab..fee3fdf 100644
--- a/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc
+++ b/Comanche055/SINGLE_PRECISION_SUBROUTINES.agc
@@ -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.
diff --git a/Comanche055/STABLE_ORBIT.agc b/Comanche055/STABLE_ORBIT.agc
index b5c972c..3213d5a 100644
--- a/Comanche055/STABLE_ORBIT.agc
+++ b/Comanche055/STABLE_ORBIT.agc
@@ -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
diff --git a/Comanche055/STAR_TABLES.agc b/Comanche055/STAR_TABLES.agc
index 84012cc..d5abc2c 100644
--- a/Comanche055/STAR_TABLES.agc
+++ b/Comanche055/STAR_TABLES.agc
@@ -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
-
+
diff --git a/Comanche055/SXTMARK.agc b/Comanche055/SXTMARK.agc
index 803c053..ee15d8d 100644
--- a/Comanche055/SXTMARK.agc
+++ b/Comanche055/SXTMARK.agc
@@ -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
+
diff --git a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc
index fbff01d..91486e4 100644
--- a/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc
+++ b/Comanche055/SYSTEM_TEST_STANDARD_LEAD_INS.agc
@@ -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
-
+
diff --git a/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc b/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc
index 1644bda..579ca4e 100644
--- a/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc
+++ b/Comanche055/TAGS_FOR_RELATIVE_SETLOC.agc
@@ -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 ***
diff --git a/Comanche055/TIME_OF_FREE_FALL.agc b/Comanche055/TIME_OF_FREE_FALL.agc
index 435a83f..3192fcd 100644
--- a/Comanche055/TIME_OF_FREE_FALL.agc
+++ b/Comanche055/TIME_OF_FREE_FALL.agc
@@ -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
diff --git a/Comanche055/TPI_SEARCH.agc b/Comanche055/TPI_SEARCH.agc
index 36a7058..7179558 100644
--- a/Comanche055/TPI_SEARCH.agc
+++ b/Comanche055/TPI_SEARCH.agc
@@ -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
diff --git a/Comanche055/TVCDAPS.agc b/Comanche055/TVCDAPS.agc
index ed346ff..24000a9 100644
--- a/Comanche055/TVCDAPS.agc
+++ b/Comanche055/TVCDAPS.agc
@@ -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)
diff --git a/Comanche055/TVCEXECUTIVE.agc b/Comanche055/TVCEXECUTIVE.agc
index 09cc153..79c7e45 100644
--- a/Comanche055/TVCEXECUTIVE.agc
+++ b/Comanche055/TVCEXECUTIVE.agc
@@ -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)
diff --git a/Comanche055/TVCINITIALIZE.agc b/Comanche055/TVCINITIALIZE.agc
index 4389068..a570995 100644
--- a/Comanche055/TVCINITIALIZE.agc
+++ b/Comanche055/TVCINITIALIZE.agc
@@ -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.
diff --git a/Comanche055/TVCMASSPROP.agc b/Comanche055/TVCMASSPROP.agc
index 3847483..2e87881 100644
--- a/Comanche055/TVCMASSPROP.agc
+++ b/Comanche055/TVCMASSPROP.agc
@@ -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*
diff --git a/Comanche055/TVCRESTARTS.agc b/Comanche055/TVCRESTARTS.agc
index 6dd4916..e62a4f2 100644
--- a/Comanche055/TVCRESTARTS.agc
+++ b/Comanche055/TVCRESTARTS.agc
@@ -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
-
+
diff --git a/Comanche055/TVCROLLDAP.agc b/Comanche055/TVCROLLDAP.agc
index ca8f391..15396f2 100644
--- a/Comanche055/TVCROLLDAP.agc
+++ b/Comanche055/TVCROLLDAP.agc
@@ -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
diff --git a/Comanche055/TVCSTROKETEST.agc b/Comanche055/TVCSTROKETEST.agc
index cd5732a..5c4959b 100644
--- a/Comanche055/TVCSTROKETEST.agc
+++ b/Comanche055/TVCSTROKETEST.agc
@@ -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)
-
+
diff --git a/Comanche055/UPDATE_PROGRAM.agc b/Comanche055/UPDATE_PROGRAM.agc
index efb8d15..9c4702f 100644
--- a/Comanche055/UPDATE_PROGRAM.agc
+++ b/Comanche055/UPDATE_PROGRAM.agc
@@ -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
-
+
diff --git a/Comanche055/WAITLIST.agc b/Comanche055/WAITLIST.agc
index facf8da..72abde0 100644
--- a/Comanche055/WAITLIST.agc
+++ b/Comanche055/WAITLIST.agc
@@ -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
diff --git a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc
index d5d22b1..b22fba2 100644
--- a/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc
+++ b/Luminary099/AGC_BLOCK_TWO_SELF_CHECK.agc
@@ -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
diff --git a/Luminary099/AGS_INITIALIZATION.agc b/Luminary099/AGS_INITIALIZATION.agc
index e963aee..dc74ee4 100644
--- a/Luminary099/AGS_INITIALIZATION.agc
+++ b/Luminary099/AGS_INITIALIZATION.agc
@@ -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
diff --git a/Luminary099/ALARM_AND_ABORT.agc b/Luminary099/ALARM_AND_ABORT.agc
index e0b74ff..6703141 100644
--- a/Luminary099/ALARM_AND_ABORT.agc
+++ b/Luminary099/ALARM_AND_ABORT.agc
@@ -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
-
+
diff --git a/Luminary099/AOSTASK_AND_AOSJOB.agc b/Luminary099/AOSTASK_AND_AOSJOB.agc
index 3e0dba1..7934b75 100644
--- a/Luminary099/AOSTASK_AND_AOSJOB.agc
+++ b/Luminary099/AOSTASK_AND_AOSJOB.agc
@@ -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
-
+
diff --git a/Luminary099/AOTMARK.agc b/Luminary099/AOTMARK.agc
index 047f614..74ef793 100644
--- a/Luminary099/AOTMARK.agc
+++ b/Luminary099/AOTMARK.agc
@@ -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
-
+
diff --git a/Luminary099/ASCENT_GUIDANCE.agc b/Luminary099/ASCENT_GUIDANCE.agc
index dcdee44..20f89da 100644
--- a/Luminary099/ASCENT_GUIDANCE.agc
+++ b/Luminary099/ASCENT_GUIDANCE.agc
@@ -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
diff --git a/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc b/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
index 00d1a1c..dfb9a13 100644
--- a/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
+++ b/Luminary099/ASSEMBLY_AND_OPERATION_INFORMATION.agc
@@ -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
diff --git a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc
index 05e18b9..2faaf0f 100644
--- a/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc
+++ b/Luminary099/ATTITUDE_MANEUVER_ROUTINE.agc
@@ -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
-
+
diff --git a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
index 2e92de3..41ddb23 100644
--- a/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
+++ b/Luminary099/BURN_BABY_BURN--MASTER_IGNITION_ROUTINE.agc
@@ -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
diff --git a/Luminary099/CONIC_SUBROUTINES.agc b/Luminary099/CONIC_SUBROUTINES.agc
index bbce75c..b24afbe 100644
--- a/Luminary099/CONIC_SUBROUTINES.agc
+++ b/Luminary099/CONIC_SUBROUTINES.agc
@@ -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
diff --git a/Luminary099/CONTROLLED_CONSTANTS.agc b/Luminary099/CONTROLLED_CONSTANTS.agc
index c39fe07..4fb77e0 100644
--- a/Luminary099/CONTROLLED_CONSTANTS.agc
+++ b/Luminary099/CONTROLLED_CONSTANTS.agc
@@ -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
diff --git a/Luminary099/DAPIDLER_PROGRAM.agc b/Luminary099/DAPIDLER_PROGRAM.agc
index fb42a73..672cb08 100644
--- a/Luminary099/DAPIDLER_PROGRAM.agc
+++ b/Luminary099/DAPIDLER_PROGRAM.agc
@@ -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
diff --git a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
index 23af0cc..e444b1a 100644
--- a/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
+++ b/Luminary099/DAP_INTERFACE_SUBROUTINES.agc
@@ -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
diff --git a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
index 402a4e7..912c3d0 100644
--- a/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
+++ b/Luminary099/DISPLAY_INTERFACE_ROUTINES.agc
@@ -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 --
diff --git a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
index 74ccad5..c62904d 100644
--- a/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
+++ b/Luminary099/DOWN_TELEMETRY_PROGRAM.agc
@@ -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
-
+
diff --git a/Luminary099/ERASABLE_ASSIGNMENTS.agc b/Luminary099/ERASABLE_ASSIGNMENTS.agc
index 9ab2e1e..a466652 100644
--- a/Luminary099/ERASABLE_ASSIGNMENTS.agc
+++ b/Luminary099/ERASABLE_ASSIGNMENTS.agc
@@ -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.
diff --git a/Luminary099/EXECUTIVE.agc b/Luminary099/EXECUTIVE.agc
index 06a3090..9b239ad 100644
--- a/Luminary099/EXECUTIVE.agc
+++ b/Luminary099/EXECUTIVE.agc
@@ -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
diff --git a/Luminary099/EXTENDED_VERBS.agc b/Luminary099/EXTENDED_VERBS.agc
index 749e0b3..cdad18f 100644
--- a/Luminary099/EXTENDED_VERBS.agc
+++ b/Luminary099/EXTENDED_VERBS.agc
@@ -13,7 +13,7 @@
# 2009-06-05 RSB Corrected 5 typos.
# 2009-06-06 RSB Eliminated an extraneous 3-instruction block
# and added a missing instruction.
-# 2009-06-07 RSB Added a couple of "SBANK=" for compatibility
+# 2009-06-07 RSB Added a couple of "SBANK=" for compatibility
# with yaYUL. Corrected a typo.
# 2010-12-31 JL Fixed page number comments.
# 2011-01-06 JL Added missing comment characters.
@@ -32,22 +32,22 @@
# 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 262
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 OR 72 ONLY)
TC VBCOARK # VB41 COARSE ALIGN (USED WITH NOUN 20 OR
# 72 ONLY)
@@ -111,7 +111,7 @@ VERB69 TC VERB69 # VB69 FORCE A HARDWARE RESTART
TC GOLOADLV # VB97 PLEASE VERIFY ENGINE FAILURE
TC ALM/END # VB98 SPARE
TC GOLOADLV # VB99 PLEASE ENABLE ENGINE
-
+
# END OF EXTENDED VERB FAN
TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
@@ -123,10 +123,10 @@ TESTXACT CCS EXTVBACT # ARE EXTENDED VERBS BUSY
CAF OCT24 # SET 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
@@ -134,7 +134,7 @@ SETXTACT TS EXTVBACT # NO. SET FLAG TO SHOW EXT VERB DISPLAY
XACTALM TC FALTON # TURN ON OPERATOR ERROR LIGHT.
TC ENDEXT # RELEASE MARK AND EXT. VERB DISPLAY SYS.
-
+
TERMEXTV EQUALS ENDEXT
# Page 264
ENDEXTVB EQUALS ENDEXT
@@ -145,12 +145,12 @@ XACT0 CAF ZERO # RELEASE MARK AND EXT. VERB DISPLAY SYS.
ALM/END TC FALTON # TURN ON OPERATOR ERROR LIGHT
GOPIN TC POSTJUMP
CADR PINBRNCH
-
+
CHKP00H CA MODREG # CHECK FOR P00 OR P00-.
EXTEND
BZF TCQ
TC ALM/END
-
+
OC24100 OCT 24100
# Page 265
@@ -170,22 +170,22 @@ VBZERO TC OP/INERT
IMUZEROK TC CKMODCAD
TC BANKCALL # KEYBOARD REQ FOR ISS CDUZERO
CADR IMUZERO
-
+
TC BANKCALL # STALL
CADR IMUSTALL
TC +1
-
+
TC GOPIN # IMUZERO
-
+
RRZEROK TC RDRUSECK
TC BANKCALL
CADR RRZERO
-
+
RWAITK TC BANKCALL
CADR RADSTALL
TCF +1
TC GOPIN # RRZERO
-
+
# LRPOS2K VERB 60 DESCRIPTION
# COMMAND LANDING RADAR TO POSITION 2
#
@@ -212,13 +212,13 @@ LRP2ALM TC ALARM
DAPATTER TC DOWNFLAG
ADRES NEEDLFLG
TC GOPIN
-
+
# V62 VERB 62, DISPLAY TOTAL ATTITUDE ERRORS ON FDAI ATTITUDE ERROR NEEDLES.
TOTATTER TC UPFLAG
ADRES NEEDLFLG
TC GOPIN
-
+
# Page 267
# VBCOARK VERB 41 DESCRIPTION
# COARSE ALIGN IMU OR RADAR
@@ -265,7 +265,7 @@ TOTATTER TC UPFLAG
VBCOARK TC OP/INERT
TC IMUCOARK # RETURN HERE IF NOUN = ICDU (20)
TC RRDESNBK # RETURN HERE IF NOUN = RCDU (72)
-
+
# RETURNS TO L+1 IF IMU OR L+2 IF RR.
OP/INERT CS OCT24
@@ -273,13 +273,13 @@ OP/INERT CS OCT24
EXTEND
# Page 268
BZF TCQ # IF = 20.
-
+
AD RRIMUDIF # -52
EXTEND
BZF Q+1
-
+
TC ALM/END # ILLEGAL.
-
+
RRIMUDIF DEC -52 # THE IMU
IMUCOARK TC CKMODCAD
TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
@@ -288,19 +288,19 @@ IMUCOARK TC CKMODCAD
CADR GOXDSPF
TC TERMEXTV
TCF +1
-
+
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
@@ -317,33 +317,33 @@ RRDESNBK TC RDRUSECK
INHINT # RELINT DONE IN GOXDSPF
MASK RADMODES
TS RADMODES
-
+
CAF VNLDRCDU # ASK FOR GIMBAL ANGLES.
TC BANKCALL
CADR GOXDSPF
TC TERMEXTV
TCF -4 # V33
-
+
TC BANKCALL # ASK OP FOR LOCK ON REQUIREMENTS.
CADR AURLOKON
-
+
CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
TC BANKCALL
CADR EXDSPRET
-
+
CAF PRIO20
TC FINDVAC
EBANK= LOSCOUNT
2CADR RRDESK2
-
+
TCF TERMEXTV # FREES DISPLAY
-
+
VNLDRCDU VN 2473
OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
RRDESK2 TC BANKCALL
CADR RRDESNB
-
+
TC +1 # DUMMY NEEDED SINCE DESRETRN DOES INCR
CA PRIORITY
MASK LOW9
@@ -361,7 +361,7 @@ RRDESK2 TC BANKCALL
OCT 503 # TURN ON ALARM LIGHT -- 503 DESIGNATE FAIL
TC ENDOFJOB
-
+
RRDESEND CCS RADMODES # TERMINATE CONTINOUS DESIGNATE ONLY
TCF GOPIN
TCF GOPIN
@@ -384,14 +384,14 @@ OCT41000 OCT 41000 # CONTINOUS DESIGNATE -- DESIGNATE
SETLOC EXTVB1
BANK
COUNT* $$/EXTVB
-
+
AURLOKON TC MAKECADR
TS DESRET
CAF TWO
TS OPTIONX +1
CAF SIX # OPTION CODE FOR V04N12
TS OPTIONX
-
+
-5 CAF V04N1272
TC BANKCALL # R2 00001 LOCK-ON
CADR GOMARKFR
@@ -401,7 +401,7 @@ AURLOKON TC MAKECADR
CAF BIT3
TC BLANKET
TC ENDOFJOB
-
+
+5 CA OPTIONX +1
MASK BIT2
CCS A
@@ -409,7 +409,7 @@ AURLOKON TC MAKECADR
TC UPFLAG
ADRES LOKONSW
TCF AURLKON1
-
+
NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO
ADRES LOKONSW # INDICATE THAT CONTINUOUS DESIGNATION IS
TC UPFLAG # WANTED (TO BE TERMINATED BY V44.)
@@ -419,7 +419,7 @@ NOLOKON TC DOWNFLAG # IF NO LOCK-ON, SET BIT15 OF RADMADES TO
AURLKON1 RELINT
CA DESRET
TCF BANKJUMP
-
+
V04N1272 VN 412
-LOKONFG OCT -20
@@ -437,7 +437,7 @@ LRON TC UPFLAG # PERMIT INCORPORATION OF LR DATA V57
LROFF TC DOWNFLAG # INHIBIT INCORPORATION OF LR DATA V58
ADRES LRINH
TCF GOPIN
-
+
EBANK= OGC
# Page 273
@@ -467,27 +467,27 @@ IMUFINEK TC CKMODCAD
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
@@ -504,7 +504,7 @@ IMUFINEV VN 4200
# 2. THE EXECUTION OF A VERB 33 (PROCEED WITHOUT DATA) INDICATES THE REQUESTED ACTION IS NOT DESIRED.
SBANK= PINSUPER # FOR LOADLV1 AND SHOWSUM CADR'S
-
+
GOLOADLV TC FLASHOFF
CAF PINSUPBT
@@ -512,7 +512,7 @@ GOLOADLV TC FLASHOFF
WRITE SUPERBNK
TC POSTJUMP
CADR LOADLV1
-
+
# VERB 47 -- AGS INITIALIZATION -- R47.
#
# SEE LOG SECTION AGS INITIALIZATION FOR OTHER PERTINENT REMARKS.
@@ -522,17 +522,17 @@ V47TXACT TC TESTXACT # NO OTHER EXTVERB.
TC FINDVAC
## [WORKAROUND] RSB 2009
SBANK= LOWSUPER
-## [WORKAROUND]
+## [WORKAROUND]
EBANK= AGSBUFF
2CADR AGSINIT
-
+
TC ENDOFJOB
-
+
CKMODCAD CA MODECADR
EXTEND
BZF TCQ
TC ALM/END # SOMEBODY IS USING MODECADR SO EXIT
-
+
# Page 275
# ALINTIME VERB 55 DESCRIPTION
# REQUIRE P00 OR P00-.
@@ -542,16 +542,16 @@ CKMODCAD CA MODECADR
# 3. REQUIRE EXECUTION OF VERB 23.
# 4. ADD DELTA TIME, RECEIVED FROM INPUT REGISTER, TO THE COMPUTER TIME.
# 5. RELEASE EXT VERB DISPLAY SYSTEM
-
+
ALINTIME TC TESTXACT
TC POSTJUMP # NO ROOM IN 43
CADR R33
-
+
BANK 42
SETLOC SBAND
BANK
COUNT* $$/R33
-
+
R33 CAF PRIO7
TC PRIOCHNG
CAF VNLODDT
@@ -564,7 +564,7 @@ R33 CAF PRIO7
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
@@ -573,7 +573,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
@@ -590,11 +590,11 @@ VNLODDT VN 2524 # V25N24 FOR LOAD DELTA TIME
BANK 42
SETLOC EXTVERBS
BANK
-
+
EBANK= RSTACK
-
+
COUNT* $$/R0477
-
+
R77 TC RDRUSECK # TRY TO AVOID THE 1210.
CA FLAGWRD3 # IS R04 RUNNING?
MASK R04FLBIT
@@ -603,12 +603,12 @@ R77 TC RDRUSECK # TRY TO AVOID THE 1210.
TC UPFLAG
ADRES R77FLAG
TCF R04Z
-
+
R04 TC RDRUSECK # TRY TO AVOID THE 1210.
TC TESTXACT
TC UPFLAG
ADRES R04FLAG # SET R04FLAG FOR ALARMS
-
+
R04Z CAF EBANK4
TS EBANK
CAF 1SEC+1 # SAMPLE ONCE PER SECOND
@@ -616,7 +616,7 @@ R04Z CAF EBANK4
CAF ZERO
TS RTSTLOC
TS RFAILCNT # ZERO BAD SAMPLE COUNTER
-
+
INHINT
CS LRPOSCAL # INITIALIZE
MASK RADMODES # BIT 9 LR RANGE LOW SCALE =0
@@ -626,16 +626,16 @@ R04Z CAF EBANK4
RAND CHAN33
ADS RADMODES
RELINT
-
+
CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
MASK R04FLBIT
CCS A
TCF R04K
-
+
CAF ONE # INDICATES RENDEZVOUS DESIRED
TS OPTIONX +1
R04A CAF BIT3 # OPTION CODE FOR V04N12
-
+
# Page 277
TS OPTIONX
CAF V04N12X
@@ -647,22 +647,22 @@ R04A CAF BIT3 # OPTION CODE FOR V04N12
CAF BIT3
TC BLANKET
TC ENDOFJOB
-
+
CA OPTIONX +1 # SAVE DESIRED OPTION RR =1 LR =2
TS RTSTDEX
-
+
R04X CAF SIX # RR OR LR DESIRED
MASK RTSTDEX
CCS A
TCF R04L # LANDING RADAR
TS RTSTBASE # FOR RR BASE =0, MAX =1
-
+
R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
EXTEND
RAND CHAN33
EXTEND
BZF R04C # YES
-
+
CAF 201R04 # REQUEST SELECTION OF RR AUTO MODE
TS DSPTEM1
CAF V50N25X
@@ -671,62 +671,62 @@ R04B CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
TCF R04END # V34
TCF R04B # V33
TCF -7 # E
-
+
R04C CAF BIT14 # ENABLE RR AUTO TRACKER
EXTEND
WOR CHAN12
-
+
CAF TWO
TS RTSTMAX # FOR SEQUENTIAL STORAGE
-
+
TC WAITLIST
## [WORKAROUND] RSB 2009
SBANK= PINSUPER
-## [WORKAROUND]
+## [WORKAROUND]
EBANK= RSTACK
2CADR RADSAMP
-
+
RELINT
-
+
CS FLAGWRD3 # CHECK R04FLAG R04 =1 R77 =0
MASK R04FLBIT
# Page 278
CCS A
TCF GOPIN # R77
-
+
CAF SIX # RR OR LR
MASK RTSTDEX
CCS A
TCF R04LR # LR
-
+
R04RR CAF V16N72 # DISPLAY RR CDU ANGLES (1/SEC)
TC BANKCALL # R1 + XXX.XX DEG TRUNNION
CADR GOMARKF # R2 + XXX.XX DEG SHAFT
TCF R04END # V34 R3 BLANK
TCF +2 # V33
TCF R04RR # V32
-
+
CAF V16N78 # DISPLAY RR RANGE AND RANGE RATE (1/SEC)
TC BANKCALL # R1 +- XXX.XX NM RANGE
CADR GOMARKF # R2 +- XXXXX. FPS RANGE RATE
TCF R04END # V34 R3 BLANK
TCF R04Y # V33
TCF R04RR # V32
-
+
R04LR CAF V16N66 # DISPLAY LR RANGE AND POSITON (1/SEC)
TC BANKCALL # R1 +- XXXXX, FT LR RANGE
CADR GOMARKF # R2 + 0000X. POS. NO.
TCF R04END # V34 R3 BLANK
TCF +2 # V33
TCF R04LR # V32
-
+
CAF V16N67 # DISPLAY LR VELX, VELY, VELZ (1/SEC)
TC BANKCALL # R1 +- XXXXX. FPS LR V(X)
CADR GOMARKF # R2 +- XXXXX. FPS LR V(Y)
TCF R04END # V34 R3 +- XXXXX. FPS LR V(Z)
TCF R04Y # V33
TCF R04LR # V32
-
+
R04Y CAF ZERO # TO TERMINATE SAMPLING.
TS RSAMPDT
CAF 2SECS # WAIT FOR LAST RADARUP
@@ -743,11 +743,11 @@ R04Y CAF ZERO # TO TERMINATE SAMPLING.
AD TWO # WAS RR
# Page 279
- TCF R04X -1
-
+ TCF R04X -1
+
R04K CAF 250MS+1 # SAMPLE 4 LR COMPONENTS PER SECOND.
TS RSAMPDT
-
+
R04L CAF TWO
TS RTSTBASE # FOR LR BASE =2, MAX =3
CAF SIX
@@ -757,7 +757,7 @@ R04END CAF ZERO # ZERO RSAMPDT
CAF BIT8 # WAIT 1.28 SECONDS FOR POSSIBLE
TC BANKCALL # PENDING RUPT.
CADR DELAYJOB
-
+
INHINT
CS BIT14 # DISABLE RR AUTO TRACKER.
EXTEND
@@ -765,7 +765,7 @@ R04END CAF ZERO # ZERO RSAMPDT
TC DOWNFLAG
ADRES R04FLAG # SIGNAL END OF R04.
-
+
TC ENDEXT
R77END CAF EBANK4 # TO TERMINATE SAMPLING
@@ -775,11 +775,11 @@ R77END CAF EBANK4 # TO TERMINATE SAMPLING
CAF BIT6 # WAIT 320 MS FOR POSSIBLE
TC BANKCALL # PENDING RUPT.
CADR DELAYJOB
-
+
TC DOWNFLAG
ADRES R77FLAG
TCF GOPIN
-
+
V16N72 VN 1672
V16N78 VN 1678
V16N66 VN 1666
@@ -827,15 +827,15 @@ DEC22 DEC 22
COUNT* $$/EXTVB
-VB64 TC CHKP00H # DEMAND PROGRAM 00.
+VB64 TC CHKP00H # DEMAND PROGRAM 00.
TC TESTXACT # IF DISPLAY SYS. NOT BUSY MAKE IT BUSY.
CAF PRIO4
TC FINDVAC
EBANK= ALPHASB
2CADR SBANDANT # CALC., DISPLAY S-BAND ANTENNA ANGLES.
-
+
TC ENDOFJOB
-
+
# Page 281
# IMUATTCK VERB 43 DESCRIPTION
# LOAD IMU ATTITUDE ERROR METERS
@@ -853,7 +853,7 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS
RAND CHAN12
CCS A
TCF ALM/END # NOT ALLOWED IF IMU COARSE OR IMU ZERO ON
-
+
CAF BIT13-14 # BOTH BITS 13 AND 14 MUST BE 1
EXTEND # INDICATING THE MODE SELECTED IS OFF.
RXOR CHAN31
@@ -861,9 +861,9 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS
EXTEND
BZF +2 # NEEDLES IS OFF.
TCF ALM/END # EXIT. NEEDLES IS ON.
-
+
TC TESTXACT
-
+
CAF VNLODCDU
TC BANKCALL
CADR GOXDSPF
@@ -879,13 +879,13 @@ IMUATTCK TC CHKP00H # VB 76 -- LOAD IMU ATT. ERROR METERS
TC WAITLIST # PUT OUT COMMANDS IN .32 SECONDS.
EBANK= THETAD
2CADR ATTCK2
-
+
TCF ENDEXT
-
+
BANK 42
SETLOC PINBALL3 # SOMETHING IN B42.
BANK
-
+
COUNT* $$/EXTVB
# Page 282
ATTCK2 CAF TWO # PUT OUT COMMANDS.
@@ -898,20 +898,20 @@ ATTCK2 CAF TWO # PUT OUT COMMANDS.
XCH CDUXCMD
CCS Q
TCF ATTCK2 +1
-
+
CAF 13,14,15
EXTEND
WOR CHAN14
TCF TASKOVER # LEAVE ERROR COUNTERS ENABLED.
-
+
ATTSCALE DEC 0.1
BANK 7
SETLOC EXTVERBS
BANK
-
+
COUNT* $$/EXTVB
-
+
V43K VN 4300
# V82PERF VERB82 DESCRIPTION
@@ -925,7 +925,7 @@ V43K VN 4300
# CALLS SR30.1 (WHICH CALLS TFFCONMU + TFFRP/RA) TO CALCULATE
# 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.
@@ -949,7 +949,7 @@ V82PERF TC TESTXACT
EXTEND
DCA V82CON
TC SUPDXCHZ # V82CALL IN DIFF SUPERBANK FROM V82PERF
-
+
EBANK= HAPO
V82CON 2CADR V82CALL
@@ -969,11 +969,11 @@ V83PERF TC TESTXACT
TC WAITLIST
EBANK= TSTRT
2CADR R31CALL
-
+
TC ENDOFJOB
-
+
# VERB 89 DESCRIPTION RENDEZVOUS FINAL ATTITUDE ROUTINE (R63)
-#
+#
# CALLED BY VERB 89 ENTER DURING P00. PRIO 10 IS USED. CALCULATES AND
# DISPLAYS FINAL FDAI BALL ANGLES TO POINT LM +X OR +Z AXIS AT CSM.
#
@@ -1008,9 +1008,9 @@ V89PERF TC CHKP00H
TC FINDVAC
EBANK= RONE
2CADR V89CALL
-
+
TC ENDOFJOB
-
+
# V90PERF VERB 90 DESCRIPTION
# REQUEST RENDEZVOUS OUT-OF-PLANE DISPLAY (R36)
#
@@ -1028,9 +1028,9 @@ V90PERF TC TESTXACT
TC FINDVAC
EBANK= RPASS36
2CADR R36
-
+
TCF ENDOFJOB
-
+
# MINIMP VERB 76 DESCRIPTION
# MINIMUM IMPULSE MODE
#
@@ -1041,7 +1041,7 @@ MINIMP INHINT
MASK PULSES # PULSES = 1 INDICATES MIN IMP MODE
ADS DAPBOOLS
TCF GOPIN # RETURN VIA PINBRNCH
-
+
# NOMINIMP VERB 77 DESCRIPTION
# RATE COMMAND MODE
@@ -1059,7 +1059,7 @@ NOMINIMP INHINT
TC IBNKCALL
CADR ZATTEROR
TC GOPIN
-
+
# Page 286
# CREMANU VERB 49 DESCRIPTION
# START AUTOMATIC ATTITUDE MANEUVER
@@ -1081,16 +1081,16 @@ NOMINIMP INHINT
# 1. REPEAT FLASHING V06,N22.
CREWMANU TC CHKP00H # DEMAND P00
-
+
TC TESTXACT
-
+
CAF PRIO10
TC FINDVAC
EBANK= BCDU
2CADR R62DISP
-
+
TC ENDOFJOB
-
+
# Page 287
# TRMTRACK VERB 56 DESCRIPTION
# TERMINATE TRACKING (P20 AND P25).
@@ -1108,62 +1108,62 @@ TRMTRACK CA BITS9+7 # IS REND OR P25 FLAG ON
MASK FLAGWRD0
EXTEND
BZF GOPIN # NO
-
+
TC DOWNFLAG
ADRES RNDVZFLG
TC DOWNFLAG
ADRES P25FLAG
-
+
TC DOWNFLAG # ENSURE SEARCH FLAG IS OFF
ADRES SRCHOPTN
-
+
CA TRACKBIT # IS TRACK FLAG ON?
MASK FLAGWRD1
EXTEND
BZF GOPIN
-
+
TC POSTJUMP
CADR TRMTRAK1
-
+
BITS9+7 OCT 500
SETLOC SBAND # BANK 42
BANK
-
+
COUNT* $$/EXTVB
-
-TRMTRAK1 TC DOWNFLAG
+
+TRMTRAK1 TC DOWNFLAG
ADRES UPDATFLG # UPDATE FLAG DOWN
TC DOWNFLAG
ADRES TRACKFLG # TRACK FLAG DOWN
TC DOWNFLAG
ADRES IMUSE
-
+
TC INTPRET
- CALL
+ CALL
INTSTALL # DON'T INTERRUPT INTEGRATION
# Page 288
EXIT
-
+
TC PHASCHNG
OCT 2 # KILL GROUP 2 TO HALT P20 ACTIVITY
-
+
INHINT
TC IBNKCALL # ZERO THE COMMANDED RATES TO STOP
CADR STOPRATE # MANEUVER
-
+
TC IBNKCALL
CADR RESTORDB
-
+
TC CLRADMOD # CLEAR BITS 10 + 15 OF RADMODES.
-
+
CS BIT14 # DISABLE LOCKON
EXTEND
WAND CHAN12
TC POSTJUMP
CADR GOPROG2 # CAUSE RESTART.
-
+
# DNEDUMP VERB 74 DESCRIPTION
# INITIALZE DOWN-TELEMETRY PROGRAM FOR ERASABLE MEMORY DUMP.
#
@@ -1190,9 +1190,9 @@ LDNDUMPI REMADR DNDUMPI
LEMVEC TC DOWNFLAG
ADRES VEHUPFLG # VB 80 -- VEHUPFLG DOWN INDICATES LEM
-
+
TC NOUPDOWN
-
+
# CSMVEC VERB 81 DESCRIPTION
# UPDATE CSM STATE VECTOR
# Page 289
@@ -1200,19 +1200,19 @@ LEMVEC TC DOWNFLAG
CSMVEC TC UPFLAG
ADRES VEHUPFLG # VB 81 -- VEHUPFLG UP INDICATES CSM
-
+
NOUPDOWN TC DOWNFLAG
ADRES NOUPFLAG
-
+
TCF GOPIN
-
+
# UPDATOFF VERB 95 DESCRIPTION
# INHIBIT STATE VECTOR UPDATES BY INCORP
# SET NOUPFLAG TO 1
UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
ADRES NOUPFLAG
-
+
TC GOPIN
# Page 290
# SYSTEST VERB 92 DESCRIPTION
@@ -1222,28 +1222,28 @@ UPDATOFF TC UPFLAG # VB 95 SET NOUPFLAG
# 2. SET EXT VERB BUSY FLAG.
EBANK= QPLACE
-
+
SYSTEST TC CHKP00H # DEMAND P00
TC TESTXACT
-
+
CAF PRIO22
TC FINDVAC
EBANK= QPLACE
SBANK= IMUSUPER
2CADR REDO
-
+
TC ENDOFJOB
-
+
# VERB 93 CLEAR RENDWFLG, CAUSES W-MATRIX TO BE RE-INITIALIZED.
WMATRXNG INHINT
CS RENDWBIT
MASK FLAGWRD5
TS FLAGWRD5
-
+
TC GOPIN
-
+
GOSHOSUM EQUALS SHOWSUM
SHOWSUM TC CHKP00H # *
@@ -1271,14 +1271,14 @@ NOKILL CA ADRS1 # *
TC NOKILL # *
CA SELFADRS
TS SKEEP1
-
+
TC ENDEXT # *
VNCON VN 501 # *
ENDSUMS CA SKEEP6 # *
EXTEND # *
BZF SELFCHK # * ROPECHK, START SELFCHK AGAIN.
TC STSHOSUM # * START SHOWSUM AGAIN.
-
+
# Page 292
# DAPDISP VERB 48 DESCRIPTION
# LOAD AUTO PILOT DATA
@@ -1292,15 +1292,15 @@ DAPDISP TC TESTXACT
TC PRIOCHNG
TC POSTJUMP
CADR DAPDATA1
-
+
BANK 34
SETLOC LOADDAP
BANK
-
+
COUNT* $$/R03
-
+
SBANK= LOWSUPER # FOR SUBSEQUENT LOW 2CADR'S
-
+
DAPDATA1 CAF BOOLSMSK # SET DISPLAY ACCORDING TO DAPBOOLS BITS.
MASK DAPBOOLS # LM
TS DAPDATR1 # LM
@@ -1328,7 +1328,7 @@ MSKDATR1 MASK DSPLYMSK
FORCEONE CAF BIT13
ADS DAPDATR1
TCF MSKDATR1
-
+
DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
CS APSFLBIT # ON BASIS OF DISPLAYED DAPDATR1.
MASK FLGWRD10
@@ -1373,7 +1373,7 @@ DPDAT1 INHINT # INHINT FOR SETTING OF FLAG BITS AND MASS
TS RATEINDX # ARE DP
TC POSTJUMP
CADR STIKLOAD
-
+
V01N46 VN 0146
DSPLYMSK OCT 33113
BOOLSMSK OCT 13113
@@ -1381,9 +1381,9 @@ BOOLSMSK OCT 13113
BANK 01
SETLOC LOADDAP1
BANK
-
+
COUNT* $$/R03
-
+
STIKLOAD CAF EBANK6
# Page 294
TS EBANK
@@ -1407,7 +1407,7 @@ STIKLOAD CAF EBANK6
CA -0.3D/S # CSM-DOCKED BREAKOUT LEVEL IS .3 D/S.
TS -RATEDB
RELINT # PROCEED TO NOUN 47, MASS LOAD.
-
+
DAPDATA2 CAF V0647
TC BANKCALL
CADR GOXDSPFR
@@ -1447,11 +1447,11 @@ LEMALONE AD LEMMASS # LEM ALONE: MASS = LEMMASS
TC IBNKCALL # SET DEADBANK AND COMPUTE MOMENTS OF
CADR RESTORDB # INERTIA.
RELINT # PROCEED TO NOUN 48 (OR END).
-
+
DAPDATA3 CS FLGWRD10
MASK APSFLBIT
EXTEND # END ROUTINE IF LEM HAS STAGED.
- BZF ENDEXT
+ BZF ENDEXT
CAF V06N48 # DISPLAY TRIM ANGLES AND REQUEST RESPONSE
TC BANKCALL
CADR GOXDSPFR
@@ -1466,7 +1466,7 @@ DPDAT3 CAF BIT1 # GO TO TRIMGIMB VIA WAITLIST SO IT
TC WAITLIST
EBANK= ROLLTIME
2CADR TRIMGIMB
-
+
TCF ENDOFJOB # DOES A RELINT
TRIMDONE CAF V50N48
TC BANKCALL # TRIM IS FINISHED; PLEASE TERMINATE R03
@@ -1477,7 +1477,7 @@ TRIMDONE CAF V50N48
CAF OCT24 # BIT5 TO CHANGE TO PERFORM, 3 TO BLANK 43
TC BLANKET
TCF ENDOFJOB
-
+
V0647 VN 0647
V06N48 VN 0648
@@ -1501,19 +1501,19 @@ FINE DEC .165054 # FINE STICK SCALING (4 D/S).
BANK 7
SETLOC EXTVERBS
BANK
-
+
COUNT* $$/EXTVB
-
+
EBANK= RRECTHIS
ATTACHED CAF PRIO10
TC FINDVAC
EBANK= RRECTHIS
-
+
2CADR ATTACHIT
-
+
TC ENDOFJOB
-
+
ATTACHIT TC INTPRET
CALL
INTSTALL
@@ -1528,7 +1528,7 @@ ATTACHIT TC INTPRET
TC GENTRAN
ADRES RRECTHIS # OUR STATE VECTOR INTO OTHER VIA GENTRAN
ADRES RRECTOTH
-
+
RELINT
TC INTPRET
CALL # UPDATE R-OTHER, V-OTHER
@@ -1537,18 +1537,18 @@ ATTACHIT TC INTPRET
PBODY
SVDWN1
EXIT
-
+
CAF TCPINAD
INDEX FIXLOC
TS QPRET
TC POSTJUMP
CADR INTWAKE # FREE INTEGRATION AND EXIT.
-# Page 298
+# Page 298
TCPIN RTB
PINBRNCH
-
+
OCT51 OCT 51
TCPINAD CADR TCPIN
@@ -1560,11 +1560,11 @@ TCPINAD CADR TCPIN
VERB96 TC UPFLAG # QUITFLAG WILL CAUSE INTEGRATION TO EXIT
ADRES QUITFLAG # AT NEXT TIMESTEP
-
+
CAF ZERO
TC POSTJUMP
CADR V37 # GO TO P00
-
+
# VERB 67: DISPLAY OF W MATRIX
V67 TC TESTXACT
@@ -1572,26 +1572,26 @@ V67 TC TESTXACT
TC FINDVAC
EBANK= WWPOS
2CADR V67CALL
-
+
TC ENDOFJOB
-
+
# VERB 65 DISABLE U,V JETS DURING DPS BURNS
SNUFFOUT TC UPFLAG
ADRES SNUFFER
TC GOPIN
-
+
# VERB 75 ENABLE U,V JETS DURING DPS BURNS
OUTSNUFF TC DOWNFLAG
ADRES SNUFFER
TC GOPIN
-
+
# VERB 85 DISPLAY RR LOS AZIMUTH AND ELEVATION.
#
# AZIMUTH IS THE ANGLE BETWEEN THE LOS AND THE X-Z NB PLANE, 0-90 DEG IN THE +Y HEMISPHERE,
# 360-270 DEG IN THE -Y HEMISPHERE.
-#
+#
# ELEVATION IS THE ANGLE BETWEEN +ZNB AND THE PROJECTION OF THE LOS INTO THE X-Z PLANE, 0-360 ABOUT +Y.
EBANK= RR-AZ
@@ -1601,17 +1601,17 @@ VERB85 TC TESTXACT
TC POSTJUMP
CADR DSPRRLOS
-
+
SETLOC PINBALL1
BANK
-
+
COUNT* $$/EXTVB
-
+
DSPRRLOS CAF PRIO5
TC FINDVAC
EBANK= RR-AZ
2CADR RRLOSDSP
-
+
CAF PRIO4
TC PRIOCHNG
CAF V16N56
@@ -1620,11 +1620,11 @@ DSPRRLOS CAF PRIO5
TC B5OFF
TC B5OFF
TC B5OFF
-
+
CAF BIT3
TC BLANKET
TC ENDOFJOB
-
+
RRLOSDSP EXTEND
DCA CDUT
DXCH MPAC
@@ -1642,7 +1642,7 @@ RRLOSDSP EXTEND
UNITZ
STOVL COSTH # 16D
UNITX
- DOT
+ DOT
6D
STCALL SINTH # 18D
ARCTRIG
@@ -1670,12 +1670,12 @@ RRLOSDSP EXTEND
CA 1SEC
TC BANKCALL
CADR DELAYJOB
-
+
CA BIT5
MASK EXTVBACT
CCS A
TC RRLOSDSP
TC ENDEXT
-
+
V16N56 VN 1656
diff --git a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc
index b0f88be..9ff7297 100644
--- a/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc
+++ b/Luminary099/FINDCDUW--GUIDAP_INTERFACE.agc
@@ -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
diff --git a/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc b/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
index 802b539..de61952 100644
--- a/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
+++ b/Luminary099/FIXED_FIXED_CONSTANT_POOL.agc
@@ -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
diff --git a/Luminary099/FLAGWORD_ASSIGNMENTS.agc b/Luminary099/FLAGWORD_ASSIGNMENTS.agc
index a0904b4..0a37247 100644
--- a/Luminary099/FLAGWORD_ASSIGNMENTS.agc
+++ b/Luminary099/FLAGWORD_ASSIGNMENTS.agc
@@ -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
diff --git a/Luminary099/FRESH_START_AND_RESTART.agc b/Luminary099/FRESH_START_AND_RESTART.agc
index b81cc05..433dfb1 100644
--- a/Luminary099/FRESH_START_AND_RESTART.agc
+++ b/Luminary099/FRESH_START_AND_RESTART.agc
@@ -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
-
+
diff --git a/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc b/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
index 00d268e..6569e66 100644
--- a/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
+++ b/Luminary099/GIMBAL_LOCK_AVOIDANCE.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 364
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2010-12-31 JL Fixed page number comment.
#
@@ -25,14 +25,14 @@
# 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 364
BANK 15
-
+
SETLOC KALCMON1
BANK
-
+
# DETECTING GIMBAL LOCK
LOCSKIRT EQUALS NOGIMLOC
@@ -55,22 +55,22 @@ WCALC LXC,1 DLOAD*
SR
5
STORE TM # MANEUVER EXECUTION TIME SCALED AS T2
- SETGO
+ SETGO
CALCMAN2 # D(OFF) = CONTINUE MANEUVER
NEWANGL +1 # 1(ON) = START MANEUVER
-
+
# THE FOUR SELECTABLE FREE FALL MANEUVER RATES SELECTED BY
# LOADING RATEINDX WITH 0, 2, 4, 6, RESPECTIVELY
ARATE 2DEC .0088888888 # = 0.2 DEG/SEC $ 22.5 DEG/SEC
2DEC .0222222222 # = 0.5 DEG/SEC $ 22.5 DEG/SEC
-
+
2DEC .0888888888 # = 2.0 DEG/SEC $ 22.5 DEG/SEC
-
+
2DEC .4444444444 # = 10.0 DEG/SEC $ 22.5 DEG/SEC
-
+
ANGLTIME 2DEC .0001907349 # = 100B-19 FUDGE FACTOR TO CONVERT
# MANEUVER ANGLE TO MANEUVER TIME
-
+
diff --git a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
index b1c2f9b..155442b 100644
--- a/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
+++ b/Luminary099/GROUND_TRACKING_DETERMINATION_PROGRAM.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 654-657
-# Mod history: 2009-05-18 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-18 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 654
# GROUND TRACKING DETERMINATION PROGRAM -- P21
@@ -124,7 +124,7 @@ P21PROG1 CAF V6N34 # LOAD DESIRED TIME OF LAT-LONG.
P21CONT VLOAD
P21BASER # RECYCLE -- INTEG FROM BASE VECTOR
STOVL RCV # --POS
-# Page 656
+# Page 656
P21BASEV
STODL VCV # --VEL
P21TIME
@@ -175,7 +175,7 @@ P21DSP CLEAR SLOAD # GENERATE DISPLAY DATA
LUNAFLAG
VLOAD
RATT
-# Page 657
+# Page 657
STODL ALPHAV
TAT
CLEAR CALL
diff --git a/Luminary099/HeaderTemplate.agc b/Luminary099/HeaderTemplate.agc
index 493c932..649d8ab 100644
--- a/Luminary099/HeaderTemplate.agc
+++ b/Luminary099/HeaderTemplate.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: XXXX-XXXX
-# Mod history: 2009-05-XX XXX Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-XX XXX Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@@ -24,5 +24,5 @@
# 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
diff --git a/Luminary099/IMU_COMPENSATION_PACKAGE.agc b/Luminary099/IMU_COMPENSATION_PACKAGE.agc
index f2b418f..c8a04d7 100644
--- a/Luminary099/IMU_COMPENSATION_PACKAGE.agc
+++ b/Luminary099/IMU_COMPENSATION_PACKAGE.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 326-337
-# 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.
# 2009-06-07 RSB Corrected a typo.
#
@@ -25,47 +25,47 @@
# 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 326
BANK 7
SETLOC IMUCOMP
BANK
-
+
EBANK= NBDX
-
+
COUNT* $$/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
-
+
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
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(-5) * *
EXTEND
@@ -74,7 +74,7 @@
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11 *
INDEX BUF +2
DAS DELVX # (PIPAI) + (PIPAI)(SFE) - (BIAS)(DELTAT)
-
+
CCS BUF +2 # PIPAZ, PIPAY, PIPAX
AD NEG1
TCF 1/PIPA1 +1
@@ -84,48 +84,48 @@
# Page 328
IRIGCOMP TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX COUNTER. IRIGX, IRIGY, IRIGZ.
-
+
TC IRIGX # COMPENSATE ACCELERATION TERMS
-
+
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
-
+
TC IRIGY # COMPENSATE ACCELERATION TERMS
-
+
CS NBDY # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDY)(DELTAT) (GYRO PULSES) X 2(+14)
-
+
TC IRIGZ # COMPENSATE ACCELERATION TERMS
-
+
CA NBDZ # (GYRO PULSES)/(CS) X 2(-5)
TC DRIFTSUB # +(NBDZ)(DELTAT) (GYRO PULSES) X 2(+14)
-
+
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF +2 # YES SEND OUT GYRO TORQUING COMMANDS.
TCF IRIG1 # NO RETURN
-
+
CA PRIO21 # PRIO GREATER THAN SERVICER.
TC NOVAC # SEND OUT GYRO TORQUING COMMANDS.
EBANK= NBDX
2CADR 1/GYRO
-
+
RELINT
IRIG1 CA MODE # RESTORE CALLER'S EBANK
TS EBANK
TCF SWRETURN
-
+
# Page 329
-IRIGX EXTEND
+IRIGX EXTEND
QXCH MPAC +2 # SAVE Q
EXTEND
DCS DELVX # (PIPA PULSES) X 2(+14)
DXCH MPAC
CA ADIAX # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
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(-6) *
TC GCOMPSUB # -(ADSRAX)(PIPAY) (GYRO PULSES) X 2(+14)
@@ -167,13 +167,13 @@ IRIGZ EXTEND
CA ADSRAZ # (GYRO PULSES)/(PIPA PULSE) X 2(-6) *
# Page 330
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(-6) *
TC GCOMPSUB # -(ADIAZ)(PIPAZ) (GYRO PULSES) X 2(+14)
-
+
# EXTEND # ***
# DCS DELVX # *** (PIPA PULSE) X 2(+14)
# DXCH MPAC # ***
@@ -222,7 +222,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 # NO MINOR PART
EXTEND
MP BIT4 # SCALE 2(+11) SHIFT RIGHT 11
@@ -230,7 +230,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
@@ -238,23 +238,23 @@ DRFTSUB2 CAF TWO # PIPAX, PIPAY, PIPAZ
CCS GCOMP # ARE GYRO COMMANDS 1 PULSE OR GREATER
TCF +2 # YES
TC BUF +1 # NO
-
+
MASK COMPCHK # DEC -1
CCS A # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TS GCOMPSW # YES -- SET GCOMPSW POSITIVE
TC BUF +1 # NO
-
+
# Page 333
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
@@ -262,7 +262,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
@@ -274,23 +274,23 @@ 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
COMPCHK DEC -1 # LESS THAN ZERO IMPOSSIBLE
TCF ENDOFJOB
-
+
# Page 334
NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF +3
@@ -302,16 +302,16 @@ NBDONLY CCS GCOMPSW # BYPASS IF GCOMPSW NEGATIVE
TCF ENDOFJOB
TCF ENDOFJOB
TCF +1
-
+
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
MASK BIT8 # POSITIVE SO THAT THE ACCELERATION TERMS
TS TEM1 # WILL BE COMPENSATED.
EXTEND
BZF +3 # ARE WE ON THE SURFACE
-
+
TC IBNKCALL # ON THE SURFACE
CADR PIPASR +3 # READ PIPAS, BUT DO NOT SCALE THEM
-
+
CA TIME1 # (CS) X 2(+14)
XCH 1/PIPADT # PREVIOUS TIME
RELINT
@@ -321,25 +321,25 @@ NBD2 AD HALF # CORRECT FOR POSSIBLE TIME1 TICK
AD HALF
XCH L # IF TIME1 DID NOT DICK, REMOVE RESULTING
XCH L # OVERFLOW.
-
+
NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
MP BIT10 # SHIFT RIGHT 5
DXCH VBUF +2
-
+
CA ZERO
TS GCOMPSW # INDICATE COMMANDS 2 PULSES OR LESS.
TS BUF # INDEX X, Y, Z.
-
+
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGX # COMPENSATE ACCELERATION TERMS.
-
+
EXTEND
DCA VBUF +2
DXCH MPAC # DELTAT NOW SCALED (CS) X 2(+19)
-
+
CS NBDX # (GYRO PULSES)/(CS) X 2(-5)
TC FBIASSUB # -(NBOX)(DELTAT) (GYRO PULSES) X 2(+14)
-
+
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGY # COMPENSATE ACCELERATION TERMS.
# Page 335
@@ -348,16 +348,16 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
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)
-
+
CCS TEM1 # IF SURFACE FLAG IS SET,
TC IRIGZ # COMPENSATE ACCELERATION TERMS
-
+
EXTEND
DCS VBUF +2
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)
-
+
CCS GCOMPSW # ARE GYRO COMMANDS GREATER THAN 2 PULSES
TCF 1/GYRO # YES
TCF ENDOFJOB # NO
@@ -365,13 +365,13 @@ NBD3 EXTEND # C(A) = DELTAT (CS) X 2(+14)
# Page 336
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 # NOW FRACTIONAL PART
EXTEND
MP MPAC +1
@@ -379,17 +379,17 @@ 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 PIPUSE1
-
+
CCS GCOMPSW
TCF +3
TCF +2
TCF ENDOFJOB
-
+
CA FLAGWRD8 # IF SURFACE FLAG IS SET, SET TEM1
MASK SURFFBIT # POSITIVE SO THAT THE ACCELERATION TERMS
TS TEM1 # WILL BE COMPENSATED.
@@ -399,11 +399,11 @@ LASTBIAS TC BANKCALL
COM
AD PIPTIME +1
TCF NBD2
-
+
GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
XCH EBANK # CALL TO 1/PIPA
TS MODE
-
+
CAF ZERO
TS GCOMPSW
TS GCOMP
@@ -413,6 +413,6 @@ GCOMPZER CAF LGCOMP # ROUTINE TO ZERO GCOMP BEFORE FIRST
TS GCOMP +4
# Page 337
TS GCOMP +5
-
+
TCF IRIG1 # RESTORE EBANK AND RETURN
-
+
diff --git a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
index 4530a06..ff5b60e 100644
--- a/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
+++ b/Luminary099/IMU_MODE_SWITCHING_ROUTINES.agc
@@ -10,7 +10,7 @@
# Mod history: 2009-05-28 OH Transcribed from page images.
# 2009-06-05 RSB Fixed a typo.
# 2011-01-06 JL Fixed pseudo-label indentation.
-# 2011-05-08 JL Removed workaround. Flagged SBANK=
+# 2011-05-08 JL Removed workaround. Flagged SBANK=
# workaround for future removal.
# This source code has been transcribed or otherwise adapted from
@@ -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 1309
@@ -705,7 +705,7 @@ CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION
MASK BIT6 # IT IS FOUND THAT THE IMU IS BEING CAGED,
CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION
TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY
-
+
CS ZERO # TO SWRETURN.
TS IMUCADR
TCF MODEEXIT
@@ -844,10 +844,10 @@ IMUFIN20 = IMUFINE
GOMANUR CA ATTCADR # IS KALCMANU FREE
EXTEND
BZF +3
-
+
TC POODOO # NO
OCT 1210 # 2 TRYING TO USE SAME DEVICE
-
+
+3 EXTEND
DCA BUF2
DXCH ATTCADR # SAVE FINAL RETURN FOR KALCMAN3
@@ -1064,4 +1064,4 @@ POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
ADRES NODOFLAG
TC GOTOPOOH
-
+
diff --git a/Luminary099/IMU_PERFORMANCE_TESTS_4.agc b/Luminary099/IMU_PERFORMANCE_TESTS_4.agc
index 8776338..0c1b354 100644
--- a/Luminary099/IMU_PERFORMANCE_TESTS_4.agc
+++ b/Luminary099/IMU_PERFORMANCE_TESTS_4.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 382-389
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 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 382
# PROGRAM -- IMU PERFORMANCE TESTS 4
@@ -61,9 +61,9 @@
SETLOC IMU4
BANK
COUNT* $$/P07
-
+
EBANK= XSM
-
+
ESTIMS INHINT
CAE 1SECXT
TC TWIDDLE
@@ -91,11 +91,11 @@ ESTIMS INHINT
TORQNDX
DCOMP BMN
VERTSKIP
- CALL
+ CALL
ERTHRVSE
VERTSKIP EXIT
TC SLEEPIE +1
-
+
# Page 384
ALLOOP CA OVFLOWCK
EXTEND
@@ -130,9 +130,9 @@ SPECSTS CAF PRIO20
TC FINDVAC
EBANK= XSM
2CADR ALFLT # START THE JOB
-
+
TC TASKOVER
-
+
# Page 385
ALFLT CCS GEOCOMPS
TC +2
@@ -151,13 +151,13 @@ NORMLOP TC INTPRET
STODL DPIPAY
MPAC +5
STORE DPIPAZ
-
+
SETPD AXT,1
0
8D
SLOAD DCOMP
GEOCOMPS
- BMN
+ BMN
PERFERAS
ALCGKK SLOAD BMN
ALTIMS
@@ -172,7 +172,7 @@ ALKCG2 DLOAD* INCR,1
TIX,2 SXA,1
ALKCG2
ALX1S
-
+
ALFLT3 AXT,1
8D
DELMLP DLOAD* DMP
@@ -226,7 +226,7 @@ ALKLP LXC,1 SXA,1
TIX,2 AXT,1
ALKLP
8D
-
+
LOOSE DLOAD* PDDL*
ACCWD +8D,1
VLAUN +8D,1
@@ -246,7 +246,7 @@ LOOSE DLOAD* PDDL*
STORE ACCWD +8D,1
TIX,1
LOOSE
-
+
AXT,2 AXT,1 # EVALUATE SINES AND COSINES
6
2
@@ -263,13 +263,13 @@ BOOP DLOAD* DMPR
STORE 22D,2 # COSINES
TIX,2
BOOP
-
+
PERFERAS EXIT
CA EBANK7
TS EBANK
EBANK= ATIGINC
TC ATIGINC # GOTO ERASABLE TO CALCULATE ONLY TO RETN
-
+
# CAUTION
#
# THE ERASABLE PROGRAM THAT DOES THE CALCULATIONS MUST BE LOADED
@@ -283,7 +283,7 @@ PERFERAS EXIT
TC SETUPER1
CA CDUX
TS LOSVEC +1 # FOR TROUBLESHOOTING VD POSNS 2$4
-
+
# Page 388
SETUPER1 TC INTPRET
DLOAD PDDL # ANGLES FROM DRIFT TEST ONLY
@@ -297,7 +297,7 @@ SETUPER1 TC INTPRET
XSM
STORE OGC
EXIT
-
+
CA OGCPL
TC BANKCALL
CADR IMUPULSE
@@ -309,12 +309,12 @@ GEOSTRT4 CCS TORQNDX # ONLY POSITIVE IF IN VERTICAL DRIFT TEST
ERTHRVSE
EXIT
TC TORQUE
-
+
SLEEPIE TS LENGTHOT # TEST NOT OVER-DECREMENT LENGTHOT
CCS TORQNDX # ARE WE DOING VERTDRIFT
TC EARTHR*
TC ENDOFJOB
-
+
SOMEERRR CA EBANK5
TS EBANK
CA ONE
@@ -327,17 +327,17 @@ SOMERR2 CAF OCT1601
TC DOWNFLAG
ADRES IMUSE
TC ENDOFJOB
-
+
OCT1601 OCT 01601
DEC585 OCT 06200 # 3200 B+14 ORDER IS IMPORTANT
SCHZEROS 2DEC .00000000
# Page 389
2DEC .00000000
-
+
OCT 00000
ONEDPP OCT 00000 # ORDER IS IMPORTANT
OCT 00001
-
+
INTVAL OCT 4
OCT 2
DEC 144
@@ -345,7 +345,7 @@ INTVAL OCT 4
SOUPLY 2DEC .93505870 # INITIAL GAINS FOR PIP OUTPUTS
2DEC .26266423 # INITIAL GAINS/4 FOR ERECTION ANGLES
-
+
77DECML DEC 77
ALXXXZ GENADR ALX1S -1
PIPASC 2DEC .13055869
@@ -355,7 +355,7 @@ VELSC 2DEC -.52223476 # 512/980.402
ALSK 2DEC .17329931 # SSWAY VEL GAIN X 980.402/4096
2DEC -.00835370 # SSWAY ACCEL GAIN X 980.402/4096
-
+
GEORGEJ 2DEC .63661977
GEORGEK 2DEC .59737013
diff --git a/Luminary099/IMU_PERFORMANCE_TEST_2.agc b/Luminary099/IMU_PERFORMANCE_TEST_2.agc
index 3f5262b..9f03ea7 100644
--- a/Luminary099/IMU_PERFORMANCE_TEST_2.agc
+++ b/Luminary099/IMU_PERFORMANCE_TEST_2.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 373-381
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 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 373
# NAME -- IMU PERFORMANCE TESTS 2
@@ -46,10 +46,10 @@
BANK
EBANK= POSITON
COUNT* $$/P07
-
+
REDO TC NEWMODEX
MM 07
-
+
GEOIMUTT TC IMUZERR
IMUBACK CA ZERO
TS NDXCTR
@@ -120,7 +120,7 @@ POSGMBL STCALL ZNB +2
TC LONGCALL # DELAY WHILE SUSPENSION STABILIZES
EBANK= POSITON
2CADR GOESTIMS
-
+
CA ESTICADR
TC JOBSLEEP
GOESTIMS CA ESTICADR
@@ -135,7 +135,7 @@ TORQUE CA ZERO
INDEX POSITON
TS SOUTHDR -1
TC SHOW
-
+
PIPACHK INDEX NDXCTR # PIPA TEST
TC +1
TC EARTHR*
@@ -156,7 +156,7 @@ PIPACHK INDEX NDXCTR # PIPA TEST
EBANK= XSM
ADRES PIPATASK
TC ENDOFJOB
-
+
PIPATASK EXTEND
DIM LENGTHOT
CA LENGTHOT
@@ -170,9 +170,9 @@ STARTPIP CAF PRIO20
TC FINDVAC
EBANK= XSM
2CADR PIPJOBB
-
+
TC TASKOVER
-
+
PIPJOBB INDEX NDXCTR
TC +1
TC EARTHR*
@@ -181,7 +181,7 @@ PIPJOBB INDEX NDXCTR
EXTEND
BZMF +2
TC ENDOFJOB
-
+
CA FIVE
TS RESULTCT
TC CHECKG
@@ -193,7 +193,7 @@ PIPJOBB INDEX NDXCTR
EXTEND
DCS DATAPL
DAS DATAPL +4
-
+
TC INTPRET
DLOAD DSU
DATAPL +6
@@ -243,19 +243,19 @@ VALMIS CA DRIFTO
CA ZERO
TS DSPTEM2
TC SHOW
-
+
ENDTEST1 TC DOWNFLAG
ADRES IMUSE
CS ZERO
TC NEWMODEA
TC ENDEXT
-
+
# Page 378
OVERFFIX DAD DAD
DPPOSMAX
ONEDPP
RVQ
-
+
COAALIGN EXTEND # COARSE ALIGN SUBROUTINE
QXCH ZERONDX
CA ZERO
@@ -272,19 +272,19 @@ ALIGNCOA TC BANKCALL
IMUSLLLG EXTEND
QXCH ZERONDX
TC ALIGNCOA
-
+
FINIMUDD EXTEND
QXCH ZERONDX
TC BANKCALL
CADR IMUFINE
TC ALIGNCOA
-
+
IMUZERR EXTEND
QXCH ZERONDX
TC BANKCALL
CADR IMUZERO
TC ALIGNCOA
-
+
CHECKG EXTEND # PIP PULSE CATCHING ROUTINE
QXCH QPLACE
TC +6
@@ -343,7 +343,7 @@ ERTHRVSE DLOAD PDDL
SCHZEROS
STORE ERCOMP
RVQ
-
+
EARTHR ITA RTB
S2
LOADTIME
@@ -367,7 +367,7 @@ ERTHR SL VXSC
PULSEIMU
GOTO
S2
-
+
EARTHR* EXTEND
QXCH QPLACES
TC INTPRET
@@ -376,7 +376,7 @@ EARTHR* EXTEND
EXIT
TC IMUSLLLG
TC QPLACES
-
+
SHOW EXTEND
# Page 381
QXCH QPLACE
@@ -388,7 +388,7 @@ SHOW1 CA POSITON
TC ENDTEST1 # V34
TC QPLACE # V33
TCF SHOW1
-
+
3990DEC DEC 3990
VB06N98 VN 0698
VN0641 VN 0641
@@ -418,4 +418,4 @@ FINETIME INHINT # RETURNS WITH INTERRUPT INHIBITED
EXTEND
READ HISCALAR
TC Q
-
+
diff --git a/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc b/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
index b140d0f..0c70d92 100644
--- a/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
+++ b/Luminary099/INFLIGHT_ALIGNMENT_ROUTINES.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1249-1258
-# Mod history: 2009-05-26 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-26 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 1249
BANK 22
diff --git a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
index d945853..5022cd1 100644
--- a/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
+++ b/Luminary099/INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc
@@ -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 54
diff --git a/Luminary099/INTEGRATION_INITIALIZATION.agc b/Luminary099/INTEGRATION_INITIALIZATION.agc
index 236de92..08c7100 100644
--- a/Luminary099/INTEGRATION_INITIALIZATION.agc
+++ b/Luminary099/INTEGRATION_INITIALIZATION.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1205-1226
-# Mod history: 2009-05-26 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-26 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@@ -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 1205
# 1.0 INTRODUCTION
@@ -784,7 +784,7 @@ INTSTALL EXIT
MASK INTBITAB # IS THIS STALL AREA FREE
EXTEND
BZF OKTOGRAB # YES
-# Page 1220
+# Page 1220
CAF WAKESTAL
TC JOBSLEEP
INTWAKE0 EXIT
diff --git a/Luminary099/INTER-BANK_COMMUNICATION.agc b/Luminary099/INTER-BANK_COMMUNICATION.agc
index 297eec4..1ff8e2c 100644
--- a/Luminary099/INTER-BANK_COMMUNICATION.agc
+++ b/Luminary099/INTER-BANK_COMMUNICATION.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 998-1001
-# 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.
# 2011-05-08 JL Removed workaround.
@@ -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 998
# THE FOLLOWING ROUTINE CAN BE USED TO CALL A SUBROUTINE IN ANOTHER BANK. IN THE BANKCALL VERSION, THE
@@ -172,4 +172,4 @@ SUPERSW EXTEND
# CHANNEL 07
TC Q # TC TO INSTRUCTION FOLLOWING
# TC SUPERSW
-
+
diff --git a/Luminary099/INTERPRETER.agc b/Luminary099/INTERPRETER.agc
index b30ba41..4179918 100644
--- a/Luminary099/INTERPRETER.agc
+++ b/Luminary099/INTERPRETER.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1002-1094
-# 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 workarounds.
@@ -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 1002
# SECTION 1: DISPATCHER
@@ -38,12 +38,12 @@
# 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.
QXCH LOC
-
+
+2 CA BBANK # INTERPRETIVE BRANCHES FINISH HERE.
TS BANKSET
MASK BIT15 # GET 15TH BIT FOR INDEXABLE ADDRESSES.
@@ -126,15 +126,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
@@ -142,7 +142,7 @@ IERASTST EXTEND
TS FBANK # LOCATION IN EACH FBANK.)
ITR12 INDEX CYR
7 INDJUMP -1
-
+
GEADDR MASK LOW8
AD OCT1400
XCH ADDRWD
@@ -157,7 +157,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).
@@ -166,7 +166,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
@@ -177,7 +177,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
@@ -192,7 +192,7 @@ INDEX2 INDEX INDEXLOC
TS ADDRWD
ITR11 INDEX CYR
3 INDJUMP -1
-
+
INDWORK CA FIXLOC # MAKE ADDRWD RELATIVE TO WORK AREA.
TCF ITR13 -1
@@ -204,7 +204,7 @@ INDERASE CA OCT1400
# Page 1007
ITR13 INDEX CYR
3 INDJUMP -1
-
+
# Page 1008
# 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
@@ -225,7 +225,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 GREATEER THAN OCT 7.
-
+
-OCT10 OCT -10
AD NEG4 # WE NOW HAVE 7 -- OP CODE (MOD4). SEE IF
@@ -233,7 +233,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 THIS TIME.
@@ -257,7 +257,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
@@ -268,13 +268,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 1010
# COMPLETE THE DISPATCHING OF UNARY AND SHORT SHIFT OPERATIONS.
@@ -283,12 +283,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
@@ -303,7 +303,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 MPACIN SINGLE PRECISION.
TCF SSP # 11 -- SET SINGLE PRECISION INTO X.
TCF PDDL # 12 -- PUSH DOWN MPAC AND RE-LOAD IN DP.
@@ -312,7 +312,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.
@@ -321,7 +321,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.
@@ -330,7 +330,7 @@ INDJUMP TCF VLOAD # 00 -- LOAD MPAC WITH A VECTOR.
TCF # 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 1012
@@ -344,7 +344,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
@@ -366,7 +366,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.
@@ -375,12 +375,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 1014
# 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:
#
@@ -392,7 +392,7 @@ 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* $$/INTER
STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
TS FBANK # ADDRESS) ENTERS HERE.
@@ -400,8 +400,8 @@ STADR CA BANKSET # THE STADR CODE (PUSHUP UP ON STORE
ITR1 INDEX LOC # THE STORECODE WAS STORED COMPLEMENTED TO
CS 0 # MAKE IT LOOK LIKE AN OPCODE PAIR.
AD NEGONE # (YUL CAN'T REMOVE 1 BECAUSE OF EARLY CCS)
-
-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
@@ -409,7 +409,7 @@ DOSTORE TS ADDRWD
MP BIT5 # EACH TRANSFER VECTOR ENTRY IS TWO WORDS.
INDEX A
TCF STORJUMP
-
+
# Page 1015
# STORE CODE JUMP TABLE. CALLS THE APPROPRIATE STORING ROUTINE AND EXITS TO DANZIG OR TO ADDRESS WITH
# A SUPPLIED OPERATION CODE.
@@ -422,30 +422,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 1016
# 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.
@@ -469,27 +469,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 1018
# ROUTINES TO BEGIN PROCESSING OF THE SECOND ADDRES ASSOCIATED WITH ALL STORE-TYPE CODES EXCEPT STORE
# ITSELF.
@@ -517,7 +517,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
@@ -527,12 +527,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
@@ -592,7 +592,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
@@ -607,26 +607,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
@@ -636,7 +636,7 @@ STORE1 INDEX ADDRWD # SOME INDEX AND MISCELLANEOUS OPS END
TS 0 # HERE.
# Page 1022
TCF DANZIG
-
+
# Page 1023
# SEQUENCE CHANGING AND SUBROUTINE CALLING OPTIONS.
#
@@ -666,7 +666,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
@@ -679,9 +679,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
@@ -695,14 +695,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.
@@ -713,14 +713,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 1025
# TRIPLE PRECISION BRANCHING ROUTINE. IF CALLING TC IS AT L, RETURN IS AS FOLLOWS:
# L+1 IF MPAC IS GREATER THAN ZERO.
@@ -731,23 +731,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".
@@ -773,7 +773,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
@@ -783,7 +783,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
@@ -791,7 +791,7 @@ VAD CAF PRIO30 # CHANGES 0 TO DCA.
EXTEND
BZF +2
TC OVERFLWZ
-
+
EXTEND
INDEX ADDRWD
READ LCHAN # DCA 0 OR DCS 0
@@ -803,11 +803,11 @@ DAD EXTEND
ENDVXV DAS MPAC # VXV FINISHES HERE.
EXTEND
BZF DANZIG
-
+
# Page 1027
SETOVF TC OVERFLOW
TCF DANZIG
-
+
# Page 1028
DSU EXTEND
INDEX ADDRWD
@@ -817,11 +817,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
@@ -837,18 +837,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
@@ -859,7 +859,7 @@ BVSU EXTEND
EXTEND
BZF +2
TC OVERFLWZ
-
+
# Page 1029
BDSU EXTEND
INDEX ADDRWD
@@ -868,7 +868,7 @@ BDSU EXTEND
EXTEND
DCOM
TCF ENDVXV
-
+
# Page 1030
# TRIPLE PRECISION ADD ROUTINE.
@@ -881,9 +881,9 @@ TAD EXTEND
AD MPAC
TS MPAC
TCF DANZIG
-
+
TCF SETOVF # SET OVFIND IF SUCH OCCURS.
-
+
# Page 1031
# ARITHMETIC SUBROUTINES REQUIRED IN FIXED-FIXED.
# 1. DMPSUB DOUBLE PRECISION MULTIPLY, MULTIPLY THE CONTENTS OF MPAC,+1 BY THE DP WORD WHOSE ADDRESS
@@ -912,11 +912,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.
@@ -925,7 +925,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 1032
# ROUND MPAC TO DOUBLE PRECISION, SETTING OVFIND ON THE RARE EVENT OF OVERFLOW.
@@ -975,7 +975,7 @@ DOTSUB EXTEND
TS BUF
TCF +2
TS OVFIND # IF OVERFLOW OCCURS.
-
+
DXCH MPAC +5 # MULTIPLY Z COMPONENTS.
DXCH MPAC
CA DOTINC
@@ -1035,30 +1035,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 1035
DXCH MPAC # LOAD A(N) INTO MPAC
DXCH VBUF # SAVING X IN VBUF
TCF POLY2
-
+
POLYLOOP TS POLYCNT # SAVE DECREMENTD 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 1036
# MISCELLANEOUS MULTI-PRECISION ROUTINES REQUIRED IN FIXED-FIXED BUT NOT USED BY THE INTERPRETER.
@@ -2234,7 +2234,7 @@ SMALL2 TS L # (SMALL EXITS TO THIS POINT).
LARGE CCS MPTEMP # MOST ALL CASES COME HERE.
TCF LARGE3 # SEE IF NO NORMALIZATION WAS REQUIRED BY
-
+
CS SRDDV # SQRT, AND IF SO, SET UP FOR A SHIFT
TS MPTEMP # RIGHT 1 BEFORE DIVIDING TO PRODUCE
EXTEND # THE DESIRED HALF UNIT VECTOR.
@@ -2675,13 +2675,13 @@ SN1 EXTEND # SET UP TO EVALUATE HASTINGS POLYNOMIAL
TC POLY # EVALUATE FOURTH ORDER POLYNOMIAL.
DEC 3
2DEC +.3926990796
-
+
2DEC -.6459637111
-
+
2DEC +.318758717
-
+
2DEC -.074780249
-
+
2DEC +.009694988
CAF LBUF2 # MULTIPLY BY ARGUMENT AND SHIFT LEFT 2.
@@ -2755,21 +2755,21 @@ ACOS3 DXCH MPAC # SET UP FOR POLYNOMIAL EVALUATION.
TC POLY
DEC 6
2DEC +.353553385 # COEFFICIENTS ARE C 2(+I)/PISQRT(2) WHERE
-
+
2DEC* -.0483017006 B+1* # I
-
+
2DEC* +.0200273085 B+2* # WHERE C STANDS FOR ORIGINAL COEFFS.
-
+
2DEC* -.0112931863 B+3*
-
+
2DEC* +.00695311612 B+4*
-
+
2DEC* -.00384617957 B+5*
-
+
2DEC* +.001501297736 B+6*
-
+
2DEC* -.000284160334 B+7*
-
+
CAF LBUF2 # DO FINAL MULTIPLY AND GO TO ANY
TC DMPSUB -1 # EPILOGUE SEQUENCES.
diff --git a/Luminary099/INTERPRETIVE_CONSTANT.agc b/Luminary099/INTERPRETIVE_CONSTANT.agc
index cbe7035..030bcdb 100644
--- a/Luminary099/INTERPRETIVE_CONSTANT.agc
+++ b/Luminary099/INTERPRETIVE_CONSTANT.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1100-1101
-# 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 1100
SETLOC INTPRET1
@@ -42,7 +42,7 @@ UNITX 2DEC .5
ZEROVECS 2DEC 0
2DEC 0
-
+
2DEC 0
DPHALF = UNITX
@@ -65,9 +65,9 @@ XUNIT 2DEC .5
ZEROVEC 2DEC 0
2DEC 0
-
+
2DEC 0
-
+
OCT 77777 # -0, -6, -12 MUST REMAIN IN THIS ORDER
DFC-6 DEC -6
DFC-12 DEC -12
diff --git a/Luminary099/INTERRUPT_LEAD_INS.agc b/Luminary099/INTERRUPT_LEAD_INS.agc
index 56719f1..4b26465 100644
--- a/Luminary099/INTERRUPT_LEAD_INS.agc
+++ b/Luminary099/INTERRUPT_LEAD_INS.agc
@@ -22,64 +22,64 @@
# 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 153
- SETLOC 4000
-
+ SETLOC 4000
+
COUNT* $$/RUPTS # FIX-FIX LEAD INS
INHINT # GO
CAF GOBB
XCH BBANK
TCF GOPROG
-
+
DXCH ARUPT # T6RUPT
EXTEND
DCA T6ADR
DTCB
-
+
DXCH ARUPT # T5RUPT -- AUTOPILOT
EXTEND
DCA T5ADR
DTCB
-
+
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
CAF RDRPTBB
# Page 154
XCH BBANK
TCF RADAREAD
-
+
DXCH ARUPT # RUPT10 IS USED ONLY BY LANDING GUIDANCE
CA RUPT10BB
XCH BBANK
@@ -114,4 +114,4 @@ T4RPTBB BBCON T4RUPT
EBANK= ELVIRA
RUPT10BB BBCON PITFALL
-
+
diff --git a/Luminary099/KALCMANU_STEERING.agc b/Luminary099/KALCMANU_STEERING.agc
index fce6f8d..9006f1b 100644
--- a/Luminary099/KALCMANU_STEERING.agc
+++ b/Luminary099/KALCMANU_STEERING.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 365-369
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Added missing comment characters.
#
@@ -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 365
# GENERATION OF STEERING COMMANDS FOR DIGITAL AUTOPILOT FREE FALL MANEUVERS
@@ -33,7 +33,7 @@
# NEW COMMANDS WILL BE GENERATED EVERY ONE SECOND DURING THE MANEUVER
EBANK= TTEMP
-
+
NEWDELHI TC BANKCALL # CHECK FOR AUTO STABILIZATION
CADR ISITAUTO # ONLY
CCS A
@@ -53,7 +53,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
@@ -67,14 +67,14 @@ INCRDCDU TS SPNDX
INDEX SPNDX
MSU NCDU
EXTEND
-
+
# The following 2 lines seem to have no purpose at all.
# I am removing them because they only serve to confuse
# the assembler by getting in between EXTEND and MP.
# --- RSB 2009.
#SETLOC KALCMON1
#BANK
-
+
MP DT/TAU
CCS A # CONVERT TO 2'S COMPLEMENT
AD ONE
@@ -91,9 +91,9 @@ INCRDCDU TS SPNDX
TS CDUXD
CCS SPNDX
TCF INCRDCDU # LOOP FOR THREE AXES
-
+
RELINT
-
+
# COMPARE PRESENT TIME WTIH TIME TO TERMINATE MANEUVER
TMANUCHK TC TIMECHK
@@ -103,10 +103,10 @@ MANUSTAL INHINT # END MAJOR PART OF MANEUVER WITHIN 1 SEC
TC WAITLIST # UNDER WAITLIST CALL TO MANUSTOP
EBANK= TTEMP
2CADR MANUSTOP
-
+
RELINT
TCF ENDOFJOB
-
+
TIMECHK EXTEND
DCS TIME2
DXCH TTEMP
@@ -127,7 +127,7 @@ MANUOFF AD ONESEK +1
INCR Q
2NDRETRN INCR Q
TC Q
-
+
DT/TAU DEC .1
MANUSTAT EXIT # INITIALIZATION ROUTINE
@@ -162,15 +162,15 @@ RATEBIAS TS KSPNDX
TS DELPEROR # $ 180 DEG
CCS KSPNDX
TCF RATEBIAS
-
+
CA TIME1
AD ONESEK +1
XCH NEXTIME
TCF INCRDCDU -1
-
+
ONESEK DEC 0
DEC 100
-
+
BIASCALE OCT 75777 # = -1/16
CONTMANU CS TIME1 # RESET FOR NEXT DCDU UPDATE
@@ -188,14 +188,14 @@ MANUCALL INHINT # CALL FOR NEXT UPDATE VIA WAITLIST
CAF ONESEK +1 # INCREMENT TIME FOR NEXT UPDATE
ADS NEXTIME
TCF ENDOFJOB
-
+
UPDTCALL CAF PRIO26 # SATELLITE PROGRAM TO CALL FOR UPDATE
TC FINDVAC # OF STEERING COMMANDS
EBANK= TTEMP
2CADR NEWDELHI
TC TASKOVER
-
+
# Page 369
# ROUTINE FOR TERMINATING AUTOMATIC MANEUVERS
@@ -218,12 +218,12 @@ ENDROLL CA CPHI # NO FINAL YAW
TS DELPEROR
GOODMANU CA ATTPRIO # RESTORE USERS PRIO
TS NEWPRIO
-
+
CA ZERO # ZERO ATTCADR
DXCH ATTCADR
-
- TC SPVAC # RETURN TO USER
-
- TC TASKOVER
-
+
+ TC SPVAC # RETURN TO USER
+
+ TC TASKOVER
+
diff --git a/Luminary099/KALMAN_FILTER.agc b/Luminary099/KALMAN_FILTER.agc
index 0b9cac8..a313004 100644
--- a/Luminary099/KALMAN_FILTER.agc
+++ b/Luminary099/KALMAN_FILTER.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1470-1471
-# 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.
#
# 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 1470
EBANK= NO.UJETS
@@ -97,5 +97,5 @@ ROTORQUE CA DAPTEMP2
NEGTORK COM
INCR Q
TCF STORTORK
-
+
diff --git a/Luminary099/KEYRUPT_UPRUPT.agc b/Luminary099/KEYRUPT_UPRUPT.agc
index 50ff700..1e79ff5 100644
--- a/Luminary099/KEYRUPT_UPRUPT.agc
+++ b/Luminary099/KEYRUPT_UPRUPT.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1338-1340
-# 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.
#
# 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 1338
BANK 14
diff --git a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
index cd367f4..77c6a4a 100644
--- a/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
+++ b/Luminary099/LAMBERT_AIMPOINT_GUIDANCE.agc
@@ -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 651
@@ -37,7 +37,7 @@
# 1. TO ACCEPT TARGETING PARAMETERS OBTAINED FROM A SOURCE EXTERNAL
# TO THE LEM AND COMPUTE THERE FROM THE REQUIRED-VELOCITY AND
# OTHER INITIAL CONDITIONS REQUIRED BY LM FOR DESIRED MANEUVER.
-# THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
+# THE TARGETING PARAMETERS ARE TIG (TIME OF IGNITION), TARGET
# VECTOR (RTARG), AND THE TIME FROM TIG UNTIL THE TARGET IS
# REACHED (DELLT4), DESIRED TIME OF FLIGHT FROM RINIT TO RTARG.
@@ -50,7 +50,7 @@
# BE SELECTED BY THE ASTRONAUT BY DSKY ENTRY V37 E31.
# SUBROUTINES USED **
-#
+#
# MANUPARM, TTG/N35, R02BOTH, MIDGIM, DISPMGA, FLAGDOWN, BANKCALL,
# GOTOPOOH, ENDOFJOB, PHASCHNG, GOFLASHR, GOFLASH.
#
@@ -97,9 +97,9 @@
SETLOC GLM
BANK
-
+
EBANK= SUBEXIT
-
+
COUNT* $$/P31
P31 TC P20FLGON
CAF V06N33 # T16
diff --git a/Luminary099/LANDING_ANALOG_DISPLAYS.agc b/Luminary099/LANDING_ANALOG_DISPLAYS.agc
index ede4e48..800f31a 100644
--- a/Luminary099/LANDING_ANALOG_DISPLAYS.agc
+++ b/Luminary099/LANDING_ANALOG_DISPLAYS.agc
@@ -10,11 +10,11 @@
# Website: http://www.ibiblio.org/apollo.
# Mod history: 05/06/09 FB Transcription Batch 4 Assignment.
#
-# The contents of the "Luminary099" files, in general, are transcribed
-# from scanned documents.
+# The contents of the "Luminary099" files, in general, are transcribed
+# from scanned documents.
#
# Assemble revision 001 of AGC program Luminary099 by NASA
-# 2021112-061. July 14, 1969.
+# 2021112-061. July 14, 1969.
#
# Prepared by
# Massachusetts Institute of Technology
diff --git a/Luminary099/LEM_GEOMETRY.agc b/Luminary099/LEM_GEOMETRY.agc
index 320c249..8aa5580 100644
--- a/Luminary099/LEM_GEOMETRY.agc
+++ b/Luminary099/LEM_GEOMETRY.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 320-325
-# 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,16 +24,16 @@
# 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 320
BANK 23
SETLOC LEMGEOM
BANK
-
+
SBANK= LOWSUPER
EBANK= XSM
-
+
# THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM,CSM BY ADDING
# THE CONIC R,V AND THE DEVIATIONS R,V. THE STATE VECTORS ARE CONVERTED TO
# METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
@@ -85,11 +85,11 @@ SVDWN1 VLOAD VSL*
VSL* VAD
0 -4,2
VCV
- VSL*
+ VSL*
0,2
STORE V-OTHER
RVQ
-
+
# Page 322
# THE FOLLOWING ROUTINE TAKES A HALF UNIT TARGET VECTOR REFERRED TO NAV BASE COORDINATES AND FINDS BOTH
# GIMBAL ORIENTATIONS AT WHICH THE RR MIGHT SIGHT THE TARGET. THE GIMBAL ANGLES CORRESPONDING TO THE PRESENT MODE
@@ -112,7 +112,7 @@ RRANGLES STORE 32D
PUSH BDSU # ANSWER WHOSE ABS VAL IS LESS THAN 90 DEG.
LODPHALF
STODL 4 # MODE 2 TRUNNION TO 4.
-
+
LO6ZEROS
STOVL 34D # UNIT THE PROJECTION OF THE VECTOR
32D # IN THE X-Z PLANE
@@ -140,16 +140,16 @@ RRANGLES STORE 32D
2V1STO2S
STORE MODEA
EXIT
-
+
CS RADMODES # SWAP MODEA AND MODEB IF RR IN MODE 2.
MASK ANTENBIT
CCS A
TCF +4
-
+
DXCH MODEA
DXCH MODEB
DXCH MODEA
-
+
TC INTPRET
GOTO
S2
@@ -160,7 +160,7 @@ RRANGLES STORE 32D
SETLOC INFLIGHT
BANK
-
+
COUNT* $$/GEOM
RRNB SLOAD RTB
@@ -170,7 +170,7 @@ RRNB SLOAD RTB
0
SIN DCOMP
STODL 34D # Y COMPONENT
-
+
COS PUSH # .5 COS(T) TO 0
SLOAD RTB
TANGNB +1
@@ -179,13 +179,13 @@ RRNB1 PUSH COS # SHAFT ANGLE TO 2
DMP SL1
0
STODL 36D # Z COMPONENT
-
+
SIN DMP
SL1
STOVL 32D
32D
RVQ
-
+
# THIS ENTRY TO RRNB REQUIRES THE TRUNNION AND SHAFT ANGLES IN MPAC AND MPAC +1 RESPECTIVELY
RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
@@ -206,4 +206,4 @@ RRNBMPAC STODL 20D # SAVE SHAFT CDU IN 21.
# Page 325
# (This page has nothing on it.)
-
+
diff --git a/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc b/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
index 911dc99..cea37cd 100644
--- a/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
+++ b/Luminary099/LUNAR_AND_SOLAR_EPHEMERIDES_SUBROUTINES.agc
@@ -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 984
# NAME -- LSPOS -- LOCATE SUN AND MOON DATE -- 25 OCT 67
diff --git a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
index b21161c..e1d5abe 100644
--- a/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
+++ b/Luminary099/LUNAR_LANDING_GUIDANCE_EQUATIONS.agc
@@ -10,7 +10,7 @@
# Mod history: 2009-05-23 HG Transcribed from page images.
# 2009-06-05 RSB Fixed a goofy thing that was apparently
# legal in GAP but not in yaYUL. Eliminated
-# a couple of lines of code that shouldn't
+# a couple of lines of code that shouldn't
# have survived from Luminary 131 to here.
# 2009-06-07 RSB Fixed a typo.
#
@@ -27,7 +27,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 798
EBANK= E2DPS
@@ -72,7 +72,7 @@ WHATGUID TCF TTF/8CL # BRAKQUAD
AFTRGUID TCF CGCALC # BRAKQUAD
TCF CGCALC # APPRQUAD
TCF STEER? # VERTICAL
-
+
# Page 799
# WINDOW VECTOR COMPUTATIONS:
@@ -117,7 +117,7 @@ GUIDSUB TS NGUIDSUB # ON SUCCEEDING PASSES SKIP TTFINCR
LUNLAND TC PHASCHNG
OCT 00035 # GROUP 5: RETAIN ONLY PIPA TASK
TC PHASCHNG
- OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
+ OCT 05023 # GROUP 3: PROTECT GUIDANCE WITH PRIO 21
OCT 21000 # JUST HIGHER THAN SERVICER'S PRIORITY
# Page 800
@@ -183,25 +183,25 @@ VRTSTART TS WCHVERT
TC DOWNFLAG
ADRES REDFLAG
TCF VERTGUID
-
+
STARTP67 TC NEWMODEX # NO HARM IN "STARTING" P67 OVER AND OVER
DEC 67 # SO NO NEED FOR A FASTCHNG AND NO NEED
CAF ZERO # TO SEE IF ALREADY IN P67.
TS RODCOUNT
CAF TEN
TCF VRTSTART
-
+
STABL? CAF BIT13 # IS UN-ATTITUDE-HOLD DISCRETE PRESENT?
EXTEND
RAND CHAN31
CCS A
TCF GUILDRET # YES ALL'S WELL
-
+
P66NOW? CS MODREG
AD DEC66
EXTEND
BZF RESTART?
-
+
CA RODCOUNT # NO. HAS THE ROD SWITCH BEEN "CLICKED"?
EXTEND
BZF GUILDRET # NO. CONTINUE WITH AUTOMATIC LANDING
@@ -223,7 +223,7 @@ RESTART? CA FLAGWRD1 # HAS THERE BEEN A RESTART?
GUILDRET CAF ZERO
TS RODCOUNT
-
+
# Page 802
+2 EXTEND
DCA TPIP
@@ -234,7 +234,7 @@ GUILDRET CAF ZERO
EXTEND
DCA PIPTIME1
DXCH TPIP
-
+
EXTEND
DCA TTF/8
DXCH TTF/8TMP
@@ -266,7 +266,7 @@ STARTP64 TC NEWMODEX
WOR CHAN13
TC DOWNFLAG # INITIALIZE REDESIGNATION FLAG
ADRES REDFLAG
-
+
# (CONTINUE TO TTFINCR)
@@ -320,7 +320,7 @@ TTFINCR TC INTPRET
EXTEND
DCA LANDTEMP +4
DXCH LAND +4
-
+
# Page 804
TC TDISPSET
TC FASTCHNG # SINCE REDESIG MAY CHANGE LANDTEMP
@@ -371,7 +371,7 @@ REDESIG CA FLAGWRD6 # IS REDFLAG SET?
VXSC VSU
YNBPIP
VAD PUSH # RESULTING VECTOR IS 1/2 REAL SIZE
-
+
# Page 805
DLOAD DSU # MAKE SURE REDESIGNATION IS NOT
@@ -469,7 +469,7 @@ RGVGCALC TC INTPRET # ENTER HERE TO RECOMPUTE RG AND VG
CA FIXLOC # RESET PUSH DOWN POINTER
TS PUSHLOC
-# Page 807
+# Page 807
CA MPAC # COMPUTE LOOKANGLE ITSELF
DOUBLE
TC BANKCALL
@@ -692,21 +692,21 @@ CGCALC CAF EBANK5
EXTLOGIC INDEX WCHPHASE # WCHPHASE = 1 APPRQUAD
CA TENDBRAK # WCHPHASE = 0 BRAKQUAD
AD TTF/8
-
+
EXSPOT1 EXTEND
INDEX WCHPHASE
BZMF WHATEXIT
-
+
TC FASTCHNG
-
+
CA WCHPHOLD
AD ONE
TS WCHPHASE
CA ZERO
TS FLPASS0 # RESET FLPASS0
-
+
INDEX WCHPHOLD
- TCF WHATEXIT
+ TCF WHATEXIT
# ***********************************************************************
# ROUTINES FOR EXITING FROM LANDING GUIDANCE
@@ -813,7 +813,7 @@ RATESTOP CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
RAND CHAN31
EXTEND
BZF DISPEXIT # YES
-
+
TC BANKCALL # NO: DO A STOPRATE
CADR STOPRATE
@@ -843,14 +843,14 @@ DISPEXIT EXTEND # KILL GROUP 3: DISPLAYS WILL BE
INDEX WCHPHOLD
TCF WHATDISP
-
+
-2 TC PHASCHNG # KILL GROUP 5
OCT 00035
P63DISPS CAF V06N63
DISPCOMN TC BANKCALL
CADR REGODSPR
-
+
ENDLLJOB TCF ENDOFJOB
P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
@@ -870,7 +870,7 @@ P64DISPS CA TREDES # HAS TREDES REACHED ZERO?
TCF P64DISPS # RECYCLE
# Page 815
TCF ENDLLJOB
-
+
P64CEED CAF ZERO
TS ELINCR1
TS AZINCR1
@@ -918,10 +918,10 @@ P65VERT TC INTPRET
P66VERT TC POSTJUMP
CADR P66VERTA
-
+
P67VERT TC PHASCHNG # TERMINATE GROUP 3.
OCT 00003
-
+
TC INTPRET
VLOAD GOTO
V
@@ -964,7 +964,7 @@ RODCOMP INHINT
DCA TIME2
# Page 817
DXCH THISTPIP
-
+
CA OLDPIPAX
AD PIPATMPX
TS MPAC # MPAC(X) = PIPAX + PIPATMPX
@@ -1130,7 +1130,7 @@ BIASFACT 2DEC 655.36 B-28
PITFALL XCH BANKRUPT
EXTEND
QXCH QRUPT
-
+
TC CHECKMM # IF NOT IN P64, NO REASON TO CONTINUE
DEC 64
TCF RESUME
@@ -1160,7 +1160,7 @@ REDESMON EXTEND
TS L
CCS ELVIRA # DO ANY BITS APPEAR THIS PASS?
TCF PREMON2 # Y: CONTINUE MONITOR
-
+
CCS L # N: ANY LAST PASS?
TCF COUNT'EM # Y: COUNT 'EM, RESET RUPT, TERMINATE
# Page 821
@@ -1176,7 +1176,7 @@ COUNT'EM CAF BIT13 # ARE WE IN ATTITUDE-HOLD?
RAND CHAN31
EXTEND
BZF RESETRPT # YES: SKIP REDESIGNATION LOGIC.
-
+
CA L # NO.
MASK -AZBIT
CCS A
diff --git a/Luminary099/MAIN.agc b/Luminary099/MAIN.agc
index 7dcf27c..1b2f268 100644
--- a/Luminary099/MAIN.agc
+++ b/Luminary099/MAIN.agc
@@ -25,15 +25,15 @@
# ...
#
# The page images themselves, as reduced in size (and consequently in
-# quality) to be suitable for online presentation, are available at
+# quality) to be suitable for online presentation, are available at
# http://www.ibiblio.org/apollo. If you want to see the (much) higher
# quality digital images that Paul actually made, contact info@sandroi.org
# directly.
#
-# This file is a little different from the other Luminary099 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 Luminary099 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
@@ -42,23 +42,23 @@
#
# 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 believe a tape-library method was used to avoid having to continually
# reload the card decks, but that doesn't change the basic principle.)
-# 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). In fact, it was replaced by another assembler
-# ("GAP") even before Apollo 11, but GAP is no more available than is YUL. 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
+# ("GAP") even before Apollo 11, but GAP is no more available than is YUL. 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.
@@ -72,7 +72,7 @@ $TAGS_FOR_RELATIVE_SETLOC.agc # pp. 28-37
$CONTROLLED_CONSTANTS.agc # pp. 38-53
$INPUT_OUTPUT_CHANNEL_BIT_DESCRIPTIONS.agc # pp. 54-60
$FLAGWORD_ASSIGNMENTS.agc # pp. 61-88
- # p. 89 is a GAP-generated table
+ # p. 89 is a GAP-generated table
$ERASABLE_ASSIGNMENTS.agc # pp. 90-152
$INTERRUPT_LEAD_INS.agc # pp. 153-154
$T4RUPT_PROGRAM.agc # pp. 155-189
diff --git a/Luminary099/ORBITAL_INTEGRATION.agc b/Luminary099/ORBITAL_INTEGRATION.agc
index 6d91d4a..7cca363 100644
--- a/Luminary099/ORBITAL_INTEGRATION.agc
+++ b/Luminary099/ORBITAL_INTEGRATION.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1227-1248
-# Mod history: 2009-05-26 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-26 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Fixed 3 typos.
# 2009-06-06 RSB Page 1248 was missing entirely for some reason.
@@ -27,7 +27,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 1227
# ORBITAL INTEGRATION
@@ -224,7 +224,7 @@ GAMCOMP VLOAD VSR1
NORM ROUND
31D
PDDL NORM # NORMED B SQUARED TO PD LIST
-# Page 1232
+# Page 1232
ALPHAM # NORMALIZE (LESS ONE) LENGTH OF ALPHA
32D # SAVING NORM SCALE FACTOR IN X1
SR1 PDVL
@@ -426,8 +426,8 @@ COMTERM STORE UZ
FV
GOBAQUE
STCALL FV
- QUALITY1
-
+ QUALITY1
+
QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
# AS VECTOR.
# Page 1236
@@ -465,7 +465,7 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
E32C31RM
DDV VXSC # IF X2 = 0, DIVISION GIVES B53, VXSC
# OUT OF 8D B5 GIVES B58
- VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
+ VSL* VAD # SHIFT MAKES B61, FOR ADDITION OF
# VECTOR IN 2D
0 -3,2
VSL* V/SC # OPERAND FROM 0D. B108 FOR X1 = 0
@@ -481,7 +481,7 @@ QUALITY3 DSQ # J22 TERM X R**4 IN 2D, SCALED B61
VAD BOV # OVERFLOW INDICATOR RESET IN "RP-TO-R"
FV
GOBAQUE
-# Page 1237
+# Page 1237
STORE FV
NBRANCH SLOAD LXA,1
DIFEQCNT
@@ -583,7 +583,7 @@ LUNSPH DLOAD SR2
LUNPOS
VCOMP
STORE RPQV
-# Page 1239
+# Page 1239
DOSWITCH CALL
ORIGCHNG
GOTO
@@ -855,7 +855,7 @@ DOW..1 VLOAD VSR4
34D
VSL* RVQ
# Page 1246
- 0 -8D,2
+ 0 -8D,2
# ********************************************************************************
# ********************************************************************************
@@ -974,4 +974,4 @@ QUALITY2 PDDL DSQ # SQUARE INTO 2D, B2
E3J22R2M
PDDL RVQ # J22 TERM X R**4 IN 2D, SCALED B61
COSPHI/2 # SAME AS URPV +4 Z COMPONENT
-
+
diff --git a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
index 8a11483..89bb05b 100644
--- a/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
+++ b/Luminary099/P-AXIS_RCS_AUTOPILOT.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1421-1441
-# 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 relative jump from
# +8 to +8D.
@@ -27,7 +27,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 1421
BANK 16
@@ -748,7 +748,7 @@ RATERROR CA CDUX # FINDCDUW REQUIRES THAT CDUXD=CDUX DURING
TCF +3 # LEVEL, GO TO DIRECT RATE CONTROL. IF NOT
TCF +8D # CHECK FOR DIRECT RATE CONTROL LAST TIME.
TCF +1
-# Page 1435
+# Page 1435
AD -RATEDB
EXTEND
BZMF +4
@@ -904,7 +904,7 @@ JETSOFF TC WRITEP -1
CALCPERR CA CDUY # P-ERROR CALCULATION.
EXTEND
MSU CDUYD # CDU VALUE -- ANGLE DESIRED (Y-AXIS)
-# Page 1438
+# Page 1438
EXTEND
MP M11 # (CDUY-CDUYD)M11 SCALED AT PI RADIANS
XCH E # SAVE FIRST TERM (OF TWO)
@@ -946,7 +946,7 @@ HEADTJET CA ZERO
TC IBNKCALL
CADR TJETLAW
RELINT
-
+
CS FIREFCT
AD -FOURDEG
EXTEND
@@ -954,7 +954,7 @@ HEADTJET CA ZERO
CCS TJP
TCF +2
TCF JETSOFF
-# Page 1439
+# Page 1439
AD -160MST6
EXTEND
BZMF PJETSLEC -6
diff --git a/Luminary099/P12.agc b/Luminary099/P12.agc
index 569efd0..f5b6f60 100644
--- a/Luminary099/P12.agc
+++ b/Luminary099/P12.agc
@@ -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 838
BANK 24
@@ -37,21 +37,21 @@ P12LM TC PHASCHNG
TC BANKCALL
CADR R02BOTH # CHECK THE STATUS OF THE IMU.
-
- TC UPFLAG
+
+ TC UPFLAG
ADRES MUNFLAG
-
+
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
ADRES ACC4-2FL
-
+
TC UPFLAG # PREVENT R10 FROM ISSUING CROSS-POINTER
ADRES R10FLAG # OUTPUTS.
-
+
TC CLRADMOD # INITIALIZE RADMODES FOR R29.
-
+
TC DOWNFLAG # CLEAR RENDEZVOUS FLAG FOR P22
ADRES RNDVZFLG
-
+
CAF THRESH2 # INITIALIZE DVMON
TS DVTHRUSH
CAF FOUR
@@ -167,7 +167,7 @@ YAWDUN STOVL YAW
TC DOWNFLAG
ADRES FLPI
-
+
INHINT
TC IBNKCALL
CADR PFLITEDB
diff --git a/Luminary099/P20-P25.agc b/Luminary099/P20-P25.agc
index 6fb23bc..4d9b8f8 100644
--- a/Luminary099/P20-P25.agc
+++ b/Luminary099/P20-P25.agc
@@ -12,7 +12,7 @@
# 2009-06-06 RSB Added a missing instruction, and a block
# of 3 missing instructions.
# 2009-06-07 RSB Fixed a misprint.
-# 2009-06-07 RSB Changed the construct "2DEC E-6 B12"
+# 2009-06-07 RSB Changed the construct "2DEC E-6 B12"
# (which isn't legal in yaYUL) to
# "2DEC 1.0 E-6 B12".
# 2011-05-07 JL Removed workarounds.
@@ -30,7 +30,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 492
# RENDEZVOUS NAVIGATION PROGRAM 20
@@ -43,7 +43,7 @@
# FUNCTIONAL DESCRIPTION
#
# THE PURPOSE OF THIS PROGRAM IS TO CONTROL THE RENDEZVOUS RADAR FROM
-# STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER
+# STARTUP THROUGH ACQUISITION AND LOCKON TO THE CSM AND TO UPDATE EITHER
# THE LM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY DSKY ENTRY)
# ON THE BASIS OF THE RR TRACKING DATA.
#
@@ -61,7 +61,7 @@
# R61LEM (PREFERRED TRACKING ATTITUDE)
# R21LEM (RR DESIGNATE) ENDOFJOB
# R22LEM (DATA READ) GOPERF1
-# R31LEM (RENDEZVOUS PARAMETER DISPLAY)
+# R31LEM (RENDEZVOUS PARAMETER DISPLAY)
# PRIOLARM (PRIORITY DISPLAY)
#
# NORMAL EXIT MODES --
@@ -88,11 +88,11 @@
# CENTRALS -- A,Q,L
SBANK= LOWSUPER # FOR LOW 2CADR'S.
-
+
BANK 33
SETLOC P20S
BANK
-
+
EBANK= LOSCOUNT
COUNT* $$/P20
PROG22 = PROG20
@@ -131,10 +131,10 @@ ORBCHG2 TC INTPRET
SETLOC P20S4
BANK
COUNT* $$/P20
-
+
ORBCHG3 CALL
INTSTALL
- DLOAD
+ DLOAD
TIG
STORE LNCHTM
STORE TDEC1 # ESTIMATED LAUNCH TIME
@@ -237,12 +237,12 @@ NOWMATX CALL
EXIT
TC BANKCALL
CADR PROG20A
-
+
BANK 24
SETLOC P20S
BANK
COUNT* $$/P20
-
+
TC DOWNFLAG # RESET VEHUPFLG -- LM STATE VECTOR
ADRES VEHUPFLG # TO BE UPDATED
PROG20A TC BANKCALL
@@ -287,7 +287,7 @@ P20LEM1 TC PHASCHNG
TC -4 # PROC (ILLEGAL)
TC P20LEM1 # ENTER RECYCLE
TC ENDOFJOB
-
+
P20LEMA TC PHASCHNG
OCT 04022
TC LUNSFCHK # CHECK LUNAR SURFACE FLAG (P22 FLAG)
@@ -309,12 +309,12 @@ P20LEMB7 CAF BIT2 # IS RR AUTO MODE DISCRETE PRESENT
RAND CHAN33
EXTEND
BZF P20LEMB3 # YES -- DO AUTOMATIC ACQUISITION (R21)
-
+
P20LEMB5 CS OCT24 # RADAR NOT IN AUTO CHECK IF
AD MODREG # MAJOR MODE IS 20
EXTEND
BZF P20LEMB6 # BRANCH -- YES -- OKAY TO DO PLEASE PERFORM
-
+
AD NEG2 # ALSO CHECK FOR P22
EXTEND
BZF P20LEMB6 # BRANCH -- YES OK TO DO PLEASE PERFORM
@@ -333,14 +333,14 @@ P20LEMB6 CAF OCT201 # REQUEST RR AUTO MODE SELECTION
TC LUNSFCHK # ENTER INDICATES MANUAL ACQUISITION (R23)
TC P20LEMB2 # YES -- R23 NOT ALLOWED -- TURN ON OPR ERROR
TC R23LEM # NO -- DO MANUAL ACQUISITION
-
+
P20LEMB1 TC UPFLAG # RETURN FROM R23 -- LOCKON ACHIEVED
ADRES ACMODFLG # SET MANUAL FLAG AND GO BACK TO CHECK
TC P20LEMB # RR AUTO MODE
-
+
P20LEMB2 TC FALTON # TURNS ON OPERATOR ERROR LIGHT ON DSKY
TC P20LEMB # AND GOES BACK TO CHECK AUTO MODE
-
+
P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
MASK RCDU0BIT
EXTEND
@@ -355,12 +355,12 @@ P20LEMB3 CS RADMODES # ARE RR CDUS BEING ZEROED
TC DOWNFLAG
ADRES ACMODFLG
TC P20LEMWT # WAIT 2.5 SECONDS THEN GO TO RR DATA READ
-
+
P20LEMB4 CAF 250DEC
TC BANKCALL # WAIT 2.5 SECONDS WHILE RR CDUS ARE BEING
CADR DELAYJOB # ZEROED -- THEN GO BACK AND CHECK AGAIN
TC P20LEMB3
-
+
P20LEMC3 TC INTPRET
RTB
LOADTIME
@@ -389,7 +389,7 @@ P20LEMWT CAF 250DEC
P20LMWT1 TC PHASCHNG
OCT 40072
TC ENDOFJOB
-
+
P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
MASK RNDVZBIT
EXTEND
@@ -403,19 +403,19 @@ P20LEMC1 CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
TC FINDVAC
EBANK= LOSCOUNT
2CADR R22LEM42
-
+
TC TASKOVER
-
+
P20LEMC2 TC FIXDELAY # TRACK FLAG NOT SET, WAIT 15 SECONDS
DEC 1500 # AND CHECK AGAIN
-
+
TC P20LEMC1
-
+
P20LEMD CAF 1500DEC
TC TWIDDLE # WAITLIST FOR 15 SECONDS
ADRES P20LEMD1
TC ENDOFJOB
-
+
P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET
MASK TRACKBIT
CCS A
@@ -423,14 +423,14 @@ P20LEMD1 CAE FLAGWRD1 # IS TRACK FLAG SET
TC FIXDELAY # NO -- WAIT 15 SECONDS
DEC 1500
TC P20LEMD1
-
+
P20LEMD2 CAF PRIO26 # SCHEDULE JOB TO DO R21
TC FINDVAC
EBANK= LOSCOUNT
2CADR P20LEMC3 # START AT PERM. MEMORY INTEGRATION
-
+
TC TASKOVER
-
+
250DEC DEC 250
ALRM526 OCT 00526
OCT201 OCT 00201
@@ -484,7 +484,7 @@ UPPSV4 CALL # INTEGRATE OTHER VEHICLE
STORE LMVEL
GOTO
LS21X
-
+
UPPSV3 CLEAR CALL
VINTFLAG
INTEGRV
@@ -500,7 +500,7 @@ UPPSV3 CLEAR CALL
UPPSV4
EBANK= LOSCOUNT
COUNT* $$/P22
-
+
# Page 502
# PROGRAM DESCRIPTION
#
@@ -553,7 +553,7 @@ PROG25 TC 2PHSCHNG
OCT 4 # MAKE GROUP 4 INACTIVE (VERB 37)
OCT 05022
OCT 26000 # PRIORITY 26
-
+
TC BANKCALL
CADR R02BOTH # IMU STATUS CHECK
TC UPFLAG
@@ -586,7 +586,7 @@ P25LEM2 CAF PRIO14
TC FINDVAC
EBANK= LOSCOUNT
2CADR P25LEM1
-
+
TC TASKOVER
60SCNDS DEC 6000
@@ -719,7 +719,7 @@ R22LEM3 CS FLAGWRD1 # SHOULD WE BYPASS STATE VECTOR UPDATE
BZF R22LEM42 # UPDATE FLAG NOT SET
CAF PRIO26 # INSURE HIGH PRIO IN RESTART
TS PHSPRDT2
-
+
TC INTPRET
GOTO
LSR22.3
@@ -736,7 +736,7 @@ R22LEM96 EXIT
TC NOVAC
EBANK= N49FLAG
2CADR N49DSP
-
+
TC INTPRET
SLOAD
N49FLAG
@@ -767,12 +767,12 @@ R22LEM45 TS R65CNTR
TC R22LEM
R22WAIT CAF 1500DEC
TC P20LEMWT +1
-
+
R22LEM46 CAF 2SECS
TC BANKCALL # WAIT 2 SECONDS AND TAKE ANOTHER MARK
CADR DELAYJOB
TC R22LEM
-
+
N49DSP CAF V06N49NB
TC BANKCALL # EXCESSIVE STATE VECTOR UPDATE -- FLASH
CADR PRIODSP # VERB 06 NOUN 49 R1=DELTA R, R2=DELTA V
@@ -788,7 +788,7 @@ R22RSTRT TC PHASCHNG # IF A RESTART OCCURS WHILE READING RADAR
CADR RADSTALL # WAIT FOR READ COMPLETE
TC P20LEMC # COULD NOT READ RADAR -- TRY TO REDISGNATE
TC R22LEM # READ SUCCESSFUL -- CONTINUE AT R22
-
+
ALRM525 OCT 00525
V06N05 VN 00605
V06N49NB VN 00649
@@ -804,7 +804,7 @@ LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE
CCS A # BRANCH -- P22FLAG SET
INCR Q # NOT SET
TC Q # RETURN
-
+
# Page 508
# RR DESIGNATE ROUTINE (R21LEM)
# PROGRAM DESCRIPTION
@@ -830,7 +830,7 @@ LUNSFCHK CS FLAGWRD8 # CHECK IF ON LUNAR SURFACE
# TASKOVER BANKCALL RADSTALL RRDESSM
#
# NORMAL EXIT MODES
-#
+#
# WHEN LOCK-ON IS ACHIEVED, BRANCH WILL BE TO P20 WHERE R22 (DATA READ
# WILL BE SELECTED OR A NEED FOR A MANEUVER (BRANCH TO P20LEMA)
#
@@ -992,7 +992,7 @@ R21LEMB DLOAD
TC LONGCALL
EBANK= LOSCOUNT
2CADR R21LEM9
-
+
TC ENDOFJOB
R21LEM9 TC KILLTASK
CADR STDESIG
@@ -1001,7 +1001,7 @@ R21LEM9 TC KILLTASK
TC FINDVAC
EBANK= LOSCOUNT
2CADR R21LEM10
-
+
TC TASKOVER
R21LEM11 CAF ALRM530 # ALARM 530 -- LOS NOT IN COVERAGE
TC BANKCALL # AFTER TRYING TO DESIGNATE FOR
@@ -1026,7 +1026,7 @@ R21DISP TC PHASCHNG
CAF BIT7
TC LINUS # SET BITS TO MAKE THIS A PRIORITY DISPLAY
TC ENDOFJOB
-
+
# Page 512
V06N72PV VN 00672
@@ -1110,7 +1110,7 @@ R23LEM2 TC DOWNFLAG # CLEAR NO ANGLE MONITOR FLAG
R23LEM3 TC BANKCALL
CADR R61LEM
TC R23LEM1
-
+
OCT501PV OCT 501
OCT205 OCT 205
@@ -1179,7 +1179,7 @@ R24LEM2 TC PHASCHNG
CADR PRIODSPR
TC GOTOV56
TC R24END # PROCEED EXIT R24 TO P20LEM1
-
+
TC R24LEM3 # RECYCLE -- CALL R61 TO MANEUVER S/C
# Page 516
TC BANKCALL
@@ -1188,12 +1188,12 @@ R24END TC KILLTASK
CADR CALLDGCH
TC CLRADMOD # CLEAR BITS 10 & 15 OF RADMODES.
TCF P20LEM1 # AND GO TO 400 MI. RANGE CHECK IN P20
-
+
BLOCK 3
SETLOC FFTAG6
BANK
COUNT* $$/R24
-
+
CLRADMOD CS BIT10+15
INHINT
MASK RADMODES
@@ -1201,15 +1201,15 @@ CLRADMOD CS BIT10+15
CS BIT2 # DISABLE RR ERROR COUNTERS
EXTEND
WAND CHAN12 # USER WILL RELINT
-
+
TC Q
-
+
BIT10+15 OCT 41000
BANK 24
SETLOC P20S
BANK
COUNT* $$/R24
-
+
R24LEM3 TC PHASCHNG
OCT 04022
TC KILLTASK
@@ -1227,9 +1227,9 @@ R24LEM4 CAF ZERO # ZERO OUT RADCADR (WHICH WAS SET BY
TS RADCADR # ENDRADAR WHEN DESIGNATE STOPPED) SO THAT
# RRDESSM WILL RETURN TO CALLER
TC R24LEM2 # AND GO BACK TO PUT UP V16 N80 DISPLAY
-
+
V16N80 VN 01680
-
+
# Page 517
# PREFERRED TRACKING ATTITUDE ROUTINE R61LEM
# PROGRAM DESCRIPTION
@@ -1382,7 +1382,7 @@ R61C+L2 CAF PRIO26
TC FINDVAC
EBANK= LOSCOUNT
2CADR R61C+L01
-
+
TC TASKOVER
R61C+L04 TC BANKCALL # TO CONVERT ANGLES TO FDAI
CADR BALLANGS
@@ -1396,7 +1396,7 @@ R61C+L1 CAF BIT7+9PV # IS RENDEZVOUS OR P25FLAG SET
TC R61C+L06 # YES EXIT ROUTINE
R65WAIT TC POSTJUMP
CADR P20LEMWT
-
+
BIT7+9PV OCT 00500
# Page 520
COS15DEG 2DEC 0.96593 B-1
@@ -1416,11 +1416,11 @@ READCDUD INHINT # READS DESIRED CDU'S AND STORES IN
CA RUPTREG1
TS EBANK
RELINT
- TCF TMODE
+ TCF TMODE
BLOCK 02
SETLOC RADARFF
BANK
-
+
EBANK= LOSCOUNT
COUNT* $$/RRSUB
@@ -1432,13 +1432,13 @@ MAGSUB EXTEND
BZMF +2
TCF +2
COM
-
+
INDEX Q
AD 0
EXTEND
BZMF Q+2 # ABS(A) <= CONST GO TO L+3
TCF Q+1 # ABS(A) > CONST GO TO L+2
-
+
# Page 522
# PROGRAM NAME: RRLIMCHK
#
@@ -1488,38 +1488,38 @@ RRLIMCHK EXTEND
INCR Q
DXCH ITEMP1
LXCH Q # L(CALLER +2) TO L.
-
+
CAF ANTENBIT # SEE WHICH MODE RR IS IN.
MASK RADMODES
CCS A
TCF MODE2CHK
-
+
CA ITEMP1 # MODE 1 IS DEFINED AS
# Page 523
TC MAGSUB # 1. ABS(T) L 55 DEGS.
DEC -.30555 # 2. ABS(S + 5.5 DEGS) L 64.5 DEGS
TC L # (SHAFT LIMITS AT +59, -70 DEGS)
-
+
CAF 5.5DEGS
AD ITEMP2
TC MAGSUB
DEC -.35833 # 64.5 DEGS
TC L
TC RRLIMOK # IN LIMITS.
-
+
MODE2CHK CAF 82DEGS # MODE 2 IS DEFINED AS
AD ITEMP2 # 1. ABS(T) G 125 DEGS.
TC MAGSUB # 2. ABS(S + 82 DEGS) L 57 DEGS
DEC -.31667 # (SHAFT LIMITS AT -25, -139 DEGS)
TC L
-
+
CA ITEMP1
TC MAGSUB
DEC -.69444 # 125 DEGS
-
+
RRLIMOK INDEX L
TC L # ( = TC 1 )
-
+
5.5DEGS DEC .03056
82DEGS DEC .45556
@@ -1565,7 +1565,7 @@ SETTRKF CAF BIT1 # NO ACTION IF DURING LAMP TEST
MASK IMODES33
CCS A
TC Q
-
+
RRTRKF CA BIT8
TS L
@@ -1573,7 +1573,7 @@ RRTRKF CA BIT8
MASK RADMODES
EXTEND
BZF TRKFLON # CONDITION 3 ABOVE.
-
+
RRCHECK CAF RRDATABT # SEE IF RR DATA FAILED.
MASK RADMODES
# Page 525
@@ -1583,7 +1583,7 @@ TRKFLON CA L
MASK L
EXTEND
BZF TCQ # NO CHANGE.
-
+
FLIP CA DSPTAB +11D # CAN'T USE LXCH DSPTAB +11D (RESTART PROB)
EXTEND
RXOR LCHAN
@@ -1591,7 +1591,7 @@ FLIP CA DSPTAB +11D # CAN'T USE LXCH DSPTAB +11D (RESTART PROB)
AD BIT15
TS DSPTAB +11D
TC Q
-
+
13,7,2 OCT 10102
ENDRMODF EQUALS
@@ -1614,7 +1614,7 @@ ENDRMODF EQUALS
# TO TASKOVER.
#
# CALLING SEQUENCE: WAITLIST TASK FROM RRAUTCHK IF THE RR POWER-ON AUTO
-# BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING
+# BIT (CHAN 33 BIT 2) CHANGES TO 0 AND NO PROGRAM WAS USING
# THE RR (STATE BIT 7).
#
# ERASABLE INITIALIZATION REQUIRED:
@@ -1624,7 +1624,7 @@ ENDRMODF EQUALS
# SUBROUTINES CALLED: RRZEROSB, FIXDELAY, TASKOVER, ENDRADAR
#
# JOBS OR TASKS INITIATED:
-#
+#
# NONE
#
# ALARMS: NONE (SEE RRZEROSB)
@@ -1634,7 +1634,7 @@ ENDRMODF EQUALS
BANK 24
SETLOC P20S1
BANK
-
+
EBANK= LOSCOUNT
COUNT* $$/RSUB
RRTURNON TC RRZEROSB
@@ -1653,7 +1653,7 @@ RRTURNON TC RRZEROSB
# DETERMINE THE RR MODE, AND TURN ON THE TRACKER FAIL
# LAMP IF REQUIRED. INITIALLY THE RR CDU ZERO BIT (CHAN 12
# BIT 1) IS SET. FOLLOWING A 20 MILLISECOND WAIT, THE LGC
-# RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER
+# RR CDU COUNTERS (OPTY, OPTX) ARE SET = 0 AFTER
# WHICH THE RR CDU ZERO DISCRETE (CHAN 12 BIT 1) IS
# REMOVED. A 4 SECOND WAIT IS SET TO ALL THE RR CDU'S
# TO REPEAT THE ACTUAL TRUNNION AND SHAFT ANGLES. THE
@@ -1688,7 +1688,7 @@ RRZEROSB EXTEND
WOR CHAN12 # TURN ON ZERO RR CDU
TC FIXDELAY
DEC 2
-
+
CAF ZERO
TS CDUT
TS CDUS
@@ -1697,26 +1697,26 @@ RRZEROSB EXTEND
WAND CHAN12
TC FIXDELAY
DEC 1000 # RESET FAIL INHIBIT IN 10 SECS. -- D.281
-
+
CS RCDU0BIT # REMOVE ZEROING IN PROCESS BIT
# Page 528
MASK RADMODES
TS RADMODES
-
+
CA CDUT
TC MAGSUB
DEC -.5
TCF +3 # IF MODE 2.
-
+
CAF ZERO
TCF +2
CAF ANTENBIT
XCH RADMODES
MASK -BIT12
ADS RADMODES
-
+
TC SETTRKF # TRACKER LAMP MIGHT GO ON NOW.
-
+
TC RRRET # DONE.
-BIT12 EQUALS -1/8 # IN SPROOT
@@ -1742,7 +1742,7 @@ RRZEROSB EXTEND
# -90 DEGREES IF IN MODE 2. IF DURING RRTONLY OR RRSONLY A
# REMODE HAS BEEN REQUESTED (RADMODES BIT 14), AND ALWAYS
# FOLLOWING COMPLETION OF RRSONLY, CONTROL IS TRANFERRED TO
-# REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS
+# REPOSRPT. HERE THE REPOSITION FLAG (RADMODES BIT 11) IS
# REMOVED. A CHECK IS THEN MADE ON THE DESIGNATE FLAG (RADMODES
# BIT 10). IF PRESENT, CONTROL IS TRANSFERRED TO BEGDES. IF NOT PRESENT
# INDICATING NO FURTHER ANTENNA CONTROL REQUIRED, THE RR ERROR
@@ -1776,20 +1776,20 @@ DORREPOS TC SETRRECR # SET UP RR CDU ERROR COUNTERS.
TC FIXDELAY
DEC 2
-
+
CAF ANTENBIT # MANEUVER TRUNNION ANGLE TO NOMINAL POS.
# Page 530
MASK RADMODES
CCS A
CAF BIT15 # 0 FOR MODE 1 AND 180 FOR MODE 2.
TC RRTONLY
-
+
CAF ANTENBIT # NOT PUT SHAFT IN RIGHT POSITION
MASK RADMODES
CCS A
CS HALF # -90 FOR MODE 2.
TC RRSONLY
-
+
REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IN REMODE
# REQUESTED DURING REPOSITION.
MASK RADMODES # REMOVE REPOSITION BIT.
@@ -1801,13 +1801,13 @@ REPOSRPT CS REPOSBIT # RETURNS HERE FROM RR1AXIS IN REMODE
EXTEND # REMOVE ERROR COUNTER ENABLE.
WAND CHAN12
TCF TASKOVER
-
+
SETRRECR CAF BIT2 # SET UP RR ERROR COUNTERS
EXTEND
RAND CHAN12
CCS A # DO NOT CLEAR LAST COMMAND IF
TC Q # ERROR COUNTERS ARE ENABLED
-
+
TS LASTYCMD
TS LASTXCMD
CAF BIT2
@@ -1867,7 +1867,7 @@ REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180)
CCS A
CAF BIT15
TC RRTONLY
-
+
CAF -45DEGSR
TC RRSONLY
# Page 532
@@ -1877,25 +1877,25 @@ REMODE CAF ANTENBIT # DRIVE TRUNNION TO 0 (180)
CAF -80DEGSR # GO TO T = -130 (-50).
AD -50DEGSR
TC RRTONLY
-
+
CS RADMODES
MASK ANTENBIT
CCS A
CAF BIT15 # GO TO T = -180 (+0).
TC RRTONLY
-
+
CS RADMODES # GO TO S = -90 (+0).
MASK ANTENBIT
CCS A
CS HALF
TC RRSONLY
-
+
TC RMODINV
-
+
CS REMODBIT # END OF REMODE.
MASK RADMODES
TS RADMODES
-
+
CAF DESIGBIT # WAS REMODE CALLED DURING DESIGNATE?
MASK RADMODES # (BIT10 RADMODES = 1)
EXTEND
@@ -1911,7 +1911,7 @@ RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
RXOR LCHAN
TS RADMODES
TC Q
-
+
# Page 533
# PROGRAM NAMES: RRTONLY, RRSONLY
#
@@ -1959,10 +1959,10 @@ RMODINV LXCH RADMODES # INVERT THE MODE STATUS.
RRTONLY TS RDES # DESIRED TRUNNION ANGLE.
CAF ZERO
TCF RR1AXIS
-
+
RRSONLY TS RDES # SHAFT COMMANDS ARE UNRESOLVED SINCE THIS
CAF ONE # ROUTINE ENTERED ONLY WHEN T = 0 OR 180.
-
+
RR1AXIS TS RRINDEX
EXTEND
QXCH RRRET
@@ -1971,12 +1971,12 @@ RR1AXIS TS RRINDEX
# Page 534
NXTRR1AX TC FIXDELAY
DEC 50 # 2 SAMPLES PER SECOND.
-
+
RR1AX2 CS RADMODES # IF SOMEONE REQUESTS A DESIGNATE WHICH
MASK PRIO22 # REQUIRES A REMODE AND A REPOSITION IS IN
EXTEND # PROGRESS, INTERRUPT IT AND START THE
BZF REPOSRPT # REMODE IMMEDIATELY.
-
+
CA RDES
EXTEND
INDEX RRINDEX
@@ -1990,17 +1990,17 @@ RR1AX2 CS RADMODES # IF SOMEONE REQUESTS A DESIGNATE WHICH
XCH ITEMP1 # STORE RR-OUT-OF-AUTO-MODE BIT.
TC MAGSUB # SEE IF WITHIN ONE DEGREE.
DEC -.00555 # SCALED IN HALF-REVS.
-
+
CCS ITEMP1 # NO. IF RR OUT OF AUTO MODE, EXIT.
TC RRRET # RETURN TO CALLER.
-
+
CCS RRINDEX # COMMAND FOR OTHER AXIS IS ZERO.
TCF +2 # SETTING A TO 0.
XCH L
DXCH TANG
-
+
TC RROUT
-
+
TCF NXTRR1AX # COME BACK IN .5 SECONDS.
RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
@@ -2025,7 +2025,7 @@ RRSPGAIN DEC .59062 # NULL .7 ERROR IN .5 SEC.
# ARE SET. THIS PROGRAM THEN EXITS TO THE CALLING PROGRAM.
#
# CALLING SEQUENCE:
-#
+#
# L TC RROUT (WITH RUPT INHIBITED) RROUT IS CALLED BY
# RRTONLY, RRSONLY, AND DODES
#
@@ -2052,11 +2052,11 @@ RROUT2 TS ITEMP2
INDEX A
CA TANG
TS ITEMP1 # SAVE SIGN COMMAND FOR LIMITING.
-
+
TC MAGSUB # SEE IF WITHIN LIMITS.
-RRLIMIT DEC -384
TCF RROUTLIM # LIMIT COMMAND TO MAG OF 384.
-
+
SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
INDEX ITEMP2 # STATE AND PRESENT STATE AS RECORDED IN
XCH LASTYCMD # LASTYCMD AND LASTXCMD
@@ -2066,15 +2066,15 @@ SETRRCTR CA ITEMP1 # COUNT OUT DIFFERENCE BETWEEN DESIRED
AD NEG0 # PREVENT +0 IN OUTCOUNTER
INDEX ITEMP2
TS CDUTCMD
-
+
CCS ITEMP2 # PROCESS BOTH INPUTS.
TCF RROUT2
-
+
CAF PRIO6 # ENABLE COUNTERS.
EXTEND
WOR CHAN14 # PUT ON CDU DRIVES S AND T
TC L # RETURN.
-
+
RROUTLIM CCS ITEMP1 # LIMIT COMMAND TO ABS VAL OF 384.
CS -RRLIMIT
TCF +2
@@ -2089,18 +2089,18 @@ RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO
MASK RADMODES # IF SO, DON'T RE-ZERO CDUS.
CCS A
TCF RADNOOP # (IMMEDIATE TASK TO RGOODEND).
-
+
INHINT
CS RCDU0BIT # SET FLAG TO SHOW ZEROING IN PROGRESS.
MASK RADMODES
AD RCDU0BIT
TS RADMODES
-
+
CAF ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR RRZ2
-
+
CS RADMODES # SEE IF IN AUTO MODE.
MASK AUTOMBIT
CCS A
@@ -2109,10 +2109,10 @@ RRZERO CAF BIT11+1 # SEE IF MONITOR REPOSITION OR NOT IN AUTO
OCT 510
ROADBACK RELINT
TCF SWRETURN
-
+
RRZ2 TC RRZEROSB # COMMON TO TURNON AND RRZERO.
TCF ENDRADAR
-
+
BIT11+1 OCT 02001
# Page 538
@@ -2178,11 +2178,11 @@ RRDESSM STQ CLEAR
VLOAD CALL # LOAD VECTOR AND CALL TRANSFORMATION
RRTARGET
*SMNB*
-
+
CALL # GET RR GIMBAL ANGLES IN PRESENT AND
RRANGLES # ALTERNATE MODE.
EXIT
-
+
INHINT
TC RRLIMCHK
ADRES MODEA # CONFIGURATION FOR CURRENT MODE.
@@ -2204,7 +2204,7 @@ LUNDESCH CS FLAGWRD8 # OVERFLOW RETURN FROM RRANGLES
CCS A # TEST RNDVZFLG
TC NODESSM # NOT ON MOON -- CALL FOR ATTITUDE MANEUVER
TCF ENDOFJOB # ... BUT NOT IN R29.
-
+
# Page 540
# PROGRAM NAME: STARTDES
#
@@ -2259,14 +2259,14 @@ STARTDES INCR DESRET
MASK REPOSBIT # SEE IF REPOSITIONING IN PROGRESS.
CCS A
TCF DESRETRN # ECTR ALREADY SET UP.
-
+
TC SETRRECR # SET UP ERROR COUNTERS.
# Page 541
CAF TWO
TC WAITLIST
EBANK= LOSCOUNT
2CADR BEGDES
-
+
DESRETRN CA RADCADR # FIRST PASS THRU DESIGNATE
EXTEND
BZF DESRTRN # YES SET EXIT
@@ -2275,11 +2275,11 @@ DESRTRN RELINT
INCR DESRET
CA DESRET
TCF BANKJUMP
-
+
NORDSTAL CAF ZERO # ZERO RADCADR TO WIPE OUT ANYONE
TS RADCADR # WAITING IN RADSTALL SINCE WE ARE NOW
TCF DESRTRN # RETURNING TO P20 AND MAY DO NEW RADSTALL
-
+
# Page 542
# SEE IF RRDESSM CAN BE ACCOMPLISHED AFTER A REMODE.
@@ -2287,17 +2287,17 @@ TRYSWS TC RMODINV # (NOTE RUPT INHIBIT)
TC RRLIMCHK # TRY DIFFERENT MODE.
ADRES MODEB
TCF NODESSM # VEHICLE MANEUVER REQUIRED
-
+
TC RMODINV # RESET BIT12
CAF REMODBIT # SET FLAG FOR REMODE.
ADS RADMODES
-
+
TCF OKDESSM
-
+
NODESSM TC RMODINV # RE-INVERT MODE AND RETURN
INCR DESRET # TO CALLER +2
TCF NORDSTAL
-
+
MAXTRYS DEC 60
# Page 543
@@ -2306,7 +2306,7 @@ MAXTRYS DEC 60
RRDESNB TC MAKECADR
TS DESRET
-
+
TC DOWNFLAG # RESET FLAG TO PREVENT DODES FROM GOING
ADRES LOSCMFLG # BACK TO R21
CA MAXTRYS # SET TIME LIMIT COUNTER
@@ -2315,38 +2315,38 @@ RRDESNB TC MAKECADR
TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
ADRES TANG
TCF TRYSWN # SEE IF IN OTHER MODE.
-
+
OKDESNB RELINT
EXTEND
DCA TANG
DXCH TANGNB
TC INTPRET
-
+
CALL # GET LOS IN NB COORDS.
RRNB
STORE RRTARGET
-
+
SET EXIT
RRNBSW
-
+
INHINT
TCF STARTDES +1
TRYSWN TC RMODINV # SEE IF OTHER MODE WILL DO.
TC RRLIMNB # DO SPECIAL V41 LIMIT CHECK
ADRES TANG
TCF NODESNB # NOT POSSIBLE.
-
+
TC RMODINV
CAF REMODBIT # CALL FOR REMODE.
ADS RADMODES
TCF OKDESNB
-
+
NODESNB TC RMODINV # REINVERT MODE BIT.
TC ALARM # BAD INPUT ANGLES.
OCT 502
TC CLRADMOD
TC ENDOFJOB # AVOID 503 ALARM.
-
+
RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK
CAF 0 # EXCEPT THAT THE MODE 1 SHAFT LOWER
INCR Q # LIMIT IS -85 INSTEAD OF -70 DEGREES
@@ -2356,7 +2356,7 @@ RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK
DCA 0
DXCH ITEMP1
LXCH Q # L(CALLER +2) TO L
-
+
CAF ANTENBIT # SEE WHICH MODE RR IS IN
MASK RADMODES
CCS A
@@ -2365,7 +2365,7 @@ RRLIMNB INDEX Q # THIS ROUTINE IS IDENTICAL TO RRLIMCHK
TC MAGSUB # MODE 1 IS DEFINED AS
DEC -.30555 # 1 ABS(T) L 55 DEGS
TC L # 2 SHAFT LIMITS AT +59, -85 DEGS
-
+
CA ITEMP2 # LOAD SHAFT ANGLE
EXTEND
BZMF NEGSHAFT # IF NEGATIVE SHAFT ANGLE, ADD 20.5 DEGS
@@ -2376,7 +2376,7 @@ SHAFTLIM TC MAGSUB
TC RRLIMOK # IN LIMITS
NEGSHAFT AD 20.5DEGS # MAKE NEGATIVE SHAFT LIMIT -85 DEGREES
TCF SHAFTLIM
-
+
20.5DEGS DEC .11389
# Page 545
@@ -2437,25 +2437,25 @@ BEGDES CS RADMODES
TC REMODE
DESLOOP TC FIXDELAY # 2 SAMPLES PER SECOND.
DEC 50
-
+
STDESIG CAF REPOSBIT
MASK RADMODES # SEE IF GIMBAL LIMIT MONITOR HAS FOUND US
CCS A # OUT OF BOUNDS. IF SO, THIS BIT SHOWS A
TCF BADDES # REPOSITION TO BE IN PROGRESS.
-
+
CCS RADMODES # SEE IF CONTINUOUS DESIGNATE WANTED.
TCF +3 # IF SO, DON'T CHECK BIT 10 TO SEE IF IN
TCF +2 # LIMITS BUT GO RIGHT TO FINDVAC ENTRY.
TCF MOREDES +1
-
+
CS RADMODES # IF NON-CONTINUOUS, SEE IF END OF
MASK DESIGBIT # PROBLEM (DATA GOOD IF LOCK-ON WANTED OR
CCS A # WITHIN LIMITS IF NOT). IF SO, EXIT AFTER
TCF ENDRADAR # CHECKING RR CDU FAIL.
-
+
STDESIG1 CCS DESCOUNT # SEE IF THE TIME LIMIT HAS EXPIRED
TCF MOREDES
-
+
CS B14+B2 # IF OUT OF TIME, REMOVE ECR ENABLE + TRKR
EXTEND
WAND CHAN12
@@ -2463,15 +2463,15 @@ BADDES CS DESIGBIT # REMOVE DESIGNATE FLAG
MASK RADMODES
TS RADMODES
TCF RDBADEND
-
+
MOREDES TS DESCOUNT
CAF PRIO26 # UPDATE GYRO TORQUE COMMANDS.
TC FINDVAC
EBANK= LOSCOUNT
2CADR DODES
-
+
TCF DESLOOP
-
+
B14+B2 OCT 20002
# Page 547
@@ -2487,10 +2487,10 @@ B14+B2 OCT 20002
# + SHAFT = LOS . (COS(S), 0, -SIN(S)) (DOT PRODUCT)
# - TRUNNION = LOS . (SIN(T)SIN(S), COS(T), SIN(T)COS(S))
# THE SIGN OF THE SHAFT COMMAND IS THEN REVERSED IF IN MODE 2
-# (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE
+# (RADMODES BIT 12) BECAUSE A RELAY IN THE RR REVERSES THE
# POLARITY OF THE COMMAND. AT RRSCALUP EACH COMMAND IS
# SCALED AND IF EITHER, OR BOTH, OF THE COMMANDS IS GREATER THAN
-# .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE
+# .5 DEGREES, MPAC +1 IS SET POSITIVE. IF A CONTINUOUS DESIGNATE
# (RADMODES BIT 15) IS DESIRED AND THE SEARCH ROUTINE IS NOT OPERATING,
# THE RR AUTO TRACKER ENABLE BIT (CHAN 12 BIT 14) IS CLEARED AND RROUT
# CALLED TO PUT OUT THE COMMANDS PROVIDED NO REPOSITION (RADMODES BIT 11)
@@ -2541,9 +2541,9 @@ B14+B2 OCT 20002
DODES EXTEND
DCA CDUT
DXCH TANG
-
+
TC INTPRET
-
+
SETPD VLOAD
0
RRTARGET
@@ -2559,7 +2559,7 @@ DODES EXTEND
CDUTRIG
CALL
*SMNB*
-
+
DONBRD STODL 32D
TANG +1
RTB PUSH # SHAFT COMMAND = V(32D).(COS(S), 0,
@@ -2573,7 +2573,7 @@ DONBRD STODL 32D
0
STADR
STORE TANG +1 # SHAFT COMMAND
-
+
SLOAD RTB
TANG
CDULOGIC
@@ -2590,7 +2590,7 @@ DONBRD STODL 32D
SL1 VDEF
DOT EXIT # DOT U WITH LOS TO GET TRUNNION COMMAND.
32D
-
+
# Page 550
# AT THIS POINT WE HAVE A ROTATION VECTOR IN DISH AXES LYING IN THE TS PLANE. CONVERT THIS TO A
# COMMANDED RATE AND ENABLE THE TRACKER IF WE ARE WITHIN .5 DEGREES OF THE TARGET.
@@ -2610,7 +2610,7 @@ DONBRD STODL 32D
MP RDESGAIN # SCALING ON INPUT ANGLE WAS 4 RADIANS.
TS TANG +1 # SHAFT COMMAND FOR RROUT
TC INTPRET
-
+
DLOAD DMP
2 # COS(S).
4 # COS(T).
@@ -2626,7 +2626,7 @@ DONBRD STODL 32D
*NBSM* # GET URR IN SM AXES.
DOT EXIT
RRTARGET # GET COSIN OF ANGLE BETWEEN RR AND LOS
-
+
EXTEND
DCS COS1/2DG
DAS MPAC # DIFFERENCE OF COSINES, SCALED B-2.
@@ -2648,29 +2648,29 @@ SIGNLCHK CCS MPAC +1 # SEE IF BOTH AXES WERE WITHIN .5 DEGS.
MASK LOKONBIT # PROBLEM IS FINISHED.
CCS A
TCF RRDESDUN
-
+
CAF BIT14 # ENABLE THE TRACKER
EXTEND
WOR CHAN12
-
+
DGOODCHK CAF BIT4 # SEE IF DATA GOOD RECEIVED YET
EXTEND
RAND CHAN33
CCS A
TCF DORROUT
-
+
RRDESDUN CS BIT10 # WHEN PROBLEM DONE, REMOVE BIT 10 SO NEXT
MASK RADMODES # WAITLIST TASK WE WILL GO TO RGOODEND.
INHINT
TS RADMODES
-
+
TC DOWNFLAG # RESET LOSCMFLG TO PREENT A
ADRES LOSCMFLG # RECOMPUTATION OF LOS AFTER DATA GOOD
CS BIT2 # TURN OFF ENABLE RR ERROR COUNTER
EXTEND
WAND CHAN12
TCF ENDOFJOB # WITH ECTR DISABLED.
-
+
DORROUT CA FLAGWRD2 # IF BOTH LOSCMFLAG AND SEARCH FLAG ARE
MASK BIT12,14 # ZERO, BYPASS VELOCITY ADJUSTMENT TO LOS
EXTEND
@@ -2695,7 +2695,7 @@ NOTP20 INHINT
MASK REPOSBIT # REPOSITION HAS TAKEN OVER
CCS A
TC RROUT
-
+
CA FLAGWRD2
MASK LOSCMBIT # IF LOSCMFLG NOT SET, DON'T TEST
EXTEND # LOS COUNTER
@@ -2710,10 +2710,10 @@ NOTP20 INHINT
TC CHANG1
TC BANKCALL
CADR R21LEM2
-
+
DODESEND TS LOSCOUNT
TC ENDOFJOB
-
+
RDESGAIN DEC .53624 # TRIES TO NULL .5 ERROR IN .5 SEC.
BIT12,14 EQUALS PRIO24 # OCT 24000
COS1/2DG 2DEC .999961923 B-2 # COSINE OF 0.5 DEGREES.
@@ -2729,19 +2729,19 @@ ALLREAD OCT 17
LRVELZ TC INITREAD
OCT 16
-
+
LRVELY TC INITREAD
OCT 15
-
+
LRVELX TC INITREAD
OCT 14
-
+
RRRDOT TC INITREAD -1
OCT 12
-
+
RRRANGE TC INITREAD -1
OCT 11
-
+
# LRVEL IS THE ENTRY TO THE LR VELOCITY READ ROUTINE WHEN 5 SAMPLES ARE
# WANTED. ENTER WITH C(A)= 0,2,4 FOR LRVELZ,LRVELY,LRVELX RESP.
@@ -2749,7 +2749,7 @@ LRVEL TS TIMEHOLD # STORE VBEAM INDEX HERE MOMENTARILY
CAF FIVE # SPECIFY FIVE SAMPLES
INDEX TIMEHOLD
TCF LRVELZ
-
+
# Page 554
-1 CAF ONE # ENTRY TO TAKE ONLY 1 SAMPLE
INITREAD INHINT
@@ -2758,37 +2758,37 @@ INITREAD INHINT
EXTEND # INTERVAL (ASSUMES NO BAD SAMPLES WILL BE
MP BIT3 # ENCOUNTERED).
DXCH TIMEHOLD
-
+
CCS A
TS NSAMP
AD ONE
# INSERT FOLLOWING INSTRUCTION TO GET 2N TRIES FOR N SAMPLES.
# DOUBLE
TS SAMPLIM
-
+
CAF DGBITS # READ CURRENT VALUE OF DATA GOOD BITS.
EXTEND
RAND CHAN33
TS OLDATAGD
-
+
CS ALLREAD
EXTEND
WAND CHAN13 # REMOVE ALL RADAR BITS
-
+
INDEX Q
CAF 0
EXTEND
WOR CHAN13 # SET NEW RADAR BITS
-
+
EXTEND
DCA TIME2
DAS TIMEHOLD # TIME OF NOMINAL MIDPOINT
-
+
CAF ZERO
TS L
DXCH SAMPLSUM
TCF ROADBACK
-
+
DGBITS OCT 230
# Page 555
@@ -2798,14 +2798,14 @@ DGBITS OCT 230
SETLOC RADARUPT
BANK
-
+
COUNT* $$/RRUPT
RADAREAD EXTEND # MUST SAVE SBANK BECAUSE OF RUPT EXITS
ROR SUPERBNK # VIA TASKOVER (BADEND OR GOODEND).
TS BANKRUPT
EXTEND
QXCH QRUPT
-
+
CAF SEVEN
EXTEND
RAND CHAN13
@@ -2821,17 +2821,17 @@ TRYCOUNT CCS SAMPLIM
TC ALARM
OCT 520
TC RESUME
-
+
NOMORE CA FLGWRD11 # IS LRBYPASS SET?
MASK LRBYBIT
EXTEND
BZF BADRAD # NO. R12 IS ON -- BYPASS 521 ALARM.
-
+
CS FLAGWRD3 # CHECK R04FLAG.
MASK R04FLBIT # IF 1, R04 IS RUNNING. DO NOT ALARM
EXTEND
BZF BADRAD
-
+
TC ALARM # P20 WANTS THE ALARM.
OCT 521
BADRAD CS ONE
@@ -2844,7 +2844,7 @@ PLENTY TS SAMPLIM
EXTEND
# Page 556
BZF RENDRAD
-
+
TC R77CHECK # R77 QUITS HERE.
LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION
EXTEND
@@ -2852,18 +2852,18 @@ LRPOSCHK CA RADMODES # SEE IF LR IN DESIRED POSITION
MASK BIT6
EXTEND
BZF VELCHK
-
+
TC ALARM
OCT 522
TC BADRAD
-
+
VELCHK CAF BIN3 # = 00003 OCT
EXTEND
RXOR CHAN13 # RESET ACTIVITY BIT
MASK BIN3
EXTEND
BZF LRHEIGHT # TAKE A LR RANGE READING
-
+
CAF POSMAX
MASK RNRAD
AD LVELBIAS
@@ -2872,11 +2872,11 @@ VELCHK CAF BIN3 # = 00003 OCT
DOUBLE
MASK BIT1
DXCH ITEMP3
-
+
CAF BIT8 # DATA GOOD ISN'T CHECKED UNTIL AFTER READ-
TC DGCHECK # ING DATA SO SOME RADAR TESTS WILL WORK
# INDEPENDENT OF DATA GOOD.
-
+
CCS NSAMP
TC NOEND
GOODRAD CS ONE
@@ -2886,7 +2886,7 @@ GOODRAD CS ONE
TS RADMODES
TC RADLITES # LAMPS MAY GO OFF IF DATA JUST GOOD.
TC RGOODEND -2
-
+
NOEND TS NSAMP
RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE.
TCF +2
@@ -2896,27 +2896,27 @@ RESAMPLE CCS SAMPLIM # SEE IF ANY MORE TRIES SHOULD BE MADE.
# Page 557
WOR CHAN13 # RESET ACTIVITY BIT
TC RESUME
-
-
-LRHEIGHT CAF BIT5
+
+
+LRHEIGHT CAF BIT5
TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
CAF BIT9
TC SCALECHK -1
-
+
RENDRAD CAF REPOSBIT # MAKE SURE ANTENNA HAS NOT GONE OUT OF
MASK RADMODES # LIMITS.
CCS A
TCF BADRAD
-
+
CS RADMODES # BE SURE RR CDU HASN'T FAILED.
MASK RCDUFBIT
CCS A
TCF BADRAD
-
+
CAF BIT4 # SEE IF DATA HAS BEEN GOOD.
TS ITEMP1 # (POSITION OF DATA GOOD BIT IN CHAN 33)
-
+
CAF BIT1 # SEE IF RR RDOT.
EXTEND
RAND CHAN13
@@ -2926,7 +2926,7 @@ RENDRAD CAF REPOSBIT # MAKE SURE ANTENNA HAS NOT GONE OUT OF
TCF RADIN # NO SCALE CHECK FOR RR RDOT.
CAF BIT3
TS L
-
+
SCALECHK EXTEND
RAND CHAN33 # SCALE STATUS NOW
XCH L
@@ -2935,11 +2935,11 @@ SCALECHK EXTEND
RXOR LCHAN # SEE IF THEY DIFFER
CCS A
TC SCALCHNG # THEY DIFFER.
-
+
RADIN CAF POSMAX
MASK RNRAD
TS ITEMP4
-
+
CAE RNRAD
DOUBLE
MASK BIT1
@@ -2947,14 +2947,14 @@ RADIN CAF POSMAX
# Page 558
CCS Q # SEE IF RR RDOT.
TCF SCALADJ # NO, BUT SCALE CHANGING MAY BE NEEDED.
-
+
EXTEND # IF RR RANGE RATE, THROW OUT BIAS
DCS RDOTBIAS
DASAMPL DAS ITEMP3
DGCHECK2 CA ITEMP1 # SEE THAT DATA HAS BEEN GOOD BEFORE AND
TC DGCHECK +1 # AFTER TAKING SAMPLE.
TC GOODRAD
-
+
SCALCHNG LXCH RADMODES
AD BIT1
EXTEND
@@ -2967,7 +2967,7 @@ SCALCHNG LXCH RADMODES
TC UPFLAG # SET RNGSCFLG
ADRES RNGSCFLG # FOR LRS24.1
TCF BADRAD
-
+
# R77 MUST IGNORE DATA FAILS SO AS NOT TO DISTURB THE ASTRONAUT.
R77CHECK CS FLAGWRD5
@@ -2991,32 +2991,32 @@ BITS5,8 OCT 220
SCALADJ CCS L # L HAS SCALE INBIT FOR THIS RADAR.
TCF +2 # ON HIGH SCALE.
TCF DGCHECK2
-
+
CA DNINDEX
MASK BIT3
CCS A
TCF LRSCK
-
+
DXCH ITEMP3
DDOUBL
DDOUBL
DDOUBL
DXCH ITEMP3
-
+
TCF DGCHECK2
-
+
LRSCK CCS ITEMP3
TCF +11
CS ITEMP4
AD HISCALIM
EXTEND
BZMF +5
-
+
CS FLGWRD11
MASK SCABBIT
ADS FLGWRD11
TCF +4
-
+
CS SCABBIT
MASK FLGWRD11
TS FLGWRD11
@@ -3026,7 +3026,7 @@ LRSCK CCS ITEMP3
DDOUBL
DDOUBL
TCF DASAMPL
-
+
HISCALIM DEC 460 # 2481.7 FT ******************************
# Page 560
DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND
@@ -3044,12 +3044,12 @@ DGCHECK TS ITEMP1 # UPDATE DATA GOOD BIT IN OLDATAGD AND
DXCH ITEMP3 # IF DATA GOOD BEFORE AND AFTER, ADD TO
DAS SAMPLSUM # ACCUMULATION.
TC Q
-
+
DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT
MASK RADMODES # SHOWING SOME RADAR DATA FAILED.
AD ITEMP1
TS RADMODES
-
+
DXCH ITEMP3 # IF WE HAVE BEEN UNABLE TO GATHER N
DXCH SAMPLSUM # SAMPLES, USE LAST ONE ONLY.
TC RADLITES
@@ -3059,20 +3059,20 @@ DATAFAIL CS ITEMP1 # IN THE ABOVE CASE, SET RADMODES BIT
SETLOC P20S1
BANK
-
+
COUNT* $$/RSUB
LRPOS2 INHINT
CS RADMODES
MASK LRPOSBIT # SHOW DESIRED LR POSITION IS 2
ADS RADMODES
-
+
CAF BIT7
EXTEND
RAND CHAN33 # SEE IF ALREADY THERE.
EXTEND
BZF RADNOOP
-
+
CAF BIT13
EXTEND
WOR CHAN12 # COMMAND TO POSITION 2
@@ -3080,27 +3080,27 @@ LRPOS2 INHINT
TC WAITLIST
EBANK= LOSCOUNT
2CADR LRPOSCAN
-
+
TC ROADBACK
-
+
LRPOSNXT TS SAMPLIM
TC FIXDELAY # SCAN ONCE PER SECOND 15 TIMES MAX AFTER
DEC 100 # INITIAL DELAY OF 7 SECONDS.
-
+
CAF BIT7 # SEE IF LR POS2 IS ON
EXTEND
RAND CHAN33
EXTEND
BZF LASTLRDT # IF THERE, WAIT FINAL SECOND FOR BOUNCE.
-
+
CCS SAMPLIM # SEE IF MAX TIME UP.
TCF LRPOSNXT
-
+
CS BIT13 # IF TIME UP, DISABLE COMMAND AND ALARM.
EXTEND
WAND CHAN12
TCF RDBADEND
-
+
RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED.
TC WAITLIST
EBANK= LOSCOUNT
@@ -3110,12 +3110,12 @@ RADNOOP CAF ONE # NO FURTHER ACTION REQUESTED.
LASTLRDT CA 2SECS # WAIT TWO SECONDS AFTER RECEIPT OF INBIT
TC VARDELAY # TO WAIT FOR ANTENNA BOUNCE TO DIE OUT.
-
+
CS BIT13 # REMOVE COMMAND
EXTEND
WAND CHAN12
TCF RGOODEND
-
+
LRPOSCAN CAF FOURTEEN # SET UP FOR 15 SAMPLES.
TCF LRPOSNXT
6SECS DEC 600
@@ -3129,17 +3129,17 @@ ENDRADAR CAF RCDUFBIT # PROLOG TO CHECK RR CDU FAIL BEFORE END.
TCF RDBADEND
-2 CS ZERO # RGOODEND WHEN NOT UNDER WAITLIST CONTROL
TS RUPTAGN
-
+
RGOODEND CAF TWO
TC POSTJUMP
CADR GOODEND
-
+
-2 CS ZERO # RDBADEND WHEN NOT UNDER WIATLIST.
TS RUPTAGN
RDBADEND CAF TWO
TC POSTJUMP
CADR BADEND
-
+
BIN3 EQUALS THREE
# Page 564
@@ -3257,7 +3257,7 @@ NOTSHIFT UNIT BOVB # IF OVERFLOW, RANGE MUST BE GREATER
SETLOC P20S1
BANK
COUNT* $$/LPS20
-
+
LPS20.2 DLOAD DSU
MLOSV # MAGNITUDE OF LOS
FHNM # OVER 400NM
@@ -3321,7 +3321,7 @@ FHNM 2DEC 740800 B-20 # 400 NAUTICAL MILES IN METERS B-20
SETLOC LRS22
BANK
COUNT* $$/LRS22
-
+
LRS22.1 TC MAKECADR
TS LRS22.1X
TC DOWNFLAG
@@ -3341,7 +3341,7 @@ READRDOT TC BANKCALL
TC BANKCALL
CADR RADSTALL # WAIT FOR DATA READ COMPLETION
TCF EREXIT1 # COULD NOT READ RADAR-ERROR EXIT 1
-
+
INHINT # NO INTERRUPTS WHILE READING TIME AND CDU
DXCH TIMEHOLD # SET MARK TIME EQUAL TO THE MID-POINT
DXCH MPAC +5 # TEMP BUFFER FOR DOWNLINK
@@ -3425,7 +3425,7 @@ READRDOT TC BANKCALL
CAF BIT2 # SET ERROR CODE
TS MPAC
TCF OUT22.1
-
+
NORMEXIT EXIT # NORMAL EXIT -- SET MPAC EQUAL ZERO
CAF ZERO
TS MPAC
@@ -3435,7 +3435,7 @@ CHEXERR CAE FLAGWRD5
MASK RNGSCBIT
CCS A # CHECK IF RANGE SCALE CHANGED
TCF READRDOT # YES -- TAKE ANOTHER READING
-
+
EREXIT1 CA BIT1 # SET ERROR CODE
TS MPAC
TC OUT22.1
@@ -3473,7 +3473,7 @@ RRLOSVEC EQUALS RRTARGET
LRS22.2 TC MAKECADR
TS LRS22.1X
TC INTPRET
- # CHECK IF RR LOS IS WITHIN 30 DEG OF
+ # CHECK IF RR LOS IS WITHIN 30 DEG OF
30DEGCHK DLOAD ACOS # THE SPACECRAFT +Z AXIT
RRBORSIT +4 # BY TAKING ARCCOS OF Z-COMP. OF THE RR
# LOS VECTOR, A HALF UNIT VECTOR
@@ -3492,7 +3492,7 @@ OKEXIT EXIT # NORMAL EXIT -- SET MPAC = ZERO
TS MPAC
OUT22.2 CAE LRS22.1X
TC BANKJUMP
-
+
30DEG 2DEC .083333333 # THIRTY DEGREES, SCALED REVS, B0
# Page 574
@@ -3569,7 +3569,7 @@ LSR22.3 CALL
INTGRCAL
CALL
GRP2PC
- CALL
+ CALL
INTSTALL
CLEAR BOFF
DIM0FLAG
@@ -3591,12 +3591,12 @@ DOLEM CALL
SET CALL
VINTFLAG
SETIFLGS
- CALL
+ CALL
INTGRCAL
# Page 576
- CALL
+ CALL
GRP2PC
- CALL
+ CALL
INTSTALL
CLEAR BOFF
DIM0FLAG
@@ -3655,7 +3655,7 @@ SETX2 SXA,2 CALL
SRR* BDSU
2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-29
RM # RM - (MAGNITUDE RCSM-RLM)
- SLR*
+ SLR*
2,2 # SHIFT TO EARTH/MOON SPHERE
STODL DELTAQ # EARTH B-29. MOON B-27
36D # RLC B-29/B-27
@@ -3679,7 +3679,7 @@ SETX2 SXA,2 CALL
STORE VARIANCE
QOK CALL
LGCUPDTE
-
+
SSP CALL
WHCHREAD
DEC 2 # STORE R-RATE CODE (2) FOR R3 IN NOUN 49
@@ -3693,7 +3693,7 @@ QOK CALL
BON VCOMP # B1, COMP. IF LM BEING CORRECTED
VEHUPFLG
+1
- VXSC
+ VXSC
36D # B1 = RLC (B-24/B-22)
# Page 578
STOVL BVECTOR +6
@@ -3708,7 +3708,7 @@ QOK CALL
VCVCSM
PDVL DOT # VC - VL = VLC TO PD6
0
- 6
+ 6
PUSH SRR* # RDOT B-8/B-6 TO PD12
2,2 # SHIFT FROM EARTH/MOON SPHERE TO B-8
DSQ DMPR # RDOT**2 B-16 X RATEVAR B12
@@ -3781,7 +3781,7 @@ VOK2 VLOAD VSL* # THEN ADJUST B0, B1, DELTAQ AND VARIANCE
TPMODE
STCALL VARIANCE # AND STORE TP VARIANCE
LGCUPDTE
-
+
CALL
GRP2PC
BON EXIT # ARE ANGLES TO BE DONE
@@ -3876,7 +3876,7 @@ SHAFTBQ STCALL MZ
TPMODE # STORE VARIANCE TRIPLE PRECISION
STCALL VARIANCE # B-40
LGCUPDTE
-
+
CALL
GRP2PC
TRUNBQ CALL
@@ -3933,11 +3933,11 @@ TRUNBQ CALL
0,1
STCALL DELTAQ # EARTH B-29. MOON B-27
LGCUPDTE
- CALL
+ CALL
GRP2PC
-RENDEND GOTO
+RENDEND GOTO
R22LEM93
-
+
# FUNCTIONAL DESCRIPTION:
# LSR22.4 IS THE ENTRY TO PERFORM LUNAR SURFACE NAVIGATION FOR THE LM
# COMPUTER ONLY. THIS ROUTINE COMPUTES THE BE-VECTORS AND DELTA Q FOR RANGE
@@ -3988,19 +3988,19 @@ LSR22.4 CALL
INTGRCAL
GOTO
RANGEBQ
-
+
INITWMX6 CALL
WLINIT # INITIALIZE W-MATRIX
SET CALL
VINTFLAG
SETIFLGS
CALL
- INTGRCAL
+ INTGRCAL
GOTO
RANGEBQ
-
+
# THIS ROUTINE CLEARS RFINAL (DP) AND CALLS INTEGRV
-# Page 584
+# Page 584
INTGRCAL STQ DLOAD
IGRET
MKTIME
@@ -4008,7 +4008,7 @@ INTGRCAL STQ DLOAD
INTEGRV
GOTO
IGRET
-
+
# THIS ROUTINE INITIALIZES THE W-MATRIX BY ZEROING ALL W THEN SETTING
# DIAGONAL ELEMENTS TO INITIAL STORED VALUES.
@@ -4019,18 +4019,18 @@ WLINIT EXIT
CAF WSIZE
TS W.IND
CAF ZERO
- INDEX W.IND
+ INDEX W.IND
TS W
CCS W.IND
TC -5
CAF AIGBANK # RESTORE EBANK 7
TS BBANK
TC INTPRET
- BON SLOAD # IF ON LUNAR SURFACE, INITIALIZE WITH
+ BON SLOAD # IF ON LUNAR SURFACE, INITIALIZE WITH
SURFFLAG # WSURFPOS AND WSURFVEL INSTEAD OF
WLSRFPOS # WRENDPOS AND WRENDVEL
WRENDPOS
- GOTO
+ GOTO
WPOSTORE
WLSRFPOS SLOAD
WSURFPOS
@@ -4062,7 +4062,7 @@ WVELSTOR STORE W +72D
MARKCTR # SET MARK COUNTER EQUAL ZERO
0
RVQ
-
+
EBANK= W
WBANK BBCON WLINIT
EBANK= AIG
@@ -4077,7 +4077,7 @@ AIGBANK BBCON LSR22.3
GETULC SETPD VLOAD
0
DELTALEM
- LXA,2
+ LXA,2
SCALSHFT # LOAD X2 WITH SCALE SHIFT
VSR* VAD
9D,2 # SHIFT FOR EARTH/MOON SPHERE
@@ -4096,7 +4096,7 @@ GETULC SETPD VLOAD
STOVL 36D # ULC IN PD0 AND MPAC,RLC IN 36D
ULC
RVQ
-
+
# RADARANG
#
# THIS SUBROUTINE COMPUTS SINTHETA = -ULC DOT MY
@@ -4213,20 +4213,20 @@ CHKSRCH CAF BIT14 # ISSUE AUTO TRACK ENABLE TO RADAR
MASK FLAGWRD2 # (SRCHOPT FLAG SET)
EXTEND
BZF ENDOFJOB # NO-TERMINATE JOB
-
+
CAF 6SECONDS # SCHEDULE TASK TO DRIVE RADAR TO NEXT PT.
INHINT
TC WAITLIST # IN 6 SECONDS
EBANK= LOSCOUNT
2CADR CALLDGCH
-
+
RELINT
CS RADMODES # IS REMODE IN PROGRESS
MASK REMODBIT
EXTEND
BZF ENDOFJOB # YES -- WAIT SIX SECONDS
TC INTPRET
-
+
RTB DAD # COMPUTE LOS AT PRESENT TIME + 1.5 SEC.
LOADTIME
1.5SECS
@@ -4306,15 +4306,15 @@ CONTDES2 CS CDESBIT
AD CDESBIT # A CONTINUOUS DESIGNATE WANTED.
TS RADMODES
TC INTPRET
-
+
CALL
# Page 591
RRDESSM # DESIGNATE RADAR TO RRTARGET VECTOR
-
+
EXIT
TC LIMALARM # LOS NOT IN MODE 2 COVERAGE (P22)
TC LIMALARM # VEHICLE MANEUVER REQUIRED (P20)
-
+
# COMPUTE OMEGA,ANGLE BETWEEN RR LOS AND
# SPACECRAFT +Z AXIS
OMEGCALC EXTEND
@@ -4340,15 +4340,15 @@ CALCXY VLOAD VXV
VXV UNIT
UXVECT
STORE UYVECT # UY = LOS X UX
- GOTO
+ GOTO
OFFCALC
-
+
DESGLOS VLOAD MXV # WHEN N= 0,DESIGNATE ALONG LOS
LOSDESRD
REFSMMAT # CONVERT LOS FROM REFERENCE TO SM COORDS
VSL1 GOTO
CONTDESG
-
+
CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
MASK RNDVZBIT
EXTEND
@@ -4357,9 +4357,9 @@ CALLDGCH CAE FLAGWRD0 # IS RENDEZVOUS FLAG SET
TC FINDVAC # PONT IN SEARCH PATTERN
EBANK= RLMSRCH
2CADR DATGDCHK
-
+
TC TASKOVER
-
+
DATGDCHK CAF BIT4
EXTEND # CHECK IF DATA GOOD DISCRETE PRESENT
RAND CHAN33
@@ -4371,7 +4371,7 @@ DATGDCHK CAF BIT4
BZF LRS24.1 # YES -- RESET N = 0 AND START AROUND AGAIN
INCR NSRCHPNT # NO -- SET N = N+1 AND GO TO
TCF CHKSRCH # NEXT POINT IN PATTERN
-
+
STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1
TS DATAGOOD
# Page 593
@@ -4379,14 +4379,14 @@ STORE1S CAF ALL1S # STORE 11111 FOR DISPLAY IN R1
TC KILLTASK # DELETE DESIGNATE TASK FROM
CADR DESLOOP +2 # WAITLIST USING KILLTASK
TC ENDOFJOB
-
+
LIMALARM TC ALARM # ISSUE ALARM 527 -- LOS NOT IN MODE2
OCT 527 # COVERAGE IN P22 OR VEHICLE MANEUVER
INHINT # REQUIRED IN P20
TC KILLTASK # KILL WAITLIST CALL FOR NEXT
CADR CALLDGCH # POINT IN SEARCH PATTERN
TC ENDOFJOB
-
+
ALL1S DEC 11111
SIN60DEG 2DEC .86603
COS60DEG = DPHALF # (2DEC .50)
@@ -4404,7 +4404,7 @@ ONEOCT OCT 00001 # **** NOTE -- THESE TWO CONSTANTS MUST ****
1.5SECS 2DEC 150
ZERO/SP EQUALS HI6ZEROS
-
+
BLOCK 02
SETLOC FFTAG5
BANK
@@ -4444,7 +4444,7 @@ VB56CADR 2CADR TRMTRACK
# OUTPUT: (ALL FOR DOWNLINK)
#
# RM RDOTM (RAW)
-# AIG AMG
+# AIG AMG
# AOG TRKMKCNT TRKMKCNT = 00001 IF SET IS CONSISTENT,
# TANGNB TANGNB +1 OTHERWISE TRKMKCNT = 00000.
# MKTIME
@@ -4475,9 +4475,9 @@ VB56CADR 2CADR TRMTRACK
BANK 33
SETLOC R29/SERV
BANK
-
+
COUNT* $$/r29
-
+
NR29&RDR EQUALS EBANK5
# Page 596
@@ -4488,7 +4488,7 @@ R29 CS RADMODES
MASK DESIGBIT
EXTEND
BZF R29.LOS # BRANCH IF DESIGNATION IS ALREADY ON.
-
+
INHINT
ADS RADMODES # SHOW THAT DESIGNATION IS NOW ON.
CS BIT14
@@ -4506,24 +4506,24 @@ R29 CS RADMODES
MASK RADMODES
CCS A # TEST RR MODE BIT.
TCF SETPRPOS # MODE 2.
-
+
CA PRIO21 # MODE 1: MUST REMODE.
TC NOVAC
EBANK= LOSCOUNT
2CADR R29REM0J # NEEDS OWN JOB TO RADSTALL IN.
-
+
CS DESIGBIT
MASK RADMODES # CLEAR DESIGNATE FLAG IN RADMODES
TS RADMODES # BEFORE CALLING REMODE
CA REMODBIT
ADS RADMODES # SHOW THAT REMODING IS ON.
TCF NOR29NOW # CONTINUE SERVICER FUNCTIONS.
-
+
SETPRPOS CA ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR PREPOS29 # TASK TO SET TRUNNION ANGLE TO 180 DEG.
-
+
CA REPOSBIT
ADS RADMODES # SHOW THAT REPOSITIONING IS ON.
TCF NOR29NOW
@@ -4535,30 +4535,30 @@ R29REM0J CA ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR REMODE # REMODE MUST RUN AS A TASK.
-
+
TC BANKCALL # WAIT FOR END OF REMODING
CADR RADSTALL
-
+
TCF ENDOFJOB # BAD EXIT CAN'T HAPPEN.
TCF ENDOFJOB
-
+
# TASK TO PREPOSITION THE RR TRUNNION ANGLE TO -180 DEG.
SETLOC R29S1
BANK
-
+
PREPOS29 CA NEGMAX # -180 DEG.
TC RRTONLY # DRIVE TRUNNION CDU.
CS REPOSBIT # SHOW THAT REPOSITIONING IS OFF.
MASK RADMODES
TS RADMODES
TCF TASKOVER
-
+
# COMPUTE THE LINE-OF-SIGHT AND LOS VELOCITY, AND PASS THEM TO THE R29DODES LOOP.
SETLOC R29
BANK
-
+
R29.LOS EXTEND
DCS PIPTIME
DXCH MPAC
@@ -4594,23 +4594,23 @@ SETUP29D STOVL LOSSM # LINE-OF-SIGHT VECTOR, STABLE MEMBER AXES
STORE LOSVDT/4 # 1/2 SECOND'S WORTH OF LOS VELOCITY.
CLEAR EXIT
LOSCMFLG # LET R29DLOOP USE NEW DATA.
-
+
CS STATE
MASK OLDESBIT
EXTEND
BZF NOR29NOW # BRANCH IF R29 DES. LOOP IS REQUESTED.
INHINT
ADS STATE # OTHERWISE REQUEST IT NOW.
-
+
CCS PIPCTR # SEE IF TASK SHOULD BE OFFSET ONE SECOND.
CS SUPER110 # -96D +100D = 4.
AD 1SEC # 0 +100D = 100D.
TC WAITLIST
EBANK= LOSCOUNT
2CADR BEGDES29 # START BEGDES29 TASK ASAP.
-
+
TCF NOR29NOW # RELINT AND CONTINUE SERVICER FUNCTIONS.
-
+
.5SECB17 2DEC 50 B-17
# Page 599
@@ -4620,29 +4620,29 @@ SETUP29D STOVL LOSSM # LINE-OF-SIGHT VECTOR, STABLE MEMBER AXES
BANK 24
SETLOC P20S
BANK
-
+
COUNT* $$/R29
-
+
BEGDES29 CAF PRIO21
TC NOVAC
EBANK= LOSVDT/4
2CADR R29DODES # START R29DODES JOB TWICE A SECOND.
-
+
R29DLOOP CAF .5SEC
TC VARDELAY
-
+
CS RADMODES
MASK DESIGBIT
CCS A
TCF TASKOVER # QUIT IF DESIGNATION IS CALLED OFF.
-
+
CS FLAGWRD2
MASK LOSCMBIT
EXTEND
BZF +3 # BRANCH IF SETUP29D'S SUPPLYING NEW DATA.
ADS FLAGWRD2 # SET LOSCMFLG: SHOW THAT DES. LOOP IS ON.
TCF BEGDES29
-
+
CA ONE
TCF R29DLOOP +1 # WAIT A CENTISECOND FOR NEW DATA.
# Page 600
@@ -4660,25 +4660,25 @@ R29DLOOP CAF .5SEC
BANK 32
SETLOC F2DPS*32
BANK
-
+
COUNT* $$/R29
EBANK= LOSVDT/4
-
+
R29DODES CA ONE
TS TANG # INDICATE 1ST PASS THRU VECTOR LOOP.
CA FIVE
-
+
R29DVBEG CCS A # COUNT DOWN BY TWO'S IN VECTOR LOOP.
TS Q
CCS TANG
TCF R29DPAS1 # DO THIS ON 1ST PASS THRU LOOP.
-
+
EXTEND # (A "PASS" HERE MEANS 3 TIMES AROUND).
INDEX Q
DCA LOSVDT/4
INDEX Q
DAS LOSSM # ADVANCE LOS VECTOR 1/2 SECOND.
-
+
R29DPAS1 EXTEND
INDEX Q
DCA LOSSM
@@ -4686,16 +4686,16 @@ R29DPAS1 EXTEND
DXCH MPAC +1 # JECTED 1/2 SEC AHEAD (2ND PASS).
CCS TANG
TCF R29DVEND # BUG OUT HERE IN 1ST PASS.
-
+
EXTEND
INDEX Q
DCA LOSVDT/4
INDEX Q
DAS MPAC +1 # PROJECT LOS 1 SECOND AHEAD (2ND PASS).
-
+
R29DVEND CCS Q
TCF R29DVBEG # BRANCH TO CONTINUE VECTOR LOOP.
-
+
# Page 601
# UNITIZE AND TRANSFORM TO NAV BASE AXES THE PRESENT LOS (1ST PASS) OR THE 1-SEC PROJECTED LOS (2ND PASS).
@@ -4706,7 +4706,7 @@ R29DVEND CCS Q
TC USPRCADR # WITH FIXLOC ARMED FOR LENGTH AND LENGTH
CADR UNIT # SQUARED, BORROW UNITIZING ROUTINE.
TC MPACVBUF # MOVE UNIT(LOS) TO AX*SR*T ARG AREA.
-
+
CCS TANG
TCF +2
TCF GOTANGLS # GET CDU ANGLES ONLY AFTER 1ST PASS.
@@ -4722,7 +4722,7 @@ R29DVEND CCS Q
TS CDUSPOT +4 # CDU ANGLES IN FUNNY ORDER FOR AX*SR*T.
TC BANKCALL
CADR QUICTRIG # GET SINES AND COSINES OF CDU ANGLES.
-
+
GOTANGLS CS THREE
TC BANKCALL
CADR AX*SR*T # TRANSFORM UNIT LOS TO NB AXES (ULOSNB).
@@ -4772,7 +4772,7 @@ TESTCOS DAS MPAC # (ULOSNB IN VBUF WAS A HALF-UNIT VECTOR).
WOR CHAN12 # IF PLUS OVERFLOW, SET SELFTRACK ENABLE.
RELINT
TCF R29DVBEG -1 # MAKE 2ND PASS THRU VECTOR LOOP.
-
+
# Page 603
# COMPUTE SHAFT AND TRUNNION COMMANDS TO NULL HAVE THE ERROR IN HALF A SECOND.
@@ -4807,7 +4807,7 @@ R29DPAS2 CA SAVECDUT +1
EXTEND
MP RR29GAIN
TS TANG +1 # STORE REFINED S CMD.
-
+
# Page 604
# WHETHER OR NOT TRACKING WAS ENABLED THIS TIME, CHECK ON RR DATA-GOOD. IF PRESENT, STOP DESIGNATING AND START
# READING DATA FROM THE RENDEZVOUS RADAR.
@@ -4818,11 +4818,11 @@ DGOOD? CAF BIT4
INHINT # (MAINLY FOR RROUT).
EXTEND
BZF R29LOKON # BRANCH IF DATA-GOOD IS PRESENT.
-
+
TC BANKCALL
CADR RROUT # DATA-GOOD IS ABSENT, SO SEND COMMANDS.
TCF END29DOD
-
+
R29LOKON CS DESIGBIT
MASK RADMODES
TS RADMODES # SHOW THAT DESIGNATION IS OVER.
@@ -4837,12 +4837,12 @@ R29LOKON CS DESIGBIT
TC WAITLIST
EBANK= LOSCOUNT
2CADR R29READ # START READING TASK AND JOB.
-
+
END29DOD CS LOSCMBIT
MASK FLAGWRD2
TS FLAGWRD2 # ALWAYS CLEAR LOSCMFLG.
TCF ENDOFJOB
-
+
R29FXLOC ADRES INTB15+ -34D
RR29GAIN DEC -.53624
LOSVDT/4 EQUALS LOSVEL
@@ -4855,41 +4855,41 @@ SAVECDUT EQUALS MLOSV
BANK 24
SETLOC P20S
BANK
-
+
COUNT* $$/R29
-
+
EBANK= LOSCOUNT
-
+
R29READ CAF PRIO26 # CALLED BY WAITLIST
TC NOVAC
EBANK= LOSCOUNT
2CADR R29RDJOB # START JOB TO READ AND DOWNLINK FOR R29.
-
+
CA 2SECS
TC VARDELAY
-
+
CA FLAGWRD3 # 2 SECONDS LATER, SEE IF READING IS STILL
MASK READRBIT # ALLOWED (NO TRACKER FAIL ETC.)
CCS A
TCF R29READ # IT'S OK: CALL IT AGAIN.
TCF TASKOVER # IT AIN'T: WAIT FOR REDESIGNATE.
-
+
R29RDJOB CA FLAGWRD3 # CALLED VIA NOVAC.
MASK NR29FBIT
CCS A # TEST "NOR29FLG".
TCF ENDRRD29 # R29 IS NOW OVER, STOP AT ONCE.
-
+
CA RADMODES
MASK AUTOMBIT
CCS A # TEST RR-NOT-IN-AUTO-MODE BIT.
TCF ENDRRD29 # ASTRO TOOK RR OUT OF AUTO MODE.
-
+
TC BANKCALL
CADR RRRDOT # INITIATE READING OF RANGE RATE.
TC BANKCALL
CADR RADSTALL # GOT TO SLEEP UNTIL IT'S READY.
TCF ENDRRD29 # BAD READ; REDESIGNATE.
-
+
# Page 606
# R29 RADAR READING CONTINUED.
@@ -4904,13 +4904,13 @@ R29RDJOB CA FLAGWRD3 # CALLED VIA NOVAC.
DXCH MPAC +4 # MPAC'S 7 WORDS ARE BUFFERED FOR COPYCYCLE.
CA CDUX
TS MPAC +6 # IMUCDU ANGLES AT RR READ, FOR DOWNLINK.
-
+
R29RANGE TC BANKCALL
CADR RRRANGE # INITIATE READING OF RR RANGE.
TC BANKCALL
CADR RADSTALL # GO TO SLEEP UNTIL IT'S READY.
TCF R29RRR? # BAD READ OR SCALE CHANGE ... WHICH?
-
+
INHINT
DXCH DNRRANGE # COPYCYCLE TO LAY OUT NEW R29 DOWNLINK.
DXCH RM
@@ -4925,7 +4925,7 @@ R29RANGE TC BANKCALL
CA ONE
TS TRKMKCNT # SHOW THAT DOWNLINK DATA IS CONSISTENT.
TCF ENDOFJOB
-
+
R29RRR? CS FLAGWRD5
MASK BIT10
CCS A # WAS IT A SCALE CHANGE (REAL OR PHONY)?
@@ -4933,7 +4933,7 @@ R29RRR? CS FLAGWRD5
TC DOWNFLAG
ADRES RNGSCFLG
TCF R29RANGE # YES; CLEAR FLAG AND READ AGAIN.
-
+
ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE
TS TRKMKCNT # RR-READING MODE. DISCREDIT DOWNTEL.
TC DOWNFLAG
@@ -4943,7 +4943,7 @@ ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE
# Page 607
WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE.
TCF ENDOFJOB
-
+
# Page 608
# W-MATRIX MONITOR
@@ -4951,9 +4951,9 @@ ENDRRD29 CA ZERO # TROUBLE MADE US COME HERE TO LEAVE THE
SETLOC VB67
BANK
COUNT* $$/EXTVB
-
+
EBANK= WWPOS
-
+
V67CALL TC INTPRET
CALL
V67WW
@@ -4988,7 +4988,7 @@ N99LOOP TS Q
BZF V06N9933
TC UPFLAG
ADRES V67FLAG
-
+
V06N9933 TC INTPRET
BON EXIT
V67FLAG
@@ -5054,7 +5054,7 @@ V06N99 VN 0699
SETLOC VB67A
BANK
COUNT* $$/EXTVB
-
+
ADDPOS DAD
WWPOS
STORE WWPOS
@@ -5109,36 +5109,36 @@ FT99999 2DEC 30479 B-19
SETLOC RADARUPT
BANK
COUNT* $$/RRUPT
-
+
EBANK= LOSCOUNT
R12LITES CA ONE
MASK IMODES33
CCS A
TCF ISWRETRN
-
+
TC HLIGHT
TC HLIGHT -3
TCF ISWRETRN
-
+
RADLITES CA BIT1
MASK IMODES33
CCS A
TC Q
-
+
CS BIT5
AD ITEMP1
CCS A
CS ONE
TCF VLIGHT
-
+
TCF RRTRKF
-
+
HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX
CA HLITE
TS L
-
+
CA FLGWRD11
MASK SCABBIT
CCS A
@@ -5147,7 +5147,7 @@ HLIGHT TS ITEMP5 # ZERO ITEMP5 FOR H INDEX
BOTHLITS MASK RADMODES
CCS A
TCF ONLITES
-
+
CA FLGWRD11
INDEX ITEMP5
MASK HFLSHBIT
@@ -5157,17 +5157,17 @@ BOTHLITS MASK RADMODES
LITIT EXTEND
QXCH ITEMP6
TC TRKFLON +1
-
+
EXTEND
QXCH ITEMP6
TCF RRTRKF
-
+
ONLITES INDEX ITEMP5
CS HFLSHBIT
MASK FLGWRD11
TS FLGWRD11
-
+
CA L
TCF LITIT
VLIGHT TS ITEMP5
@@ -5175,7 +5175,7 @@ VLIGHT TS ITEMP5
TS L
CA BIT8
TCF BOTHLITS
-
+
HLITE EQUALS BIT5
VLITE EQUALS BIT3
diff --git a/Luminary099/P30_P37.agc b/Luminary099/P30_P37.agc
index dca84cc..0d984bd 100644
--- a/Luminary099/P30_P37.agc
+++ b/Luminary099/P30_P37.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 614-617
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-05 RSB Removed 4 lines of code that shouldn't
# have survived from Luminary 131.
@@ -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 614
# PROGRAM DESCRIPTION P30 DATE 3-6-67
@@ -63,13 +63,13 @@ P30 TC UPFLAG # SET UPDATE FLAG
ADRES UPDATFLG
TC UPFLAG # SET TRACK FLAG
ADRES TRACKFLG
-
+
P30N33 CAF V06N33 # T OF IGN
TC VNP00H # RETURN ON PROCEED, P00H ON TERMINATE
-
+
CAF V06N81 # DISPLAY DELTA V (LV)
TC VNP00H # REDISPLAY ON RECYCLE
-
+
TC DOWNFLAG # RESET UPDATE FLAG
ADRES UPDATFLG
TC INTPRET
@@ -79,13 +79,13 @@ P30N33 CAF V06N33 # T OF IGN
UPDATFLG
PARAM30 CAF V06N42 # DISPLAY APOGEE,PERIGEE,DELTA V
TC VNP00H
-# Page 615
-
+# Page 615
+
TC INTPRET
SETGO
XDELVFLG # FOR P40'S: EXTERNAL DELTA-V GUIDANCE.
REVN1645 # TRKMKCNT, T60, +MGA DISPLAY
-
+
V06N33 VN 0633
V06N42 VN 0642
@@ -137,15 +137,15 @@ V06N42 VN 0642
SETLOC P30S1
BANK
-
+
COUNT* $$/S30S
-
+
S30.1 STQ DLOAD
QTEMP
TIG # TIME IGNITION SCALED AT 2(+28)CS
STCALL TDEC1
LEMPREC # ENCKE ROUTINE FOR LEM
-
+
VLOAD SXA,2
# Page 617
RATT
@@ -189,5 +189,5 @@ S30.1 STQ DLOAD
MAXCHK
STCALL HAPO # APOGEE ALT 2(29) METERS FOR DISPLAY
QTEMP
-
+
diff --git a/Luminary099/P32-P35_P72-P75.agc b/Luminary099/P32-P35_P72-P75.agc
index 931ea8b..0f923f2 100644
--- a/Luminary099/P32-P35_P72-P75.agc
+++ b/Luminary099/P32-P35_P72-P75.agc
@@ -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 618
# COELLIPTIC SEQUENCE INITIATION (CSI) PROGRAMS (P32 AND P72)
diff --git a/Luminary099/P34-35_P74-75.agc b/Luminary099/P34-35_P74-75.agc
index f8578ac..6344a23 100644
--- a/Luminary099/P34-35_P74-75.agc
+++ b/Luminary099/P34-35_P74-75.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 658-702
-# 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-05 RSB Corrected a typo.
# 2011-01-06 JL Fixed pseudo-label indentation.
@@ -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 658
# TRANSFER PHASE INITITIATION (TPI) PROGRAMS (P34 AND P74)
@@ -1664,7 +1664,7 @@ SHIFTR1 LXA,2 SL*
BANK
# Page 701
EBANK= RPASS36
-
+
COUNT* $$/R36
R36 ZL
@@ -1756,8 +1756,8 @@ LREGCHK XCH L
BZF ENTTIM2 # L-REG ZERO, SET TIME = PRESENT TIME
XCH L # L-REG NON ZERO, TIME = ASTRO INPUT TIME
TCF ASTROTIM
-ENTTIM2 TC INTPRET
- RTB GOTO
+ENTTIM2 TC INTPRET
+ RTB GOTO
LOADTIME
R36INT
V06N16N VN 00616
diff --git a/Luminary099/P40-P47.agc b/Luminary099/P40-P47.agc
index bf8c16b..11ab016 100644
--- a/Luminary099/P40-P47.agc
+++ b/Luminary099/P40-P47.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 752-784
-# 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.
# 2011-01-06 JL Fixed interpretive indentation.
#
@@ -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 752
# PROGRAM DESCRIPTION: P40BOTH DECEMBER 22, 1966
@@ -835,7 +835,7 @@ S40.2,3 VLOAD # UT: DESIRED THRUST DIRECTION (HALF-UNIT)
STOVL POINTVSM # SAVE FOR "VECPOINT" ROUTINE (LEMMANU).
UNITX # SCAXIS SET TO +X, FOR P40 AND P42 AND
STOVL SCAXIS # FOR P41 IF RCS NOT -X,+Y,-Y,+Z,-Z.
-
+
UT # ASSUME +X BURN ALWAYS, EVEN FOR RCS.
PLUSX STORE XSCREF # XSCREF = UT (DESIRED THRUST DIRECTION)
VXV UNIT # RTIG = POSITION AT TIME-OF-IGNITION.
@@ -1201,31 +1201,31 @@ RASTEER1 VLOAD ABVAL
MUASTEER
PDDL DSU
SS
- RMAG
+ RMAG
NORM SR1
- X1
- DDV DMP
- R1C
+ X1
+ DDV DMP
+ R1C
XSU,2 SL*
X1
1,2
- LXA,2
- MUSCALE
- SQRT SIGN
- GEOMSGN
+ LXA,2
+ MUSCALE
+ SQRT SIGN
+ GEOMSGN
STORE 32D # + OR - A
DLOAD DMP
SS
- MU/A
- BDSU
- MUASTEER
+ MU/A
+ BDSU
+ MUASTEER
PDDL DSU
SS
RTMAG
NORM SR1
- X1
- DDV DMP
-
+ X1
+ DDV DMP
+
# Page 778
R1C
XSU,2 SL*
@@ -1237,33 +1237,33 @@ RASTEER1 VLOAD ABVAL
30D
SS
SQRT PUSH
- SR1 ASIN
+ SR1 ASIN
DMP PDDL
2PI+3
PDDL DDV
30D
SS
- BOV
+ BOV
+1
- SQRT DMP
+ SQRT DMP
SR3 BDSU
SIGN PDDL
- GEOMSGN
+ GEOMSGN
2PI+3
- SR2 DSU
+ SR2 DSU
DMP PDDL
SS
- SS
- SR3 SQRT
+ SS
+ SR3 SQRT
DMP
- PDDL SL3
- MUASTEER
- SQRT BDDV
- DSU DAD
- TPASS4
+ PDDL SL3
+ MUASTEER
+ SQRT BDDV
+ DSU DAD
+ TPASS4
PIPTIME
- STODL 30D
- SIGN
+ STODL 30D
+ SIGN
30D # B WITH SIGN
STORE 30D
BON VLOAD
@@ -1272,14 +1272,14 @@ RASTEER1 VLOAD ABVAL
IC
VSU UNIT
UNIT/R/
- VXSC PDVL
- 30D
+ VXSC PDVL
+ 30D
IC
VAD UNIT
- UNIT/R/
+ UNIT/R/
# Page 779
GETVRVG1 VXSC VAD
- 32D
+ 32D
GETVRVG2 LXC,2 VSR*
RTX2
0 -1,2
diff --git a/Luminary099/P51-P53.agc b/Luminary099/P51-P53.agc
index 9ce3be7..881326c 100644
--- a/Luminary099/P51-P53.agc
+++ b/Luminary099/P51-P53.agc
@@ -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 926
# PROGRAM NAME -- PROG52 DATE -- JAN 9, 1967
@@ -1248,7 +1248,7 @@ R52B TC DOWNFLAG
BZMF GETAZEL # CODE 0, COAS CALIBRATION
AD NEG7
- EXTEND
+ EXTEND
BZF GETAZEL # CODE 7, COAS SIGHTING
EBANK= XYMARK
diff --git a/Luminary099/P70-P71.agc b/Luminary099/P70-P71.agc
index 5bd3fd6..360447f 100644
--- a/Luminary099/P70-P71.agc
+++ b/Luminary099/P70-P71.agc
@@ -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 829
BANK 21
@@ -79,7 +79,7 @@ P71NOW? CS MODREG # YES. ARE WE IN P71 NOW?
AD 1DEC71
EXTEND
BZF LANDISP # YES. PROCEED TO R10.
-
+
EXTEND # NO. IS AN ABORT STAGE COMMANDED?
READ CHAN30
COM
@@ -181,24 +181,24 @@ ABRTJASK CAF OCTAL27
EXTEND
DCA NEG0
DXCH -PHASE1
-
+
EXTEND
DCA NEG0
DXCH -PHASE3
-
+
EXTEND
DCA NEG0
DXCH -PHASE6
-
+
CAF THREE # SET UP 4.3SPOT FOR GOABORT
TS L
COM
DXCH -PHASE4
# the 3 in OCT37774 could be something else, garbled
- CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
+ CAF OCT37774 # SET T5RUPT TO CALL DAPIDLER IN
TS TIME5 # 40 MILLISECONDS.
-
+
TC POSTJUMP
CADR ENEMA
@@ -232,13 +232,13 @@ GOABORT TC INTPRET
# Page 833
TC DOWNFLAG
ADRES FLUNDISP
-
+
TC DOWNFLAG
ADRES IDLEFLAG
-
+
TC UPFLAG # INSURE 4-JET TRANSLATION CAPABILITY.
ADRES ACC4-2FL
-
+
TC CHECKMM
70DEC DEC 70
TCF P71RET
@@ -288,7 +288,7 @@ BOTHPOLY DLOAD* DMP # TGO D
ABTCOF +4,1 # TGO(B+TGO d))
TGO
DAD*
- ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
+ ABTCOF +6,1 # A+TGO(B+TGO(C+TGO D))
STORE ZDOTD # STORE TENTATIVELY IN ZDOTD
DSU BPL # CHECK AGAINST MINIMUM
VMIN
@@ -314,18 +314,18 @@ YOK DLOAD DSU
STORE XRANGE # TO LOOK.
UPTHROT SET EXIT
FLVR
-
+
TC UPFLAG # SET ROTFLAG
ADRES ROTFLAG
-
+
TC THROTUP
TC PHASCHNG
OCT 04024
--3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
+-3 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
CADR P40AUTO # ARE PROPERLY SET.
-
+
TC THROTUP
UPTHROT1 EXTEND # SET SERVICER TO CALL ASCENT GUIDANCE.
diff --git a/Luminary099/P76.agc b/Luminary099/P76.agc
index b429c0c..ff167e2 100644
--- a/Luminary099/P76.agc
+++ b/Luminary099/P76.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 709-711
-# 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.
#
# 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 709
# 1) PROGRAM NAME -- TARGET DELTA V PROGRAM (P76).
diff --git a/Luminary099/PHASE_TABLE_MAINTENANCE.agc b/Luminary099/PHASE_TABLE_MAINTENANCE.agc
index 1aeffde..0f1e9b2 100644
--- a/Luminary099/PHASE_TABLE_MAINTENANCE.agc
+++ b/Luminary099/PHASE_TABLE_MAINTENANCE.agc
@@ -11,7 +11,7 @@
# 2009-06-05 RSB A few lines at the bottom of page image
# 1294 were truncated. I've fixed the page
# image and added those missing lines here.
-# 2011-05-07 JL Flagged SBANK= workaround for future
+# 2011-05-07 JL Flagged SBANK= workaround for future
# removal.
# This source code has been transcribed or otherwise adapted from
@@ -27,7 +27,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 1294
# SUBROUTINE TO UPDATE THE PROGRAM NUMBER DISPLAY ON THE DSKY.
@@ -79,7 +79,7 @@ DSPMMJOB EQUALS DSPMMJB
BLOCK 02
SETLOC FFTAG1
BANK
-
+
# Page 1295
# PHASCHNG IS THE MAIN WAY OF MAKING PHASE CHANGES FOR RESTARTS. THERE ARE THREE FORMS OF PHASCHNG, KNOWN AS TYPE
# A, TYPE B, AND TYPE C. THEY ARE ALL CALLED AS FOLLOWS, WHERE OCT XXXXX CONTAINS THE PHASE INFORMATION,
@@ -407,5 +407,5 @@ CHECKB MASK BIT12 # SINCE THIS IS OF TYPE B, THIS BIT WOULD
TCF GETPRIO # IT IS, SO GET NEW PRIORITY
TCF OLDPRIO # IT ISN'T, USE THE OLD PRIORITY.
-
+
diff --git a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
index bc4aa3e..056d1da 100644
--- a/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
+++ b/Luminary099/PINBALL_GAME_BUTTONS_AND_LIGHTS.agc
@@ -53,40 +53,40 @@
# ARE OUTSIDE OF THE DOMAIN OF PINBALL AND CAN BE FOUND UNDER LOG SECTION
# 'EXTENDED VERBS').
#
-# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION 'ASSEMBLY AND
+# A LIST OF VERBS AND NOUNS IS GIVEN IN LOG SECTION 'ASSEMBLY AND
# OPERATION INFORMATION'.
#
-## Ramón Alonso, one of the original AGC developers, provides a
-## little more insight: Apparently, nobody had yet arrived at any kind
+## Ramón Alonso, one of the original AGC developers, provides a
+## little more insight: Apparently, nobody had yet arrived at any kind
## of software requirements for the AGC's user interface when the desire
-## arose within the Instrumentation Laboratory to set up a demo
-## guidance-computer unit with which to impress visitors to the lab.
-## Of course, this demo would have to <i>do</i> something, if it was going to be
-## at all impressive, and to do something it would need some software. In
-## short order, some of the coders threw together a demo program,
-## inventing and using the verb/noun user-interface concept (in the
-## whimsical fashion seen in much of this code), but without any idea
-## that the verb/noun concept would somehow survive into the flight
-## software. As time passed, and more and more people became familiar
-## with the demo, nobody got around to inventing an improvement for the
-## user interface, so the coders simply built it into the flight software
+## arose within the Instrumentation Laboratory to set up a demo
+## guidance-computer unit with which to impress visitors to the lab.
+## Of course, this demo would have to <i>do</i> something, if it was going to be
+## at all impressive, and to do something it would need some software. In
+## short order, some of the coders threw together a demo program,
+## inventing and using the verb/noun user-interface concept (in the
+## whimsical fashion seen in much of this code), but without any idea
+## that the verb/noun concept would somehow survive into the flight
+## software. As time passed, and more and more people became familiar
+## with the demo, nobody got around to inventing an improvement for the
+## user interface, so the coders simply built it into the flight software
## without any specific requirements to do so.<br>
## <br>
-## However, that does not mean that the verb/noun interface was universally
-## beloved. Ramón says that <i>many</i> objections were received from
-## naysayers, such as "it's not scientific", "it's not dignified", or
-## even "astronauts won't understand it". Even though the coders of
-## the demo hadn't seriously intended the verb/noun interface to be used
-## in any permanent way, it became a kind of devilish game to counter
-## these objections with (perhaps) sophistic arguments as to why the
-## interface was really a good one. In the end, the coders won. I don't
+## However, that does not mean that the verb/noun interface was universally
+## beloved. Ramón says that <i>many</i> objections were received from
+## naysayers, such as "it's not scientific", "it's not dignified", or
+## even "astronauts won't understand it". Even though the coders of
+## the demo hadn't seriously intended the verb/noun interface to be used
+## in any permanent way, it became a kind of devilish game to counter
+## these objections with (perhaps) sophistic arguments as to why the
+## interface was really a good one. In the end, the coders won. I don't
## know whether they were elated or dismayed by this victory.<br>
## <br>
-## The astronauts, of course, <i>could</i> understand the interface,
-## but they did not like it. Most of them really wanted an interface much
-## more like that they had used in aircraft: i.e., lots of dials and
-## switches. Dave Scott is the the only astronaut I'm aware of who had
-## kind words for it (or for the AGC in general), though we are told that
+## The astronauts, of course, <i>could</i> understand the interface,
+## but they did not like it. Most of them really wanted an interface much
+## more like that they had used in aircraft: i.e., lots of dials and
+## switches. Dave Scott is the the only astronaut I'm aware of who had
+## kind words for it (or for the AGC in general), though we are told that
## Jim McDivitt wasn't necessary completely hostile to it.<br>
## <br>
## <div style="text-align: right;"><small>—Ron Burkey, 07/2009</small></div>
@@ -116,7 +116,7 @@
# 1) ALL BUT (2), (3), AND (4) EXIT DIRECTLY TO ENDOFJOB.
# 2) EXTENDED VERBS GO TO THE EXTENDED VERB FAN AS PART OF THE
# Page 391
-# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
+# PINBALL EXECUTIVE JOB WITH PRIORITY 30000. IT IS THE
# RESPONSIBILITY OF THE EXTEDED VERB CALLED TO EVENTUALLY
# CHANGE PRIORITY (IF NECESSARY) AND DO AN ENDOFJOB.
# ALSO PINBALL IS A NOVAC JOB. EBANK SET FOR COMMON.
@@ -124,7 +124,7 @@
# SERVICE ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO
# 30000. THE NEW PROGRAM CODE (MAJOR MODE) IS LEFT IN A.
# 4) KEY RELEASE BUTTON CALLS 'PINBRNCH' IN THE DISPLAY INTERFACE
-# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
+# ROUTINES AS PART OF THE PINBALL EXEC JOB WITH PRIO 30000 IF
# THE KEY RELEASE LIGHT IS OFF AND 'CADRSTOR' IS NOT +0.
#
# IF PINBALL WAS CALLED BY INTERNAL PROGRAMS, EXIT FROM PINBALL IS BACK
@@ -208,7 +208,7 @@
# DESCRIBING KEYBOARD AND DISPLAY OPERATION FOR 278.
## The document described above, "Keyboard and Display Program Operation"
-## by Alan I. Green and Robert J. Filene is
+## by Alan I. Green and Robert J. Filene is
## <a href="http://www.ibiblio.org/apollo/hrst/archive/1706.pdf">
## available online at the Virtual AGC website</a>.
## <small>—Ron Burkey, 07/2009</small>
@@ -449,7 +449,7 @@
# VERB/NOUN FLASH - BIT 6 OF CHANNEL 11
# OPERATOR ERROR LIGHT - BIT 7 OF CHANNEL 11
-## <b>Hint:</b> In the source code below, each of the blue operands to the
+## <b>Hint:</b> In the source code below, each of the blue operands to the
## right of the instruction opcodes is a hyperlink back to the definition
## of the symbol. This is particularly useful for tracing program flow.
# Page 398
@@ -458,7 +458,7 @@
BANK 40
SETLOC PINBALL1
BANK
-
+
COUNT* $$/PIN
CHARIN CAF ONE # BLOCK DISPLAY SYST
XCH DSPLOCK # MAKE DSP SYST BUSY, BUT SAVE OLD
@@ -508,11 +508,11 @@ CHARIN2 XCH MPAC
TC CHARALRM # 35
TC CLEAR # 36 CLEAR
TC NOUN # 37 NOUN
-
+
ELRCODE1 OCT 22
ENTERJMP TC POSTJUMP
CADR ENTER
-
+
89TEST CCS DSPCOUNT
TC +4 # +
TC +3 # +0
@@ -523,7 +523,7 @@ ENTERJMP TC POSTJUMP
CCS A
TC NUM # IF DECBRNCH IS +, 8 OR 9 OK
TC CHARALRM # IF DECBRNCH IS +0, REJECT 8 OR 9
-
+
# NUM ASSEMBLES OCTAL 3 BITS AT A TIME. FOR DECIMAL IT CONVERTS INCOMING
# WORD AS A FRACTION, KEEPING RESULTS TO DP.
# OCTAL RESULTS ARE LEFT IN XREG, YREG, OR ZREG. HI PART OF DEC IN XREG,
@@ -616,13 +616,13 @@ DECEND CS ONE
MORNUM CCS DSPCOUNT # DECREMENT DSPCOUNT
TS DSPCOUNT
TC ENDOFJOB
-
+
CRITCON OCT 22 # (DEC 18)
OCT 20 # (DEC 16)
OCT 12 # (DEC 10)
OCT 5
OCT 0
-
+
DECON 2DEC 1 E-5 B14 # 2EXP14/10EXP5 = .16384 DEC
# GETINREL GETS PROPER DATA REG REL ADDRESS FOR CURRENT C(DSPCOUNT) AND
@@ -632,7 +632,7 @@ GETINREL INDEX DSPCOUNT
CAF INRELTAB
TS INREL # (A TEMP. REG)
TC Q
-
+
INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
OCT 4 # R3D4 =(1)
OCT 4 # R3D3 =(2)
@@ -654,7 +654,7 @@ INRELTAB OCT 4 # R3D5 (DSPCOUNT = 0)
# Page 402
OCT 0 # VD2 =(18D)
OCT 0 # VD1 =(19D)
-
+
VERB CAF ZERO
TS VERBREG
CAF VD1
@@ -672,7 +672,7 @@ NOUN CAF ZERO
TS NOUNREG
CAF ND1 # ND1, OCT 21 (DEC 17)
TC NVCOM
-
+
NEGSGN TC SIGNTEST
TC -ON
CAF TWO
@@ -684,12 +684,12 @@ FIXCLPAS CCS CLPASS # IF CLPASS IS + OR +0. MAKE IT +0.
TS CLPASS
TC +1
TC ENDOFJOB
-
+
POSGN TC SIGNTEST
TC +ON
CAF ONE
TC BOTHSGN
-
+
+ON LXCH Q
TC GETINREL
INDEX INREL
@@ -715,11 +715,11 @@ SGNCOM CAF ZERO
AD ONE
TS SGNOFF
TC SGNCOM
-
+
SGNTAB OCT 5 # -R1
OCT 3 # -R2
OCT 0 # -R3
-
+
SIGNTEST LXCH Q # ALLOWS +,- ONLY WHEN DSPCOUNT=R1D1,
CAF THREE # R2D1, OR R3D1. ALLOWS ONLY FIRST OF
MASK DECBRNCH # CONSECUTIVE +/- CHARACTERS.
@@ -737,12 +737,12 @@ SGNTST1 AD DSPCOUNT
BZF +2 # MATCH FOUND
TC Q
TC L # SIGN LEGAL
-
+
# CLEAR BLANKS WHICH R1, R2, R3 IS CURRENT OR LAST TO BE DISPLAYED (PERTINENT
# XREG, YREG, ZREG IS CLEARED). SUCCESSIVE CLEARS TAKE CARE OF EACH RX
# L/ RC UNTIL R1 IS DONE. THEN NO FURTHER ACTION.
#
-# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
+# THE SINGLE COMPONENT LOAD VERBS ALLOW ONLY THE SINGLE RC THAT IS
# APPROPRIATE TO BE CLEARED.
#
# CLPASS +0 PASS0, CAN BE BACKED UP
@@ -787,7 +787,7 @@ LEGALTST AD NEG2
TC CCSHOLE
TC ENDOFJOB # ILLEGAL INREL=0,1
TC Q # LEGAL INREL=2
-
+
# 5BLANK BLANKS 5 CHAR DISPLAY WORD IN R1, R2, OR R3. IT ALSO ZEROES XREG,
# YREG, OR ZREG. PLACE ANY + DSPCOUNT NUMBER FOR PERTINENT RC INTO DSPCOUNT.
# DSPCOUNT IS LEFT SET TO LEFT MOST DSP NUMB FOR RC JUST BLANKED.
@@ -822,14 +822,14 @@ LEGALTST AD NEG2
CAF R1D1 -2
TS DSPCOUNT # SET DSPCOUNT TO LEFT MOST DSP NUMBER
TC L # OF REG. JUST BLANKED
-
+
SINBLANK OCT 16 # DEC 14
OCT 5
OCT 4
DOUBLK OCT 15 # DEC 13
OCT 11 # DEC 9
OCT 3
-
+
BRNCHCON OCT 77774
# 2BLANK BLANKS TWO CHAR. PLACE DSP NUMBER OF LEFT CHAR OF THE PAIR INTO
@@ -860,7 +860,7 @@ BLANKCON OCT 4000
BANK 41
SETLOC PINBALL2
BANK
-
+
COUNT* $$/PIN
NVSUBB TC NVSUB1 # STANDARD LEAD INS. DONT MOVE.
LOADLV1 TC LOADLV
@@ -892,7 +892,7 @@ ACCEPTWD CS REQRET # 5 CHAR IN (DSPCOUNT IS -)
TS REQRET # SET REQRET +.
TC FLASHOFF
TC REQRET
-
+
ENTEXIT = ENTRET
MMADREF ADRES MMCHANG +1 # ASSUMES TC REQMM AT MMCHANG.
@@ -946,7 +946,7 @@ USEADD XCH ZREG
DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
DXCH Z # ROUTINE.
TC VERBFAN
-
+
EBANK= DSPCOUNT
# Page 408
LODNNLOC 2CADR LODNNTAB
@@ -964,7 +964,7 @@ INTMCTBS CA MPAC +2 # INTERNAL MACH CADR TO BE SPECIFIED.
CA NOUNCADR
TC DSPOCTWO
TC VERBFAN
-
+
AD ONE
TC SETNCADR # ECADR INTO NOUNCADR. SETS EB, NOUNADD.
VERBFAN CS LST2CON
@@ -982,7 +982,7 @@ LST2CON DEC 40 # FIRST LIST2 VERB (EXTENDED VERB)
VBFANDIR INDEX VERBREG
CAF VERBTAB
TC BANKJUMP
-
+
VERBTAB CADR GODSPALM # VB00 ILLEGAL
CADR DSPA # VB01 DISPLAY OCT COMP 1 (R1)
CADR DSPB # VB02 DISPLAY OCT COMP 2 (R1)
@@ -1025,7 +1025,7 @@ REQEXLOC CADR VBRQEXEC # VB30 REQUEST EXECUTIVE
CADR MMCHANG # VB37 CHANGE MAJOR MODE
CADR GODSPALM # VB38 SPARE
CADR GODSPALM # VB39 SPARE
-
+
# THE LIST2 VERBFAN IS LOCATED IN THE EXTENDED VERB BANK.
# Page 410
# NNADTAB CONTAINS A RELATIVE ADDRESS, IDADDREL (IN LOW 10 BITS), REFERRING
@@ -1066,7 +1066,7 @@ MIXNN2 CA NOUNTEM
CCS DECOUNT
TC MIXNN1
TC VERBFAN
-
+
MIXAD TC MIXTEMP
# DPTEST ENTER WITH SF ROUT NUMBER IN A.
@@ -1092,7 +1092,7 @@ DPTEST INDEX A
TC Q # 360-CDU NO DP
DPTEST1 INDEX Q
TC 1 # RETURN TO L+2
-
+
REQDATX CAF R1D1
TCF REQCOM
REQDATY CAF R2D1
@@ -1122,7 +1122,7 @@ PUTADD TC SETNCADR # ECADR INTO NOUNCADR. SETS EB. NOUNADD.
TS DSPCOUNT
CA NOUNREG
TCF UPDAT1
-
+
TS VERBREG
UPDATVB XCH Q
TS UPDATRET
@@ -1133,12 +1133,12 @@ UPDATVB XCH Q
UPDAT1 TC POSTJUMP # CANT USE SWCALL TO GO TO DSPDECVN, SINCE
CADR GOVNUPDT # UPDATVB CAN ITSELF BE CALLED BY SWCALL.
TC UPDATRET
-
+
GOALMCYC TC ALMCYCLE # NEEDED BECAUSE BANKJUMP CANT HANDLE F/F.
GODSPALM TC POSTJUMP
CADR DSPALARM
-
+
# Page 413
# NOUN TABLES
#
@@ -1233,7 +1233,7 @@ DSPCOM3 TS DISTEM # +0 +1 +2 INTO DISTEM
TC DSPOCTWO
XCH DISTEM
TC DSPCOM2 +2
-
+
# COMPTEST ALARMS IF COMPONENT NUMBER OF VERB (LOAD OR OCT DISPLAY) IS
# GREATER THAN THE HIGHEST COMPONENT NUMBER OF NOUN.
@@ -1257,7 +1257,7 @@ DCOMPTST TS SFTEMP1 # - VERB COMP
LXCH Q
TC DECTEST
TC COMPTST1
-
+
DECTEST EXTEND # ALARMS IF DEC ONLY BIT = 1 (BIT4 OF COMP
QXCH MPAC +2 # CODE NUMBER). RETURNS IF NOT.
TC GETCOMP
@@ -1272,7 +1272,7 @@ DCTSTCYC LXCH Q # ALARMS AND RECYCLES IF DEC ONLY BIT = 1
CCS A
TC ALMCYCLE
TC L
-
+
# NOUNTEST ALARMS IF NO-LOAD BIT (BIT5 OF COMP CODE NUMBER) = 1.
# IF NOT, IT RETURNS.
@@ -1282,7 +1282,7 @@ NOUNTEST LXCH Q
TC L
TC L
TC GODSPALM
-
+
TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
CA NNADTEM
AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
@@ -1298,7 +1298,7 @@ TSTFORDP LXCH Q # TEST FOR DP. IF SO, GET MINOR PART ONLY.
TC L # NO DP
INCR NOUNADD # DP E+1 INTO NOUNADD FOR MINOR PART.
TC L
-
+
CHANDSP CA NOUNCADR
MASK LOW9
EXTEND
@@ -1306,10 +1306,10 @@ CHANDSP CA NOUNCADR
READ 0
CS A
TCF DSPCOM1
-
+
COMPICK ADRES NNTYPTEM
ADRES NNADTEM
-
+
GETCOMP INDEX MIXBR # NORMAL MIXED
CAF COMPICK -1 # ADRES NNTYPTEM ADRES NNADTEM
INDEX A
@@ -1389,7 +1389,7 @@ ENDRTOUT EQUALS
# Page 418
SETLOC BLANKCON +1
-
+
COUNT* $$/PIN
# DEGOUTSF SCALES BY .18 THE LOW 14 BITS OF ANGLE, ADDING .18 FOR
# NUMBERS IN THE NEGATIVE (AGC) RANGE.
@@ -1400,13 +1400,13 @@ DEGOUTSF CAF ZERO
TC +2 # NO AUGMENT NEEDED (SFTEMP1 AND 2 ARE 0)
TC SETAUG # SET AUGMENTER ACCORDING TO C(MPAC +2)
TC DEGCOM
-
+
# 360-CDUD COMPUTES 360 - CDU ANGLE IN MPAC, STORES RESULT IN MPAC AND
# GOES TO DEGOUTSF.
360-CDUO TC 360-CDU
TC DEGOUTSF
-
+
360-CDU CA MPAC
MASK POSMAX # IF ANGLE IS 0 OR 180 DEGREES, DO NOTHING
EXTEND
@@ -1427,13 +1427,13 @@ LRPOSOUT EXTEND
MASK THREE
TS MPAC
TC ARTOUTSF # DISPLAY AS WHOLE
-
+
SETAUG EXTEND # LOADS SFTEMP1 AND SFTEMP2 WITH THE
INDEX MPAC +2 # DP AUGMENTER CONSTANT
DCA DEGTAB
DXCH SFTEMP1
TC Q
-
+
FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
TC Q # IF MPAC IS - RETURN TO L+2 AFTER
TC Q # MASKING OUT THE SIGN BIT
@@ -1445,7 +1445,7 @@ FIXRANGE CCS MPAC # IF MPAC IS + RETURN TO L+1
TS MPAC
INDEX Q
TC 1
-
+
DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
INDEX MPAC +2 # ADDS AUGMENTER.
DCA DEGTAB
@@ -1454,32 +1454,32 @@ DEGCOM EXTEND # LOADS MULTIPLIER, DOES SHORTMP, AND
DXCH SFTEMP1
DAS MPAC
TC SCOUTEND
-
+
DEGTAB OCT 05605 # HI PART OF .18
OCT 03656 # LOW PART OF .18
OCT 16314 # HI PART OF .45
OCT 31463 # LO PART OF .45
-
+
ARTOUTSF DXCH SFTEMP1 # ASSUMES POINT AT LEFT OF DP SFCON
DXCH MPAC
TC PRSHRTMP # IF C(A) = -0, SHORTMP FAILS TO GIVE -0.
SCOUTEND TC POSTJUMP
CADR DSPDCEND
-
+
AROUT1SF DXCH SFTEMP1 # ASSUMES POINT BETWEEN HI AND LO PARTS OF
DXCH MPAC # DP SFCON. SHIFTS RESULTS LEFT 14, BY
TC PRSHRTMP # TAKING RESULTS FROM MPAC+1, MPAC+2.
TC L14/OUT
-
+
DP1OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
L14/OUT XCH MPAC +2 # IN SFTEMP1, SFTEMP2. THEN SCALE RESULT
XCH MPAC +1 # BY B14
TS MPAC
TC SCOUTEND
-
+
DP2OUTSF TC DPOUT # SCALES MPAC, MPAC +1 BY DP SCALE FACTOR
TC SCOUTEND
-
+
DP3OUTSF TC DPOUT # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1.
TC TPLEFTN # SHIFT LEFT 7.
@@ -1494,7 +1494,7 @@ DPOUT XCH Q
TC DMP
ADRES SFTEMP1
TC MPAC+6
-
+
# THE FOLLOWING ROUTINE DISPLAYS TWO CONTIGUOUS SP POSITIVE INTEGERS
# AS TWO POSITIVE DECIMAL INTEGERS IN RXD1-RXD2 AND RXD4-RXD5 (RXD3 IS
# BLANKED). THE INTEGER IN THE LOWER NUMBERED ADDRESS IS DISPLAYED IN
@@ -1513,8 +1513,8 @@ DPOUT XCH Q
TC DSPDECVN # DISPLAY 2ND INTEGER (LIKE VERB AND NOUN)
TC POSTJUMP
CADR DSPDCEND +2
-
-# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN
+
+# READLO PICKS UP FRESHDATA FOR BOTH HI AND LO AND LEAVES IT IN
# MPAC, MPAC+1. THIS IS NEEDED FOR TIME DISPLAY. IT ZEROES MPAC+2, BUT
# DOES NOT FORCE TPAGREE.
@@ -1541,7 +1541,7 @@ ENDRDLO TC READLO1
BANK 42
SETLOC PINBALL3
BANK
-
+
COUNT* $$/PIN
HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
CADR READLO # MPAC+1.
@@ -1577,7 +1577,7 @@ HMSOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC,
TC BANKCALL # USE REGULAR DSPDECWD, WITH ROUND OFF.
CADR DSPDECWD
TC ENTEXIT
-
+
SECON1 2DEC* 1.666666666 E-4 B12* # 2EXP12/6000
SECON2 OCT 01727 # .06 FOR SECONDS DISPLAY
OCT 01217
@@ -1586,9 +1586,9 @@ MINCON2 OCT 00011 # .0006 FOR MINUTES DISPLAY
# Page 422
MINCON1 OCT 02104 # .066..66 UPPED BY 2EXP-28
OCT 10422
-HRCON1 2DEC .16384
+HRCON1 2DEC .16384
- OCT 00000
+ OCT 00000
RNDCON OCT 00062 # .5 SEC
M/SOUT TC BANKCALL # READ FRESH DATA FOR HI AND LO INTO MPAC.
@@ -1651,7 +1651,7 @@ M/SNORM TC SEPSEC # LEAVE FRACT SEC/60 IN MPAC,MPAC+1. LEAVE
CADR DSPDC2NR
TC POSTJUMP
CADR DSPDCEND +2
-
+
HISECON OCT 23147 # .6 + 2EXP-14
HIMINCON OCT 23346 # .6 + 2EXP-7
@@ -1660,7 +1660,7 @@ M/SCON2 OCT 41126 # - LO PART OF (59M58.5S) +1
NORMADR ADRES M/SNORM +1
M/SCON3 OCT 00025 # 59M 59.5S
OCT 37016
-
+
SEPSEC CCS MPAC +1 # IF +, ROUND BY ADDING .5 SEC
TCF POSEC # IF -, ROUND BY SUBTRACING .5 SEC
TCF POSEC # FINDS TIME IN MPAC, MPAC+1
@@ -1687,7 +1687,7 @@ SEPSECNR XCH Q # THIS ENTRY AVOIDS ROUNDING BY .5 SEC
XCH MPAC +1
XCH MPAC
TC SEPSCRET
-
+
SEPMIN XCH Q # FIND WHOLE MINUTES IN BIT13
TS SEPMNRET # OF LOTEMOUT AND ABOVE.
CA LOTEMOUT # REMOVES REST OF SECONDS.
@@ -1798,7 +1798,7 @@ BITSOFF CS YREG # BITS TO BE PROCESSED.
TS 0 # RESET BITS.
BITSOFF1 RELINT
TC LOADLV
-
+
ABLOAD CS ONE
TC COMPTEST
TC NOUNTEST # TEST IF NOUN CAN BE LOADED.
@@ -1822,7 +1822,7 @@ PUTXY CS FIVE # TEST THAT THE 2 DATA WORDS LOADED ARE
INDEX NOUNADD
TS 1
TC LOADLV
-
+
ALOAD TC REQDATX
EXTEND
DCA LODNNLOC # SWITCH BANKS TO NOUN TABLE READING
@@ -1833,7 +1833,7 @@ ALOAD TC REQDATX
INDEX NOUNADD
TS 0
TC LOADLV
-
+
BLOAD CS ONE
TC COMPTEST
CAF BIT15 # SET CLPASS FOR PASS0 ONLY
@@ -1847,7 +1847,7 @@ BLOAD CS ONE
INDEX NOUNADD
TS 1
TC LOADLV
-
+
CLOAD CS TWO
TC COMPTEST
CAF BIT15 # SET CLPASS FOR PASS0 ONLY
@@ -1871,7 +1871,7 @@ LOADLV CAF ZERO
TS DSPCOUNT # CLEARS AFTER A COMPLETED LOAD
TC POSTJUMP # AFTER COMPLETED LOAD, GO TO RECALTST
CADR RECALTST # TO SEE IF THERE IS RECALL FROM ENDIDLE.
-
+
VBSP1LD DEC 21 # VB21 = ALOAD
VBSP2LD DEC 22 # VB22 = BLOAD
VBSP3LD DEC 23 # VB23 = CLOAD
@@ -1897,7 +1897,7 @@ SFRUTNOR XCH Q # GETS SF ROUTINE NUMBER FOR NORMAL CASE
MASK NNTYPTEM
TC RIGHT5
TC EXITEM # SF ROUTINE NUMBER IN A
-
+
SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
TS EXITEM
INDEX DECOUNT
@@ -1908,7 +1908,7 @@ SFRUTMIX XCH Q # GETS SF ROUTINE NUMBER FOR MIXED CASE
MASK RUTMXTEM # GET HI5, MID5, OR LOW5 OF RUTMXTAB ENTRY
INDEX L
TC 0
-
+
# DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
SFRET1 TC EXITEM # SF ROUTINE NUMBER IN A
@@ -1929,7 +1929,7 @@ SFCONUM XCH Q # GETS 2X(SF CONSTANT NUMBER)
# DO TC GOQ(DECOUNT=0), DO TC RIGHT5(DECOUNT=1), DO TC LEFT5(DECOUNT=2).
SFRET DOUBLE # 2X(SF CONSTANT NUMBER) IN A
TC EXITEM
-
+
DISPLACE TC GOQ
# Page 429
TC RIGHT5
@@ -1939,7 +1939,7 @@ CONUMNOR CAF LOW5 # NORMAL NOUN ALWAYS GETS LOW5 OF
MASK NNTYPTEM # NNTYPTAB FOR SF CONUM.
DOUBLE
TC EXITEM # 2X(SF CONSTANT NUMBER) IN A
-
+
PUTCOM TS DECOUNT
XCH Q
TS DECRET
@@ -1990,14 +1990,14 @@ PUTNORM TC SETNADD # ECADR FROM NOUNCADR. SETS EB, NOUNADD.
CAF ZERO # DP
TS DECOUNT
TC PUTDPCOM
-
+
CA NNADTEM
AD ONE # IF NNADTEM = -1, CHANNEL TO BE SPECIFIED
EXTEND
BZF CHANLOAD
PUTCOM2 XCH MPAC
TC DECRET
-
+
EBANK= DSPCOUNT
GTSFINLC 2CADR GTSFIN
@@ -2012,7 +2012,7 @@ CHANLOAD CS SEVEN # DONT LOAD CHAN 7. (IT = SUPERBANK).
INDEX MPAC
WRITE 0
TC LOADLV
-
+
# PUTDECSF FINDS MIXBR AND DECOUNT STILL SET FROM PUTCOM
PUTDECSF TC SFCONUM # 2X(SF CON NUMB) IN A
@@ -2052,7 +2052,7 @@ ENDRUTIN EQUALS
# ALL SFIN ROUTINES USE MPAC MPAC+1. LEAVE RESULT IN A. END WITH TC DECRET.
SETLOC ENDDPDEC +1
-
+
COUNT* $$/PIN
# DEGINSF APPLIES 1000/180 = 5.55555(10) = 5.43434(8)
@@ -2073,7 +2073,7 @@ DEGINSF2 TC TPSL1 # LEFT 2
TC SIGNFIX # IF +0, GO TO SIGNFIX
COM # IF -, USE -MAGNITUDE +1
TS MPAC # IF -0, USE +0
-SIGNFIX CCS MPAC+6
+SIGNFIX CCS MPAC+6
TC SGNTO1 # IF OVERFLOW
TC ENDSCALE # NO OVERFLOW/UNDERFLOW
CCS MPAC # IF UF FORCE SIGN TO 0 EXCEPT -180
@@ -2097,7 +2097,7 @@ NORBACK CS A
TC 360-CDU
ENDSCAL1 TC POSTJUMP
CADR PUTCOM2
-
+
SFMIXCAL TC BANKCALL
CADR SFRUTMIX
TC MIXBACK
@@ -2105,15 +2105,15 @@ SFMIXCAL TC BANKCALL
SFNORCAL TC BANKCALL
CADR SFRUTNOR
TC NORBACK
-
+
NEG180 CS POSMAX
TC ENDSCALE -1
-
+
SGNTO1 CS MPAC # IF OF FORCE SIGN TO 1
MASK POSMAX
CS A
TC ENDSCALE -1
-
+
DEGCON1 2DEC 5.555555555 B-3
ARTHINSF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
@@ -2132,7 +2132,7 @@ BINROUND TC 2ROUND
ARTIN1SF TC DMP # SCALES MPAC, +1 BY SFTEMP1, SFTEMP2.
ADRES SFTEMP1 # ROUNDS MPAC+1 INTO MPAC.
TC BINROUND
-
+
DPINSF TC DMP # SCALES MPAC, MPAC +1 BY SFTEMP1,
ADRES SFTEMP1 # SFTEMP. STORES LOW PART OF RESULT
XCH MPAC +2 # IN (E SUBK) +1 OR E+1
@@ -2152,22 +2152,22 @@ DPINCOM AD NOUNADD # MIXED NORMAL
INDEX Q
TS 1 # PLACE LOW PART IN
TC ENDSCAL1 # (E SUBK) +1 MIXED
-
+
DPINORM CAF ZERO # E +1 NORMAL
TC DPINCOM
-
+
DPINSF2 TC DMP # ASSUMES POINT BETWEEN BITS 7-8 OF HIGH
ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
CAF SIX # LEFT BY 7, ROUNDS MPAC+2 INTO MPAC+1
TC TPLEFTN # SHIFT LEFT 7.
TC DPINSF +2
-
+
DPINSF4 TC DMP # ASSUMES POINT BETWEEN BITS 11-12 OF HIGH
ADRES SFTEMP1 # PART OF SF CONST. DPINSF2 SHIFTS RESULTS
CAF TWO # LEFT BY 3, ROUNDS MPAC+2 INTO MPAC+1.
TC TPLEFTN # SHIFT LEFT 3.
TC DPINSF +2
-
+
TPLEFTN XCH Q # SHIFTS MPAC, +1, +2 LEFT N. SETS OVFIND
TS SFTEMP2 # TO +1 FOR OF, -1 FOR UF.
XCH Q # CALL WITH N-1 IN A.
@@ -2177,7 +2177,7 @@ LEFTNCOM TS SFTEMP1 # LOOP TIME .37 MSEC.
TC LEFTNCOM
# Page 434
TC SFTEMP2
-
+
2ROUND XCH MPAC +1
DOUBLE
TS MPAC +1
@@ -2192,9 +2192,9 @@ TESTOFUF CCS MPAC+6 # RETURNS IF NO OF/UF
TC ALMCYCLE # OF ALARM AND RECYCLE.
TC Q
TC ALMCYCLE # UF ALARM AND RECYCLE.
-
+
SETLOC ENDSPMIN +1
-
+
COUNT* $$/PIN
HMSIN TC ALL3DEC # IF ALL 3 WORDS WERE NOT LOADED, ALARM.
TC DMP # XREG, XREGLP (=HOURS) WERE ALREADY PUT
@@ -2270,7 +2270,7 @@ MPACTST CCS MPAC # ALARM IF MPAC NON ZERO
TC Q
TC ALMCYCLE # ALARM AND RECYCLE.
TC Q
-
+
SIZETST TS MPAC +2 # CALLED WITH - CON IN A
CCS MPAC +1 # GET MAG OF MPAC+1
# Page 436
@@ -2279,10 +2279,10 @@ SIZETST TS MPAC +2 # CALLED WITH - CON IN A
AD ONE
AD MPAC +2
EXTEND # MAG OF MPAC+1 - CON
- BZMF +2
+ BZMF +2
TC ALMCYCLE # MAG OF MPAC+1 G/ CON. ALARM AND RECYCLE.
TC Q # MAG OF MPAC+1 L/= CON
-
+
# ALL3DEC TESTS THAT ALL 3 WORDS ARE LOADED IN DEC (FOR HMSIN).
# ALARM IF NOT. (TEST THAT BITS 3,4,5 OF DECBRNCH ARE ALL = 1).
@@ -2294,7 +2294,7 @@ ALL3DEC CS OCT34BAR # GET BITS 3,4,5 IN A
OCT34BAR OCT 77743
TC FORCEV25
TC Q
-
+
FORCEV25 CS OCT31 # FORCE VERB 25 TO BE EXECUTED BY RECYCLE
TS VERBSAVE # IN CASE OPERATOR EXECUTED A LOWER LOAD
TC ALMCYCLE # VERB. ALARM AND RECYCLE.
@@ -2328,7 +2328,7 @@ ENDHMSS EQUALS
# MONITOR DOESNT TEST FOR MATBS SINCE NVSUB CAN HANDLE INTERNAL MATBS NOW.
SETLOC ENDRUTIN
-
+
COUNT* $$/PIN
MONITOR CS BIT15/14
MASK NOUNCADR
@@ -2369,7 +2369,7 @@ MONIT2 CAF LOW7
DXCH MONSAVE # ZERO THE KILL MONITOR BIT
RELINT # SET UP EXTERNAL MONITOR BIT
TC ENTRET
-
+
MONREQ TC LODSAMPT # CALLED BY WAITLIST
CCS MONSAVE1 # TIME IS SNATCHED N RUPT FOR NOUN 65
TC +4 # IF KILLER BIT = 0, ENTER REQUESTS
@@ -2380,14 +2380,14 @@ MONREQ TC LODSAMPT # CALLED BY WAITLIST
TC WAITLIST # ENTER WAITLIST REQUEST FOR MONREQ
EBANK= DSPCOUNT
2CADR MONREQ
-
+
CAF CHRPRIO
TC NOVAC # ENTER EXEC REQUEST FOR MONDO
EBANK= DSPCOUNT
2CADR MONDO
-
+
TC TASKOVER
-
+
KILLMON CAF ZERO # ZERO MONSAVE AND TURN KILLER BIT OFF
TS MONSAVE
TS MONSAVE1 # TURN OFF KILL MONITOR BIT.
@@ -2419,10 +2419,10 @@ MONDO CCS MONSAVE1 # CALLED BY EXEC
ENDMONDO TC TESTNN # EBANK.
BLOCK 2
-
+
SETLOC FFTAG8
BANK
-
+
COUNT* $$/PIN
PASTEVB CAF MID7
MASK MONSAVE2 # NVMONOPT PASTE OPTION
@@ -2452,9 +2452,9 @@ MONBUSY TC RELDSPON # TURN KEY RELEASE LIGHT
TC ENDOFJOB
# Page 440
# DSPFMEM IS USED TO DISPLAY (IN OCTAL) ANY FIXED REGISTER.
-# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
+# IT IS USED WITH NOUN = MACHINE CADR TO BE SPECIFIED. THE FCADR OF THE
# DESIRED LOCATION IS THEN PUNCHED IN. IT HANDLES F/F (FCADR 4000-7777)
-#
+#
# FOR BANKS L/E 27, THIS IS ENOUGH.
#
# FOR BANKS G/E 30, THE THIRD COMPONENT OF NOUN 26 (PRIO, ADRES, BBCON)
@@ -2491,7 +2491,7 @@ DSPSIGN XCH Q
TC DSPWDRET
TC +ON
TC DSPWDRET
-
+
DSPRND EXTEND # ROUND BY 5 EXP-6
DCA DECROUND -1
DAS MPAC
@@ -2501,7 +2501,7 @@ DSPRND EXTEND # ROUND BY 5 EXP-6
DCA DPOSMAX
DXCH MPAC
TC Q
-
+
# DSPDECWD CONVERTS C(MPAC, MPAC+1) INTO A SIGN AND 5 CHAR DECIMAL
# STARTING IN LOC SPECIFIED IN DSPCOUNT. IT ROUNDS BY 5 EXP-6.
@@ -2532,7 +2532,7 @@ TRACE1S TS COUNT
CS VD1
TS DSPCOUNT
TC WDRET
-
+
OCT 00000
DECROUND OCT 02476
@@ -2552,7 +2552,7 @@ DSPDC2NR XCH Q
TC DSPSIGN
CAF ONE
TC DSPDCWD1
-
+
# DSP2DEC CONVERTS C(MPAC) AND C(MPAC+1) INTO A SIGN AND 10 CHAR DECIMAL
# STARTING IN THE LOC SPECIFIED IN DSPCOUNT.
@@ -2582,13 +2582,13 @@ DSPDECVN EXTEND
XCH Q
TS WDRET
TC DSPDC2NR +3 # NO SIGN, NO ROUND, 2 CHAR
-
+
VNDSPCON OCT 00244 # .01 ROUNDED UP
GOVNUPDT TC DSPDECVN # THIS IS NOT FOR GENERAL USE. REALLY PART
TC POSTJUMP # OF UPDATVB.
CADR UPDAT1 +2
-
+
ENDECVN EQUALS
SETLOC ENDSPF +1
@@ -2648,9 +2648,9 @@ DSP2BIT TS CYR
# DSPTAB ENTRY INTO DSREL.
SETLOC ENDECVN
-
+
COUNT* $$/PIN
-DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANYOF THE
+DSPIN XCH Q # CANT USE L FOR RETURN, SINCE MANYOF THE
TS DSEXIT # ROTINE CALLING DSPIN USE L AS RETURN.
CAF LOW5
MASK COUNT
@@ -2699,12 +2699,12 @@ DFRNT INDEX COUNT
INCR NOUT # DSPTAB ENTRY WAS +
DSLV RELINT
TC DSEXIT
-
+
DSMSK OCT 37
OCT 1740
OCT 2000
OCT 3740
-
+
# FOR 11DSPIN, PUT REL ADDRESS OF DSPTAB ENTRY INTO A, 1 IN BIT11 OR 0 IN
# BIT11 OF CODE.
@@ -2714,7 +2714,7 @@ DSMSK OCT 37
XCH Q # MUST USE SAME RETURN AS DSPIN
TS DSEXIT
TC DSPIN1
-
+
DSPOCTIN TC DSPIN # SO DSPOCTWO DOESNT USE SWCALL
CAF +2
TC BANKJUMP
@@ -2794,7 +2794,7 @@ MMCHANG TC REQMM # ENTPASHI ASSUMES THE TC REQMM AT MMCHANG
CA MPAC
TC POSTJUMP
CADR MODROUTB # GO THRU STANDARD LOC.
-
+
MODROUTB = V37
REQMM CS Q
TS REQRET
@@ -2808,7 +2808,7 @@ REQMM CS Q
CAF ONE
TS DECBRNCH # SET FOR DEC
TC ENTEXIT
-
+
# VBRQEXEC ENTERS REQUEST TO EXEC FOR ANY ADDRESS WITH ANY PRIORITY.
# IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WITH
@@ -2838,7 +2838,7 @@ REQUESTC TC RELDSP
SETVAC CAF TCFINDVC
TC REQEX1
-
+
# VBRQWAIT ENTERS REQUEST TO WAITLIST FOR ANY ADDRESS WITH ANY DELAY.
# IT DOES ENDOFJOB AFTER ENTERING REQUEST. DISPLAY SYST IS RELEASED.
# IT ASSUMES NOUN 26 HAS BEEN PRELOADED WTIH
@@ -2863,10 +2863,10 @@ VBPROC CAF ONE # PROCEED WITHOUT DATA
TC RELDSP
TC FLASHOFF
TC RECALTST # SEE IF THERE IS ANY RECALL FROM ENDIDLE
-
+
VBTERM CS ONE
TC VBPROC +1 # TERM VERB SETS LOADSTAT NEG
-
+
# Page 449
# PROCKEY PERFORMS THE SAME FUNCTION AS VBPROC. IT MUST BE CALLED UNDER
# EXECUTIVE CONTROL, WITH CHRPRIO.
@@ -2876,7 +2876,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
CS VD1 # BLOCK NUMERICAL CHARACTERS, SIGNS, CLEAR
TS DSPCOUNT
TC VBPROC
-
+
# VBRESEQ WAKES ENDIDLE AT SAME LINE AS FINAL ENTER OF LOAD (L+3).
# (MAIN USE IS INTENDED AS RESPONSE TO INTERNALLY INITIATED FLASHING
# DISPLAYS IN ENDIDLE. SHOULD NOT BE USED WITH LOAD VERBS, PLEASE PERFORM,
@@ -2884,7 +2884,7 @@ PROCKEY CAF ZERO # SET REQRET FOR ENTER PASS 0.
VBRESEQ CS ZERO # MAKE IT LOOK LIKE DATA IN.
TC VBPROC +1
-
+
# FLASH IS TURNED OFF BY PROCEED WITHOUT DATA, TERMINATE, REQUEQUENCE,
# END OF LOAD.
@@ -2935,7 +2935,7 @@ UNSUSPEN CAF ZERO # EXTERNAL MONITOR IS SUSPENDED,
TC ENDOFJOB # CADRSTOR AND DSPLIST ARE EMPTY.
TC RELDSP1
TC ENDOFJOB
-
+
ENDRELDS EQUALS
# Page 451
@@ -2993,7 +2993,7 @@ ENDRELDS EQUALS
# PARAMETER IN L. IT SHOULD BE USED ONLY WITH A MONITOR VERB-NOUN CODE IN
# A. AFTER EACH MONITOR DISPLAY A *PLEASE* VERB WILL BE PASED INT THE VERB
# LIGHTS OR DATA WILL BE BLANKED (OR BOTH) ACCORDING TO THE OPTIONS
-# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
+# SPECIFIED IN L. IF BITS 8-14 OF L ARE OTHER THAN ZERO, THEN THEY WILL
# BE INTERPRETED AS A VERB CODE AND PASTED IN THE VERB LIGHTS. (THIS VERB
# CODE SHOULD DESIGNATE ONE OF THE *PLEASE* VERBS.) IF BITS 1-3 OF L ARE
# OTHER THAN ZERO, THEN THEY WILL BE USED TO BLANK DATA BY BEING FED TO
@@ -3035,11 +3035,11 @@ PINSUPBT = NVSBBBNK # CONTAINS THE PINBALL SUPERBITS.
NVSUBEND DXCH NVQTEM # NVBNKTEM MUST = NVQTEM+1
TC SUPDXCHZ # DTCB WITH SUPERBIT SWITCHING
-
+
SETLOC ENDRQWT +1
-
+
COUNT* $$/PIN
-
+
# BLANKDSP BLANKS DISPLAY ACCORDING TO OPTION NUMBER IN NVTEMP AS FOLLOWS
# Page 453
# -4 FULL BLANK, -3 LEAVE MODE, -2 LEAVE MODE AND VERB, -1 BLANK R'S ONLY.
@@ -3066,7 +3066,7 @@ BLANKDSP AD SEVEN # 7,8,9, OR 10 (A HAD 0,1,2,OR 3)
TS DSPCOUNT
TC FLASHOFF # PROTECT AGAINS INVISIBLE FLASH
TC ENTSET -2 # ZEROS REQRET
-
+
NVSUB1 CAF ENTSET # IN BANK
TS ENTRET # SET RETURN TO NVSUBEND
CCS NVTEMP # WHAT NOW
@@ -3084,7 +3084,7 @@ NVSUB1 CAF ENTSET # IN BANK
# USES MPAC, +1, +2).
CCS MPAC +3 # TEST NOUN
TC NVSUB2 # IF NOUN NOT +0, GO ON
- CA MPAC +4
+ CA MPAC +4
TC UPDATVB -1 # IF NOUN = +0, DISPLAY VERB, THEN RETURN
CAF ZERO # XERO REQRET SO THAT PASTED VERBS CAN
TS REQRET # BE EXECUTED BY OPERATOR.
@@ -3119,7 +3119,7 @@ KILMONON CAF BIT15 # THIS IS THE KILL MONITOR BIT.
TS MONSAVE1 # TURN OFF BIT 14, THE EXTERNAL
# MONITOR BIT.
TC Q
-
+
# LOADSTAT +0 INACTIVE (WAITING FOR DATA). SET BY NVSUB
# +1 PROCEED NO DATA. SET BY SPECIAL VERB
# -1 TERMINATE. SET BY SPECIAL VERB.
@@ -3153,20 +3153,20 @@ ENDIDLE LXCH Q # RETURN ADDRESS INTO L.
AD FBANK # SAME STRATEGY FOR CADR AS MAKECADR.
TS CADRSTOR
TC JOBSLEEP
-
+
ENDINST TC ENDOFJOB
ISCADR+0 CCS CADRSTOR # ABORTS (CODE 01206) IF CADRSTOR NOT= +0.
TC DSPABORT # RETURNS IF CADRSTOR = +0.
TC Q
TC DSPABORT
-
+
ISLIST+0 CCS DSPLIST # ABORTS (CODE 01206) IF DSPLIST NOT= +0.
TC DSPABORT # RETURNS IF DSPLIST = +0.
TC Q
DSPABORT TC P00DOO
OCT 01206
-
+
# JAMTERM ALLOWS PROGRAMS TO PERFORM THE TERMINATE FUNCTION.
# IT DOES ENDOFJOB.
@@ -3179,7 +3179,7 @@ JAMTERM CAF PINSUPBT
TS DSPCOUNT
TC POSTJUMP
CADR VBTERM
-
+
34DEC DEC 34
# JAMPROC ALLOWS PROGRAMS TO PERFORM THE PROCEED/PROCEED WITHOUT DATA
@@ -3195,7 +3195,7 @@ JAMPROC CAF PINSUPBT
TS DSPCOUNT
TC POSTJUMP
CADR VBPROC
-
+
33DEC DEC 33
# BLANKSUB BLANKS ANY COMBINATION OF R1, R2, R3.
@@ -3227,7 +3227,7 @@ BLANKSUB MASK SEVEN
EXTEND
WRITE SUPERBNK
TC BLNKSUB1
-
+
EBANK= DSPCOUNT
BLNKBBNK BBCON BLNKSUB1
ENDBLFF EQUALS
@@ -3259,7 +3259,7 @@ TESTBIT MASK NVTEMP # NVTEMP CONTAINS BLANKING CODE.
TC Q # IF CURRENT BIT = 1, RETURN TO L+1.
INDEX Q # IF CURRENT BIT = 0, RETURN TO L+3.
TC 2
-
+
ENDBSUB1 EQUALS
# DSPMM DOES NOT DISPLAY MODREG DIRECTLY. IT PUTS IN EXEC REQUEST WITH
@@ -3272,7 +3272,7 @@ ENDBSUB1 EQUALS
BANK 7
SETLOC PINBALL4
BANK
-
+
COUNT* $$/PIN
DSPMM XCH Q
TS MPAC
@@ -3281,7 +3281,7 @@ DSPMM XCH Q
TC NOVAC
EBANK= DSPCOUNT
2CADR DSPMMJB
-
+
RELINT
ENDSPMM TC MPAC
@@ -3289,7 +3289,7 @@ ENDSPMM TC MPAC
# DSPMM PLACE MAJOR MODE CODE INTO MODREG
SETLOC ENDBSUB1
-
+
COUNT* $$/PIN
DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
XCH DSPCOUNT
@@ -3302,11 +3302,11 @@ DSPMMJB CAF MD1 # GETS HERE THRU DSPMM
XCH DSPMMTEM # RESTORE DSPCOUNT
TS DSPCOUNT
TC ENDOFJOB
-
+
# RECALTST IS ENTERED DIRECTLY AFTER DATA IS LOADED (OR RESEQUENCE VERB IS
# EXECUTED), TERMINATE VERB IS EXECUTED, OR PROCEED WITHOUT DATA VERB IS
# EXECUTED. IT WAKES UP JOB THAT DID TC ENDIDLE.
-#
+#
# IF CADRSTOR NOT= +0, IT PUTS +0 INTO DSPLOCK, AND TURNS OFF KEY RLSE
# LIGHT IF DSPLIST IS EMPTY (LEAVES KEY RLSE LIGHT ALONE IF NOT EMPTY).
@@ -3334,7 +3334,7 @@ RECAL2 INDEX LOCCTR
RELINT
RECAL3 TC RELDSP
TC ENDOFJOB
-
+
# Page 459
DOTERM CAF ZERO
TC RECAL2
@@ -3471,17 +3471,17 @@ PRSHRTMP TS MPTEMP
TS MPAC +1
TS MPAC +2
TC Q
-
+
FLASHON CAF BIT6 # TURN ON V/N FLASH
EXTEND # BIT 6 OF CHANNEL 11
WOR DSALMOUT
TC Q
-
+
FLASHOFF CS BIT6 # TURN OFF V/N FLASH
EXTEND
WAND DSALMOUT
TC Q
-
+
# Page 463
# INTERNAL USE OF KEYBOARD AND DISPLAY PROGRAM.
#
@@ -3519,7 +3519,7 @@ FLASHOFF CS BIT6 # TURN OFF V/N FLASH
#
# NVSUBUSY IS INTENDED FOR USE WHEN AN INTERNAL PROGRAM FINDS THE OPERATOR
# IS NOT USING THE KEYBOARD + DISPLAY PROGRAM (BY HIS OWN INITIATION). IT IS
-# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
+# NOT INTENDED FOR USE WHEN ONE INTERNAL PROGRAM FINDS ANOTHER INTERNAL
# PROGRAM USING THE KEYBOARD + DISPLAY PROGRAM.
#
# NVSUBUSY ABORTS (WITH CODE 01206) IF A SECOND JOB ATTEMPTS TO GO TO
@@ -3570,7 +3570,7 @@ NVSBWAIT LXCH 7 # ZERO NVMONOPT OPTIONS
# AFTER EXECUTION.
NVSBWT1 INCR Q # L+2. PRENVBSY WILL PUT L-1 INTO LIST AND
TCF PRENVBSY # GO TO SLEEP.
-
+
# RELDSP IS USED BY VBPROC, VBTERM, VBRQEXEC, VBRQWAIT, VBRELDSP, EXTENDED
# VERB DISPATCHER, VBRESEQ, RECALTST.
# RELDSP1 IS USED BY MONITOR SET UP, VBRELDSP.
@@ -3597,7 +3597,7 @@ RELDSP2 RELINT
TC RELRET
RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
TS RELRET # TURN KEY RLSE LIGHT OFF IF DSPLIST IS
- # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
+ # EMPTY. LEAVE KEY RLSE LIGHT ALONE IF
# DSPLIST IS NOT EMPTY.
CCS DSPLIST
TC +2 # + NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE.
@@ -3605,7 +3605,7 @@ RELDSP1 XCH Q # SET DSPLOCK TO +0. NO DSPLIST SEARCH.
CAF ZERO # - NOT EMPTY. LEAVE KEY RLSE LIGHT ALONE
TS DSPLOCK
TC RELRET
-
+
ENDPINBF EQUALS
# Page 466
@@ -3618,14 +3618,14 @@ PINTEST EQUALS LST2FAN
# OFF THE CAUTION AND STATUS LIGHTS.
SETLOC ENDNVSB1 +1
-
+
COUNT* $$/PIN
VBTSTLTS INHINT
CS BIT1 # SET BIT 1 OF IMODES33 SO IMUMON WONT
MASK IMODES33 # TURN OUT ANY LAMPS.
AD BIT1
TS IMODES33
-
+
CAF TSTCON1 # TURN ON UPLINK ACTIVITY, TEMP, KEY RLSE,
EXTEND # V/N FLASH, OPERATOR ERROR.
WOR DSALMOUT
@@ -3653,11 +3653,11 @@ TSTLTS1 TS ERCNT
TC WAITLIST
EBANK= DSPTAB
2CADR TSTLTS2
-
+
TC ENDOFJOB # DSPLOCK IS LEFT BUSY (FROM KEYBOARD
# ACTION) UNTIL TSTLTS3 TO INSURE THAT
# LIGHTS TEST WILL BE SEEN.
-
+
FULLDSP OCT 05675 # DISPLAY ALL 8'S
FULLDSP1 OCT 07675 # DISPLAY ALL 8'S AND +
TSTCON1 OCT 00175
@@ -3669,14 +3669,14 @@ TSTCON2 OCT 40674 # DSPTAB+11D BITS 3,4,5,6,8,9 LR LITES,
TSTCON3 OCT 00115 # CHAN 11 BITS 1, 3, 4, 7.
# UPLINK ACITIVY, TEMP, OPERATOR ERROR.
SHOLTS OCT 764 # 5 SEC
-
+
TSTLTS2 CAF CHRPRIO # CALLED BY WAITLIST
TC NOVAC
EBANK= DSPTAB
2CADR TSTLTS3
-
+
TC TASKOVER
-
+
TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
INHINT
EXTEND # TURN OFF UPLINK ACTIVITY, TEMP,
@@ -3693,19 +3693,19 @@ TSTLTS3 CS TSTCON3 # CALLED BY EXECUTIVE
MASK IMODES33 # LIGHTS COMPLETE.
AD PRIO16
TS IMODES33
-
+
CS OCT55000
MASK IMODES30
AD PRIO15 # 15000.
TS IMODES30
-
+
CS RFAILS2
MASK RADMODES
AD RCDUFBIT
TS RADMODES
-
+
RELINT
-
+
TC BANKCALL # REDISPLAY C(MODREG)
CADR DSPMM
TC KILMONON # TURN ON KILL MONITOR BIT.
@@ -3747,12 +3747,12 @@ ERROR XCH 21/22REG # RESTORE ORIGINAL C(DSPLOCK). THUS ERROR
MASK IMODES30
AD BIT10
TS IMODES30
-
+
CS RFAILS
MASK RADMODES
AD RCDUFBIT
TS RADMODES
-
+
CS BIT10 # TURN OFF 'TEST ALARM' OUTBIT.
EXTEND
WAND CHAN13
@@ -3795,4 +3795,4 @@ NOTBIT12 OCT 73777
ENDPINS1 EQUALS
SBANK= LOWSUPER
-
+
diff --git a/Luminary099/PINBALL_NOUN_TABLES.agc b/Luminary099/PINBALL_NOUN_TABLES.agc
index 0f69a63..b2c0453 100644
--- a/Luminary099/PINBALL_NOUN_TABLES.agc
+++ b/Luminary099/PINBALL_NOUN_TABLES.agc
@@ -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 301
# THE FOLLOWING REFERS TO THE NOUN TABLES
@@ -37,7 +37,7 @@
# 00010 3 COMPONENT
# X1XXX BIT 4 = 1. DECIMAL ONLY
# 1XXXX BIT 5 = 1. NO LOAD
-# END OF COMPONENT CODE NUMBER
+# END OF COMPONENT CODE NUMBER
#
# SF ROUTINE CODE NUMBER INTERPRETATION
#
@@ -181,7 +181,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 # (DEC 40)
# GTSFOUT LOADS SFTEMP1, SFTEMP2 WTIH THE DP SFOUTAB ENTRIES.
@@ -193,7 +193,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.
@@ -201,7 +201,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
OCT 40000 # 01 SPECIFY MACHINE ADDRESS (FRACTIONAL)
@@ -249,7 +249,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
ECADR TTPI # 37 TIG OF TPI (HRS,MIN,SEC)
ECADR TET # 38 TIME OF STATE BEING INTEGRATED
OCT 00000 # 39 SPARE
-
+
# END OF NNADTAB FOR NORMAL NOUNS
# NN MIXED NOUNS
@@ -376,7 +376,7 @@ NNADTAB OCT 00000 # 00 NOT IN USE
OCT 24261 # 99 RMS IN POSITION
# RMS IN VELOCITY
# RMS IN BIAS
-
+
# END OF NNADTAB FOR MIXED NOUNS
# NN NORMAL NOUNS
@@ -421,12 +421,12 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 24400 # 37 3COMP HMS (DEC ONLY)
OCT 24400 # 38 3COMP HMS (DEC ONLY)
OCT 00000 # 39 SPARE
-
+
# 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)
@@ -524,7 +524,7 @@ NNTYPTAB OCT 00000 # 00 NOT IN USE
OCT 00000 # 98 3COMP WHOLE, FRAC, WHOLE
OCT 71572 # 99 3COMP POS9, VEL4, RADIANS
# (DEC ONLY)
-
+
# END OF NNTYPTAB FOR MIXED NOUNS
SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
@@ -557,7 +557,7 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 77766 # RENDESVOUS RADAR RANGE RATE
OCT 50711
2DEC* .9267840599 E5 B-28* # LANDING RADAR ALTITUDE
-
+
OCT 00002 # INITIAL/FINAL ALTITUDE
OCT 23224
OCT 00014 # ALTITUDE RATE
@@ -567,11 +567,11 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 04256 # ROT HAND CONT ANGLE RATE
OCT 07071
2DEC* -1.552795030 E5 B-28* # LANDING RADAR VELX
-
+
2DEC* .8250825087 E5 B-28* # LANDING RADAR VELY
-
+
2DEC* 1.153668673 E5 B-28* # LANDING RADAR VELZ
-
+
OCT 04324 # POSITION7
OCT 27600
OCT 00036 # TRIM DEGREES2
@@ -581,11 +581,11 @@ SFINTAB OCT 00006 # WHOLE, DP TIME (SEC)
OCT 23420 # DP DEGREES
OCT 00000
2DEC 30480 B-19 # POSITION 9
-
+
2DEC 30.48 B-7 # VELOCITY4
-
+
2DEC 100 B-8 # RADIANS
-
+
# END OF SFINTAB
SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
@@ -618,7 +618,7 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 74552 # RENDEZVOUS RADAR RANGE RATE
OCT 70307
2DEC 1.079 E-5 B14 # LANDING RADAR ALTITUDE
-
+
OCT 14226 # INITIAL/FINAL ALTITUDE
OCT 31757
OCT 02476 # ALTITUDE RATE
@@ -628,9 +628,9 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 00007 # ROT HAND CONT ANGLE RATE
OCT 13734
2DEC -.6440 E-5 B14 # LANDING RADAR VELX
-
+
2DEC 1.212 E-5 B14 # LANDING RADAR VELY
-
+
2DEC .8668 E-5 B14 # LANDING RADAR VELZ
OCT 34772 # POSITION7
@@ -642,11 +642,11 @@ SFOUTAB OCT 05174 # WHOLE, DP TIME (SEC)
OCT 00321 # DP DEGREES
OCT 26706
2DEC 17.2010499 B-7 # POSITION 9
-
+
2DEC .032808399 # VELOCITY4
-# Page 314
+# Page 314
2DEC .32 # RADIANS
-
+
# END OF SFOUTAB
# NN SF CONSTANT SF ROUTINE
@@ -690,8 +690,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 52 SPARE COMPONENT
OCT 00000 # 53 SPARE
- OCT 00000 # 53
- OCT 00000 # 53
+ OCT 00000 # 53
+ OCT 00000 # 53
ECADR RANGE # 54 POS5 DP1
# Page 315
ECADR RRATE # 54 VEL3 DP3
@@ -739,8 +739,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR TTFDISP # 68 MIN/SEC M/S
ECADR DELTAH # 68 COMP ALT DP1
OCT 00000 # 69 SPARE
- OCT 00000 # 69
- OCT 00000 # 69
+ OCT 00000 # 69
+ OCT 00000 # 69
ECADR AOTCODE # 70 OCTAL ONLY OCT
ECADR AOTCODE +1 # 70 OCTAL ONLY OCT
ECADR AOTCODE +2 # 70 OCTAL ONLY OCT
@@ -750,7 +750,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR AOTCODE +2 # 71 OCTAL ONLY OCT
ECADR CDUT # 72 360-CDU DEG 360-CDU
ECADR CDUS # 72 CDU DEG CDU
- OCT 0 # 72 SPARE COMPONENT
+ OCT 0 # 72 SPARE COMPONENT
ECADR TANG # 73 360-CDU DEG 360-CDU
ECADR TANG +1 # 73 CDU DEG CDU
OCT 0 # 73 SPARE COMPONENT
@@ -816,8 +816,8 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR OGC +2 # 93 DPDEG(90) DP3
ECADR OGC +4 # 93 DPDEG(90) DP3
OCT 00000 # 94 SPARE
- OCT 00000 # 94
- OCT 00000 # 94
+ OCT 00000 # 94
+ OCT 00000 # 94
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
OCT 0 # 95 SPARE
@@ -833,7 +833,7 @@ IDADDTAB ECADR TTOGO # 40 MIN/SEC M/S
ECADR WWPOS # 99 POS9 DP3
ECADR WWVEL # 99 VEL4 DP2
ECADR WWBIAS # 99 RADIANS DP4
-
+
# END OF IDADDTAB
# NN SF ROUTINES
@@ -899,8 +899,8 @@ RUTMXTAB OCT 16351 # 40 M/S, DP3, DP3
# Page 319
OCT 06043 # 98 ARTH, FRAC, ARTH
OCT 24247 # 99 DP3, DP2, DP4
-
+
# END OF RUTMXTAB
SBANK= LOWSUPER
-
+
diff --git a/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc b/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
index 8265566..94f9942 100644
--- a/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
+++ b/Luminary099/POWERED_FLIGHT_SUBROUTINES.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1259-1267
-# Mod history: 2009-05-26 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-26 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@@ -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 1259
BANK 14 # SAME FBANK AS THE FINDCDUD SUB-PROGRAM
@@ -276,7 +276,7 @@ LOOP1 DXCH MPAC
INDEX DEX1
DXCH VBUF
DXCH BUF # LOADING INDEX, STORING VECTOR COMPONENT
-
+
CCS A # 'CAUSE THAT'S WHERE THE INDEX NOW IS
TCF LOOP2
@@ -444,4 +444,4 @@ FLESHPOT TS TEM2
CA TEM2
TS EBANK
TCF SWRETURN
-
+
diff --git a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
index 0724045..fbde56d 100644
--- a/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
+++ b/Luminary099/Q_R-AXIS_RCS_AUTOPILOT.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1442-1459
-# 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-07 RSB Corrected "DEC 96.0" to "DEC 96", since
# the former is not compatible with yaYUL.
@@ -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 1442
BANK 17
@@ -747,7 +747,7 @@ TURNON CA BIT15
EXTEND
WOR CHAN13
TC Q
-
+
# Page 1457
MIDORLST AD T6NEXT
EXTEND
@@ -848,7 +848,7 @@ ENDJASK DXCH DAPARUPT
DXCH DAPZRUPT
DXCH ZRUPT
TCF NOQRSM
-# Page 1459
+# Page 1459
BLOCK 3
SETLOC FFTAG6
BANK
@@ -857,4 +857,4 @@ ENDJASK DXCH DAPARUPT
MAKERUPT EXTEND
EDRUPT MAKERUPT
-
+
diff --git a/Luminary099/R30.agc b/Luminary099/R30.agc
index a2141cd..3254430 100644
--- a/Luminary099/R30.agc
+++ b/Luminary099/R30.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 712-722
-# 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 Removed a space between two components of
# a 2OCT that isn't legal in yaYUL.
@@ -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 712
# SUBROUTINE NAME: V82CALL
diff --git a/Luminary099/R31.agc b/Luminary099/R31.agc
index 28c7b6a..9e94238 100644
--- a/Luminary099/R31.agc
+++ b/Luminary099/R31.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 703-708
-# 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.
#
# 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 703
BANK 40
diff --git a/Luminary099/R60_62.agc b/Luminary099/R60_62.agc
index 663f044..4c5f715 100644
--- a/Luminary099/R60_62.agc
+++ b/Luminary099/R60_62.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 472-485
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 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 472
# MOD NO: 0 DATE: 1 MAY 1968
@@ -61,7 +61,7 @@
# 7. THE FDAI BALL ANGLES (NOUN 18) ARE CALCULATED (BALLANGS).
#
# 8. IF THE G+N SWITCH IS NOT SET GO BACK TO STEP 3.
-#
+#
# 9. IF THE AUTO SWITCH IS NOT SET GO BACK TO STEP 3.
#
# 10. NON-FLASHING DISPLAY V06N18 (FDAI ANGLES).
@@ -100,13 +100,13 @@
BANK 34
SETLOC MANUVER
BANK
-
+
EBANK= TEMPR60
-
+
COUNT* $$/R06
R60LEM TC MAKECADR
TS TEMPR60
-
+
REDOMANN CAF 3AXISBIT
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@@ -116,7 +116,7 @@ REDOMANN CAF 3AXISBIT
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE FINAL ANGLES -- CPHI, CTHETA, CPSI
EXIT
-
+
TOBALL TC BANKCALL
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
TOBALLA CAF V06N18
@@ -128,7 +128,7 @@ TOBALLA CAF V06N18
# Page 474
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
TC ENDOFJOB
-
+
REDOMANC CAF 3AXISBIT
MASK FLAGWRD5 # IS 3-AXIS FLAG SET
CCS A
@@ -138,27 +138,27 @@ REDOMANC CAF 3AXISBIT
VECPOINT # TO COMPUTE FINAL ANGLES
STORE CPHI # STORE ANGLES
EXIT
-
+
TOBALLC TC BANKCALL
CADR BALLANGS # TO CONVERT ANGLES TO FDAI
TC G+N,AUTO # CHECK AUTO MODE
CCS A
TCF TOBALLA # NOT AUTO, GO REREQUEST AUTO MANEUVER.
-
+
AUTOMANV CAF V06N18 # STATIC DISPLAY DURING AUTO MANEUVER
TC BANKCALL
CADR GODSPR
TC CHKLINUS # TO CHECK FOR PRIORITY DISPLAYS
-
+
STARTMNV TC BANKCALL # PERFORM MANEUVER VIA KALCMANU
CADR GOMANUR
-
+
ENDMANUV TCF TOBALLA # FINISHED MANEUVER.
ENDMANU1 TC DOWNFLAG # RESET 3-AXIS FLAG
ADRES 3AXISFLG
CAE TEMPR60
TC BANKJUMP
-
+
CHKLINUS CS FLAGWRD4
MASK PDSPFBIT # IS PRIORITY DISPLAY FLAG SET?
CCS A
@@ -168,52 +168,52 @@ CHKLINUS CS FLAGWRD4
CS THREE # OBTAIN LOCATION FOR RESTART
AD BUF2 # HOLD Q OF LAST DISPLAY
TS TBASE2
-
+
TC PHASCHNG
OCT 00132
-
+
CAF BIT7
TC LINUS # GO SET BITS FOR PRIORITY DISPLAY
TC MPAC +2
-
-# Page 475
+
+# Page 475
RELINUS CAF PRIO26 # RESTORE ORIGINAL PRIORITY
TC PRIOCHNG
-
+
CAF TRACKBIT # DON'T CONTINUE R60 UNLESS TRACKFLAG ON.
MASK FLAGWRD1
CCS A
TCF RER60
-
+
CAF RNDVZBIT # IS IT P20?
MASK FLAGWRD0
CCS A
TC +4 # YES
TC PHASCHNG # NO, MUST BE P25, SET 2.11 SPOT
OCT 40112
-
+
TC ENDOFJOB
-
+
TC PHASCHNG # SET 2.7 SPOT FOR P20
OCT 40072
-
+
TC ENDOFJOB
-
+
RER60 TC UPFLAG # SET PRIO DISPLAY FLAG AFTER RESTART
ADRES PDSPFLAG
-
+
TC TBASE2
-
+
R61TEST CA MODREG # IF WE ARE IN P00 IT MUST BE V49 OR V89
EXTEND
BZF ENDMANU1 # THUS WE GO TO ENDEXT VIA USER
-
+
CA FLAGWRD4 # ARE WE IN R61 (P20 OR P25)
MASK PDSPFBIT
EXTEND
BZF GOTOP00H # NO
TC GOTOV56 # YES
-
+
BIT14+7 OCT 20100
OCT203 OCT 203
V06N18 VN 0618
@@ -228,12 +228,12 @@ G+N,AUTO EXTEND
MASK BIT10
CCS A
TC Q # NOT IN G+N C(A) = +
-# Page 476
+# Page 476
ISITAUTO EXTEND # CHECK FOR AUTO MODE
READ CHAN31
MASK BIT14
TC Q # (+) = NOT IN AUTO, (+0) = AOK
-
+
# Page 477
# PROGRAM DESCRIPTION BALLANGS
# MOD NO. LOG SECTION R60,R62
@@ -286,7 +286,7 @@ ISITAUTO EXTEND # CHECK FOR AUTO MODE
SETLOC BAWLANGS
BANK
-
+
COUNT* $$/BALL
BALLANGS TC MAKECADR
TS BALLEXIT
@@ -297,19 +297,19 @@ BALLANGS TC MAKECADR
TS CDUSPOT
CA CPSI
TS CDUSPOT +2
-
+
TC INTPRET
SETPD CALL
0D
CD*TR*G
-
+
DLOAD DMP
SINCDUX # SIN (OGA)
COSCDUZ # COS (MGA)
-
+
SL1 DCOMP # SCALE
ARCSIN PDDL # YAW = ARCSIN(-SXCZ) INTO 0 PD
- SINCDUZ
+ SINCDUZ
STODL SINTH # (SINTH = 18D IN PD)
COSCDUZ
DMP SL1 # RESCALE
@@ -340,7 +340,7 @@ BALLANGS TC MAKECADR
V1STO2S
STORE FDAIX # MODE IS TP
EXIT
-
+
ENDBALL CA BALLEXIT
# Page 479
@@ -399,9 +399,9 @@ ENDBALL CA BALLEXIT
BANK
# Page 481
COUNT* $$/VECPT
-
+
EBANK= BCDU
-
+
VECPNT1 STQ BOV # THIS ENTRY USES DESIRED CDUS
VECQTEMP # NOT PRESENT -- ENTER WITH CDUD'S IN MPAC
VECPNT2
@@ -442,7 +442,7 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
KEL # S/C AXES TO STABLE MEMBER AXES
CALL # MFS = MIS MFI
MXM3 # (IN PD LIST)
-
+
DLOAD ABS
6 # MFS6 = SIN(CPSI) $2
DSU BMN
@@ -450,7 +450,7 @@ COMPMATX CALL # NOW COMPUTE THE TRANSFORMATION FROM
FINDGIMB # /CPSI/ LESS THAN 59 DEGS.
# Page 482
# I.E., DESIRED ATTITUDE NOT IN GIMBAL LOCK
-
+
DLOAD ABS # CHECK TO SEE IF WE ARE POINTING
SCAXIS # THE THRUST AXIS
DSU BPL
@@ -466,13 +466,13 @@ COMPMATX CALL # NOW 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 0, U = SCAXIS
# OTHERWISE U = -SCAXIS.
-
+
VLOAD VCOMP
SCAXIS
STCALL COF # ROTATE ABOUT -SCAXIS
@@ -509,7 +509,7 @@ FINDGIMB AXC,1 CALL
0
GOTO
VECQTEMP # RETURN TO CALLER
-
+
PICKAXIS VLOAD DOT # IF VF X VI = 0, FIND VF, VI
28D
SCAXIS
@@ -518,7 +518,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
-
+
BANK 35
SETLOC MANUVER1
BANK
@@ -556,7 +556,7 @@ VECANG2 2DEC .09722222222 # = 35 DEGREES $360
1BITDP OCT 0 # KEEP THIS BEFORE DPB(-14) ************
DPB-14 OCT 00001
OCT 00000
-
+
# Page 485
# ROUTINE FOR INITIATING AUTOMATIC MANEUVER VIA KEYBOARD (V49)
@@ -564,9 +564,9 @@ DPB-14 OCT 00001
SETLOC R62
BANK
EBANK= BCDU
-
+
COUNT* $$/R62
-
+
R62DISP EQUALS R62FLASH
R62FLASH CAF V06N22 # FLASH V06N22 AND
@@ -575,13 +575,13 @@ R62FLASH CAF V06N22 # FLASH V06N22 AND
TCF ENDEXT # TERMINATE
TCF GOMOVE # PROCEED
TCF R62FLASH # ENTER
-
+
# ASTRONAUT MAY LOAD NEW ICDUS AT THIS
# POINT.
GOMOVE TC UPFLAG # SET FOR 3-AXIS MANEUVER
ADRES 3AXISFLG
-
+
TC BANKCALL
CADR R60LEM
TCF ENDEXT # END R62
-
+
diff --git a/Luminary099/R63.agc b/Luminary099/R63.agc
index e477acf..0934730 100644
--- a/Luminary099/R63.agc
+++ b/Luminary099/R63.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 338-341
-# 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 338
# SUBROUTINE NAME: V89CALL
@@ -83,7 +83,7 @@
BANK 32
SETLOC BAWLANGS
BANK
-
+
COUNT* $$/R63
V89CALL TC BANKCALL # IMU STATUS CHECK. RETURNS IF ORIENTATION
CADR R02BOTH # KNOWN. ALARMS IF NOT.
@@ -143,12 +143,12 @@ V89CALL1 STCALL SCAXIS # STORE SELECTED ALIGNMENT AXIS
TC BANKCALL # PERFORMS LEM MANEUVER TO ALIGN SELECTED
CADR R60LEM # SPACECRAFT AXIS TO CSM.
TCF ENDEXT # TERMINATE R63
-
+
ALINEZ TC INTPRET # Z AXIS ALIGNMENT
VLOAD GOTO
UNITZ # READ (0, 0, .5)
V89CALL1
-
+
VB04N12 VN 412
VB06N18 VN 0618
# Page 341
diff --git a/Luminary099/RADAR_LEADIN_ROUTINES.agc b/Luminary099/RADAR_LEADIN_ROUTINES.agc
index d8e5553..6f7ae2a 100644
--- a/Luminary099/RADAR_LEADIN_ROUTINES.agc
+++ b/Luminary099/RADAR_LEADIN_ROUTINES.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 490-491
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@@ -24,67 +24,67 @@
# 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 490
BANK 25
SETLOC RRLEADIN
BANK
-
+
EBANK= RSTACK
-
+
# RADAR SAMPLING LOOP.
COUNT* $$/RLEAD
RADSAMP CCS RSAMPDT # TIMES NORMAL ONCE-PER-SECOND SAMPLING.
TCF +2
TCF TASKOVER # +0 INSERTED MANUALLY TERMINATES TEST.
-
+
TC WAITLIST
EBANK= RSTACK
2CADR RADSAMP
-
+
CAF PRIO25
TC NOVAC
EBANK= RSTACK
2CADR DORSAMP
-
+
CAF BIT14 # FOR CYCLIC SAMPLING, RTSTDEX =
EXTEND # RTSTLOC/2 + RTSTBASE
MP RTSTLOC
AD RTSTBASE # 0 FOR RR, 2 FOR LR.
TS RTSTDEX
TCF TASKOVER
-
+
# DO THE ACTUAL RADAR SAMPLE.
DORSAMP TC VARADAR # SELECTS VARIABLE RADAR CHANNEL.
TC BANKCALL
CADR RADSTALL
-
+
INCR RFAILCNT # ADVANCE FAIL COUNTER BUT ACCEPT BAD DATA
-
+
DORSAMP2 INHINT
CA FLAGWRD5 # DON'T UPDATE RSTACK IF IN R77.
MASK R77FLBIT
CCS A
TCF +4
-
+
DXCH SAMPLSUM
INDEX RTSTLOC
DXCH RSTACK
-
+
CS RTSTLOC # CYCLE RTSTLOC.
AD RTSTMAX
EXTEND
-
-# Page 491
+
+# Page 491
BZF +3
CA RTSTLOC
AD TWO # STORAGE IS DP
TS RTSTLOC
TCF ENDOFJOB # CONTINUOUS SAMPLING AND 2N TRIES -- GONE.
-
+
# VARIABLE RADAR DATA CALLER FOR ONE MEASUREMENT ONLY.
VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
@@ -92,12 +92,12 @@ VARADAR CAF ONE # WILL BE SENT TO RADAR ROUTINE IN A BY
INDEX RTSTDEX
CAF RDRLOCS
TCF SWCALL # NOT TOUCHING Q.
-
+
RDRLOCS CADR RRRANGE # =0
CADR RRRDOT # =1
CADR LRVELX # =2
CADR LRVELY # =3
CADR LRVELZ # =4
CADR LRALT # =5
-
+
diff --git a/Luminary099/RCS_FAILURE_MONITOR.agc b/Luminary099/RCS_FAILURE_MONITOR.agc
index 347aac5..9052951 100644
--- a/Luminary099/RCS_FAILURE_MONITOR.agc
+++ b/Luminary099/RCS_FAILURE_MONITOR.agc
@@ -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 190
# PROGRAM DESCRIPTION:
@@ -72,60 +72,60 @@ RCSMONEX EQUALS RESUME
# SUBROUTINE CALLED: NOVAC.
EBANK= CH5MASK
-
+
BANK 23
SETLOC RCSMONT
BANK
# Page 191
COUNT* $$/T4RCS
-
+
RCSMONIT EQUALS RCSMON
-
+
RCSMON CS ZERO
EXTEND
RXOR CHAN32 # PICK UP + INVERT INVERTED CHANNEL 32.
MASK LOW8 # KEEP JET-FAIL BITS ONLY.
TS Q
-
+
CS PVALVEST # _ _
MASK Q # FORM PC + PC.
TS L # (P = PREVIOUS ISOLATION VALVE STATE,
CS Q # C = CURRENT VALVE STATE (CH32)).
MASK PVALVEST
ADS L # RESULT NZ INDICATES ACTION REQUIRED.
-
+
EXTEND
BZF RCSMONEX # QUIT IF NO ACTION REQUIRED.
-
+
EXTEND
MP BIT7 # MOVE BITS 8-1 OF A TO 14-7 OF L.
XCH L # ZERO TO L IN THE PROCESS.
-
+
-3 INCR L
DOUBLE # BOUND TO GET OVERFLOW IN THIS LOOP,
OVSK # SINCE WE ASSURED INITIAL NZ IN A.
TCF -3
-
+
INDEX L
CA BIT8 -1 # SAVE THE RELEVANT BIT (8-1).
TS Q
MASK PVALVEST # LOOK AT PREVIOUS VALVE STATE BIT.
CCS A
TCF VOPENED # THE VALVE HAS JUST BEEN OPENED.
-
+
CS CH5MASK # THE VALVE HAS JUST BEEN CLOSED.
INDEX L
MASK 5FAILTAB
ADS CH5MASK # SET INHIBIT BIT FOR CHANNEL 5 JET.
-
+
CS CH6MASK
INDEX L
MASK 6FAILTAB
ADS CH6MASK # SET INGIBIT BIT FOR CHANNEL 6 JET
-
+
CA Q
ADS PVALVEST # RECORD ACTION TAKEN.
-
+
TCF 1/ACCFIX # SET UP 1/ACCJOB AND EXIT.
# Page 192
@@ -133,23 +133,23 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
CS 5FAILTAB
MASK CH5MASK
TS CH5MASK # REMOVE INHIBIT BIT FOR CHANNEL 5 JET.
-
+
INDEX L
CS 6FAILTAB
MASK CH6MASK
TS CH6MASK # REMOVE INHIBIT BIT FOR CHANNEL 6 JET.
-
+
CS Q
MASK PVALVEST
TS PVALVEST # RECORD ACTION TAKEN.
-
+
1/ACCFIX CAF PRIO27 # SET UP 1/ACCS SO THAT THE SWITCH CURVES
TC NOVAC # FOR TJETLAW CAN BE MODIFIED IF CH5MASK
EBANK= AOSQ # HAS BEEN ALTERED.
2CADR 1/ACCJOB
-
+
TCF RCSMONEX # EXIT.
-
+
5FAILTAB EQUALS -1 # CH 5 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00040 # 8
OCT 00020 # 7
@@ -159,7 +159,7 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
OCT 00001 # 3
OCT 00004 # 2
OCT 00002 # 1
-
+
6FAILTAB EQUALS -1 # CH 6 JET BIT CORRESPONDING TO CH 32 BIT:
OCT 00010 # 8
OCT 00020 # 7
@@ -169,5 +169,5 @@ VOPENED INDEX L # A VALVE HAS JUST BEEN OPENED.
OCT 00002 # 3
OCT 00040 # 2
OCT 00100 # 1
-
-
+
+
diff --git a/Luminary099/RESTARTS_ROUTINE.agc b/Luminary099/RESTARTS_ROUTINE.agc
index 1470e3f..8f60685 100644
--- a/Luminary099/RESTARTS_ROUTINE.agc
+++ b/Luminary099/RESTARTS_ROUTINE.agc
@@ -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 1303
BANK 01
diff --git a/Luminary099/RESTART_TABLES.agc b/Luminary099/RESTART_TABLES.agc
index 4c8a42c..a71398e 100644
--- a/Luminary099/RESTART_TABLES.agc
+++ b/Luminary099/RESTART_TABLES.agc
@@ -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 238
# RESTART TABLES
@@ -70,7 +70,7 @@
#
# OCT 77777 # THIS WILL CAUSE AN IMMEDIATE RESTART
# -2CADR ATASK # OF THE TASK :ATASK:
-#
+#
# DEC 200 # IF THE TIME OF THE 2 SECONDS SINCE DUMMY
# -2CADR DUMMY # WAS PUT ON THE WAITLIST IS UP, IT WILL BEGIN
# # IN 10 MS, OTHERWISE IT WILL BEGIN WHEN
@@ -84,11 +84,11 @@
BANK 01
SETLOC RESTART
BANK
-
+
PRDTTAB EQUALS 12000 # USED TO FIND THE PRIORITY OR DELTATIME
CADRTAB EQUALS 12001 # THIS AND THE NEXT RELATIVE LOC CONTAIN
# RESTART 2CADR
-
+
COUNT* $$/RSTAB # TABLES IN BANK 1.
SIZETAB TC 1.2SPOT -12006
TC 1.3SPOT -12004
@@ -105,17 +105,17 @@ SIZETAB TC 1.2SPOT -12006
1.2SPOT OCT 21000 # A DUMMY EXAMPLE TO BE REPLACED AS SOON
EBANK= STATE
2CADR ENDOFJOB # AS THERE IS A LEGITIMATE 1.2SPOT
-
+
DEC 100
EBANK= STATE
2CADR TASKOVER
-
+
# ANY MORE GROUP 1.EVEN RESTART VALUES SHOULD GO HERE.
1.3SPOT -GENADR SAVET-30
EBANK= DVCNTR
-2CADR ULLGTASK
-
+
# ANY MORE GROUP 1.ODD RESTART VALUES SHOULD GO HERE.
2.2SPOT EQUALS 1.2SPOT
@@ -132,7 +132,7 @@ SIZETAB TC 1.2SPOT -12006
2.5SPOT OCT 05000
EBANK= RRECTCSM
2CADR STATINT1
-
+
2.7SPOT DEC 1500
EBANK= LOSCOUNT
-2CADR P20LEMC1
@@ -220,17 +220,17 @@ SIZETAB TC 1.2SPOT -12006
4.23SPOT OCT 77777
EBANK= DVCNTR
-2CADR IGNITION
-
+
4.25SPOT GENADR SAVET-30
-GENADR TIG-35
EBANK= SAVET-30
BBCON TIG-35
-
+
4.27SPOT OCT 52777
EBANK= DVCNTR
2CADR P70A
-# Page 242
+# Page 242
4.31SPOT OCT 52777
EBANK= DVCNTR
2CADR P71A
@@ -238,24 +238,24 @@ SIZETAB TC 1.2SPOT -12006
4.33SPOT OCT 46777
EBANK= DVCNTR
2CADR GOP00FIX
-
+
4.35SPOT OCT 46777
EBANK= DVCNTR
2CADR GOP00DOO
-
+
4.37SPOT OCT 52777
EBANK= WHICH
2CADR COMFAIL
-
+
# ANY MORE 4.ODD RESTART VALUES SHOULD GO HERE.
5.2SPOT OCT 22000
EBANK= DVCNTR
2CADR NORMLIZE
-
+
DEC 200
EBANK= DVCNTR
-2CADR REREADAC
-
+
5.4SPOT DEC 200
EBANK= DVCNTR
-2CADR REREADAC
@@ -263,7 +263,7 @@ SIZETAB TC 1.2SPOT -12006
OCT 20000
EBANK= DVCNTR
2CADR SERVICER
-
+
# ANY MORE GROUP 5.EVEN RESTART VALUES SHOULD GO HERE
5.3SPOT DEC 200
@@ -278,20 +278,20 @@ SIZETAB TC 1.2SPOT -12006
EBANK= DVCNTR
# Page 243
-2CADR BIBIBIAS
-
+
# ANY MORE GROUP 5.ODD RESTART VALUES SHOULD GO HERE
6.2SPOT EQUALS 1.2SPOT
6.3SPOT DEC 100
EBANK= TIG
-2CADR CLOKTASK
-
+
6.5SPOT OCT 30000 # PROTECT INCREMENTING OF TIME2,TIME1 BY
EBANK= TEPHEM # P27(UPDATE PROGRAM) VIA V70 OR V73.
2CADR TIMEDIDR
-
+
6.7SPOT OCT 17000
EBANK= VGPREV
2CADR REDO6.7
-
+
diff --git a/Luminary099/RTB_OP_CODES.agc b/Luminary099/RTB_OP_CODES.agc
index a3bec33..62504cd 100644
--- a/Luminary099/RTB_OP_CODES.agc
+++ b/Luminary099/RTB_OP_CODES.agc
@@ -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 1397
BANK 22
diff --git a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc
index 1d24695..0c45e18 100644
--- a/Luminary099/S-BAND_ANTENNA_FOR_LM.agc
+++ b/Luminary099/S-BAND_ANTENNA_FOR_LM.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 486-489
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2009-06-07 RSB Corrected a misprint.
#
@@ -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 486
# SUBROUTINE NAME: R05 -- S-BAND ANTENNA FOR LM
@@ -71,7 +71,7 @@
BANK 41
SETLOC SBAND
BANK
-
+
EBANK= WHOCARES
COUNT* $$/R05
SBANDANT TC BANKCALL
@@ -126,7 +126,7 @@ CONV5 SETPD UNIT # UE = -UNIT((REM)(UEM) + RL) MOON SPHERE
STOVL RLM # R B-1
RLM
UNIT PDVL
-# Page 488
+# Page 488
RLM
VPROJ VSL2 # PROJECTION OF R ONTO LM XZ PLANE.
HIUNITY
@@ -177,7 +177,7 @@ SBANDEX EXIT
EXTEND
BZF ENDEXT # NO
CAF PRIO5
-# Page 489
+# Page 489
TC PRIOCHNG
CAF V06N51 # DISPLAY ANGLES
TC BANKCALL
@@ -196,6 +196,6 @@ V06N51 VN 0651
UR EQUALS 0D
URP EQUALS 6D
SBANK= LOWSUPER
-
+
# END OF LNYAIDE .001 ***
diff --git a/Luminary099/SERVICER.agc b/Luminary099/SERVICER.agc
index c57513e..7f1eb2d 100644
--- a/Luminary099/SERVICER.agc
+++ b/Luminary099/SERVICER.agc
@@ -12,11 +12,11 @@
# 2009-06-05 RSB Fixed a couple of typos, plus a goofy relative
# label reference from the original source.
#
-# The contents of the "Luminary099" files, in general, are transcribed
-# from scanned documents.
+# The contents of the "Luminary099" files, in general, are transcribed
+# from scanned documents.
#
# Assemble revision 001 of AGC program Luminary099 by NASA
-# 2021112-061. July 14, 1969.
+# 2021112-061. July 14, 1969.
#
# Prepared by
# Massachusetts Institute of Technology
@@ -710,7 +710,7 @@ HIGATASK INHINT
2CADR HIGATJOB
TCF CONTSERV # CONTINUE SERVICER
-
+
# Page 874
# MUNRETRN IS THE RETURN LOC FROM SPECIAL AVE G ROUTINE (MUNRVG)
@@ -769,7 +769,7 @@ HIGATCHK CA TTF/8 # IS TTF > CRITERION? (TTF IS NEGATIVE)
POS1CHK CAF BIT6 # HIGATE NOT IN SIGHT -- DO POS1 CHK
EXTEND
RAND 33
- EXTEND
+ EXTEND
BZF UPDATCHK # LR IN POS1 -- CHECK FOR LR UPDATE
LRPOSALM TC ALARM # LR NOT IN PROPER POS-ALARM-BYPASS UPDATE
diff --git a/Luminary099/SERVICE_ROUTINES.agc b/Luminary099/SERVICE_ROUTINES.agc
index 434d530..b814872 100644
--- a/Luminary099/SERVICE_ROUTINES.agc
+++ b/Luminary099/SERVICE_ROUTINES.agc
@@ -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 1374
BANK 10
diff --git a/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc b/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
index 1c364e1..4623c0d 100644
--- a/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
+++ b/Luminary099/SINGLE_PRECISION_SUBROUTINES.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1102
-# 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.
# 2010-12-31 JL Fixed page number comment.
#
@@ -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 1102
BLOCK 02
@@ -65,5 +65,5 @@ POLLEY EXTEND
ARG90 INDEX A
CS LIMITS
TC Q # RESULT SCALED AT 1.
-
+
diff --git a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
index 14654e7..930a324 100644
--- a/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
+++ b/Luminary099/SPS_BACK-UP_RCS_CONTROL.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1507-1510
-# 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.
#
# 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 1507
# PROGRAM NAME: SPSRCS
diff --git a/Luminary099/STABLE_ORBIT.agc b/Luminary099/STABLE_ORBIT.agc
index 40317ce..da8d945 100644
--- a/Luminary099/STABLE_ORBIT.agc
+++ b/Luminary099/STABLE_ORBIT.agc
@@ -7,9 +7,9 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 723-730
-# Mod history: 2009-05-19 RSB Adapted from the corresponding
+# Mod history: 2009-05-19 RSB Adapted from the corresponding
# Colossus249 file (there being no corresponding
-# Luminary131 source-code file), using page
+# Luminary131 source-code file), using page
# images from Luminary 1A.
# 2009-06-07 RSB Eliminated an extraneous instruction.
# 2011-01-06 JL Fixed pseudo-label indentation.
@@ -27,7 +27,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 723
# STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
@@ -108,10 +108,10 @@
BANK 04
SETLOC STBLEORB
BANK
-
+
EBANK= SUBEXIT
COUNT* $$/P3879
-
+
P38 TC BANKCALL
CADR AVFLAGA # THIS VEHICLE ACTIVE
TC +3
@@ -131,7 +131,7 @@ P78 TC BANKCALL
TCF -5 # RECYCLE
CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
TCR BLANKET
-# Page 725
+# Page 725
TCF ENDOFJOB
CAF FIVE
TS OPTION1
@@ -213,7 +213,7 @@ JUNCTN2 DLOAD DSU
TINT
DELTTIME
STORE TARGTIME # TT = TI - DELTA T
-
+
# .... MAINRTNE ....
#
# SUBROUTINES USED:
@@ -235,7 +235,7 @@ MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
SSP VLOAD
SUBEXIT
TEST3979
-# Page 727
+# Page 727
RATT
CALL
S3435.25
@@ -281,7 +281,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
@@ -338,7 +338,7 @@ P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
TC BANKCALL
CADR P20FLGON # SET UPDATFLG, TRACKFLG
TC INTPRET
-# Page 729
+# Page 729
SET CALL
P39/79SW
SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
@@ -353,7 +353,7 @@ P39/P79B RTB DAD
DLOAD GOTO
TARGTIME
MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
-
+
# .... PREC/TT ....
#
# SUBROUTINES USED
@@ -387,7 +387,7 @@ PREC/TT STQ DLOAD
DLOAD GOTO
T
RTRN
-
+
# .... INTRPVP ....
#
# SUBROUTINES USED
@@ -408,7 +408,7 @@ OTHERV CALL
LEMPREC
GOTO
RTRN
-
+
# .... VNDSPLY ....
#
# SUBROUTINES USED
diff --git a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
index 63431f7..dcb1f8d 100644
--- a/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
+++ b/Luminary099/SYSTEM_TEST_STANDARD_LEAD_INS.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 370-372
-# Mod history: 2009-05-17 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-17 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
#
# This source code has been transcribed or otherwise adapted from
@@ -24,17 +24,17 @@
# 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 370
EBANK= XSM
-
+
BANK 33
SETLOC E/PROG
BANK
-
+
COUNT* $$/P07
-
+
# SPECIAL PROGRAMS TO EASE THE PANGS OF ERASABLE MEMORY PROGRAMS.
#
# E/BKCALL FOR DOING BANKCALLS FROM AND RETURNING TO ERASABLE.
@@ -72,7 +72,7 @@ E/BKCALL DXCH BUF2 # SAVE A,L AND GET DP RETURN
INCR EBUF2
E/SWITCH DXCH EBUF2
DTCB
-
+
# Page 371
# E/CALL FOR CALLING A FIXED MEMORY INTERPRETIVE SUBROUTINE FROM ERASABLE AND RETURNING TO ERASABLE.
#
@@ -82,7 +82,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.
@@ -95,7 +95,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 372
# E/JOBWAK FOR WAKING UP ERASABLE MEMORY JOBS.
#
@@ -114,12 +114,12 @@ E/CALL LXCH LOC # ADRES -1 OF CADR.
BANK 33
SETLOC E/PROG
BANK
-
+
COUNT* $$/P07
-
+
E/JOBWAK TC JOBWAKE # ARRIVE WITH ADRES IN A.
CS BIT11
NDX LOCCTR
ADS LOC # KNOCK FIXED MEMORY BIT OUT OF ADRES.
TC RUPTREG3 # RETURN
-
+
diff --git a/Luminary099/T4RUPT_PROGRAM.agc b/Luminary099/T4RUPT_PROGRAM.agc
index 96f5b34..2632218 100644
--- a/Luminary099/T4RUPT_PROGRAM.agc
+++ b/Luminary099/T4RUPT_PROGRAM.agc
@@ -24,38 +24,38 @@
# 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 155
BANK 12
SETLOC T4RUP
BANK
-
+
EBANK= M11
COUNT* $$/T4RPT
T4RUPT TS BANKRUPT
EXTEND
QXCH QRUPT
-
+
CCS DSRUPTSW # GOES 7(-1)0 AROUND AND AROUND
TCF NORMT4 +1
TCF NORMT4
-
+
TCF QUIKDSP
-
+
NORMT4 CAF SEVEN
TS RUPTREG1
TS DSRUPTSW
-
+
BLOCK 02
SETLOC FFTAG10
BANK
-
+
COUNT* $$/T4RPT
100MRUPT = OCT37766 # (DEC 16374)
# RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
# IN LOWER 5 BITS.
-
+
RELTAB OCT 04025
OCT 10003
OCT 14031
@@ -75,12 +75,12 @@ RELTAB11 OCT 60000
BANK 12
SETLOC T4RUP
BANK
-
+
COUNT* $$/T4RPT
CDRVE CCS DSPTAB +11D
TC DSPOUT
TC DSPOUT
-
+
XCH DSPTAB +11D
MASK LOW11
TS DSPTAB +11D
@@ -89,7 +89,7 @@ CDRVE CCS DSPTAB +11D
WRITE OUT0
TC HANG20
-# Page 157
+# Page 157
# DSPOUT PROGRAM, PUTS OUT DISPLAYS
DSPOUTSB TS NOUT
@@ -111,7 +111,7 @@ TABLNTH OCT 12 # DEC 10, LENGTH OF DSPTAB
TS DSRUPTEM # IF DSRUPTEM=-0, 1ST PASS THRU DSPTAB
CAF TABLNTH # (DSPCNT=0).+0 INTO DSRUPTEM. PASS AGAIN
TCF DSPSCAN -1
-
+
DSPLAY AD ONE
INDEX DSPCNT
TS DSPTAB # REPLACE POSITIVELY
@@ -123,21 +123,21 @@ DSPLAY AD ONE
AD DSRUPTEM
EXTEND
WRITE OUT0
-
+
TCF Q+1
-
+
DSPOUT CCS FLAGWRD5 # IS DSKY FLAG ON
CAF ZERO # NO
TCF NODSPOUT # NO
CCS NOUT # YES
TC DSPOUTSB
TCF NODSPOUT # NO DISPLAY REQUESTS
-
+
HANG20 CS 14,11,9
ADS DSRUPTSW
-
+
CAF 20MRUPT
-
+
SETTIME4 TS TIME4
# Page 158
@@ -163,7 +163,7 @@ PROCEEDE CA IMODES33 # MONITOR FOR PROCEED BUTTON
MASK BIT14
CCS A
TCF T4JUMP # WAS ON -- NOW OFF
-
+
CAF CHRPRIO # WAS OFF -- NOW ON
TC NOVAC
EBANK= DSPCOUNT
@@ -183,7 +183,7 @@ T4JUMP INDEX RUPTREG1
TCF RRAUTCHK
TCF IMUMON
TCF DAPT4S
-
+
20MRUPT = OCT37776 # (DEC 16382)
# Page 160
@@ -191,15 +191,15 @@ T4JUMP INDEX RUPTREG1
NODSPOUT EXTEND
WRITE OUT0
-
+
CAF 120MRUPT #SET FOR NEXT CCRIVE
TCF SETTIME4
-
+
QUIKDSP CAF BIT14
MASK DSRUPTSW
EXTEND
BZF QUIKOFF # WROTE LAST TIME, NOW TURN OFF RELAYS.
-
+
CCS NOUT
TC DSPOUTSB
TCF NODSPY # NOUT=0 OR BAD RETURN FROM DSPOUTSB
@@ -211,29 +211,29 @@ QUIKRUPT ADS DSRUPTSW
CAF BIT9
ADS DSRUPTSW
-
+
TC RESUME
-
+
NODSPY EXTEND
WRITE OUT0
-
+
SYNCT4 CAF 20MRUPT
ADS TIME4
-
+
CAF BIT9
ADS DSRUPTSW
-
+
CCS DSRUPTSW
TC RESUME
OCT37737 OCT 37737
TC SYNCT4
TC RESUME
-
+
QUIKOFF EXTEND
WRITE OUT0
CAF BIT14 # RESET DSRUPTSW TO SEND DISPLAY NEXT PASS
TCF QUIKRUPT
-
+
14,11,9 OCT 22400
# Page 161
@@ -277,20 +277,20 @@ IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
MASK 30RDMSK
EXTEND
BZF TNONTEST # NO CHANGE IN STATUS
-
+
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES30 # UPDATE IMODES30.
EXTEND
RXOR LCHAN
TS IMODES30
-
+
CS ONE
XCH RUPTREG1
EXTEND
# Page 162
BZMF TLIM # CHANGE IN IMU TEMP.
TCF NXTIFBIT # BEGIN BIT SCAN.
-
+
-1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.)
NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
+1 DOUBLE
@@ -303,7 +303,7 @@ NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
MASK IMODES30
INDEX RUPTREG1
TC IFAILJMP
-
+
NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
TCF NXTIFBIT -1
@@ -362,33 +362,33 @@ TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
MASK BIT7 # IS TIME TO ACT ON A TURN-ON SEQUENCE.
CCS A
TCF C33TEST # NO -- EXAMINE CHANNEL 33.
-
+
CAF BIT8 # SEE IF FIRST SAMPLE OR SECOND.
MASK IMODES30
CCS A
TCF PROCTNON # REACT AFTER A SECOND SAMPLE.
-
+
CAF BIT8 # IF FIRST SAMPLE, SET BIT TO REACT NEXT
ADS IMODES30 # TIME.
TCF C33TEST
-
+
# PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
-
+
PROCTNON CS BITS7&8
MASK IMODES30
TS IMODES30
MASK BIT14 # SEE IF TURN-ON REQUEST.
CCS A
TCF OPONLY # OPERATE ON ONLY.
-
+
CS IMODES30 # IF TURN-ON REQUEST, WE SHOUD HAVE IMU
MASK BIT9 # OPERATE.
CCS A
TCF +3
-
+
TC ALARM # ALARM IF NOT
OCT 213
-
+
+3 TC CAGESUB
CAF 90SECS
TC WAITLIST
@@ -396,54 +396,54 @@ PROCTNON CS BITS7&8
2CADR ENDTNON
TCF C33TEST
-
+
RETNON CAF 90SECS
TC VARDELAY
-
+
ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
MASK IMODES30
XCH IMODES30
MASK BIT2 # IF IT WAS OFF, SEND ISS DELAY COMPLETE.
EXTEND
BZF ENDTNON2
-
+
CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW.
# Page 165
MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
EXTEND
BZF RETNON
-
+
CS FLAGWRD0 # IF IT IS NOT ON NOW, SEE IF A PROG WAS
MASK IMUSEBIT # WAITING.
CCS A
TCF TASKOVER
TC POSTJUMP
CADR IMUBAD # UNSUCCESSFUL TURN-ON.
-
+
ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE.
EXTEND
WOR CHAN12
-
+
TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF
-
+
UNZ2 TC ZEROICDU
CS BITS4&5 # REMOVE ZERO AND COARSE.
EXTEND
WAND CHAN12
-
+
CAF BIT11 # WAIT 10 SECS FOR CTRS TO FIND GIMBALS
TC VARDELAY
-
+
ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
TS IMODES30
-
+
CS BIT6 # ENABLE DAP
MASK IMODES33
TS IMODES33
-
+
CS FLAGWRD2 # TEST DRIFTFLG: IF ON DO NOTHING BECAUSE
MASK DRFTBIT # IMUCOMP SHOUD BE ALL SET UP (RESTART
EXTEND # WITH IMUSE DOWN). IF OFF, SET DRIFTFLG
@@ -451,47 +451,47 @@ ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT BIT, AND
ADS FLAGWRD2 # GOING (FRESH START OR ISS TURN-ON).
CA TIME1
XCH 1/PIPADT # CANNOT GET HERE IF RESTART WITH IMUSE UP
-
+
TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED.
-
+
CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE.
EXTEND
WAND CHAN12
-
+
CAF 4SECS # DON'T ENABLE PROG ALARM ON PIP FAIL FOR
# Page 166
TC WAITLIST # ANOTHER 4 SECS.
EBANK= CDUIND
2CADR PFAILOK
-
+
TCF TASKOVER
-
+
OPONLY CAF BIT4 # IF OPERATE ON ONLY, AND WE ARE IN COARSE
EXTEND # ALIGN, DON'T ZERO THE CDUS BECAUSE WE
RAND CHAN12 # MIGHT BE IN GIMBAL LOCK.
CCS A
TCF C33TEST
-
+
CAF IMUSEBIT # OTHERWISE, ZERO THE COUNTERS.
MASK FLAGWRD0 # UNLESS SOMEONE IS USING TH IMU.
CCS A
TCF C33TEST
-
+
TC CAGESUB2 # SET TURNON FLAGS.
-
+
ISSZERO TC IBNKCALL # TURN OFF NO ATT LAMP.
CADR NOATTOFF # IMU CAGE OFF ENTRY.
-
+
CAF BIT5 # ISS CDU ZERO
EXTEND
WOR CHAN12
-
+
TC ZEROICDU
CAF BIT6 # WAIT 300 MS. FOR AGS TO RECEIVE SIGNAL.
TC WAITLIST
EBANK= M11
2CADR UNZ2
-
+
TCF C33TEST
# Page 167
@@ -534,19 +534,19 @@ C33TEST CA IMODES33 # SEE IF RELEVANT CHAN33 BITS HAVE
RXOR LCHAN
EXTEND
BZF GLOCKMON # ON NO CHANGE.
-
+
TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
LXCH IMODES33
EXTEND
RXOR LCHAN
TS IMODES33 # UPDATED IMODES33.
-
+
CAF ZERO
XCH RUPTREG1
DOUBLE
# Page 168
TCF NXTIBT +1 # SCAN FOR BIT CHANGES.
-
+
-1 AD ONE
NXTIBT INCR RUPTREG1
+1 DOUBLE
@@ -593,11 +593,11 @@ GLOCKMON CCS CDUZ
TCF SETGLOCK # 70 DEGREES.
TCF GLOCKCHK
TCF SETGLOCK
-
+
GLOCKCHK AD -70DEGS
EXTEND
BZMF SETGLOCK -1 # NO LOCK.
-
+
AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES
EXTEND
BZMF NOGIMRUN
@@ -607,34 +607,34 @@ GLOCKCHK AD -70DEGS
RAND CHAN12
CCS A
TCF NOGIMRUN
-
+
TC IBNKCALL
CADR SETCOARS
-
+
CAF SIX # ENABLE ISS ERROR COUNTERS IN 60 MS.
TC WAITLIST
# Page 170
EBANK= CDUIND
2CADR CA+ECE
-
+
NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP.
TCF SETGLOCK
-
+
-1 CAF ZERO
SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING
EXTEND # THE TWO.
BZF GLOCKOK # OK AS IS.
-
+
MASK DSPTAB +11D # IF OFF, DON'T TURN ON IF IMU BEING CAGED.
CCS A
TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
-
+
CAF BIT6
MASK IMODES30
CCS A
TCF GLOCKOK
-
+
GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP.
MASK BIT6
AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D.
@@ -673,19 +673,19 @@ GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET
TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY.
-
+
CCS IMODES30
TCF TEMPOK
TCF TEMPOK
-
+
CAF BIT4 # TURN ON LAMP.
EXTEND
WOR DSALMOUT
TCF NXTIFAIL
-
+
TEMPOK TC LAMPTEST # IF TEMP NOW OK, DON'T TURN OFF LAMP IF
TCF NXTIFAIL # LAMP TEST IN PROGRESS.
-
+
CS BIT4
EXTEND
WAND DSALMOUT # TURN OFF LAMP
@@ -725,19 +725,19 @@ ITURNON CAF BIT2 # IF DELAY REQUEST HAS GONE OFF
MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES
CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
TCF NXTIFAIL
-
+
CAF BIT14 # SEE IF JUST ON OR OFF.
MASK IMODES30
EXTEND
BZF ITURNON2 # IF JUST ON.
-
+
CAF BIT15
EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN
RAND CHAN12 # SENT. IF SO, ACTION COMPLETE
EXTEND
BZF +2
TCF NXTIFAIL
-
+
CAF BIT2 # IF NOT, SET BIT TO INDICATE REQUEST NOT
ADS IMODES30 # PRESENT FOR FULL DURATION.
TC ALARM
@@ -751,7 +751,7 @@ ITURNON2 CS IMODES30 # SET BIT7 TO INDICATE WAIT OF 1 SAMPLE
CAF RRINIT
TS RADMODES
TCF NXTIFAIL
-
+
RRINIT OCT 00102
# Page 174
@@ -782,11 +782,11 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
CS OCT77000 # TERMINATE ICDU, RCDU, GYRO PULSE TRAINS
EXTEND
WAND CHAN14
-
+
CS OCT272 # KNOCK DOWN DISPLAY INERTIAL DATA, IMU
EXTEND # ERROR COUNTER ENABLE, ZERO ICDU, COARSE
WAND CHAN12 # ALIGN ENABLE, RR ERROR COUNTER ENABLE.
-
+
CS ENGONBIT # INSURE ENGONFLG IS CLEAR.
MASK FLAGWRD5
TS FLAGWRD5
@@ -796,9 +796,9 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
AD BIT14
EXTEND
WRITE DSALMOUT # FORCE BIT14=1, BIT13=0.
-
+
TC CAGESUB1
-
+
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
@@ -808,7 +808,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# Page 175
TS CDUZCMD
TS GYROCMD
-
+
CS OCT740 # HAVING WAITED AT LEAST 27 MCT FROM
EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN
WAND CHAN14 # DE-SELECT THE GYROS.
@@ -826,7 +826,7 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
# CALLING SEQUENCE: BY IMUMON WHEN BIT 9 OF CHANNEL 30 CHANGES.
#
# JOBS OR TAKS INITIATED: NONE.
-#
+#
# SUBROUTINES CALLED: ALARM, IF ISS IS TURNED OFF WHILE IN USE.
#
# ERASABLE INITIALIZATION: ON FRESH START AND RESTART, BIT 9 OF IMODES30 IS SET TO 1 EXCEPT WHEN THE GIMBAL LOCK
@@ -840,14 +840,14 @@ IMUCAGE CCS A # NO ACTION OF GOING OFF.
IMUOP EXTEND
BZF IMUOP2
-
+
CS IMODES33 # DISABLE DAP
MASK BIT6
ADS IMODES33
-
+
TC IBNKCALL # KNOCK DOWN TRACK, REFSMMAT, DRIFT FLAGS
CADR RNDREFDR
-
+
CS BITS7&8 # KNOCK DOWN RENDEZVOUS, IMUUSE FLAGS
MASK FLAGWRD0
XCH FLAGWRD0 # IF GOING OFF, ALARM IF PROG USING IMU.
@@ -855,11 +855,11 @@ IMUOP EXTEND
MASK IMUSEFLG
CCS A
TCF NXTIFAIL
-
+
TC ALARM
OCT 214
TCF NXTIFAIL
-
+
IMUOP2 CAF BIT2 # SEE IF FAILED ISS TURN-ON SEQ IN PROG.
MASK IMODES30
CCS A
@@ -893,19 +893,19 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
XCH IMODES30
MASK -BIT10
ADS IMODES30
-
+
TC SETISSW
-
+
CS IMODES30 # IF PIP FAIL DOESN'T LIGHT ISS WARNING, DO
MASK BIT1 # A PROGRAM ALARM IF IMU OPERATING BUT NOT
CCS A # CAGED OR BEING TURNED ON.
TCF NXTFL33
-
+
CA IMODES30
MASK OCT1720
CCS A
TCF NXTFL33 # ABOVE CONDITION NOT MET.
-
+
TC ALARM
OCT 212
TCF NXTFL33
@@ -935,14 +935,14 @@ PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST.
TCF NXTFL33
-
+
TC ALARM
OCT 1105
TCF NXTFL33
-
+
UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT
TCF NXTFL33 # ALARM CODE.
-
+
TC ALARM
OCT 1106
TCF NXTFL33
@@ -994,18 +994,18 @@ SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN
MASK OCT15000
CCS A
TCF ISSWON # FAILURE.
-
+
ISSWOFF CAF BIT1 # DON'T TURN OFF ISS WARNING IF LAMP TEST
MASK IMODES33 # IN PROGRESS.
# Page 180
CCS A
TC Q
-
+
CS BIT1
EXTEND
WAND DSALMOUT
TC Q
-
+
ISSWON EXTEND
QXCH ITEMP6
TC VARALARM # TELL EVERYONE WHAT CAUSED THE ISS WARNING
@@ -1013,28 +1013,28 @@ ISSWON EXTEND
EXTEND
WOR DSALMOUT
TC ITEMP6
-
+
CAGESUB CS BITS6&15 # SET OUTBITS AND INTERNAL FLAGS FOR
EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE
WAND CHAN12 # ERROR COUNTER AND REMOVE THE IMU DELAY COMP.
CAF BITS4&5 # SEND ZERO AND COARSE.
EXTEND
WOR CHAN12
-
+
CAGESUB1 CS DSPTAB +11D # TURN ON NO ATT LAMP
MASK OC40010
ADS DSPTAB +11D
-
+
CAGESUB2 CS IMODES30 # SET FLAGS TO INDICATE CAGING OR TURN-ON
MASK OCT75 # AND INHIBIT ALL ISS WARNING INFO
ADS IMODES30
-
+
CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
MASK BIT6
ADS IMODES33
-
+
TC Q
-
+
IMUFAIL EQUALS SETISSW
ICDUFAIL EQUALS SETISSW
@@ -1047,18 +1047,18 @@ IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH.
TCF IMUCAGE
30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE).
TCF IMUOP
-
+
C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH.
TCF DNTMFAST
TCF UPTMFAST
-
+
# SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
LAMPTEST CS IMODES33 # BIT 1 OF IMODES33 = 1 IF LAMP TEST IN
MASK BIT1 # PROGRESS.
CCS A
INCR Q
TC Q
-
+
33RDMSK EQUALS PRIO16
OC40010 OCT 40010
OCT54 OCT 54
@@ -1115,7 +1115,7 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
MASK AUTOMBIT
EXTEND
BZF RRCDUCHK
-
+
LXCH RADMODES # UPDATE RADMODES.
EXTEND
RXOR LCHAN
@@ -1127,12 +1127,12 @@ RRAUTCHK CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
CA OCT10001 # SET RRCDUZRO AND TURNON BITS.
ADS RADMODES
-# Page 183
+# Page 183
CAF ONE
TC WAITLIST
EBANK= LOSCOUNT
2CADR RRTURNON
-
+
TCF NORRGMON
OCT05776 OCT 5776
@@ -1174,19 +1174,19 @@ OCT05776 OCT 5776
-3 CS BIT2
EXTEND
WAND CHAN12 # AT TURNON, DISABLE CDU ERROR COUNTERS.
-
+
RRCDUCHK CA RADMODES # LAST SAMPLED BIT IN RADMODES.
EXTEND
RXOR CHAN30
MASK RCDUFBIT
EXTEND
BZF RRGIMON
-
+
CAF AUTOMBIT # IF RR NOT IN AUTO MODE, DON'T CHANGE BIT
MASK RADMODES # 7 OF RADMODES. IF THIS WERE NOT DONE,
CCS A # THE TRACKER FAIL MIGHT COME ON WHEN
TCF NORRGMON # JUST READING LR DATA.
-
+
CAF RCDUFBIT # SET BIT 7 OF RADMODES FOR SETTRKF.
# Page 185
LXCH RADMODES # UPDATE RADMODES.
@@ -1210,7 +1210,7 @@ TRKFLCDU TC SETTRKF # UPDATE TRAKER FAIL LAMP ON DSKY.
# PROGRAM NAME: RRGIMON
#
# FUNCTIONAL DESCRIPTION:
-# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
+# RRGIMON IS THE RR GIMBAL LIMIT MONITOR. INITIALLY THE FOLLOWING IS
# CHECKED: REMOD, RR CDU'S BEING ZEROED, REPOSITION, AND RR
# NOT IN AUTO MODE (RADMODES BITS 14, 13, 11, 2). IF ANY OF THESE
# EXIST THE PROGRAM EXITS TO GPMATRIX. IF NONE ARE PRESENT RRLIMCHK
@@ -1276,7 +1276,7 @@ MONREPOS CAF REPOSBIT # SET FLAG TO SHOW REPOSITION IN PROGRESS.
TC WAITLIST
EBANK= LOSCOUNT
2CADR DORREPOS
-
+
TCF NORRGMON
OCT32002 OCT 32002
@@ -1325,30 +1325,30 @@ DAPT4S EQUALS GPMATRIX
GPMATRIX CAE CDUZ # SINGLE ENTRY POINT
TC SPSIN # SIN(CDUZ) = SIN(MG)
TS M11 # SCALED AT 1
-
+
CAE CDUZ
TC SPCOS # COS(CDUZ) = COS(MG)
TS COSMG # SCALED AT 1 (ONLY A FACTOR)
-
- CAE CDUX
+
+ CAE CDUX
TC SPSIN # SIN(CDUX) = SIN(OG)
TS M22 # SCALED AT 1 (ALSO IS MR22)
-
+
CS M22
# Page 189
EXTEND
MP COSMG # -SIN(OG)COS(MG)
TS M31 # SCALED AT 1
-
- CAE CDUX
+
+ CAE CDUX
TC SPCOS # COS(CDUX) = COS(OG)
TS M32 # SCALED AT 1 (ALSO IS MR23)
-
+
EXTEND
MP COSMG # COS(OG)COS(MG)
TS M21 # SCALED AT 1
-
+
TC RESUME
-NORRGMON EQUALS DAPT4S
+NORRGMON EQUALS DAPT4S
ENDDAPT4 EQUALS RESUME
diff --git a/Luminary099/T6-RUPT_PROGRAMS.agc b/Luminary099/T6-RUPT_PROGRAMS.agc
index c838543..41e3f93 100644
--- a/Luminary099/T6-RUPT_PROGRAMS.agc
+++ b/Luminary099/T6-RUPT_PROGRAMS.agc
@@ -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 1403
# PROGRAM NAMES: (1) T6JOBCHK MOD. NO. 5 OCTOBER 2, 1967
diff --git a/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc b/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
index 72d7deb..d64e961 100644
--- a/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
+++ b/Luminary099/TAGS_FOR_RELATIVE_SETLOC.agc
@@ -45,21 +45,21 @@ FFTAG11 EQUALS
FFTAG12 EQUALS
FFTAG13 EQUALS
BNKSUM 02
-
+
BLOCK 03
FFTAG5 EQUALS
FFTAG6 EQUALS
BNKSUM 03
-
+
BANK 00
DLAYJOB EQUALS
BNKSUM 00
-
+
BANK 01
RESTART EQUALS
LOADDAP1 EQUALS
BNKSUM 01
-
+
BANK 04
R02 EQUALS
VERB37 EQUALS
@@ -71,7 +71,7 @@ UPDATE2 EQUALS
E/PROG EQUALS
AOTMARK2 EQUALS
BNKSUM 04
-
+
# Page 29
BANK 05
FRANDRES EQUALS
@@ -80,7 +80,7 @@ ABORTS1 EQUALS
EPHEM1 EQUALS
ASENT3 EQUALS
BNKSUM 05
-
+
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
BANK 06
@@ -90,13 +90,13 @@ RCSMONT EQUALS
MIDDGIM EQUALS
EARTHLOC EQUALS
BNKSUM 06
-
+
BANK 07
AOTMARK1 EQUALS
MODESW EQUALS
ASENT2 EQUALS
BNKSUM 07
-
+
BANK 10
RTBCODES EQUALS
DISPLAYS EQUALS
@@ -104,20 +104,20 @@ PHASETAB EQUALS
FLESHLOC EQUALS
SLCTMU EQUALS
BNKSUM 10
-
+
BANK 11
ORBITAL EQUALS
F2DPS*11 EQUALS
INTVEL EQUALS
BNKSUM 11
-
+
BANK 12
CONICS EQUALS
ORBITAL1 EQUALS
# Page 30
INTPRET2 EQUALS
BNKSUM 12
-
+
BANK 13
LATLONG EQUALS
INTINIT EQUALS
@@ -126,7 +126,7 @@ P76LOC EQUALS
ORBITAL2 EQUALS
ABTFLGS EQUALS
BNKSUM 13
-
+
# Page 31
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
@@ -134,28 +134,28 @@ ABTFLGS EQUALS
P50S1 EQUALS
STARTAB EQUALS
ASENT4 EQUALS
- BNKSUM 14
+ BNKSUM 14
BANK 15
P50S EQUALS
EPHEM EQUALS
BNKSUM 15
-
+
BANK 16
DAPS1 EQUALS
BNKSUM 16
-
+
BANK 17
DAPS2 EQUALS
P40S3 EQUALS
BNKSUM 17
-
+
BANK 20
DAPS3 EQUALS
LOADDAP EQUALS
RODTRAP EQUALS
BNKSUM 20
-
+
BANK 21
DAPS4 EQUALS
R10 EQUALS
@@ -189,12 +189,12 @@ P12A EQUALS
NORMLIZ EQUALS
ASENT7 EQUALS
BNKSUM 23
-
+
BANK 24
PLANTIN EQUALS
P20S EQUALS
BNKSUM 24
-
+
BANK 25
P20S1 EQUALS
P20S2 EQUALS
@@ -203,7 +203,7 @@ RRLEADIN EQUALS
R29S1 EQUALS
PLANTIN3 EQUALS
BNKSUM 25
-
+
BANK 26
# Page 33
P20S3 EQUALS
@@ -213,7 +213,7 @@ MANUVER1 EQUALS
PLANTIN1 EQUALS
PLANTIN2 EQUALS
BNKSUM 26
-
+
BANK 27
TOF-FF EQUALS
TOF-FF1 EQUALS
@@ -235,13 +235,13 @@ FLOGSUB EQUALS
VB67A EQUALS
ASENT5 EQUALS
BNKSUM 30
-
+
BANK 31
FTHROT EQUALS
F2DPS*31 EQUALS
VB67 EQUALS
BNKSUM 31
-
+
BANK 32
P20S4 EQUALS
F2DPS*32 EQUALS
@@ -251,13 +251,13 @@ P66LOC EQUALS
R47 EQUALS
SERV EQUALS
BNKSUM 32
-
+
BANK 33
SERVICES EQUALS
R29/SERV EQUALS
ASENT6 EQUALS
BNKSUM 33
-
+
BANK 34
STBLEORB EQUALS
P30S1 EQUALS
@@ -274,14 +274,14 @@ P30S EQUALS
GLM EQUALS
P40S2 EQUALS
BNKSUM 35
-
+
# Page 36
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
BANK 36
P40S EQUALS
BNKSUM 36
-
+
BANK 37
P05P06 EQUALS
IMU2 EQUALS
@@ -290,28 +290,28 @@ R31 EQUALS
IMUSUPER EQUALS
SERV1 EQUALS
BNKSUM 37
-
+
BANK 40
PINBALL1 EQUALS
SELFSUPR EQUALS
PINSUPER EQUALS
R31LOC EQUALS
BNKSUM 40
-
+
BANK 41
PINBALL2 EQUALS
BNKSUM 41
-
+
BANK 42
-SBAND EQUALS
+SBAND EQUALS
PINBALL3 EQUALS
BNKSUM 42
-
+
BANK 43
EXTVERBS EQUALS
SELFCHEC EQUALS
BNKSUM 43
-
+
# Page 37
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
diff --git a/Luminary099/THE_LUNAR_LANDING.agc b/Luminary099/THE_LUNAR_LANDING.agc
index 4e30ffc..97dc2bf 100644
--- a/Luminary099/THE_LUNAR_LANDING.agc
+++ b/Luminary099/THE_LUNAR_LANDING.agc
@@ -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 785
BANK 32
@@ -126,7 +126,7 @@ IGNALOOP DLOAD
# 10
# 2 (VGU - 16 VGU KIGNX/B4)
# 2 0
-# Page 787 new page is actually one line earlier but this would put the indices on a separate line
+# Page 787 new page is actually one line earlier but this would put the indices on a separate line
# disconnected from their respective variables
# THE NUMERATOR IS SCALED IN METERS AT 2(28). THE DENOMINATOR IS A VELOCITY IN UNITS OF 2(10) M/CS.
# THE QUOTIENT IS THUS A TIME IN UNITS OF 2(18) CENTISECONDS. THE FINAL SHIFT RESCALES TO UNITS OF 2(28) CS.
@@ -291,8 +291,8 @@ LANDJUNK TC PHASCHNG
CADR ZATTEROR
TC BANKCALL # SET 5 DEGREE DEADBAND
- CADR SETMAXDB
-
+ CADR SETMAXDB
+
TC INTPRET # TO INTERPRETIVE AS TIME IS NOT CRITICAL
SET CLEAR
SURFFLAG
diff --git a/Luminary099/THROTTLE_CONTROL_ROUTINES.agc b/Luminary099/THROTTLE_CONTROL_ROUTINES.agc
index 7c551f4..c2931e5 100644
--- a/Luminary099/THROTTLE_CONTROL_ROUTINES.agc
+++ b/Luminary099/THROTTLE_CONTROL_ROUTINES.agc
@@ -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 793
BANK 31
diff --git a/Luminary099/TIME_OF_FREE_FALL.agc b/Luminary099/TIME_OF_FREE_FALL.agc
index 1dc33a3..fe8c705 100644
--- a/Luminary099/TIME_OF_FREE_FALL.agc
+++ b/Luminary099/TIME_OF_FREE_FALL.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1268-1283
-# Mod history: 2009-05-26 RSB Adapted from the corresponding
-# Luminary131 file, using page
+# Mod history: 2009-05-26 RSB Adapted from the corresponding
+# Luminary131 file, using page
# images from Luminary 1A.
# 2011-01-06 JL Fixed pseudo-label indentation.
#
@@ -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 1268
# THE TFF SUBROUTINES MAY BE USED IN EITHER EARTH OR MOON CENTERED COORDINATES. THE TFF ROUTINES NEVER
@@ -426,7 +426,7 @@ CALCTFF CLEAR # ENTER WITH RTERM IN MPAC
+2 # IF TFF, CONTINUE
TFFZEROS # IF TPER, SET Q2 = 0
+2 BMN SQRT # E:(-16) M:(-15)
-
+
MAXTFF1 # NO FREE FALL CONIC TO RTERM FROM HERE
# RESET PDL, SET TFF=POSMAX, AND EXIT.
@@ -667,15 +667,15 @@ TFFEL1 DLOAD DSU # (ENTER WITH D/N=0 IN PDL+0)
T(X) TC POLY
DEC 4 # N-1
2DEC 3.333333333 E-1
-
+
2DEC* -1.999819135 E-1*
-
+
2DEC* 1.418148467 E-1*
-
+
2DEC* -1.01310997 E-1*
-
+
2DEC* 5.609004986 E-2*
-
+
2DEC* -1.536156925 E-2*
ENDT(X) TC DANZIG
diff --git a/Luminary099/TJET_LAW.agc b/Luminary099/TJET_LAW.agc
index 2ea0ece..1afd51e 100644
--- a/Luminary099/TJET_LAW.agc
+++ b/Luminary099/TJET_LAW.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1460-1469
-# 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-06 RSB Eliminated a stray instruction that had crept
# in somehow.
@@ -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 1460
# PROGRAM DESCRIPTION
@@ -181,7 +181,7 @@ TJCALC TS NUMBERT # SET TO +0,1,4 FOR (U,V-AXES) JET SELECT.
ZONE4,5 INDEX ADRSDIF1
CAE 1/ACOAST # .5/ACC SCALED AT 2(6)/PI WHERE
-# Page 1463
+# Page 1463
EXTEND # ACC = MAX(AMIN, AOS-).
MP EDOTSQ # SCALED AT PI/2(8).
AD E # SCALED AT PI/4
@@ -232,7 +232,7 @@ ZONE5 TS L # TEMPORARILY STORE FUNCTION IN L.
TCF +4 # AND ACCFCTZ5, WHICH MUST BE PICKED UP
TC CCSHOLE # FROM THE NEXT LOWER REGISTER IF THE
CS TWO # (ACTUAL) ERROR RATE IS NEGATIVE.
-# Page 1464
+# Page 1464
ADS ADRSDIF2
+4 CAE L
@@ -285,7 +285,7 @@ RETURNTJ EXTEND # ALL BRANCHES TERMINATE HERE WITH TJET
EXTEND # IN A SENSE FOR WHICH 1/ACCS HAS FORCED
BZMF +3 # A MAX-JET CALCULATION.
CAF FOUR
-# Page 1465
+# Page 1465
TS NUMBERT
TC HOLDQ # RETURN VIA SAVED Q.
diff --git a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc
index e33e031..c2fda36 100644
--- a/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc
+++ b/Luminary099/TRIM_GIMBAL_CNTROL_SYSTEM.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1472-1485
-# 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.
#
# 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 1472
BANK 21
@@ -519,7 +519,7 @@ PRODUCT XCH K2CNTRAL
ADS K2CNTRAL +1 # K *(DEL*OMEGA + ALPHA /(2*K))
TS L # AND
TCF +2 # 2
- ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN
+ ADS K2CNTRAL # DEL*(DEL*OMEGA + ALPHA /(2*K)) NOW IN
# K2CNTRAL
DOSHIFT CA ININDEX
@@ -619,4 +619,4 @@ ROOTCYCL TS SCRATCH # STORE X
AD SR # (X + ARG/X)/2 IN THE A REG
TC Q
-
+
diff --git a/Luminary099/UPDATE_PROGRAM.agc b/Luminary099/UPDATE_PROGRAM.agc
index 1c2bdb6..c5eb029 100644
--- a/Luminary099/UPDATE_PROGRAM.agc
+++ b/Luminary099/UPDATE_PROGRAM.agc
@@ -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 1386
# PROGRAM NAME: P27
@@ -137,7 +137,7 @@
# XXXXXEXXXXXE ROW 3 COLUMN 3 2(-1)
# V33E VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED
-
+
BANK 07
SETLOC EXTVERBS
@@ -545,4 +545,4 @@ UPACTOFF CS BIT3
EXTEND # TURN OFF UPLINK ACTIVITY LIGHT
WAND DSALMOUT # (BIT 3 OF CHANNEL 11)
TC Q
-
+
diff --git a/Luminary099/WAITLIST.agc b/Luminary099/WAITLIST.agc
index 4da7d1a..05d530f 100644
--- a/Luminary099/WAITLIST.agc
+++ b/Luminary099/WAITLIST.agc
@@ -7,8 +7,8 @@
# Contact: Ron Burkey <info@sandroid.org>.
# Website: www.ibiblio.org/apollo.
# Pages: 1117-1132
-# 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-07 JL Removed workarounds.
@@ -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 1117
# PROGRAM DESCRIPTION DATE -- 10 OCTOBER 1966
@@ -334,7 +334,7 @@ OCT40201 OCT 40201
FILLED DXCH WAITEXIT
TC BAILOUT1 # NO ROOM IN THE INN
OCT 01203
-
+
# Page 1127
# THE ENTRY TC WTLST2 JUST PRECEDING OCT N IS FOR T LE TD LE T -1.
# N N+1
@@ -530,7 +530,7 @@ LONGCYCL EXTEND # CAN WE SUCCESFULLY TAKE ABOUT 1.25
TCF MUCHTIME
DPBIT14 OCT 00000
OCT 20000
-
+
# LONGCALL
# Page 1132
LASTTIME CA BIT14 # GET BACK THE CORRECT DELTA T FOR WAITLIST
@@ -561,4 +561,4 @@ LONGP00H DXCH LONGEXIT
WAITP00H DXCH WAITEXIT
+2 TC P00DOO1
OCT 01204
-
+
diff --git a/README.md b/README.md
index 5e4a1ba..44cc59b 100644
--- a/README.md
+++ b/README.md
@@ -31,7 +31,7 @@ If you are interested in compiling the original source code, check out [Virtual
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