Source Code

046460,000001: # Copyright: Public domain. 046461,000002: # Filename: FIXED_FIXED_CONSTANT_POOL.agc 046462,000003: # Purpose: Part of the source code for Luminary 1A build 099. 046463,000004: # It is part of the source code for the Lunar Module's (LM) 046464,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 046465,000006: # Assembler: yaYUL 046466,000007: # Contact: Ron Burkey <info@sandroid.org>. 046467,000008: # Website: www.ibiblio.org/apollo. 046468,000009: # Pages: 1095-1099 046469,000010: # Mod history: 2009-05-25 RSB Adapted from the corresponding 046470,000011: # Luminary131 file, using page 046471,000012: # images from Luminary 1A. 046472,000013: 046473,000014: # This source code has been transcribed or otherwise adapted from 046474,000015: # digitized images of a hardcopy from the MIT Museum. The digitization 046475,000016: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of 046476,000017: # the Museum. Many thanks to both. The images (with suitable reduction 046477,000018: # in storage size and consequent reduction in image quality as well) are 046478,000019: # available online at www.ibiblio.org/apollo. If for some reason you 046479,000020: # find that the images are illegible, contact me at info@sandroid.org 046480,000021: # about getting access to the (much) higher-quality images which Paul 046481,000022: # actually created. 046482,000023: 046483,000024: # Notations on the hardcopy document read, in part: 046484,000025: 046485,000026: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61 046486,000027: # 16:27 JULY 14, 1969 046487,000028: 046488,000029: # Page 1095 046489,000030: 4732 BLOCK 02 046490,000031: 4732 COUNT* $$/FCONS 046491,000032: 046492,000033: # THE FOLLOWING TABLE OF 18 VALUES IS INDEXED. DO NOT INSERT OR REMOVE ANY QUANTITIES 046493,000034: 046494,000035: 4732 37777 DPOSMAX OCT 37777 # MUST PRECEDE POSMAX 046495,000036: 4733 37777 POSMAX OCT 37777 046496,000037: 046497,000038: 4734 4734 LIMITS = NEG1/2 046498,000039: 046499,000040: 4734 57777 NEG1/2 OCT -20000 # USED BY SIN ROUTINE (MUST BE TWO 046500,000041: # LOCATIONS IN FRONT OF BIT14) 046501,000042: 046502,000043: # BIT TABLE 046503,000044: 046504,000045: 4735 40000 BIT15 OCT 40000 046505,000046: 4736 20000 BIT14 OCT 20000 046506,000047: 4737 10000 BIT13 OCT 10000 046507,000048: 4740 04000 BIT12 OCT 04000 046508,000049: 4741 02000 BIT11 OCT 02000 046509,000050: 4742 01000 BIT10 OCT 01000 046510,000051: 4743 00400 BIT9 OCT 00400 046511,000052: 4744 00200 BIT8 OCT 00200 046512,000053: 4745 00100 BIT7 OCT 00100 046513,000054: 4746 00040 BIT6 OCT 00040 046514,000055: 4747 00020 BIT5 OCT 00020 046515,000056: 4750 00010 BIT4 OCT 00010 046516,000057: 4751 00004 BIT3 OCT 00004 046517,000058: 4752 00002 BIT2 OCT 00002 046518,000059: 4753 00001 BIT1 OCT 00001 046519,000060: 046520,000061: # DO NOT DESTROY THIS COMBINATION, SINCE IT IS USED IN DOUBLE PRECISION INSTRUCTIONS. 046521,000062: 4754 77777 NEG0 OCT -0 # MUST PRECEDE ZERO 046522,000063: 4755 00000 ZERO OCT 0 # MUST FOLLOW NEG0 046523,000064: # BIT1 OCT 00001 046524,000065: # NO.WDS OCT 2 # INTERPRETER 046525,000066: # OCTAL3 OCT 3 # INTERPRETER 046526,000067: # R3D1 OCT 4 # PINBALL 046527,000068: 4756 00005 FIVE OCT 5 046528,000069: # REVCNT OCT 6 # INTERPRETER 046529,000070: 4757 00007 SEVEN OCT 7 046530,000071: # BIT4 OCT 00010 046531,000072: # R2D1 OCT 11 # PINBALL 046532,000073: 4760 4320 OCT11 = R2D1 # P20S 046533,000074: # BINCON DEC 10 # PINBALL (OCTAL 12) 046534,000075: 4760 00013 ELEVEN DEC 11 B-14 046535,000076: # OCT14 OCT 14 # ALARM AND ABORT (FILLER) 046536,000077: 4761 00015 OCT15 OCT 15 046537,000078: # R1D1 OCT 16 # PINBALL 046538,000079: 4762 00017 LOW4 OCT 17 046539,000080: # Page 1096 046540,000081: # BIT5 OCT 00020 046541,000082: # NC1 OCT 21 # PINBALL 046542,000083: # VD1 OCT 23 # PINBALL 046543,000084: # OCT24 OCT 24 # SERVICE ROUTINES 046544,000085: # MD1 OCT 25 # PINBALL 046545,000086: 4763 00030 BITS4&5 OCT 30 046546,000087: # OCT31 OCT 31 # SERVICE ROUTINES 046547,000088: 4764 00033 OCT33 OCT 33 046548,000089: # DEC27 = OCT33 046549,000090: 4765 00035 OCT35 OCT 35 046550,000091: # DEC29 = OCT35 046551,000092: 4766 00032 CALLCODE OCT 00032 046552,000093: # LOW5 OCT 37 # PINBALL 046553,000094: # 33DEC DEC 33 # PINBALL (OCTAL 41) 046554,000095: # 34DEC DEC 34 # PINBALL (OCTAL 42) 046555,000096: 4767 00045 TBUILDFX DEC 37 B-14 # BUILDUP FOR CONVENIENCE IN DAPTESTING 046556,000097: 4770 00046 TDECAYFX DEC 38 B-14 # CONVENIENCE FOR DAPTESTING 046557,000098: # BIT6 OCT 00040 046558,000099: 4771 00050 OCT50 OCT 50 046559,000100: 4772 00055 DEC45 DEC 45 B-14 046560,000101: 4773 00060 SUPER011 OCT 60 # BITS FOR SUPERBNK SETTING 011. 046561,000102: 4774 00062 .5SEC DEC 50 B-14 046562,000103: # BIT7 OCT 00100 046563,000104: 046564,000105: 4775 4745 SUPER100 = BIT7 # BITS FOR SUPERBNK SETTING 100 046565,000106: # (LAST 4K OF ROPE) 046566,000107: 4775 00120 SUPER101 OCT 120 # BITS FOR SUPERBNK SETTING 101 046567,000108: # OCT121 OCT 121 # SERVICE ROUTINES 046568,000109: # (FIRST 8K OF ACM) 046569,000110: 4776 00140 SUPER110 OCT 140 # BITS FOR SUPERBNK SETTING 110. 046570,000111: # (LAST BK OF ACM) 046571,000112: 4777 00144 1SEC DEC 100 B-14 046572,000113: # LOW7 OCT 177 # INTERPRETER 046573,000114: # BIT8 OCT 00200 046574,000115: # OT215 OCT 215 # ALARM AND ABORT 046575,000116: # 8,5 OCT 00220 # P20-P25 SUNDANCE 046576,000117: 5000 00310 2SECS DEC 200 B-14 046577,000118: # LOW8 OCT 377 # PINBALL 046578,000119: # BIT9 OCT 00400 046579,000120: 5001 00401 GN/CCODE OCT 00401 # SET S/C CONTROL SWITCH TO G/N 046580,000121: 5002 00454 3SECS DEC 300 B-14 046581,000122: 5003 00620 4SECS DEC 400 B-14 046582,000123: 5004 00777 LOW9 OCT 777 046583,000124: # BIT10 OCT 01000 046584,000125: # 5.5DEGS DEC .03056 # P20-P25 SUNDANCE (OCTAL 00765) 046585,000126: # OCT1103 OCT 1103 # ALARM AND ABORT 046586,000127: 5005 01124 C5/2 DEC .0363551 # (OCTAL 01124) 046587,000128: 5006 01211 V05N09 VN 0509 # (SAME AS OCTAL 1211) 046588,000129: 5007 01400 OCT1400 OCT 01400 046589,000130: 5010 01426 V06N22 VN 0622 046590,000131: # Page 1097 046591,000132: # MID5 OCT 1740 # PINBALL 046592,000133: 5011 01776 BITS2-10 OCT 1776 046593,000134: 5012 01777 LOW10 OCT 1777 046594,000135: # BIT11 OCT 02000 046595,000136: # 2K+3 OCT 2003 # PINBALL 046596,000137: 5013 02177 LOW7+2K OCT 2177 # OP CODE MASK + BANK 1 FBANK SETTING 046597,000138: 5014 02400 EBANK5 OCT 02400 046598,000139: 5015 03000 PRIO3 OCT 03000 046599,000140: 5016 03400 EBANK7 OCT 03400 046600,000141: # LOW11 OCT 3777 # PINBALL 046601,000142: # BIT12 OCT 04000 046602,000143: # RELTAB OCT 04025 # T4RUPT 046603,000144: 5017 05000 PRIO5 OCT 05000 046604,000145: 5020 06000 PRIO6 OCT 06000 046605,000146: 5021 07000 PRIO7 OCT 07000 046606,000147: 046607,000148: # BIT13 OCT 10000 046608,000149: # OCT 10003 # T4RUPT RELTAB +1D 046609,000150: # 13,7,2 OCT 10102 # P20-P25 SUNDANCE 046610,000151: 5022 11000 PRIO11 OCT 11000 046611,000152: # PRIO12 OCT 12000 # BANKCALL 046612,000153: 5023 13000 PRIO13 OCT 13000 046613,000154: 5024 14000 PRIO14 OCT 14000 046614,000155: # OCT 14031 # T4RUPT RELTAB +2D 046615,000156: 5025 15000 PRIO15 OCT 15000 046616,000157: 5026 16000 PRIO16 OCT 16000 046617,000158: # 85DEGS DEC .45556 # P20-P25 SUNDANCE (OCTAL 16450) 046618,000159: 5027 17000 PRIO17 OCT 17000 046619,000160: 5030 17770 OCT17770 OCT 17770 046620,000161: # BIT14 OCT 20000 046621,000162: # OCT 20033 # T4RUPT RELTAB +3D 046622,000163: 5031 21000 PRIO21 OCT 21000 046623,000164: 7710 BLOCK 03 046624,000165: 7710 COUNT* $$/FCONS 046625,000166: 7710 22000 PRIO22 OCT 22000 # SERVICE ROUTINES 046626,000167: 7711 23000 PRIO23 OCT 23000 046627,000168: 7712 24000 PRIO24 OCT 24000 046628,000169: # 5/8+1 OCT 24001 # SINGLE PRECISION SUBROUTINES 046629,000170: # OCT 24017 # T4RUPT RELTAB +4D 046630,000171: 7713 25000 PRIO25 OCT 25000 046631,000172: 7714 26000 PRIO26 OCT 26000 046632,000173: 7715 27000 PRIO27 OCT 27000 046633,000174: # CHRPRIO OCT 30000 # PINBALL 046634,000175: # OCT 30036 # T4RUPT RELTAB +5D 046635,000176: 7716 31000 PRIO31 OCT 31000 046636,000177: 7717 31103 C1/2 DEC .7853134 # (OCTAL 31103) 046637,000178: 7720 32000 PRIO32 OCT 32000 046638,000179: 7721 33000 PRIO33 OCT 33000 046639,000180: 7722 34000 PRIO34 OCT 34000 046640,000181: # OCT 34034 # T4RUPT RELTAB +6D 046641,000182: # Page 1098 046642,000183: 7723 35000 PRIO35 OCT 35000 046643,000184: 7724 36000 PRIO36 OCT 36000 046644,000185: 7725 37000 PRIO37 OCT 37000 046645,000186: 7726 37401 63/64+1 OCT 37401 046646,000187: # MID7 OCT 37600 # PINBALL 046647,000188: 7727 37766 OCT37766 OCT 37766 046648,000189: 7730 37774 OCT37774 OCT 37774 046649,000190: 7731 37776 OCT37776 OCT 37776 046650,000191: # DPOSMAX OCT 37777 046651,000192: # BIT15 OCT 40000 046652,000193: # OCT40001 OCT 40001 # INTERPRETER (CS 1 INSTRUCTION) 046653,000194: 7732 40014 DLOADCOD OCT 40014 046654,000195: 7733 40015 DLOAD* OCT 40015 046655,000196: # OCT 40023 # T4RUPT RELTAB +7D 046656,000197: 7734 40040 BIT15+6 OCT 40040 046657,000198: 7735 40200 OCT40200 OCT 40200 046658,000199: # OCT 44035 # T4RUPT RELTAB +8D 046659,000200: # OCT 50037 # T4RUPT RELTAB +9D 046660,000201: # OCT 54000 # T4RUPT RELTAB +10D 046661,000202: 7736 57777 -BIT14 OCT 57777 046662,000203: # RELTAB11 OCT 60000 # T4RUPT 046663,000204: 7737 65552 C3/2 DEC -.3216147 # (OCTAL 65552) 046664,000205: 7740 70000 13,14,15 OCT 70000 046665,000206: 7741 73777 -1/8 OCT 73777 046666,000207: 7742 74000 HIGH4 OCT 74000 046667,000208: 7743 74056 -ENDERAS DEC -2001 B-14 # (OCTAL 74056) 046668,000209: # HI5 OCT 76000 # PINBALL 046669,000210: 7744 77700 HIGH9 OCT 77700 046670,000211: # -ENDVAC DEC -45 # INTERPRETER (OCTAL 77722) 046671,000212: # -OCT10 OCT -10 # (OCTAL 77767) 046672,000213: # NEG4 DEC -4 # (OCTAL 77773) 046673,000214: 7745 77774 NEG3 DEC -3 B-14 046674,000215: 7746 77775 NEG2 OCT 77775 046675,000216: 7747 77776 NEGONE DEC -1 B-14 046676,000217: 046677,000218: # Page 1099 046678,000219: 046679,000220: # DEFINED BY EQUALS 046680,000221: 046681,000222: # IT WOULD BE TO THE USERS ADVANTAGE TO OCCASIONALLY CHECK ANY OF THESE SYMBOLS IN ORDER TO PREVENT ANY 046682,000223: # ACCIDENTAL DEFINITION CHANGES. 046683,000224: 046684,000225: 7750 7747 MINUS1 = NEG1 046685,000226: 7750 7747 NEG1 = NEGONE 046686,000227: 7750 4753 ONE = BIT1 046687,000228: 7750 4752 TWO = BIT2 046688,000229: 7750 6245 THREE = OCTAL3 046689,000230: 7750 6245 LOW2 = THREE 046690,000231: 7750 4751 FOUR = BIT3 046691,000232: 7750 6242 SIX = REVCNT 046692,000233: 7750 4757 LOW3 = SEVEN 046693,000234: 7750 4750 EIGHT = BIT4 046694,000235: 7750 4320 NINE = R2D1 046695,000236: 7750 4363 TEN = BINCON 046696,000237: 7750 4760 NOUTCON = ELEVEN 046697,000238: 7750 4360 OCT23 = VD1 046698,000239: 7750 4362 OCT25 = MD1 046699,000240: 7750 4742 PRIO1 = BIT10 046700,000241: 7750 5007 EBANK3 = OCT1400 046701,000242: 7750 4741 PRIO2 = BIT11 046702,000243: 7750 4775 OCT120 = SUPER101 046703,000244: 7750 4776 OCT140 = SUPER110 046704,000245: 7750 4741 2K = BIT11 046705,000246: 7750 4741 EBANK4 = BIT11 046706,000247: 7750 4740 PRIO4 = BIT12 046707,000248: 7750 5015 EBANK6 = PRIO3 046708,000249: 7750 4737 QUARTER = BIT13 046709,000250: 7750 4737 PRIO10 = BIT13 046710,000251: 7750 7663 OCT10001 = CCSL 046711,000252: 7750 4736 POS1/2 = HALF 046712,000253: 7750 4736 PRIO20 = BIT14 046713,000254: 7750 4736 HALF = BIT14 046714,000255: 7750 4355 PRIO30 = CHRPRIO 046715,000256: 7750 4355 BIT13-14 = PRIO30 # INTERPRETER USES IN PROCESSING STORECODE 046716,000257: 7750 6471 OCT30002 = TLOAD +1 046717,000258: 7750 7722 B12T14 = PRIO34 046718,000259: 7750 4735 NEGMAX = BIT15 046719,000260: 7750 4735 VLOADCOD = BIT15 046720,000261: 7750 6107 VLOAD* = OCT40001 046721,000262: 7750 4101 OCT60000 = RELTAB11 046722,000263: 7750 4350 BANKMASK = HI5 046723,000264: End of include-file FIXED_FIXED_CONSTANT_POOL.agc. Parent file is MAIN.agc