swh:1:snp:92f3f585b9ae79620ad8c41a332d6329b31fd381
Tip revision: 078c79d8734a9ed2860303a7c1662004284fe853 authored by Ron Burkey on 07 August 2022, 15:04:04 UTC
Fixed a potential string-overflow bug in yaASM. Removed timestamps from
Fixed a potential string-overflow bug in yaASM. Removed timestamps from
Tip revision: 078c79d
MP_7-SIVB_LEM_SEPARATION.agc
### FILE="Main.annotation"
## Copyright: Public domain.
## Filename: MP_7-SIVB_LEM_SEPARATION.agc
## Purpose: A module for revision 0 of BURST120 (Sunburst). It
## is part of the source code for the Lunar Module's
## (LM) Apollo Guidance Computer (AGC) for Apollo 5.
## Assembler: yaYUL
## Contact: Ron Burkey <info@sandroid.org>.
## Website: www.ibiblio.org/apollo/index.html
## Mod history: 2016-09-30 RSB Created draft version.
## 2016-10-25 MAS Transcribed.
## 2016-10-31 RSB Typos.
## 2016-11-01 RSB More typos.
## 2016-12-06 RSB Comments proofed using octopus/ProoferComments,
## no changes made.
## Page 712
BANK 25
EBANK= TDEC
# PROGRAM DESCRIPTION- MISSION PHASE 7 - SIVB/LEM SEPARATION DATE- 21 OCT 66
# MOD NO- 0 LOG SECTION- MP 7 - SIVB/LEM SEPARATION
# MOD BY- GILBERT ASSEMBLY- SUNBURST REVISION 12
# FUNCTIONAL DESCRIPTION
# SIVB/LEM SEPARATION IS STARTED 39 MIN. 56 SEC. AFTER SIVB SHUTDOWN IS DETECTED. AT 00/11/04, ONE
# MINUTE AFTER BOOST SHUTDOWN IS DETECTED, MISSION TIMER NO. 1 IS SET TO 38M 56S AND MISSION PHASE REGISTER NO. 1
# TO MP 7. MISSION PHASE 7 STARTS AT 00/50/00. THIS PROGRAM COMMANDS A SEQUENCE OF EVENTS INCLUDING RCS COLD
# FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION INITIATION OF LEM/SIVB SEPARATION
# SEQUENCE, AND AGS ACTIVATION. IMMEDIATELY AFTER PHYSICAL SEPARATION, 00/54/00, THE PGNCS HOLDS THE ATTITUDE RATE
# WHICH EXISTED AT SEPARATION TO MINIMIZE THE PROBABILITY OF RE-CONTACT. RCS +X TRANSLATION IS TERMINATED 15
# SECONDS AFTER SEPARATION AT 00/54/15 AT WHICH TIME AUTOMATIC ATTITUDE HOLD IS INITIATED. THIS TERMINATION
# FOLLOWS A SEQUENCE STARTING AT 00/53/55 DURING WHICH THE JETS ARE TURNED ON FOR 10 SECONDS, OFF FOR 5 SECONDS,
# AND ON FOR 5 SECONDS. THIS IS DUE TO THE POSSIBILITY OF HEAT AFFECTING THE RENDEZVOUS RADAR ANTENNAE.
# MISSION PHASE TIMER NO. 4 IS SET TO START MISSION PHASE 8 (DPS COLD SOAK) IN 08 SECONDS. MISSION PHASE TIMER
# NO. 2 IS SET TO START MISSION PHASE 9 (DPS 1) IN 3H 1M 47S. MAJOR MODE 14 IS DISPLAYED DURING THIS PHASE.
# CALLING SEQUENCE
# SIVB/LEM SEPARATION IS CALLED BY THE MISSION SCHEDULING ROUTINE AS A JOB. THE MISSION SCHEDULING ENTRY
# ROUTINE WAS CALLED 1 MINUTE AFTER BOOST SHUTDOWN IN MISSION PHASE 6 TO SET TIMER NO. 1 TO 38 MINUTES 56 SECONDS.
# SUBROUTINES CALLED
# NEWMODEX, WAITLIST, FIXDELAY, 1LMP+DT, 2LMP+DT, FLAG1UP, FLAG1DWN, MPENTRY, MIDTOAVE, AVETOMID, TPAGREE,
# PREREAD, READACCS, SERVICER, AVERAGEG.
# NORMAL EXIT MODE
# TASKOVER (ENDOFJOB INITIALLY SINCE TASK IS REQUESTED)
# ALARM OR ABORT EXIT MODES
# NONE
# INPUT
# MISSION SCHEDULING MAINTENANCE ROUTINE MUST BE INHIBITED AT BEGINNING AND ENABLED AT END OF MISSION PHASE 7.
# OUTPUT
# RCS COLD FIRE PURGE, RCS PRESSURIZATION, S BAND SYSTEM ACTIVATION, +X TRANSLATION, INITIATION OF LEM/SIVB
# SEPARATION SEQUENCE, AND SCHEDULING OF MISSION PHASES 8 AND 9 (DPS COLD SOAK AND DPS 1).
# ERASABLE INITIALIZATION REQUIRED
# NORMAL MISSION SEQUENCE SETS ERASABLES PROPERLY
# DEBRIS
# CENTRALS - A,L,Q
# OTHER - ERASABLES IN SUBROUTINES USED
## Page 713
MP07JOB TC 2PHSCHNG
OCT 00006
OCT 05022
OCT 20000
TC 2PHSCHNG
OCT 00003
OCT 00004
CAF BIT7
TC SETRSTRT # SET RESTART FLAG
TC PHASCHNG
OCT 47013
DEC 4000
EBANK= TDEC
2CADR SIVBSEP
TC PHASCHNG
OCT 06022
EBANK= TDEC
2CADR DOOI
INHINT
CA 40SEC
TC WAITLIST
EBANK= TDEC
2CADR SIVBSEP
RELINT
DOOI EXTEND
DCA TIME2 # SET UP TIME FOR MIDTOAVE
DXCH TDEC
EXTEND
DCA MP07DELT
DAS TDEC
EXTEND
DCA TDEC
DXCH TIMEHOLD # NO RADAR ON 206
TC NEWMODEX # DISPLAY MAJOR MODE 14
OCT 14
EXTEND
DCA MIDAVE2C # PRIOR TO THRUST
DXCH Z
TC PHASCHNG
## Page 714
OCT 04022
CAF AVRAGEG7 # SERVICER CALLS AVERAGEG
TS DVSELECT
EXTEND
DCA SVREXIT # NORMAL EXIT FROM AVERAGEG
DXCH AVGEXIT
CAF JETS+X # RCS COLD FIRE PURGE
EXTEND
WRITE 5
TC ENDOFJOB # AND RELINT
SIVBSEP TC 2PHSCHNG
OCT 00003
OCT 05012
OCT 77777
CAF ZERO # TERMINATE RCS COLD FIRE PURGE
EXTEND
WRITE 5
TC PHASCHNG
OCT 47012
DEC 400
EBANK= TDEC
2CADR SIVB1
TC FIXDELAY # WAIT 4 SECONDS
DEC 400
SIVB1 TC 2LMP+DT
DEC 188 # RCS MAIN S/O VALVES, SYS. A - OPEN **
DEC 190 # RCS MAIN S/O VALVES, SYS. B - OPEN **
DEC 100 # WAIT 1 SECOND
TC 1LMP+DT
DEC 4 # ED BATTERY ACTIVATION - ON
DEC 100 # WAIT 1 SECOND
TC 2LMP+DT
DEC 189 # RESET **
DEC 191 # RESET **
DEC 900 # WAIT 9 SECONDS
TC 1LMP+DT
DEC 6 # RCS PRESSURIZE - FIRE **
DEC 200 # WAIT 2 SECONDS
## Page 715
TC 1LMP+DT
DEC 7 # RESET **
DEC 2800 # WAIT 28 SECONDS
TC 1LMP+DT
DEC 5 # ED BATTERY ACTIVATION - SAFE *
DEC 9500 # WAIT 95 SECONDS ...
EXTEND
DCA TIMEHOLD
DXCH DT2TEMPD
EXTEND
DCS TIME2 # TIG - 28 SEC. = TDEC + 2 SEC.
DAS DT2TEMPD
TC PHASCHNG
OCT 05012
OCT 77777
EXTEND
DCA DT2TEMPD
DXCH TIMEHOLD
CCS TIMEHOLD +1 # INSURE WAITLIST TIME POSITIVE
AD ONE
TCF +3
COM
AD POSMAX
TS DT2TEMP
TC WAITLIST # REQUEST LASTBIAS AT TIG - 30 SECONDS
EBANK= TDEC
2CADR TIG-30
TC 2PHSCHNG
OCT 40052
OCT 47014
-GENADR DT2TEMP
EBANK= TDEC
2CADR TIG-30
TC FIXDELAY # WAIT 55 SECONDS
DEC 5500
SIVB2 TC IBNKCALL # DEADBAND SELECT - MAX
CADR SETMAXDB
CAF JETS+X # COMMAND +X TRANSLATION - ON (4 JET)
EXTEND
WRITE 5
TC IBNKCALL
CADR ULLAGE
## Page 716
TC PHASCHNG
OCT 47012
DEC 100
EBANK= TDEC
2CADR SIVB3
TC FIXDELAY # WAIT 1 SECOND
DEC 100
SIVB3 TC 1LMP+DT
DEC 138 # XMTR/RCVR (S-BAND) - PRIM *
DEC 300 # WAIT 3 SECONDS
TC 1LMP+DT
DEC 58 # LEM/SIVB SEPARATE ARM - ON *
DEC 50 # WAIT 500 MILLISECONDS
CS DAPBOOLS # ENABLE DAP
MASK GODAPGO
ADS DAPBOOLS
TC PHASCHNG
OCT 47012
DEC 50
EBANK= TDEC
2CADR SIVB3A
TC FIXDELAY # WAIT 500 MILLISECONDS
DEC 50
SIVB3A TC IBNKCALL
CADR SETRATE # HOLD VEHICLE ATTITUDE RATE
TC 1LMP+DT
DEC 90 # LEM/SIVB SEPARATE - COMMAND **
DEC 10 # WAIT 100 MILLISECONDS
TC IBNKCALL # DEADBAND SELECT - MIN
CADR SETMINDB
CS FLAGWRD1 # SETS SIVBGONE TO 1
MASK BIT4
ADS FLAGWRD1
TC PHASCHNG
OCT 47012
DEC 90
EBANK= TDEC
2CADR SIVB3B
## Page 717
TC FIXDELAY # WAIT 900 MILLISECONDS
DEC 90
SIVB3B TC 1LMP+DT
DEC 59 # LEM/SIVB SEPARATE ARM - OFF *
DEC 100 # WAIT 1 SECOND
TC 1LMP+DT
DEC 91 # RESET **
DEC 300 # WAIT 3 SECONDS
TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
CADR NOULLAGE
TC PHASCHNG
OCT 47012
DEC 500
EBANK= TDEC
2CADR SIVB4
TC FIXDELAY # WAIT 5 SECONDS
DEC 500
SIVB4 TC IBNKCALL # COMMAND +X TRANSLATION - ON (4 JET)
CADR ULLAGE
TC PHASCHNG
OCT 47012
DEC 500
EBANK= TDEC
2CADR SIVB5
TC FIXDELAY # WAIT 5 SECONDS
DEC 500
SIVB5 TC IBNKCALL # COMMAND +X TRANSLATION - OFF (4 JET)
CADR NOULLAGE
TC FLAG1DWN # KNOCK DOWN AVERAGEG FLAG
OCT 00001
TC IBNKCALL # HOLD LEM ATTITUDE
CADR STOPRATE
TC IBNKCALL # DEADBAND SELECT - MAX
CADR SETMAXDB
TC 2PHSCHNG
OCT 00002
OCT 05013
## Page 718
OCT 77777
TC MPENTRY # SCHEDULE DPS COLD SOAK
DEC 4 # TIMER NO. 4
DEC 8 # MISSION PHASE 8
ADRES MPDTO8
TCF TASKOVER
## Page 719
2SEC DEC 200
40SEC DEC 4000
MP07DELT 2DEC 20500
EBANK= TDEC
MIDAVE2C 2CADR MIDTOAVE
EBANK= TDEC
SVREXIT 2CADR SERVEXIT
JETS+X OCT 00252
AVRAGEG7 GENADR AVERAGEG
TIG-30 TC 2PHSCHNG
OCT 00004
OCT 00335 # 5.33 SPOT FOR PREREAD
CAF BIT1
TC WAITLIST
EBANK= DVTOTAL
2CADR PREREAD
TCF TASKOVER
