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