Pre-launch Review
P12
Scanned pages: 838-842
# 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 839P12LMB 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 ASCENTP12RET DLOAD ATP # ATP(2)*2(18) DSQ PDDL ATY # ATY(2)*2(18) DSQ DAD BZE SQRT YAWDUN SL1 BDDV ATY ARCSINYAWDUN 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 COMMINITCOMMINIT 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 RVQP12ADRES 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 TIPOVERVINJNOM 2DEC 16.7924 B-7 # 5509.5 FPS(APO=30NM WITH RDOT=19.5FPS)RDOTDNOM 2DEC .059436 B-7 # 19.5 FPS