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.

043790,000002:                                                                                                 #  Copyright:     Public domain.
043791,000003:                                                                                                 #  Filename:      MYSUBS.agc
043792,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
043793,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
043794,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
043795,000007:                                                                                                 #                 Apollo 15-17.
043796,000008:                                                                                                 #  Assembler:     yaYUL
043797,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
043798,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
043799,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
043800,000012:                                                                                                 #  Mod history:   2009-08-27 SN   Adapted from corresponding Comanche 055 file.
043801,000013:                                                                                                 #                 2009-09-04 JL   Fix typos.
043802,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
043803,000015: 
043804,000016:                                                                                                 # # Page 997
043805,000017: 
043806,000018: 21,2000                                          SETLOC   MYSUBS                                
043807,000019: 21,2000                                          BANK                                           
043808,000020: 
043809,000021: 21,2060  E6,1510                                 EBANK=   KMPAC                                 
043810,000022: 21,2060     5060               SPCOS1            EQUALS   SPCOS                                 
043811,000023: 21,2060     5061               SPSIN1            EQUALS   SPSIN                                 
043812,000024: 21,2060     5060               SPCOS2            EQUALS   SPCOS                                 
043813,000025: 21,2060     5061               SPSIN2            EQUALS   SPSIN                                 
043814,000026: 
043815,000027: 21,2060                                          COUNT*   $$/DAPMS                              
043816,000028: 
043817,000029:                                                                                                 #  ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
043818,000030: 
043819,000031: 21,2060           55512        SMALLMP           TS       KMPTEMP                               #  A(X+Y)
043820,000032: 21,2061           00006                          EXTEND                                         
043821,000033: 21,2062           71511                          MP       KMPAC      +1                         
043822,000034: 21,2063           55511                          TS       KMPAC      +1                         #  AY
043823,000035: 21,2064           34772                          CAF      ZERO                                  
043824,000036: 21,2065           57510                          XCH      KMPAC                                 
043825,000037: 21,2066           00006                          EXTEND                                         
043826,000038: 21,2067           71512                          MP       KMPTEMP                               #  AX
043827,000039: 21,2070           21511                          DAS      KMPAC                                 #  AX+AY
043828,000040: 21,2071           00002                          TC       Q                                     
043829,000041: 
043830,000042:                                                                                                 #  SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
043831,000043:                                                                                                 #  A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
043832,000044:                                                                                                 #  RESULT IS PLACED IN KMPAC.  TIMING = 6 MCT (22 MCT ON OVERFLOW)
043833,000045: 
043834,000046: 21,2072           21511        DPADD             DAS      KMPAC                                 
043835,000047: 21,2073           00006                          EXTEND                                         
043836,000048: 21,2074           12111                          BZF      TSK        +1                         #  NO OVERFLOW
043837,000049: 21,2075           11510                          CCS      KMPAC                                 
043838,000050: 21,2076           12112                          TCF      DPADD+                                #  + OVERFLOW
043839,000051: 21,2077           12101                          TCF      +2                                    
043840,000052: 21,2100           12114                          TCF      DPADD-                                #  - OVERFLOW
043841,000053: 21,2101           11511                          CCS      KMPAC      +1                         
043842,000054: 21,2102           12117                          TCF      DPADD2+                               #  UPPER = 0, LOWER +
043843,000055: 21,2103           12105                          TCF      +2                                    
043844,000056: 21,2104           40000                          COM                                            #  UPPER = 0, LOWER -
043845,000057: 21,2105           64750                          AD       POSMAX                                #  LOWER = 0, A=0
043846,000058: 21,2106           55511                          TS       KMPAC      +1                         #  CAN NOT OVERFLOW
043847,000059: 21,2107           34750                          CA       POSMAX                                #  UPPER WAS = 0
043848,000060: 21,2110           55510        TSK               TS       KMPAC                                 
043849,000061: 21,2111           00002                 +1       TC       Q                                     
043850,000062: 21,2112           64752        DPADD+            AD       NEGMAX                                #  KMPAC GREATER THAN 0
043851,000063: 21,2113           12110                          TCF      TSK                                   
043852,000064: 
043853,000065: 21,2114           40000        DPADD-            COM                                            
043854,000066: 21,2115           64750                          AD       POSMAX                                #  KMPAC LESS THAN 0
043855,000067:                                                                                                 # # Page 998
043856,000068: 21,2116           12110                          TCF      TSK                                   
043857,000069: 
043858,000070: 21,2117           64752        DPADD2+           AD       NEGMAX                                #  CAN NOT OVERFLOW
043859,000071: 21,2120           55511                          TS       KMPAC      +1                         
043860,000072: 21,2121           34752                          CA       NEGMAX                                #  UPPER WAS = 0
043861,000073: 21,2122           12110                          TCF      TSK                                   
043862,000074: 
043863,000075:                                                                                                 # # Page 999 (empty page)

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