Source Code
|
These source-code files are part of a reconstructed copy of Corona 261, the
final, flown release of the Block I Command Module (CM) Apollo Guidance Computer
(AGC) software for the AS-202 mission.
They have been created via disassembly of binary dumps of the original core rope
memory modules actually flown on the mission, part numbers 1003733-171, 1003733-241,
1003733-191, 1003733-211, 1003733-221, and 1003733-241. The source code for the Apollo
4 and 6 software, Solarium 55, was used as a starting point, since it was directly
derived from Corona and (at least in theory) only minimally modified.
Since only binary dumps (rather than listings) of Corona 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.
|
008753,000002: ## Copyright: Public domain.
008754,000003: ## Filename: EXTENDED_VERBS_FOR_MODING.agc
008755,000004: ## Purpose: A section of Corona revision 261.
008756,000005: ## It is part of the source code for the Apollo Guidance Computer
008757,000006: ## (AGC) for AS-202. No original listings of this software are
008758,000007: ## available; instead, this file was created via disassembly of
008759,000008: ## the core rope modules actually flown on the mission.
008760,000009: ## Assembler: yaYUL
008761,000010: ## Contact: Ron Burkey <info@sandroid.org>.
008762,000011: ## Website: www.ibiblio.org/apollo/index.html
008763,000012: ## Mod history: 2023-05-27 MAS Created from Solarium 55.
008764,000013: ## 2023-06-17 MAS Updated for Corona.
008765,000014:
008766,000015:
008767,000016: # VERB PLEASE PERFORM AND VERB PLEASE MARK ----- FLASH SHOULD BE TURNED ON
008768,000017: # (FLASHON) BY ROUTINE PASTING EITHER UP. FLASH IS TURNED OFF BY ENTER OF
008769,000018: # PLEASE PERFORM, OR ENTER OF PLEASE MARK.
008770,000019:
008771,000020: # BOTH FLASHON AND FLASHOFF MUST NOT BE USED IN INTERRUPTED STATE.
008772,000021:
008773,000022: # PLEASE PERFORM VERB AND PLEASE MARK VERB-----
008774,000023: # PRESSING ENTER INDICATES ACTION REQUESTED HAS
008775,000024: # BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED LOAD. OPERATOR
008776,000025: # SHOULD DO VERB PROCEED WITHOUT DATA IF WISHES NOT TO PERFORM THE
008777,000026: # REQUESTED ACTION.
008778,000027:
008779,000028:
008780,000029:
008781,000030: # FAN-OUT
008782,000031:
008783,000032: 05,6000 SETLOC 12000
008784,000033:
008785,000034: 05,6000 PINTEST EQUALS # THIS MUST = 05,6000 FOR PINBALL
008786,000035: # VERIFICATION. DO NOT MOVE WITHOUT
008787,000036: # INFORMING ALAN GREEN.
008788,000037:
008789,000038: 05,6000 06071 LST2FAN TC VBZERO # VB40 ZERO(USED WITH NOUN ICDU OR OCDU)
008790,000039: 05,6001 06074 TC VBCOARK # VB41 COARSE ALIGN(USED WITH NOUN ICDU
008791,000040: # OR OCDU)
008792,000041: 05,6002 06212 TC IMUFINEK # VB42 FINE ALIGN IMU
008793,000042: 05,6003 06245 TC IMULOCKK # VB43 LOCK IMU
008794,000043: 05,6004 06254 TC IMUATTCK # VB44 SET IMU TO ATTITUDE CONTROL
008795,000044: 05,6005 06310 TC IMUREENK # VB45 SET IMU TO RE-ENTRY CONTROL
008796,000045: 05,6006 06344 TC IMUCORK # VB46 RETURN IMU TO COARSE ALIGN
008797,000046: 05,6007 06067 TC ALM/END # VB47 OPTICAL TRACKER ON(NOT IN USE YET)
008798,000047: 05,6010 06431 TC GOLOADLV # VB50 PLEASE PERFORM
008799,000048: 05,6011 06431 TC GOLOADLV # VB51 PLEASE MARK
008800,000049: 05,6012 06407 TC DOMKREJ # VB52 MARK REJECT (UNTIL BUTTON AVAIL.)
008801,000050: 05,6013 06436 TC RELO/IK # VV53 FREE (USED WITH NOUN ICDU OR OCDU)
008802,000051: 05,6014 06446 TC TORQGYRS # VB54 PULSE TORQUE GYROS
008803,000052: 05,6015 06474 TC ALINTIME # VB55 ALIGN TIME
008804,000053: 05,6016 07006 TC GOSHOSUM # VB56 PERFORMS BANKSUM
008805,000054: 05,6017 06744 TC SYSTEST # VB57 DO SYSTEM TEST
008806,000055: 05,6020 06537 TC PRESTAND # VB60 PREPARE FOR STANDBY
008807,000056: 05,6021 06644 TC POSTAND # VB61 RECOVER FROM STANBBY
008808,000057: 05,6022 30000 NOOP # ILLEGAL VERB.
008809,000058: 05,6023 30000 NOOP # ILLEGAL VERB.
008810,000059: 05,6024 30000 NOOP # ILLEGAL VERB.
008811,000060: 05,6025 30000 NOOP # ILLEGAL VERB.
008812,000061: 05,6026 30000 NOOP # ILLEGAL VERB.
008813,000062: 05,6027 30000 NOOP # ILLEGAL VERB.
008814,000063: 05,6030 30000 NOOP # ILLEGAL VERB.
008815,000064: 05,6031 30000 NOOP # ILLEGAL VERB.
008816,000065: 05,6032 30000 NOOP # ILLEGAL VERB.
008817,000066: 05,6033 30000 NOOP # ILLEGAL VERB.
008818,000067: 05,6034 06067 TC ALM/END
008819,000068: 05,6035 07010 TC EXTRAI/O # VB75 MANUAL INPUT/OUTPUT OPTIONS.
008820,000069: 05,6036 07142 TC 76UPDATE # VERB 76 IS STATE VECTOR UPDATE
008821,000070: 05,6037 05720 TC POSTJUMP # VERB 77 ABORTS
008822,000071: 05,6040 64544 CADR ABORTRPT
008823,000072:
008824,000073: 05,6041 34514 TESTXACT CAF BIT3
008825,000074: 05,6042 70645 MASK EXTVBACT
008826,000075: 05,6043 10000 CCS A
008827,000076: 05,6044 06054 TC XACTALM
008828,000077:
008829,000078: 05,6045 44514 XACT1 CS BIT3
008830,000079: 05,6046 20017 INHINT
008831,000080: 05,6047 70645 MASK EXTVBACT
008832,000081: 05,6050 64514 AD BIT3
008833,000082: 05,6051 50645 TS EXTVBACT
008834,000083: 05,6052 20016 RELINT
008835,000084: 05,6053 00001 TC Q
008836,000085:
008837,000086: 05,6054 03241 XACTALM TC FALTON
008838,000087: 05,6055 02124 TC ENDOFJOB
008839,000088:
008840,000089: 05,6056 03370 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
008841,000090:
008842,000091: 05,6057 06061 ENDEXTVB TC XACT0
008843,000092: 05,6060 02124 TC ENDOFJOB
008844,000093:
008845,000094: 05,6061 44514 XACT0 CS BIT3
008846,000095: 05,6062 20017 INHINT
008847,000096: 05,6063 70645 MASK EXTVBACT
008848,000097: 05,6064 50645 TS EXTVBACT
008849,000098: 05,6065 20016 RELINT
008850,000099: 05,6066 00001 TC Q
008851,000100:
008852,000101:
008853,000102:
008854,000103: 05,6067 03241 ALM/END TC FALTON
008855,000104: 05,6070 06057 TC ENDEXTVB
008856,000105:
008857,000106:
008858,000107:
008859,000108: 05,6071 06077 VBZERO TC OP/INERT
008860,000109: 05,6072 06120 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
008861,000110: 05,6073 06067 TC ALM/END # RETURN HERE IF NOUN = OCDU(55)
008862,000111: # (NOT IN USE YET)
008863,000112:
008864,000113: 05,6074 06077 VBCOARK TC OP/INERT
008865,000114: 05,6075 06134 TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
008866,000115: 05,6076 06361 TC OPTCOARK # RETURN HERE IF NOUN = OCDU(55)
008867,000116:
008868,000117:
008869,000118: # SUBROUTINE FOR CHECKING GIVEN NOUN IF APPROPRIATE.
008870,000119:
008871,000120: 05,6077 30001 OP/INERT XCH Q # RETURNS TO L+1 IF NOUN=ICDU(20)
008872,000121: 05,6100 50106 TS WDRET # RETURNS TO L+2 IF NOUN = OCDU(55)
008873,000122: 05,6101 46105 CS NNICDU # ALARMS IF ANY OTHER NOUN
008874,000123: 05,6102 60603 AD NOUNREG
008875,000124: 05,6103 10000 CCS A
008876,000125: 05,6104 06110 TC +4 # NN G/ 20
008877,000126: 05,6105 00020 NNICDU OCT 20
008878,000127: 05,6106 06067 TC ALM/END # NN L/ 20
008879,000128: 05,6107 00106 TC WDRET # NN = 20
008880,000129: 05,6110 46114 CS NNOCDU
008881,000130: 05,6111 60603 AD NOUNREG
008882,000131: 05,6112 10000 CCS A
008883,000132: 05,6113 06067 TC ALM/END # NN G/ 55
008884,000133: 05,6114 00055 NNOCDU OCT 55
008885,000134: 05,6115 06067 TC ALM/END # NN L/ 55
008886,000135: 05,6116 20106 INDEX WDRET # NN = 55
008887,000136: 05,6117 00001 TC 1
008888,000137:
008889,000138:
008890,000139: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
008891,000140:
008892,000141: 05,6120 06041 IMUZEROK TC TESTXACT # ZERO ENCODERS.
008893,000142: 05,6121 05654 TC BANKCALL
008894,000143: 05,6122 30000 CADR IMUZERO
008895,000144:
008896,000145: 05,6123 05654 TC BANKCALL # STALL
008897,000146: 05,6124 30331 CADR IMUSTALL
008898,000147: 05,6125 06126 TC +1
008899,000148:
008900,000149: 05,6126 20017 ENDMZERO INHINT
008901,000150: 05,6127 45070 CS ZLITBITS # TURN OFF ZEROING LIGHT TO SHOW COMPLETE.
008902,000151: 05,6130 70723 MASK DSPTAB +11D
008903,000152: 05,6131 64500 AD BIT15
008904,000153: 05,6132 50723 TS DSPTAB +11D
008905,000154: 05,6133 06057 TC ENDEXTVB
008906,000155:
008907,000156:
008908,000157: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
008909,000158:
008910,000159: 05,6134 06041 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
008911,000160: 05,6135 03310 TC GRABDSP
008912,000161: 05,6136 03316 TC PREGBSY
008913,000162: 05,6137 36157 CAF VNLODCDU # CALL FOR THETAD LOAD
008914,000163: 05,6140 03106 TC NVSUB
008915,000164: 05,6141 03323 TC PRENVBSY
008916,000165: 05,6142 03144 TC ENDIDLE # STALL WAITING FOR THE LOAD
008917,000166: 05,6143 06056 TC TERMEXTV
008918,000167: 05,6144 06161 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
008919,000168:
008920,000169: 05,6145 36160 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
008921,000170: 05,6146 03106 TC NVSUB
008922,000171: 05,6147 03323 TC PRENVBSY
008923,000172: 05,6150 03370 TC FREEDSP # RELEASE THE DISPLAYS
008924,000173:
008925,000174: 05,6151 05654 TC BANKCALL # CALL MODE SWITCHING PROG
008926,000175: 05,6152 30104 CADR IMUCOARS
008927,000176:
008928,000177: 05,6153 05654 TC BANKCALL # STALL
008929,000178: 05,6154 30331 CADR IMUSTALL
008930,000179: 05,6155 06057 TC ENDEXTVB
008931,000180: 05,6156 06057 TC ENDEXTVB
008932,000181:
008933,000182: 05,6157 02522 VNLODCDU OCT 02522
008934,000183: 05,6160 04100 IMUCOARV OCT 04100
008935,000184:
008936,000185:
008937,000186: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
008938,000187:
008939,000188: 05,6161 36210 ICSDEL CAF DELLOAD
008940,000189: 05,6162 03106 TC NVSUB # REQUEST LOAD OF DELTA ICDU ANGLES.
008941,000190: 05,6163 03323 TC PRENVBSY
008942,000191: 05,6164 03144 TC ENDIDLE
008943,000192: 05,6165 06056 TC TERMEXTV
008944,000193: 05,6166 06145 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
008945,000194: 05,6167 06171 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
008946,000195: 05,6170 06145 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
008947,000196:
008948,000197: 05,6171 30001 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
008949,000198: 05,6172 50115 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
008950,000199: 05,6173 36211 CAF LTHD+2
008951,000200: 05,6174 50077 TS BUF # SET UP FOR CDUINC.
008952,000201: 05,6175 35503 CAF TWO # THREE TIMES THROUGH.
008953,000202:
008954,000203: 05,6176 50116 INCLOOP2 TS MPAC +1
008955,000204: 05,6177 20000 INDEX A
008956,000205: 05,6200 30621 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
008957,000206: 05,6201 05654 TC BANKCALL
008958,000207: 05,6202 30361 CADR CDUINC
008959,000208: 05,6203 10077 CCS BUF
008960,000209: 05,6204 50077 TS BUF
008961,000210: 05,6205 10116 CCS MPAC +1
008962,000211: 05,6206 06176 TC INCLOOP2
008963,000212:
008964,000213: 05,6207 00115 TC MPAC # RETURN WHEN FINISHED.
008965,000214:
008966,000215: 05,6210 02523 DELLOAD OCT 02523
008967,000216: 05,6211 00702 LTHD+2 ADRES THETAD +2
008968,000217:
008969,000218:
008970,000219: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
008971,000220:
008972,000221: 05,6212 06041 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
008973,000222: 05,6213 03310 TC GRABDSP
008974,000223: 05,6214 03316 TC PREGBSY
008975,000224: 05,6215 36243 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
008976,000225: 05,6216 03106 TC NVSUB
008977,000226: 05,6217 03323 TC PRENVBSY
008978,000227: 05,6220 03144 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
008979,000228: 05,6221 06056 TC TERMEXTV
008980,000229: 05,6222 06223 TC +1 # PROCEED WITHOUT A LOAD
008981,000230:
008982,000231: 05,6223 36244 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
008983,000232: 05,6224 03106 TC NVSUB
008984,000233: 05,6225 03323 TC PRENVBSY
008985,000234: 05,6226 03370 TC FREEDSP # RELEASE DISPLAYS
008986,000235:
008987,000236: 05,6227 05654 TC BANKCALL # CALL MODE SWITCH PROG
008988,000237: 05,6230 30143 CADR IMUFINE
008989,000238:
008990,000239: 05,6231 05654 TC BANKCALL # HIBERNATION
008991,000240: 05,6232 30331 CADR IMUSTALL
008992,000241: 05,6233 06057 TC ENDEXTVB
008993,000242: 05,6234 36472 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
008994,000243: 05,6235 05654 TC BANKCALL
008995,000244: 05,6236 31421 CADR GYRODPNT
008996,000245:
008997,000246: 05,6237 05654 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
008998,000247: 05,6240 30331 CADR IMUSTALL
008999,000248: 05,6241 06057 TC ENDEXTVB
009000,000249: 05,6242 06057 TC ENDEXTVB
009001,000250:
009002,000251: 05,6243 02567 VNLODGYR OCT 02567
009003,000252: 05,6244 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
009004,000253:
009005,000254:
009006,000255: # KEYBOARD REQUEST TO LOCK THE IMU CDUS
009007,000256:
009008,000257: 05,6245 06041 IMULOCKK TC TESTXACT
009009,000258: 05,6246 05654 TC BANKCALL
009010,000259: 05,6247 30205 CADR IMULOCK
009011,000260:
009012,000261: 05,6250 05654 TC BANKCALL # STALL
009013,000262: 05,6251 30331 CADR IMUSTALL
009014,000263: 05,6252 06057 TC ENDEXTVB
009015,000264: 05,6253 06057 TC ENDEXTVB
009016,000265:
009017,000266:
009018,000267: # KEYBOARD REQUEST TO PUT IMU IN ATTITUDE CONTROL MODE
009019,000268:
009020,000269: 05,6254 06041 IMUATTCK TC TESTXACT # ATTITUDE CONTROL.
009021,000270: 05,6255 03310 TC GRABDSP
009022,000271: 05,6256 03316 TC PREGBSY
009023,000272: 05,6257 36210 CAF DELLOAD # ASK FOR DELTA ANGLE LOAD.
009024,000273: 05,6260 03106 TC NVSUB
009025,000274: 05,6261 03323 TC PRENVBSY
009026,000275: 05,6262 03144 TC ENDIDLE # STALL WAITING FOR LOAD
009027,000276: 05,6263 06056 TC TERMEXTV
009028,000277: 05,6264 06300 TC ATTCABS # PROCEED - ASK FOR ABSOLUTE ANGLES.
009029,000278: 05,6265 06171 TC INCLOOP # ADD INCREMENTS TO DESIRED ANGLES.
009030,000279:
009031,000280: 05,6266 36307 ATTCK2 CAF IMUATTCV
009032,000281: 05,6267 03106 TC NVSUB
009033,000282: 05,6270 03323 TC PRENVBSY
009034,000283: 05,6271 03370 TC FREEDSP # LET THE DISPLAYS GO
009035,000284:
009036,000285: 05,6272 05654 TC BANKCALL # CALL THE MODE SWITCH PROG
009037,000286: 05,6273 30223 CADR IMUATTC
009038,000287:
009039,000288: 05,6274 05654 TC BANKCALL # STALL
009040,000289: 05,6275 30331 CADR IMUSTALL
009041,000290: 05,6276 06057 TC ENDEXTVB
009042,000291: 05,6277 06057 TC ENDEXTVB
009043,000292:
009044,000293: # PROVISIONS FOR ABSOLUTE LOAD FOR IMU CDUS IN ATTITUDE CONTROL.
009045,000294:
009046,000295: 05,6300 36157 ATTCABS CAF VNLODCDU # ASK FOR ABSOLUTE CDU ANGLES.
009047,000296: 05,6301 03106 TC NVSUB
009048,000297: 05,6302 03323 TC PRENVBSY
009049,000298: 05,6303 03144 TC ENDIDLE
009050,000299: 05,6304 06056 TC TERMEXTV
009051,000300: 05,6305 06266 TC ATTCK2
009052,000301: 05,6306 06266 TC ATTCK2 # SECOND PROCEED WITHOUT DATA.
009053,000302:
009054,000303: 05,6307 04400 IMUATTCV OCT 04400
009055,000304:
009056,000305:
009057,000306: # KEYBOARD REQUEST TO PUT THE IMU IN RE-ENTRY CONTROL MODE
009058,000307:
009059,000308: 05,6310 06041 IMUREENK TC TESTXACT # RE-ENTRY.
009060,000309: 05,6311 03310 TC GRABDSP
009061,000310: 05,6312 03316 TC PREGBSY
009062,000311: 05,6313 36210 CAF DELLOAD # LOAD INCREMENTAL ANGLES.
009063,000312: 05,6314 03106 TC NVSUB
009064,000313: 05,6315 03323 TC PRENVBSY
009065,000314: 05,6316 03144 TC ENDIDLE # STALL FOR THE LOAD
009066,000315: 05,6317 06056 TC TERMEXTV
009067,000316: 05,6320 06334 TC REENTABS # PROCEED - ASK FOR ABSOLUTE LOAD.
009068,000317: 05,6321 06171 TC INCLOOP
009069,000318:
009070,000319: 05,6322 36343 REENTK2 CAF IMUREENV # RE-DISPLAY VERB.
009071,000320: 05,6323 03106 TC NVSUB
009072,000321: 05,6324 03323 TC PRENVBSY
009073,000322: 05,6325 03370 TC FREEDSP # LET THE DISPLAYS GO
009074,000323:
009075,000324: 05,6326 05654 TC BANKCALL # CALL MODE SWITCH PROG
009076,000325: 05,6327 30216 CADR IMUREENT
009077,000326:
009078,000327: 05,6330 05654 TC BANKCALL # STALL
009079,000328: 05,6331 30331 CADR IMUSTALL
009080,000329: 05,6332 06057 TC ENDEXTVB
009081,000330: 05,6333 06057 TC ENDEXTVB
009082,000331:
009083,000332: 05,6334 36157 REENTABS CAF VNLODCDU # REQUEST ABSOLUTE ANGLES.
009084,000333: 05,6335 03106 TC NVSUB
009085,000334: 05,6336 03323 TC PRENVBSY
009086,000335: 05,6337 03144 TC ENDIDLE
009087,000336: 05,6340 06056 TC TERMEXTV # TERMINATE
009088,000337: 05,6341 06322 TC REENTK2
009089,000338: 05,6342 06322 TC REENTK2
009090,000339: 05,6343 04500 IMUREENV OCT 04500
009091,000340:
009092,000341:
009093,000342: # KEYBOARD REQUEST TO RETURN THE IMU TO COARSE ALIGN
009094,000343:
009095,000344: 05,6344 06041 IMUCORK TC TESTXACT # BACK TO COARSE ALIGN (FROM FINE).
009096,000345: 05,6345 05654 TC BANKCALL
009097,000346: 05,6346 30134 CADR IMURECOR
009098,000347:
009099,000348: 05,6347 05654 TC BANKCALL
009100,000349: 05,6350 30331 CADR IMUSTALL
009101,000350: 05,6351 06057 TC ENDEXTVB
009102,000351: 05,6352 06057 TC ENDEXTVB
009103,000352:
009104,000353:
009105,000354: # KEYBOARD REQUEST TO ZERO OPTICS CDUS
009106,000355:
009107,000356: 05,6353 05654 OPTZEROK TC BANKCALL # CALL MODE PROG
009108,000357: 05,6354 12361 CADR OPTZERO
009109,000358:
009110,000359: 05,6355 05654 TC BANKCALL # STALL
009111,000360: 05,6356 30327 CADR OPTSTALL
009112,000361: 05,6357 06057 TC ENDEXTVB
009113,000362: 05,6360 06057 TC ENDEXTVB
009114,000363:
009115,000364: 05,6361 OPTZERO = # INTERFACES NOT CURRENTLY WIRED *********
009116,000365:
009117,000366:
009118,000367: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
009119,000368:
009120,000369: 05,6361 03310 OPTCOARK TC GRABDSP # SNATCH THEM DISPLAYS
009121,000370: 05,6362 03316 TC PREGBSY
009122,000371: 05,6363 36400 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
009123,000372: 05,6364 03106 TC NVSUB
009124,000373: 05,6365 03323 TC PRENVBSY
009125,000374: 05,6366 03144 TC ENDIDLE # WAIT FOR THE LOAD
009126,000375: 05,6367 06056 TC TERMEXTV
009127,000376: 05,6370 06371 TC +1 # PROCEED
009128,000377:
009129,000378: 05,6371 36160 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
009130,000379: 05,6372 03106 TC NVSUB
009131,000380: 05,6373 03323 TC PRENVBSY
009132,000381: 05,6374 03370 TC FREEDSP # LET IT GO
009133,000382:
009134,000383: 05,6375 35501 CAF ZERO
009135,000384: 05,6376 50703 TS OPTIND # SNATCH OPTICS
009136,000385:
009137,000386: 05,6377 06057 TC ENDEXTVB
009138,000387:
009139,000388: 05,6400 02457 VNLDOCDU OCT 02457
009140,000389: 05,6401 05,6160 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
009141,000390:
009142,000391:
009143,000392: # KEYBOARD REQUEST TO ACTIVATE THE OPTICAL STAR TRACKER
009144,000393:
009145,000394: 05,6401 05654 OPTTRONK TC BANKCALL
009146,000395: 05,6402 12407 CADR OPTTRKON # CALL MODE SWITCHER
009147,000396:
009148,000397: 05,6403 05654 TC BANKCALL # STALL
009149,000398: 05,6404 30327 CADR OPTSTALL
009150,000399: 05,6405 06057 TC ENDEXTVB
009151,000400: 05,6406 06057 TC ENDEXTVB
009152,000401:
009153,000402: 05,6407 OPTTRKON = # NOT AVAILABLE JUST NOW
009154,000403:
009155,000404: 05,6407 20017 DOMKREJ INHINT # DO 10 MS WAITLIST CALL TO MK REJECT PROG
009156,000405: 05,6410 40735 CS MARKSTAT # MARK REJECT IS ENABLED ONLY IF BIT10
009157,000406: 05,6411 74505 MASK BIT10 # OF MARKSTAT = 1.
009158,000407: 05,6412 10000 CCS A
009159,000408: 05,6413 06067 TC ALM/END
009160,000409:
009161,000410: 05,6414 34516 CAF ONE
009162,000411: 05,6415 02173 TC WAITLIST
009163,000412: 05,6416 30601 CADR MKREJECT # (CALLED IN KEYRUPT WHEN BUTTON AVAIL.)
009164,000413: 05,6417 32261 CAF HI5 # MARK REJECT ROUTINE WILL RE-PASTE VB51
009165,000414: 05,6420 70735 MASK MARKSTAT # IF ALL MARKS WERE IN.
009166,000415: 05,6421 10000 CCS A
009167,000416: 05,6422 06424 TC +2
009168,000417: 05,6423 02124 TC ENDOFJOB
009169,000418:
009170,000419: 05,6424 20016 RELINT
009171,000420: 05,6425 05654 TC BANKCALL # RE-DISPLAY VB 51 SINCE MORE MARKS
009172,000421: 05,6426 14000 CADR FLASHON # REQUIRED.
009173,000422: 05,6427 05720 TC POSTJUMP
009174,000423: 05,6430 30745 CADR REMKVB51
009175,000424:
009176,000425: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009177,000426: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009178,000427: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009179,000428: # PERFORM THE REQUESTED ACTION.
009180,000429:
009181,000430: 05,6431 05654 GOLOADLV TC BANKCALL
009182,000431: 05,6432 14003 CADR FLASHOFF
009183,000432: 05,6433 06061 TC XACT0
009184,000433: 05,6434 05720 TC POSTJUMP
009185,000434: 05,6435 16006 CADR LOADLV1
009186,000435:
009187,000436:
009188,000437: # KEYBOARD REQUEST TO RELEASE IMU OR OPTICS
009189,000438:
009190,000439: 05,6436 06077 RELO/IK TC OP/INERT
009191,000440: 05,6437 06443 TC IMURELK # RETURN HERE IF IMU
009192,000441: 05,6440 45501 CS ZERO # RETURN HERE IF OPTICS
009193,000442: 05,6441 50703 TS OPTIND
009194,000443: 05,6442 02124 TC ENDOFJOB
009195,000444:
009196,000445: 05,6443 45501 IMURELK CS ZERO
009197,000446: 05,6444 50677 TS CDUIND
009198,000447: 05,6445 02124 TC ENDOFJOB
009199,000448:
009200,000449:
009201,000450: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009202,000451:
009203,000452:
009204,000453:
009205,000454: 05,6446 06041 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
009206,000455: 05,6447 03310 TC GRABDSP
009207,000456: 05,6450 03316 TC PREGBSY
009208,000457: 05,6451 36243 CAF VNLODGYR
009209,000458: 05,6452 03106 TC NVSUB
009210,000459: 05,6453 03323 TC PRENVBSY
009211,000460: 05,6454 03144 TC ENDIDLE
009212,000461: 05,6455 06056 TC TERMEXTV
009213,000462: 05,6456 06457 TC +1
009214,000463: 05,6457 36473 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
009215,000464: 05,6460 03106 TC NVSUB
009216,000465: 05,6461 03323 TC PRENVBSY
009217,000466: 05,6462 03370 TC FREEDSP
009218,000467: 05,6463 36472 CAF LGYROBIN
009219,000468: 05,6464 05654 TC BANKCALL
009220,000469: 05,6465 31421 CADR GYRODPNT
009221,000470: 05,6466 05654 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009222,000471: 05,6467 30331 CADR IMUSTALL
009223,000472: 05,6470 06057 TC ENDEXTVB
009224,000473: 05,6471 06057 TC ENDEXTVB
009225,000474:
009226,000475: 05,6472 01520 LGYROBIN ADRES OGC
009227,000476: 05,6473 05400 TORQGYRV OCT 05400
009228,000477:
009229,000478:
009230,000479: # ALIGN TIME
009231,000480: 05,6474 36536 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
009232,000481: 05,6475 50110 TS NVTEMP # DOES NOT KILL MONITOR.
009233,000482: 05,6476 03127 TC NVSUBMON
009234,000483: 05,6477 02124 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
009235,000484: 05,6500 03144 TC ENDIDLE
009236,000485: 05,6501 02124 TC ENDOFJOB # TERMINATE
009237,000486: 05,6502 02124 TC ENDOFJOB # PROCEED WITHOUT DATA
009238,000487: 05,6503 20017 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
009239,000488: 05,6504 35501 CAF ZERO
009240,000489: 05,6505 50117 TS MPAC +2 # NEEDED FOR TP AGREE
009241,000490: 05,6506 30036 XCH TIME1 # LO ORDER TIME
009242,000491: 05,6507 60617 AD DSPTEM1 +1
009243,000492: 05,6510 50116 TS MPAC +1
009244,000493: 05,6511 35501 CAF ZERO
009245,000494: 05,6512 60616 AD DSPTEM1
009246,000495: 05,6513 60035 AD TIME2 # HI ORDER TIME
009247,000496: 05,6514 30115 XCH MPAC
009248,000497: 05,6515 05654 TC BANKCALL
009249,000498: 05,6516 07154 CADR TPAGREE
009250,000499: 05,6517 30115 XCH MPAC
009251,000500: 05,6520 30035 XCH TIME2
009252,000501: 05,6521 30116 XCH MPAC +1
009253,000502: 05,6522 30036 XCH TIME1
009254,000503: 05,6523 10000 CCS A
009255,000504: 05,6524 06526 TC +2
009256,000505: 05,6525 06534 TC ENDALINE
009257,000506: 05,6526 34516 CAF ONE # TIME1 WAS INCREMENTED SINCE PICKUP
009258,000507: 05,6527 60036 AD TIME1
009259,000508: 05,6530 50036 TS TIME1
009260,000509: 05,6531 06534 TC ENDALINE
009261,000510: 05,6532 60035 AD TIME2
009262,000511: 05,6533 30035 XCH TIME2
009263,000512: 05,6534 20016 ENDALINE RELINT
009264,000513: 05,6535 02124 TC ENDOFJOB
009265,000514:
009266,000515: 05,6536 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
009267,000516:
009268,000517:
009269,000518: # PREPARE FOR STANDBY OPERATION
009270,000519:
009271,000520: # PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING IN1, TIME1, TIME2 AS SOON
009272,000521: # AS IN1 CHANGES. IT DOES THIS BY CONTIUOUS WAITLIST REQUESTS UNTIL A
009273,000522: # CHANGE IN IN1 IS DETECTED.
009274,000523:
009275,000524: # POSTAND RECOVERS TIME AFTER STANDBY. IT WAITS FOR A CHANGE IN IN1 (JUST
009276,000525: # AS PRESTAND DOES), THEN COMPUTES THE DIFFERENCE BETWEEN IN1 VALUES(FULL
009277,000526: # 16 BITS), ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF TIME1, TIME2
009278,000527: # AND PLACES THIS NEW TIME INTO TIME1, TIME2 COUNTERS.
009279,000528:
009280,000529:
009281,000530:
009282,000531: # BIT1 OF IN1LOSAV = LAST VALUE OF BIT1 OF IN1
009283,000532: 05,6537 20017 PRESTAND INHINT # PREPARE TIME FOR STANDBY
009284,000533: 05,6540 34516 CAF ONE
009285,000534: 05,6541 02173 TC WAITLIST
009286,000535: 05,6542 12544 CADR PRESTBY
009287,000536: 05,6543 02124 TC ENDOFJOB
009288,000537:
009289,000538: 05,6544 30005 PRESTBY XCH IN1 # CALLED BY WAITLIST
009290,000539: 05,6545 74516 MASK BIT1 # PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009291,000540: 05,6546 50032 TS LPRUPT
009292,000541: 05,6547 44516 CS BIT1
009293,000542: 05,6550 71103 MASK IN1LOSAV
009294,000543: 05,6551 60032 AD LPRUPT
009295,000544: 05,6552 51103 TS IN1LOSAV
009296,000545: # CALLED BY WAITLIST EVERY 10 MSEC
009297,000546: 05,6553 30005 PRESTBY1 XCH IN1 # UNTIL A CHANGE IN IN1 IS DETECTED.
009298,000547: 05,6554 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO Q
009299,000548: 05,6555 40036 CS TIME1 # SNAPSHOT TIME1
009300,000549: 05,6556 31101 XCH TIME1SAV
009301,000550: 05,6557 40035 CS TIME2 # SNAPSHOT TIME2
009302,000551: 05,6560 31100 XCH TIME2SAV
009303,000552: 05,6561 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO A
009304,000553: 05,6562 06575 TC IN1LOOK
009305,000554: 05,6563 06571 TC PRESTBY2 # RETURNS HERE IF NO CHANGE IN IN1
009306,000555: 05,6564 30572 XCH IN1HITEM # RETURNS HERE IF IN1 HAS CHANGED
009307,000556: 05,6565 51102 TS IN1HISAV
009308,000557: 05,6566 30573 XCH IN1LOTEM # DONE WITH BIT1 OF IN1LOSAV, DONT PROTECT
009309,000558: 05,6567 51103 TS IN1LOSAV
009310,000559: 05,6570 02256 TC TASKOVER
009311,000560:
009312,000561: 05,6571 34516 PRESTBY2 CAF ONE # PERPETUATES WAITLIST REQUEST EVERY
009313,000562: 05,6572 02173 TC WAITLIST # 10 MSEC UNTIL INI CHANGES.
009314,000563: 05,6573 12553 CADR PRESTBY1
009315,000564: 05,6574 02256 TC TASKOVER
009316,000565:
009317,000566:
009318,000567: # IN1LOOK RETURNS TO L+1 IF IN1 HAS NOT CHANGED SINCE LAST EXAMINATION.
009319,000568: # IT RETURNS TO L+2 IF IN1 HAS CHANGED SINCE LAST EXAMINATION, WITH
009320,000569: # BITS 16-8 OF IN1 IN BITS 9-1 OF IN1HITEM, AND BITS 7-1 OF IN1
009321,000570: # IN BITS 14-8 OF IN1LOTEM.
009322,000571:
009323,000572: 05,6575 50573 IN1LOOK TS IN1LOTEM
009324,000573: 05,6576 35504 CAF NEG0
009325,000574: 05,6577 50572 TS IN1HITEM # PUT +1 FOR OF, -1 FOR UF, -0 FOR NEITHER
009326,000575: 05,6600 30001 XCH Q
009327,000576: 05,6601 50574 TS LOOKRET
009328,000577: 05,6602 34516 CAF BIT1
009329,000578: 05,6603 70573 MASK IN1LOTEM
009330,000579: 05,6604 50032 TS LPRUPT # NEW VALUE OF BIT1 OF IN1
009331,000580: 05,6605 34516 CAF BIT1
009332,000581: 05,6606 71103 MASK IN1LOSAV # LAST VALUE OF BIT1 OF IN1
009333,000582: 05,6607 25777 EXTEND
009334,000583: 05,6610 60032 SU LPRUPT
009335,000584: 05,6611 10000 CCS A
009336,000585: 05,6612 06616 TC IN1PREP # IN1 HAS CHANGED
009337,000586: 05,6613 03070 TC CCSHOLE
009338,000587: 05,6614 06616 TC IN1PREP # IN1 HAS CHANGED
009339,000588: 05,6615 00574 TC LOOKRET # IN1 HAS NOT CHANGED. RETURN TO L+1.
009340,000589: 05,6616 30003 IN1PREP XCH LP
009341,000590: 05,6617 50032 TS LPRUPT # STORE LP
009342,000591: 05,6620 30573 XCH IN1LOTEM
009343,000592: 05,6621 25777 EXTEND
009344,000593: 05,6622 44507 MP BIT8 # SHIFTS RIGHT 7
009345,000594: 05,6623 30572 XCH IN1HITEM # PUTS BITS7-1 OF IN1 INTO BITS 14-8 OF LP
009346,000595: 05,6624 10000 CCS A # PUTS BITS14-8 OF IN1 INTO BITS7-1 OF A
009347,000596: 05,6625 34507 CAF BIT8 # PUTS BIT16 OF IN1 INTO BIT9 OF A
009348,000597: 05,6626 06630 TC +2
009349,000598: 05,6627 44507 CS BIT8
009350,000599: 05,6630 60572 AD IN1HITEM # PUTS BIT15 OF IN1 INTO BIT8 OF A
009351,000600: 05,6631 74607 MASK LOW9
009352,000601: 05,6632 50572 TS IN1HITEM
009353,000602: 05,6633 30003 XCH LP
009354,000603: 05,6634 76643 MASK B14-B8 # BIT14 THRU BIT8
009355,000604: 05,6635 50573 TS IN1LOTEM
009356,000605: 05,6636 34516 CAF BIT1
009357,000606: 05,6637 25777 EXTEND
009358,000607: 05,6640 40032 MP LPRUPT # RESTORE LP
009359,000608: 05,6641 20574 INDEX LOOKRET
009360,000609: 05,6642 00001 TC 1 # RETURN TO L+2
009361,000610: 05,6643 37600 B14-B8 OCT 37600
009362,000611:
009363,000612:
009364,000613: # RECOVER FROM STANDBY OPERATION
009365,000614:
009366,000615: 05,6644 20017 POSTAND INHINT # RECOVER TIME AFTER STANDBY
009367,000616: 05,6645 34516 CAF ONE
009368,000617: 05,6646 02173 TC WAITLIST
009369,000618: 05,6647 12651 CADR POSTBY
009370,000619: 05,6650 02124 TC ENDOFJOB
009371,000620:
009372,000621: 05,6651 30005 POSTBY XCH IN1 # CALLED BY WAITLIST
009373,000622: 05,6652 74516 MASK BIT1 # PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009374,000623: 05,6653 50032 TS LPRUPT
009375,000624: 05,6654 44516 CS BIT1
009376,000625: 05,6655 71103 MASK IN1LOSAV
009377,000626: 05,6656 60032 AD LPRUPT
009378,000627: 05,6657 51103 TS IN1LOSAV
009379,000628: # CALLED BY WAITLIST EVERY 10 MSEC UNTIL
009380,000629: 05,6660 30005 POSTBY1 XCH IN1 # A CHANGE IN IN1 IS DETECTED.
009381,000630: 05,6661 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO Q
009382,000631: 05,6662 35501 CAF ZERO
009383,000632: 05,6663 50036 TS TIME1 # ZERO TIME1, TIME2 IN ANTICIPATION
009384,000633: 05,6664 50035 TS TIME2 # OF UPDATING.
009385,000634: 05,6665 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO A
009386,000635: 05,6666 06575 TC IN1LOOK
009387,000636: 05,6667 06716 TC POSTBY2 # RETURNS HERE IF IN1 HAS NOT CHANGED
009388,000637: 05,6670 44516 CS BIT1 # RETURNS HERE IF IN1 HAS CHANGED
009389,000638: 05,6671 71103 MASK IN1LOSAV # FORM DP DIFFERENCE OF C(IN1) TAKEN AFTER
009390,000639: 05,6672 40000 COM # STANDBY MINUS C(IN1) TAKEN BEFORE
009391,000640: 05,6673 60573 AD IN1LOTEM # STANDBY. THIS DIFF IS IN THE BITS
009392,000641: 05,6674 51105 TS IN1LODIF # CORRESPONDING TO TIME1, TIME2.
009393,000642: 05,6675 35501 CAF ZERO
009394,000643: 05,6676 60572 AD IN1HITEM
009395,000644: 05,6677 25777 EXTEND
009396,000645: 05,6700 61102 SU IN1HISAV
009397,000646: 05,6701 10000 CCS A
009398,000647: 05,6702 64516 AD ONE # DIFF IS +
009399,000648: 05,6703 06705 TC +2
009400,000649: 05,6704 06712 TC DIFFNEG # DIFF IS -NZ, ADD BIT10 TO HI PART
009401,000650: 05,6705 51104 DIFFCOM TS IN1HIDIF
009402,000651: 05,6706 32166 CAF PRIO33 # GO TO EXEC TO FINISH UP
009403,000652: 05,6707 02052 TC NOVAC # GO TO EXEC TO FINISH UP
009404,000653: 05,6710 12722 CADR POSTBY3
009405,000654: 05,6711 02256 TC TASKOVER
009406,000655:
009407,000656: 05,6712 64516 DIFFNEG AD ONE
009408,000657: 05,6713 40000 COM
009409,000658: 05,6714 64505 AD BIT10
009410,000659: 05,6715 06705 TC DIFFCOM
009411,000660:
009412,000661: 05,6716 34516 POSTBY2 CAF ONE # PERPETUATES WAITLIST REQUEST EVERY
009413,000662: 05,6717 02173 TC WAITLIST # 10 MSEC UNTIL INI CHANGES.
009414,000663: 05,6720 12660 CADR POSTBY1
009415,000664: 05,6721 02256 TC TASKOVER
009416,000665:
009417,000666:
009418,000667:
009419,000668: 05,6722 41101 POSTBY3 CS TIME1SAV # CALLED BY EXEC
009420,000669: 05,6723 61105 AD IN1LODIF # TIME WAS STORED COMP
009421,000670: 05,6724 50116 TS MPAC +1
009422,000671: 05,6725 35501 CAF ZERO
009423,000672: 05,6726 61104 AD IN1HIDIF
009424,000673: 05,6727 25777 EXTEND
009425,000674: 05,6730 61100 SU TIME2SAV # TIME WAS STORED COMP
009426,000675: 05,6731 50115 TS MPAC
009427,000676: 05,6732 06733 TC +1 # JUST IN CASE OF OF
009428,000677: 05,6733 35501 CAF ZERO # MAKES TPAGREE SAFE FOR DPAGREE
009429,000678: 05,6734 50117 TS MPAC +2
009430,000679: 05,6735 05654 TC BANKCALL
009431,000680: 05,6736 07154 CADR TPAGREE
009432,000681: 05,6737 30116 XCH MPAC +1
009433,000682: 05,6740 50617 TS DSPTEM1 +1
009434,000683: 05,6741 30115 XCH MPAC
009435,000684: 05,6742 50616 TS DSPTEM1
009436,000685: 05,6743 06503 TC UPDATIME
009437,000686:
009438,000687:
009439,000688: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009440,000689:
009441,000690: 05,6744 03310 SYSTEST TC GRABDSP # FIXED BY THE PHANTI
009442,000691: 05,6745 03316 TC PREGBSY
009443,000692: 05,6746 10612 CCS MODREG # MUST NOT BE RUNNING ANYTHING.
009444,000693: 05,6747 07220 TC XVBOUT
009445,000694:
009446,000695: 05,6750 02362 TC NEWMODE # FOR SYSTEM TEST.
009447,000696: 05,6751 00007 OCT 07
009448,000697:
009449,000698: 05,6752 37005 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
009450,000699: 05,6753 50117 TS MPAC +2
009451,000700: 05,6754 37004 CAF TESTNV
009452,000701: 05,6755 03106 TC NVSUB
009453,000702: 05,6756 03323 TC PRENVBSY
009454,000703: 05,6757 03144 TC ENDIDLE
009455,000704: 05,6760 07220 TC XVBOUT
009456,000705: 05,6761 06752 TC REDO
009457,000706:
009458,000707: 05,6762 20017 INHINT
009459,000708: 05,6763 34501 CAF PRIO20
009460,000709: 05,6764 02046 TC FINDVAC
009461,000710: 05,6765 12767 CADR TSELECT
009462,000711: 05,6766 02124 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009463,000712:
009464,000713: 05,6767 35362 TSELECT CAF SEVEN
009465,000714: 05,6770 71225 MASK QPLACE # SAFETY PLAY.
009466,000715: 05,6771 20000 INDEX A
009467,000716: 05,6772 36774 CAF TESTCADR
009468,000717: 05,6773 05723 TC BANKJUMP
009469,000718:
009470,000719: 05,6774 12067 TESTCADR CADR ALM/END # 0 ILLEGAL.
009471,000720: 05,6775 24511 CADR GYDRFT # 1 GYRO DRIFT TEST.
009472,000721: 05,6776 24606 CADR ACCELTST # 2 PIPA SCALE FACTOR DETERMINATION.
009473,000722: 05,6777 24000 CADR ALGNTST # 3 IMU ALIGNMENT TEST
009474,000723: 05,7000 24372 CADR IMUCHK # 4 IMU CHECK.
009475,000724: 05,7001 24203 CADR GYROTORK # 5 GYRO TORQUING TEST.
009476,000725: 05,7002 23406 CADR CCHK # 6 C RELAY CHECK.
009477,000726: 05,7003 23521 CADR DCHECK # 7 DSKY CHECK.
009478,000727:
009479,000728: 05,7004 02101 TESTNV OCT 02101
009480,000729: 05,7005 01225 LQPL ADRES QPLACE
009481,000730: 05,7006 05720 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
009482,000731: 05,7007 23012 CADR SHOWSUM # BANK ON DSKY
009483,000732:
009484,000733:
009485,000734: # VERB 75 ALLOWS THE GROUND TO PERFORM SOME I/O OPERATIONS WITH THE DSKY. FOUR OPTIONS ARE
009486,000735: # MECHANIZED FOR FLIGHT 202 (WITH MAJOR MODES DURING WHICH ALLOWED) -
009487,000736: # 1 GIMBAL MOTOR POWER ON MAJOR MODES 0X.
009488,000737: # 2 GIMBAL MOTOR POWER OFF MAJOR MODES 0X.
009489,000738: # 3 LIFT-OFF (AND GUIDANCE RELEASE). MAJOR MODES 01 AND 04.
009490,000739: # 4 S4B-SM SEPARATE MAJOR MODE 14.
009491,000740: # 5 FDAI ALIGN. MAJOR MODES 0X.
009492,000741:
009493,000742: 05,7010 03310 EXTRAI/O TC GRABDSP
009494,000743: 05,7011 03316 TC PREGBSY
009495,000744: 05,7012 37141 75RELOAD CAF LV75TEMP # ASK FOR FUNCTION NUMBER.
009496,000745: 05,7013 50117 TS MPAC +2
009497,000746: 05,7014 37261 CAF STATENV
009498,000747: 05,7015 03106 TC NVSUB
009499,000748: 05,7016 03323 TC PRENVBSY
009500,000749: 05,7017 03144 TC ENDIDLE
009501,000750: 05,7020 07220 TC XVBOUT
009502,000751: 05,7021 07012 TC 75RELOAD
009503,000752:
009504,000753: 05,7022 10616 CCS V75TEMP # MAKE SURE FUNCTION NUMBER IS LEGIT.
009505,000754: 05,7023 07027 TC +4
009506,000755: 05,7024 07012 TC 75RELOAD
009507,000756: 05,7025 07012 TC 75RELOAD
009508,000757: 05,7026 07012 TC 75RELOAD
009509,000758:
009510,000759: 05,7027 77137 +4 MASK 75HI12
009511,000760: 05,7030 10000 CCS A
009512,000761: 05,7031 07012 TC 75RELOAD
009513,000762:
009514,000763: 05,7032 20616 INDEX V75TEMP
009515,000764: 05,7033 07033 TC +0
009516,000765: 05,7034 07062 TC 75FN1
009517,000766: 05,7035 07071 TC 75FN2
009518,000767: 05,7036 07100 TC 75FN3
009519,000768:
009520,000769: 05,7037 07044 TC 75FN4
009521,000770: 05,7040 07122 TC 75FN5
009522,000771: 05,7041 07012 TC 75RELOAD
009523,000772: 05,7042 07012 TC 75RELOAD
009524,000773: 05,7043 07012 TC 75RELOAD
009525,000774:
009526,000775:
009527,000776: # FUNCTION 4 - DO S4B SEPARATE.
009528,000777:
009529,000778: 05,7044 02346 75FN4 TC CHECKMM # NO MODE 13 PLANNED.
009530,000779: 05,7045 00014 OCT 14
009531,000780: 05,7046 07257 TC MALAPROP
009532,000781:
009533,000782: 05,7047 20017 INHINT
009534,000783: 05,7050 34507 CAF BIT8
009535,000784: 05,7051 70646 MASK FLAGWRD1
009536,000785: 05,7052 10000 CCS A
009537,000786: 05,7053 07220 TC XVBOUT # SWITCH SET - FUNCTION ALREADY DONE.
009538,000787:
009539,000788: 05,7054 32160 CAF PRIO25
009540,000789: 05,7055 02046 TC FINDVAC
009541,000790: 05,7056 64407 CADR S4BSMSEP
009542,000791:
009543,000792: 05,7057 03424 TC FLAG1UP # SET S4BSM FLAG
009544,000793: 05,7060 00200 OCT 00200
009545,000794:
009546,000795: 05,7061 07220 TC XVBOUT
009547,000796:
009548,000797: # FUNCTION 1 - GIMBAL MOTOR POWER ON - DURING PRE-LAUNCH ONLY.
009549,000798:
009550,000799: 05,7062 37136 75FN1 CAF 75MASK
009551,000800: 05,7063 70612 MASK MODREG
009552,000801: 05,7064 10000 CCS A
009553,000802: 05,7065 07257 TC MALAPROP
009554,000803:
009555,000804: 05,7066 03401 TC RELAYON
009556,000805: 05,7067 40200 OCT 40200
009557,000806:
009558,000807: 05,7070 07220 TC XVBOUT
009559,000808:
009560,000809: # FUNCTION 2 - GIMBAL MOTOR POWER OFF - DURING PRE-LAUNCH ONLY.
009561,000810:
009562,000811: 05,7071 37136 75FN2 CAF 75MASK
009563,000812: 05,7072 70612 MASK MODREG
009564,000813: 05,7073 10000 CCS A
009565,000814: 05,7074 07257 TC MALAPROP
009566,000815:
009567,000816: 05,7075 03413 TC RELAYOFF
009568,000817: 05,7076 40200 OCT 40200
009569,000818:
009570,000819: 05,7077 07220 TC XVBOUT
009571,000820:
009572,000821:
009573,000822: # FUNCTION 3 - DO LIFT-OFF IF IN MAJOR MODE 04
009574,000823:
009575,000824: 05,7100 02346 75FN3 TC CHECKMM # TEST IF PLATFORM IS INERTIAL (MM 04)
009576,000825: 05,7101 00004 OCT 4
009577,000826: 05,7102 07116 TC CHECKM02 # IT IS NOT. TEST IF STILL GYROCOMPASSING
009578,000827:
009579,000828: 05,7103 20017 +3 INHINT
009580,000829: 05,7104 34515 CAF BIT2
009581,000830: 05,7105 70646 MASK FLAGWRD1
009582,000831: 05,7106 10000 CCS A
009583,000832: 05,7107 07220 TC XVBOUT
009584,000833:
009585,000834: 05,7110 32157 CAF PRIO24
009586,000835: 05,7111 02046 TC FINDVAC
009587,000836: 05,7112 64000 CADR LIFTOFF
009588,000837:
009589,000838: 05,7113 03424 TC FLAG1UP # SET LIFT FLAG
009590,000839: 05,7114 00002 OCT 00002
009591,000840:
009592,000841: 05,7115 07220 TC XVBOUT
009593,000842:
009594,000843: 05,7116 02346 CHECKM02 TC CHECKMM # CHECK IF GYROCOMPASSING
009595,000844: 05,7117 00002 OCT 00002
009596,000845: 05,7120 07257 TC MALAPROP # NOT INERTIAL OR GYROCOMPASSING
009597,000846: 05,7121 07103 TC 75FN3 +3
009598,000847:
009599,000848: # FUNCTION 5 - FDAI ALIGN ON.
009600,000849:
009601,000850: 05,7122 37136 75FN5 CAF 75MASK
009602,000851: 05,7123 70612 MASK MODREG
009603,000852: 05,7124 10000 CCS A
009604,000853: 05,7125 07257 TC MALAPROP
009605,000854: 05,7126 03401 TC RELAYON
009606,000855: 05,7127 40400 OCT 40400
009607,000856: 05,7130 20017 INHINT
009608,000857: 05,7131 37140 CAF 10SECS75 # TURN OFF IN 10 SECONDS.
009609,000858: 05,7132 02173 TC WAITLIST
009610,000859: 05,7133 65247 CADR FDOFTSK1
009611,000860: 05,7134 07220 TC XVBOUT
009612,000861: 05,7135 77715 -.5SEC75 DEC -50 B-14
009613,000862: 05,7136 00070 75MASK OCT 70
009614,000863: 05,7137 77770 75HI12 OCT 77770
009615,000864: 05,7140 01750 10SECS75 DEC 1000 B-14
009616,000865: 05,7141 00616 LV75TEMP ADRES V75TEMP
009617,000866:
009618,000867:
009619,000868: # THE FOLLOWING PROGRAM IMPLEMENTS MAJOR MODE 27 OF FLIGHT 202 - STATE VECTOR UPDATE.
009620,000869:
009621,000870: 05,7142 02346 76UPDATE TC CHECKMM # IS THIS P24
009622,000871: 05,7143 00024 OCT 24
009623,000872: 05,7144 06054 TC XACTALM # NO
009624,000873: 05,7145 03436 TC FLAG1DWN
009625,000874: 05,7146 20000 OCT 20000
009626,000875: 05,7147 32565 CAF LDNLST2 # SET UP UPDATE DOWNLIST
009627,000876: 05,7150 50672 TS DNLSTADR
009628,000877: 05,7151 02362 TC NEWMODE
009629,000878: 05,7152 00027 OCT 27
009630,000879: 05,7153 03310 TC GRABDSP
009631,000880: 05,7154 03316 TC PREGBSY
009632,000881: 05,7155 47263 CS LSTBUFF
009633,000882: 05,7156 51122 TS -UPADR # INITIALIZE LOOP
009634,000883: 05,7157 47264 CS MINUS13D
009635,000884: 05,7160 51123 NEXTCOMP TS STCNTR
009636,000885: 05,7161 41122 OHWELL CS -UPADR
009637,000886: 05,7162 50117 TS MPAC +2
009638,000887: 05,7163 37261 CAF STATENV
009639,000888: 05,7164 03106 TC NVSUB # SET UP FOR COMPONENT LOAD
009640,000889: 05,7165 03323 TC PRENVBSY
009641,000890: 05,7166 03144 TC ENDIDLE # WAIT FOR INPUT
009642,000891: 05,7167 07213 TC ENDUPDAT # V34 E, TERMINATE
009643,000892: 05,7170 07161 TC OHWELL # V33E, MAKES NO SENSE, RECYCLE
009644,000893: 05,7171 02346 TC CHECKMM # ARE WE STILL IN P27
009645,000894: 05,7172 00027 OCT 27
009646,000895: 05,7173 07213 TC ENDUPDAT # NO, TIME HAS RUN OUT, EXIT
009647,000896: 05,7174 44516 CS ONE # COMPONENT LOADED
009648,000897: 05,7175 61122 AD -UPADR
009649,000898: 05,7176 51122 TS -UPADR # CHANGE LOAD ADDRESS
009650,000899: 05,7177 11123 CCS STCNTR
009651,000900: 05,7200 07160 TC NEXTCOMP # RECYCLE
009652,000901: 05,7201 05654 TC BANKCALL
009653,000902: 05,7202 14000 CADR FLASHON
009654,000903: 05,7203 37262 CAF PERFNV
009655,000904: 05,7204 03106 TC NVSUB # DISPLAY V50N00
009656,000905: 05,7205 03323 TC PRENVBSY
009657,000906: 05,7206 03144 TC ENDIDLE
009658,000907: 05,7207 07225 TC NEXTCHGE
009659,000908: 05,7210 07225 TC NEXTCHGE
009660,000909: 05,7211 03424 TC FLAG1UP # SET UPDATFLG
009661,000910: 05,7212 20000 OCT 20000
009662,000911: 05,7213 02346 ENDUPDAT TC CHECKMM # COMES HERE ON V34E
009663,000912: 05,7214 00027 OCT 27 # IS IT STILL P27
009664,000913: 05,7215 07220 TC XVBOUT # NO, DO NOT CHANGE PRESENT PROGRAM
009665,000914: 05,7216 02362 TC NEWMODE # YES, RESTORE P24
009666,000915: 05,7217 00024 OCT 24
009667,000916: 05,7220 03370 XVBOUT TC FREEDSP
009668,000917: 05,7221 02124 TC ENDOFJOB
009669,000918: 05,7222 02362 REDO5.20 TC NEWMODE
009670,000919: 05,7223 00024 OCT 24
009671,000920: 05,7224 02124 TC ENDOFJOB
009672,000921: 05,7225 37265 NEXTCHGE CAF L-UPADR # YES, SET UP FOR OCTAL ID IF NEEDED
009673,000922: 05,7226 50117 TS MPAC +2
009674,000923: 05,7227 02346 TC CHECKMM
009675,000924: 05,7230 00027 OCT 27
009676,000925: 05,7231 07220 TC XVBOUT
009677,000926: 05,7232 37261 CAF STATENV
009678,000927: 05,7233 03106 TC NVSUB # SET UP FOR COMPONENT LOAD
009679,000928: 05,7234 03323 TC PRENVBSY
009680,000929: 05,7235 03144 TC ENDIDLE # WAIT FOR INPUT
009681,000930: 05,7236 07213 TC ENDUPDAT # V34E, TERMINATE
009682,000931: 05,7237 07225 TC NEXTCHGE # V33E, UPDATE VERIFIED
009683,000932: 05,7240 11122 CCS -UPADR # IS OCTAL ID PNZ
009684,000933: 05,7241 07245 TC +4 # YES, TEST FURTHER
009685,000934: 05,7242 07225 TC NEXTCHGE # NO, BAD ID, RECYCLE
009686,000935: 05,7243 07225 TC NEXTCHGE # NO, BAD ID, RECYCLE
009687,000936: 05,7244 07225 TC NEXTCHGE # NO, BAD ID, RECYCLE
009688,000937: 05,7245 67264 AD MINUS13D
009689,000938: 05,7246 10000 CCS A # IS ID TOO BIG
009690,000939: 05,7247 07225 TC NEXTCHGE # YES, BAD ID, RECYCLE
009691,000940: 05,7250 07225 TC NEXTCHGE # YES, BAD ID, RECYCLE
009692,000941: 05,7251 07252 TC +1 # NO, GOOD ID
009693,000942: 05,7252 11122 CCS -UPADR # NO, GOOD ID
009694,000943: 05,7253 67263 AD LSTBUFF
009695,000944: 05,7254 40000 CS A
009696,000945: 05,7255 51122 TS -UPADR
009697,000946: 05,7256 07161 TC OHWELL
009698,000947: 05,7257 03241 MALAPROP TC FALTON
009699,000948: 05,7260 07220 TC XVBOUT
009700,000949: 05,7261 02101 STATENV OCT 02101
009701,000950: 05,7262 05000 PERFNV OCT 05000
009702,000951: 05,7263 01100 LSTBUFF ADRES STBUFF
009703,000952: 05,7264 77762 MINUS13D OCT 77762
009704,000953: 05,7265 01122 L-UPADR ADRES -UPADR
009705,000954: 05,7266 ENDEXTVS =
End of include-file EXTENDED_VERBS_FOR_MODING.agc. Parent file is MAIN.agc