Source Code
![]() |
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Peter McDermott.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES DEC 13, 1966 THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 OF PROGRAM SUNBURST BY LEM GROUPNote that the date is the date of the printout, not the date of the program revision. |
023617,000002: ## Copyright: Public domain.
023618,000003: ## Filename: RCS_FAILURE_MONITOR.agc
023619,000004: ## Purpose: A section of Sunburst revision 37, or Shepatin revision 0.
023620,000005: ## It is part of an early development version of the software
023621,000006: ## for Apollo Guidance Computer (AGC) on the unmanned Lunar
023622,000007: ## Module (LM) flight Apollo 5. Sunburst 37 was the program
023623,000008: ## upon which Don Eyles's offline development program Shepatin
023624,000009: ## was based; the listing herein transcribed was actually for
023625,000010: ## the equivalent revision 0 of Shepatin.
023626,000011: ## This file is intended to be a faithful transcription, except
023627,000012: ## that the code format has been changed to conform to the
023628,000013: ## requirements of the yaYUL assembler rather than the
023629,000014: ## original YUL assembler.
023630,000015: ## Reference: pp. 535-537
023631,000016: ## Assembler: yaYUL
023632,000017: ## Contact: Ron Burkey <info@sandroid.org>.
023633,000018: ## Website: www.ibiblio.org/apollo/index.html
023634,000019: ## Mod history: 2017-05-24 MAS Created from Sunburst 120.
023635,000020: ## 2017-05-31 HG Transcribed
023636,000021: ## 2017-06-15 HG Fix operand BIT6 -> BIT8
023637,000022: ## 2017-06-22 RSB Proofed comment text with
023638,000023: ## octopus/ProoferComments.
023639,000024:
![]() |
Page 535 |
023641,000026: # FAILURE MONITOR FOR LM RCS JETS (4 TIMES A SECOND).
023642,000027:
023643,000028: # *** FAILSW CAPABILITY FOR CHECKOUT ONLY ***
023644,000029:
023645,000030: 20,2677 E6,1541 EBANK= DT
023646,000031: 12,3203 BANK 12
023647,000032:
023648,000033: 12,3203 15751 RCSMONIT TCF RESUME # *** TO STOP ENDLESS LOOPS. ***
023649,000034:
023650,000035:
023651,000036:
023652,000037: 12,3204 15751 TCF ENDRCSFL # DO NOTHING IF POSITIVE
023653,000038:
023654,000039: 12,3205 31501 CA LASTFAIL # LAST FAILURE CHANNEL VALUE
023655,000040: 12,3206 00006 EXTEND
023656,000041: 12,3207 06032 RXOR 32
023657,000042: 12,3210 74553 MASK LOW8
023658,000043: 12,3211 00006 EXTEND
023659,000044: 12,3212 15751 BZF NOSTCHG # NO STATUS CHANGE, FINISHED
023660,000045:
023661,000046: 12,3213 00006 EXTEND
023662,000047: 12,3214 33217 DCA MNTRCS
023663,000048: 12,3215 52006 DTCB
023664,000049: 12,3216 E6,1541 EBANK= DT
023665,000050: 12,3216 02677 40006 MNTRCS 2CADR RCSMNTR
023666,000051: 12,3220 ENDT4S EQUALS
023667,000052:
023668,000053:
023669,000054: 20,2677 BANK 20
023670,000055: 20,2677 E6,1541 EBANK= DT
023671,000056: 20,2677 37761 RCSMNTR CA ZERO # THERE IS A DIFFERENCE, CLEAR MASKS
023672,000057: 20,2700 55502 TS CH5MASK
023673,000058: 20,2701 55503 TS CH6MASK
023674,000059:
023675,000060: 20,2702 00006 EXTEND # READ PRESENT FAILURES
023676,000061: 20,2703 00032 READ 32
023677,000062: 20,2704 55501 TS LASTFAIL # SAVE FOR NEXT PASS
023678,000063:
023679,000064: 20,2705 40000 COM # FAILURES NOW ONES
023680,000065: 20,2706 00006 EXTEND
023681,000066: 20,2707 77747 MP BIT7 # SHIFT TO TEST LOW 8 BITS
023682,000067: 20,2710 37761 CA ZERO
023683,000068:
023684,000069: 20,2711 54061 TS FAILCTR # INITIALIZE COUNTER
023685,000070: 20,2712 30001 CA L
023686,000071: 20,2713 12716 TCF NXTRCSPR +1
023687,000072:
023688,000073: 20,2714 67755 -1 AD BIT1
023689,000074: 20,2715 24061 NXTRCSPR INCR FAILCTR
023690,000075: 20,2716 60000 +1 DOUBLE
023691,000076:
![]() |
Page 536 |
023693,000078: 20,2717 54062 TS FAILTEMP # OVERFLOW CHECK
023694,000079: 20,2720 12715 TCF NXTRCSPR
023695,000080:
023696,000081: 20,2721 50061 INDEX FAILCTR
023697,000082: 20,2722 02726 TC RCSFJUMP # GO THROUGH JUMP TABLE
023698,000083:
023699,000084: 20,2723 10062 CCS FAILTEMP
023700,000085: 20,2724 12714 TCF NXTRCSPR -1 # FINISH EARLY, OR MORE TO DO
023701,000086:
023702,000087: 20,2725 15751 TCF ENDRCSFL
023703,000088: 20,2726 12736 RCSFJUMP TCF FM10/11
023704,000089: 20,2727 12743 TCF FM9/12
023705,000090: 20,2730 12750 TCF FM13/15
023706,000091: 20,2731 12755 TCF FM14/16
023707,000092: 20,2732 12762 TCF FM6/7
023708,000093: 20,2733 12767 TCF FM1/3
023709,000094: 20,2734 12774 TCF FM5/8
023710,000095: 20,2735 13001 TCF FM2/4
023711,000096:
023712,000097: 20,2736 37750 FM10/11 CA BIT6
023713,000098: 20,2737 27502 ADS CH5MASK
023714,000099: 20,2740 37752 CA BIT4
023715,000100: 20,2741 27503 ADS CH6MASK
023716,000101: 20,2742 00002 TC Q
023717,000102:
023718,000103: 20,2743 37751 FM9/12 CA BIT5
023719,000104:
023720,000105: 20,2744 27502 ADS CH5MASK
023721,000106: 20,2745 37751 CA BIT5
023722,000107: 20,2746 27503 ADS CH6MASK
023723,000108: 20,2747 00002 TC Q
023724,000109:
023725,000110: 20,2750 37747 FM13/15 CA BIT7
023726,000111: 20,2751 27502 ADS CH5MASK
023727,000112: 20,2752 37753 CA BIT3
023728,000113: 20,2753 27503 ADS CH6MASK
023729,000114: 20,2754 00002 TC Q
023730,000115:
023731,000116: 20,2755 37746 FM14/16 CA BIT8
023732,000117: 20,2756 27502 ADS CH5MASK
023733,000118: 20,2757 37746 CA BIT8
023734,000119: 20,2760 27503 ADS CH6MASK
023735,000120: 20,2761 00002 TC Q
023736,000121:
023737,000122: 20,2762 37752 FM6/7 CA BIT4
023738,000123: 20,2763 27502 ADS CH5MASK
023739,000124: 20,2764 37755 CA BIT1
023740,000125: 20,2765 27503 ADS CH6MASK
023741,000126: 20,2766 00002 TC Q
023742,000127:
023743,000128: 20,2767 37755 FM1/3 CA BIT1
023744,000129:
![]() |
Page 537 |
023746,000131: 20,2770 27502 ADS CH5MASK
023747,000132: 20,2771 37754 CA BIT2
023748,000133: 20,2772 27503 ADS CH6MASK
023749,000134: 20,2773 00002 TC Q
023750,000135:
023751,000136: 20,2774 37753 FM5/8 CA BIT3
023752,000137: 20,2775 27502 ADS CH5MASK
023753,000138: 20,2776 37750 CA BIT6
023754,000139:
023755,000140: 20,2777 27503 ADS CH6MASK
023756,000141: 20,3000 00002 TC Q
023757,000142:
023758,000143: 20,3001 37754 FM2/4 CA BIT2
023759,000144: 20,3002 27502 ADS CH5MASK
023760,000145: 20,3003 37747 CA BIT7
023761,000146: 20,3004 27503 ADS CH6MASK
023762,000147: 20,3005 00002 TC Q
023763,000148:
023764,000149: 20,3006 5751 ENDRCSFL EQUALS RESUME
023765,000150: 20,3006 5751 NOSTCHG EQUALS RESUME
End of include-file RCS_FAILURE_MONITOR.agc. Parent file is MAIN.agc