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