GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
044667,000002: ## Copyright: Public domain.
044668,000003: ## Filename: MYSUBS.agc
044669,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
044670,000005: ## It is part of the source code for the Command Module's (CM)
044671,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
044672,000007: ## Assembler: yaYUL
044673,000008: ## Contact: Ron Burkey <info@sandroid.org>.
044674,000009: ## Website: www.ibiblio.org/apollo.
044675,000010: ## Pages: 999-1001
044676,000011: ## Mod history: 2009-05-13 RSB Adapted from the Colossus249/ file of the
044677,000012: ## same name, using Comanche055 page images.
044678,000013: ## 2009-05-20 RSB Corrections: EBANK= changed from MPAC to KMPAC.
044679,000014: ## 2016-12-21 RSB Proofed comment text using octopus/ProoferComments
044680,000015: ## but no errors found.
044681,000016: ##
044682,000017: ## This source code has been transcribed or otherwise adapted from digitized
044683,000018: ## images of a hardcopy from the MIT Museum. The digitization was performed
044684,000019: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
044685,000020: ## thanks to both. The images (with suitable reduction in storage size and
044686,000021: ## consequent reduction in image quality as well) are available online at
044687,000022: ## www.ibiblio.org/apollo. If for some reason you find that the images are
044688,000023: ## illegible, contact me at info@sandroid.org about getting access to the
044689,000024: ## (much) higher-quality images which Paul actually created.
044690,000025: ##
044691,000026: ## Notations on the hardcopy document read, in part:
044692,000027: ##
044693,000028: ## Assemble revision 055 of AGC program Comanche by NASA
044694,000029: ## 2021113-051. 10:28 APR. 1, 1969
044695,000030: ##
044696,000031: ## This AGC program shall also be referred to as
044697,000032: ## Colossus 2A
044698,000033:
|
|
Page 999 |
044700,000035: 20,3612 BANK 20
044701,000036: 21,2000 SETLOC MYSUBS
044702,000037: 21,2000 BANK
044703,000038:
044704,000039: 21,2042 E6,1510 EBANK= KMPAC
044705,000040: 21,2042 5074 SPCOS1 EQUALS SPCOS
044706,000041: 21,2042 5075 SPSIN1 EQUALS SPSIN
044707,000042: 21,2042 5074 SPCOS2 EQUALS SPCOS
044708,000043: 21,2042 5075 SPSIN2 EQUALS SPSIN
044709,000044:
044710,000045: 21,2042 COUNT 21/DAPMS
044711,000046:
044712,000047: # ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
044713,000048:
044714,000049: 21,2042 55512 SMALLMP TS KMPTEMP # A(X+Y)
044715,000050: 21,2043 00006 EXTEND
044716,000051: 21,2044 71511 MP KMPAC +1
044717,000052: 21,2045 55511 TS KMPAC +1 # AY
044718,000053: 21,2046 35021 CAF ZERO
044719,000054: 21,2047 57510 XCH KMPAC
044720,000055: 21,2050 00006 EXTEND
044721,000056: 21,2051 71512 MP KMPTEMP # AX
044722,000057: 21,2052 21511 DAS KMPAC # AX+AY
044723,000058: 21,2053 00002 TC Q
044724,000059:
044725,000060: # SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
044726,000061: # A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
044727,000062: # RESULT IS PLACED IN KMPAC. TIMING = 6 MCT (22 MCT ON OVERFLOW)
044728,000063:
044729,000064: 21,2054 21511 DPADD DAS KMPAC
044730,000065: 21,2055 00006 EXTEND
044731,000066: 21,2056 12073 BZF TSK +1 # NO OVERFLOW
044732,000067: 21,2057 11510 CCS KMPAC
044733,000068: 21,2060 12074 TCF DPADD+ # + OVERFLOW
044734,000069: 21,2061 12063 TCF +2
044735,000070: 21,2062 12076 TCF DPADD- # - OVERFLOW
044736,000071: 21,2063 11511 CCS KMPAC +1
044737,000072: 21,2064 12101 TCF DPADD2+ # UPPER = 0, LOWER +
044738,000073: 21,2065 12067 TCF +2
044739,000074: 21,2066 40000 COM # UPPER = 0, LOWER -
044740,000075: 21,2067 64777 AD POSMAX # LOWER = 0, A = 0
044741,000076: 21,2070 55511 TS KMPAC +1 # CAN NOT OVERFLOW
044742,000077: 21,2071 34777 CA POSMAX # UPPER WAS = 0
044743,000078: 21,2072 55510 TSK TS KMPAC
044744,000079: 21,2073 00002 TC Q
044745,000080:
044746,000081: 21,2074 65001 DPADD+ AD NEGMAX # KMPAC GREATER THAN 0
044747,000082: 21,2075 12072 TCF TSK
044748,000083:
|
|
Page 1000 |
044750,000085: 21,2076 40000 DPADD- COM
044751,000086: 21,2077 64777 AD POSMAX # KMPAC LESS THAN 0
044752,000087: 21,2100 12072 TCF TSK
044753,000088:
044754,000089: 21,2101 65001 DPADD2+ AD NEGMAX # CAN NOT OVERFLOW
044755,000090: 21,2102 55511 TS KMPAC +1
044756,000091: 21,2103 35001 CA NEGMAX # UPPER WAS = 0
044757,000092: 21,2104 12072 TCF TSK
044758,000093:
|
|
Page 1001 This page is empty. |
044761,000096:
044762,000097:
End of include-file MYSUBS.agc. Parent file is MAIN.agc