Source Code
044400,000001: # Copyright: Public domain.
044401,000002: # Filename: MYSUBS.agc
044402,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
044403,000004: # It is part of the source code for the Command Module's (CM)
044404,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
044405,000006: # Assembler: yaYUL
044406,000007: # Contact: Ron Burkey <info@sandroid.org>.
044407,000008: # Website: www.ibiblio.org/apollo.
044408,000009: # Pages: 999-1001
044409,000010: # Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
044410,000011: # same name, using Comanche055 page images.
044411,000012: # 2009-05-20 RSB Corrections: EBANK= changed from MPAC to KMPAC.
044412,000013:
044413,000014: # This source code has been transcribed or otherwise adapted from digitized
044414,000015: # images of a hardcopy from the MIT Museum. The digitization was performed
044415,000016: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
044416,000017: # thanks to both. The images (with suitable reduction in storage size and
044417,000018: # consequent reduction in image quality as well) are available online at
044418,000019: # www.ibiblio.org/apollo. If for some reason you find that the images are
044419,000020: # illegible, contact me at info@sandroid.org about getting access to the
044420,000021: # (much) higher-quality images which Paul actually created.
044421,000022:
044422,000023: # Notations on the hardcopy document read, in part:
044423,000024:
044424,000025: # Assemble revision 055 of AGC program Comanche by NASA
044425,000026: # 2021113-051. 10:28 APR. 1, 1969
044426,000027:
044427,000028: # This AGC program shall also be referred to as
044428,000029: # Colossus 2A
044429,000030:
044430,000031: # Page 999
044431,000032: 20,3612 BANK 20
044432,000033: 21,2000 SETLOC MYSUBS
044433,000034: 21,2000 BANK
044434,000035:
044435,000036: 21,2042 E6,1510 EBANK= KMPAC
044436,000037: 21,2042 5074 SPCOS1 EQUALS SPCOS
044437,000038: 21,2042 5075 SPSIN1 EQUALS SPSIN
044438,000039: 21,2042 5074 SPCOS2 EQUALS SPCOS
044439,000040: 21,2042 5075 SPSIN2 EQUALS SPSIN
044440,000041:
044441,000042: 21,2042 COUNT 21/DAPMS
044442,000043:
044443,000044: # ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
044444,000045:
044445,000046: 21,2042 55512 SMALLMP TS KMPTEMP # A(X+Y)
044446,000047: 21,2043 00006 EXTEND
044447,000048: 21,2044 71511 MP KMPAC +1
044448,000049: 21,2045 55511 TS KMPAC +1 # AY
044449,000050: 21,2046 35021 CAF ZERO
044450,000051: 21,2047 57510 XCH KMPAC
044451,000052: 21,2050 00006 EXTEND
044452,000053: 21,2051 71512 MP KMPTEMP # AX
044453,000054: 21,2052 21511 DAS KMPAC # AX+AY
044454,000055: 21,2053 00002 TC Q
044455,000056:
044456,000057: # SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
044457,000058: # A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
044458,000059: # RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
044459,000060:
044460,000061: 21,2054 21511 DPADD DAS KMPAC
044461,000062: 21,2055 00006 EXTEND
044462,000063: 21,2056 12073 BZF TSK +1 # NO OVERFLOW
044463,000064: 21,2057 11510 CCS KMPAC
044464,000065: 21,2060 12074 TCF DPADD+ # + OVERFLOW
044465,000066: 21,2061 12063 TCF +2
044466,000067: 21,2062 12076 TCF DPADD- # - OVERFLOW
044467,000068: 21,2063 11511 CCS KMPAC +1
044468,000069: 21,2064 12101 TCF DPADD2+ # UPPER = 0, LOWER +
044469,000070: 21,2065 12067 TCF +2
044470,000071: 21,2066 40000 COM # UPPER = 0, LOWER -
044471,000072: 21,2067 64777 AD POSMAX # LOWER = 0, A = 0
044472,000073: 21,2070 55511 TS KMPAC +1 # CAN NOT OVERFLOW
044473,000074: 21,2071 34777 CA POSMAX # UPPER WAS = 0
044474,000075: 21,2072 55510 TSK TS KMPAC
044475,000076: 21,2073 00002 TC Q
044476,000077:
044477,000078: 21,2074 65001 DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
044478,000079: 21,2075 12072 TCF TSK
044479,000080:
044480,000081: # Page 1000
044481,000082: 21,2076 40000 DPADD- COM
044482,000083: 21,2077 64777 AD POSMAX # KMPAC LESS THAN 0
044483,000084: 21,2100 12072 TCF TSK
044484,000085:
044485,000086: 21,2101 65001 DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
044486,000087: 21,2102 55511 TS KMPAC +1
044487,000088: 21,2103 35001 CA NEGMAX # UPPER WAS = 0
044488,000089: 21,2104 12072 TCF TSK
044489,000090:
044490,000091: # Page 1001 (empty page)
044491,000092:
End of include-file MYSUBS.agc. Parent file is MAIN.agc