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.

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

Page 997

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

Page 998

044049,000070: 21,2116           12110                           TCF      TSK                                   
044050,000071: 
044051,000072: 21,2117           64752        DPADD2+            AD       NEGMAX                                #  CAN NOT OVERFLOW
044052,000073: 21,2120           55511                           TS       KMPAC      +1                         
044053,000074: 21,2121           34752                           CA       NEGMAX                                #  UPPER WAS = 0
044054,000075: 21,2122           12110                           TCF      TSK                                   
044055,000076: 

Page 999 Empty page


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