# Copyright: Public domain.
# Filename: P12.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 <hgutsche@xplornet.com>.
# Website: www.ibiblio.org/apollo.
# Pages: 838-842
# Mod history: 2009-05-23 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 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 001 of AGC program LMY99 by NASA 2021112-061
# 16:27 JULY 14, 1969

# Page 838
  BANK 24
  SETLOC P12
  BANK

  EBANK= DVCNTR
  COUNT* $$/P12

P12LM  TC PHASCHNG
  OCT 04024

  TC BANKCALL
  CADR R02BOTH  # CHECK THE STATUS OF THE IMU.

  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
  TS DVCNTR

  CA ZERO
  TS TRKMKCNT # SHOW THAT R29 DOWNLINK DATA ISN'T READY.
  CAF V06N33A
  TC BANKCALL # FLASH TIG
  CADR GOFLASH
  TCF GOTOPOOH
  TCF +2  # PROCEED
  TCF -5  # ENTER

  TC PHASCHNG
  OCT 04024

  TC INTPRET
  CALL   # INITIALZE WM AND /LAND/
   GUIDINIT
  SET CALL
   FLPI
   P12INIT
# Page 839
P12LMB  DLOAD
   (TGO)A  # SET TGO TO AN INITIAL NOMINAL VALUE.
  STODL TGO
   TIG
  STCALL TDEC1
   LEMPREC  # ROTATE THE STATE VECTORS TO THE
  VLOAD MXV  # IGNITION TIME.
   VATT
   REFSMMAT
  VSL1
  STOVL V1S  # COMPUTE V1S = VEL(TIG)*2(-7)M/CS.
   RATT
  MXV VSL6
   REFSMMAT
  STCALL R  # COMPUTE R = POS(TIG)*2(-24)M.
   MUNGRAV  # COMPUTE GDT1/2(TIG)*2(-7)M/CS.
  VLOAD UNIT
   R
  STCALL UNIT/R/  # COMPUTE UNIT/R/ FOR YCOMP.
   YCOMP
  SR DCOMP
   5D
  STODL XRANGE  # INITIALIZE XRANGE FOR NOUN 76.
   VINJNOM
  STODL ZDOTD
   RDOTDNOM
  STORE RDOTD
  EXIT

  TC PHASCHNG
  OCT 04024

NEWLOAD  CAF V06N76  # FLASH CROSS-RANGE, AND APOLUNE VALUES.
  TC BANKCALL
  CADR GOFLASH
  TCF GOTOPOOH
  TCF +2  # PROCEED
  TCF NEWLOAD  # ENTER NEW DATA.

  CAF P12ADRES
  TS WHICH

  TC PHASCHNG
  OCT 04024

  TC INTPRET
  DLOAD SL
   XRANGE
   5D
  DAD
# Page 840
   Y
  STOVL YCO
   UNIT/R/
  VXSC VAD
   49FPS
   V1S
  STORE V  # V(TIPOVER) = V(IGN) + 57FPS (UNIT/R/)
  DOT SL1
   UNIT/R/
  STOVL RDOT  # RDOT * 2(-7)
   UNIT/R/
  VXV UNIT
   QAXIS
  STORE ZAXIS1
  SETGO
   FLVR
   ASCENT
P12RET  DLOAD
   ATP  # ATP(2)*2(18)
  DSQ PDDL
   ATY  # ATY(2)*2(18)
  DSQ DAD
  BZE SQRT
   YAWDUN
  SL1 BDDV
   ATY
  ARCSIN
YAWDUN  STOVL YAW
   UNFC/2
  UNIT DOT
   UNIT/R/
  SL1 ARCCOS
  DCOMP
  STORE PITCH
  EXIT
  TC PHASCHNG
  OCT 04024

  TC DOWNFLAG
  ADRES FLPI

  INHINT
  TC IBNKCALL
  CADR PFLITEDB
  RELINT

  TC POSTJUMP
  CADR BURNBABY

P12INIT  DLOAD   # INITIALIZE ENGINE DATA.  USED FOR P12 AND
# Page 841
   (1/DV)A  # P71.
  STORE 1/DV3
  STORE 1/DV2
  STODL 1/DV1
   (AT)A
  STODL AT
   (TBUP)A
  STODL TBUP
   ATDECAY
  DCOMP SL
   11D
  STORE TTO
  SLOAD DCOMP
   APSVEX
  SR2
  STORE VE
  BOFF RVQ
   FLAP
   COMMINIT
COMMINIT DLOAD DAD  # INITIALIZE TARGET DATA.  USED BY P12, P70
   HINJECT  # AND P71 IF IT DOES NOT FOLLOW P70.
   /LAND/
  STODL RCO
   HI6ZEROS
  STORE TXO
  STORE YCO
  STORE RDOTD
  STOVL YDOTD
   VRECTCSM
  VXV MXV
   RRECTCSM
   REFSMMAT
  UNIT
  STORE QAXIS
  RVQ
P12ADRES REMADR P12TABLE

  SETLOC P12A
  BANK
  COUNT* $$/P12

GUIDINIT STQ SETPD
   TEMPR60
   0D
  VLOAD PUSH
   UNITZ
  RTB PUSH
   LOADTIME
  CALL
   RP-TO-R
# Page 842
  MXV VXSC
   REFSMMAT
   MOONRATE
  STOVL WM
   RLS
  ABVAL SL3
  STCALL /LAND/
   TEMPR60

49FPS  2DEC .149352 B-6 # EXPECTED RDOT AT TIPOVER
VINJNOM  2DEC 16.7924 B-7 # 5509.5 FPS(APO=30NM WITH RDOT=19.5FPS)
RDOTDNOM 2DEC .059436 B-7 # 19.5 FPS