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