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. |
007226,000002: ## Copyright: Public domain.
007227,000003: ## Filename: AOTMARK.agc
007228,000004: ## Purpose: A section of Aurora 88.
007229,000005: ## It is part of the reconstructed source code for the final
007230,000006: ## release of the Lunar Module system test software. No original
007231,000007: ## listings of this program are available; instead, this file
007232,000008: ## was created via disassembly of dumps of Aurora 88 core rope
007233,000009: ## modules and comparison with other AGC programs.
007234,000010: ## Assembler: yaYUL
007235,000011: ## Contact: Ron Burkey <info@sandroid.org>.
007236,000012: ## Website: www.ibiblio.org/apollo/index.html
007237,000013: ## Mod history: 2023-06-30 MAS Created from Aurora 12.
007238,000014: ## 2023-07-12 MAS Updated for Aurora 88.
007239,000015:
007240,000016: 13,2753 SETLOC ENDIMODS
007241,000017:
007242,000018: 13,2753 E3,1462 EBANK= AOTAZ
007243,000019: 13,2753 00004 AOTMARK INHINT
007244,000020: 13,2754 54075 TS RUPTREG2 # BIT14=INFLIGHT 0=NONFLIGHT
007245,000021: 13,2755 10374 CCS MARKSTAT # ARE MARKS BUTTONS IN USE
007246,000022: 13,2756 02760 TC +2 # MARKS BUTTONS NOT AVAILABLE
007247,000023: 13,2757 02763 TC MKVAC # FIND A VAC AREA
007248,000024: 13,2760 05315 TC ALARM
007249,000025: 13,2761 00105 OCT 00105
007250,000026: 13,2762 04353 TC ENDOFJOB
007251,000027:
007252,000028: 13,2763 10431 MKVAC CCS VAC1USE
007253,000029: 13,2764 02777 TC MKVACFND
007254,000030: 13,2765 10505 CCS VAC2USE
007255,000031: 13,2766 02777 TC MKVACFND
007256,000032: 13,2767 10561 CCS VAC3USE
007257,000033: 13,2770 02777 TC MKVACFND
007258,000034: 13,2771 10635 CCS VAC4USE
007259,000035: 13,2772 02777 TC MKVACFND
007260,000036: 13,2773 10711 CCS VAC5USE
007261,000037: 13,2774 02777 TC MKVACFND
007262,000038: 13,2775 05350 TC ABORT # VAC AREAS OCCUPIED
007263,000039: 13,2776 01207 OCT 01207
007264,000040:
007265,000041: 13,2777 67651 MKVACFND AD TWO
007266,000042: 13,3000 54374 TS MARKSTAT
007267,000043: 13,3001 37657 CAF ZERO
007268,000044: 13,3002 54375 TS XYMARK # INITIALIZE MARK ID REGISTER
007269,000045: 13,3003 50374 INDEX MARKSTAT
007270,000046: 13,3004 53777 TS 0 -1 # SHOW VAC OCCUPIED
007271,000047:
007272,000048: 13,3005 30075 CA RUPTREG2
007273,000049: 13,3006 26374 ADS MARKSTAT
007274,000050:
007275,000051: 13,3007 34443 CAF PRIO32
007276,000052: 13,3010 04276 TC NOVAC
007277,000053: 13,3011 03022 26003 2CADR GETMKS
007278,000054:
007279,000055: 13,3013 02033 TC MODEEXIT
007280,000056:
007281,000057: 13,3014 37657 MKRELEAS CAF ZERO
007282,000058: 13,3015 56374 XCH MARKSTAT # SET MARKSTAT ZERO
007283,000059: 13,3016 10000 CCS A
007284,000060: 13,3017 50000 INDEX A
007285,000061: 13,3020 54000 TS 0 # SHOW VAC AREA AVAILABLE
007286,000062: 13,3021 04076 TC SWRETURN
007287,000063: 13,3022 37657 GETMKS CAF ZERO
007288,000064: 13,3023 54375 TS XYMARK
007289,000065: 13,3024 37635 CAF BIT14 # FIND IF IN-FLIGHT OR NON-FLIGHT
007290,000066: 13,3025 70374 MASK MARKSTAT
007291,000067: 13,3026 10000 CCS A
007292,000068: 13,3027 03036 TC MKVB53 # IN-FLIGHT
007293,000069: 13,3030 47640 CS BIT11 # NON-FLIGHT, SET Y MARK =1
007294,000070: 13,3031 70374 MASK MARKSTAT
007295,000071: 13,3032 67640 AD BIT11
007296,000072: 13,3033 54374 TS MARKSTAT
007297,000073: 13,3034 33355 CAF VB51 # REQUEST X MARK
007298,000074: 13,3035 03037 TC +2
007299,000075: 13,3036 33431 MKVB53 CAF VB53 # REQUEST X AND Y MARKS
007300,000076: 13,3037 05234 TC NVSBWAIT
007301,000077: 13,3040 05176 TC FLASHON
007302,000078: 13,3041 05042 TC ENDIDLE
007303,000079: 13,3042 03023 TC GETMKS +1
007304,000080: 13,3043 03023 TC GETMKS +1
007305,000081:
007306,000082: 13,3044 37641 MKCHEK CAF BIT10 # WAS X MARK MADE
007307,000083: 13,3045 70374 MASK MARKSTAT
007308,000084: 13,3046 10000 CCS A
007309,000085: 13,3047 03051 TC +2 # X MARK MADE-LOOK AT Y MARK
007310,000086: 13,3050 03055 TC MKALARM
007311,000087: 13,3051 37640 CAF BIT11
007312,000088: 13,3052 70374 MASK MARKSTAT
007313,000089: 13,3053 10000 CCS A
007314,000090: 13,3054 03063 TC GETDET # BOTH MARKS MADE-SHOW ACCEPT-GET DETENT
007315,000091:
007316,000092: 13,3055 05315 MKALARM TC ALARM # IF EITHER MARK IS MISSING AFTER ENTER
007317,000093: 13,3056 00111 OCT 111
007318,000094: 13,3057 44431 CS PRIO17 # SET BITS 10,11,12,13 TO ZERO IN MARKSTAT
007319,000095: 13,3060 70374 MASK MARKSTAT
007320,000096: 13,3061 54374 TS MARKSTAT
007321,000097: 13,3062 03022 TC GETMKS # GETMKS AGAIN
007322,000098:
007323,000099: 13,3063 47637 GETDET CS BIT12
007324,000100: 13,3064 70374 MASK MARKSTAT
007325,000101: 13,3065 67637 AD BIT12 # SET BIT12=1 TO SHOW MARKS ACCEPTED
007326,000102: 13,3066 54374 TS MARKSTAT
007327,000103: 13,3067 33427 DETVB21 CAF V21N43E
007328,000104: 13,3070 05234 TC NVSBWAIT
007329,000105: 13,3071 05042 TC ENDIDLE
007330,000106: 13,3072 03067 TC DETVB21
007331,000107: 13,3073 03067 TC DETVB21
007332,000108:
007333,000109: 13,3074 46165 CS OCT3
007334,000110: 13,3075 70375 MASK DETCODE
007335,000111: 13,3076 10000 CCS A
007336,000112: 13,3077 03067 TC DETVB21 # BAD CODE, REQUEST AGAIN
007337,000113: 13,3100 03103 TC +3 # LOOKS GOOD BUT COULD BE ZERO
007338,000114: 13,3101 03102 TC +1
007339,000115: 13,3102 03067 TC DETVB21
007340,000116: 13,3103 36165 CAF OCT3
007341,000117: 13,3104 70375 MASK DETCODE # SEE IF ZERO
007342,000118: 13,3105 10000 CCS A
007343,000119: 13,3106 03110 TC +2 # GOOD CODE-STORE ANGLES
007344,000120: 13,3107 03067 TC DETVB21 # ZERO-BAD CODE-REQUEST AGAIN
007345,000121:
007346,000122: 13,3110 37664 CAF LOW9
007347,000123: 13,3111 70374 MASK MARKSTAT
007348,000124: 13,3112 54002 TS BASVAC # STORE VAC AREA ADDRESS
007349,000125: 13,3113 50375 INDEX DETCODE
007350,000126: 13,3114 31464 CA AOTEL -1
007351,000127: 13,3115 50002 INDEX BASVAC
007352,000128: 13,3116 54011 TS 9D # STORE ELV ANGLE IN VAC +9
007353,000129: 13,3117 50375 INDEX DETCODE
007354,000130: 13,3120 31461 CA AOTAZ -1
007355,000131: 13,3121 50002 INDEX BASVAC
007356,000132: 13,3122 54010 TS 8D # STORE AZIMUTH IN VAC +8
007357,000133:
007358,000134: 13,3123 13541 TCF DETVB21A # IN-FLIGHT OR NON-FLIGHT
007359,000135: 13,3124 70374 DETVB21B MASK MARKSTAT
007360,000136: 13,3125 10000 CCS A
007361,000137: 13,3126 03146 TC MKOUT # IN-FLIGHT, NO MORE DATA NEEDED
007362,000138: 13,3127 03130 TC ROTVB24 # NON-FLIGHT, GET ROTATION ANGLES
007363,000139:
007364,000140: 13,3130 33430 ROTVB24 CAF V24N42E # REQUEST RETICLE ROTATION ANGLES
007365,000141: 13,3131 05234 TC NVSBWAIT
007366,000142: 13,3132 05042 TC ENDIDLE
007367,000143: 13,3133 03130 TC ROTVB24
007368,000144: 13,3134 03130 TC ROTVB24
007369,000145:
007370,000146: 13,3135 37664 CAF LOW9
007371,000147: 13,3136 70374 MASK MARKSTAT
007372,000148: 13,3137 54002 TS BASVAC
007373,000149: 13,3140 30336 CA DSPTEM2 # YROT
007374,000150: 13,3141 50002 INDEX BASVAC
007375,000151: 13,3142 54003 TS 3 # STORE Y RETICLE ROT ANGLE IN VAC +3
007376,000152: 13,3143 30337 CA DSPTEM2 +1 # SROT
007377,000153: 13,3144 50002 INDEX BASVAC
007378,000154: 13,3145 54005 TS 5 # STORE SPIRAL ROT ANGLE VAC +5
007379,000155:
007380,000156: 13,3146 37664 MKOUT CAF LOW9
007381,000157: 13,3147 70374 MASK MARKSTAT
007382,000158: 13,3150 54374 TS MARKSTAT # SET HI5 ZERO
007383,000159:
007384,000160: 13,3151 00004 INHINT
007385,000161: 13,3152 37652 CAF ONE
007386,000162: 13,3153 04451 TC WAITLIST
007387,000163: 13,3154 03157 26003 2CADR ENDMARKS
007388,000164: 13,3156 04353 TC ENDOFJOB
007389,000165:
007390,000166: 13,3157 37652 ENDMARKS CAF ONE
007391,000167: 13,3160 12667 TCF GOODEND
007392,000168: 13,3161 54016 MARKRUPT TS BANKRUPT
007393,000169: 13,3162 30033 CA CDUY # STORE CDU DATA AND TIME IN TEMP
007394,000170: 13,3163 54072 TS RUPTSTOR +2
007395,000171: 13,3164 30034 CA CDUZ
007396,000172: 13,3165 54074 TS RUPTSTOR +4
007397,000173: 13,3166 30032 CA CDUX
007398,000174: 13,3167 54076 TS RUPTSTOR +6
007399,000175: 13,3170 00006 EXTEND
007400,000176: 13,3171 30025 DCA TIME2
007401,000177: 13,3172 52071 DXCH RUPTSTOR
007402,000178:
007403,000179: 13,3173 56002 XCH Q
007404,000180: 13,3174 54012 TS QRUPT
007405,000181:
007406,000182: 13,3175 33425 CAF OCT34 # SEE IF X OR Y MARK OR MKREJECT
007407,000183: 13,3176 00006 EXTEND
007408,000184: 13,3177 02016 RAND NAVKEYIN
007409,000185: 13,3200 10000 CCS A
007410,000186: 13,3201 03203 TC +2 # ITS A LIVE ONE-CHECK FOR ACCEPT
007411,000187: 13,3202 03233 TC SOMEKEY # SOME OTHER KEY
007412,000188:
007413,000189: 13,3203 37637 CAF BIT12 # HAVE MARKS BEEN ACCEPTED
007414,000190: 13,3204 70374 MASK MARKSTAT
007415,000191: 13,3205 10000 CCS A
007416,000192: 13,3206 04511 TC RESUME # MARKS MADE AND ACCEPTED - DO NOTHING
007417,000193:
007418,000194: 13,3207 10374 CCS MARKSTAT # ARE MARKS BEING ACCEPTED
007419,000195: 13,3210 03214 TC FINDKEY
007420,000196: 13,3211 05315 TC ALARM # MARKS NOT BEING ACCEPTED
007421,000197: 13,3212 00112 OCT 112
007422,000198: 13,3213 04511 TC RESUME
007423,000199:
007424,000200: 13,3214 37646 FINDKEY CAF BIT5
007425,000201: 13,3215 00006 EXTEND
007426,000202: 13,3216 02016 RAND NAVKEYIN # CHANNEL 16
007427,000203: 13,3217 10000 CCS A
007428,000204: 13,3220 03361 TC MKREJ # ITS A MARK REJECT
007429,000205: 13,3221 37647 CAF BIT4
007430,000206: 13,3222 00006 EXTEND
007431,000207: 13,3223 02016 RAND NAVKEYIN
007432,000208: 13,3224 10000 CCS A
007433,000209: 13,3225 03251 TC YMKRUPT # ITS A Y MARK
007434,000210: 13,3226 37650 CAF BIT3
007435,000211: 13,3227 00006 EXTEND
007436,000212: 13,3230 02016 RAND NAVKEYIN
007437,000213: 13,3231 10000 CCS A
007438,000214: 13,3232 03245 TC XMKRUPT # ITS AN X MARK
007439,000215: 13,3233 33426 SOMEKEY CAF OCT140 # NOT MARK OR MARK REJECT
007440,000216: 13,3234 00006 EXTEND
007441,000217: 13,3235 02016 RAND NAVKEYIN
007442,000218: 13,3236 00006 EXTEND
007443,000219: 13,3237 13242 BZF +3 # IF NO INBITS.
007444,000220:
007445,000221: 13,3240 04102 TC POSTJUMP # IF DESCENT BITS.
007446,000222: 13,3241 22751 CADR DESCBITS
007447,000223: 13,3242 05315 +3 TC ALARM
007448,000224: 13,3243 00113 OCT 113
007449,000225: 13,3244 04511 TC RESUME
007450,000226:
007451,000227: 13,3245 37657 XMKRUPT CAF ZERO
007452,000228: 13,3246 54065 TS ITEMP1
007453,000229: 13,3247 37641 CAF BIT10
007454,000230: 13,3250 03254 TC +4
007455,000231: 13,3251 37652 YMKRUPT CAF ONE
007456,000232: 13,3252 54065 TS ITEMP1
007457,000233: 13,3253 37640 CAF BIT11
007458,000234: 13,3254 54375 TS XYMARK # SET MARK ID
007459,000235:
007460,000236: 13,3255 70374 MASK MARKSTAT
007461,000237: 13,3256 10000 CCS A
007462,000238: 13,3257 03261 TC +2 # MARK MADE BUT NOT DESIRED
007463,000239: 13,3260 03264 TC VACSTOR # MARK DESIRED AND MADE-STORE CDUS
007464,000240: 13,3261 05315 TC ALARM
007465,000241: 13,3262 00114 OCT 114
007466,000242: 13,3263 03315 TC REMARK # RENEW REQUEST
007467,000243:
007468,000244: 13,3264 37664 VACSTOR CAF LOW9 # STORE TIME AND CDUS IN VAC AREA
007469,000245: 13,3265 70374 MASK MARKSTAT
007470,000246: 13,3266 54066 TS ITEMP2
007471,000247: 13,3267 00006 EXTEND
007472,000248: 13,3270 30071 DCA RUPTSTOR
007473,000249: 13,3271 50066 INDEX ITEMP2
007474,000250: 13,3272 52001 DXCH 0 # STORE TIME1 AND TIME2 IN VAC
007475,000251: 13,3273 30066 CA ITEMP2
007476,000252: 13,3274 26065 ADS ITEMP1
007477,000253: 13,3275 30072 CA RUPTSTOR +2
007478,000254: 13,3276 50065 INDEX ITEMP1
007479,000255: 13,3277 54002 TS 2
007480,000256: 13,3300 30074 CA RUPTSTOR +4
007481,000257: 13,3301 50065 INDEX ITEMP1
007482,000258: 13,3302 54004 TS 4
007483,000259: 13,3303 30076 CA RUPTSTOR +6
007484,000260: 13,3304 50065 INDEX ITEMP1
007485,000261: 13,3305 54006 TS 6
007486,000262:
007487,000263: 13,3306 37636 CAF BIT13
007488,000264: 13,3307 60375 AD XYMARK
007489,000265: 13,3310 40000 COM
007490,000266: 13,3311 70374 MASK MARKSTAT
007491,000267: 13,3312 60375 AD XYMARK # SET MARK MADE BIT IN MARKSTAT=1
007492,000268: 13,3313 54374 TS MARKSTAT # AND SET BIT13 ZERO TO SHOW MARK
007493,000269: 13,3314 03315 TC REMARK # MADE BEFORE A REJECT - GO REMARK
007494,000270: 13,3315 37657 REMARK CAF ZERO
007495,000271: 13,3316 54077 TS MKDEX # MKDEX=0
007496,000272: 13,3317 37640 CAF BIT11 # LOOK A Y MARK
007497,000273: 13,3320 70374 MASK MARKSTAT
007498,000274: 13,3321 10000 CCS A
007499,000275: 13,3322 03325 TC +3 # Y MARK MADE
007500,000276: 13,3323 37643 CAF BIT8 # Y MARK REQUIRED
007501,000277: 13,3324 54077 TS MKDEX
007502,000278:
007503,000279: 13,3325 37641 CAF BIT10 # LOOK AT X MARK
007504,000280: 13,3326 70374 MASK MARKSTAT
007505,000281: 13,3327 10000 CCS A
007506,000282: 13,3330 03333 TC MKJOB
007507,000283: 13,3331 37644 CAF BIT7 # X MARK REQUIRED
007508,000284: 13,3332 26077 ADS MKDEX
007509,000285:
007510,000286: 13,3333 34443 MKJOB CAF PRIO32
007511,000287: 13,3334 04276 TC NOVAC # ENTER JOB TO PASTE VERB
007512,000288: 13,3335 03343 26003 2CADR CHANGVB
007513,000289:
007514,000290: 13,3337 30077 CA RUPTREG4
007515,000291: 13,3340 50071 INDEX LOCCTR
007516,000292: 13,3341 54140 TS MPAC
007517,000293: 13,3342 04511 TC RESUME
007518,000294:
007519,000295: 13,3343 10140 CHANGVB CCS MPAC
007520,000296: 13,3344 03347 TC SHOWVB
007521,000297: 13,3345 33432 CAF VB21N30E
007522,000298: 13,3346 03351 TC SHOWVB +2
007523,000299: 13,3347 33433 SHOWVB CAF VB50
007524,000300: 13,3350 60140 AD MPAC
007525,000301: 13,3351 54107 TS NVTEMP
007526,000302: 13,3352 30323 CA CADRSTOR # NVSUB CLOBBERS THIS-USE LOC AS TEMP
007527,000303: 13,3353 54150 TS LOC
007528,000304: 13,3354 05014 TC NVSUB +3
007529,000305: 13,3355 05100 VB51 OCT 5100
007530,000306: 13,3356 30150 CA LOC # RESTORE CADRSTOR
007531,000307: 13,3357 54323 TS CADRSTOR
007532,000308: 13,3360 04353 TC ENDOFJOB
007533,000309:
007534,000310: 13,3361 37635 MKREJ CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
007535,000311: 13,3362 70374 MASK MARKSTAT
007536,000312: 13,3363 10000 CCS A
007537,000313: 13,3364 03372 TC REJIN # IN-FLIGHT
007538,000314: 13,3365 37641 CAF BIT10 # NON-FLIGHT, SEE IF X MARK MADE
007539,000315: 13,3366 70374 MASK MARKSTAT
007540,000316: 13,3367 10000 CCS A
007541,000317: 13,3370 03414 TC REJECT2 # XMARK MADE-REJECT IT
007542,000318: 13,3371 03376 TC REJALARM # X MARK NOT MADE-ALARM-NO MARKS TO REJ
007543,000319: 13,3372 34417 REJIN CAF PRIO3 # WERE IN-FLIGHT MARKS MADE
007544,000320: 13,3373 70374 MASK MARKSTAT
007545,000321: 13,3374 10000 CCS A
007546,000322: 13,3375 03401 TC REJECT # MARKS MADE-REJECT ONE
007547,000323: 13,3376 05315 REJALARM TC ALARM # NO MARKS MADE TO REJECT-GET MARKS
007548,000324: 13,3377 00115 OCT 115
007549,000325: 13,3400 03414 TC REJECT2
007550,000326: 13,3401 47636 REJECT CS BIT13 # SHOW MKREJECT AND SEE MARK MADE
007551,000327: 13,3402 70374 MASK MARKSTAT # SINCE LAST REJECT
007552,000328: 13,3403 67636 AD BIT13
007553,000329: 13,3404 56374 XCH MARKSTAT
007554,000330: 13,3405 77636 MASK BIT13
007555,000331: 13,3406 10000 CCS A
007556,000332: 13,3407 03414 TC REJECT2 # ANOTHER REJECT
007557,000333: 13,3410 40375 CS XYMARK # MARK MADE SINCE LAST REJECT-REJECT IT
007558,000334: 13,3411 70374 MASK MARKSTAT
007559,000335: 13,3412 54374 TS MARKSTAT
007560,000336: 13,3413 03315 TC REMARK # GO REQUEST MARKS
007561,000337:
007562,000338: 13,3414 44417 REJECT2 CS PRIO3 # NO MARKS SINCE LAST REJECT SO SET
007563,000339: 13,3415 70374 MASK MARKSTAT # MARKSTAT TO WANT X AND Y MARKS
007564,000340: 13,3416 56374 XCH MARKSTAT
007565,000341: 13,3417 77635 MASK BIT14 # IN-FLIGHT OR NON-FLIGHT
007566,000342: 13,3420 10000 CCS A
007567,000343: 13,3421 03315 TC REMARK # IN-FLIGHT, GO GET MARKS
007568,000344: 13,3422 37640 CAF BIT11 # NON-FLIGHT, STILL REQUEST X MARK ONLY
007569,000345: 13,3423 26374 ADS MARKSTAT
007570,000346: 13,3424 03315 TC REMARK # GO GET X MARK
007571,000347:
007572,000348: 13,3425 6165 OCT3 EQUALS THREE
007573,000349: 13,3425 00034 OCT34 OCT 00034
007574,000350: 13,3426 00140 OCT140 OCT 00140
007575,000351: 13,3427 02143 V21N43E OCT 2143
007576,000352: 13,3430 02442 V24N42E OCT 2442
007577,000353: 13,3431 05300 VB53 OCT 5300
007578,000354: 13,3432 0077 MKDEX EQUALS RUPTREG4
007579,000355: 13,3432 0375 DETCODE EQUALS XYMARK
007580,000356: 13,3432 0000002 BASVAC EQUALS Q
007581,000357: 13,3432 02130 VB21N30E OCT 2130
007582,000358: 13,3433 05000 VB50 OCT 5000
007583,000359:
|
|
MAS 2023: The following chunks of code (down to ENDAMODS) were added as patches between Aurora 85 and Aurora 88. They were placed here at the end of the bank so as to not change addresses of existing symbols. |
007587,000363:
007588,000364: 13,3434 00620 4SECSM DEC 400 B-14
007589,000365:
007590,000366:
007591,000367:
007592,000368: 13,3435 00004 IMUZERO1 INHINT
007593,000369: 13,3436 40322 CS DSPTAB +11D # DONT ZERO CDUS IF IMU IN GIMBAL LOCK AND
007594,000370: 13,3437 72744 MASK BITS4&6 # COARSE ALIGN.
007595,000371: 13,3440 10000 CCS A
007596,000372:
007597,000373: 13,3441 12001 TCF IMUZEROA
007598,000374:
007599,000375: 13,3442 05315 TC ALARM # IF SO.
007600,000376: 13,3443 00206 OCT 206
007601,000377:
007602,000378: 13,3444 12661 TCF CAGETSTJ +4
007603,000379: 13,3445 02001 TC IMUZEROA
007604,000380:
007605,000381: 13,3446 03503 IMUZEROB TC NOATTOFF # TURN OFF NO ATT LAMP.
007606,000382: 13,3447 37646 CAF BIT5
007607,000383: 13,3450 02017 TC IMUZEROC
007608,000384:
007609,000385:
007610,000386:
007611,000387: 13,3451 37647 SETCOARS CAF BIT4 # PUT ISS IN COARSE ALIGN.
007612,000388: 13,3452 00006 EXTEND
007613,000389: 13,3453 05012 WOR 12
007614,000390:
007615,000391: 13,3454 43465 NOATTON CS OCT40010 # TURN ON NO ATT LAMP.
007616,000392: 13,3455 70322 MASK DSPTAB +11D
007617,000393: 13,3456 63465 AD OCT40010
007618,000394: 13,3457 54322 TS DSPTAB +11D
007619,000395:
007620,000396: 13,3460 47647 CS BIT4 # INHIBIT IMU FAIL.
007621,000397: 13,3461 70367 MASK IMODES30
007622,000398: 13,3462 67647 AD BIT4
007623,000399: 13,3463 54367 TS IMODES30
007624,000400:
007625,000401: 13,3464 00002 TC Q
007626,000402:
007627,000403: 13,3465 40010 OCT40010 OCT 40010
007628,000404:
007629,000405:
007630,000406:
007631,000407: 13,3466 03503 IMUFINE1 TC NOATTOFF # TURN OFF NO ATT LAMP.
007632,000408: 13,3467 37641 CAF BIT10
007633,000409: 13,3470 02235 TC IMUFINE2
007634,000410:
007635,000411:
007636,000412:
007637,000413: 13,3471 47641 PFAILOK1 CS BIT10 # MAKE PREVIOUS VALUE OF PIPA FAIL THE
007638,000414: 13,3472 70367 MASK IMODES30 # NO FAIL STATE SO THAT IF THE FAILURE
007639,000415: 13,3473 67641 AD BIT10 # INDICATION IS ON NOW, IT WILL BE PICKED
007640,000416: 13,3474 54367 TS IMODES30 # UP (ROUTINE DETECTS ONLY CHANGES).
007641,000417:
007642,000418: 13,3475 47636 CS BIT13 # PIPA FAIL BIT IS KEPT IN TWO PLACES FOR
007643,000419: 13,3476 70370 MASK IMODES33
007644,000420: 13,3477 67636 AD BIT13
007645,000421: 13,3500 54370 TS IMODES33
007646,000422:
007647,000423: 13,3501 47646 CS BIT5
007648,000424: 13,3502 12257 TCF PFAILOK2
007649,000425:
007650,000426:
007651,000427:
007652,000428: 13,3503 43465 NOATTOFF CS OCT40010 # TURN OFF NO ATT LAMP.
007653,000429: 13,3504 70322 MASK DSPTAB +11D
007654,000430: 13,3505 67634 AD BIT15
007655,000431: 13,3506 54322 TS DSPTAB +11D
007656,000432: 13,3507 00002 TC Q
007657,000433:
007658,000434:
007659,000435:
007660,000436: 13,3510 54001 GLCKCHK1 TS L
007661,000437:
007662,000438: 13,3511 40322 CS DSPTAB +11D
007663,000439: 13,3512 00006 EXTEND
007664,000440: 13,3513 02012 RAND 12
007665,000441: 13,3514 77647 MASK BIT4
007666,000442: 13,3515 10000 CCS A
007667,000443: 13,3516 03454 TC NOATTON
007668,000444:
007669,000445: 13,3517 30001 CA L
007670,000446: 13,3520 00006 EXTEND
007671,000447: 13,3521 63536 BZMF SETGLCK1 # NO LOCK.
007672,000448:
007673,000449: 13,3522 63540 AD -15DEGS # SEE IF ABS(MGA) GREATER THAN 85 DEGREES.
007674,000450: 13,3523 00006 EXTEND
007675,000451: 13,3524 63533 BZMF NOGIMRUN
007676,000452:
007677,000453: 13,3525 37647 CAF BIT4 # IF SO, SYSTEM SHOULD BE IN COARSE ALIGN
007678,000454: 13,3526 00006 EXTEND # TO PREVENT GIMBAL RUNAWAY.
007679,000455: 13,3527 02012 RAND 12
007680,000456: 13,3530 10000 CCS A
007681,000457: 13,3531 13533 TCF NOGIMRUN
007682,000458:
007683,000459: 13,3532 03451 TC SETCOARS
007684,000460:
007685,000461: 13,3533 37645 NOGIMRUN CAF BIT6 # TURN ON GIMBAL LOCK LAMP.
007686,000462: 13,3534 04102 TC POSTJUMP
007687,000463: 13,3535 25177 CADR GLOCKCHK +4
007688,000464:
007689,000465: 13,3536 04102 SETGLCK1 TC POSTJUMP
007690,000466: 13,3537 25200 CADR SETGLOCK -1
007691,000467:
007692,000468: 13,3540 75252 -15DEGS DEC -.08333
007693,000469:
007694,000470:
007695,000471:
007696,000472: 13,3541 31463 DETVB21A CA AOTAZ +1 # COMPENSATION FOR THE APPARENT TILT OF
007697,000473: 13,3542 00006 EXTEND # AOT FIELD OF VIEW IN THE LEFT AND RIGHT
007698,000474: 13,3543 50375 INDEX DETCODE # DETENTS IS STORED IN LOC 10D OF VAC
007699,000475: 13,3544 21461 MSU AOTAZ -1 # IN ONES COMPLEMENT
007700,000476: 13,3545 50002 INDEX BASVAC
007701,000477: 13,3546 54012 TS 10D # SINGLE PREC. TILT COMPENSATION ANGLE
007702,000478:
007703,000479: 13,3547 37635 CAF BIT14 # IN-FLIGHT OR NON-FLIGHT
007704,000480: 13,3550 13124 TCF DETVB21B
007705,000481:
007706,000482: 13,3551 ENDAMODS EQUALS
End of include-file AOTMARK.agc. Parent file is MAIN.agc