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.
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