Source Code

001069,000001: # Copyright: Public domain. 001070,000002: # Filename: TAGS_FOR_RELATIVE_SETLOC.agc 001071,000003: # Purpose: Part of the source code for Colossus, build 249. 001072,000004: # It is part of the source code for the Command Module's (CM) 001073,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 001074,000006: # Assembler: yaYUL 001075,000007: # Reference: pp. 27-36 of 1701.pdf. 001076,000008: # Contact: Ron Burkey <info@sandroid.org>. 001077,000009: # Website: www.ibiblio.org/apollo. 001078,000010: # Mod history: 08/02/04 RSB Adapted from similar Luminary 131 file. 001079,000011: # 05/06/09 RSB Made a few comment corrections I noticed 001080,000012: # were needed when adapting for Comanche 055. 001081,000013: 001082,000014: # The contents of the "Colossus249" files, in general, are transcribed 001083,000015: # from a scanned document obtained from MIT's website, 001084,000016: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 001085,000017: # document read, in part: 001086,000018: 001087,000019: # Assemble revision 249 of AGC program Colossus by NASA 001088,000020: # 2021111-041. October 28, 1968. 001089,000021: 001090,000022: # This AGC program shall also be referred to as 001091,000023: # Colossus 1A 001092,000024: 001093,000025: # Prepared by 001094,000026: # Massachusetts Institute of Technology 001095,000027: # 75 Cambridge Parkway 001096,000028: # Cambridge, Massachusetts 001097,000029: # under NASA contract NAS 9-4065. 001098,000030: 001099,000031: # Refer directly to the online document mentioned above for further information. 001100,000032: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 001101,000033: 001102,000034: # In some cases, where the source code for Luminary 131 overlaps that of 001103,000035: # Colossus 249, this code is instead copied from the corresponding Luminary 131 001104,000036: # source file, and then is proofed to incorporate any changes. 001105,000037: 001106,000038: # Page 27 001107,000039: # TAGS FOR RELATIVE SETLOC AND BLANK BANK CARDS 001108,000040: 001109,000041: ??????? FIXED MEMORY 120000 - 167777 001110,000042: ??????? COUNT BANKSUM 001111,000043: 001112,000044: # MODULE 1 CONTAINS BANKS 0 THROUGH 5 001113,000045: 001114,000046: 4000 BLOCK 02 001115,000047: 4000 FFTAG1 EQUALS 001116,000048: 4000 FFTAG2 EQUALS 001117,000049: 4000 FFTAG3 EQUALS 001118,000050: 4000 FFTAG4 EQUALS 001119,000051: 4000 FFTAG7 EQUALS 001120,000052: 4000 FFTAG8 EQUALS 001121,000053: 4000 FFTAG9 EQUALS 001122,000054: 4000 FFTAG10 EQUALS 001123,000055: 4000 FFTAG12 EQUALS 001124,000056: 4000 BNKSUM 02 001125,000057: 001126,000058: 6000 BLOCK 03 001127,000059: 6000 FFTAG5 EQUALS 001128,000060: 6000 FFTAG6 EQUALS 001129,000061: 6000 BNKSUM 03 001130,000062: 001131,000063: 00,2000 BANK 00 001132,000064: 00,2000 DLAYJOB EQUALS 001133,000065: 00,2000 BNKSUM 00 001134,000066: 001135,000067: 01,2000 BANK 01 001136,000068: 01,2000 RESTART EQUALS 001137,000069: 01,2000 BNKSUM 01 001138,000070: 001139,000071: 04,2000 BANK 04 001140,000072: 04,2000 VERB37 EQUALS 001141,000073: 04,2000 CONICS1 EQUALS 001142,000074: 04,2000 PINBALL4 EQUALS 001143,000075: 04,2000 R36LM EQUALS 001144,000076: 04,2000 INTPRET2 EQUALS 001145,000077: 04,2000 IMUCAL1 EQUALS 001146,000078: 04,2000 STBLEORB EQUALS 001147,000079: 04,2000 E/PROG EQUALS 001148,000080: 04,2000 MIDDGIM EQUALS 001149,000081: 001150,000082: 04,2000 BNKSUM 04 001151,000083: 001152,000084: # Page 28 001153,000085: 001154,000086: 05,2000 BANK 05 001155,000087: 05,2000 FRANDRES EQUALS 001156,000088: 05,2000 DOWNTELM EQUALS 001157,000089: 05,2000 DAPMASS EQUALS 001158,000090: 05,2000 BNKSUM 05 001159,000091: 001160,000092: # MODULE 2 CONTAINS BANKS 6 THROUGH 13 001161,000093: 001162,000094: 06,2000 BANK 06 001163,000095: 06,2000 IMUCOMP EQUALS 001164,000096: 06,2000 T4RUP EQUALS 001165,000097: 06,2000 IMUCAL2 EQUALS 001166,000098: 06,2000 BNKSUM 06 001167,000099: 001168,000100: 07,2000 BANK 07 001169,000101: 07,2000 SXTMARKE EQUALS 001170,000102: 07,2000 R02 EQUALS 001171,000103: 07,2000 MODESW EQUALS 001172,000104: 07,2000 XANG EQUALS 001173,000105: 07,2000 KEYRUPT EQUALS 001174,000106: 07,2000 BNKSUM 07 001175,000107: 001176,000108: 10,2000 BANK 10 001177,000109: 10,2000 DISPLAYS EQUALS 001178,000110: 10,2000 PHASETAB EQUALS 001179,000111: 10,2000 COMGEOM2 EQUALS 001180,000112: 10,2000 SXTMARK1 EQUALS 001181,000113: 10,2000 P60S4 EQUALS 001182,000114: 10,2000 OPTDRV EQUALS 001183,000115: 10,2000 BNKSUM 10 001184,000116: 001185,000117: 11,2000 BANK 11 001186,000118: 11,2000 ORBITAL EQUALS 001187,000119: 11,2000 ORBITAL1 EQUALS # CONSTANTS 001188,000120: 11,2000 INTVEL EQUALS 001189,000121: 11,2000 S52/2 EQUALS 001190,000122: 11,2000 BNKSUM 11 001191,000123: 001192,000124: 12,2000 BANK 12 001193,000125: 12,2000 CONICS EQUALS 001194,000126: # Page 29 001195,000127: 12,2000 BNKSUM 12 001196,000128: 001197,000129: 13,2000 BANK 13 001198,000130: 13,2000 P76LOC EQUALS 001199,000131: 13,2000 LATLONG EQUALS 001200,000132: 13,2000 INTINIT EQUALS 001201,000133: 13,2000 SR52/1 EQUALS 001202,000134: 13,2000 ORBITAL2 EQUALS 001203,000135: 13,2000 BNKSUM 13 001204,000136: 001205,000137: # MODULE 3 CONTAINS BANKS 14 THROUGH 21 001206,000138: 001207,000139: 14,2000 BANK 14 001208,000140: 14,2000 STARTAB EQUALS 001209,000141: 14,2000 RT53 EQUALS 001210,000142: 14,2000 P50S1 EQUALS 001211,000143: 14,2000 BNKSUM 14 001212,000144: 001213,000145: 15,2000 BANK 15 001214,000146: 15,2000 P50S EQUALS 001215,000147: 15,2000 ETRYDAP EQUALS 001216,000148: 15,2000 S52/3 EQUALS 001217,000149: 15,2000 BNKSUM 15 001218,000150: 001219,000151: 16,2000 BANK 16 001220,000152: 16,2000 P40S1 EQUALS 001221,000153: 16,2000 DAPROLL EQUALS 001222,000154: 16,2000 P50S2 EQUALS 001223,000155: 16,2000 BNKSUM 16 001224,000156: 001225,000157: 17,2000 BANK 17 001226,000158: 17,2000 DAPS4 EQUALS 001227,000159: 17,2000 DAPS5 EQUALS 001228,000160: 17,2000 DAPS7 EQUALS 001229,000161: 17,2000 BNKSUM 17 001230,000162: 001231,000163: 20,2000 BANK 20 001232,000164: # Page 30 001233,000165: 20,2000 DAPS6 EQUALS 001234,000166: 20,2000 DAPS1 EQUALS 001235,000167: 20,2000 DAPS2 EQUALS 001236,000168: 20,2000 BNKSUM 20 001237,000169: 001238,000170: 21,2000 BANK 21 001239,000171: 21,2000 DAPS3 EQUALS 001240,000172: 21,2000 MYSUBS EQUALS 001241,000173: 21,2000 BNKSUM 21 001242,000174: 001243,000175: # MODULE 4 CONTAINS BANKS 22 THROUGH 27 001244,000176: 001245,000177: 22,2000 BANK 22 001246,000178: 22,2000 RTBCODES EQUALS 001247,000179: 22,2000 RTBCODE1 EQUALS 001248,000180: 22,2000 DAPS8 EQUALS 001249,000181: 22,2000 APOPERI EQUALS 001250,000182: 22,2000 P40S5 EQUALS 001251,000183: 22,2000 KALCMON2 EQUALS 001252,000184: 22,2000 KALCMON1 EQUALS 001253,000185: 22,2000 BNKSUM 22 001254,000186: 001255,000187: 23,2000 BANK 23 001256,000188: 23,2000 P20S2 EQUALS 001257,000189: 23,2000 INFLIGHT EQUALS 001258,000190: 23,2000 COMGEOM1 EQUALS 001259,000191: 23,2000 POWFLITE EQUALS 001260,000192: 23,2000 POWFLIT1 EQUALS 001261,000193: 23,2000 RENDGUID EQUALS 001262,000194: 23,2000 POWFLIT2 EQUALS 001263,000195: 23,2000 R30LOC EQUALS 001264,000196: 23,2000 P11FOUR EQUALS 001265,000197: 23,2000 P12A EQUALS 001266,000198: 23,2000 NORMLIZ EQUALS 001267,000199: 23,2000 ASENT7 EQUALS 001268,000200: 23,2000 RODTRAP EQUALS 001269,000201: 23,2000 BNKSUM 23 001270,000202: 001271,000203: 24,2000 BANK 24 001272,000204: 24,2000 LOADDAP EQUALS 001273,000205: 24,2000 P40S EQUALS 001274,000206: 24,2000 BNKSUM 24 001275,000207: 001276,000208: 25,2000 BANK 25 001277,000209: # Page 31 001278,000210: 25,2000 REENTRY EQUALS 001279,000211: 25,2000 BNKSUM 25 001280,000212: 001281,000213: 26,2000 BANK 26 001282,000214: 26,2000 INTPRET1 EQUALS 001283,000215: 26,2000 REENTRY1 EQUALS 001284,000216: 26,2000 P60S EQUALS 001285,000217: 26,2000 P60S1 EQUALS 001286,000218: 26,2000 P60S2 EQUALS 001287,000219: 26,2000 P60S3 EQUALS 001288,000220: 26,2000 PLANTIN EQUALS 001289,000221: 26,2000 EPHEM EQUALS 001290,000222: 26,2000 P05P06 EQUALS 001291,000223: 26,2000 26P50S EQUALS 001292,000224: 26,2000 BNKSUM 26 001293,000225: 001294,000226: 27,2000 BANK 27 001295,000227: 27,2000 TOF-FF EQUALS 001296,000228: 27,2000 TOF-FF1 EQUALS 001297,000229: 27,2000 MANUVER EQUALS 001298,000230: 27,2000 MANUVER1 EQUALS 001299,000231: 27,2000 VECPT EQUALS 001300,000232: 27,2000 UPDATE1 EQUALS 001301,000233: 27,2000 UPDATE2 EQUALS 001302,000234: 27,2000 R22S1 EQUALS 001303,000235: 27,2000 P60S5 EQUALS 001304,000236: 27,2000 RTE2 EQUALS 001305,000237: 27,2000 BNKSUM 27 001306,000238: 001307,000239: # MODULE 5 CONTAINS BANKS 30 THROUGH 35 001308,000240: 001309,000241: 30,2000 BANK 30 001310,000242: 30,2000 IMUSUPER EQUALS 001311,000243: 30,2000 LOWSUPER EQUALS 001312,000244: 30,2000 FCSTART EQUALS # STANDARD LOCATION FOR THIS 001313,000245: 30,2000 LOPC EQUALS 001314,000246: 30,2000 P20S1 EQUALS 001315,000247: 30,2000 P20S6 EQUALS 001316,000248: 30,2000 P40S3 EQUALS 001317,000249: 30,2000 R35A EQUALS 001318,000250: 30,2000 BNKSUM 30 001319,000251: 001320,000252: # Page 32 001321,000253: 31,2000 BANK 31 001322,000254: 31,2000 R35 EQUALS 001323,000255: 31,2000 RT23 EQUALS 001324,000256: 31,2000 P30S1A EQUALS 001325,000257: 31,2000 R34 EQUALS 001326,000258: 31,2000 BNKSUM 31 001327,000259: 001328,000260: 32,2000 BANK 32 001329,000261: 32,2000 MSGSCAN1 EQUALS 001330,000262: 32,2000 RTE EQUALS 001331,000263: 32,2000 DELRSPL1 EQUALS 001332,000264: 32,2000 IMUCAL3 EQUALS 001333,000265: 32,2000 BNKSUM 32 001334,000266: 001335,000267: 33,2000 BANK 33 001336,000268: 33,2000 TESTLEAD EQUALS 001337,000269: 33,2000 IMUCAL EQUALS 001338,000270: 33,2000 BNKSUM 33 001339,000271: 001340,000272: 34,2000 BANK 34 001341,000273: 34,2000 P11ONE EQUALS 001342,000274: 34,2000 P20S3 EQUALS 001343,000275: 34,2000 P20S4 EQUALS 001344,000276: 34,2000 RTECON EQUALS 001345,000277: 34,2000 BNKSUM 34 001346,000278: 001347,000279: 35,2000 BANK 35 001348,000280: 35,2000 RTECON1 EQUALS 001349,000281: 35,2000 CSI/CDH EQUALS 001350,000282: 35,2000 P30S1 EQUALS 001351,000283: 35,2000 P30S EQUALS 001352,000284: 35,2000 R31 EQUALS 001353,000285: 35,2000 P17S1 EQUALS 001354,000286: 35,2000 BNKSUM 35 001355,000287: 001356,000288: # MODULE 6 CONTAINS BANKS 36 THROUGH 43 001357,000289: 001358,000290: 36,2000 BANK 36 001359,000291: 36,2000 MEASINC EQUALS 001360,000292: 36,2000 MEASINC1 EQUALS 001361,000293: # Page 33 001362,000294: 36,2000 P17S EQUALS 001363,000295: 36,2000 RTE1 EQUALS 001364,000296: 36,2000 BNKSUM 36 001365,000297: 001366,000298: 37,2000 BANK 37 001367,000299: 37,2000 P20S EQUALS 001368,000300: 37,2000 BODYATT EQUALS 001369,000301: 37,2000 RENDEZ EQUALS 001370,000302: 37,2000 SERVICES EQUALS 001371,000303: 37,2000 P11TWO EQUALS 001372,000304: 37,2000 BNKSUM 37 001373,000305: 001374,000306: 40,2000 BANK 40 001375,000307: 40,2000 PINSUPER EQUALS 001376,000308: 40,2000 SELFSUPR EQUALS 001377,000309: 40,2000 PINBALL1 EQUALS 001378,000310: 40,2000 BNKSUM 40 001379,000311: 001380,000312: 41,2000 BANK 41 001381,000313: 41,2000 PINBALL2 EQUALS 001382,000314: 41,2000 BNKSUM 41 001383,000315: 001384,000316: 42,2000 BANK 42 001385,000317: 42,2000 SBAND EQUALS 001386,000318: 42,2000 PINBALL3 EQUALS 001387,000319: 42,2000 EXTVBS EQUALS 001388,000320: 42,2000 BNKSUM 42 001389,000321: 001390,000322: 43,2000 BANK 43 001391,000323: 43,2000 SELFCHEC EQUALS 001392,000324: 43,2000 EXTVERBS EQUALS 001393,000325: 43,2000 BNKSUM 43 001394,000326: 001395,000327: 43,2000 26,3331 HI6ZEROS EQUALS ZEROVECS # ZERO VECTOR ALWAYS IN HIGH MEMORY 001396,000328: 43,2000 04,3455 LO6ZEROS EQUALS ZEROVEC # ZERO VECTOR ALWAYS IN LOW MEMORY 001397,000329: 43,2000 26,3327 HIDPHALF EQUALS UNITX 001398,000330: 43,2000 04,3453 LODPHALF EQUALS XUNIT 001399,000331: 43,2000 26,3321 HIDP1/4 EQUALS DP1/4TH 001400,000332: # Page 34 001401,000333: 43,2000 04,3501 LODP1/4 EQUALS D1/4 # 2DEC .25 001402,000334: 43,2000 26,3327 HIUNITX EQUALS UNITX 001403,000335: 43,2000 26,3325 HIUNITY EQUALS UNITY 001404,000336: 43,2000 26,3323 HIUNITZ EQUALS UNITZ 001405,000337: 43,2000 04,3453 LOUNITX EQUALS XUNIT # 2DEC .5 001406,000338: 43,2000 04,3451 LOUNITY EQUALS YUNIT # 2DEC 0 001407,000339: 43,2000 04,3447 LOUNITZ EQUALS ZUNIT # 2DEC 0 001408,000340: 43,2000 11,3706 3/4LOWDP EQUALS 3/4 # 2DEC 3.0 B-2 001409,000341: 001410,000342: 43,2000 30,2000 SBANK= LOWSUPER 001411,000343: 001412,000344: # ROPE-SPECIFIC ASSIGNS OBVIATING NEED TO CHECK COMPUTER FLAG IN DETERMINING(?) INTEGRATION AREA ENTRIES. 001413,000345: 001414,000346: 43,2000 13,3036 OTHPREC EQUALS LEMPREC 001415,000347: 43,2000 13,2711 ATOPOTH EQUALS ATOPLEM 001416,000348: 43,2000 13,2636 ATOPTHIS EQUALS ATOPCSM 001417,000349: 43,2000 0000173 MOONTHIS EQUALS CMOONFLG 001418,000350: 43,2000 0000174 MOONOTH EQUALS LMOONFLG 001419,000351: 43,2000 13,2651 MOVATHIS EQUALS MOVEACSM 001420,000352: 43,2000 35,3204 STATEST EQUALS V83CALL # * TEMPORARY 001421,000353: 43,2000 13,3022 THISPREC EQUALS CSMPREC 001422,000354: 43,2000 26,3327 THISAXIS = UNITX 001423,000355: 43,2000 4747 ERASID EQUALS LOW10 # DOWNLINK ERASABLE DUMP ID 001424,000356: 43,2000 6214 DELAYNUM EQUALS THREE 001425,000357: 001426,000358: # ******************************************************************************************************** 001427,000359: 001428,000360: # THE FOLLOWING ECADRS ARE DEFINED TO FACILITATE EBANK SWITCHING. THEY ALSO MAKE IT EASIER FOR 001429,000361: # ERASABLE CONTROL TO REARRANGE ERASABLE MEMORY WITHOUT DISRUPTING THE PROGRAMS WHICH SET EBANKS. 001430,000362: # PRIOR TO ROP RELEASE FIXED MEMORY CAN BE SAVED BY SETTING EACH EBXXXX =EBANKX (X=4,5,6,7). EBANKX OF COURSE 001431,000363: # WILL BE THE BANK WHERE THE ERASABLES REFERENCED IN EBXXXX WILL BE STORED. 001432,000364: 001433,000365: 07,2000 BANK 7 001434,000366: 07,2000 E7,1674 EBANK= MARKDOWN 001435,000367: 07,2000 03674 EBMARKDO ECADR MARKDOWN 001436,000368: 07,2001 E7,1725 EBANK= MRKBUF1 001437,000369: 07,2001 03725 EBMRKBUF ECADR MRKBUF1 001438,000370: 001439,000371: 24,2000 BANK 24 001440,000372: 24,2000 E7,1431 EBANK= DVCNTR 001441,000373: 24,2000 03431 EBDVCNTR ECADR DVCNTR 001442,000374: 24,2001 E7,1672 EBANK= P40TMP 001443,000375: 24,2001 03672 EBP40TMP ECADR P40TMP 001444,000376: 001445,000377: 34,2000 BANK 34 001446,000378: 34,2000 E7,1431 EBANK= DVCNTR 001447,000379: 34,2000 03431 EBDVCNT ECADR DVCNTR 001448,000380: 34,2001 E5,1426 EBANK= QPLACES 001449,000381: 34,2001 02426 EBQPLACE ECADR QPLACES 001450,000382: 001451,000383: 37,2000 BANK 37 001452,000384: 37,2000 1231 EBANK= RN1 001453,000385: # Page 35 001454,000386: 37,2000 01231 EBRN1 ECADR RN1 001455,000387: 001456,000388: # ****************************************************************************************************** 001457,000389: 001458,000390: # Page 36 001459,000391: 001460,000392: # *** END OF MAIN PROGRAM *** 001461,000393: End of include-file TAGS_FOR_RELATIVE_SETLOC.agc. Parent file is MAIN.agc