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.

042141,000002:                                                                                                  ## Copyright:   Public domain.
042142,000003:                                                                                                  ## Filename:    TVCMASSPROP.agc
042143,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
042144,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
042145,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
042146,000007:                                                                                                  ##              Apollo 15-17.
042147,000008:                                                                                                  ## Assembler:   yaYUL
042148,000009:                                                                                                  ## Contact:     Steve Case <case1780@adelphia.net>
042149,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
042150,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
042151,000012:                                                                                                  ## Mod history: 2009-09-13 SMC  Adapted from Comanche055 files.
042152,000013:                                                                                                  ##              2009-09-14 JL   Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
042153,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
042154,000015:                                                                                                  ##              2017-02-09 RSB  Proofed comment text by diff'ing vs Comanche 55
042155,000016:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
042156,000017: 

Page 954

042158,000019: 
042159,000020:                                                                                                  #  PROGRAM NAME....MASSPROP
042160,000021:                                                                                                  #  LOG SECTION....TVCMASSPROP            PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
042161,000022: 
042162,000023: 
042163,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION:
042164,000025: 
042165,000026:                                                                                                  #        MASSPROP OPERATES IN TWO MODES:(1)IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
042166,000027:                                                                                                  #  FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
042167,000028:                                                                                                  #  RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2)OTHERWISE, THE OUTPUTS CAN BE
042168,000029:                                                                                                  #  CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
042169,000030: 
042170,000031:                                                                                                  #  CALLING SEQUENCES
042171,000032: 
042172,000033:                                                                                                  #        IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
042173,000034:                                                                                                  #                L       TC      BANKCALL OR IBNKCALL
042174,000035:                                                                                                  #                L+1     CADR    MASSPROP
042175,000036:                                                                                                  #                        OR
042176,000037:                                                                                                  #                L+1     CADR    FIXCW
042177,000038: 
042178,000039:                                                                                                  #                L+2     RETURNS VIA Q
042179,000040: 
042180,000041:                                                                                                  #  CALLED   IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
042181,000042: 
042182,000043:                                                                                                  #  JOBS OR TASKS INITIATED - NONE
042183,000044: 
042184,000045:                                                                                                  #  SUBROUTINES CALLED - NONE
042185,000046: 
042186,000047:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
042187,000048: 
042188,000049:                                                                                                  #        LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 IN KILOGRAMS
042189,000050:                                                                                                  #        CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 IN KILOGRAMS
042190,000051: 
042191,000052:                                                                                                  #        DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
042192,000053:                                                                                                  #                BITS (15,14,13)  =  ( 0 , 0 , 1 )       LEM OFF
042193,000054:                                                                                                  #                                    ( 0 , 1 , 0 )       LEM ON (ASCNT,DSCNT)
042194,000055:                                                                                                  #                                    ( 1 , 1 , 0 )       LEM ON (ASCNT ONLY)
042195,000056: 
042196,000057: 
042197,000058:                                                                                                  #  ALARMS - NONE
042198,000059: 
042199,000060:                                                                                                  #  EXIT -   TC     Q
042200,000061: 
042201,000062:                                                                                                  #  OUTPUTS:
042202,000063: 
042203,000064:                                                                                                  #        (1)IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042204,000065:                                                                                                  #        (2)IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042205,000066:                                                                                                  #        (3)IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
042206,000067:                                                                                                  #        THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
042207,000068: 
042208,000069:                                                                                                  #        CONVERSION FACTOR:  (SLUG-FTSQ) = 0.737562 (KG-MSQ)
042209,000070: 

Page 955

042211,000072: 
042212,000073:                                                                                                  #  OUTPUTS ARE CALCULATED AS FOLLOWS :
042213,000074: 
042214,000075:                                                                                                  #   (1) IF LEM DOCKED, LEMMASS IS FIRST ELIMINATED AS A PARAMETER
042215,000076: 
042216,000077:                                                                                                  #        VARST0 = INTVALUE0 + LEMMASS(SLOPEVAL0)         IXX             BREAKPOINT VALUE
042217,000078:                                                                                                  #        VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1)         IAVG            BREAKPOINT VALUE
042218,000079:                                                                                                  #        VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2)         IAVG/TLX        BREAKPOINT VALUE
042219,000080: 
042220,000081:                                                                                                  #        VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3)         IAVG/TLX        SLOPE  FOR CSMMASS > 33956 LBS  ( SPS > 10000 LBS)
042221,000082:                                                                                                  #        VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4)         IAVG            SLOPE  FOR CSMMASS > 33956 LBS  ( SPS > 10000 LBS)
042222,000083: 
042223,000084:                                                                                                  #        VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5)         IXX             SLOPE  FOR ALL VALUES OF CSMMASS
042224,000085: 
042225,000086:                                                                                                  #        VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6)         IAVG            SLOPE  FOR CSMMASS < 33956 LBS  ( SPS < 10000 LBS)
042226,000087:                                                                                                  #        VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7)         IAVG/TLX        SLOPE  FOR CSMMASS < 33956 LBS  ( SPS < 10000 LBS)
042227,000088: 
042228,000089:                                                                                                  #        VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8)         IAVG            DECREMENT  TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042229,000090:                                                                                                  #        VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9)         IAVG/TLX        DECREMENT  TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042230,000091: 
042231,000092:                                                                                                  #   (2) IF LEM NOT DOCKED
042232,000093: 
042233,000094:                                                                                                  #        VARST0 = NOLEMVAL0      WHERE THE MEANING AND SCALING OF VARST0
042234,000095:                                                                                                  #          .         .           TO VARST9 ARE THE SAME AS GIVEN ABOVE
042235,000096:                                                                                                  #          .         .
042236,000097:                                                                                                  #          .         .           NOTE... FOR THIS CASE, VARST8,9 HAVE NO
042237,000098:                                                                                                  #        VARST9 = NOLEMVAL9      MEANING (THEY ARE COMPUTED BUT NOT USED)
042238,000099: 
042239,000100:                                                                                                  #   (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
042240,000101: 
042241,000102:                                                                                                  #        IXX0 =  VARST0 + (CSMMASS + NEGBPW)VARST5               IXX
042242,000103: 
042243,000104:                                                                                                  #        IXX1 =  VARST1 + (CSMMASS + NEGBPW)VARST(4 OR 6)        IAVG
042244,000105: 
042245,000106:                                                                                                  #        IXX2 =  VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7)        IAVG/TLX
042246,000107: 
042247,000108:                                                                                                  #  THE DATA USED CAME FROM CSM/LM SPACECRAFT OPERATIONAL DATA BOOK.
042248,000109:                                                                                                  #        VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
042249,000110: 
042250,000111:                                                                                                  #  PERTINENT MASS DATA :         CSM WEIGHT  (FULL)  64100 LBS
042251,000112:                                                                                                  #                                            (EMPTY) 23956 LBS
042252,000113:                                                                                                  #                                LEM WEIGHT  (FULL)  32000 LBS
042253,000114:                                                                                                  #                                            (EMPTY) 14116 LBS
042254,000115: 
042255,000116:                                                                                                  #  (WEIGHTS ARE FROM AMENDMENT #1 (APRIL 24,1968) TO ABOVE DATA BOOK)
042256,000117: 

Page 956

042258,000119: 05,2000                                           SETLOC   DAPMASS                               
042259,000120: 05,2000                                           BANK                                           
042260,000121: 05,3313  E6,1446                                  EBANK=   CNTR                                  
042261,000122: 05,3313                                           COUNT*   $$/MASP                               
042262,000123: 
042263,000124: 
042264,000125: 05,3313           34322        MASSPROP           CAF      NINE                                  #  MASSPROP USES TVC/RCS INTERUPT TEMPS
042265,000126: 05,3314           55506                 +1        TS       PHI333                                #  SET UP TEN PASSES
042266,000127: 05,3315           31465        LEMTEST            CAE      DAPDATR1                              #  DETERMINE LEM STATUS
042267,000128: 05,3316           74754                           MASK     BIT13                                 
042268,000129: 05,3317           00006                           EXTEND                                         
042269,000130: 05,3320           13324                           BZF      LEMYES                                
042270,000131: 
042271,000132: 05,3321           51506        LEMNO              INDEX    PHI333                                #  LEM NOT ATTACHED
042272,000133: 05,3322           33410                           CAF      NOLEMVAL                              
042273,000134: 05,3323           13334                           TCF      STOINST                               
042274,000135: 
042275,000136: 05,3324           31472        LEMYES             CAE      LEMMASS                               #  LEM IS ATTACHED
042276,000137: 05,3325           60000                           DOUBLE                                         
042277,000138: 05,3326           00006                           EXTEND                                         
042278,000139: 05,3327           51506                           INDEX    PHI333                                
042279,000140: 05,3330           73432                           MP       SLOPEVAL                              
042280,000141: 05,3331           20001                           DDOUBL                                         
042281,000142: 05,3332           51506                           INDEX    PHI333                                
042282,000143: 05,3333           63420                           AD       INTVALUE                              
042283,000144: 
042284,000145: 05,3334           51506        STOINST            INDEX    PHI333                                #  STORAGE INST BEGIN HERE
042285,000146: 05,3335           55511                           TS       VARST0                                
042286,000147: 05,3336           11506                           CCS      PHI333                                #  ARE ALL TEN PASSES COMPLETED
042287,000148: 05,3337           13314                           TCF      MASSPROP   +1                         #  NO - GO DECREMENT PHI333
042288,000149: 
042289,000150: 05,3340           11465        DXTEST             CCS      DAPDATR1                              #  IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
042290,000151: 05,3341           13347                           TCF      FIXCW                                 
042291,000152: 05,3342           13347                           TCF      FIXCW                                 
042292,000153: 05,3343           53522                           DXCH     VARST0     +8D                        
042293,000154: 05,3344           21513                           DAS      VARST0     +1                         
042294,000155: 05,3345           33445                           CA       DXITFIX                               
042295,000156: 05,3346           27520                           ADS      VARST0     +7                         
042296,000157: 
042297,000158: 05,3347           34767        FIXCW              CAF      BIT2                                  #  COMPUTATION PHASE BEGINS HERE.  SET UP
042298,000159: 05,3350           55506                           TS       PHI333                                #  THREE PASSES
042299,000160: 05,3351           55507                           TS       PSI333                                
042300,000161: 
042301,000162: 05,3352           31473                           CAE      CSMMASS                               #  GET DELTA CSM WEIGHT - SIGN DETERMINES
042302,000163: 05,3353           63444                           AD       NEGBPW                                #  SLOPE LOCATIONS.
042303,000164: 05,3354           60000                           DOUBLE                                         
042304,000165: 05,3355           55510                           TS       TEMP333                               
042305,000166: 
042306,000167: 05,3356           00006                           EXTEND                                         
042307,000168: 05,3357           63362                           BZMF     PEGGY                                 #  DETERMINE CORRECT SLOPE

Page 957

042309,000170: 05,3360           37701                           CAF      NEG2                                  
042310,000171: 05,3361           55506                           TS       PHI333                                
042311,000172: 
042312,000173: 05,3362           51506        PEGGY              INDEX    PHI333                                #  ALL IS READY - CALCULATE OUTPUTS NOW
042313,000174: 05,3363           31516                           CAE      VARST5                                #  GET SLOPE
042314,000175: 05,3364           00006                           EXTEND                                         
042315,000176: 05,3365           71510                           MP       TEMP333                               #  MULT BY DELTA CSM WEIGHT
042316,000177: 05,3366           60000                           DOUBLE                                         
042317,000178: 05,3367           51507                           INDEX    PSI333                                
042318,000179: 05,3370           61511                           AD       VARST0                                #  ADD BREAKPOINT VALUE
042319,000180: 05,3371           51507                           INDEX    PSI333                                
042320,000181: 05,3372           55467                           TS       IXX                                   #  ****** OUTPUTS (IXX0, IXX1, IXX2) ******
042321,000182: 
042322,000183: 
042323,000184: 05,3373           11507                           CCS      PSI333                                #  BOOKKEEPING  - MASSPROP FINISHED OR NOT
042324,000185: 05,3374           13404                           TCF      BOKKEP2                               #  NO - GO TAKE CARE OF INDEXING REGISTERS
042325,000186: 
042326,000187: 05,3375           31465                           CAE      DAPDATR1                              #  UPDATE WEIGHT/G
042327,000188: 05,3376           74753                           MASK     BIT14                                 
042328,000189: 05,3377           10000                           CCS      A                                     
042329,000190: 05,3400           31472                           CA       LEMMASS                               
042330,000191: 05,3401           61473                           AD       CSMMASS                               
042331,000192: 05,3402           55475                           TS       WEIGHT/G                              #  SCALED AT B+16 IN KILOGRAMS
042332,000193: 05,3403           00002        ENDMASSP           TC       Q                                     
042333,000194: 
042334,000195: 05,3404           55507        BOKKEP2            TS       PSI333                                #  REDUCE PSI BY ONE
042335,000196: 05,3405           00006                           EXTEND                                         
042336,000197: 05,3406           27506                           DIM      PHI333                                
042337,000198: 05,3407           13362                           TCF      PEGGY                                 
042338,000199: 

Page 958

042340,000201: 
042341,000202: 05,3410           00616        NOLEMVAL           DEC      25445.     B-20                       
042342,000203: 05,3411           02526                           DEC      87450.     B-20                       
042343,000204: 05,3412           02352                           DEC      .30715     B-2                        
042344,000205: 05,3413           01471                           DEC      1.22877    E-5        B+12            
042345,000206: 05,3414           00634                           DEC      1.6096     B-6                        
042346,000207: 05,3415           00612                           DEC      1.54       B-6                        
042347,000208: 05,3416           03706                           DEC      7.77177    B-6                        
042348,000209: 05,3417           04425                           DEC      3.46458    E-5        B+12            
042349,000210: 
042350,000211: 05,3420           00644        INTVALUE           DEC      26850      B-20                       
042351,000212: 05,3421           03710                           DEC      127518     B-20                       
042352,000213: 05,3422           04246                           DEC      .54059     B-2                        
042353,000214: 05,3423           02011                           DEC      .153964    E-4        B+12            
042354,000215: 05,3424           77501                           DEC      -.742923   B-6                        
042355,000216: 05,3425           00612                           DEC      1.5398     B-6                        
042356,000217: 05,3426           04656                           DEC      9.68       B-6                        
042357,000218: 05,3427           10372                           DEC      .647625    E-4        B+12            
042358,000219: 05,3430           77126                           DEC      -27228.    B-20                       
042359,000220: 05,3431           76261                           DEC      -.206476   B-2                        
042360,000221: 
042361,000222: 05,3432           00767        SLOPEVAL           DEC      1.96307    B-6                        
042362,000223: 05,3433           15624                           DEC      27.5774    B-6                        
042363,000224: 05,3434           03054                           DEC      2.3548     E-5        B+12            
042364,000225: 05,3435           04532                           DEC      2.1777     E-9        B+26            
042365,000226: 05,3436           10433                           DEC      1.044      E-3        B+8             
042366,000227: 05,3437           00000                           DEC      0          B-14                       
042367,000228: 05,3440           22070                           DEC      2.21068    E-3        B+8             
042368,000229: 05,3441           03204                           DEC      1.5166     E-9        B+26            
042369,000230: 05,3442           77266                           DEC      -1.284     B-6                        
042370,000231: 05,3443           02476                           DEC      2.         E-5        B+12            
042371,000232: 
042372,000233: 05,3444           70364        NEGBPW             DEC      -15402.17  B-16                       
042373,000234: 05,3445           75420        DXITFIX            DEC*     -1.88275   E-5        B+12*           

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