Source Code
001182,000001: # Copyright: Public domain.
001183,000002: # Filename: TAGS_FOR_RELATIVE_SETLOC.agc
001184,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
001185,000004: # It is part of the source code for the Command Module's (CM)
001186,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
001187,000006: # Assembler: yaYUL
001188,000007: # Contact: Ron Burkey <info@sandroid.org>.
001189,000008: # Website: www.ibiblio.org/apollo.
001190,000009: # Mod history: 2009-05-05 RSB Adapted from the Colossus249/ file of the
001191,000010: # same name, using Comanche055 page images.
001192,000011: # 2009-05-20 RSB Corrected R32 -> R31.
001193,000012:
001194,000013: # This source code has been transcribed or otherwise adapted from digitized
001195,000014: # images of a hardcopy from the MIT Museum. The digitization was performed
001196,000015: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
001197,000016: # thanks to both. The images (with suitable reduction in storage size and
001198,000017: # consequent reduction in image quality as well) are available online at
001199,000018: # www.ibiblio.org/apollo. If for some reason you find that the images are
001200,000019: # illegible, contact me at info@sandroid.org about getting access to the
001201,000020: # (much) higher-quality images which Paul actually created.
001202,000021:
001203,000022: # Notations on the hardcopy document read, in part:
001204,000023:
001205,000024: # Assemble revision 055 of AGC program Comanche by NASA
001206,000025: # 2021113-051. 10:28 APR. 1, 1969
001207,000026:
001208,000027: # This AGC program shall also be referred to as
001209,000028: # Colossus 2A
001210,000029:
001211,000030: # Page 27
001212,000031: # TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS
001213,000032:
001214,000033: ??????? FIXED MEMORY 120000 - 167777
001215,000034: ??????? COUNT BANKSUM
001216,000035:
001217,000036: # MODULE 1 CONTAINS BANKS 0 THROUGH 5
001218,000037:
001219,000038: 4000 BLOCK 02
001220,000039: 4000 FFTAG1 EQUALS
001221,000040: 4000 FFTAG2 EQUALS
001222,000041: 4000 FFTAG3 EQUALS
001223,000042: 4000 FFTAG4 EQUALS
001224,000043: 4000 FFTAG7 EQUALS
001225,000044: 4000 FFTAG8 EQUALS
001226,000045: 4000 FFTAG9 EQUALS
001227,000046: 4000 FFTAG10 EQUALS
001228,000047: 4000 FFTAG12 EQUALS
001229,000048: 4000 P30SUBS EQUALS
001230,000049: 4000 STOPRAT EQUALS
001231,000050: 4000 P23S EQUALS
001232,000051: 4000 BNKSUM 02
001233,000052:
001234,000053: 6000 BLOCK 03
001235,000054: 6000 FFTAG5 EQUALS
001236,000055: 6000 FFTAG6 EQUALS
001237,000056: 6000 DAPS9 EQUALS
001238,000057: 6000 FFTAG13 EQUALS
001239,000058: 6000 BNKSUM 03
001240,000059:
001241,000060: 00,2000 BANK 00
001242,000061: 00,2000 DLAYJOB EQUALS
001243,000062: 00,2000 BNKSUM 00
001244,000063:
001245,000064: 01,2000 BANK 01
001246,000065: 01,2000 RESTART EQUALS
001247,000066: 01,2000 BNKSUM 01
001248,000067:
001249,000068: 04,2000 BANK 4
001250,000069: 04,2000 VERB37 EQUALS
001251,000070: 04,2000 CONICS1 EQUALS
001252,000071: 04,2000 PINBALL4 EQUALS
001253,000072: 04,2000 CSI/CDH1 EQUALS
001254,000073: 04,2000 INTPRET2 EQUALS
001255,000074: 04,2000 IMUCAL1 EQUALS
001256,000075:
001257,000076: # Page 28
001258,000077:
001259,000078: 04,2000 STBLEORB EQUALS
001260,000079: 04,2000 E/PROG EQUALS
001261,000080: 04,2000 MIDDGIM EQUALS
001262,000081:
001263,000082: 04,2000 BNKSUM 04
001264,000083:
001265,000084: 05,2000 BANK 5
001266,000085: 05,2000 FRANDRES EQUALS
001267,000086: 05,2000 DOWNTELM EQUALS
001268,000087: 05,2000 DAPMASS EQUALS
001269,000088: 05,2000 CDHTAG EQUALS
001270,000089: 05,2000 BNKSUM 05
001271,000090:
001272,000091: # MODULE 2 CONTAINS BANKS 6 THROUGH 13
001273,000092:
001274,000093: 06,2000 BANK 6
001275,000094: 06,2000 IMUCOMP EQUALS
001276,000095: 06,2000 T4RUP EQUALS
001277,000096: 06,2000 IMUCAL2 EQUALS
001278,000097: 06,2000 CSIPROG EQUALS
001279,000098: 06,2000 BNKSUM 06
001280,000099:
001281,000100: 07,2000 BANK 7
001282,000101: 07,2000 SXTMARKE EQUALS
001283,000102: 07,2000 R02 EQUALS
001284,000103: 07,2000 MODESW EQUALS
001285,000104: 07,2000 XANG EQUALS
001286,000105: 07,2000 KEYRUPT EQUALS
001287,000106: 07,2000 CSIPROG6 EQUALS
001288,000107: 07,2000 BNKSUM 07
001289,000108:
001290,000109: 10,2000 BANK 10
001291,000110: 10,2000 DISPLAYS EQUALS
001292,000111: 10,2000 PHASETAB EQUALS
001293,000112: 10,2000 COMGEOM2 EQUALS
001294,000113: 10,2000 SXTMARK1 EQUALS
001295,000114: 10,2000 P60S4 EQUALS
001296,000115: 10,2000 OPTDRV EQUALS
001297,000116: 10,2000 CSIPROG8 EQUALS
001298,000117: 10,2000 BNKSUM 10
001299,000118:
001300,000119: 11,2000 BANK 11
001301,000120: 11,2000 ORBITAL EQUALS
001302,000121: 11,2000 ORBITAL1 EQUALS # CONSTANTS
001303,000122:
001304,000123: # Page 29
001305,000124:
001306,000125: 11,2000 INTVEL EQUALS
001307,000126: 11,2000 S52/2 EQUALS
001308,000127: 11,2000 CSIPROG5 EQUALS
001309,000128: 11,2000 INTINIT1 EQUALS
001310,000129: 11,2000 BNKSUM 11
001311,000130:
001312,000131: 12,2000 BANK 12
001313,000132: 12,2000 CONICS EQUALS
001314,000133: 12,2000 CSIPROG2 EQUALS
001315,000134: 12,2000 CSI/CDH2 EQUALS
001316,000135: 12,2000 MODCHG2 EQUALS
001317,000136: 12,2000 BNKSUM 12
001318,000137:
001319,000138: 13,2000 BANK 13
001320,000139: 13,2000 P76LOC EQUALS
001321,000140: 13,2000 LATLONG EQUALS
001322,000141: 13,2000 INTINIT EQUALS
001323,000142: 13,2000 SR52/1 EQUALS
001324,000143: 13,2000 ORBITAL2 EQUALS
001325,000144: 13,2000 CDHTAGS EQUALS
001326,000145: 13,2000 E/PROG1 EQUALS
001327,000146: 13,2000 MODCHG3 EQUALS
001328,000147: 13,2000 BNKSUM 13
001329,000148:
001330,000149: # MODULE 3 CONTAINS BANKS 14 THROUGH 21
001331,000150:
001332,000151: 14,2000 BANK 14
001333,000152: 14,2000 STARTAB EQUALS
001334,000153: 14,2000 RT53 EQUALS
001335,000154: 14,2000 P50S1 EQUALS
001336,000155: 14,2000 MEASINC2 EQUALS
001337,000156: 14,2000 CSI/CDH3 EQUALS
001338,000157: 14,2000 BNKSUM 14
001339,000158:
001340,000159: 15,2000 BANK 15
001341,000160: 15,2000 P50S EQUALS
001342,000161: 15,2000 ETRYDAP EQUALS
001343,000162: 15,2000 S52/3 EQUALS
001344,000163: 15,2000 BNKSUM 15
001345,000164:
001346,000165: 16,2000 BANK 16
001347,000166: 16,2000 P40S1 EQUALS
001348,000167:
001349,000168: # Page 30
001350,000169:
001351,000170: 16,2000 DAPROLL EQUALS
001352,000171: 16,2000 P50S2 EQUALS
001353,000172: 16,2000 P23S1 EQUALS
001354,000173: 16,2000 RTE2 EQUALS
001355,000174: 16,2000 BNKSUM 16
001356,000175:
001357,000176: 17,2000 BANK 17
001358,000177: 17,2000 DAPS4 EQUALS
001359,000178: 17,2000 DAPS5 EQUALS
001360,000179: 17,2000 DAPS7 EQUALS
001361,000180: 17,2000 P50S3 EQUALS
001362,000181: 17,2000 BNKSUM 17
001363,000182:
001364,000183: 20,2000 BANK 20
001365,000184: 20,2000 DAPS6 EQUALS
001366,000185: 20,2000 DAPS1 EQUALS
001367,000186: 20,2000 DAPS2 EQUALS
001368,000187: 20,2000 MANUSTUF EQUALS
001369,000188: 20,2000 R36CM EQUALS
001370,000189: 20,2000 VAC5LOC EQUALS
001371,000190: 20,2000 BNKSUM 20
001372,000191:
001373,000192: 21,2000 BANK 21
001374,000193: 21,2000 DAPS3 EQUALS
001375,000194: 21,2000 MYSUBS EQUALS
001376,000195: 21,2000 KALCMON3 EQUALS
001377,000196: 21,2000 BNKSUM 21
001378,000197:
001379,000198: # MODULE 4 CONTAINS BANKS 22 THROUGH 27
001380,000199:
001381,000200: 22,2000 BANK 22
001382,000201: 22,2000 RTBCODES EQUALS
001383,000202: 22,2000 RTBCODE1 EQUALS
001384,000203: 22,2000 DAPS8 EQUALS
001385,000204: 22,2000 APOPERI EQUALS
001386,000205: 22,2000 P40S5 EQUALS
001387,000206: 22,2000 KALCMON2 EQUALS
001388,000207: 22,2000 KALCMON1 EQUALS
001389,000208: 22,2000 CSIPROG3 EQUALS
001390,000209: 22,2000 BNKSUM 22
001391,000210:
001392,000211: # Page 31
001393,000212:
001394,000213: 23,2000 BANK 23
001395,000214: 23,2000 P20S2 EQUALS
001396,000215: 23,2000 INFLIGHT EQUALS
001397,000216: 23,2000 COMGEOM1 EQUALS
001398,000217: 23,2000 POWFLITE EQUALS
001399,000218: 23,2000 POWFLIT1 EQUALS
001400,000219: 23,2000 RENDGUID EQUALS
001401,000220: 23,2000 POWFLIT2 EQUALS
001402,000221: 23,2000 R30LOC EQUALS
001403,000222: 23,2000 P11FOUR EQUALS
001404,000223: 23,2000 CSIPROG4 EQUALS
001405,000224: 23,2000 BNKSUM 23
001406,000225:
001407,000226: 24,2000 BANK 24
001408,000227: 24,2000 LOADDAP EQUALS
001409,000228: 24,2000 P40S EQUALS
001410,000229: 24,2000 CSIPROG7 EQUALS
001411,000230: 24,2000 BNKSUM 24
001412,000231:
001413,000232: 25,2000 BANK 25
001414,000233: 25,2000 REENTRY EQUALS
001415,000234: 25,2000 CDHTAG1 EQUALS
001416,000235: 25,2000 BNKSUM 25
001417,000236:
001418,000237: 26,2000 BANK 26
001419,000238: 26,2000 INTPRET1 EQUALS
001420,000239: 26,2000 REENTRY1 EQUALS
001421,000240: 26,2000 P60S EQUALS
001422,000241: 26,2000 P60S1 EQUALS
001423,000242: 26,2000 P60S2 EQUALS
001424,000243: 26,2000 P60S3 EQUALS
001425,000244: 26,2000 PLANTIN EQUALS # LUNAR ROT
001426,000245: 26,2000 EPHEM EQUALS
001427,000246: 26,2000 P05P06 EQUALS
001428,000247: 26,2000 26P50S EQUALS
001429,000248: 26,2000 BNKSUM 26
001430,000249:
001431,000250: 27,2000 BANK 27
001432,000251: 27,2000 TOF-FF EQUALS
001433,000252: 27,2000 TOF-FF1 EQUALS
001434,000253: 27,2000 MANUVER EQUALS
001435,000254: 27,2000 MANUVER1 EQUALS
001436,000255:
001437,000256: # Page 32
001438,000257:
001439,000258: 27,2000 VECPT EQUALS
001440,000259: 27,2000 UPDATE1 EQUALS
001441,000260: 27,2000 UPDATE2 EQUALS
001442,000261: 27,2000 R22S1 EQUALS
001443,000262: 27,2000 P60S5 EQUALS
001444,000263: 27,2000 P40S2 EQUALS
001445,000264: 27,2000 BNKSUM 27
001446,000265:
001447,000266: # MODULE 5 CONTAINS BANKS 30 THROUGH 35
001448,000267:
001449,000268: 30,2000 BANK 30
001450,000269: 30,2000 IMUSUPER EQUALS
001451,000270: 30,2000 LOWSUPER EQUALS
001452,000271: 30,2000 FCSTART EQUALS # STANDARD LOCATION FOR THIS. (FOR EXTV8)
001453,000272: 30,2000 LOPC EQUALS
001454,000273: 30,2000 P20S1 EQUALS
001455,000274: 30,2000 P20S6 EQUALS
001456,000275: 30,2000 P40S3 EQUALS
001457,000276: 30,2000 R35A EQUALS
001458,000277: 30,2000 BNKSUM 30
001459,000278:
001460,000279: 31,2000 BANK 31
001461,000280: 31,2000 R35 EQUALS
001462,000281: 31,2000 RT23 EQUALS
001463,000282: 31,2000 P30S1A EQUALS
001464,000283: 31,2000 R34 EQUALS
001465,000284: 31,2000 CDHTAG2 EQUALS
001466,000285: 31,2000 CSIPROG9 EQUALS
001467,000286: 31,2000 R31 EQUALS
001468,000287: 31,2000 P22S EQUALS
001469,000288: 31,2000 RTE3 EQUALS
001470,000289: 31,2000 BNKSUM 31
001471,000290:
001472,000291: 32,2000 BANK 32
001473,000292: 32,2000 MSGSCAN1 EQUALS
001474,000293: 32,2000 RTE EQUALS
001475,000294: 32,2000 DELRSPL1 EQUALS
001476,000295: 32,2000 IMUCAL3 EQUALS
001477,000296: 32,2000 BNKSUM 32
001478,000297:
001479,000298: 33,2000 BANK 33
001480,000299: 33,2000 TESTLEAD EQUALS
001481,000300:
001482,000301: # Page 33
001483,000302:
001484,000303: 33,2000 IMUCAL EQUALS
001485,000304: 33,2000 BNKSUM 33
001486,000305:
001487,000306: 34,2000 BANK 34
001488,000307: 34,2000 P11ONE EQUALS
001489,000308: 34,2000 P20S3 EQUALS
001490,000309: 34,2000 P20S4 EQUALS
001491,000310: 34,2000 RTECON EQUALS
001492,000311: 34,2000 BNKSUM 34
001493,000312:
001494,000313: 35,2000 BANK 35
001495,000314: 35,2000 RTECON1 EQUALS
001496,000315: 35,2000 CSI/CDH EQUALS
001497,000316: 35,2000 P30S1 EQUALS
001498,000317: 35,2000 P30S EQUALS
001499,000318: 35,2000 P17S1 EQUALS
001500,000319: 35,2000 MEASINC3 EQUALS
001501,000320: 35,2000 INTINIT2 EQUALS
001502,000321: 35,2000 BNKSUM 35
001503,000322:
001504,000323: # MODULE 6 CONTAINS BANKS 36 THROUGH 43
001505,000324:
001506,000325: 36,2000 BANK 36
001507,000326: 36,2000 MEASINC EQUALS
001508,000327: 36,2000 MEASINC1 EQUALS
001509,000328: 36,2000 P17S EQUALS
001510,000329: 36,2000 RTE1 EQUALS
001511,000330: 36,2000 S3435LOC EQUALS
001512,000331: 36,2000 BNKSUM 36
001513,000332:
001514,000333: 37,2000 BANK 37
001515,000334: 37,2000 P20S EQUALS
001516,000335: 37,2000 BODYATT EQUALS
001517,000336: 37,2000 RENDEZ EQUALS
001518,000337: 37,2000 SERVICES EQUALS
001519,000338: 37,2000 P11TWO EQUALS
001520,000339: 37,2000 CDHTAG3 EQUALS
001521,000340: 37,2000 BNKSUM 37
001522,000341:
001523,000342: 40,2000 BANK 40
001524,000343: 40,2000 PINSUPER EQUALS
001525,000344:
001526,000345: # Page 34
001527,000346:
001528,000347: 40,2000 SELFSUPR EQUALS
001529,000348: 40,2000 PINBALL1 EQUALS
001530,000349: 40,2000 R36CM1 EQUALS
001531,000350: 40,2000 BNKSUM 40
001532,000351:
001533,000352: 41,2000 BANK 41
001534,000353: 41,2000 PINBALL2 EQUALS
001535,000354: 41,2000 R36LM EQUALS
001536,000355: 41,2000 BNKSUM 41
001537,000356:
001538,000357: 42,2000 BANK 42
001539,000358: 42,2000 SBAND EQUALS
001540,000359: 42,2000 PINBALL3 EQUALS
001541,000360: 42,2000 EXTVBS EQUALS
001542,000361: 42,2000 R36LM1 EQUALS
001543,000362: 42,2000 BNKSUM 42
001544,000363:
001545,000364: 43,2000 BANK 43
001546,000365: 43,2000 SELFCHEC EQUALS
001547,000366: 43,2000 EXTVERBS EQUALS
001548,000367: 43,2000 BNKSUM 43
001549,000368:
001550,000369: 43,2000 26,3334 HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY
001551,000370: 43,2000 04,3565 LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY
001552,000371: 43,2000 26,3332 HIDPHALF EQUALS UNITX
001553,000372: 43,2000 04,3563 LODPHALF EQUALS XUNIT
001554,000373: 43,2000 26,3324 HIDP1/4 EQUALS DP1/4TH
001555,000374: 43,2000 04,3611 LODP1/4 EQUALS D1/4 # 2DEC .25
001556,000375: 43,2000 26,3332 HIUNITX EQUALS UNITX
001557,000376: 43,2000 26,3330 HIUNITY EQUALS UNITY
001558,000377: 43,2000 26,3326 HIUNITZ EQUALS UNITZ
001559,000378: 43,2000 04,3563 LOUNITX EQUALS XUNIT # 2DEC .5
001560,000379: 43,2000 04,3561 LOUNITY EQUALS YUNIT # 2DEC 0
001561,000380: 43,2000 04,3557 LOUNITZ EQUALS ZUNIT # 2DEC 0
001562,000381: 43,2000 11,3763 3/4LOWDP EQUALS 3/4 # 2DEC 3.0 B-2
001563,000382:
001564,000383: 43,2000 30,2000 SBANK= LOWSUPER
001565,000384:
001566,000385: # ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETERMINING(?) INTEGRATION AREA ENTRIES.
001567,000386:
001568,000387: 43,2000 13,3105 OTHPREC EQUALS LEMPREC
001569,000388: 43,2000 13,2760 ATOPOTH EQUALS ATOPLEM
001570,000389: 43,2000 13,2705 ATOPTHIS EQUALS ATOPCSM
001571,000390: 43,2000 0000173 MOONTHIS EQUALS CMOONFLG
001572,000391:
001573,000392: # Page 35
001574,000393:
001575,000394: 43,2000 0000174 MOONOTH EQUALS LMOONFLG
001576,000395: 43,2000 13,2720 MOVATHIS EQUALS MOVEACSM
001577,000396: 43,2000 31,2032 STATEST EQUALS V83CALL # * TEMPORARY
001578,000397: 43,2000 13,3071 THISPREC EQUALS CSMPREC
001579,000398: 43,2000 26,3332 THISAXIS = UNITX
001580,000399: 43,2000 5054 ERASID EQUALS LOW10 # DOWNLINK ERASABLE DUMP ID
001581,000400: 43,2000 6214 DELAYNUM EQUALS THREE
001582,000401:
001583,000402: # ********************************************************************************************************
001584,000403:
001585,000404: # THE FOLLOWING ECADRS ARE DEFINED TO FACILITATE EBANK SWITCHING. THEY ALSO MAKE IT EASIER FOR
001586,000405: # ERASABLE CONTROL TO REARRANGE ERASABLE MEMORY WITHOUT DISRUPTING THE PROGRAMS WHICH SET EBANKS.
001587,000406: # PRIOR TO ROPE RELEASE FIXED MEMORY CAN BE SAVED BY SETTING EACH EBXXXX =EBANKX (X=4,5,6,7). EBANKX OF COURSE
001588,000407: # WILL BE THE BANK WHERE THE ERASABLES REFERENCED IN EBXXXX WILL BE STORED.
001589,000408:
001590,000409: 07,2000 BANK 7
001591,000410: 07,2000 E7,1674 EBANK= MARKDOWN
001592,000411: 07,2000 03674 EBMARKDO ECADR MARKDOWN
001593,000412: 07,2001 E7,1725 EBANK= MRKBUF1
001594,000413: 07,2001 03725 EBMRKBUF ECADR MRKBUF1
001595,000414:
001596,000415: 24,2000 BANK 24
001597,000416: 24,2000 E7,1431 EBANK= DVCNTR
001598,000417: 24,2000 03431 EBDVCNTR ECADR DVCNTR
001599,000418: 24,2001 E7,1672 EBANK= P40TMP
001600,000419: 24,2001 03672 EBP40TMP ECADR P40TMP
001601,000420:
001602,000421: 34,2000 BANK 34
001603,000422: 34,2000 E7,1431 EBANK= DVCNTR
001604,000423: 34,2000 03431 EBDVCNT ECADR DVCNTR
001605,000424: 34,2001 E5,1426 EBANK= QPLACES
001606,000425: 34,2001 02426 EBQPLACE ECADR QPLACES
001607,000426:
001608,000427: 37,2000 BANK 37
001609,000428: 37,2000 1231 EBANK= RN1
001610,000429: 37,2000 01231 EBRN1 ECADR RN1
001611,000430:
001612,000431: # ******************************************************************************************************
001613,000432:
001614,000433: # Page 36
001615,000434:
001616,000435: # *** END OF MAIN PROGRAM ***
001617,000436:
End of include-file TAGS_FOR_RELATIVE_SETLOC.agc. Parent file is MAIN.agc