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.

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

Page 0635

027429,000035: 
027430,000036: 12,3752                                           BANK     12                                    
027431,000037: 

Page 0636

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

Page 0637

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

Page 0638

027535,000141: 25,3515           37652                           CA       BIT6                                  
027536,000142: 25,3516           27513                           ADS      CH6MASK                               
027537,000143: 25,3517           00002                           TC       Q                                     
027538,000144: 
027539,000145: 25,3520           37656        FM2/4              CA       BIT2                                  
027540,000146: 25,3521           27512                           ADS      CH5MASK                               
027541,000147: 25,3522           37651                           CA       BIT7                                  
027542,000148: 25,3523           27513                           ADS      CH6MASK                               
027543,000149: 25,3524           00002                           TC       Q                                     
027544,000150: 
027545,000151: 25,3525     4606               ENDRCSFL           EQUALS   RESUME                                
027546,000152: 25,3525     4606               NOSTCHG            EQUALS   RESUME                                

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