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