# Copyright: Public domain.
# Filename: THE_LUNAR_LANDING.agc
# Purpose: Part of the source code for Luminary 1A build 099.
# It is part of the source code for the Lunar Module's (LM)
# Apollo Guidance Computer (AGC), for Apollo 11.
# Assembler: yaYUL
# Contact: Hartmuth Gutsche.
# Website: www.ibiblio.org/apollo.
# Pages: 785-792
# Mod history: 2009-05-20 HG Transcribed from 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 by Paul Fjeld, and arranged for by Deborah Douglas of
# the Museum. Many 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 [email protected]
# about getting access to the (much) higher-quality images which Paul
# actually created.
#
# Notations on the hardcopy document read, in part:
#
# Assemble revision 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14, 1969

# Page 785
BANK 32
SETLOC F2DPS*32
BANK

EBANK= E2DPS

# *************************************
# P63: THE LUNAR LANDING, BRAKING PHASE
# *************************************

COUNT* $$/P63

P63LM TC PHASCHNG
OCT 04024

TC BANKCALL # DO IMU STATUS CHECK ROUTINE R02
CADR R02BOTH

CAF P63ADRES # INITIALIZE WHICH FOR BURNBABY
TS WHICH

CAF DPSTHRSH # INITIALIZE DVMON
TS DVTHRUSH
CAF FOUR
TS DVCNTR

CS ONE # INITIALIZE WCHPHASE AND FLPASS0
TS WCHPHASE

CA ZERO
TS FLPASS0

CS BIT14
EXTEND
WAND CHAN12 # REMOVE TRACK-ENABLE DISCRETE.