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