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. |
041435,000002: ## Copyright: Public domain.
041436,000003: ## Filename: S-BAND_ANTENNA_FOR_CM.agc
041437,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
041438,000005: ## build 072. This is for the Command Module's (CM)
041439,000006: ## Apollo Guidance Computer (AGC), for
041440,000007: ## Apollo 15-17.
041441,000008: ## Assembler: yaYUL
041442,000009: ## Contact: Steve Case <case.steve@gmail.com>
041443,000010: ## Website: www.ibiblio.org/apollo/index.html
041444,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
041445,000012: ## Mod history: 2009-09-01 SMC Adapted from Comanche055 files.
041446,000013: ## 2009-09-04 JL Fixed page comments. Fixed typos.
041447,000014: ## 2010-02-20 RSB Un-##'d this header.
041448,000015: ## 2017-02-08 RSB Proofed comment text by diff'ing vs Comanche 55
041449,000016: ## and/or octopus/ProoferComments as most-appropriate.
041450,000017:
|
|
Page 940 |
041452,000019: 42,2000 SETLOC SBAND
041453,000020: 42,2000 BANK
041454,000021:
041455,000022: 42,3504 COUNT* $$/R05
041456,000023: 42,3504 E4,1417 EBANK= EMSALT
041457,000024:
041458,000025: 42,3504 06006 SBANDANT TC INTPRET
041459,000026: 42,3505 45034 RTB CALL
041460,000027: 42,3506 51751 LOADTIME # PICKUP CURRENT TIME SCALED B-28
041461,000028: 42,3507 47530 CDUTRIG # COMPUTE SINES AND COSINES OF CDU ANGLES
041462,000029: 42,3510 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
041463,000030: 42,3511 27170 CSMCONIC # USING CONIC INTEGRATION
041464,000031: 42,3512 46135 SLOAD BHIZ # ORIGIN OF REFERENCE INERTIAL SYSTEM IS
041465,000032: 42,3513 00050 X2 # EARTH = 0, MOON = 2
041466,000033: 42,3514 65527 EISOI
041467,000034: 42,3515 77775 VLOAD
041468,000035: 42,3516 00001 RATT
041469,000036: 42,3517 00003 STORE RCM # MOVE RATT TO PREVENT WIPEOUT
041470,000037: 42,3520 45145 DLOAD CALL # MOON, PUSH ON
041471,000038: 42,3521 00015 TAT # GET ORIGINAL TIME
041472,000039: 42,3522 54141 LUNPOS # COMPUTE POSITION VECTOR OF MOON
041473,000040: 42,3523 57455 VAD VCOMP # R= -(REM+RCM) = NEG. OF S/C POS. VEC
041474,000041: 42,3524 00003 RCM
041475,000042: 42,3525 77650 GOTO
041476,000043: 42,3526 65531 EISOI +2
041477,000044: 42,3527 57575 EISOI VLOAD VCOMP # EARTH, R= -RCM
041478,000045: 42,3530 00001 RATT
041479,000046: 42,3531 64201 SETPD MXV # RCS TO STABLE MEMBER- B-1X B-29X B+1
041480,000047: 42,3532 00003 2D # 2D
041481,000048: 42,3533 01734 REFSMMAT # STABLE MEMBER. B-1X B-29X B+1= B-29
041482,000049: 42,3534 65372 VSL1 PDDL # 8D
041483,000050: 42,3535 15336 HI6ZEROS
041484,000051: 42,3536 24025 STOVL YAWANG # ZERO OUT YAWANG, SET UP FOR SMNB
041485,000052: 42,3537 00003 RCM # TRANSFORMATION. SM COORD. SCALED B-29
041486,000053: 42,3540 77624 CALL
041487,000054: 42,3541 47633 *SMNB*
041488,000055: 42,3542 00003 STORE R # SAVE NAV. BASE COORDINATES
041489,000056: 42,3543 63256 UNIT PDVL # 14D
041490,000057: 42,3544 00003 R
041491,000058: 42,3545 72431 VPROJ VSL2 # COMPUTE PROJECTION OF VECTOR INTO CM
041492,000059: 42,3546 15330 HIUNITZ # XY-PLANE, R-(R.UZ)UZ
041493,000060: 42,3547 40045 BVSU BOV # CLEAR OVERFLOW INDICATOR IF SET
041494,000061: 42,3550 00003 R
041495,000062: 42,3551 65552 COVCNV
041496,000063: 42,3552 40056 COVCNV UNIT BOV # TEST OVERFLOW FOR INDICATION OF NULL
041497,000064: 42,3553 65567 NOADJUST # VECTOR
041498,000065: 42,3554 50206 PUSH DOT # 20D
041499,000066: 42,3555 15334 HIUNITX # COMPUTE YAW ANGLE = ACOS (URP.UX)
041500,000067: 42,3556 65552 SL1 ACOS # REVOLUTIONS SCALED B0
041501,000068: 42,3557 50315 PDVL DOT # 22D YAWANG
|
|
Page 941 |
041503,000070: 42,3560 00017 URP
041504,000071: 42,3561 15332 HIUNITY # COMPUTE FOLLOWING- URP.UY
041505,000072: 42,3562 51152 SL1 BPL # POSITIVE
041506,000073: 42,3563 65567 NOADJUST # YES, 0- 180 DEGREES
041507,000074: 42,3564 45345 DLOAD DSU # NO, 181-360 DEGREES 20D
041508,000075: 42,3565 15344 DPPOSMAX # COMPUTE 2 PI MINUS YAW ANGLE
041509,000076: 42,3566 77606 PUSH # 22D YAWANG
041510,000077: 42,3567 50375 NOADJUST VLOAD DOT # COMPUTE PITCH ANGLE
041511,000078: 42,3570 00011 UR # ACOS (UR.UZ) - PI/2
041512,000079: 42,3571 15330 HIUNITZ
041513,000080: 42,3572 65552 SL1 ACOS # REVOLUTIONS B0
041514,000081: 42,3573 77625 DSU
041515,000082: 42,3574 15326 HIDP1/4
041516,000083: 42,3575 16312 STODL RHOSB
041517,000084: 42,3576 00025 YAWANG
041518,000085: 42,3577 02314 STORE GAMMASB # PATCH FOR CHECKOUT
041519,000086: 42,3600 77776 EXIT
041520,000087: 42,3601 35047 CAF PRIO5
041521,000088: 42,3602 05176 TC PRIOCHNG
041522,000089:
041523,000090: 42,3603 31247 CA EXTVBACT # IS BIT 5 STILL ON
041524,000091: 42,3604 74764 MASK BIT5
041525,000092: 42,3605 00006 EXTEND
041526,000093: 42,3606 15524 BZF ENDEXT # NO, WE HAVE BEEN ANSWERED
041527,000094: 42,3607 33625 CAF V06N51 # DISPLAY ANGLES
041528,000095: 42,3610 04636 TC BANKCALL
041529,000096: 42,3611 20607 CADR GOMARKFR
041530,000097: 42,3612 05626 TC B5OFF # TERMINATE
041531,000098: 42,3613 05626 TC B5OFF
041532,000099: 42,3614 05205 TC ENDOFJOB # RECYCLE
041533,000100: 42,3615 34766 CAF BIT3 # IMMEDIATE RETURN
041534,000101: 42,3616 05516 TC BLANKET # BLANK R3
041535,000102: 42,3617 34755 CAF PRIO4
041536,000103: 42,3620 05176 TC PRIOCHNG
041537,000104:
041538,000105: 42,3621 34770 CAF BIT1 # DELAY MINIMUM TIME TO ALLOW DISPLAY IN
041539,000106: 42,3622 04636 TC BANKCALL
041540,000107: 42,3623 01731 CADR DELAYJOB
041541,000108: 42,3624 13504 TCF SBANDANT
041542,000109: 42,3625 01463 V06N51 VN 0651
041543,000110: 42,3626 RCM EQUALS 2D
041544,000111: 42,3626 UR EQUALS 8D
041545,000112: 42,3626 URP EQUALS 14D
041546,000113: 42,3626 YAWANG EQUALS 20D
041547,000114: 42,3626 PITCHANG EQUALS 22D
041548,000115: 42,3626 0000002 R EQUALS RCM
041549,000116: 42,3626 30,2000 SBANK= LOWSUPER
041550,000117:
|
|
Page 942 This page contains only assembler-generated messages. |
041553,000120:
041554,000121:
End of include-file S-BAND_ANTENNA_FOR_CM.agc. Parent file is MAIN.agc