Source Code
|
These source-code files are part of a reconstructed copy of Artemis 071, the
first release of the Apollo 15 through 17 Command Module (CM) Apollo Guidance
Computer (AGC) software.
The reconstruction began with source code of Artemis 072 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes between the two versions. The reconstruction was verified by matching
memory-bank checksums to those listed in drawing 2021154-. Note that page
numbers in the reconstructed code match those on the Artemis 072 printout,
although the changed code would likely have changed page numbers for a real
Artemis 071 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
041989,000002: ## Copyright: Public domain.
041990,000003: ## Filename: TVCMASSPROP.agc
041991,000004: ## Purpose: A section of Artemis revision 071.
041992,000005: ## It is part of the reconstructed source code for the first
041993,000006: ## release of the flight software for the Command Module's
041994,000007: ## (CM) Apollo Guidance Computer (AGC) for Apollo 15 through
041995,000008: ## 17. The code has been recreated from a copy of Artemis 072.
041996,000009: ## It has been adapted such that the resulting bugger words
041997,000010: ## exactly match those specified for Artemis 071 in NASA
041998,000011: ## drawing 2021154-, which gives relatively high confidence
041999,000012: ## that the reconstruction is correct.
042000,000013: ## Reference: 954
042001,000014: ## Assembler: yaYUL
042002,000015: ## Contact: Ron Burkey <info@sandroid.org>.
042003,000016: ## Website: www.ibiblio.org/apollo/index.html
042004,000017: ## Mod history: 2019-08-14 MAS Created from Artemis 072.
042005,000018:
|
|
Page 954
|
042007,000020:
042008,000021: # PROGRAM NAME....MASSPROP
042009,000022: # LOG SECTION....TVCMASSPROP PROGRAMMER...MELANSON (ENGEL, SCHLUNDT)
042010,000023:
042011,000024:
042012,000025: # FUNCTIONAL DESCRIPTION:
042013,000026:
042014,000027: # MASSPROP OPERATES IN TWO MODES:(1)IF LEM MASS OR CONFIGURATION ARE UPDATED (MASSPROP DOES NOT TEST
042015,000028: # FOR THIS) THE ENTIRE PROGRAM MUST BE RUN THROUGH, BREAKPOINT VALUES AND DERIVATIVES OF THE OUTPUTS WITH
042016,000029: # RESPECT TO CSM MASS BEING CALCULATED PRIOR TO CALCULATION OF THE OUTPUTS. (2)OTHERWISE, THE OUTPUTS CAN BE
042017,000030: # CALCULATED USING PREVIOUSLY COMPUTED BREAKPOINT VALUES AND DERIVATIVES.
042018,000031:
042019,000032: # CALLING SEQUENCES
042020,000033:
042021,000034: # IF LEM MASS OR CONFIGURATION HAS BEEN UPDATED, TRANSFER TO MASSPROP, OTHERWISE TRANSFER TO FIXCW.
042022,000035: # L TC BANKCALL OR IBNKCALL
042023,000036: # L+1 CADR MASSPROP
042024,000037: # OR
042025,000038: # L+1 CADR FIXCW
042026,000039:
042027,000040: # L+2 RETURNS VIA Q
042028,000041:
042029,000042: # CALLED IN PARTICULAR BY DONOUN47 (JOB) AND TVCEXECUTIVE (TASK)
042030,000043:
042031,000044: # JOBS OR TASKS INITIATED - NONE
042032,000045:
042033,000046: # SUBROUTINES CALLED - NONE
042034,000047:
042035,000048: # ERASABLE INITIALIZATION REQUIRED
042036,000049:
042037,000050: # LEMMASS MUST CONTAIN LEM MASS SCALED AT B+16 IN KILOGRAMS
042038,000051: # CSMMASS MUST CONTAIN CSM MASS SCALED AT B+16 IN KILOGRAMS
042039,000052:
042040,000053: # DAPDATR1 MUST BE SET TO INDICATE VEHICLE CONFIGURATION.
042041,000054: # BITS (15,14,13) = ( 0 , 0 , 1 ) LEM OFF
042042,000055: # ( 0 , 1 , 0 ) LEM ON (ASCNT,DSCNT)
042043,000056: # ( 1 , 1 , 0 ) LEM ON (ASCNT ONLY)
042044,000057:
042045,000058:
042046,000059: # ALARMS - NONE
042047,000060:
042048,000061: # EXIT - TC Q
042049,000062:
042050,000063: # OUTPUTS:
042051,000064:
042052,000065: # (1)IXX, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042053,000066: # (2)IAVG, SINGLE PRECISION SCALED AT B+20 IN KG-M SQ.
042054,000067: # (3)IAVG/TLX, SINGLE PRECISION, SCALED AT B+2 SEC-SQD
042055,000068: # THEY ARE STORED IN CONSECUTIVE REGISTERS IXX0, IXX1, IXX2
042056,000069:
042057,000070: # CONVERSION FACTOR: (SLUG-FTSQ) = 0.737562 (KG-MSQ)
042058,000071:
|
|
Page 955
|
042060,000073:
042061,000074: # OUTPUTS ARE CALCULATED AS FOLLOWS :
042062,000075:
042063,000076: # (1) IF LEM DOCKED, LEMMASS IS FIRST ELIMINATED AS A PARAMETER
042064,000077:
042065,000078: # VARST0 = INTVALUE0 + LEMMASS(SLOPEVAL0) IXX BREAKPOINT VALUE
042066,000079: # VARST1 = INTVALUE1 + LEMMASS(SLOPEVAL1) IAVG BREAKPOINT VALUE
042067,000080: # VARST2 = INTVALUE2 + LEMMASS(SLOPEVAL2) IAVG/TLX BREAKPOINT VALUE
042068,000081:
042069,000082: # VARST3 = INTVALUE3 + LEMMASS(SLOPEVAL3) IAVG/TLX SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
042070,000083: # VARST4 = INTVALUE4 + LEMMASS(SLOPEVAL4) IAVG SLOPE FOR CSMMASS > 33956 LBS ( SPS > 10000 LBS)
042071,000084:
042072,000085: # VARST5 = INTVALUE5 + LEMMASS(SLOPEVAL5) IXX SLOPE FOR ALL VALUES OF CSMMASS
042073,000086:
042074,000087: # VARST6 = INTVALUE6 + LEMMASS(SLOPEVAL6) IAVG SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
042075,000088: # VARST7 = INTVALUE7 + LEMMASS(SLOPEVAL7) IAVG/TLX SLOPE FOR CSMMASS < 33956 LBS ( SPS < 10000 LBS)
042076,000089:
042077,000090: # VARST8 = INTVALUE8 + LEMMASS(SLOPEVAL8) IAVG DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042078,000091: # VARST9 = INTVALUE9 + LEMMASS(SLOPEVAL9) IAVG/TLX DECREMENT TO BRKPT VALUE WHEN LEM DSCNT STAGE OFF
042079,000092:
042080,000093: # (2) IF LEM NOT DOCKED
042081,000094:
042082,000095: # VARST0 = NOLEMVAL0 WHERE THE MEANING AND SCALING OF VARST0
042083,000096: # . . TO VARST9 ARE THE SAME AS GIVEN ABOVE
042084,000097: # . .
042085,000098: # . . NOTE... FOR THIS CASE, VARST8,9 HAVE NO
042086,000099: # VARST9 = NOLEMVAL9 MEANING (THEY ARE COMPUTED BUT NOT USED)
042087,000100:
042088,000101: # (3) THE FINAL OUTPUT CALCULATIONS ARE THEN DONE
042089,000102:
042090,000103: # IXX0 = VARST0 + (CSMMASS + NEGBPW)VARST5 IXX
042091,000104:
042092,000105: # IXX1 = VARST1 + (CSMMASS + NEGBPW)VARST(4 OR 6) IAVG
042093,000106:
042094,000107: # IXX2 = VARST2 + (CSMMASS + NEGBPW)VARST(3 OR 7) IAVG/TLX
042095,000108:
042096,000109: # THE DATA USED CAME FROM CSM/LM SPACECRAFT OPERATIONAL DATA BOOK.
042097,000110: # VOL. 3, NASA DOCUMENT SNA-8-D-027 (MARCH 1968)
042098,000111:
042099,000112: # PERTINENT MASS DATA : CSM WEIGHT (FULL) 64100 LBS
042100,000113: # (EMPTY) 23956 LBS
042101,000114: # LEM WEIGHT (FULL) 32000 LBS
042102,000115: # (EMPTY) 14116 LBS
042103,000116:
042104,000117: # (WEIGHTS ARE FROM AMENDMENT #1 (APRIL 24,1968) TO ABOVE DATA BOOK)
042105,000118:
|
|
Page 956
|
042107,000120: 05,2000 SETLOC DAPMASS
042108,000121: 05,2000 BANK
042109,000122: 05,3313 E6,1446 EBANK= CNTR
042110,000123: 05,3313 COUNT* $$/MASP
042111,000124:
042112,000125:
042113,000126: 05,3313 34322 MASSPROP CAF NINE # MASSPROP USES TVC/RCS INTERUPT TEMPS
042114,000127: 05,3314 55506 +1 TS PHI333 # SET UP TEN PASSES
042115,000128: 05,3315 31465 LEMTEST CAE DAPDATR1 # DETERMINE LEM STATUS
042116,000129: 05,3316 74754 MASK BIT13
042117,000130: 05,3317 00006 EXTEND
042118,000131: 05,3320 13324 BZF LEMYES
042119,000132:
042120,000133: 05,3321 51506 LEMNO INDEX PHI333 # LEM NOT ATTACHED
042121,000134: 05,3322 33410 CAF NOLEMVAL
042122,000135: 05,3323 13334 TCF STOINST
042123,000136:
042124,000137: 05,3324 31472 LEMYES CAE LEMMASS # LEM IS ATTACHED
042125,000138: 05,3325 60000 DOUBLE
042126,000139: 05,3326 00006 EXTEND
042127,000140: 05,3327 51506 INDEX PHI333
042128,000141: 05,3330 73432 MP SLOPEVAL
042129,000142: 05,3331 20001 DDOUBL
042130,000143: 05,3332 51506 INDEX PHI333
042131,000144: 05,3333 63420 AD INTVALUE
042132,000145:
042133,000146: 05,3334 51506 STOINST INDEX PHI333 # STORAGE INST BEGIN HERE
042134,000147: 05,3335 55511 TS VARST0
042135,000148: 05,3336 11506 CCS PHI333 # ARE ALL TEN PASSES COMPLETED
042136,000149: 05,3337 13314 TCF MASSPROP +1 # NO - GO DECREMENT PHI333
042137,000150:
042138,000151: 05,3340 11465 DXTEST CCS DAPDATR1 # IF NEG, BIT15 IS 1, LEM DSCNT STAGE OFF
042139,000152: 05,3341 13347 TCF FIXCW
042140,000153: 05,3342 13347 TCF FIXCW
042141,000154: 05,3343 53522 DXCH VARST0 +8D
042142,000155: 05,3344 21513 DAS VARST0 +1
042143,000156: 05,3345 33445 CA DXITFIX
042144,000157: 05,3346 27520 ADS VARST0 +7
042145,000158:
042146,000159: 05,3347 34767 FIXCW CAF BIT2 # COMPUTATION PHASE BEGINS HERE. SET UP
042147,000160: 05,3350 55506 TS PHI333 # THREE PASSES
042148,000161: 05,3351 55507 TS PSI333
042149,000162:
042150,000163: 05,3352 31473 CAE CSMMASS # GET DELTA CSM WEIGHT - SIGN DETERMINES
042151,000164: 05,3353 63444 AD NEGBPW # SLOPE LOCATIONS.
042152,000165: 05,3354 60000 DOUBLE
042153,000166: 05,3355 55510 TS TEMP333
042154,000167:
042155,000168: 05,3356 00006 EXTEND
042156,000169: 05,3357 63362 BZMF PEGGY # DETERMINE CORRECT SLOPE
|
|
Page 957
|
042158,000171: 05,3360 37701 CAF NEG2
042159,000172: 05,3361 55506 TS PHI333
042160,000173:
042161,000174: 05,3362 51506 PEGGY INDEX PHI333 # ALL IS READY - CALCULATE OUTPUTS NOW
042162,000175: 05,3363 31516 CAE VARST5 # GET SLOPE
042163,000176: 05,3364 00006 EXTEND
042164,000177: 05,3365 71510 MP TEMP333 # MULT BY DELTA CSM WEIGHT
042165,000178: 05,3366 60000 DOUBLE
042166,000179: 05,3367 51507 INDEX PSI333
042167,000180: 05,3370 61511 AD VARST0 # ADD BREAKPOINT VALUE
042168,000181: 05,3371 51507 INDEX PSI333
042169,000182: 05,3372 55467 TS IXX # ****** OUTPUTS (IXX0, IXX1, IXX2) ******
042170,000183:
042171,000184:
042172,000185: 05,3373 11507 CCS PSI333 # BOOKKEEPING - MASSPROP FINISHED OR NOT
042173,000186: 05,3374 13404 TCF BOKKEP2 # NO - GO TAKE CARE OF INDEXING REGISTERS
042174,000187:
042175,000188: 05,3375 31465 CAE DAPDATR1 # UPDATE WEIGHT/G
042176,000189: 05,3376 74753 MASK BIT14
042177,000190: 05,3377 10000 CCS A
042178,000191: 05,3400 31472 CA LEMMASS
042179,000192: 05,3401 61473 AD CSMMASS
042180,000193: 05,3402 55475 TS WEIGHT/G # SCALED AT B+16 IN KILOGRAMS
042181,000194: 05,3403 00002 ENDMASSP TC Q
042182,000195:
042183,000196: 05,3404 55507 BOKKEP2 TS PSI333 # REDUCE PSI BY ONE
042184,000197: 05,3405 00006 EXTEND
042185,000198: 05,3406 27506 DIM PHI333
042186,000199: 05,3407 13362 TCF PEGGY
042187,000200:
|
|
Page 958
|
042189,000202:
042190,000203: 05,3410 00616 NOLEMVAL DEC 25445. B-20
042191,000204: 05,3411 02526 DEC 87450. B-20
042192,000205: 05,3412 02352 DEC .30715 B-2
042193,000206: 05,3413 01471 DEC 1.22877 E-5 B+12
042194,000207: 05,3414 00634 DEC 1.6096 B-6
042195,000208: 05,3415 00612 DEC 1.54 B-6
042196,000209: 05,3416 03706 DEC 7.77177 B-6
042197,000210: 05,3417 04425 DEC 3.46458 E-5 B+12
042198,000211:
042199,000212: 05,3420 00644 INTVALUE DEC 26850 B-20
042200,000213: 05,3421 03710 DEC 127518 B-20
042201,000214: 05,3422 04246 DEC .54059 B-2
042202,000215: 05,3423 02011 DEC .153964 E-4 B+12
042203,000216: 05,3424 77501 DEC -.742923 B-6
042204,000217: 05,3425 00612 DEC 1.5398 B-6
042205,000218: 05,3426 04656 DEC 9.68 B-6
042206,000219: 05,3427 10372 DEC .647625 E-4 B+12
042207,000220: 05,3430 77126 DEC -27228. B-20
042208,000221: 05,3431 76261 DEC -.206476 B-2
042209,000222:
042210,000223: 05,3432 00767 SLOPEVAL DEC 1.96307 B-6
042211,000224: 05,3433 15624 DEC 27.5774 B-6
042212,000225: 05,3434 03054 DEC 2.3548 E-5 B+12
042213,000226: 05,3435 04532 DEC 2.1777 E-9 B+26
042214,000227: 05,3436 10433 DEC 1.044 E-3 B+8
042215,000228: 05,3437 00000 DEC 0 B-14
042216,000229: 05,3440 22070 DEC 2.21068 E-3 B+8
042217,000230: 05,3441 03204 DEC 1.5166 E-9 B+26
042218,000231: 05,3442 77266 DEC -1.284 B-6
042219,000232: 05,3443 02476 DEC 2. E-5 B+12
042220,000233:
042221,000234: 05,3444 70364 NEGBPW DEC -15402.17 B-16
042222,000235: 05,3445 75420 DXITFIX DEC* -1.88275 E-5 B+12*
End of include-file TVCMASSPROP.agc. Parent file is MAIN.agc