Pre-launch Review
TAGS FOR RELATIVE SETLOC
Scanned pages: 028-037
# Copyright: Public domain.# Filename: TAGS_FOR_RELATIVE_SETLOC.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: Jim Lawton <jim.lawton@gmail.com># Website: www.ibiblio.org/apollo.# Pages: 028-037# Mod history: 2009-05-16 JVL 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 28# TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
# COUNT BANKSUM
# MODULE 1 CONTAINS BANKS 0 THROUGH 5
BLOCK 02RADARFF EQUALSFFTAG1 EQUALSFFTAG2 EQUALSFFTAG3 EQUALSFFTAG4 EQUALSFFTAG7 EQUALSFFTAG8 EQUALSFFTAG9 EQUALSFFTAG10 EQUALSFFTAG11 EQUALSFFTAG12 EQUALSFFTAG13 EQUALS BNKSUM 02
BLOCK 03FFTAG5 EQUALSFFTAG6 EQUALS BNKSUM 03
BANK 00DLAYJOB EQUALS BNKSUM 00
BANK 01RESTART EQUALSLOADDAP1 EQUALS BNKSUM 01
BANK 04R02 EQUALSVERB37 EQUALSPINBALL4 EQUALSCONICS1 EQUALSKEYRUPT EQUALSR36LM EQUALSUPDATE2 EQUALSE/PROG EQUALSAOTMARK2 EQUALS BNKSUM 04
# Page 29 BANK 05FRANDRES EQUALSDOWNTELM EQUALSABORTS1 EQUALSEPHEM1 EQUALSASENT3 EQUALS BNKSUM 05
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
BANK 06IMUCOMP EQUALST4RUP EQUALSRCSMONT EQUALSMIDDGIM EQUALSEARTHLOC EQUALS BNKSUM 06
BANK 07AOTMARK1 EQUALSMODESW EQUALSASENT2 EQUALS BNKSUM 07
BANK 10RTBCODES EQUALSDISPLAYS EQUALSPHASETAB EQUALSFLESHLOC EQUALSSLCTMU EQUALS BNKSUM 10
BANK 11ORBITAL EQUALSF2DPS*11 EQUALSINTVEL EQUALS BNKSUM 11
BANK 12CONICS EQUALSORBITAL1 EQUALS# Page 30INTPRET2 EQUALS BNKSUM 12
BANK 13LATLONG EQUALSINTINIT EQUALSLEMGEOM EQUALSP76LOC EQUALSORBITAL2 EQUALSABTFLGS EQUALS BNKSUM 13
# Page 31# MODULE 3 CONTAINS BANKS 14 THROUGH 21
BANK 14P50S1 EQUALSSTARTAB EQUALSASENT4 EQUALS BNKSUM 14
BANK 15P50S EQUALSEPHEM EQUALS BNKSUM 15
BANK 16DAPS1 EQUALS BNKSUM 16
BANK 17DAPS2 EQUALSP40S3 EQUALS BNKSUM 17
BANK 20DAPS3 EQUALSLOADDAP EQUALSRODTRAP EQUALS BNKSUM 20
BANK 21DAPS4 EQUALSR10 EQUALSR11 EQUALS BNKSUM 21# Page 32
# MODULE 4 CONTAINS BANKS 22 THROUGH 27
BANK 22KALCMON1 EQUALSKALCMON2 EQUALSR30LOC EQUALSRENDEZ EQUALSSERV2 EQUALSLANDCNST EQUALS BNKSUM 22
BANK 23POWFLITE EQUALSPOWFLIT1 EQUALSINFLIGHT EQUALSAPOPERI EQUALSR61 EQUALSR62 EQUALSINTPRET1 EQUALSMEASINC EQUALSMEASINC1 EQUALSEXTVB1 EQUALSP12A EQUALSNORMLIZ EQUALSASENT7 EQUALS BNKSUM 23
BANK 24PLANTIN EQUALSP20S EQUALS BNKSUM 24
BANK 25P20S1 EQUALSP20S2 EQUALSRADARUPT EQUALSRRLEADIN EQUALSR29S1 EQUALSPLANTIN3 EQUALS BNKSUM 25
BANK 26# Page 33P20S3 EQUALSBAWLANGS EQUALSMANUVER EQUALSMANUVER1 EQUALSPLANTIN1 EQUALSPLANTIN2 EQUALS BNKSUM 26
BANK 27TOF-FF EQUALSTOF-FF1 EQUALSP40S1 EQUALSVECPT EQUALSASENT1 EQUALSSERV3 EQUALS BNKSUM 27
# Page 34# MODULE 5 CONTAINS BANKS 30 THROUGH 35
BANK 30LOWSUPER EQUALSP12 EQUALSASENT EQUALSFCDUW EQUALSFLOGSUB EQUALSVB67A EQUALSASENT5 EQUALS BNKSUM 30
BANK 31FTHROT EQUALSF2DPS*31 EQUALSVB67 EQUALS BNKSUM 31
BANK 32P20S4 EQUALSF2DPS*32 EQUALSABORTS EQUALSLRS22 EQUALSP66LOC EQUALSR47 EQUALSSERV EQUALS BNKSUM 32
BANK 33SERVICES EQUALSR29/SERV EQUALSASENT6 EQUALS BNKSUM 33
BANK 34STBLEORB EQUALSP30S1 EQUALSCSI/CDH1 EQUALSASCFILT EQUALSR12STUFF EQUALSSERV4 EQUALS BNKSUM 34
# Page 35 BANK 35CSI/CDH EQUALSP30S EQUALSGLM EQUALSP40S2 EQUALS BNKSUM 35
# Page 36# MODULE 6 CONTAINS BANKS 36 THROUGH 43
BANK 36P40S EQUALS BNKSUM 36
BANK 37P05P06 EQUALSIMU2 EQUALSIMU4 EQUALSR31 EQUALSIMUSUPER EQUALSSERV1 EQUALS BNKSUM 37
BANK 40PINBALL1 EQUALSSELFSUPR EQUALSPINSUPER EQUALSR31LOC EQUALS BNKSUM 40
BANK 41PINBALL2 EQUALS BNKSUM 41
BANK 42SBAND EQUALSPINBALL3 EQUALS BNKSUM 42
BANK 43EXTVERBS EQUALSSELFCHEC EQUALS BNKSUM 43
# Page 37
HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORYLO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORYHIDPHALF EQUALS UNITXLODPHALF EQUALS XUNITHIDP1/4 EQUALS DP1/4THLODP1/4 EQUALS D1/4 # 2DEC .25HIUNITX EQUALS UNITXHIUNITY EQUALS UNITYHIUNITZ EQUALS UNITZLOUNITX EQUALS XUNIT # 2DEC .5LOUNITY EQUALS YUNIT # 2DEC 0LOUNITZ EQUALS ZUNIT # 2DEC 0
DELRSPL EQUALS SPLRET # COL PGM, ALSO CALLED BY R30 IN LUMINARY.
# ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETERMINING INTEGRATION AREA ENTRIES.
ATOPTHIS EQUALS ATOPLEMATOPOTH EQUALS ATOPCSMOTHPREC EQUALS CSMPRECMOONTHIS EQUALS LMOONFLGMOONOTH EQUALS CMOONFLGMOVATHIS EQUALS MOVEALEMRMM = LODPMAXRME = LODPMAX1THISPREC EQUALS LEMPRECTHISAXIS = UNITZNB1NB2 EQUALS THISAXIS # FOR R31ERASID EQUALS BITS2-10 # DOWNLINK ERASABLE DUMP IDDELAYNUM EQUALS TWO