Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

051490,000002:                                                                                                 #  Copyright:     Public domain.
051491,000003:                                                                                                 #  Filename:      INTERPRETIVE_CONSTANTS.agc
051492,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
051493,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
051494,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
051495,000007:                                                                                                 #                 Apollo 15-17.
051496,000008:                                                                                                 #  Assembler:     yaYUL
051497,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
051498,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
051499,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
051500,000012:                                                                                                 #  Mod history:   2009-08-22 JL   Adapted from corresponding Comanche 055 file.
051501,000013:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
051502,000014: 
051503,000015:                                                                                                 # # Page 1205
051504,000016: 26,2000                                          SETLOC   INTPRET1                              
051505,000017: 26,2000                                          BANK                                           
051506,000018: 
051507,000019: 26,3325                                          COUNT*   $$/ICONS                              
051508,000020: 26,3325           10000 00000  DP1/4TH           2DEC     .25                                   
051509,000021: 26,3327           00000 00000  UNITZ             2DEC     0          B-28                       
051510,000022: 26,3331           00000 00000  UNITY             2DEC     0          B-28                       
051511,000023: 26,3333           20000 00000  UNITX             2DEC     .5                                    
051512,000024: 26,3335           00000 00000  ZEROVECS          2DEC     0          B-28                       
051513,000025: 26,3337           00000 00000                    2DEC     0          B-28                       
051514,000026: 26,3341           00000 00000                    2DEC     0          B-28                       
051515,000027: 26,3343  26,3333               DPHALF            =        UNITX                                 
051516,000028: 26,3343           37777        DPPOSMAX          OCT      37777                                 
051517,000029: 26,3344           37777                          OCT      37777                                 
051518,000030: 
051519,000031:                                                                                                 # # Page 1206
051520,000032: 
051521,000033:                                                                                                 #  INTERPRETIVE CONSTANTS IN THE OTHER HALF-MEMORY
051522,000034: 
051523,000035: 04,2000                                          SETLOC   INTPRET2                              
051524,000036: 04,2000                                          BANK                                           
051525,000037: 
051526,000038: 04,3753                                          COUNT*   $$/ICONS                              
051527,000039: 04,3753           00000 00000  ZUNIT             2DEC     0          B-28                       
051528,000040: 04,3755           00000 00000  YUNIT             2DEC     0          B-28                       
051529,000041: 04,3757           20000 00000  XUNIT             2DEC     .5                                    
051530,000042: 04,3761           00000 00000  ZEROVEC           2DEC     0          B-28                       
051531,000043: 04,3763           00000 00000                    2DEC     0          B-28                       
051532,000044: 04,3765           00000 00000                    2DEC     0          B-28                       
051533,000045: 
051534,000046: 04,3767           77777                          OCT      77777                                 #  -0, -6, -12 MUST REMAIN IN THIS ORDER
051535,000047: 04,3770           77771        DEC-6             DEC      -6         B-14                       
051536,000048: 04,3771           77763        DEC-12            DEC      -12        B-14                       
051537,000049: 04,3772           37777 37777  LODPMAX           2OCT     3777737777                            #  THESE TWO CONSTANTS MUST REMAIN
051538,000050: 04,3774           37777 37777  LODPMAX1          2OCT     3777737777                            #  ADJACENT AND THE SAME FOR INTEGRATION
051539,000051: 
051540,000052: 04,3776  04,3761               ZERODP            =        ZEROVEC                               
051541,000053: 04,3776  04,3757               HALFDP            =        XUNIT                                 

End of include-file INTERPRETIVE_CONSTANTS.agc.  Parent file is MAIN.agc