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.

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

Page 0635

027416,000035: 
027417,000036: 12,3752                                           BANK     12                                    
027418,000037: 

Page 0636

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

Page 0637

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

Page 0638

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

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