Source Code

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