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