Source Code
|
These source-code files are part of a reconstructed copy of Aurora 88, the
final release of the Lunar Module (LM) Apollo Guidance Computer (AGC) system
test software.
They have been created via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-011, 2003972-091, and 2003972-111, belonging to Steve Jurvetson. Since only binary dumps (rather than listings) of Aurora 88 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing. |
005724,000002: ## Copyright: Public domain.
005725,000003: ## Filename: T4RUPT_PROGRAM.agc
005726,000004: ## Purpose: A section of Aurora 88.
005727,000005: ## It is part of the reconstructed source code for the final
005728,000006: ## release of the Lunar Module system test software. No original
005729,000007: ## listings of this program are available; instead, this file
005730,000008: ## was created via disassembly of dumps of Aurora 88 core rope
005731,000009: ## modules and comparison with other AGC programs.
005732,000010: ## Assembler: yaYUL
005733,000011: ## Contact: Ron Burkey <info@sandroid.org>.
005734,000012: ## Website: www.ibiblio.org/apollo/index.html
005735,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
005736,000014: ## 2023-07-12 MAS Updated for Aurora 88.
005737,000015:
005738,000016: 4616 SETLOC ENDPHMNF
005739,000017:
005740,000018: 4616 00006 T4RUPT EXTEND # ZERO OUT0 EVERY T4RUPT.
005741,000019: 4617 01010 WRITE OUT0 # (COMES HERE WITH +0 IN A)
005742,000020:
005743,000021: 4620 50347 INDEX T4LOC # NORMALLY TO NORMT4, BUT TO LMPRESET OR
005744,000022: 4621 10000 TCF 0 # DSKYRSET AFTER OUT0 COMMAND.
005745,000023:
005746,000024: 4622 10350 NORMT4 CCS DSRUPTSW # GOES 7(-1)0.
005747,000025: 4623 14625 TCF +2
005748,000026: 4624 37656 CAF SEVEN
005749,000027: 4625 54350 TS DSRUPTSW
005750,000028:
005751,000029: 4626 34023 CAF T4RPTBB # OFF TO SWITCHED BANK
005752,000030: 4627 56006 XCH BBANK
005753,000031: 4630 12474 TCF T4RUPTA
005754,000032:
005755,000033: 4631 34640 LMPRESET CAF 90MRUPT # 30 MS ON / 90 MS OFF.
005756,000034: 4632 14634 TCF +2
005757,000035:
005758,000036: 4633 34641 DSKYRSET CAF 100MRUPT # 20 MS ON / 100 MS OFF.
005759,000037: 4634 54027 TS TIME4
005760,000038: 4635 34642 CAF LNORMT4
005761,000039: 4636 54347 TS T4LOC
005762,000040: 4637 14515 TCF NOQBRSM
005763,000041:
005764,000042: 4640 37767 90MRUPT DEC 16375 B-14
005765,000043: 4641 37766 100MRUPT DEC 16374 B-14
005766,000044: 4642 04622 LNORMT4 ADRES NORMT4
005767,000045: 4643 74000 74K OCT 74000
005768,000046:
005769,000047: # RELTAB IS A PACKED TABLE. RELAYWORD CODE IN UPPER 4 BITS, RELAY CODE
005770,000048: # IN LOWER 5 BITS.
005771,000049:
005772,000050: 4644 04025 RELTAB OCT 04025
005773,000051: 4645 10003 OCT 10003
005774,000052: 4646 14031 OCT 14031
005775,000053: 4647 20033 OCT 20033
005776,000054: 4650 24017 OCT 24017
005777,000055: 4651 30036 OCT 30036
005778,000056: 4652 34034 OCT 34034
005779,000057: 4653 40023 OCT 40023
005780,000058: 4654 44035 OCT 44035
005781,000059: 4655 50037 OCT 50037
005782,000060: 4656 54000 OCT 54000
005783,000061: 4657 60000 RELTAB11 OCT 60000
005784,000062: 4660 ENDT4FF EQUALS
005785,000063:
005786,000064: # SWITCHED-BANK PORTION.
005787,000065:
005788,000066: 12,2474 SETLOC ENDFRESS
005789,000067:
005790,000068: 12,2474 54016 T4RUPTA TS BANKRUPT
005791,000069: 12,2475 00006 EXTEND
005792,000070: 12,2476 22012 QXCH QRUPT
005793,000071:
005794,000072: 12,2477 10366 LMPOUT CCS LMPCMD # SEE IF LMP COMMAND TO BE SENT. IF SO,
005795,000073: 12,2500 12514 TCF CDRVE # BIT 15 = 1 AND (UP TO) BITS 1 - 11
005796,000074: 12,2501 12514 TCF CDRVE # CONTAIN THE COMMAND.
005797,000075:
005798,000076: 12,2502 35136 CAF LOW11
005799,000077: 12,2503 70366 MASK LMPCMD # LEAVE COMMAND PORTION INTACT.
005800,000078: 12,2504 54366 TS LMPCMD
005801,000079: 12,2505 64643 AD 74K
005802,000080: 12,2506 00006 EXTEND
005803,000081: 12,2507 01010 WRITE OUT0
005804,000082:
005805,000083: 12,2510 32605 CAF LLMPRS
005806,000084: 12,2511 54347 TS T4LOC
005807,000085: 12,2512 32606 CAF 30MRUPT
005808,000086: 12,2513 12571 TCF SETTIME4
005809,000087:
005810,000088: 12,2514 10322 CDRVE CCS DSPTAB +11D
005811,000089: 12,2515 02524 TC DSPOUT
005812,000090: 12,2516 02524 TC DSPOUT
005813,000091:
005814,000092: 12,2517 56322 XCH DSPTAB +11D
005815,000093: 12,2520 75136 MASK LOW11
005816,000094: 12,2521 54322 TS DSPTAB +11D
005817,000095: 12,2522 64657 AD RELTAB11
005818,000096: 12,2523 02564 TC DSPLAYC
005819,000097:
005820,000098: # DSPOUT PROGRAM. PUTS OUT DISPLAYS.
005821,000099:
005822,000100: 12,2524 10303 DSPOUT CCS NOUT # DRIVE DISPLAY SYSTEM RELAYS.
005823,000101: 12,2525 12530 TCF +3
005824,000102:
005825,000103: 12,2526 32545 NODSPOUT CAF 120MRUPT # SET FOR RUPT IN 120 MS IF NO RELAYS.
005826,000104: 12,2527 12571 TCF SETTIME4
005827,000105:
005828,000106: 12,2530 54303 TS NOUT
005829,000107: 12,2531 47657 CS ZERO
005830,000108: 12,2532 54077 TS DSRUPTEM # SET TO -0 FOR 1ST PASS THRU DSPTAB
005831,000109: 12,2533 56341 XCH DSPCNT
005832,000110: 12,2534 67660 AD NEG0 # TO PREVENT +0
005833,000111: 12,2535 54341 TS DSPCNT
005834,000112: 12,2536 50341 DSPSCAN INDEX DSPCNT
005835,000113: 12,2537 10307 CCS DSPTAB
005836,000114: 12,2540 10341 CCS DSPCNT # IF DSPTAB ENTRY +, SKIP
005837,000115: 12,2541 02534 TC DSPSCAN -2 # IF DSPCNT +, AGAIN
005838,000116: 12,2542 02553 TC DSPLAY # IF DSPTAB ENTRY -, DISPLAY
005839,000117: 12,2543 00012 TABLNTH OCT 12 # DEC 10 LENGTH OF DSPTAB
005840,000118: 12,2544 10077 CCS DSRUPTEM # IF DSRUPTEM=+0,2ND PASS THRU DSPTAB
005841,000119: 12,2545 37764 120MRUPT DEC 16372 B-14 # (DSPCNT = 0). +0 INTO NOUT.
005842,000120: 12,2546 54303 TS NOUT
005843,000121: 12,2547 12526 TCF NODSPOUT
005844,000122: 12,2550 54077 TS DSRUPTEM # IF DSRUPTEM=-0,1ST PASS THRU DSPTAB
005845,000123: 12,2551 32543 CAF TABLNTH # (DSPCNT=0). +0 INTO DSRUPTEM. PASS AGAIN
005846,000124: 12,2552 02535 TC DSPSCAN -1
005847,000125:
005848,000126: 12,2553 67652 DSPLAY AD ONE
005849,000127: 12,2554 50341 INDEX DSPCNT
005850,000128: 12,2555 54307 TS DSPTAB # REPLACE POSITIVELY
005851,000129: 12,2556 75136 MASK LOW11 # REMOVE BITS 12 TO 15
005852,000130: 12,2557 54077 TS DSRUPTEM
005853,000131: 12,2560 35130 CAF HI5
005854,000132: 12,2561 50341 INDEX DSPCNT
005855,000133: 12,2562 74644 MASK RELTAB # PICK UP BITS 12 TO 15 OF RELTAB ENTRY
005856,000134: 12,2563 60077 AD DSRUPTEM
005857,000135: 12,2564 00006 DSPLAYC EXTEND
005858,000136: 12,2565 01010 WRITE OUT0
005859,000137:
005860,000138: 12,2566 32604 CAF LDSKYRS
005861,000139: 12,2567 54347 TS T4LOC
005862,000140: 12,2570 32607 CAF 20MRUPT
005863,000141:
005864,000142: 12,2571 54027 SETTIME4 TS TIME4
005865,000143: # JUMP TO APPROPRIATE ONCE-PER SECOND (.96 SEC ACTUALLY) ACTIVITY
005866,000144:
005867,000145: 12,2572 50350 T4JUMP INDEX DSRUPTSW
005868,000146: 12,2573 12574 TCF +1
005869,000147:
005870,000148: 12,2574 02610 TC ALTOUT
005871,000149:
005872,000150: 12,2575 13463 TCF RRAUTCHK
005873,000151: 12,2576 12743 TCF IMUMON
005874,000152: 12,2577 14511 TCF RESUME
005875,000153: 12,2600 02655 TC ALTROUT
005876,000154: 12,2601 13463 TCF RRAUTCHK
005877,000155: 12,2602 12743 TCF IMUMON
005878,000156: 12,2603 14511 TCF RESUME
005879,000157: 12,2604 04633 LDSKYRS ADRES DSKYRSET
005880,000158: 12,2605 04631 LLMPRS ADRES LMPRESET
005881,000159:
005882,000160: 12,2606 37775 30MRUPT DEC 16381 B-14
005883,000161: 12,2607 37776 20MRUPT DEC 16382 B-14
005884,000162: # THIS ROUTINE SERVICES THE METER OUTPUTS.
005885,000163:
005886,000164:
005887,000165: # DIDFLG INDICATES THE STATE OF THE PROGRAM..............
005888,000166: # IF GREATER THAN ZERO, THEN UNABLE TO DISPLAY DATA
005889,000167: # IF EQUAL TO ZERO, THEN THE PROGRAM IS IN USE
005890,000168: # IF LESS THAN ZERO, THEN THE PROGRAM IS ABLE TO BE USED............
005891,000169:
005892,000170: 12,2610 02663 ALTOUT TC DISINDAT
005893,000171: 12,2611 47651 CS BIT2
005894,000172: 12,2612 00006 EXTEND
005895,000173: 12,2613 03014 WAND 14 # SET UP OUTPUT FOR ALTITUDE
005896,000174: 12,2614 10352 CCS ALT # -1 IF OLD DATA TO BE EXTRAPOLATED.
005897,000175: 12,2615 12621 TCF +4 # NEW DATA.
005898,000176: 12,2616 12621 TCF +3
005899,000177: 12,2617 12625 TCF OLDDATA
005900,000178:
005901,000179: 12,2620 54352 TS ALT # CHANGE -0 IN ALT TO +0.
005902,000180: 12,2621 47652 CS ONE # RESET ALTSAVE.
005903,000181: 12,2622 52353 DXCH ALT
005904,000182: 12,2623 52365 ZDATA2 DXCH ALTSAVE
005905,000183: 12,2624 12645 TCF NEWDATA
005906,000184:
005907,000185: 12,2625 30354 OLDDATA CA ALTRATE # USE ALTRATE TO EXTRAPOLATE.
005908,000186: 12,2626 00006 EXTEND
005909,000187: 12,2627 72740 MP ARTOA # RATE APPLIES FOR .96 SEC.
005910,000188: 12,2630 60365 AD ALTSAVE +1
005911,000189: 12,2631 54365 TS ALTSAVE +1 # AND MAYBE SKIP.
005912,000190: 12,2632 37657 CAF ZERO
005913,000191: 12,2633 26364 ADS ALTSAVE
005914,000192:
005915,000193: 12,2634 37632 CAF POSMAX # FORCE SIGN AGREEMENT ASSUMING ALTSAVE IS
005916,000194: 12,2635 67652 AD ONE # NOT NEGATIVE. IF IT IS, THE FINAL TS
005917,000195: 12,2636 60365 AD ALTSAVE +1 # WILL NOT SKIP AND WE CAN SET ALTSAVE TO
005918,000196: 12,2637 54365 TS ALTSAVE +1 # ZERO IN THAT CASE.
005919,000197: 12,2640 37657 CAF ZERO
005920,000198: 12,2641 67632 AD POSMAX
005921,000199: 12,2642 60364 AD ALTSAVE
005922,000200: 12,2643 54364 TS ALTSAVE
005923,000201: 12,2644 12735 TCF ZERODATA # ALTSAVE NEGATIVE - SET TO ZERO.
005924,000202:
005925,000203: 12,2645 10364 NEWDATA CCS ALTSAVE # MAKE UP 15 BIT UNSIGNED OUTPUT.
005926,000204: 12,2646 37634 CAF BIT15 # MAJOR PART +1 OR +0.
005927,000205: 12,2647 60365 AD ALTSAVE +1
005928,000206: 12,2650 54060 METEROUT TS ALTM
005929,000207: 12,2651 32741 CAF BITSET
005930,000208: 12,2652 00006 EXTEND
005931,000209: 12,2653 05014 WOR 14
005932,000210: 12,2654 12734 TCF DONEDID
005933,000211: 12,2655 02663 ALTROUT TC DISINDAT
005934,000212: 12,2656 37651 CAF BIT2
005935,000213: 12,2657 00006 EXTEND
005936,000214: 12,2660 05014 WOR 14 # SET UP OUTPUT FOR ALT. RATE
005937,000215: 12,2661 30354 CA ALTRATE
005938,000216: 12,2662 12650 TCF METEROUT
005939,000217:
005940,000218: 12,2663 10351 DISINDAT CCS DIDFLG
005941,000219: 12,2664 12734 TCF DONEDID
005942,000220: 12,2665 12666 NOOP
005943,000221: 12,2666 37645 CAF BIT6
005944,000222: 12,2667 00006 EXTEND
005945,000223: 12,2670 02030 RAND 30 # CHECK DISPLAY INERTIAL DATA BIT
005946,000224: 12,2671 10000 CCS A
005947,000225: 12,2672 12731 TCF ALLDONE
005948,000226: 12,2673 10351 CCS DIDFLG
005949,000227: 12,2674 12675 NOOP
005950,000228: 12,2675 12716 TCF GOAGN
005951,000229:
005952,000230: 12,2676 37643 FIRSTIME CAF BIT8
005953,000231: 12,2677 00006 EXTEND
005954,000232: 12,2700 05012 WOR 12 # ENABLE DISPLAY INERTIAL DATA
005955,000233: 12,2701 37657 CAF ZERO
005956,000234: 12,2702 54351 TS DIDFLG
005957,000235: 12,2703 54363 TS LASTXCMD
005958,000236: 12,2704 54362 TS LASTYCMD
005959,000237: 12,2705 36162 CAF SIX
005960,000238: 12,2706 04451 TC WAITLIST
005961,000239: 12,2707 02712 24007 2CADR INTLZE
005962,000240:
005963,000241: 12,2711 02734 TC DONEDID
005964,000242:
005965,000243: 12,2712 37651 INTLZE CAF BIT2
005966,000244: 12,2713 00006 EXTEND
005967,000245: 12,2714 05012 WOR 12 # ENABLE RR ERROR COUNTER
005968,000246: 12,2715 04505 TC TASKOVER
005969,000247:
005970,000248: 12,2716 40363 GOAGN CS LASTXCMD
005971,000249: 12,2717 60360 AD FORVEL
005972,000250: 12,2720 54054 TS OPTXCMD
005973,000251: 12,2721 30360 CA FORVEL
005974,000252: 12,2722 54363 TS LASTXCMD
005975,000253: 12,2723 40362 CS LASTYCMD
005976,000254: 12,2724 60361 AD LATVEL
005977,000255: 12,2725 54053 TS OPTYCMD
005978,000256: 12,2726 30361 CA LATVEL
005979,000257: 12,2727 54362 TS LASTYCMD
005980,000258: 12,2730 00002 TC Q
005981,000259:
005982,000260: 12,2731 42742 ALLDONE CS DIDRESET # REMOVE DISPLAY INERTIAL DATA AND ECTR.
005983,000261: 12,2732 00006 EXTEND
005984,000262: 12,2733 03012 WAND 12 # RESET RR ERROR COUNTER
005985,000263: 12,2734 14511 DONEDID TCF RESUME # ** FIX LATER**
005986,000264:
005987,000265: 12,2735 37657 ZERODATA CAF ZERO
005988,000266: 12,2736 54001 TS L
005989,000267: 12,2737 12623 TCF ZDATA2
005990,000268:
005991,000269: 12,2740 06432 ARTOA DEC .20469 # ALT DUE TO ALTRATE FOR .96 SEC.
005992,000270: 12,2741 06004 BITSET OCT 6004
005993,000271:
005994,000272: 12,2742 00202 DIDRESET OCT 202
005995,000273: # IMU INBIT MONITOR - ENTERED EVERY 480 MS BY T4RUPT.
005996,000274:
005997,000275: 12,2743 30367 IMUMON CA IMODES30 # SEE IF THERE HAS BEEN A CHANGE IN THE
005998,000276: 12,2744 00006 EXTEND # RELEVENT BITS OF CHAN 30.
005999,000277: 12,2745 06030 RXOR 30
006000,000278: 12,2746 73435 MASK 30RDMSK
006001,000279: 12,2747 00006 EXTEND
006002,000280: 12,2750 13000 BZF TNONTEST # NO CHANGE IN STATUS.
006003,000281:
006004,000282: 12,2751 54074 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
006005,000283: 12,2752 22367 LXCH IMODES30 # UPDATE IMODES30.
006006,000284: 12,2753 00006 EXTEND
006007,000285: 12,2754 06001 RXOR L
006008,000286: 12,2755 54367 TS IMODES30
006009,000287:
006010,000288: 12,2756 47652 CS ONE
006011,000289: 12,2757 56074 XCH RUPTREG1
006012,000290: 12,2760 00006 EXTEND
006013,000291: 12,2761 63230 BZMF TLIM # CHANGE IN IMU TEMP.
006014,000292: 12,2762 12764 TCF NXTIFBIT # BEGIN BIT SCAN.
006015,000293:
006016,000294: 12,2763 67652 -1 AD ONE # (RE-ENTERS HERE FROM NXTIFAIL.)
006017,000295: 12,2764 24074 NXTIFBIT INCR RUPTREG1 # ADVANCE BIT POSITION NUMBER.
006018,000296: 12,2765 60000 +1 DOUBLE
006019,000297: 12,2766 54000 TS A # SKIP IF OVERFLOW.
006020,000298: 12,2767 12764 TCF NXTIFBIT # LOOK FOR BIT.
006021,000299:
006022,000300: 12,2770 56075 XCH RUPTREG2 # SAVE OVERFLOW-CORRECTED DATA.
006023,000301: 12,2771 50074 INDEX RUPTREG1 # SELECT NEW VALUE OF THIS BIT.
006024,000302: 12,2772 37635 CAF BIT14
006025,000303: 12,2773 70367 MASK IMODES30
006026,000304: 12,2774 50074 INDEX RUPTREG1
006027,000305: 12,2775 03431 TC IFAILJMP
006028,000306:
006029,000307: 12,2776 10075 NXTIFAIL CCS RUPTREG2 # PROCESS ANY ADDITIONAL CHANGES.
006030,000308: 12,2777 12763 TCF NXTIFBIT -1
006031,000309:
006032,000310: 12,3000 40367 TNONTEST CS IMODES30 # AFTER PROCESSING ALL CHANGES, SEE IF IT
006033,000311: 12,3001 77644 MASK BIT7 # IS TIME TO ACT ON A TURN-ON SEQUENCE.
006034,000312: 12,3002 10000 CCS A
006035,000313: 12,3003 13126 TCF C33TEST # NO - EXAMINE CHANNEL 33.
006036,000314:
006037,000315: 12,3004 37643 CAF BIT8 # SEE IF FIRST SAMPLE OR SECOND.
006038,000316: 12,3005 70367 MASK IMODES30
006039,000317: 12,3006 10000 CCS A
006040,000318: 12,3007 13013 TCF PROCTNON # REACT AFTER SECOND SAMPLE.
006041,000319:
006042,000320: 12,3010 37643 CAF BIT8 # IF FIRST SAMPLE, SET BIT TO REACT NEXT
006043,000321: 12,3011 26367 ADS IMODES30 # TIME.
006044,000322: 12,3012 13126 TCF C33TEST
006045,000323: # PROCESS IMU TURN-ON REQUESTS AFTER WAITING 1 SAMPLE FOR ALL SIGNALS TO ARRIVE.
006046,000324:
006047,000325: 12,3013 43453 PROCTNON CS BITS7&8
006048,000326: 12,3014 70367 MASK IMODES30
006049,000327: 12,3015 54367 TS IMODES30
006050,000328: 12,3016 77635 MASK BIT14 # SEE IF TURN-ON REQUEST.
006051,000329: 12,3017 10000 CCS A
006052,000330: 12,3020 13111 TCF OPONLY # OPERATE ON ONLY.
006053,000331:
006054,000332: 12,3021 40367 CS IMODES30 # IF TURN-ON REQUEST, WE SHOULD HAVE IMU
006055,000333: 12,3022 77642 MASK BIT9 # OPERATE.
006056,000334: 12,3023 10000 CCS A
006057,000335: 12,3024 13027 TCF +3
006058,000336:
006059,000337: 12,3025 05315 TC ALARM # ALARM IF NOT.
006060,000338: 12,3026 00213 OCT 213
006061,000339:
006062,000340: 12,3027 03416 +3 TC CAGESUB
006063,000341: 12,3030 33461 CAF 90SECS
006064,000342: 12,3031 04451 TC WAITLIST
006065,000343: 12,3032 03037 24007 2CADR ENDTNON
006066,000344: 12,3034 13126 TCF C33TEST
006067,000345:
006068,000346: 12,3035 33461 RETNON CAF 90SECS
006069,000347: 12,3036 04472 TC VARDELAY
006070,000348:
006071,000349: 12,3037 47651 ENDTNON CS BIT2 # RESET TURN-ON REQUEST FAIL BIT.
006072,000350: 12,3040 70367 MASK IMODES30
006073,000351: 12,3041 56367 XCH IMODES30
006074,000352: 12,3042 77651 MASK BIT2 # IF IT WAS OFF, SEND ISS DELAY COMPLETE.
006075,000353: 12,3043 00006 EXTEND
006076,000354: 12,3044 13057 BZF ENDTNON2
006077,000355:
006078,000356: 12,3045 37635 CAF BIT14 # IF IT WAS ON AND TURN-ON REQUEST NOW
006079,000357: 12,3046 70367 MASK IMODES30 # PRESENT, RE-ENTER 90 SEC DELAY IN WL.
006080,000358: 12,3047 00006 EXTEND
006081,000359: 12,3050 13035 BZF RETNON
006082,000360:
006083,000361: 12,3051 40061 CS STATE # IF IT IS NOT ON NOW, SEE IF A PROG WAS
006084,000362: 12,3052 77643 MASK IMUSEFLG # WAITING.
006085,000363: 12,3053 10000 CCS A
006086,000364: 12,3054 14505 TCF TASKOVER
006087,000365: 12,3055 04102 TC POSTJUMP
006088,000366: 12,3056 26641 CADR IMUBAD # UNSUCCESSFUL TURN-ON.
006089,000367:
006090,000368: 12,3057 37634 ENDTNON2 CAF BIT15 # SEND ISS DELAY COMPLETE.
006091,000369: 12,3060 00006 EXTEND
006092,000370: 12,3061 05012 WOR 12
006093,000371: 12,3062 03737 TC ENDTNON3
006094,000372:
006095,000373: 12,3063 43450 UNZ2B CS BITS4&5 # REMOVE ZERO AND COARSE.
006096,000374: 12,3064 00006 EXTEND
006097,000375: 12,3065 03012 WAND 12
006098,000376:
006099,000377: 12,3066 33722 CAF 4SECS # WAIT 4 SECS FOR COUNTERS TO FIND GIMBALS
006100,000378: 12,3067 04472 TC VARDELAY
006101,000379:
006102,000380: 12,3070 43451 ISSUP CS OCT54 # REMOVE CAGING, IMU FAIL INHIBIT, AND
006103,000381: 12,3071 70367 MASK IMODES30 # ICDUFAIL INHIBIT FLAGS.
006104,000382: 12,3072 54367 TS IMODES30
006105,000383:
006106,000384: 12,3073 03367 TC SETISSW # ISS WARNING MIGHT HAVE BEEN INHIBITED.
006107,000385:
006108,000386: 12,3074 47634 CS BIT15 # REMOVE IMU DELAY COMPLETE DISCRETE.
006109,000387: 12,3075 00006 EXTEND
006110,000388: 12,3076 03012 WAND 12
006111,000389:
006112,000390: 12,3077 37640 CAF BIT11 # DONT ENABLE PROG ALARM ON PIP FAIL FOR
006113,000391: 12,3100 04451 TC WAITLIST # ANOTHER 10 SECS.
006114,000392: 12,3101 02262 26007 2CADR PFAILOK
006115,000393: 12,3103 40061 CS STATE # SEE IF ANYONE IS WAITING FOR THE IMU AT
006116,000394: 12,3104 77643 MASK IMUSEFLG # IMUZERO. IF SO, WAKE THEM UP.
006117,000395: 12,3105 10000 CCS A
006118,000396: 12,3106 14505 TCF TASKOVER
006119,000397:
006120,000398: 12,3107 04102 TC POSTJUMP
006121,000399: 12,3110 26633 CADR ENDIMU
006122,000400:
006123,000401: 12,3111 03743 OPONLY TC OPONLY1
006124,000402: 12,3112 70061 MASK STATE
006125,000403: 12,3113 10000 CCS A
006126,000404: 12,3114 13126 TCF C33TEST
006127,000405:
006128,000406: 12,3115 03756 TC CAGESUB2 # SET TURNON FLAGS.
006129,000407:
006130,000408: 12,3116 37646 CAF BIT5
006131,000409: 12,3117 00006 EXTEND
006132,000410: 12,3120 05012 WOR 12
006133,000411:
006134,000412: 12,3121 37645 CAF BIT6 # WAIT 300 MS FOR AGS TO RECEIVE SIGNAL.
006135,000413: 12,3122 04451 TC WAITLIST
006136,000414: 12,3123 03741 24007 2CADR UNZ2
006137,000415: 12,3125 13126 TCF C33TEST
006138,000416: # MONITOR CHANNEL 33 FLIP-FLOP INPUTS.
006139,000417:
006140,000418: 12,3126 30370 C33TEST CA IMODES33 # SEE IF RELEVENT CHAN33 BITS HAVE
006141,000419: 12,3127 74430 MASK 33RDMSK
006142,000420: 12,3130 54001 TS L # CHANGED.
006143,000421: 12,3131 34430 CAF 33RDMSK
006144,000422: 12,3132 00006 EXTEND
006145,000423: 12,3133 03033 WAND 33 # RESETS FLIP-FLOP INPUTS.
006146,000424: 12,3134 00006 EXTEND
006147,000425: 12,3135 06001 RXOR L
006148,000426: 12,3136 00006 EXTEND
006149,000427: 12,3137 13166 BZF GLOCKMON # ON NO CHANGE.
006150,000428:
006151,000429: 12,3140 54074 TS RUPTREG1 # SAVE BITS WHICH HAVE CHANGED.
006152,000430: 12,3141 22370 LXCH IMODES33
006153,000431: 12,3142 00006 EXTEND
006154,000432: 12,3143 06001 RXOR L
006155,000433: 12,3144 54370 TS IMODES33 # UPDATED IMODES33.
006156,000434:
006157,000435: 12,3145 37657 CAF ZERO
006158,000436: 12,3146 56074 XCH RUPTREG1
006159,000437: 12,3147 60000 DOUBLE
006160,000438: 12,3150 13153 TCF NXTIBT +1 # SCAN FOR BIT CHANGES.
006161,000439:
006162,000440: 12,3151 67652 -1 AD ONE
006163,000441: 12,3152 24074 NXTIBT INCR RUPTREG1
006164,000442: 12,3153 60000 +1 DOUBLE
006165,000443: 12,3154 54000 TS A # (CODING IDENTICAL TO CHAN 30).
006166,000444: 12,3155 13152 TCF NXTIBT
006167,000445:
006168,000446: 12,3156 56075 XCH RUPTREG2
006169,000447: 12,3157 50074 INDEX RUPTREG1 # GET NEW VALUE OF BIT WHICH CHANGED.
006170,000448: 12,3160 37636 CAF BIT13
006171,000449: 12,3161 70370 MASK IMODES33
006172,000450: 12,3162 50074 INDEX RUPTREG1
006173,000451: 12,3163 03437 TC C33JMP
006174,000452:
006175,000453: 12,3164 10075 NXTFL33 CCS RUPTREG2 # PROCESS POSSIBLE ADDITIONAL CHANGES.
006176,000454: 12,3165 13151 TCF NXTIBT -1
006177,000455: # MONITOR FOR GIMBAL LOCK.
006178,000456:
006179,000457: 12,3166 10034 GLOCKMON CCS CDUZ
006180,000458: 12,3167 13173 TCF GLOCKCHK # SEE IF MAGNITUDE OF MGA IS GREATER THAN
006181,000459: 12,3170 13201 TCF SETGLOCK # 70 DEGREES.
006182,000460: 12,3171 13173 TCF GLOCKCHK
006183,000461: 12,3172 13201 TCF SETGLOCK
006184,000462:
006185,000463: 12,3173 63226 GLOCKCHK AD -70DEGS
006186,000464: 12,3174 04102 TC POSTJUMP
006187,000465: 12,3175 27510 CADR GLCKCHK1
006188,000466:
006189,000467: 12,3176 13177 NOOP
006190,000468: 12,3177 13201 TCF SETGLOCK
006191,000469:
006192,000470: 12,3200 37657 -1 CAF ZERO
006193,000471: 12,3201 60322 SETGLOCK AD DSPTAB +11D # SEE IF PRESENT STATE OF GIMBAL LOCK LAMP
006194,000472: 12,3202 77645 MASK BIT6 # AGREES WITH DESIRED STATE BY HALF ADDING
006195,000473: 12,3203 00006 EXTEND # THE TWO.
006196,000474: 12,3204 14511 BZF GLOCKOK # OK AS IS.
006197,000475:
006198,000476: 12,3205 70322 MASK DSPTAB +11D # IF OFF, DONT TURN ON IF IMU BEING CAGED.
006199,000477: 12,3206 10000 CCS A
006200,000478: 12,3207 13223 TCF GLAMPTST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
006201,000479:
006202,000480: 12,3210 37645 CAF BIT6
006203,000481: 12,3211 70367 MASK IMODES30
006204,000482: 12,3212 10000 CCS A
006205,000483: 12,3213 14511 TCF GLOCKOK
006206,000484:
006207,000485: 12,3214 40322 GLINVERT CS DSPTAB +11D # INVERT GIMBAL LOCK LAMP.
006208,000486: 12,3215 77645 MASK BIT6
006209,000487: 12,3216 67634 AD BIT15 # TO INDICATE CHANGE IN DSPTAB +11D.
006210,000488: 12,3217 56322 XCH DSPTAB +11D
006211,000489: 12,3220 73227 MASK OCT37737
006212,000490: 12,3221 26322 ADS DSPTAB +11D
006213,000491: 12,3222 14511 TCF GLOCKOK
006214,000492:
006215,000493: 12,3223 03442 GLAMPTST TC LAMPTEST # TURN OFF UNLESS LAMP TEST IN PROGRESS.
006216,000494: 12,3224 14511 TCF GLOCKOK
006217,000495: 12,3225 13214 TCF GLINVERT
006218,000496:
006219,000497: 12,3226 63434 -70DEGS DEC -.38888 # -70 DEGREES SCALED IN HALF-REVOLUTIONS.
006220,000498: 12,3227 37737 OCT37737 OCT 37737
006221,000499: # SUBROUTINES TO PROCESS INBIT CHANGES. NEW VALUE OF BIT ARRIVES IN A, EXCEPT FOR TLIM.
006222,000500:
006223,000501: 12,3230 77632 TLIM MASK POSMAX # REMOVE BIT FROM WORD OF CHANGES AND SET
006224,000502: 12,3231 54075 TS RUPTREG2 # DSKY TEMP LAMP ACCORDINGLY.
006225,000503:
006226,000504: 12,3232 10367 CCS IMODES30
006227,000505: 12,3233 13241 TCF TEMPOK
006228,000506: 12,3234 13241 TCF TEMPOK
006229,000507:
006230,000508: 12,3235 37647 CAF BIT4 # TURN ON LAMP.
006231,000509: 12,3236 00006 EXTEND
006232,000510: 12,3237 05011 WOR 11
006233,000511: 12,3240 12776 TCF NXTIFAIL
006234,000512:
006235,000513: 12,3241 03442 TEMPOK TC LAMPTEST # IF TEMP NOW OK, DONT TURN OFF LAMP IF
006236,000514: 12,3242 12776 TCF NXTIFAIL # LAMP TEST IN PROGRESS.
006237,000515:
006238,000516: 12,3243 47647 CS BIT4
006239,000517: 12,3244 00006 EXTEND
006240,000518: 12,3245 03011 WAND 11
006241,000519: 12,3246 12776 TCF NXTIFAIL
006242,000520:
006243,000521: 12,3247 37651 ITURNON CAF BIT2 # IF DELAY REQUEST HAS GONE OFF
006244,000522: 12,3250 70367 MASK IMODES30 # PREMATURELY, DO NOT PROCESS ANY CHANGES
006245,000523: 12,3251 10000 CCS A # UNTIL THE CURRENT 90 SEC WAIT EXPIRES.
006246,000524: 12,3252 12776 TCF NXTIFAIL
006247,000525:
006248,000526: 12,3253 37635 CAF BIT14 # SEE IF JUST ON OR OFF.
006249,000527: 12,3254 70367 MASK IMODES30
006250,000528: 12,3255 00006 EXTEND
006251,000529: 12,3256 13272 BZF ITURNON2 # IF JUST ON.
006252,000530:
006253,000531: 12,3257 37634 CAF BIT15
006254,000532: 12,3260 00006 EXTEND # SEE IF DELAY PRESENT DISCRETE HAS BEEN
006255,000533: 12,3261 02012 RAND 12 # SENT. IF SO, ACTION COMPLETE.
006256,000534: 12,3262 00006 EXTEND
006257,000535: 12,3263 13265 BZF +2
006258,000536: 12,3264 12776 TCF NXTIFAIL
006259,000537:
006260,000538: 12,3265 37651 CAF BIT2 # IF NOT, SET BIT TO INDICATE REQUEST NOT
006261,000539: 12,3266 26367 ADS IMODES30 # PRESENT FOR FULL DURATION.
006262,000540: 12,3267 05315 TC ALARM
006263,000541: 12,3270 00207 OCTAL 207
006264,000542: 12,3271 12776 TCF NXTIFAIL
006265,000543:
006266,000544: 12,3272 47644 ITURNON2 CS BIT7 # SET BIT 7 TO INITIATE WAIT OF 1 SAMPLE.
006267,000545: 12,3273 70367 MASK IMODES30
006268,000546: 12,3274 67644 AD BIT7
006269,000547: 12,3275 54367 TS IMODES30
006270,000548: 12,3276 12776 TCF NXTIFAIL
006271,000549: 12,3277 10000 IMUCAGE CCS A # NO ACTION IF GOING OFF.
006272,000550: 12,3300 12776 TCF NXTIFAIL
006273,000551:
006274,000552: 12,3301 43456 CS OCT71000 # TERMINATE ICDU AND GYRO PULSE TRAINS.
006275,000553: 12,3302 00006 EXTEND
006276,000554: 12,3303 03014 WAND 14
006277,000555:
006278,000556: 12,3304 03416 TC CAGESUB
006279,000557:
006280,000558: 12,3305 37657 CAF ZERO # ZERO COMMAND OUT-COUNTERS.
006281,000559: 12,3306 54050 TS CDUXCMD
006282,000560: 12,3307 54051 TS CDUYCMD
006283,000561: 12,3310 54052 TS CDUZCMD
006284,000562: 12,3311 54047 TS GYROCMD
006285,000563:
006286,000564: 12,3312 43455 CS OCT1700 # HAVING WAITED AT LEAST 27 MCT FROM
006287,000565: 12,3313 00006 EXTEND # GYRO PULSE TRAIN TERMINATION, WE CAN
006288,000566: 12,3314 03014 WAND 14 # DE-SELECT THE GYROS.
006289,000567:
006290,000568: 12,3315 12776 TCF NXTIFAIL
006291,000569:
006292,000570: 12,3316 00006 IMUOP EXTEND
006293,000571: 12,3317 13327 BZF IMUOP2
006294,000572:
006295,000573: 12,3320 40061 CS STATE # IF GOING OFF, ALARM IF PROG USING IMU.
006296,000574: 12,3321 77643 MASK IMUSEFLG
006297,000575: 12,3322 10000 CCS A
006298,000576: 12,3323 12776 TCF NXTIFAIL
006299,000577:
006300,000578: 12,3324 05315 TC ALARM
006301,000579: 12,3325 00214 OCT 214
006302,000580: 12,3326 12776 TCF NXTIFAIL
006303,000581:
006304,000582: 12,3327 37651 IMUOP2 CAF BIT2 # SEE IF FAILED ISS TURN-ON SEQ IN PROG.
006305,000583: 12,3330 70367 MASK IMODES30
006306,000584: 12,3331 10000 CCS A
006307,000585: 12,3332 12776 TCF NXTIFAIL # IF SO, DONT PROCESS UNTIL PRESENT 90
006308,000586: 12,3333 13272 TCF ITURNON2 # SECONDS EXPIRES.
006309,000587:
006310,000588: 12,3334 10000 PIPFAIL CCS A # SET BIT10 IN IMODES30 SO ALL ISS WARNING
006311,000589: 12,3335 37641 CAF BIT10 # INFO IS IN ONE REGISTER.
006312,000590: 12,3336 56367 XCH IMODES30
006313,000591: 12,3337 73460 MASK -BIT10
006314,000592: 12,3340 26367 ADS IMODES30
006315,000593:
006316,000594: 12,3341 03367 TC SETISSW
006317,000595:
006318,000596: 12,3342 40367 CS IMODES30 # IF PIP FAIL DOESNT LIGHT ISS WARNING, DO
006319,000597: 12,3343 77652 MASK BIT1 # A PROGRAM ALARM IF IMU OPERATING BUT NOT
006320,000598: 12,3344 10000 CCS A # CAGED OR BEING TURNED ON.
006321,000599: 12,3345 13164 TCF NXTFL33
006322,000600:
006323,000601: 12,3346 30367 CA IMODES30
006324,000602: 12,3347 73454 MASK OCT1720
006325,000603: 12,3350 10000 CCS A
006326,000604: 12,3351 13164 TCF NXTFL33 # ABOVE CONDITION NOT MET.
006327,000605:
006328,000606: 12,3352 05315 TC ALARM
006329,000607: 12,3353 00212 OCT 212
006330,000608: 12,3354 13164 TCF NXTFL33
006331,000609:
006332,000610: 12,3355 10000 DNTMFAST CCS A # DO PROG ALARM IF TM TOO FAST.
006333,000611: 12,3356 13164 TCF NXTFL33
006334,000612:
006335,000613: 12,3357 05315 TC ALARM
006336,000614: 12,3360 01105 OCT 1105
006337,000615: 12,3361 13164 TCF NXTFL33
006338,000616:
006339,000617: 12,3362 10000 UPTMFAST CCS A # SAME AS DNLINK TOO FAST WITH DIFFERENT
006340,000618: 12,3363 13164 TCF NXTFL33 # ALARM CODE.
006341,000619:
006342,000620: 12,3364 05315 TC ALARM
006343,000621: 12,3365 01106 OCT 1106
006344,000622: 12,3366 13164 TCF NXTFL33
006345,000623: # CLOSED SUBROUTINES FOR IMU MONITORING.
006346,000624: 12,3367 33447 SETISSW CAF OCT15 # SET ISS WARNING USING THE FAIL BITS IN
006347,000625: 12,3370 70367 MASK IMODES30 # BITS 13, 12, AND 10 OF IMODES30 AND THE
006348,000626: 12,3371 00006 EXTEND # FAILURE INHIBIT BITS IN POSITIONS
006349,000627: 12,3372 77641 MP BIT10 # 4, 3, AND 1.
006350,000628: 12,3373 30367 CA IMODES30
006351,000629: 12,3374 00006 EXTEND
006352,000630: 12,3375 04001 ROR L # 0 INDICATES FAILURE.
006353,000631: 12,3376 40000 COM
006354,000632: 12,3377 74427 MASK OCT15000
006355,000633: 12,3400 10000 CCS A
006356,000634: 12,3401 13412 TCF ISSWON # FAILURE.
006357,000635:
006358,000636: 12,3402 37652 ISSWOFF CAF BIT1 # DONT TURN OFF ISS WARNING IF LAMP TEST
006359,000637: 12,3403 70370 MASK IMODES33 # IN PROGRESS.
006360,000638: 12,3404 10000 CCS A
006361,000639: 12,3405 00002 TC Q
006362,000640:
006363,000641: 12,3406 47652 CS BIT1
006364,000642: 12,3407 00006 EXTEND
006365,000643: 12,3410 03011 WAND 11
006366,000644: 12,3411 00002 TC Q
006367,000645:
006368,000646: 12,3412 37652 ISSWON CAF BIT1
006369,000647: 12,3413 00006 EXTEND
006370,000648: 12,3414 05011 WOR 11
006371,000649: 12,3415 00002 TC Q
006372,000650:
006373,000651: 12,3416 43457 CAGESUB CS BITS6&15 # SET OUTBITS AND INTERNAL FLAGS FOR
006374,000652: 12,3417 00006 EXTEND # SYSTEM TURN-ON OR CAGE. DISABLE THE
006375,000653: 12,3420 03012 WAND 12 # ERROR COUNTER AND REMOVE IMU DELAY COMP.
006376,000654: 12,3421 33450 CAF BITS4&5 # SEND ZERO AND COARSE.
006377,000655: 12,3422 00006 EXTEND
006378,000656: 12,3423 05012 WOR 12
006379,000657: 12,3424 13752 TCF CAGESUB1
006380,000658:
006381,000659: 12,3425 70367 CAGESUB3 MASK IMODES30
006382,000660: 12,3426 63452 AD OCT75
006383,000661: 12,3427 54367 TS IMODES30
006384,000662:
006385,000663: 12,3430 00002 TC Q
006386,000664:
006387,000665: 12,3431 12,3367 IMUFAIL EQUALS SETISSW
006388,000666: 12,3431 12,3367 ICDUFAIL EQUALS SETISSW
006389,000667: # JUMP TABLES AND CONSTANTS.
006390,000668: 12,3431 13247 IFAILJMP TCF ITURNON # CHANNEL 30 DISPATCH.
006391,000669: 12,3432 13367 TCF IMUFAIL
006392,000670: 12,3433 13367 TCF ICDUFAIL
006393,000671: 12,3434 13277 TCF IMUCAGE
006394,000672: 12,3435 76400 30RDMSK OCT 76400 # (BIT 10 NOT SAMPLED HERE).
006395,000673: 12,3436 13316 TCF IMUOP
006396,000674:
006397,000675: 12,3437 13334 C33JMP TCF PIPFAIL # CHANNEL 33 DISPATCH.
006398,000676: 12,3440 13355 TCF DNTMFAST
006399,000677: 12,3441 13362 TCF UPTMFAST
006400,000678:
006401,000679: # SUBROUTINE TO SKIP IF LAMP TEST NOT IN PROGRESS.
006402,000680: 12,3442 40370 LAMPTEST CS IMODES33 # BIT1 OF IMODES33 = 1 IF LAMP TEST IN
006403,000681: 12,3443 77652 MASK BIT1 # PROGRESS.
006404,000682: 12,3444 10000 CCS A
006405,000683: 12,3445 24002 INCR Q
006406,000684: 12,3446 00002 TC Q
006407,000685:
006408,000686: 12,3447 4430 33RDMSK EQUALS PRIO16
006409,000687: 12,3447 00015 OCT15 OCT 15
006410,000688: 12,3450 00030 BITS4&5 OCT 30
006411,000689: 12,3451 00054 OCT54 OCT 54
006412,000690: 12,3452 00075 OCT75 OCT 75
006413,000691: 12,3453 00300 BITS7&8 OCT 300
006414,000692: 12,3454 01720 OCT1720 OCT 1720
006415,000693: 12,3455 01700 OCT1700 OCT 1700
006416,000694: 12,3456 4427 OCT15000 EQUALS PRIO15
006417,000695: 12,3456 71000 OCT71000 OCT 71000
006418,000696: 12,3457 40040 BITS6&15 OCT 40040
006419,000697: 12,3460 76777 -BIT10 OCT -1000
006420,000698:
006421,000699: 12,3461 21450 90SECS DEC 9000 B-14
006422,000700: 12,3462 00014 120MS DEC 12 B-14
006423,000701:
006424,000702: 12,3463 4511 GLOCKOK EQUALS RESUME
006425,000703: 12,3463 4511 NOIMUMON EQUALS GLOCKOK
006426,000704: # RR INBIT MONITOR.
006427,000705: 12,3463 11212 RRAUTCHK CCS LOTSFLAG
006428,000706: 12,3464 13572 TCF LOTSMON
006429,000707:
006430,000708: 12,3465 30413 CA RADMODES # SEE IF CHANGE IN RR AUTO MODE BIT.
006431,000709: 12,3466 00006 EXTEND
006432,000710: 12,3467 06033 RXOR 33
006433,000711: 12,3470 77651 MASK BIT2
006434,000712: 12,3471 00006 EXTEND
006435,000713: 12,3472 13526 BZF RRCDUCHK
006436,000714:
006437,000715: 12,3473 22413 LXCH RADMODES # UPDATE RADMODES.
006438,000716: 12,3474 00006 EXTEND
006439,000717: 12,3475 06001 RXOR L
006440,000718: 12,3476 54413 TS RADMODES
006441,000719: 12,3477 77651 MASK BIT2 # SEE IF JUST ON.
006442,000720: 12,3500 10000 CCS A
006443,000721: 12,3501 13520 TCF RROFF # OFF.
006444,000722:
006445,000723: 12,3502 37644 CAF BIT7 # IF JUST ON AND SOME PROGRAM IS USING THE
006446,000724: 12,3503 70061 MASK STATE # RR, DONT ZERO THE CDUS.
006447,000725: 12,3504 10000 CCS A
006448,000726: 12,3505 13526 TCF RRCDUCHK
006449,000727:
006450,000728: 12,3506 43517 CS OCT10001 # SET BITS TO INDICATE ZERO AND TURNON
006451,000729: 12,3507 70413 MASK RADMODES # IN PROGRESS.
006452,000730: 12,3510 63517 AD OCT10001
006453,000731: 12,3511 54413 TS RADMODES
006454,000732:
006455,000733: 12,3512 37652 CAF ONE
006456,000734: 12,3513 04451 TC WAITLIST
006457,000735: 12,3514 02000 20007 2CADR RRTURNON
006458,000736: 12,3516 14511 TCF NORRGMON
006459,000737:
006460,000738: 12,3517 10001 OCT10001 OCT 10001
006461,000739:
006462,000740: 12,3520 40061 RROFF CS STATE # IF SOMEONE WAS USING THE RR, DISPLAY AN
006463,000741: 12,3521 77644 MASK BIT7 # ALARM IF THE RR GOES OUT OF AUTO MODE.
006464,000742: 12,3522 10000 CCS A
006465,000743: 12,3523 13526 TCF RRCDUCHK
006466,000744:
006467,000745: 12,3524 05315 TC ALARM
006468,000746: 12,3525 00514 OCT 514
006469,000747: # CHECK FOR RR CDU FAIL.
006470,000748: 12,3526 30413 RRCDUCHK CA RADMODES # LAST SAMPLED BIT IN RADMODES.
006471,000749: 12,3527 00006 EXTEND
006472,000750: 12,3530 06030 RXOR 30
006473,000751: 12,3531 77644 MASK BIT7
006474,000752: 12,3532 00006 EXTEND
006475,000753: 12,3533 13546 BZF RRGIMON
006476,000754:
006477,000755: 12,3534 37651 CAF BIT2 # IF RR NOT IN AUTO MODE, DONT CHANGE BIT
006478,000756: 12,3535 70413 MASK RADMODES # 7 OF RADMODES. IF THIS WERE NOT DONE,
006479,000757: 12,3536 10000 CCS A # THE TRACKER FAIL MIGHT COME ON WHEN
006480,000758: 12,3537 14511 TCF NORRGMON # JUST READING LR DATA.
006481,000759:
006482,000760: 12,3540 37644 CAF BIT7 # SET BIT 7 OF RADMODES FOR SETTRKF.
006483,000761: 12,3541 22413 LXCH RADMODES # UPDATE RADMODES.
006484,000762: 12,3542 00006 EXTEND
006485,000763: 12,3543 06001 RXOR L
006486,000764: 12,3544 54413 TS RADMODES
006487,000765:
006488,000766: 12,3545 04744 TRKFLCDU TC SETTRKF # UPDATE TRACKER FAIL LAMP ON DSKY.
006489,000767: # THE RR GIMBAL LIMIT MONITOR IS ENABLED WHENEVER THE RR IS IN THE AUTO MODE EXCEPT WHEN THE RR CDUS ARE
006490,000768: # BEING ZEROED, OR DURING A REMODE OR MONITOR REPOSITION OPERATION. THE LATTER IS INITIATED BY THIS MONITOR WHEN
006491,000769: # THE GIMBALS EXCEED THE LIMITS FOR THE CURRENT MODE. A ROUTINE IS INITIATED TO DRIVE THE GIMBALS TO T = 0 AND
006492,000770: # S = 0 IF IN MODE 1 AND T = 180 WITH S = -90 FOR MODE 2.
006493,000771:
006494,000772: 12,3546 33570 RRGIMON CAF OCT32002 # INHIBITED BY REMODE, ZEROING, MONITOR,
006495,000773: 12,3547 70413 MASK RADMODES # OR RR NOT IN AUTO.
006496,000774: 12,3550 10000 CCS A
006497,000775: 12,3551 14511 TCF NORRGMON
006498,000776:
006499,000777: 12,3552 04702 TC RRLIMCHK # SEE IF ANGLES IN LIMITS.
006500,000778: 12,3553 00035 ADRES OPTY
006501,000779:
006502,000780: 12,3554 13556 TCF MONREPOS
006503,000781:
006504,000782: 12,3555 14511 TCF NORRGMON # (ADDITIONAL CODING MAY GO HERE).
006505,000783:
006506,000784: 12,3556 37640 MONREPOS CAF BIT11 # SET FLAG TO SHOW REPOSITION IN PROGRESS.
006507,000785: 12,3557 26413 ADS RADMODES
006508,000786:
006509,000787: 12,3560 43571 CS OCT20002 # DISABLE TRACKER AND ERROR COUNTER.
006510,000788: 12,3561 00006 EXTEND
006511,000789: 12,3562 03012 WAND 12
006512,000790:
006513,000791: 12,3563 37651 CAF TWO
006514,000792: 12,3564 04451 TC WAITLIST
006515,000793: 12,3565 02051 20007 2CADR DORREPOS
006516,000794: 12,3567 14511 TCF NORRGMON
006517,000795:
006518,000796: 12,3570 32002 OCT32002 OCT 32002
006519,000797: 12,3571 20002 OCT20002 OCT 20002
006520,000798:
006521,000799: 12,3572 4511 NORRGMON EQUALS RESUME
006522,000800:
006523,000801: 12,3572 31111 LOTSMON CA LOTMODES
006524,000802: 12,3573 00006 EXTEND
006525,000803: 12,3574 14511 BZF RESUME
006526,000804:
006527,000805: 12,3575 37635 CAF PRIO20
006528,000806: 12,3576 04276 TC NOVAC
006529,000807: 12,3577 1212 EBANK= LOTSFLAG
006530,000808: 12,3577 02000 16002 2CADR LOTSMONB
006531,000809:
006532,000810: 12,3601 14511 TCF RESUME
006533,000811:
006534,000812: 12,3602 ENDT4S EQUALS
End of include-file T4RUPT_PROGRAM.agc. Parent file is MAIN.agc