Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

043991,000002:                                                                                                  ## Copyright:   Public domain.
043992,000003:                                                                                                  ## Filename:    MYSUBS.agc
043993,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
043994,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
043995,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
043996,000007:                                                                                                  ##              Apollo 15-17.
043997,000008:                                                                                                  ## Assembler:   yaYUL
043998,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
043999,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
044000,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
044001,000012:                                                                                                  ## Mod history: 2009-08-27 SN   Adapted from corresponding Comanche 055 file.
044002,000013:                                                                                                  ##              2009-09-04 JL   Fix typos.
044003,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
044004,000015:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
044005,000016:                                                                                                  ##                              but no differences found.
044006,000017: 

Page 997

044008,000019: 
044009,000020: 21,2000                                           SETLOC   MYSUBS                                
044010,000021: 21,2000                                           BANK                                           
044011,000022: 
044012,000023: 21,2060  E6,1510                                  EBANK=   KMPAC                                 
044013,000024: 21,2060     5060               SPCOS1             EQUALS   SPCOS                                 
044014,000025: 21,2060     5061               SPSIN1             EQUALS   SPSIN                                 
044015,000026: 21,2060     5060               SPCOS2             EQUALS   SPCOS                                 
044016,000027: 21,2060     5061               SPSIN2             EQUALS   SPSIN                                 
044017,000028: 
044018,000029: 21,2060                                           COUNT*   $$/DAPMS                              
044019,000030: 
044020,000031:                                                                                                  #  ONE AND ONE HALF PRECISION MULTIPLICATION ROUTINE
044021,000032: 
044022,000033: 21,2060           55512        SMALLMP            TS       KMPTEMP                               #  A(X+Y)
044023,000034: 21,2061           00006                           EXTEND                                         
044024,000035: 21,2062           71511                           MP       KMPAC      +1                         
044025,000036: 21,2063           55511                           TS       KMPAC      +1                         #  AY
044026,000037: 21,2064           34772                           CAF      ZERO                                  
044027,000038: 21,2065           57510                           XCH      KMPAC                                 
044028,000039: 21,2066           00006                           EXTEND                                         
044029,000040: 21,2067           71512                           MP       KMPTEMP                               #  AX
044030,000041: 21,2070           21511                           DAS      KMPAC                                 #  AX+AY
044031,000042: 21,2071           00002                           TC       Q                                     
044032,000043: 
044033,000044:                                                                                                  #  SUBROUTINE FOR DOUBLE PRECISION ADDITIONS OF ANGLES
044034,000045:                                                                                                  #  A AND L CONTAIN A DP(1S) ANGLE SCALED BY 180 DEGS TO BE ADDED TO KMPAC.
044035,000046:                                                                                                  #  RESULT IS PLACED IN KMPAC.  TIMING = 6 MCT (22 MCT ON OVERFLOW)
044036,000047: 
044037,000048: 21,2072           21511        DPADD              DAS      KMPAC                                 
044038,000049: 21,2073           00006                           EXTEND                                         
044039,000050: 21,2074           12111                           BZF      TSK        +1                         #  NO OVERFLOW
044040,000051: 21,2075           11510                           CCS      KMPAC                                 
044041,000052: 21,2076           12112                           TCF      DPADD+                                #  + OVERFLOW
044042,000053: 21,2077           12101                           TCF      +2                                    
044043,000054: 21,2100           12114                           TCF      DPADD-                                #  - OVERFLOW
044044,000055: 21,2101           11511                           CCS      KMPAC      +1                         
044045,000056: 21,2102           12117                           TCF      DPADD2+                               #  UPPER = 0, LOWER +
044046,000057: 21,2103           12105                           TCF      +2                                    
044047,000058: 21,2104           40000                           COM                                            #  UPPER = 0, LOWER -
044048,000059: 21,2105           64750                           AD       POSMAX                                #  LOWER = 0, A=0
044049,000060: 21,2106           55511                           TS       KMPAC      +1                         #  CAN NOT OVERFLOW
044050,000061: 21,2107           34750                           CA       POSMAX                                #  UPPER WAS = 0
044051,000062: 21,2110           55510        TSK                TS       KMPAC                                 
044052,000063: 21,2111           00002                 +1        TC       Q                                     
044053,000064: 21,2112           64752        DPADD+             AD       NEGMAX                                #  KMPAC GREATER THAN 0
044054,000065: 21,2113           12110                           TCF      TSK                                   
044055,000066: 
044056,000067: 21,2114           40000        DPADD-             COM                                            
044057,000068: 21,2115           64750                           AD       POSMAX                                #  KMPAC LESS THAN 0

Page 998

044059,000070: 21,2116           12110                           TCF      TSK                                   
044060,000071: 
044061,000072: 21,2117           64752        DPADD2+            AD       NEGMAX                                #  CAN NOT OVERFLOW
044062,000073: 21,2120           55511                           TS       KMPAC      +1                         
044063,000074: 21,2121           34752                           CA       NEGMAX                                #  UPPER WAS = 0
044064,000075: 21,2122           12110                           TCF      TSK                                   
044065,000076: 

Page 999 Empty page


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