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. |
045553,000002: ## Copyright: Public domain. 045554,000003: ## Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc 045555,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3), 045556,000005: ## build 072. This is for the Command Module's (CM) 045557,000006: ## Apollo Guidance Computer (AGC), for 045558,000007: ## Apollo 15-17. 045559,000008: ## Assembler: yaYUL 045560,000009: ## Contact: Sergio Navarro <sergionavarrog@gmail.com> 045561,000010: ## Website: www.ibiblio.org/apollo/index.html 045562,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/ 045563,000012: ## Mod history: 2009-08-27 SN Adapted from corresponding Comanche 055 file. 045564,000013: ## 2009-09-04 JL Minor fixes. 045565,000014: ## 2010-02-20 RSB Un-##'d this header. 045566,000015: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55 045567,000016: ## and/or octopus/ProoferComments as most-appropriate. 045568,000017:
![]() |
Page 1036 |
045570,000019: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND 045571,000020: 045572,000021: # AMGB = 1 SIN(PSI) 0 045573,000022: # 0 COS(PSI)COS(PHI) SIN(PHI) 045574,000023: # 0 -COS(PSI)SIN(PHI) COS(PHI) 045575,000024: 045576,000025: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI) 045577,000026: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI) 045578,000027: # 0 SIN(PHI) COS(PHI) 045579,000028: 045580,000029: # WHERE PHI AND PSI ARE CDU ANGLES 045581,000030: 045582,000031: 22,2000 SETLOC DAPS8 045583,000032: 22,2000 BANK 045584,000033: 045585,000034: 22,3560 COUNT* $$/DAPEX 045586,000035: 22,3560 E6,1510 EBANK= KMPAC 045587,000036: 22,3560 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT 045588,000037: 22,3561 74076 MASK DPCONFIG 045589,000038: 22,3562 00006 EXTEND 045590,000039: 22,3563 65205 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1 045591,000040: 22,3564 74753 MASK DAP2BIT # IF NOT RCS, EXIT 045592,000041: 22,3565 00006 EXTEND 045593,000042: 22,3566 15205 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER 045594,000043: 045595,000044: 22,3567 30034 CA CDUZ 045596,000045: 22,3570 05061 TC SPSIN2 045597,000046: 22,3571 55640 TS AMGB1 # CALCULATE AMGB 045598,000047: 22,3572 30034 CA CDUZ 045599,000048: 22,3573 05060 TC SPCOS2 045600,000049: 22,3574 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK 045601,000050: 22,3575 34620 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET 045602,000051: 22,3576 00006 EXTEND 045603,000052: 22,3577 20032 MSU CDUX 045604,000053: 22,3600 40000 COM # CDUX - 7.25 DEG 045605,000054: 22,3601 05060 TC SPCOS1 045606,000055: 22,3602 55644 TS AMGB8 045607,000056: 22,3603 00006 EXTEND 045608,000057: 22,3604 71645 MP CAPSI 045609,000058: 22,3605 55641 TS AMGB4 045610,000059: 22,3606 34620 CAF QUADANGL 045611,000060: 22,3607 00006 EXTEND 045612,000061: 22,3610 20032 MSU CDUX 045613,000062: 22,3611 40000 COM # CDUX - 7.25 DEG 045614,000063: 22,3612 05061 TC SPSIN1 045615,000064: 22,3613 55642 TS AMGB5 045616,000065: 22,3614 00006 EXTEND 045617,000066: 22,3615 71645 MP CAPSI 045618,000067: 22,3616 40000 COM
![]() |
Page 1037 |
045620,000069: 22,3617 55643 TS AMGB7 045621,000070: 22,3620 15205 TCF ENDOFJOB 045622,000071: 4000 SETLOC FFTAG12 045623,000072: 4000 BANK 045624,000073: 045625,000074: 4620 COUNT* $$/DAPEX 045626,000075: 4620 01224 QUADANGL DEC 660 B-14 # = 7.25 DEGREES End of include-file RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc. Parent file is MAIN.agc