Source Code

These source code files have been transcribed or otherwise adapted from digitized images of a hardcopy from the private collection of Don Eyles. The digitization was performed by archive.org, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that the original high-quality images are available at archive.org. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

    473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP   NOV 10, 1966
Note that the date is the date of the printout, not the date of the program revision.

027386,000002:                                                                                                  ## Copyright:    Public domain.
027387,000003:                                                                                                  ## Filename:     RCS_FAILURE_MONITOR.agc
027388,000004:                                                                                                  ## Purpose:      Part of the source code for Aurora (revision 12).
027389,000005:                                                                                                  ## Assembler:    yaYUL
027390,000006:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
027391,000007:                                                                                                  ## Website:      https://www.ibiblio.org/apollo.
027392,000008:                                                                                                  ## Pages:        0635-0638
027393,000009:                                                                                                  ## Mod history:  2016-09-20 JL   Created.
027394,000010:                                                                                                  ##               2016-09-21 OH   Initial Transcription
027395,000011:                                                                                                  ##               2016-10-08 HG   fix BANK 20 -> BANK 12  (p.0635)
027396,000012:                                                                                                  ##               2016-10-16 HG   add missed label RCSMNTR
027397,000013:                                                                                                  ##               2016-12-08 RSB  Proofed comments with octopus/ProoferComments
027398,000014:                                                                                                  ##                               but no errors found.
027399,000015: 
027400,000016:                                                                                                  ## This source code has been transcribed or otherwise adapted from
027401,000017:                                                                                                  ## digitized images of a hardcopy from the private collection of
027402,000018:                                                                                                  ## Don Eyles.  The digitization was performed by archive.org.
027403,000019: 
027404,000020:                                                                                                  ## Notations on the hardcopy document read, in part:
027405,000021: 
027406,000022:                                                                                                  ##       473423A YUL SYSTEM FOR BLK2: REVISION 12 of PROGRAM AURORA BY DAP GROUP
027407,000023:                                                                                                  ##       NOV 10, 1966
027408,000024: 
027409,000025:                                                                                                  ##       [Note that this is the date the hardcopy was made, not the
027410,000026:                                                                                                  ##       date of the program revision or the assembly.]
027411,000027: 
027412,000028:                                                                                                  ## The scan images (with suitable reduction in storage size and consequent
027413,000029:                                                                                                  ## reduction in image quality) are available online at
027414,000030:                                                                                                  ##       https://www.ibiblio.org/apollo.
027415,000031:                                                                                                  ## The original high-quality digital images are available at archive.org:
027416,000032:                                                                                                  ##       https://archive.org/details/aurora00dapg
027417,000033: 

Page 0635

027419,000035: 
027420,000036: 12,3752                                           BANK     12                                    
027421,000037: 

Page 0636

027423,000039:                                                                                                  #  FAILURE MONITOR FOR LEM RCS JETS (4 TIMES/SECOND)
027424,000040: 
027425,000041:                                                                                                  #  *** FAILSW CAPABILITY FOR CHECKOUT ONLY ***
027426,000042: 
027427,000043: 12,3752           11510        RCSMONIT           CCS      FAILSW                                
027428,000044: 12,3753           14606                           TCF      ENDRCSFL                              #  DO NOTHING IF POSITIVE
027429,000045: 
027430,000046: 12,3754           31511                           CA       LASTFAIL                              #  LAST FAILURE CHANNEL VALUE        
027431,000047: 12,3755           00006                           EXTEND                                         
027432,000048: 12,3756           06032                           RXOR     32                                    
027433,000049: 12,3757           75235                           MASK     LOW8                                  
027434,000050: 12,3760           00006                           EXTEND                                         
027435,000051: 12,3761           14606                           BZF      NOSTCHG                               #  NO STATUS CHANGE, FINISHED
027436,000052: 
027437,000053: 12,3762           00006                           EXTEND                                         
027438,000054: 12,3763           33766                           DCA      MNTRCS                                
027439,000055: 12,3764           52006                           DTCB                                           
027440,000056: 12,3765           03416 52006  MNTRCS             2CADR    RCSMNTR                               
027441,000057: 
027442,000058: 12,3767                        ENDT4S             EQUALS                                         
027443,000059: 
027444,000060: 
027445,000061: 
027446,000062: 25,3416                                           BANK     25                                    
027447,000063: 25,3416           37665        RCSMNTR            CA       ZERO                                  #  THERE IS A DIFFERENCE, CLEAR MASKS
027448,000064: 25,3417           55512                           TS       CH5MASK                               
027449,000065: 25,3420           55513                           TS       CH6MASK                               
027450,000066: 
027451,000067: 25,3421           00006                           EXTEND                                         #  READ PRESENT FAILURES
027452,000068: 25,3422           00032                           READ     32                                    
027453,000069: 25,3423           55511                           TS       LASTFAIL                              #  SAVE FOR NEXT PASS
027454,000070: 
027455,000071: 25,3424           40000                           COM                                            #  FAILURES NOW ONES
027456,000072: 25,3425           00006                           EXTEND                                         
027457,000073: 25,3426           77651                           MP       BIT7                                  #  SHIFT TO TEST LOW 8 BITS
027458,000074: 25,3427           37665                           CA       ZERO                                  
027459,000075: 25,3430           54065                           TS       FAILCTR                               #  INITIALIZE COUNTER
027460,000076: 25,3431           30001                           CA       L                                     
027461,000077: 25,3432           13435                           TCF      NXTRCSPR   +1                         
027462,000078: 
027463,000079: 25,3433           67657                 -1        AD       BIT1                                  
027464,000080: 25,3434           24065        NXTRCSPR           INCR     FAILCTR                               
027465,000081: 25,3435           60000                 +1        DOUBLE                                         
027466,000082: 25,3436           54066                           TS       FAILTEMP                              #  OVERFLOW CHECK
027467,000083: 25,3437           13434                           TCF      NXTRCSPR                              
027468,000084: 
027469,000085: 25,3440           50065                           INDEX    FAILCTR                               
027470,000086: 25,3441           03445                           TC       RCSFJUMP                              #  GO THROUGH JUMP TABLE
027471,000087: 
027472,000088: 25,3442           10066                           CCS      FAILTEMP                              

Page 0637

027474,000090: 
027475,000091: 25,3443           13433                           TCF      NXTRCSPR   -1                         #  FINISH EARLY, OR MORE TO DO
027476,000092: 25,3444           14606                           TCF      ENDRCSFL                              
027477,000093: 25,3445           13455        RCSFJUMP           TCF      FM10/11                               
027478,000094: 25,3446           13462                           TCF      FM9/12                                
027479,000095: 25,3447           13467                           TCF      FM13/15                               
027480,000096: 25,3450           13474                           TCF      FM14/16                               
027481,000097: 25,3451           13501                           TCF      FM6/7                                 
027482,000098: 25,3452           13506                           TCF      FM1/3                                 
027483,000099: 25,3453           13513                           TCF      FM5/8                                 
027484,000100: 25,3454           13520                           TCF      FM2/4                                 
027485,000101: 
027486,000102: 25,3455           37652        FM10/11            CA       BIT6                                  
027487,000103: 25,3456           27512                           ADS      CH5MASK                               
027488,000104: 25,3457           37654                           CA       BIT4                                  
027489,000105: 25,3460           27513                           ADS      CH6MASK                               
027490,000106: 25,3461           00002                           TC       Q                                     
027491,000107: 
027492,000108: 25,3462           37653        FM9/12             CA       BIT5                                  
027493,000109: 25,3463           27512                           ADS      CH5MASK                               
027494,000110: 25,3464           37653                           CA       BIT5                                  
027495,000111: 25,3465           27513                           ADS      CH6MASK                               
027496,000112: 25,3466           00002                           TC       Q                                     
027497,000113: 
027498,000114: 25,3467           37651        FM13/15            CA       BIT7                                  
027499,000115: 25,3470           27512                           ADS      CH5MASK                               
027500,000116: 25,3471           37655                           CA       BIT3                                  
027501,000117: 25,3472           27513                           ADS      CH6MASK                               
027502,000118: 25,3473           00002                           TC       Q                                     
027503,000119: 
027504,000120: 25,3474           37650        FM14/16            CA       BIT8                                  
027505,000121: 25,3475           27512                           ADS      CH5MASK                               
027506,000122: 25,3476           37650                           CA       BIT8                                  
027507,000123: 25,3477           27513                           ADS      CH6MASK                               
027508,000124: 25,3500           00002                           TC       Q                                     
027509,000125: 
027510,000126: 25,3501           37654        FM6/7              CA       BIT4                                  
027511,000127: 25,3502           27512                           ADS      CH5MASK                               
027512,000128: 25,3503           37657                           CA       BIT1                                  
027513,000129: 25,3504           27513                           ADS      CH6MASK                               
027514,000130: 25,3505           00002                           TC       Q                                     
027515,000131: 
027516,000132: 25,3506           37657        FM1/3              CA       BIT1                                  
027517,000133: 25,3507           27512                           ADS      CH5MASK                               
027518,000134: 25,3510           37656                           CA       BIT2                                  
027519,000135: 25,3511           27513                           ADS      CH6MASK                               
027520,000136: 25,3512           00002                           TC       Q                                     
027521,000137: 
027522,000138: 25,3513           37655        FM5/8              CA       BIT3                                  
027523,000139: 25,3514           27512                           ADS      CH5MASK                               

Page 0638

027525,000141: 25,3515           37652                           CA       BIT6                                  
027526,000142: 25,3516           27513                           ADS      CH6MASK                               
027527,000143: 25,3517           00002                           TC       Q                                     
027528,000144: 
027529,000145: 25,3520           37656        FM2/4              CA       BIT2                                  
027530,000146: 25,3521           27512                           ADS      CH5MASK                               
027531,000147: 25,3522           37651                           CA       BIT7                                  
027532,000148: 25,3523           27513                           ADS      CH6MASK                               
027533,000149: 25,3524           00002                           TC       Q                                     
027534,000150: 
027535,000151: 25,3525     4606               ENDRCSFL           EQUALS   RESUME                                
027536,000152: 25,3525     4606               NOSTCHG            EQUALS   RESUME                                

End of include-file RCS_FAILURE_MONITOR.agc.  Parent file is MAIN.agc