# 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 # 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 02 RADARFF EQUALS FFTAG1 EQUALS FFTAG2 EQUALS FFTAG3 EQUALS FFTAG4 EQUALS FFTAG7 EQUALS FFTAG8 EQUALS FFTAG9 EQUALS FFTAG10 EQUALS FFTAG11 EQUALS FFTAG12 EQUALS FFTAG13 EQUALS BNKSUM 02 BLOCK 03 FFTAG5 EQUALS FFTAG6 EQUALS BNKSUM 03 BANK 00 DLAYJOB EQUALS BNKSUM 00 BANK 01 RESTART EQUALS LOADDAP1 EQUALS BNKSUM 01 BANK 04 R02 EQUALS VERB37 EQUALS PINBALL4 EQUALS CONICS1 EQUALS KEYRUPT EQUALS R36LM EQUALS UPDATE2 EQUALS E/PROG EQUALS AOTMARK2 EQUALS BNKSUM 04 # Page 29 BANK 05 FRANDRES EQUALS DOWNTELM EQUALS ABORTS1 EQUALS EPHEM1 EQUALS ASENT3 EQUALS BNKSUM 05 # MODULE 2 CONTAINS BANKS 6 THROUGH 13 BANK 06 IMUCOMP EQUALS T4RUP EQUALS RCSMONT EQUALS MIDDGIM EQUALS EARTHLOC EQUALS BNKSUM 06 BANK 07 AOTMARK1 EQUALS MODESW EQUALS ASENT2 EQUALS BNKSUM 07 BANK 10 RTBCODES EQUALS DISPLAYS EQUALS PHASETAB EQUALS FLESHLOC EQUALS SLCTMU EQUALS BNKSUM 10 BANK 11 ORBITAL EQUALS F2DPS*11 EQUALS INTVEL EQUALS BNKSUM 11 BANK 12 CONICS EQUALS ORBITAL1 EQUALS # Page 30 INTPRET2 EQUALS BNKSUM 12 BANK 13 LATLONG EQUALS INTINIT EQUALS LEMGEOM EQUALS P76LOC EQUALS ORBITAL2 EQUALS ABTFLGS EQUALS BNKSUM 13 # Page 31 # MODULE 3 CONTAINS BANKS 14 THROUGH 21 BANK 14 P50S1 EQUALS STARTAB EQUALS ASENT4 EQUALS BNKSUM 14 BANK 15 P50S EQUALS EPHEM EQUALS BNKSUM 15 BANK 16 DAPS1 EQUALS BNKSUM 16 BANK 17 DAPS2 EQUALS P40S3 EQUALS BNKSUM 17 BANK 20 DAPS3 EQUALS LOADDAP EQUALS RODTRAP EQUALS BNKSUM 20 BANK 21 DAPS4 EQUALS R10 EQUALS R11 EQUALS BNKSUM 21 # Page 32 # MODULE 4 CONTAINS BANKS 22 THROUGH 27 BANK 22 KALCMON1 EQUALS KALCMON2 EQUALS R30LOC EQUALS RENDEZ EQUALS SERV2 EQUALS LANDCNST EQUALS BNKSUM 22 BANK 23 POWFLITE EQUALS POWFLIT1 EQUALS INFLIGHT EQUALS APOPERI EQUALS R61 EQUALS R62 EQUALS INTPRET1 EQUALS MEASINC EQUALS MEASINC1 EQUALS EXTVB1 EQUALS P12A EQUALS NORMLIZ EQUALS ASENT7 EQUALS BNKSUM 23 BANK 24 PLANTIN EQUALS P20S EQUALS BNKSUM 24 BANK 25 P20S1 EQUALS P20S2 EQUALS RADARUPT EQUALS RRLEADIN EQUALS R29S1 EQUALS PLANTIN3 EQUALS BNKSUM 25 BANK 26 # Page 33 P20S3 EQUALS BAWLANGS EQUALS MANUVER EQUALS MANUVER1 EQUALS PLANTIN1 EQUALS PLANTIN2 EQUALS BNKSUM 26 BANK 27 TOF-FF EQUALS TOF-FF1 EQUALS P40S1 EQUALS VECPT EQUALS ASENT1 EQUALS SERV3 EQUALS BNKSUM 27 # Page 34 # MODULE 5 CONTAINS BANKS 30 THROUGH 35 BANK 30 LOWSUPER EQUALS P12 EQUALS ASENT EQUALS FCDUW EQUALS FLOGSUB EQUALS VB67A EQUALS ASENT5 EQUALS BNKSUM 30 BANK 31 FTHROT EQUALS F2DPS*31 EQUALS VB67 EQUALS BNKSUM 31 BANK 32 P20S4 EQUALS F2DPS*32 EQUALS ABORTS EQUALS LRS22 EQUALS P66LOC EQUALS R47 EQUALS SERV EQUALS BNKSUM 32 BANK 33 SERVICES EQUALS R29/SERV EQUALS ASENT6 EQUALS BNKSUM 33 BANK 34 STBLEORB EQUALS P30S1 EQUALS CSI/CDH1 EQUALS ASCFILT EQUALS R12STUFF EQUALS SERV4 EQUALS BNKSUM 34 # Page 35 BANK 35 CSI/CDH EQUALS P30S EQUALS GLM EQUALS P40S2 EQUALS BNKSUM 35 # Page 36 # MODULE 6 CONTAINS BANKS 36 THROUGH 43 BANK 36 P40S EQUALS BNKSUM 36 BANK 37 P05P06 EQUALS IMU2 EQUALS IMU4 EQUALS R31 EQUALS IMUSUPER EQUALS SERV1 EQUALS BNKSUM 37 BANK 40 PINBALL1 EQUALS SELFSUPR EQUALS PINSUPER EQUALS R31LOC EQUALS BNKSUM 40 BANK 41 PINBALL2 EQUALS BNKSUM 41 BANK 42 SBAND EQUALS PINBALL3 EQUALS BNKSUM 42 BANK 43 EXTVERBS EQUALS SELFCHEC EQUALS BNKSUM 43 # Page 37 HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY HIDPHALF EQUALS UNITX LODPHALF EQUALS XUNIT HIDP1/4 EQUALS DP1/4TH LODP1/4 EQUALS D1/4 # 2DEC .25 HIUNITX EQUALS UNITX HIUNITY EQUALS UNITY HIUNITZ EQUALS UNITZ LOUNITX EQUALS XUNIT # 2DEC .5 LOUNITY EQUALS YUNIT # 2DEC 0 LOUNITZ 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 ATOPLEM ATOPOTH EQUALS ATOPCSM OTHPREC EQUALS CSMPREC MOONTHIS EQUALS LMOONFLG MOONOTH EQUALS CMOONFLG MOVATHIS EQUALS MOVEALEM RMM = LODPMAX RME = LODPMAX1 THISPREC EQUALS LEMPREC THISAXIS = UNITZ NB1NB2 EQUALS THISAXIS # FOR R31 ERASID EQUALS BITS2-10 # DOWNLINK ERASABLE DUMP ID DELAYNUM EQUALS TWO