Trim whitespace
This commit is contained in:
James Harris
@ -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.
|
||||
|
||||
Reference in New Issue
Block a user