Pre-launch Review
TAGS FOR RELATIVE SETLOC
# Copyright: Public domain.# Filename: TAGS_FOR_RELATIVE_SETLOC.agc# Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.# It is part of the source code for the Command Module's (CM)# Apollo Guidance Computer (AGC), for Apollo 11.# Assembler: yaYUL# Contact: Ron Burkey <info@sandroid.org>.# Website: www.ibiblio.org/apollo.# Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the# same name, using Comanche055 page images.# 2009-05-20 RSB Corrected R32 -> R31.## 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 055 of AGC program Comanche by NASA# 2021113-051. 10:28 APR. 1, 1969## This AGC program shall also be referred to as# Colossus 2A
# Page 27# TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
FIXED MEMORY 120000 - 167777 COUNT BANKSUM
# MODULE 1 CONTAINS BANKS 0 THROUGH 5
BLOCK 02FFTAG1 EQUALSFFTAG2 EQUALSFFTAG3 EQUALSFFTAG4 EQUALSFFTAG7 EQUALSFFTAG8 EQUALSFFTAG9 EQUALSFFTAG10 EQUALSFFTAG12 EQUALSP30SUBS EQUALSSTOPRAT EQUALSP23S EQUALS BNKSUM 02
BLOCK 03FFTAG5 EQUALSFFTAG6 EQUALSDAPS9 EQUALSFFTAG13 EQUALS BNKSUM 03
BANK 00DLAYJOB EQUALS BNKSUM 00
BANK 01RESTART EQUALS BNKSUM 01
BANK 4VERB37 EQUALSCONICS1 EQUALSPINBALL4 EQUALSCSI/CDH1 EQUALSINTPRET2 EQUALSIMUCAL1 EQUALS
# Page 28
STBLEORB EQUALSE/PROG EQUALSMIDDGIM EQUALS BNKSUM 04
BANK 5FRANDRES EQUALSDOWNTELM EQUALSDAPMASS EQUALSCDHTAG EQUALS BNKSUM 05
# MODULE 2 CONTAINS BANKS 6 THROUGH 13
BANK 6IMUCOMP EQUALST4RUP EQUALSIMUCAL2 EQUALSCSIPROG EQUALS BNKSUM 06
BANK 7SXTMARKE EQUALSR02 EQUALSMODESW EQUALSXANG EQUALSKEYRUPT EQUALSCSIPROG6 EQUALS BNKSUM 07
BANK 10DISPLAYS EQUALSPHASETAB EQUALSCOMGEOM2 EQUALSSXTMARK1 EQUALSP60S4 EQUALSOPTDRV EQUALSCSIPROG8 EQUALS BNKSUM 10
BANK 11ORBITAL EQUALSORBITAL1 EQUALS # CONSTANTS
# Page 29
INTVEL EQUALSS52/2 EQUALSCSIPROG5 EQUALSINTINIT1 EQUALS BNKSUM 11
BANK 12CONICS EQUALSCSIPROG2 EQUALSCSI/CDH2 EQUALSMODCHG2 EQUALS BNKSUM 12
BANK 13P76LOC EQUALSLATLONG EQUALSINTINIT EQUALSSR52/1 EQUALSORBITAL2 EQUALSCDHTAGS EQUALSE/PROG1 EQUALSMODCHG3 EQUALS BNKSUM 13
# SPACER
# MODULE 3 CONTAINS BANKS 14 THROUGH 21
BANK 14STARTAB EQUALSRT53 EQUALSP50S1 EQUALSMEASINC2 EQUALSCSI/CDH3 EQUALS BNKSUM 14
BANK 15P50S EQUALSETRYDAP EQUALSS52/3 EQUALS BNKSUM 15
BANK 16P40S1 EQUALS
# Page 30
DAPROLL EQUALSP50S2 EQUALSP23S1 EQUALSRTE2 EQUALS BNKSUM 16
BANK 17DAPS4 EQUALSDAPS5 EQUALSDAPS7 EQUALSP50S3 EQUALS BNKSUM 17
BANK 20DAPS6 EQUALSDAPS1 EQUALSDAPS2 EQUALSMANUSTUF EQUALSR36CM EQUALSVAC5LOC EQUALS BNKSUM 20
BANK 21DAPS3 EQUALSMYSUBS EQUALSKALCMON3 EQUALS BNKSUM 21
# MODULE 4 CONTAINS BANKS 22 THROUGH 27
BANK 22RTBCODES EQUALSRTBCODE1 EQUALSDAPS8 EQUALSAPOPERI EQUALSP40S5 EQUALSKALCMON2 EQUALSKALCMON1 EQUALSCSIPROG3 EQUALS BNKSUM 22
# Page 31
BANK 23P20S2 EQUALSINFLIGHT EQUALSCOMGEOM1 EQUALSPOWFLITE EQUALSPOWFLIT1 EQUALSRENDGUID EQUALSPOWFLIT2 EQUALSR30LOC EQUALSP11FOUR EQUALSCSIPROG4 EQUALS BNKSUM 23
BANK 24LOADDAP EQUALSP40S EQUALSCSIPROG7 EQUALS BNKSUM 24
BANK 25REENTRY EQUALSCDHTAG1 EQUALS BNKSUM 25
BANK 26INTPRET1 EQUALSREENTRY1 EQUALSP60S EQUALSP60S1 EQUALSP60S2 EQUALSP60S3 EQUALSPLANTIN EQUALS # LUNAR ROTEPHEM EQUALSP05P06 EQUALS26P50S EQUALS BNKSUM 26
BANK 27TOF-FF EQUALSTOF-FF1 EQUALSMANUVER EQUALSMANUVER1 EQUALS
# Page 32
VECPT EQUALSUPDATE1 EQUALSUPDATE2 EQUALSR22S1 EQUALSP60S5 EQUALSP40S2 EQUALS BNKSUM 27
# MODULE 5 CONTAINS BANKS 30 THROUGH 35
BANK 30IMUSUPER EQUALSLOWSUPER EQUALSFCSTART EQUALS # STANDARD LOCATION FOR THIS. (FOR EXTV8)LOPC EQUALSP20S1 EQUALSP20S6 EQUALSP40S3 EQUALSR35A EQUALS BNKSUM 30
BANK 31R35 EQUALSRT23 EQUALSP30S1A EQUALSR34 EQUALSCDHTAG2 EQUALSCSIPROG9 EQUALSR31 EQUALSP22S EQUALSRTE3 EQUALS BNKSUM 31
BANK 32MSGSCAN1 EQUALSRTE EQUALSDELRSPL1 EQUALSIMUCAL3 EQUALS BNKSUM 32
BANK 33TESTLEAD EQUALS
# Page 33
IMUCAL EQUALS BNKSUM 33
BANK 34P11ONE EQUALSP20S3 EQUALSP20S4 EQUALSRTECON EQUALS BNKSUM 34
BANK 35RTECON1 EQUALSCSI/CDH EQUALSP30S1 EQUALSP30S EQUALSP17S1 EQUALSMEASINC3 EQUALSINTINIT2 EQUALS BNKSUM 35
# MODULE 6 CONTAINS BANKS 36 THROUGH 43
BANK 36MEASINC EQUALSMEASINC1 EQUALSP17S EQUALSRTE1 EQUALSS3435LOC EQUALS BNKSUM 36
BANK 37P20S EQUALSBODYATT EQUALSRENDEZ EQUALSSERVICES EQUALSP11TWO EQUALSCDHTAG3 EQUALS BNKSUM 37
BANK 40PINSUPER EQUALS
# Page 34
SELFSUPR EQUALSPINBALL1 EQUALSR36CM1 EQUALS BNKSUM 40
BANK 41PINBALL2 EQUALSR36LM EQUALS BNKSUM 41
BANK 42SBAND EQUALSPINBALL3 EQUALSEXTVBS EQUALSR36LM1 EQUALS BNKSUM 42
BANK 43SELFCHEC EQUALSEXTVERBS EQUALS BNKSUM 43
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 03/4LOWDP EQUALS 3/4 # 2DEC 3.0 B-2 SBANK= LOWSUPER
# ROPE SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETVRUZVING INTEGRATION AREA ENTRIES
OTHPREC EQUALS LEMPRECATOPOTH EQUALS ATOPLEMATOPTHIS EQUALS ATOPCSMMOONTHIS EQUALS CMOONFLG
# Page 35
MOONOTH EQUALS LMOONFLGMOVATHIS EQUALS MOVEACSMSTATEST EQUALS V83CALL # * TEMPORARYTHISPREC EQUALS CSMPRECTHISAXIS = UNITXERASID EQUALS LOW10 # DOWNLINK ERASABLE DUMP IDDELAYNUM EQUALS THREE
#***************************************************************************************************************
# THE FOLLOWING ECADRS ARE DEFINED TO FACILITATE EBANK SWITCHING. THEY ALSO MAKE IT EASIER FOR# ERASABLE CONTROL TO REARRANGE ERASABLE MEMORY WITHOUT DISRUPTING THE PROGRAMS WHICH SET EBANKS.# PRIOR TO ROPE RELEASE FIXED MEMORY CAN BE SAVED BY SETTING EACH EBXXXX =EBANKX (X=4,5,6,7).EBANKX OF COURSE# WILL BE THE BANK WHERE THE ERASABLES REFERENCED IN EBXXXX WILL BE STORED.
BANK 7 EBANK= MARKDOWNEBMARKDO ECADR MARKDOWN EBANK= MRKBUF1EBMRKBUF ECADR MRKBUF1
BANK 24 EBANK= DVCNTREBDVCNTR ECADR DVCNTR EBANK= P40TMPEBP40TMP ECADR P40TMP
BANK 34 EBANK= DVCNTREBDVCNT ECADR DVCNTR EBANK= QPLACESEBQPLACE ECADR QPLACES
BANK 37 EBANK= RN1EBRN1 ECADR RN1
#***************************************************************************************************************
# Page 36
# *** END OF MAIN PROGRAM ***