# 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 . # 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 02 FFTAG1 EQUALS FFTAG2 EQUALS FFTAG3 EQUALS FFTAG4 EQUALS FFTAG7 EQUALS FFTAG8 EQUALS FFTAG9 EQUALS FFTAG10 EQUALS FFTAG12 EQUALS P30SUBS EQUALS STOPRAT EQUALS P23S EQUALS BNKSUM 02 BLOCK 03 FFTAG5 EQUALS FFTAG6 EQUALS DAPS9 EQUALS FFTAG13 EQUALS BNKSUM 03 BANK 00 DLAYJOB EQUALS BNKSUM 00 BANK 01 RESTART EQUALS BNKSUM 01 BANK 4 VERB37 EQUALS CONICS1 EQUALS PINBALL4 EQUALS CSI/CDH1 EQUALS INTPRET2 EQUALS IMUCAL1 EQUALS # Page 28 STBLEORB EQUALS E/PROG EQUALS MIDDGIM EQUALS BNKSUM 04 BANK 5 FRANDRES EQUALS DOWNTELM EQUALS DAPMASS EQUALS CDHTAG EQUALS BNKSUM 05 # MODULE 2 CONTAINS BANKS 6 THROUGH 13 BANK 6 IMUCOMP EQUALS T4RUP EQUALS IMUCAL2 EQUALS CSIPROG EQUALS BNKSUM 06 BANK 7 SXTMARKE EQUALS R02 EQUALS MODESW EQUALS XANG EQUALS KEYRUPT EQUALS CSIPROG6 EQUALS BNKSUM 07 BANK 10 DISPLAYS EQUALS PHASETAB EQUALS COMGEOM2 EQUALS SXTMARK1 EQUALS P60S4 EQUALS OPTDRV EQUALS CSIPROG8 EQUALS BNKSUM 10 BANK 11 ORBITAL EQUALS ORBITAL1 EQUALS # CONSTANTS # Page 29 INTVEL EQUALS S52/2 EQUALS CSIPROG5 EQUALS INTINIT1 EQUALS BNKSUM 11 BANK 12 CONICS EQUALS CSIPROG2 EQUALS CSI/CDH2 EQUALS MODCHG2 EQUALS BNKSUM 12 BANK 13 P76LOC EQUALS LATLONG EQUALS INTINIT EQUALS SR52/1 EQUALS ORBITAL2 EQUALS CDHTAGS EQUALS E/PROG1 EQUALS MODCHG3 EQUALS BNKSUM 13 # SPACER # MODULE 3 CONTAINS BANKS 14 THROUGH 21 BANK 14 STARTAB EQUALS RT53 EQUALS P50S1 EQUALS MEASINC2 EQUALS CSI/CDH3 EQUALS BNKSUM 14 BANK 15 P50S EQUALS ETRYDAP EQUALS S52/3 EQUALS BNKSUM 15 BANK 16 P40S1 EQUALS # Page 30 DAPROLL EQUALS P50S2 EQUALS P23S1 EQUALS RTE2 EQUALS BNKSUM 16 BANK 17 DAPS4 EQUALS DAPS5 EQUALS DAPS7 EQUALS P50S3 EQUALS BNKSUM 17 BANK 20 DAPS6 EQUALS DAPS1 EQUALS DAPS2 EQUALS MANUSTUF EQUALS R36CM EQUALS VAC5LOC EQUALS BNKSUM 20 BANK 21 DAPS3 EQUALS MYSUBS EQUALS KALCMON3 EQUALS BNKSUM 21 # MODULE 4 CONTAINS BANKS 22 THROUGH 27 BANK 22 RTBCODES EQUALS RTBCODE1 EQUALS DAPS8 EQUALS APOPERI EQUALS P40S5 EQUALS KALCMON2 EQUALS KALCMON1 EQUALS CSIPROG3 EQUALS BNKSUM 22 # Page 31 BANK 23 P20S2 EQUALS INFLIGHT EQUALS COMGEOM1 EQUALS POWFLITE EQUALS POWFLIT1 EQUALS RENDGUID EQUALS POWFLIT2 EQUALS R30LOC EQUALS P11FOUR EQUALS CSIPROG4 EQUALS BNKSUM 23 BANK 24 LOADDAP EQUALS P40S EQUALS CSIPROG7 EQUALS BNKSUM 24 BANK 25 REENTRY EQUALS CDHTAG1 EQUALS BNKSUM 25 BANK 26 INTPRET1 EQUALS REENTRY1 EQUALS P60S EQUALS P60S1 EQUALS P60S2 EQUALS P60S3 EQUALS PLANTIN EQUALS # LUNAR ROT EPHEM EQUALS P05P06 EQUALS 26P50S EQUALS BNKSUM 26 BANK 27 TOF-FF EQUALS TOF-FF1 EQUALS MANUVER EQUALS MANUVER1 EQUALS # Page 32 VECPT EQUALS UPDATE1 EQUALS UPDATE2 EQUALS R22S1 EQUALS P60S5 EQUALS P40S2 EQUALS BNKSUM 27 # MODULE 5 CONTAINS BANKS 30 THROUGH 35 BANK 30 IMUSUPER EQUALS LOWSUPER EQUALS FCSTART EQUALS # STANDARD LOCATION FOR THIS. (FOR EXTV8) LOPC EQUALS P20S1 EQUALS P20S6 EQUALS P40S3 EQUALS R35A EQUALS BNKSUM 30 BANK 31 R35 EQUALS RT23 EQUALS P30S1A EQUALS R34 EQUALS CDHTAG2 EQUALS CSIPROG9 EQUALS R31 EQUALS P22S EQUALS RTE3 EQUALS BNKSUM 31 BANK 32 MSGSCAN1 EQUALS RTE EQUALS DELRSPL1 EQUALS IMUCAL3 EQUALS BNKSUM 32 BANK 33 TESTLEAD EQUALS # Page 33 IMUCAL EQUALS BNKSUM 33 BANK 34 P11ONE EQUALS P20S3 EQUALS P20S4 EQUALS RTECON EQUALS BNKSUM 34 BANK 35 RTECON1 EQUALS CSI/CDH EQUALS P30S1 EQUALS P30S EQUALS P17S1 EQUALS MEASINC3 EQUALS INTINIT2 EQUALS BNKSUM 35 # MODULE 6 CONTAINS BANKS 36 THROUGH 43 BANK 36 MEASINC EQUALS MEASINC1 EQUALS P17S EQUALS RTE1 EQUALS S3435LOC EQUALS BNKSUM 36 BANK 37 P20S EQUALS BODYATT EQUALS RENDEZ EQUALS SERVICES EQUALS P11TWO EQUALS CDHTAG3 EQUALS BNKSUM 37 BANK 40 PINSUPER EQUALS # Page 34 SELFSUPR EQUALS PINBALL1 EQUALS R36CM1 EQUALS BNKSUM 40 BANK 41 PINBALL2 EQUALS R36LM EQUALS BNKSUM 41 BANK 42 SBAND EQUALS PINBALL3 EQUALS EXTVBS EQUALS R36LM1 EQUALS BNKSUM 42 BANK 43 SELFCHEC EQUALS EXTVERBS EQUALS BNKSUM 43 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 3/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 LEMPREC ATOPOTH EQUALS ATOPLEM ATOPTHIS EQUALS ATOPCSM MOONTHIS EQUALS CMOONFLG # Page 35 MOONOTH EQUALS LMOONFLG MOVATHIS EQUALS MOVEACSM STATEST EQUALS V83CALL # * TEMPORARY THISPREC EQUALS CSMPREC THISAXIS = UNITX ERASID EQUALS LOW10 # DOWNLINK ERASABLE DUMP ID DELAYNUM 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= MARKDOWN EBMARKDO ECADR MARKDOWN EBANK= MRKBUF1 EBMRKBUF ECADR MRKBUF1 BANK 24 EBANK= DVCNTR EBDVCNTR ECADR DVCNTR EBANK= P40TMP EBP40TMP ECADR P40TMP BANK 34 EBANK= DVCNTR EBDVCNT ECADR DVCNTR EBANK= QPLACES EBQPLACE ECADR QPLACES BANK 37 EBANK= RN1 EBRN1 ECADR RN1 #*************************************************************************************************************** # Page 36 # *** END OF MAIN PROGRAM ***