Source Code
|
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. 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, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
045370,000002: # Copyright: Public domain.
045371,000003: # Filename: RCS-CSM_DAP_EXECUTIVE_PROGRAMS.agc
045372,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
045373,000005: # build 072. This is for the Command Module's (CM)
045374,000006: # Apollo Guidance Computer (AGC), we believe for
045375,000007: # Apollo 15-17.
045376,000008: # Assembler: yaYUL
045377,000009: # Contact: Sergio Navarro <sergionavarrog@gmail.com>
045378,000010: # Website: www.ibiblio.org/apollo/index.html
045379,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
045380,000012: # Mod history: 2009-08-27 SN Adapted from corresponding Comanche 055 file.
045381,000013: # 2009-09-04 JL Minor fixes.
045382,000014: # 2010-02-20 RSB Un-##'d this header.
045383,000015:
|
|
Page 1036 |
045385,000017: # CALCULATION OF AMGB, AMBG ONCE EVERY SECOND
045386,000018:
045387,000019: # AMGB = 1 SIN(PSI) 0
045388,000020: # 0 COS(PSI)COS(PHI) SIN(PHI)
045389,000021: # 0 -COS(PSI)SIN(PHI) COS(PHI)
045390,000022:
045391,000023: # AMBG = 1 -TAN(PSI)COS(PHI) TAN(PSI)SIN(PHI)
045392,000024: # 0 COS(PHI)/COS(PSI) -SIN(PHI)/COS(PSI)
045393,000025: # 0 SIN(PHI) COS(PHI)
045394,000026:
045395,000027: # WHERE PHI AND PSI ARE CDU ANGLES
045396,000028:
045397,000029: 22,2000 SETLOC DAPS8
045398,000030: 22,2000 BANK
045399,000031:
045400,000032: 22,3560 COUNT* $$/DAPEX
045401,000033: 22,3560 E6,1510 EBANK= KMPAC
045402,000034: 22,3560 30102 AMBGUPDT CA FLAGWRD6 # CHECK FOR RCS AUTOPILOT
045403,000035: 22,3561 74076 MASK DPCONFIG
045404,000036: 22,3562 00006 EXTEND
045405,000037: 22,3563 65205 BZMF ENDOFJOB # BIT15 = 0, BIT14 = 1
045406,000038: 22,3564 74753 MASK DAP2BIT # IF NOT RCS, EXIT
045407,000039: 22,3565 00006 EXTEND
045408,000040: 22,3566 15205 BZF ENDOFJOB # TO PROTECT TVC DAP ON SWITCHOVER
045409,000041:
045410,000042: 22,3567 30034 CA CDUZ
045411,000043: 22,3570 05061 TC SPSIN2
045412,000044: 22,3571 55640 TS AMGB1 # CALCULATE AMGB
045413,000045: 22,3572 30034 CA CDUZ
045414,000046: 22,3573 05060 TC SPCOS2
045415,000047: 22,3574 55645 TS CAPSI # MUST CHECK FOR GIMBAL LOCK
045416,000048: 22,3575 34620 CAF QUADANGL # = 7.25 DEGREES JET QUAD ANGULAR OFFSET
045417,000049: 22,3576 00006 EXTEND
045418,000050: 22,3577 20032 MSU CDUX
045419,000051: 22,3600 40000 COM # CDUX - 7.25 DEG
045420,000052: 22,3601 05060 TC SPCOS1
045421,000053: 22,3602 55644 TS AMGB8
045422,000054: 22,3603 00006 EXTEND
045423,000055: 22,3604 71645 MP CAPSI
045424,000056: 22,3605 55641 TS AMGB4
045425,000057: 22,3606 34620 CAF QUADANGL
045426,000058: 22,3607 00006 EXTEND
045427,000059: 22,3610 20032 MSU CDUX
045428,000060: 22,3611 40000 COM # CDUX - 7.25 DEG
045429,000061: 22,3612 05061 TC SPSIN1
045430,000062: 22,3613 55642 TS AMGB5
045431,000063: 22,3614 00006 EXTEND
045432,000064: 22,3615 71645 MP CAPSI
045433,000065: 22,3616 40000 COM
|
|
Page 1037 |
045435,000067: 22,3617 55643 TS AMGB7
045436,000068: 22,3620 15205 TCF ENDOFJOB
045437,000069: 4000 SETLOC FFTAG12
045438,000070: 4000 BANK
045439,000071:
045440,000072: 4620 COUNT* $$/DAPEX
045441,000073: 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