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, 1966Note 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