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.

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