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