GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were obtained by digitally photographing
an Artemis 72 (Apollo 15-17 Command Module) program listing from a private
collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Photography was by Ron Burkey, and transcription
was performed by a team of volunteers. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971Note that the date is the date of the printout, not the date of the program revision. |
060901,000002: ## Copyright: Public domain.
060902,000003: ## Filename: IMU_MODE_SWITCHING_ROUTINES.agc
060903,000004: ## Purpose: Part of the source code for Artemis (i.e., Colossus 3),
060904,000005: ## build 072. This is for the Command Module's (CM)
060905,000006: ## Apollo Guidance Computer (AGC), for
060906,000007: ## Apollo 15-17.
060907,000008: ## Assembler: yaYUL
060908,000009: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
060909,000010: ## Website: www.ibiblio.org/apollo/index.html
060910,000011: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
060911,000012: ## Mod history: 2009-08-19 JL Adapted from corresponding Comanche 055 file.
060912,000013: ## 2010-02-06 JL Fixed a 2CADR that should have been ADRES on page 1418.
060913,000014: ## 2020-02-11 JL Fixed errors on p1419, p1432.
060914,000015: ## 2010-02-20 RSB Un-##'d this header.
060915,000016: ## 2010-07-15 JL Fixed indentation.
060916,000017: ## 2010-07-18 JL Fixed indentation.
060917,000018: ## 2017-02-05 RSB Proofed comment text by diff'ing vs Comanche 55
060918,000019: ## and corrected errors found. There are several instances
060919,000020: ## in which comments are terminated in Comanche 55 by a
060920,000021: ## very distinct period, and yet the corresponding comments
060921,000022: ## here haven't the slightest indication of a period (nor is
060922,000023: ## there any difference in the code preceding the comment
060923,000024: ## on the same line). There is even one instance in which
060924,000025: ## the "+0." at the end of a comment is truncated to simply
060925,000026: ## "+" (on p. 1438). While I feel this is likely a problem
060926,000027: ## with the printer used for the Artemis printout, I've
060927,000028: ## nevertheless omitted the "." (or "0.") in those cases.
060928,000029: ## 2017-03-15 RSB Comment-text fixes identified in 6-way
060929,000030: ## side-by-side diff of Sunburst 120 and Luminary
060930,000031: ## 69/99/116/131/210.
060931,000032: ## 2017-03-16 RSB Comment-text fixes identified in 4-way side-by-side
060932,000033: ## diff of Colossus237/249/Comanche55/Artemis72. My
060933,000034: ## position on missing trailing characters as described
060934,000035: ## in the 2017-02-05 comment above has now been reversed,
060935,000036: ## and the missing characters have been restored. However,
060936,000037: ## the presence of the characters in Comanche 55 is not
060937,000038: ## enough ... the restoration is done only in
060938,000039: ## those cases where the corresponding otherwise-identical
060939,000040: ## line in _all_ other Colossus and Luminary versions has
060940,000041: ## those characters. These instances are marked with a
060941,000042: ## ##-style comment indicating the restoration.
060942,000043:
|
|
Page 1417 |
060944,000045: 4000 SETLOC FFTAG3
060945,000046: 4000 BANK
060946,000047:
060947,000048: 5511 E3,1471 EBANK= COMMAND
060948,000049:
060949,000050: # FIXED-FIXED ROUTINES.
060950,000051:
060951,000052: 5511 COUNT* $$/IMODE
060952,000053: 5511 34772 ZEROICDU CAF ZERO # ZERO ICDU COUNTERS.
060953,000054: 5512 54032 TS CDUX
060954,000055: 5513 54033 TS CDUY
060955,000056: 5514 54034 TS CDUZ
060956,000057: 5515 00002 TC Q
060957,000058:
060958,000059: 5516 4760 SPSCODE = BIT9
060959,000060:
|
|
Page 1418 |
060961,000062: # IMU ZEROING ROUTINE.
060962,000063:
060963,000064: 07,2000 SETLOC MODESW
060964,000065: 07,2000 BANK
060965,000066:
060966,000067: 07,2627 COUNT* $$/IMODE
060967,000068: 07,2627 00004 IMUZERO INHINT # ROUTINE TO ZERO ICDUS.
060968,000069: 07,2630 41241 CS DSPTAB +11D # DONT ZERO CDUS IF IMU IN GIMBAL LOCK AND
060969,000070: 07,2631 75004 MASK BITS4&6 # COARSE ALIGN (GIMBAL RUNAWAY PROTECTION)
060970,000071: 07,2632 10000 CCS A
060971,000072: 07,2633 12637 TCF IMUZEROA
060972,000073:
060973,000074: 07,2634 05671 TC ALARM # IF SO.
060974,000075: 07,2635 00206 OCT 00206
060975,000076:
060976,000077: 07,2636 13622 TCF CAGETSTJ +4 # IMMEDIATE FAILURE.
060977,000078:
060978,000079: 07,2637 03616 IMUZEROA TC CAGETSTJ
060979,000080: # DO ALL THE WORK.
060980,000081: 07,2640 41334 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
060981,000082: 07,2641 74763 MASK NOIMUDAP
060982,000083: 07,2642 27334 ADS IMODES33
060983,000084: 07,2643 40000 COM
060984,000085: 07,2644 74764 MASK IMUZROBT
060985,000086: 07,2645 27334 ADS IMODES33
060986,000087:
060987,000088: 07,2646 41333 CS IMODES30 # INHIBIT ICDUFAIL AND IMUFAIL (IN CASE WE
060988,000089: 07,2647 74765 MASK IMUFINHT
060989,000090: 07,2650 27333 ADS IMODES30
060990,000091: 07,2651 40000 COM
060991,000092: 07,2652 74766 MASK ICDUINHT
060992,000093: 07,2653 27333 ADS IMODES30
060993,000094:
060994,000095: 07,2654 45004 CS BITS4&6 # SEND ZERO ENCODE WITH COARSE AND ERROR
060995,000096: 07,2655 00006 EXTEND # COUNTER DISABLED.
060996,000097: 07,2656 03012 WAND CHAN12
060997,000098:
060998,000099: 07,2657 03207 TC NOATTOFF # TURN OFF NO ATT LAMP.
060999,000100:
061000,000101: 07,2660 34764 CAF BIT5
061001,000102: 07,2661 00006 EXTEND
061002,000103: 07,2662 05012 WOR CHAN12
061003,000104:
061004,000105: 07,2663 05511 TC ZEROICDU
061005,000106: 07,2664 34763 CAF BIT6 # WAIT 320 MS TO GIVE AGS ADEQUATE TIME TO
061006,000107: 07,2665 05223 TC TWIDDLE # RECEIVE ITS PULSE TRAIN.
061007,000108: 07,2666 E3,1474 EBANK= CDUIND
061008,000109: 07,2666 02677 ADRES IMUZERO2
061009,000110: 07,2667 41333 CS IMODES30 # SEE IF IMU OPERATING AND ALARM IF NOT.
061010,000111: 07,2670 74760 MASK IMUOPBIT
|
|
Page 1419 |
061012,000113: 07,2671 10000 CCS A
061013,000114: 07,2672 12675 TCF MODEEXIT
061014,000115:
061015,000116: 07,2673 05671 TC ALARM
061016,000117: 07,2674 00210 OCT 210
061017,000118:
061018,000119: 07,2675 00003 MODEEXIT RELINT # GENERAL MODE-SWITCHING EXIT.
061019,000120: 07,2676 14651 TCF SWRETURN
061020,000121:
061021,000122:
061022,000123: 07,2677 03606 IMUZERO2 TC CAGETEST
061023,000124: 07,2700 05511 TC ZEROICDU # ZERO CDUX, CDUY, CDUZ
061024,000125:
061025,000126: 07,2701 44764 CS BIT5 # REMOVE ZERO DISCRETE.
061026,000127: 07,2702 00006 EXTEND
061027,000128: 07,2703 03012 WAND CHAN12
061028,000129:
061029,000130: 07,2704 35025 CAF 7.9SEC # WAIT 7.9 SECS FOR CTRS TO FIND GIMBALS
061030,000131: 07,2705 05260 TC VARDELAY
061031,000132:
061032,000133: 07,2706 03606 IMUZERO3 TC CAGETEST
061033,000134: 07,2707 34765 CA IMUFINHT
061034,000135: 07,2710 64766 AD ICDUINHT
061035,000136: 07,2711 40000 COM
061036,000137: 07,2712 71333 MASK IMODES30
061037,000138: 07,2713 55333 TS IMODES30
061038,000139:
061039,000140: 07,2714 34763 CA NOIMUDAP
061040,000141: 07,2715 64764 AD IMUZROBT
061041,000142: 07,2716 40000 COM
061042,000143: 07,2717 71334 MASK IMODES33 # BIT5 FOR GROUND
061043,000144: 07,2720 55334 TS IMODES33
061044,000145:
061045,000146: 07,2721 04714 TC IBNKCALL # SET ISS WARNING IF EITHER OF ABOVE ARE
061046,000147: 07,2722 14706 CADR SETISSW # PRESENT.
061047,000148:
061048,000149: 07,2723 13563 TCF ENDIMU
061049,000150:
|
|
Page 1420 |
061051,000152: # IMU COARSE ALIGN MODE.
061052,000153:
061053,000154: 07,2724 00004 IMUCOARS INHINT
061054,000155: 07,2725 03616 TC CAGETSTJ
061055,000156: 07,2726 03070 TC SETCOARS
061056,000157:
061057,000158: 07,2727 36211 CAF SIX
061058,000159: 07,2730 05233 TC WAITLIST
061059,000160: 07,2731 E3,1474 EBANK= CDUIND
061060,000161: 07,2731 02734 16063 2CADR COARS
061061,000162:
061062,000163: 07,2733 12675 TCF MODEEXIT
061063,000164:
061064,000165: 07,2734 03606 COARS TC CAGETEST
061065,000166: 07,2735 34763 CAF BIT6 # ENABLE ALL THREE ISS CDU ERROR COUNTERS
061066,000167: 07,2736 00006 EXTEND
061067,000168: 07,2737 05012 WOR CHAN12
061068,000169:
061069,000170: 07,2740 34767 CAF TWO # SET CDU INDICATOR
061070,000171: 07,2741 55474 COARS1 TS CDUIND
061071,000172:
061072,000173: 07,2742 51474 INDEX CDUIND # COMPUTE THETAD - THETAA IN 1:S
061073,000174: 07,2743 31307 CA THETAD # COMPLEMENT FORM
061074,000175: 07,2744 00006 EXTEND
061075,000176: 07,2745 51474 INDEX CDUIND
061076,000177: 07,2746 20032 MSU CDUX
061077,000178: 07,2747 00006 EXTEND
061078,000179: 07,2750 74754 MP BIT13 # SHIFT RIGHT 2
061079,000180: 07,2751 56001 XCH L # ROUND
061080,000181: 07,2752 60000 DOUBLE
061081,000182: 07,2753 54061 TS ITEMP1
061082,000183: 07,2754 12756 TCF +2
061083,000184: 07,2755 26001 ADS L
061084,000185:
061085,000186: 07,2756 51474 INDEX CDUIND # DIFFERENCE TO BE COMPUTED
061086,000187: 07,2757 23471 LXCH COMMAND
061087,000188: 07,2760 11474 CCS CDUIND
061088,000189: 07,2761 02741 TC COARS1
061089,000190:
061090,000191: 07,2762 34767 CAF TWO # MINIMUM OF 4 MS WAIT
061091,000192: 07,2763 05260 -1 TC VARDELAY
061092,000193: 07,2764 03606 COARS2 TC CAGETEST # DONT CONTINUE IF CAGED.
061093,000194: 07,2765 54061 TS ITEMP1 # SETS TO +0.
061094,000195: 07,2766 34767 CAF TWO # SET CDU INDICATOR
061095,000196: 07,2767 55474 +3 TS CDUIND
061096,000197:
061097,000198: 07,2770 51474 INDEX CDUIND
061098,000199: 07,2771 11471 CCS COMMAND # NUMBER OF PULSES REQUIRED
061099,000200: 07,2772 02776 TC COMPOS # GREATER THAN MAX ALLOWED
|
|
Page 1421 |
061101,000202: 07,2773 03005 TC NEXTCDU +1
061102,000203: 07,2774 03043 TC COMNEG
061103,000204: 07,2775 03005 TC NEXTCDU +1
061104,000205:
061105,000206: 07,2776 63663 COMPOS AD -COMMAX # COMMAX = MAX NUMBER OF PULSES ALLOWED
061106,000207: 07,2777 00006 EXTEND # MINUS ONE
061107,000208: 07,3000 63053 BZMF COMZERO
061108,000209: 07,3001 51474 INDEX CDUIND
061109,000210: 07,3002 55471 TS COMMAND # REDUCE COMMAND BY MAX NUMBER OF PULSES
061110,000211: 07,3003 43664 CS -COMMAX- # ALLOWED
061111,000212:
061112,000213: 07,3004 24061 NEXTCDU INCR ITEMP1
061113,000214: 07,3005 64771 +1 AD NEG0
061114,000215: 07,3006 51474 INDEX CDUIND
061115,000216: 07,3007 54050 TS CDUXCMD # SET UP COMMAND REGISTER.
061116,000217:
061117,000218: 07,3010 11474 CCS CDUIND
061118,000219: 07,3011 02767 TC COARS2 +3
061119,000220:
061120,000221: 07,3012 10061 CCS ITEMP1 # SEE IF ANY PULSES TO GO OUT.
061121,000222: 07,3013 13057 TCF SENDPULS
061122,000223:
061123,000224: 07,3014 05255 TC FIXDELAY # WAIT FOR GIMBALS TO SETTLE.
061124,000225: 07,3015 00226 DEC 150 B-14
061125,000226:
061126,000227: 07,3016 34767 CAF TWO # AT END OF COMMAND, CHECK TO SEE THAT
061127,000228: 07,3017 54061 CHKCORS TS ITEMP1 # GIMBALS ARE WITHIN 2 DEGREES OF THETAD.
061128,000229: 07,3020 50000 INDEX A
061129,000230: 07,3021 30032 CA CDUX
061130,000231: 07,3022 00006 EXTEND
061131,000232: 07,3023 50061 INDEX ITEMP1
061132,000233: 07,3024 21307 MSU THETAD
061133,000234: 07,3025 10000 CCS A
061134,000235: 07,3026 13034 TCF COARSERR
061135,000236: 07,3027 13031 TCF CORSCHK2
061136,000237: 07,3030 13034 TCF COARSERR
061137,000238:
|
|
Page 1422 |
061139,000240:
061140,000241: 07,3031 10061 CORSCHK2 CCS ITEMP1
061141,000242: 07,3032 13017 TCF CHKCORS
061142,000243: 07,3033 13563 TCF ENDIMU # END OF COARSE ALIGNMENT.
061143,000244:
061144,000245: 07,3034 63042 COARSERR AD COARSTOL # 2 DEGREES.
061145,000246: 07,3035 00006 EXTEND
061146,000247: 07,3036 63031 BZMF CORSCHK2
061147,000248:
061148,000249:
061149,000250: 07,3037 05671 TC ALARM # COARSE ALIGN ERROR.
061150,000251: 07,3040 00211 OCT 211
061151,000252:
061152,000253: 07,3041 13625 TCF IMUBAD
061153,000254:
061154,000255: 07,3042 77511 COARSTOL DEC -.01111 # 2 DEGREES SCALED AT HALF-REVOLUTIONS
061155,000256:
061156,000257:
061157,000258: 07,3043 63663 COMNEG AD -COMMAX
061158,000259: 07,3044 00006 EXTEND
061159,000260: 07,3045 63053 BZMF COMZERO
061160,000261: 07,3046 40000 COM
061161,000262: 07,3047 51474 INDEX CDUIND
061162,000263: 07,3050 55471 TS COMMAND
061163,000264: 07,3051 33664 CA -COMMAX-
061164,000265: 07,3052 03004 TC NEXTCDU
061165,000266:
061166,000267: 07,3053 34772 COMZERO CAF ZERO
061167,000268: 07,3054 51474 INDEX CDUIND
061168,000269: 07,3055 57471 XCH COMMAND
061169,000270: 07,3056 03004 TC NEXTCDU
061170,000271:
061171,000272:
061172,000273: 07,3057 37673 SENDPULS CAF 13,14,15
061173,000274: 07,3060 00006 EXTEND
061174,000275: 07,3061 05014 WOR CHAN14
061175,000276: 07,3062 33665 CAF 600MS
061176,000277: 07,3063 12763 TCF COARS2 -1 # THEN TO VARDELAY
061177,000278:
061178,000279: 07,3064 34763 CA+ECE CAF BIT6 # ENABLE ALL THREE ISS CDU ERROR COUNTERS
061179,000280: 07,3065 00006 EXTEND
061180,000281: 07,3066 05012 WOR CHAN12
061181,000282: 07,3067 05314 TC TASKOVER
061182,000283:
|
|
Page 1423 |
061184,000285: 07,3070 34765 SETCOARS CAF BIT4 # BYPASS IF ALREADY IN COARSE ALIGN
061185,000286: 07,3071 00006 EXTEND
061186,000287: 07,3072 02012 RAND CHAN12
061187,000288: 07,3073 10000 CCS A
061188,000289: 07,3074 00002 TC Q
061189,000290:
061190,000291: 07,3075 44763 CS BIT6 # CLEAR ISS ERROR COUNTERS
061191,000292: 07,3076 00006 EXTEND
061192,000293: 07,3077 03012 WAND CHAN12
061193,000294:
061194,000295: 07,3100 44757 CS BIT10 # KNOCK DOWN GYRO ACTIVITY
061195,000296: 07,3101 00006 EXTEND
061196,000297: 07,3102 03014 WAND CHAN14
061197,000298: 07,3103 44772 CS ZERO
061198,000299: 07,3104 54047 TS GYROCMD
061199,000300:
061200,000301: 07,3105 34765 CAF BIT4 # PUT ISS IN COARSE ALIGN
061201,000302: 07,3106 00006 EXTEND
061202,000303: 07,3107 05012 WOR CHAN12
061203,000304:
061204,000305: 07,3110 41241 CS DSPTAB +11D # TURN ON NO ATT LAMP
061205,000306: 07,3111 77664 MASK OCT40010
061206,000307: 07,3112 27241 ADS DSPTAB +11D
061207,000308:
061208,000309: 07,3113 41334 CS IMODES33 # DISABLE DAP AUTO AND HOLD MODES
061209,000310: 07,3114 74763 MASK NOIMUDAP
061210,000311: 07,3115 27334 ADS IMODES33
061211,000312:
061212,000313: 07,3116 41333 CS IMODES30 # DISABLE IMUFAIL
061213,000314: 07,3117 74765 MASK IMUFINHT
061214,000315: 07,3120 27333 ADS IMODES30
061215,000316:
061216,000317: 07,3121 44764 RNDREFDR CS TRACKBIT # KNOCK DOWN TRACK FLAG
061217,000318: 07,3122 70075 MASK FLAGWRD1
061218,000319: 07,3123 54075 TS FLAGWRD1
061219,000320:
061220,000321: 07,3124 44752 CS DRFTBIT # KNOCK DOWN DRIFT FLAG
061221,000322: 07,3125 70076 MASK FLAGWRD2
061222,000323: 07,3126 54076 TS FLAGWRD2
061223,000324:
061224,000325: 07,3127 44754 CS REFSMBIT # KNOCK DOWN REFSMMAT FLAG
061225,000326: 07,3130 70077 MASK FLAGWRD3
061226,000327: 07,3131 54077 TS FLAGWRD3
061227,000328:
061228,000329: 07,3132 00002 TC Q
061229,000330:
061230,000331: 07,3133 7664 OCT40010 EQUALS OT40010
061231,000332:
|
|
Page 1424 |
061233,000334:
061234,000335: # IMU FINE ALIGN MODE SWITCH.
061235,000336:
061236,000337: 07,3133 00004 IMUFINE INHINT
061237,000338: 07,3134 03616 TC CAGETSTJ # SEE IF IMU BEING CAGED.
061238,000339:
061239,000340: 07,3135 45001 CS BITS4-5 # RESET ZERO AND COARSE
061240,000341: 07,3136 00006 EXTEND
061241,000342: 07,3137 03012 WAND CHAN12
061242,000343:
061243,000344: 07,3140 44763 CS NOIMUDAP # INSURE DAP AUTO AND HOLD MODES ENABLED
061244,000345: 07,3141 71334 MASK IMODES33
061245,000346: 07,3142 55334 TS IMODES33
061246,000347:
061247,000348: 07,3143 03207 TC NOATTOFF
061248,000349:
061249,000350: 07,3144 34757 CAF BIT10 # IMU FAIL WAS INHIBITED DURING THE
061250,000351: 07,3145 05223 TC TWIDDLE # PRESUMABLY PRECEDING COARSE ALIGN. LEAVE
061251,000352: 07,3146 03155 ADRES IFAILOK # IT ON FOR THE FIRST 5 SECS OF FINE ALIGN
061252,000353: 07,3147 35017 CAF 2SECS
061253,000354: 07,3150 05223 TC TWIDDLE
061254,000355: 07,3151 03153 ADRES IMUFINED
061255,000356: 07,3152 12675 TCF MODEEXIT
061256,000357:
061257,000358: 07,3153 03606 IMUFINED TC CAGETEST # SEE THAT NO ONE HAS CAGED THE IMU.
061258,000359: 07,3154 13563 TCF ENDIMU
061259,000360:
|
|
Page 1425 |
061261,000362: 07,3155 03613 IFAILOK TC CAGETSTQ # ENABLE IMU FIAL UNLESS IMU BEING CAGED.
061262,000363: 07,3156 15314 TCF TASKOVER # IT IS.
061263,000364:
061264,000365: 07,3157 34765 CAF BIT4 # DONT RESET IMU FAIL INHIBIT IF SOMEONE
061265,000366: 07,3160 00006 EXTEND # HAS GONE INTO COARSE ALIGN.
061266,000367: 07,3161 02012 RAND CHAN12
061267,000368: 07,3162 10000 CCS A
061268,000369: 07,3163 15314 TCF TASKOVER
061269,000370:
061270,000371: 07,3164 41333 CS IMODES30 # RESET IMUFAIL.
061271,000372: 07,3165 74754 MASK IMUFLBIT
061272,000373: 07,3166 27333 ADS IMODES30
061273,000374: 07,3167 44765 CS IMUFINHT
061274,000375: 07,3170 71333 PFAILOK2 MASK IMODES30
061275,000376: 07,3171 55333 TS IMODES30
061276,000377: 07,3172 04714 TC IBNKCALL # THE ISS WARNING LIGHT MAY COME ON NOW
061277,000378: 07,3173 14706 CADR SETISSW # THAT THE INHIBIT HAS BEEN REMOVED.
061278,000379: 07,3174 15314 TCF TASKOVER
061279,000380:
061280,000381: 07,3175 03613 PFAILOK TC CAGETSTQ # ENABLE PIP FAIL PROG ALARM.
061281,000382: 07,3176 15314 TCF TASKOVER
061282,000383:
061283,000384: 07,3177 41333 CS IMODES30 # RESET IMU AND PIPA FAIL BITS.
061284,000385: 07,3200 74757 MASK PIPAFLBT
061285,000386: 07,3201 27333 ADS IMODES30
061286,000387:
061287,000388: 07,3202 41334 CS IMODES33
061288,000389: 07,3203 74754 MASK PIP2FLBT
061289,000390: 07,3204 27334 ADS IMODES33
061290,000391:
061291,000392: 07,3205 44764 CS NOACCALM
061292,000393: 07,3206 13170 TCF PFAILOK2
061293,000394:
061294,000395: 07,3207 47664 NOATTOFF CS OCT40010 # SUBROUTINE TO TURN OFF NO ATT LAMP.
061295,000396: 07,3210 71241 MASK DSPTAB +11D
061296,000397: 07,3211 64752 AD BIT15
061297,000398: 07,3212 55241 TS DSPTAB +11D
061298,000399: 07,3213 00002 TC Q
061299,000400:
|
|
Page 1426 |
061301,000402:
061302,000403: # ROUITNES TO INITIATE AND TERMINATE PROGRAM USE OF THE PIPAS. NO IMUSTALL REQUIRED IN EITHER CASE.
061303,000404:
061304,000405: 07,3214 44772 PIPUSE CS ZERO
061305,000406: 07,3215 54037 TS PIPAX
061306,000407: 07,3216 54040 TS PIPAY
061307,000408: 07,3217 54041 TS PIPAZ
061308,000409:
061309,000410: 07,3220 03613 PIPUSE1 TC CAGETSTQ # DO NOT ENABLE PIPA FAIL IF IMU IS CAGED
061310,000411: 07,3221 14651 TCF SWRETURN
061311,000412:
061312,000413: 07,3222 00004 INHINT
061313,000414: 07,3223 44770 CS ACCFINHT # IF PIPA FAILS FROM NOW ON (UNTIL
061314,000415: 07,3224 71333 MASK IMODES30 # PIPFREE), LIGHT ISS WARNING.
061315,000416: 07,3225 55333 TS IMODES30
061316,000417:
061317,000418: 07,3226 04714 PIPFREE2 TC IBNKCALL # ISS WARNING MIGHT COME ON NOW.
061318,000419: 07,3227 14706 CADR SETISSW # (OR GO OFF ON PIPFREE).
061319,000420:
061320,000421: 07,3230 12675 TCF MODEEXIT
061321,000422:
061322,000423: 07,3231 00004 PIPFREE INHINT # PROGRAM DONE WITH PIPAS. DONT LIGHT
061323,000424: 07,3232 41333 CS IMODES30 # ISS WARNING.
061324,000425: 07,3233 74770 MASK ACCFINHT
061325,000426: 07,3234 27333 ADS IMODES30
061326,000427:
061327,000428: 07,3235 74757 MASK PIPAFLBT # IF PIP FAIL ON, DO PROG ALARM AND RESET
061328,000429: 07,3236 10000 CCS A # ISS WARNING.
061329,000430: 07,3237 12675 TCF MODEEXIT
061330,000431:
061331,000432: 07,3240 05671 TC ALARM
061332,000433: 07,3241 00212 OCT 212
061333,000434:
061334,000435: 07,3242 00004 INHINT
061335,000436:
061336,000437: 07,3243 13226 TCF PIPFREE2
061337,000438:
|
|
Page 1427 |
061339,000440:
061340,000441: # THE FOLLOWING ROUTINE TORQUES THE IRIGS ACCORDING TO DOUBLE PRECISION INPUTS IN THE SIX REGISTERS
061341,000442: # BEGINNING AT THE ECADR ARRIVING IN A. THE MINIMUM SIZE OF ANY PULSE TRAIN IS 16 PULSES (.25 CDU COUNTS). THE
061342,000443: # UNSENT PORTION OF THE COMMAND IS LEFT INTACT IN THE INPUT COMMAND REGISTERS.
061343,000444:
061344,000445: 07,3244 54161 IMUPULSE TS MPAC +5 # SAVE ARRIVING ECADR.
061345,000446: 07,3245 03616 TC CAGETSTJ # DONT PROCEED IF IMU BEING CAGED.
061346,000447:
061347,000448: 07,3246 11324 CCS LGYRO # SEE IF GYROS BUSY.
061348,000449: 07,3247 03307 TC GYROBUSY # SLEEP.
061349,000450:
061350,000451: 07,3250 34763 CAF BIT6 # ENABLE THE POWER SUPPLY.
061351,000452: 07,3251 00006 EXTEND
061352,000453: 07,3252 05014 WOR CHAN14
061353,000454:
061354,000455: 07,3253 34766 CAF FOUR
061355,000456: 07,3254 05233 GWAKE2 TC WAITLIST # (IF A JOB WAS PUT TO SLEEP, THE POWER
061356,000457: 07,3255 E3,1474 EBANK= CDUIND # SUPPLY IS LEFT ON BY THE WAKING JOB).
061357,000458: 07,3255 03324 16063 2CADR STRTGYRO
061358,000459:
061359,000460: 07,3257 30161 CA MPAC +5 # SET UP EBANK, SAVING CALLER'S EBANK FOR
061360,000461: 07,3260 56003 XCH EBANK # RESTORATION ON RETURN.
061361,000462: 07,3261 56161 XCH MPAC +5
061362,000463: 07,3262 55324 TS LGYRO # RESERVES GYROS.
061363,000464: 07,3263 74350 MASK LOW8
061364,000465: 07,3264 54061 TS ITEMP1
061365,000466:
061366,000467: 07,3265 34767 CAF TWO # FORCE SIGN AGREEMENT ON INPUTS.
061367,000468: 07,3266 54157 GYROAGRE TS MPAC +3
061368,000469: 07,3267 60000 DOUBLE
061369,000470: 07,3270 60061 AD ITEMP1
061370,000471: 07,3271 54160 TS MPAC +4
061371,000472: 07,3272 00006 EXTEND
061372,000473: 07,3273 50000 INDEX A
061373,000474: 07,3274 31401 DCA 1400
061374,000475: 07,3275 52155 DXCH MPAC
061375,000476: 07,3276 07224 TC DPAGREE
061376,000477: 07,3277 52155 DXCH MPAC
061377,000478: 07,3300 50160 INDEX MPAC +4
061378,000479: 07,3301 53401 DXCH 1400
061379,000480:
061380,000481: 07,3302 10157 CCS MPAC +3
061381,000482: 07,3303 13266 TCF GYROAGRE
061382,000483:
061383,000484: 07,3304 30161 CA MPAC +5 # RESTORE CALLER'S EBANK.
061384,000485: 07,3305 54003 TS EBANK
061385,000486: 07,3306 12675 TCF MODEEXIT
061386,000487:
|
|
Page 1428 |
061388,000489:
061389,000490: # ROUTINES TO ALLOW TORQUING BY ONLY ONE JOB AT A TIME.
061390,000491:
061391,000492: 07,3307 00006 GYROBUSY EXTEND # SAVE RETURN 2FCADR.
061392,000493: 07,3310 30134 DCA BUF2
061393,000494: 07,3311 52155 DXCH MPAC
061394,000495: 07,3312 33323 REGSLEEP CAF LGWAKE
061395,000496: 07,3313 15163 TCF JOBSLEEP
061396,000497:
061397,000498: 07,3314 11324 GWAKE CCS LGYRO # WHEN AWAKENED, SEE IF GYROS STILL BUSY.
061398,000499: 07,3315 13312 TCF REGSLEEP # IF SO, SLEEP SOME MORE.
061399,000500:
061400,000501: 07,3316 00006 EXTEND
061401,000502: 07,3317 30155 DCA MPAC
061402,000503: 07,3320 52134 DXCH BUF2 # RESTORE SWRETURN INFO.
061403,000504: 07,3321 34770 CAF ONE
061404,000505: 07,3322 13254 TCF GWAKE2
061405,000506:
061406,000507: 07,3323 17314 LGWAKE CADR GWAKE
061407,000508:
|
|
Page 1429 |
061409,000510:
061410,000511: # GYRO-TORQUING WAITLIST TASKS.
061411,000512:
061412,000513: 07,3324 43560 STRTGYRO CS GDESELCT # DE-SELECT LAST GYRO.
061413,000514: 07,3325 00006 EXTEND
061414,000515: 07,3326 03014 WAND CHAN14
061415,000516:
061416,000517: 07,3327 03575 TC CAGETSTG
061417,000518:
|
|
Trailing period restored. — RSB 2017. |
061419,000520: 07,3330 31324 STRTGYR2 CA LGYRO # JUMP ON PHASE COUNTER IN BITS 13-14.
061420,000521: 07,3331 00006 EXTEND
061421,000522: 07,3332 74765 MP BIT4
061422,000523: 07,3333 50000 INDEX A
061423,000524: 07,3334 13335 TCF +1
061424,000525: 07,3335 03352 TC GSELECT # =0. DO Y GYRO.
061425,000526: 07,3336 00202 OCT 00202
061426,000527:
061427,000528: 07,3337 03352 TC GSELECT # =1. DO Z GYRO.
061428,000529: 07,3340 00302 OCT 00302
061429,000530:
061430,000531: 07,3341 03350 TC GSELECT -2 # =2. DO X GYRO.
061431,000532: 07,3342 00100 OCT 00100
061432,000533:
061433,000534: 07,3343 34772 CAF ZERO # =3. DONE
061434,000535: 07,3344 55324 TS LGYRO
061435,000536: 07,3345 33323 CAF LGWAKE # WAKE A POSSIBLE SLEEPING JOB.
061436,000537: 07,3346 05167 TC JOBWAKE
061437,000538:
061438,000539: 07,3347 13153 NORESET TCF IMUFINED # DO NOT RESET POWER SUPPLY
061439,000540:
|
|
Page 1430 |
061441,000542:
|
|
Trailing period restored. — RSB 2017. |
061443,000544: 07,3350 44766 -2 CS FOUR # SPECIAL ENTRY TO REGRESS LGYRO FOR X.
061444,000545: 07,3351 27324 ADS LGYRO
061445,000546:
061446,000547: 07,3352 50002 GSELECT INDEX Q # SELECT GYRO.
061447,000548: 07,3353 30000 CAF 0 # PACKED WORD CONTAINS GYRO SELECT BITS
061448,000549: 07,3354 54064 TS ITEMP4 # AND INCREMENT TO LGYRO.
061449,000550: 07,3355 74774 MASK SEVEN
061450,000551: 07,3356 64754 AD BIT13
061451,000552: 07,3357 27324 ADS LGYRO
061452,000553: 07,3360 54003 TS EBANK
061453,000554: 07,3361 74350 MASK LOW8
061454,000555: 07,3362 54061 TS ITEMP1
061455,000556:
061456,000557: 07,3363 44774 CS SEVEN
061457,000558: 07,3364 70064 MASK ITEMP4
061458,000559: 07,3365 54064 TS ITEMP4
061459,000560:
061460,000561: 07,3366 00006 EXTEND # MOVE DP COMMAND TO RUPTREGS FOR TESTING.
061461,000562: 07,3367 50061 INDEX ITEMP1
061462,000563: 07,3370 31401 DCA 1400
061463,000564: 07,3371 52071 DXCH RUPTREG1
061464,000565:
061465,000566: 07,3372 10070 CCS RUPTREG1
061466,000567: 07,3373 13406 TCF MAJ+
061467,000568: 07,3374 13376 TCF +2
061468,000569: 07,3375 13541 TCF MAJ-
061469,000570:
061470,000571: 07,3376 10071 CCS RUPTREG2
061471,000572: 07,3377 13403 TCF MIN+
061472,000573: 07,3400 13330 TCF STRTGYR2
061473,000574: 07,3401 13536 TCF MIN-
061474,000575: 07,3402 13330 TCF STRTGYR2
061475,000576:
|
|
Page 1431 |
061477,000578:
061478,000579: 07,3403 63437 MIN+ AD -GYROMIN # SMALL POSITIVE COMMAND. SEE IF AT LEAST
061479,000580: 07,3404 00006 EXTEND # 16 GYRO PULSES.
061480,000581: 07,3405 63330 BZMF STRTGYR2
061481,000582:
061482,000583: 07,3406 00006 MAJ+ EXTEND # DEFINITE POSITIVE OUTPUT.
061483,000584: 07,3407 33562 DCA GYROFRAC
061484,000585: 07,3410 20071 DAS RUPTREG1
061485,000586:
061486,000587: 07,3411 30064 CA ITEMP4 # SELECT POSITIVE TORQUING FOR THIS GYRO.
061487,000588: 07,3412 00006 EXTEND
061488,000589: 07,3413 05014 WOR CHAN14
061489,000590:
061490,000591: 07,3414 36043 CAF LOW7 # LEAVE NUMBER OF POSSIBLE 8192 AUGMENTS
061491,000592: 07,3415 70071 MASK RUPTREG2 # TO INITIAL COMMAND IN MAJOR PART OF LONG
061492,000593: 07,3416 56071 XCH RUPTREG2 # TERM STORAGE AND TRUNCATED FRACTION
061493,000594: 07,3417 00006 GMERGE EXTEND # IN MINOR PART. THE MAJOR PART WILL BE
061494,000595: 07,3420 74761 MP BIT8 # COUNTED DOWN TO ZERO IN THE COURSE OF
061495,000596: 07,3421 54062 TS ITEMP2 # PUTTING OUT THE ENTIRE COMMAND.
061496,000597: 07,3422 30070 CA RUPTREG1
061497,000598: 07,3423 00006 EXTEND
061498,000599: 07,3424 74760 MP BIT9
061499,000600: 07,3425 54070 TS RUPTREG1
061500,000601: 07,3426 30001 CA L
061501,000602: 07,3427 00006 EXTEND
061502,000603: 07,3430 74753 MP BIT14
061503,000604: 07,3431 26062 ADS ITEMP2 # INITIAL COMMAND.
061504,000605:
061505,000606: 07,3432 00006 EXTEND # SEE IF MORE THAN ONE PULSE TRAIN NEEDED
061506,000607: 07,3433 30071 DCA RUPTREG1 # (MORE THAN 16383 PULSES).
061507,000608: 07,3434 67702 AD MINUS1
061508,000609: 07,3435 10000 CCS A
061509,000610: 07,3436 13503 TCF LONGGYRO
061510,000611: 07,3437 77601 -GYROMIN OCT -176 # MAY BE ADJUSTED TO SPECIFY MINIMUM CMD
061511,000612: 07,3440 13444 TCF +4
061512,000613:
061513,000614: 07,3441 34753 CAF BIT14
061514,000615: 07,3442 26062 ADS ITEMP2
061515,000616: 07,3443 34772 CAF ZERO
061516,000617:
061517,000618: 07,3444 50061 +4 INDEX ITEMP1
061518,000619: 07,3445 53401 DXCH 1400
061519,000620:
|
|
Page 1432 |
061521,000622:
061522,000623: 07,3446 30062 CA ITEMP2 # ENTIRE COMMAND.
061523,000624: 07,3447 54047 LASTSEG TS GYROCMD
061524,000625: 07,3450 03570 +1 TC COARSTST
061525,000626:
061526,000627: 07,3451 30047 CA GYROCMD
061527,000628: 07,3452 00006 EXTEND
061528,000629: 07,3453 74757 MP BIT10 # WAITLIST DT
061529,000630: 07,3454 66214 AD THREE # TRUNCATION AND PHASE UNCERTAINTIES.
061530,000631: 07,3455 05223 TC TWIDDLE
061531,000632: 07,3456 03467 ADRES TWOPULSE
061532,000633: 07,3457 03463 EXITGYRO TC GYROEXIT
061533,000634: 07,3460 15314 TCF TASKOVER
061534,000635: 07,3461 34767 OUTPULSE CA BIT2
061535,000636: 07,3462 54047 TS GYROCMD
061536,000637: 07,3463 34757 GYROEXIT CAF BIT10
061537,000638: 07,3464 00006 EXTEND
061538,000639: 07,3465 05014 WOR CHAN14
061539,000640: 07,3466 00002 TC Q
061540,000641: 07,3467 44760 TWOPULSE CS BIT9
061541,000642: 07,3470 00006 EXTEND
061542,000643: 07,3471 03014 WAND CHAN14
061543,000644: 07,3472 03461 TC OUTPULSE
061544,000645: 07,3473 34770 CA BIT1
061545,000646: 07,3474 05223 TC TWIDDLE
061546,000647: 07,3475 03324 ADRES STRTGYRO
061547,000648: 07,3476 34760 CA BIT9
061548,000649: 07,3477 00006 EXTEND
061549,000650: 07,3500 05014 WOR CHAN14
061550,000651: 07,3501 03461 TC OUTPULSE
061551,000652: 07,3502 15314 TCF TASKOVER
061552,000653: 07,3503 50061 LONGGYRO INDEX ITEMP1
061553,000654: 07,3504 53401 DXCH 1400 # INITIAL COMMAND OUT PLUS N AUGMENTS OF
|
|
Trailing period restored. — RSB 2017. |
061555,000656: 07,3505 34753 CAF BIT14 # 8192. INITIAL COMMAND IS AT LEAST 8192.
061556,000657: 07,3506 60062 AD ITEMP2
061557,000658: 07,3507 54047 TS GYROCMD
061558,000659:
061559,000660: 07,3510 00006 AUG3 EXTEND # GET WAITLIST DT TO TIME WHEN TRAIN IS
061560,000661: 07,3511 74757 MP BIT10 # ALMOST OUT.
061561,000662: 07,3512 67700 AD NEG3
061562,000663: 07,3513 05223 TC TWIDDLE
061563,000664: 07,3514 03516 ADRES 8192AUG
061564,000665: 07,3515 13457 TCF EXITGYRO
061565,000666:
061566,000667: 07,3516 03570 8192AUG TC COARSTST
061567,000668:
061568,000669: 07,3517 31324 CA LGYRO # ADD 8192 PULSES TO GYROCMD
061569,000670: 07,3520 54003 TS EBANK
061570,000671: 07,3521 74350 MASK LOW8
061571,000672: 07,3522 54061 TS ITEMP1
|
|
Page 1433 |
061573,000674: 07,3523 50061 INDEX ITEMP1 # SEE IF THIS IS THE LAST AUG.
061574,000675: 07,3524 11400 CCS 1400
061575,000676: 07,3525 13531 TCF AUG2 # MORE TO COME.
061576,000677:
061577,000678: 07,3526 34753 CAF BIT14
061578,000679: 07,3527 26047 ADS GYROCMD
061579,000680: 07,3530 13450 TCF LASTSEG +1
061580,000681:
061581,000682: 07,3531 50061 AUG2 INDEX ITEMP1
061582,000683: 07,3532 55400 TS 1400
061583,000684: 07,3533 34753 CAF BIT14
061584,000685: 07,3534 26047 ADS GYROCMD
061585,000686: 07,3535 13510 TCF AUG3 # COMPUTE DT.
061586,000687:
|
|
Page 1434 |
061588,000689:
061589,000690: 07,3536 63437 MIN- AD -GYROMIN # POSSIBLE NEGATIVE OUTPUT.
061590,000691: 07,3537 00006 EXTEND
061591,000692: 07,3540 63330 BZMF STRTGYR2
061592,000693:
061593,000694: 07,3541 00006 MAJ- EXTEND # DEFINITE NEGATIVE OUTPUT.
061594,000695: 07,3542 43562 DCS GYROFRAC
061595,000696: 07,3543 20071 DAS RUPTREG1
061596,000697:
061597,000698: 07,3544 30064 CA ITEMP4 # SELECT NEGATIVE TORQUING FOR THIS GYRO.
061598,000699: 07,3545 64760 AD BIT9
061599,000700: 07,3546 00006 EXTEND
061600,000701: 07,3547 05014 WOR CHAN14
061601,000702:
061602,000703: 07,3550 40070 CS RUPTREG1 # SET UP RUPTREGS TO FALL INTO GMERGE.
061603,000704: 07,3551 54070 TS RUPTREG1 # ALL NUMBERS PUT INTO GYROCMD ARE
061604,000705: 07,3552 40071 CS RUPTREG2 # POSITIVE - BIT9 OF CHAN 14 DETERMINES
061605,000706: 07,3553 76043 MASK LOW7 # THE SIGN OF THE COMMAND.
061606,000707: 07,3554 40000 COM
061607,000708: 07,3555 56071 XCH RUPTREG2
061608,000709: 07,3556 40000 COM
061609,000710: 07,3557 13417 TCF GMERGE
061610,000711:
061611,000712: 07,3560 01700 GDESELCT OCT 1700 # TURN OFF SELECT AND ACTIVITY BITS.
061612,000713:
061613,000714: 07,3561 00000 00034 GYROFRAC 2DEC .215 B-21
061614,000715:
|
|
Page 1435 |
061616,000717:
061617,000718: # IMU MODE SWITCHING ROUTINES COME HERE WHEN ACTION COMPLETE.
061618,000719:
061619,000720: 07,3563 00006 ENDIMU EXTEND # MODE IS BAD IF CAGE HAS OCCURED OR IF
061620,000721: 07,3564 00011 READ DSALMOUT # ISS WARNING IS ON.
061621,000722: 07,3565 74770 MASK BIT1
061622,000723: 07,3566 67702 AD NEG1
061623,000724: 07,3567 13626 TCF BADEND +1
061624,000725: 07,3570 34765 COARSTST CAF BIT4
061625,000726: 07,3571 00006 EXTEND
061626,000727: 07,3572 02012 RAND CHAN12
061627,000728: 07,3573 10000 CCS A
061628,000729: 07,3574 13601 TCF DONTPULS
061629,000730:
061630,000731: 07,3575 41333 CAGETSTG CS IMODES30
061631,000732: 07,3576 74763 MASK IMUNITBT
061632,000733: 07,3577 10000 CCS A
061633,000734: 07,3600 00002 TC Q
061634,000735:
061635,000736: 07,3601 34772 DONTPULS CAF ZERO
061636,000737: 07,3602 55324 TS LGYRO
061637,000738:
061638,000739: 07,3603 33323 CAF LGWAKE
061639,000740: 07,3604 05167 TC JOBWAKE
061640,000741:
061641,000742: 07,3605 13625 TCF IMUBAD
061642,000743: 07,3606 34763 CAGETEST CAF IMUNITBT # SUBROUTINE TO TERMINATE IMU MODE
061643,000744: 07,3607 71333 MASK IMODES30 # SWITCH IF IMU HAS BEEN CAGED.
061644,000745: 07,3610 10000 CCS A
061645,000746: 07,3611 13625 TCF IMUBAD # DIRECTLY.
061646,000747: 07,3612 00002 TC Q # WITH C(A) = +0.
061647,000748:
061648,000749: 07,3613 41333 CAGETSTQ CS IMODES30 # SKIP IF IMU NOT BEING CAGED.
061649,000750: 07,3614 74763 MASK IMUNITBT
061650,000751: 07,3615 15651 TCF INCRQCK
061651,000752: 07,3616 41333 CAGETSTJ CS IMODES30 # IF DURING MODE SWITCH INITIALIZATION
061652,000753: 07,3617 74763 MASK IMUNITBT # IT IS FOUND THAT THE IMU IS BEING CAGED,
061653,000754: 07,3620 10000 CCS A # SET IMUCADR TO -0 TO INDICATE OPERATION
061654,000755: 07,3621 00002 TC Q # COMPLETE BUT FAILED. RETURN IMMEDIATELY
061655,000756:
061656,000757: 07,3622 44772 +4 CS ZERO # TO SWRETURN
061657,000758: 07,3623 55335 TS IMUCADR
061658,000759: 07,3624 12675 TCF MODEEXIT
061659,000760:
061660,000761: 07,3625 07,3625 IMUBAD EQUALS BADEND
061661,000762:
|
|
Page 1436 |
061663,000764:
061664,000765: # GENERALIZED MODE SWITCHING TERMINATION. ENTER AT GOODEND FOR SUCCESSFUL COMPLETION OF AN I/O OPERATION
061665,000766: # OR AT BADEND FOR AN UNSUCCESSFUL ONE.
061666,000767:
061667,000768: 07,3625 44772 BADEND CS ZERO # FOR FAILURE.
061668,000769: 07,3626 54072 +1 TS RUPTREG3 # -0 FAILURE -1 SUCCESS
061669,000770: 07,3627 11335 CCS MODECADR
061670,000771: 07,3630 13632 TCF +2 # YES - WAKE IT UP.
061671,000772: 07,3631 13641 TCF ENDMODE # IF 0, PROGRAM NOT IN YET.
061672,000773:
061673,000774: 07,3632 34772 CAF ZERO # WAKE SLEEPING PROGRAM.
061674,000775: 07,3633 57335 XCH MODECADR
061675,000776: 07,3634 05167 TC JOBWAKE
061676,000777:
061677,000778: 07,3635 40072 CS RUPTREG3 # ADVANCE LOC IF SUCCESSFUL.
061678,000779: 07,3636 50064 INDEX LOCCTR
061679,000780: 07,3637 26164 ADS LOC
061680,000781:
061681,000782: 07,3640 15314 TCF TASKOVER
061682,000783:
061683,000784: 07,3641 30072 ENDMODE CA RUPTREG3 # -0 INDICATES OPERATION COMPLETE BUT
061684,000785: 07,3642 55335 TS MODECADR # SUCCESSFUL.
061685,000786: 07,3643 15314 TCF TASKOVER
061686,000787:
|
|
Page 1437 |
061688,000789:
061689,000790: # GENERAL STALLING ROUTINE. USING PROGRAMS COME HERE TO WAIT FOR I/O COMPLETION.
061690,000791:
061691,000792: # PROGRAM DESCRIPTION DATE- 21 FEB 1967
061692,000793: # LOG SECTION IMU MODE SWITCHING
061693,000794: # MOD BY- R.MELANSON TO ADD DOCUMENTATION ASSEMBLY SUNDISK REV. 82
061694,000795:
061695,000796: # FUNCTIONAL DESCRIPTION-
061696,000797: # TO DELAY FURTHER EXECUTION OF THE CALLING ROUTINE UNTIL ITS SELECTED
061697,000798: # I/O FUNCTION IS COMPLETE. THE FOLLOWING CHECKS ON THE CALLING ROUTINE:S
061698,000799: # MODECADR ARE MADE AND ACTED UPON.
061699,000800: # 1) +0 INDICATES INCOMPLETE I/O OPERATION. CALLING ROUTINE IS PUT TO
061700,000801: # SLEEP.
061701,000802: # 2) -1 INDICATES COMPLETED I/O OPERATION. STALL BYPASSES JOBSLEEP
061702,000803: # CALL AND RETURNS TO CALLING ROUTINE AT L+3
061703,000804: # 3) -0 INDICATES COMPLETED I/O WITH FAILURE. STALL CLEARS MODECADR
061704,000805: # AND RETURNS TO CALLING ROUTINE AT L+2.
061705,000806: # 4) VALUE GREATER THAN 0 INDICATES TWO ROUTINES CALLING FOR USE OF
061706,000807: # SAME DEVICE. STALL EXITS TO ABORT WHICH EXECUTES A PROGRAM
061707,000808: # RESTART WHICH IN TURN CLEARS ALL MODECADR REGISTERS.
061708,000809:
061709,000810: # CALLING SEQUENCE-
061710,000811: # L TC BANKCALL
061711,000812: # L+1 CADR IMUSTALL
061712,000813:
061713,000814: # NORMAL-EXIT MODE-
061714,000815: # TCF JOBSLEEP OR TCF MODEXIT
061715,000816:
061716,000817: # ALARM OR ABORT EXIT MODE-
061717,000818: # POODOO 21210
061718,000819:
061719,000820: # OUTPUT-
061720,000821: # MODECADR= CADR IF JOBSLEEP
061721,000822: # MODECADR=+0 IF I/O COMPLETE
061722,000823: # BUF2=L+3 IF I/O COMPLETE AND GOOD.
061723,000824: # BUF2=L+2 IF I/O COMPLETE BUT FAILED.
061724,000825:
061725,000826: # ERASABLE INITIALIZATION-
061726,000827: # BUF2 CONTAINS RETURN ADDRESS PLUS 1,(L+2)
061727,000828: # BUF2+1 CONTAINS FBANK VALUE OF CALLING ROUTINE.
061728,000829: # MODECADR CONTAINS +0, -1, -0 OR CADR RETURN ADDRESS.
061729,000830:
061730,000831:
061731,000832: 07,3644 11335 IMUSTALL CCS MODECADR
061732,000833: 07,3645 13661 TCF MODABORT # ALLOWABLE STATES ARE +0, -1, AND -0.
061733,000834: 07,3646 13656 TCF MODESLP # OPERATION INCOMPLETE.
061734,000835: 07,3647 13652 TCF MODEGOOD # COMPLETE AND GOOD IF = -1.
061735,000836:
061736,000837: 07,3650 55335 MG2 TS MODECADR # COMPLETE AND FAILED IF -0. RESET TO +0.
061737,000838: 07,3651 12675 TCF MODEEXIT # RETURN TO CALLER.
|
|
Page 1438 |
061739,000840: 07,3652 10000 MODEGOOD CCS A # MAKE SURE INITIAL STATE -1.
061740,000841: 07,3653 13661 TCF MODABORT
061741,000842:
061742,000843: 07,3654 24133 INCR BUF2 # IF SO, INCREMENT RETURN ADDRESS AND
|
|
Trailing "0." restored. — RSB 2017. |
061744,000845: 07,3655 13650 TCF MG2 # RETURN IMMEDIATELY, SETTING CADR = +0.
061745,000846:
061746,000847: 07,3656 04665 MODESLP TC MAKECADR # CALL FROM SWITCHABLE FIXED ONLY.
061747,000848: 07,3657 55335 TS MODECADR
061748,000849: 07,3660 15163 TCF JOBSLEEP
061749,000850:
061750,000851: 07,3661 05726 MODABORT TC POODOO # TWO PROGRAMS USING SAME DEVICE.
061751,000852: 07,3662 21210 OCT 21210
061752,000853:
|
|
Page 1439 |
061754,000855:
061755,000856: # CONSTANTS FOR MODE SWITCHING ROUTINES
061756,000857:
061757,000858: 07,3663 5775 BITS3&4 = OCT14
061758,000859: 07,3663 5004 BITS4&6 = OCT50
061759,000860: 07,3663 5001 BITS4-5 EQUALS BITS4&5
061760,000861: 07,3663 4761 IMUSEFLG EQUALS BIT8 # INTERPRETER SWITCH 7.
061761,000862: 07,3663 77500 -COMMAX DEC -191 B-14
061762,000863: 07,3664 77477 -COMMAX- DEC -192 B-14
061763,000864: 07,3665 00074 600MS DEC 60 B-14
061764,000865: 07,3666 07,3133 IMUFIN20 = IMUFINE
061765,000866:
|
|
Page 1440 |
061767,000868:
061768,000869: # PROGRAM DESCRIPTION
061769,000870: # IMU STATUS CHECK ROUTINE R02 (SUBROUTINE UTILITY)
061770,000871: # MOD NO - 1
061771,000872: # MOD BY - N.BRODEUR
061772,000873:
061773,000874: # FUNCTIONAL DESCRIPTION
061774,000875: # TO CHECK WHETHER IMU IS ON AND IF ON WHETHER IT IS ALIGNED TO AN
061775,000876: # ORIENTATION KNOWN BY THE CMC. TO REQUEST SELECTION OF THE APPROPRIATE
061776,000877: # PROGRAM IF THE IMU IS OFF OR NOT ALIGNED TO AN ORIENTATION KNOWN BY THE
061777,000878: # CMC. CALLED THROUGH BANKCALL
061778,000879:
061779,000880: # CALLING SEQUENCE-
061780,000881: # L TC BANKCALL
061781,000882: # L+1 CADR R02BOTH
061782,000883:
061783,000884: # SUBROUTINES CALLED
061784,000885: # VARALARM
061785,000886: # FLAGUP
061786,000887:
061787,000888: # NORMAL EXIT MODES
061788,000889: # AT L+2 OF CALLING SEQUENCE
061789,000890:
061790,000891: # ALARM OR ABORT EXIT MODES
061791,000892: # GOTOPOOH, WITH ALARM
061792,000893:
061793,000894: # ERASABLE INITIALIZATION REQUIRED
061794,000895: # NONE
061795,000896:
061796,000897: # DEBRIS
061797,000898: # CENTRALS - A,Q,L
061798,000899:
061799,000900: 01,2000 SETLOC R02
061800,000901: 01,2000 BANK
061801,000902: 01,3731 COUNT* $$/R02
061802,000903: 01,3731 34754 R02BOTH CAF REFSMBIT
061803,000904: 01,3732 70077 MASK FLAGWRD3
061804,000905: 01,3733 10000 CCS A
061805,000906: 01,3734 03745 TC R02ZERO # ZERO IMUS
061806,000907:
061807,000908: 01,3735 31333 CA IMODES30
061808,000909: 01,3736 74760 MASK IMUOPBIT # IS ISS INITIALIZED
061809,000910: 01,3737 00006 EXTEND
061810,000911: 01,3740 13742 BZF +2
061811,000912: 01,3741 44765 CS BIT4 # SEND IMU ALARM CODE 210
061812,000913: 01,3742 63750 AD OCT220 # SEND REFSMM ALARM
061813,000914: 01,3743 05770 TC VARALARM
061814,000915:
061815,000916: 01,3744 04103 TC GOTOPOOH
061816,000917: 01,3745 05547 R02ZERO TC UPFLAG
061817,000918: 01,3746 00007 ADRES IMUSE
061818,000919: 01,3747 14651 TCF SWRETURN
061819,000920: 01,3750 00220 OCT220 OCT 220
061820,000921:
|
|
Page 1441 |
061822,000923:
061823,000924: # PROGRAM DESCRIPTION P06 10FEB67
061824,000925:
061825,000926: # TRANSFER THE ISS/CMC FROM THE OPERATE TO THE STANDBY CONDITION.
061826,000927:
061827,000928: # THE NORMAL CONDITION OF READINESS OF THE GNCS WHEN NOT IN USE IS STANDBY. IN THIS CONDITION THE IMU
061828,000929: # HEATER POWER IS ON. THE IMU OPERATE POWER IS OFF. THE COMPUTER POWER IS ON. THE OPTICS POWER IS OFF. THE
061829,000930: # CMC STANDBY ON THE MAIN AND LEB DISKYS IS ON.
061830,000931:
061831,000932: # CALLING SEQUENCE:
061832,000933: # ASTRONAUT REQUEST THROUGH DSKY V37E 06E.
061833,000934:
061834,000935: # SUBROUTINES CALLED:
061835,000936: # GOPERF1
061836,000937: # BANKCALL
061837,000938: # FLAGDOWN
061838,000939:
|
|
Page 1442 |
061840,000941: # PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING THE SCALER AND TIME1 TIME2
061841,000942: # THE LOW 5 BITS OF THE SCALER ARE INSPECTED TO INSURE COMPATABILITY
061842,000943: # BETWEEN THE SCALER READING AND THE TIME1 TIME2 READING.
061843,000944:
061844,000945: 26,2000 SETLOC P05P06
061845,000946: 26,2000 BANK
061846,000947:
061847,000948: 26,3654 1006 EBANK= TIME2SAV
061848,000949: 26,3654 COUNT* $$/P06
061849,000950:
061850,000951: 26,3654 05547 P06 TC UPFLAG # SET NODOV37 BIT
061851,000952: 26,3655 00054 ADRES NODOFLAG
061852,000953:
061853,000954: 26,3656 00004 PRESTAND INHINT
061854,000955: 26,3657 00006 EXTEND
061855,000956: 26,3660 30025 DCA TIME2 # SNAPSHOT TIME1 TIME2
061856,000957: 26,3661 53007 DXCH TIME2SAV
061857,000958: 26,3662 03715 TC SCALPREP
061858,000959: 26,3663 03656 TC PRESTAND # T1,T2,SCALER NOT COMPATIBLE
061859,000960: 26,3664 52155 DXCH MPAC # T1,T2 AND SCALER OK
061860,000961: 26,3665 53011 DXCH SCALSAVE # STORE SCALER
061861,000962: 26,3666 00004 INHINT
061862,000963: 26,3667 04636 TC BANKCALL
061863,000964: 26,3670 17121 CADR RNDREFDR # REFSMM, DRIFT, TRACK FLAGS DOWN
061864,000965:
061865,000966: 26,3671 05561 TC DOWNFLAG
061866,000967: 26,3672 00007 ADRES IMUSE # IMUSE DOWN
061867,000968: 26,3673 05561 TC DOWNFLAG
061868,000969: 26,3674 00010 ADRES RNDVZFLG # RNDVZFLG DOWN
061869,000970:
061870,000971: 26,3675 05561 TC DOWNFLAG
061871,000972: 26,3676 00176 ADRES UTFLAG
061872,000973: 26,3677 34756 CAF BIT11
061873,000974: 26,3700 00006 EXTEND
061874,000975: 26,3701 05013 WOR CHAN13 # SET STANDBY ENABLE BIT
061875,000976:
061876,000977: 26,3702 05402 TC PHASCHNG # SET RESTART TO POSTAND WHEN STANDBY
061877,000978: 26,3703 07024 OCT 07024 # RECOVERS
061878,000979: 26,3704 20000 OCT 20000
061879,000980: 26,3705 1010 EBANK= SCALSAVE
061880,000981: 26,3705 03735 54062 2CADR POSTAND
061881,000982:
061882,000983: 26,3707 35011 CAF OCT62
061883,000984: 26,3710 04636 TC BANKCALL
061884,000985: 26,3711 21067 CADR GOPERF1
061885,000986: 26,3712 13707 TCF -3
061886,000987: 26,3713 13707 TCF -4
061887,000988: 26,3714 13707 TCF -5
061888,000989:
061889,000990: 26,3715 5011 OCT62 EQUALS .5SEC # DEC 50 = OCT 62
061890,000991:
|
|
Page 1443 |
061892,000993: # THE LOW 5 BITS OF THE SCALER READS 10000 FOR THE FIRST INTERVAL AFTER A
061893,000994: # T1 INCREMENT. IF SCALPREP DETECTS THIS INTERVAL THE T1,T2 AND SCALER
061894,000995: # DATA ARE NOT COMPATABLE AND RETURN IS TO L+1 FOR ANOTHER READING OF THE
061895,000996: # DATA. OTHERWISE, THE RETURN IS TO L+2 TO PROCEED. ROUTINE ALSO PREPARES
061896,000997: # THE SCALER READING FOR COMPUTATION OF THE INCREMENT TO UPDATE T1T2. (THE
061897,000998: # 10 MS BIT (BIT 6) OF THE SCALER IS INCREMENTED 5 MS OUT OF PHASE FROM
061898,000999: # T1.) ADDITION OF 5 MS (BIT 5) TO THE SCALER READING HAS THE EFFECT OF
061899,001000: # ADJUSTING BIT 6 IN THE SCALER TO BE IN PHASE WITH BIT 1 OF T1. THE LOW 5
061900,001001: # BITS OF THE SCALER READING ARE THEN SET TO ZERO, TO TRUNCATE THE SCALER
061901,001002: # DATA TO 10 MS. RESULTS ARE STORED IN MPAC, +1.
061902,001003:
061903,001004: 26,3715 00006 SCALPREP EXTEND
061904,001005: 26,3716 22156 QXCH MPAC +2
061905,001006: 26,3717 04511 TC FINETIME +1
061906,001007: 26,3720 00003 RELINT
061907,001008: 26,3721 52155 DXCH MPAC
|
|
Trailing period restored. — RSB 2017. |
061909,001010: 26,3722 34764 CA BIT5 # ADD 5 MS TO THE SCALER READING.
061910,001011: 26,3723 54001 TS L
061911,001012: 26,3724 34772 CA ZERO
061912,001013: 26,3725 20155 DAS MPAC
061913,001014: 26,3726 44342 CS LOW5 # SET LOW 5 BITS OF (SCALER+5MS) TO ZERO
061914,001015: 26,3727 70155 MASK MPAC +1 # AND STORE RESULTS IN MPAC,+1.
061915,001016: 26,3730 56155 XCH MPAC +1
061916,001017: 26,3731 74342 MASK LOW5 # TEST LOW 5 BITS OF SCALER FOR THE FIRST
061917,001018: # INTERVAL AFTER THE T1 INCREMENT
061918,001019: # (NOW = 00000, SINCE BIT 5 ADDED).
061919,001020: 26,3732 10000 CCS A # IS IT 1ST INTERVAL AFTER T1 INCREMENT
061920,001021: 26,3733 24156 INCR MPAC +2 # NO
061921,001022: 26,3734 00156 TC MPAC +2 # YES
061922,001023:
061923,001024: # POSTAND RECOVERS TIME AFTER STANDBY. THE SCALER IS SNAPSHOTTED AND THE
061924,001025: # TIME1 TIME2 COUNTER IS SET TO ZERO. THE LOW 5 BITS OF THE SCALER ARE
061925,001026: # INSPECTED TO INSURE COMPATABILITY BETWEEN THE SCALER READING AND THE
061926,001027: # CLEARING OF THE TIME COUNTER. IT THEN COMPUTES THE DIFFERENCE IN SCALER
061927,001028: # VALUES (IN DP) AND ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF
061928,001029: # TIME1 TIME2 AND PLACES THIS NEW TIME INTO THE TIME1 TIME2 COUNTER.
061929,001030:
061930,001031: 26,3735 COUNT* $$/P05
061931,001032:
061932,001033: 26,3735 44756 POSTAND CS BIT11 # RECOVER TIME AFTER STANDBY.
061933,001034: 26,3736 00006 EXTEND
061934,001035: 26,3737 03013 WAND CHAN13 # CLEAR STANDBY ENABLE BIT
061935,001036: 26,3740 00004 +3 INHINT
061936,001037: 26,3741 34772 CA ZERO
061937,001038: 26,3742 54001 TS L
061938,001039: 26,3743 52025 DXCH TIME2 # CLEAR TIME1 TIME2
061939,001040: 26,3744 03715 TC SCALPREP # STORE SCALER IN MPAC, MPAC+1
061940,001041: 26,3745 03740 TC POSTAND +3 # T1,T2,SCALER NOT COMPATIBLE
061941,001042: 26,3746 00006 EXTEND # T1,T2 AND SCALER OK
061942,001043: 26,3747 41011 DCS SCALSAVE
|
|
Page 1444 |
061944,001045: 26,3750 20155 DAS MPAC # FORM DP DIFFERENCE OF POSTSTANDBY SCALER
061945,001046: 26,3751 34757 CAF BIT10 # MINUS PRESTANDBY SCALER AND SHIFT RIGHT
061946,001047: 26,3752 07256 TC SHORTMP # 5 TO ALIGN BITS WITH TIME1 TIME2.
061947,001048: 26,3753 07224 TC DPAGREE
061948,001049: 26,3754 10154 CCS MPAC
061949,001050: 26,3755 03762 TC POSTCOM # IF DP DIFF NET +, NO SCALER OVERFLOW
061950,001051: 26,3756 03762 TC POSTCOM # BETWEEN PRE AND POST STANDBY.
061951,001052: 26,3757 03760 TC +1 # IF DP DIFF NET -, SCALER OVERFLOWED. ADD
061952,001053: 26,3760 34757 CAF BIT10 # BIT 10 TO HIGH DIFF TO CORRECT.
061953,001054: 26,3761 26154 ADS MPAC
061954,001055: 26,3762 00006 POSTCOM EXTEND # C(MPAC,+1) IS MAGNITUDE OF DELTA SCALER.
061955,001056: 26,3763 31007 DCA TIME2SAV # PRESTANDBY TIME1 TIME2
061956,001057: 26,3764 20155 DAS MPAC
061957,001058: 26,3765 07226 TC TPAGREE # FORCE SIGN AGREEMENT
061958,001059: 26,3766 52155 DXCH MPAC # UPDATED VALUE FOR T1,T2.
061959,001060: 26,3767 20025 DAS TIME2 # LOAD UPDATED VALUE INTO T1,T2, WITH
061960,001061: 26,3770 05561 TC DOWNFLAG # CLEAR NODOFLAG
061961,001062: 26,3771 00054 ADRES NODOFLAG
061962,001063:
061963,001064: 26,3772 04103 TCGOPOOH TC GOTOPOOH
End of include-file IMU_MODE_SWITCHING_ROUTINES.agc. Parent file is MAIN.agc