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, 1971Note that the date is the date of the printout, not the date of the program revision. |
042131,000002: ## Copyright: Public domain.
042132,000003: ## Filename: TVCMASSPROP.agc
042133,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
042134,000005: ## build 072. This is for the Command Module's (CM)
042135,000006: ## Apollo Guidance Computer (AGC), for
042136,000007: ## Apollo 15-17.
042137,000008: ## Assembler: yaYUL
042138,000009: ## Contact: Steve Case <case1780@adelphia.net>
042139,000010: ## Website: www.ibiblio.org/apollo/index.html
042140,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
042141,000012: ## Mod history: 2009-09-13 SMC Adapted from Comanche055 files.
042142,000013: ## 2009-09-14 JL Fix typos. Fix page numbers. Remove change comments. Restore hard tabs.
042143,000014: ## 2010-02-20 RSB Un-##'d this header.
042144,000015: ## 2017-02-09 RSB Proofed comment text by diff'ing vs Comanche 55
042145,000016: ## and/or octopus/ProoferComments as most-appropriate.
042146,000017:
![]() |
Page 954 |
042148,000019:
042149,000020: # PROGRAM NAME....MASSPROP
042150,000021: # LOG SECTION....TVCMASSPROP PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
042151,000022:
042152,000023:
042153,000024: # FUNCTIONAL DESCRIPTION:
042154,000025:
042155,000026: # MASSPROP OPERATES IN TWO MODES:(1)IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
042156,000027: # FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
042157,000028: # RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2)OTHERWISE, THE OUTPUTS CAN BE
042158,000029: # CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
042159,000030:
042160,000031: # CALLING SEQUENCES
042161,000032:
042162,000033: # IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
042163,000034: # L TC BANKCALL OR IBNKCALL
042164,000035: # L+1 CADR MASSPROP
042165,000036: # OR
042166,000037: # L+1 CADR FIXCW
042167,000038:
042168,000039: # L+2 RETURNS VIA Q
042169,000040:
042170,000041: # CALLED IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
042171,000042:
042172,000043: # JOBS OR TASKS INITIATED - NONE
042173,000044:
042174,000045: # SUBROUTINES CALLED - NONE
042175,000046:
042176,000047: # ERASABLE INITIALIZATION REQUIRED
042177,000048:
042178,000049: # LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 IN KILOGRAMS
042179,000050: # CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 IN KILOGRAMS
042180,000051:
042181,000052: # DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
042182,000053: # BITS (15,14,13) = ( 0 , 0 , 1 ) LEM OFF
042183,000054: # ( 0 , 1 , 0 ) LEM ON (ASCNT,DSCNT)
042184,000055: # ( 1 , 1 , 0 ) LEM ON (ASCNT ONLY)
042185,000056:
042186,000057:
042187,000058: # ALARMS - NONE
042188,000059:
042189,000060: # EXIT - TC Q
042190,000061:
042191,000062: # OUTPUTS:
042192,000063:
042193,000064: # (1)IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042194,000065: # (2)IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042195,000066: # (3)IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
042196,000067: # THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
042197,000068:
042198,000069: # CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
042199,000070:
![]() |
Page 955 |
042201,000072:
042202,000073: # OUTPUTS ARE CALCULATED AS FOLLOWS :
042203,000074:
042204,000075: # (1) IF LEM DOCKED, LEMMASS IS FIRST ELIMINATED AS A PARAMETER
042205,000076:
042206,000077: # VARST0 = INTVALUE0 + LEMMASS(SLOPEVAL0) IXX BREAKPOINT VALUE
042207,000078: # VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1) IAVG BREAKPOINT VALUE
042208,000079: # VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2) IAVG/TLX BREAKPOINT VALUE
042209,000080:
042210,000081: # VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3) IAVG/TLX SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
042211,000082: # VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4) IAVG SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
042212,000083:
042213,000084: # VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5) IXX SLOPE FOR ALL VALUES OF CSMMASS
042214,000085:
042215,000086: # VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6) IAVG SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
042216,000087: # VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7) IAVG/TLX SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
042217,000088:
042218,000089: # VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8) IAVG DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042219,000090: # VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9) IAVG/TLX DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042220,000091:
042221,000092: # (2) IF LEM NOT DOCKED
042222,000093:
042223,000094: # VARST0 = NOLEMVAL0 WHERE THE MEANING AND SCALING OF VARST0
042224,000095: # . . TO VARST9 ARE THE SAME AS GIVEN ABOVE
042225,000096: # . .
042226,000097: # . . NOTE... FOR THIS CASE, VARST8,9 HAVE NO
042227,000098: # VARST9 = NOLEMVAL9 MEANING (THEY ARE COMPUTED BUT NOT USED)
042228,000099:
042229,000100: # (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
042230,000101:
042231,000102: # IXX0 = VARST0 + (CSMMASS + NEGBPW)VARST5 IXX
042232,000103:
042233,000104: # IXX1 = VARST1 + (CSMMASS + NEGBPW)VARST(4 OR 6) IAVG
042234,000105:
042235,000106: # IXX2 = VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7) IAVG/TLX
042236,000107:
042237,000108: # THE DATA USED CAME FROM CSM/LM SPACECRAFT OPERATIONAL DATA BOOK.
042238,000109: # VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
042239,000110:
042240,000111: # PERTINENT MASS DATA : CSM WEIGHT (FULL) 64100 LBS
042241,000112: # (EMPTY) 23956 LBS
042242,000113: # LEM WEIGHT (FULL) 32000 LBS
042243,000114: # (EMPTY) 14116 LBS
042244,000115:
042245,000116: # (WEIGHTS ARE FROM AMENDMENT #1 (APRIL 24,1968) TO ABOVE DATA BOOK)
042246,000117:
![]() |
Page 956 |
042248,000119: 05,2000 SETLOC DAPMASS
042249,000120: 05,2000 BANK
042250,000121: 05,3313 E6,1446 EBANK= CNTR
042251,000122: 05,3313 COUNT* $$/MASP
042252,000123:
042253,000124:
042254,000125: 05,3313 34322 MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERUPT TEMPS
042255,000126: 05,3314 55506 +1 TS PHI333 # SET UP TEN PASSES
042256,000127: 05,3315 31465 LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
042257,000128: 05,3316 74754 MASK BIT13
042258,000129: 05,3317 00006 EXTEND
042259,000130: 05,3320 13324 BZF LEMYES
042260,000131:
042261,000132: 05,3321 51506 LEMNO INDEX PHI333 # LEM NOT ATTACHED
042262,000133: 05,3322 33410 CAF NOLEMVAL
042263,000134: 05,3323 13334 TCF STOINST
042264,000135:
042265,000136: 05,3324 31472 LEMYES CAE LEMMASS # LEM IS ATTACHED
042266,000137: 05,3325 60000 DOUBLE
042267,000138: 05,3326 00006 EXTEND
042268,000139: 05,3327 51506 INDEX PHI333
042269,000140: 05,3330 73432 MP SLOPEVAL
042270,000141: 05,3331 20001 DDOUBL
042271,000142: 05,3332 51506 INDEX PHI333
042272,000143: 05,3333 63420 AD INTVALUE
042273,000144:
042274,000145: 05,3334 51506 STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
042275,000146: 05,3335 55511 TS VARST0
042276,000147: 05,3336 11506 CCS PHI333 # ARE ALL TEN PASSES COMPLETED
042277,000148: 05,3337 13314 TCF MASSPROP +1 # NO - GO DECREMENT PHI333
042278,000149:
042279,000150: 05,3340 11465 DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
042280,000151: 05,3341 13347 TCF FIXCW
042281,000152: 05,3342 13347 TCF FIXCW
042282,000153: 05,3343 53522 DXCH VARST0 +8D
042283,000154: 05,3344 21513 DAS VARST0 +1
042284,000155: 05,3345 33445 CA DXITFIX
042285,000156: 05,3346 27520 ADS VARST0 +7
042286,000157:
042287,000158: 05,3347 34767 FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
042288,000159: 05,3350 55506 TS PHI333 # THREE PASSES
042289,000160: 05,3351 55507 TS PSI333
042290,000161:
042291,000162: 05,3352 31473 CAE CSMMASS # GET DELTA CSM WEIGHT - SIGN DETERMINES
042292,000163: 05,3353 63444 AD NEGBPW # SLOPE LOCATIONS.
042293,000164: 05,3354 60000 DOUBLE
042294,000165: 05,3355 55510 TS TEMP333
042295,000166:
042296,000167: 05,3356 00006 EXTEND
042297,000168: 05,3357 63362 BZMF PEGGY # DETERMINE CORRECT SLOPE
![]() |
Page 957 |
042299,000170: 05,3360 37701 CAF NEG2
042300,000171: 05,3361 55506 TS PHI333
042301,000172:
042302,000173: 05,3362 51506 PEGGY INDEX PHI333 # ALL IS READY - CALCULATE OUTPUTS NOW
042303,000174: 05,3363 31516 CAE VARST5 # GET SLOPE
042304,000175: 05,3364 00006 EXTEND
042305,000176: 05,3365 71510 MP TEMP333 # MULT BY DELTA CSM WEIGHT
042306,000177: 05,3366 60000 DOUBLE
042307,000178: 05,3367 51507 INDEX PSI333
042308,000179: 05,3370 61511 AD VARST0 # ADD BREAKPOINT VALUE
042309,000180: 05,3371 51507 INDEX PSI333
042310,000181: 05,3372 55467 TS IXX # ****** OUTPUTS (IXX0, IXX1, IXX2) ******
042311,000182:
042312,000183:
042313,000184: 05,3373 11507 CCS PSI333 # BOOKKEEPING - MASSPROP FINISHED OR NOT
042314,000185: 05,3374 13404 TCF BOKKEP2 # NO - GO TAKE CARE OF INDEXING REGISTERS
042315,000186:
042316,000187: 05,3375 31465 CAE DAPDATR1 # UPDATE WEIGHT/G
042317,000188: 05,3376 74753 MASK BIT14
042318,000189: 05,3377 10000 CCS A
042319,000190: 05,3400 31472 CA LEMMASS
042320,000191: 05,3401 61473 AD CSMMASS
042321,000192: 05,3402 55475 TS WEIGHT/G # SCALED AT B+16 IN KILOGRAMS
042322,000193: 05,3403 00002 ENDMASSP TC Q
042323,000194:
042324,000195: 05,3404 55507 BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
042325,000196: 05,3405 00006 EXTEND
042326,000197: 05,3406 27506 DIM PHI333
042327,000198: 05,3407 13362 TCF PEGGY
042328,000199:
![]() |
Page 958 |
042330,000201:
042331,000202: 05,3410 00616 NOLEMVAL DEC 25445. B-20
042332,000203: 05,3411 02526 DEC 87450. B-20
042333,000204: 05,3412 02352 DEC .30715 B-2
042334,000205: 05,3413 01471 DEC 1.22877 E-5 B+12
042335,000206: 05,3414 00634 DEC 1.6096 B-6
042336,000207: 05,3415 00612 DEC 1.54 B-6
042337,000208: 05,3416 03706 DEC 7.77177 B-6
042338,000209: 05,3417 04425 DEC 3.46458 E-5 B+12
042339,000210:
042340,000211: 05,3420 00644 INTVALUE DEC 26850 B-20
042341,000212: 05,3421 03710 DEC 127518 B-20
042342,000213: 05,3422 04246 DEC .54059 B-2
042343,000214: 05,3423 02011 DEC .153964 E-4 B+12
042344,000215: 05,3424 77501 DEC -.742923 B-6
042345,000216: 05,3425 00612 DEC 1.5398 B-6
042346,000217: 05,3426 04656 DEC 9.68 B-6
042347,000218: 05,3427 10372 DEC .647625 E-4 B+12
042348,000219: 05,3430 77126 DEC -27228. B-20
042349,000220: 05,3431 76261 DEC -.206476 B-2
042350,000221:
042351,000222: 05,3432 00767 SLOPEVAL DEC 1.96307 B-6
042352,000223: 05,3433 15624 DEC 27.5774 B-6
042353,000224: 05,3434 03054 DEC 2.3548 E-5 B+12
042354,000225: 05,3435 04532 DEC 2.1777 E-9 B+26
042355,000226: 05,3436 10433 DEC 1.044 E-3 B+8
042356,000227: 05,3437 00000 DEC 0 B-14
042357,000228: 05,3440 22070 DEC 2.21068 E-3 B+8
042358,000229: 05,3441 03204 DEC 1.5166 E-9 B+26
042359,000230: 05,3442 77266 DEC -1.284 B-6
042360,000231: 05,3443 02476 DEC 2. E-5 B+12
042361,000232:
042362,000233: 05,3444 70364 NEGBPW DEC -15402.17 B-16
042363,000234: 05,3445 75420 DXITFIX DEC* -1.88275 E-5 B+12*
End of include-file TVCMASSPROP.agc. Parent file is MAIN.agc