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. |
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