Source Code
|
These source-code files were obtained by digitally photographing
a Solarium 55 (Apollo 6) program listing from the American Computer Museum in
Bozeman, Montana. Photography was by Ron Burkey, with assistance from
museum curator George Keremedjiev and Montana
State University curator Kim Scott. The listing originally belonged to Eldon C. Hall,
who donated it to the museum. Volunteers then manually typed in the
source code or else modified similar pre-existing Colossus 249
(Apollo 9) source files to incorporate changes, although this transcription was
principally done by Jim Lawton and corrected by Ron Burkey.
Notations on the program listing read, in part:
YUL SYSTEM FOR AGC4: REVISION 0 OF PROGRAM SOLRUM55
BY NASA 1021108-021 DEC. 4, 1966
Note that the date is the date of the printout, not the date of the program revision.
Due to statements by Jay Sampson, the original contractor from AC Electronics
who created Solarium 54 (Apollo 4)
from the earlier Corona (AS-202 mission) program, it is believed that Solarium 54 and
Solarium 55 (Apollo 6) are actually identical programs. The change in numbering,
from 54 to 55, is believed to be for some administrative purpose. Thus, it is believed
that the source-code represented here is equally appropriate for both Apollo 4 and
Apollo 6 missions.
|
009079,000002: ## Copyright: Public domain.
009080,000003: ## Filename: EXTENDED_VERBS_FOR_MODING.agc
009081,000004: ## Purpose: Part of the source code for Solarium build 55. This
009082,000005: ## is for the Command Module's (CM) Apollo Guidance
009083,000006: ## Computer (AGC), for Apollo 6.
009084,000007: ## Assembler: yaYUL --block1
009085,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
009086,000009: ## Website: www.ibiblio.org/apollo/index.html
009087,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
009088,000011: ## Mod history: 2009-10-08 JL Created.
009089,000012: ## 2009-08-19 RSB Typos.
009090,000013: ## 2016-08-23 RSB More of the same.
009091,000014: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
009092,000015: ## and fixed errors found.
009093,000016: ## 2021-05-30 ABS Fixed capitalization of various page marker comments.
009094,000017: ## OCT1DNV -> OCTIDNV
009095,000018:
|
|
Page 235
|
009097,000020:
009098,000021: # VERB PLEASE PERFORM AND VERB PLEASE MARK ----- FLASH SHOULD BE TURNED ON
009099,000022: # (FLASHON) BY ROUTINE PASTING EITHER UP. FLASH IS TURNED OFF BY ENTER OF
009100,000023: # PLEASE PERFORM, OR ENTER OF PLEASE MARK.
009101,000024:
009102,000025: # BOTH FLASHON AND FLASHOFF MUST NOT BE USED IN INTERRUPTED STATE.
009103,000026:
009104,000027: # PLEASE PERFORM VERB AND PLEASE MARK VERB-----
009105,000028: # PRESSING ENTER INDICATES ACTION REQUESTED HAS
009106,000029: # BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED LOAD. OPERATOR
009107,000030: # SHOULD DO VERB PROCEED WITHOUT DATA IF WISHES NOT TO PERFORM THE
009108,000031: # REQUESTED ACTION.
009109,000032:
009110,000033:
009111,000034:
009112,000035: # FAN-OUT
009113,000036:
009114,000037: 05,6000 SETLOC 12000
009115,000038:
009116,000039: 05,6000 PINTEST EQUALS # THIS MUST = 05,6000 FOR PINBALL
009117,000040: # VERIFICATION. DO NOT MOVE WITHOUT
009118,000041: # INFORMING ALAN GREEN.
009119,000042:
009120,000043: 05,6000 06077 LST2FAN TC VBZERO # VB40 ZERO(USED WITH NOUN ICDU OR OCDU)
009121,000044: 05,6001 06102 TC VBCOARK # VB41 COARSE ALIGN(USED WITH NOUN ICDU
009122,000045: # OR OCDU)
009123,000046: 05,6002 06220 TC IMUFINEK # VB42 FINE ALIGN IMU
009124,000047: 05,6003 06253 TC IMULOCKK # VB43 LOCK IMU
009125,000048: 05,6004 06262 TC IMUATTCK # VB44 SET IMU TO ATTITUDE CONTROL
009126,000049: 05,6005 06316 TC IMUREENK # VB45 SET IMU TO RE-ENTRY CONTROL
009127,000050: 05,6006 06352 TC IMUCORK # VB46 RETURN IMU TO COARSE ALIGN
009128,000051: 05,6007 06075 TC ALM/END # VB47 OPTICAL TRACKER ON(NOT IN USE YET)
009129,000052: 05,6010 06437 TC GOLOADLV # VB50 PLEASE PERFORM
009130,000053: 05,6011 06437 TC GOLOADLV # VB51 PLEASE MARK
009131,000054: 05,6012 06415 TC DOMKREJ # VB52 MARK REJECT (UNTIL BUTTON AVAIL.)
009132,000055: 05,6013 06444 TC RELO/IK # VV53 FREE (USED WITH NOUN ICDU OR OCDU)
009133,000056: 05,6014 06454 TC TORQGYRS # VB54 PULSE TORQUE GYROS
009134,000057: 05,6015 06502 TC ALINTIME # VB55 ALIGN TIME
009135,000058: 05,6016 07014 TC GOSHOSUM # VB56 PERFORMS BANKSUM
009136,000059: 05,6017 06752 TC SYSTEST # VB57 DO SYSTEM TEST
009137,000060: 05,6020 06545 TC PRESTAND # VB60 PREPARE FOR STANDBY
009138,000061: 05,6021 06652 TC POSTAND # VB61 RECOVER FROM STANBBY
009139,000062: 05,6022 30000 NOOP # ILLEGAL VERB.
009140,000063: 05,6023 30000 NOOP # ILLEGAL VERB.
009141,000064: 05,6024 30000 NOOP # ILLEGAL VERB.
009142,000065: 05,6025 30000 NOOP # ILLEGAL VERB.
009143,000066: 05,6026 30000 NOOP # ILLEGAL VERB.
009144,000067: 05,6027 30000 NOOP # ILLEGAL VERB.
009145,000068: 05,6030 06075 TC ALM/END
009146,000069: 05,6031 06043 TC 71JUMPTO # VERB 71 IS TFFMIN UPDATE
009147,000070: 05,6032 06045 TC ABRTJPTO # VERB 72 ABORTS
|
|
Page 236
|
009149,000072: 05,6033 30000 NOOP # ILLEGAL VERB.
009150,000073: 05,6034 06075 TC ALM/END
009151,000074: 05,6035 07016 TC EXTRAI/O # VB75 MANUAL INPUT/OUTPUT OPTIONS.
009152,000075: 05,6036 06041 TC 76JUMPTO # VERB 76 IS STATE VECTOR UPDATE
009153,000076: 05,6037 05720 TC POSTJUMP # VERB 77 IS L/O TIME UPDATE
009154,000077: 05,6040 26761 CADR 77UPDATE
009155,000078: 05,6041 05720 76JUMPTO TC POSTJUMP
009156,000079: 05,6042 26753 CADR 76UPDATE
009157,000080: 05,6043 05720 71JUMPTO TC POSTJUMP
009158,000081: 05,6044 26757 CADR 71UPDATE
009159,000082: 05,6045 05720 ABRTJPTO TC POSTJUMP
009160,000083: 05,6046 64477 CADR ABORTRPT
009161,000084:
009162,000085: 05,6047 34514 TESTXACT CAF BIT3
009163,000086: 05,6050 70645 MASK EXTVBACT
009164,000087: 05,6051 10000 CCS A
009165,000088: 05,6052 06062 TC XACTALM
009166,000089:
009167,000090: 05,6053 44514 XACT1 CS BIT3
009168,000091: 05,6054 20017 INHINT
009169,000092: 05,6055 70645 MASK EXTVBACT
009170,000093: 05,6056 64514 AD BIT3
009171,000094: 05,6057 50645 TS EXTVBACT
009172,000095: 05,6060 20016 RELINT
009173,000096: 05,6061 00001 TC Q
009174,000097:
009175,000098: 05,6062 03233 XACTALM TC FALTON
009176,000099: 05,6063 02124 TC ENDOFJOB
009177,000100:
009178,000101: 05,6064 03362 TERMEXTV TC FREEDSP # IF WE GET A TERMINATE INSTEAD OF A LOAD.
009179,000102:
009180,000103: 05,6065 06067 ENDEXTVB TC XACT0
009181,000104: 05,6066 02124 TC ENDOFJOB
009182,000105:
009183,000106: 05,6067 44514 XACT0 CS BIT3
009184,000107: 05,6070 20017 INHINT
009185,000108: 05,6071 70645 MASK EXTVBACT
009186,000109: 05,6072 50645 TS EXTVBACT
009187,000110: 05,6073 20016 RELINT
009188,000111: 05,6074 00001 TC Q
009189,000112:
009190,000113:
009191,000114:
009192,000115: 05,6075 03233 ALM/END TC FALTON
009193,000116: 05,6076 06065 TC ENDEXTVB
009194,000117:
009195,000118:
009196,000119:
009197,000120: 05,6077 06105 VBZERO TC OP/INERT
009198,000121: 05,6100 06126 TC IMUZEROK # RETURN HERE IF NOUN = ICDU(20)
|
|
Page 237
|
009200,000123: 05,6101 06075 TC ALM/END # RETURN HERE IF NOUN = OCDU(55)
009201,000124: # (NOT IN USE YET)
009202,000125:
009203,000126: 05,6102 06105 VBCOARK TC OP/INERT
009204,000127: 05,6103 06142 TC IMUCOARK # RETURN HERE IF NOUN = ICDU(20)
009205,000128: 05,6104 06367 TC OPTCOARK # RETURN HERE IF NOUN = OCDU(55)
009206,000129:
|
|
Page 238
|
009208,000131:
009209,000132: # SUBROUTINE FOR CHECKING GIVEN NOUN IF APPROPRIATE.
009210,000133:
009211,000134: 05,6105 30001 OP/INERT XCH Q # RETURNS TO L+1 IF NOUN=ICDU(20)
009212,000135: 05,6106 50106 TS WDRET # RETURNS TO L+2 IF NOUN = OCDU(55)
009213,000136: 05,6107 46113 CS NNICDU # ALARMS IF ANY OTHER NOUN
009214,000137: 05,6110 60603 AD NOUNREG
009215,000138: 05,6111 10000 CCS A
009216,000139: 05,6112 06116 TC +4 # NN G/ 20
009217,000140: 05,6113 00020 NNICDU OCT 20
009218,000141: 05,6114 06075 TC ALM/END # NN L/ 20
009219,000142: 05,6115 00106 TC WDRET # NN = 20
009220,000143: 05,6116 46122 CS NNOCDU
009221,000144: 05,6117 60603 AD NOUNREG
009222,000145: 05,6120 10000 CCS A
009223,000146: 05,6121 06075 TC ALM/END # NN G/ 55
009224,000147: 05,6122 00055 NNOCDU OCT 55
009225,000148: 05,6123 06075 TC ALM/END # NN L/ 55
009226,000149: 05,6124 20106 INDEX WDRET # NN = 55
009227,000150: 05,6125 00001 TC 1
009228,000151:
|
|
Page 239
|
009230,000153:
009231,000154: # KEYBOARD REQUEST TO ZERO IMU ENCODERS
009232,000155:
009233,000156: 05,6126 06047 IMUZEROK TC TESTXACT # ZERO ENCODERS.
009234,000157: 05,6127 05654 TC BANKCALL
009235,000158: 05,6130 30000 CADR IMUZERO
009236,000159:
009237,000160: 05,6131 05654 TC BANKCALL # STALL
009238,000161: 05,6132 30331 CADR IMUSTALL
009239,000162: 05,6133 06134 TC +1
009240,000163:
009241,000164: 05,6134 20017 ENDMZERO INHINT
009242,000165: 05,6135 45070 CS ZLITBITS # TURN OFF ZEROING LIGHT TO SHOW COMPLETE.
009243,000166: 05,6136 70723 MASK DSPTAB +11D
009244,000167: 05,6137 64500 AD BIT15
009245,000168: 05,6140 50723 TS DSPTAB +11D
009246,000169: 05,6141 06065 TC ENDEXTVB
009247,000170:
|
|
Page 240
|
009249,000172:
009250,000173: # KEYBOARD REQUEST TO COARSE ALIGN THE IMU
009251,000174:
009252,000175: 05,6142 06047 IMUCOARK TC TESTXACT # COARSE ALIGN FROM KEYBOARD.
009253,000176: 05,6143 03302 TC GRABDSP
009254,000177: 05,6144 03310 TC PREGBSY
009255,000178: 05,6145 36165 CAF VNLODCDU # CALL FOR THETAD LOAD
009256,000179: 05,6146 03100 TC NVSUB
009257,000180: 05,6147 03315 TC PRENVBSY
009258,000181: 05,6150 03136 TC ENDIDLE # STALL WAITING FOR THE LOAD
009259,000182: 05,6151 06064 TC TERMEXTV
009260,000183: 05,6152 06167 TC ICSDEL # PROCEED - ASK FOR INCREMENTAL LOAD.
009261,000184:
009262,000185: 05,6153 36166 ICORK2 CAF IMUCOARV # RE-DISPLAY COARSE ALIGN VERB.
009263,000186: 05,6154 03100 TC NVSUB
009264,000187: 05,6155 03315 TC PRENVBSY
009265,000188: 05,6156 03362 TC FREEDSP # RELEASE THE DISPLAYS
009266,000189:
009267,000190: 05,6157 05654 TC BANKCALL # CALL MODE SWITCHING PROG
009268,000191: 05,6160 30104 CADR IMUCOARS
009269,000192:
009270,000193: 05,6161 05654 TC BANKCALL # STALL
009271,000194: 05,6162 30331 CADR IMUSTALL
009272,000195: 05,6163 06065 TC ENDEXTVB
009273,000196: 05,6164 06065 TC ENDEXTVB
009274,000197:
009275,000198: 05,6165 02522 VNLODCDU OCT 02522
009276,000199: 05,6166 04100 IMUCOARV OCT 04100
009277,000200:
|
|
Page 241
|
009279,000202:
009280,000203: # PROVISION FOR COARSE ALIGN TO INCREMENTAL ANGLES.
009281,000204:
009282,000205: 05,6167 36216 ICSDEL CAF DELLOAD
009283,000206: 05,6170 03100 TC NVSUB # REQUEST LOAD OF DELTA ICDU ANGLES.
009284,000207: 05,6171 03315 TC PRENVBSY
009285,000208: 05,6172 03136 TC ENDIDLE
009286,000209: 05,6173 06064 TC TERMEXTV
009287,000210: 05,6174 06153 TC ICORK2 # PROCEED WITHOUT DATA HERE TOO.
009288,000211: 05,6175 06177 TC INCLOOP # LOOP TO INCREMENT THETAD FROM DSPTEM2.
009289,000212: 05,6176 06153 TC ICORK2 # RE-DISPLAY COARSE ALIGN VERB.
009290,000213:
009291,000214: 05,6177 30001 INCLOOP XCH Q # INCREMENTS THETADS IN 2S COMPLEMENT FROM
009292,000215: 05,6200 50115 TS MPAC # THREE ANGLE INCREMENTS IN DSPTEM2S.
009293,000216: 05,6201 36217 CAF LTHD+2
009294,000217: 05,6202 50077 TS BUF # SET UP FOR CDUINC.
009295,000218: 05,6203 35503 CAF TWO # THREE TIMES THROUGH.
009296,000219:
009297,000220: 05,6204 50116 INCLOOP2 TS MPAC +1
009298,000221: 05,6205 20000 INDEX A
009299,000222: 05,6206 30621 XCH DSPTEM2 # INCREMENT TO TEM2 FOR CDUINC.
009300,000223: 05,6207 05654 TC BANKCALL
009301,000224: 05,6210 30361 CADR CDUINC
009302,000225: 05,6211 10077 CCS BUF
009303,000226: 05,6212 50077 TS BUF
009304,000227: 05,6213 10116 CCS MPAC +1
009305,000228: 05,6214 06204 TC INCLOOP2
009306,000229:
009307,000230: 05,6215 00115 TC MPAC # RETURN WHEN FINISHED.
009308,000231:
009309,000232: 05,6216 02523 DELLOAD OCT 02523
009310,000233: 05,6217 00702 LTHD+2 ADRES THETAD +2
009311,000234:
|
|
Page 242
|
009313,000236:
009314,000237: # KEYBOARD REQUEST TO FINE ALIGN AND GYRO TORQUE IMU
009315,000238:
009316,000239: 05,6220 06047 IMUFINEK TC TESTXACT # FINE ALIGN WITH GYRO TORQUING.
009317,000240: 05,6221 03302 TC GRABDSP
009318,000241: 05,6222 03310 TC PREGBSY
009319,000242: 05,6223 36251 CAF VNLODGYR # CALL FOR LOAD OF GYRO COMMANDS
009320,000243: 05,6224 03100 TC NVSUB
009321,000244: 05,6225 03315 TC PRENVBSY
009322,000245: 05,6226 03136 TC ENDIDLE # HOLD UP FOR THE DATA LOAD
009323,000246: 05,6227 06064 TC TERMEXTV
009324,000247: 05,6230 06231 TC +1 # PROCEED WITHOUT A LOAD
009325,000248:
009326,000249: 05,6231 36252 CAF IMUFINEV # RE-DISPLAY OUR OWN VERB
009327,000250: 05,6232 03100 TC NVSUB
009328,000251: 05,6233 03315 TC PRENVBSY
009329,000252: 05,6234 03362 TC FREEDSP # RELEASE DISPLAYS
009330,000253:
009331,000254: 05,6235 05654 TC BANKCALL # CALL MODE SWITCH PROG
009332,000255: 05,6236 30143 CADR IMUFINE
009333,000256:
009334,000257: 05,6237 05654 TC BANKCALL # HIBERNATION
009335,000258: 05,6240 30331 CADR IMUSTALL
009336,000259: 05,6241 06065 TC ENDEXTVB
009337,000260: 05,6242 36500 CAF LGYROBIN # PINBALL LEFT COMMANDS IN OGC REGIST5RS
009338,000261: 05,6243 05654 TC BANKCALL
009339,000262: 05,6244 31433 CADR GYRODPNT
009340,000263:
009341,000264: 05,6245 05654 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009342,000265: 05,6246 30331 CADR IMUSTALL
009343,000266: 05,6247 06065 TC ENDEXTVB
009344,000267: 05,6250 06065 TC ENDEXTVB
009345,000268:
009346,000269: 05,6251 02567 VNLODGYR OCT 02567
009347,000270: 05,6252 04200 IMUFINEV OCT 04200 # FINE ALIGN VERB
009348,000271:
|
|
Page 243
|
009350,000273:
009351,000274: # KEYBOARD REQUEST TO LOCK THE IMU CDUS
009352,000275:
009353,000276: 05,6253 06047 IMULOCKK TC TESTXACT
009354,000277: 05,6254 05654 TC BANKCALL
009355,000278: 05,6255 30205 CADR IMULOCK
009356,000279:
009357,000280: 05,6256 05654 TC BANKCALL # STALL
009358,000281: 05,6257 30331 CADR IMUSTALL
009359,000282: 05,6260 06065 TC ENDEXTVB
009360,000283: 05,6261 06065 TC ENDEXTVB
009361,000284:
|
|
Page 244
|
009363,000286:
009364,000287: # KEYBOARD REQUEST TO PUT IMU IN ATTITUDE CONTROL MODE
009365,000288:
009366,000289: 05,6262 06047 IMUATTCK TC TESTXACT # ATTITUDE CONTROL.
009367,000290: 05,6263 03302 TC GRABDSP
009368,000291: 05,6264 03310 TC PREGBSY
009369,000292: 05,6265 36216 CAF DELLOAD # ASK FOR DELTA ANGLE LOAD.
009370,000293: 05,6266 03100 TC NVSUB
009371,000294: 05,6267 03315 TC PRENVBSY
009372,000295: 05,6270 03136 TC ENDIDLE # STALL WAITING FOR LOAD
009373,000296: 05,6271 06064 TC TERMEXTV
009374,000297: 05,6272 06306 TC ATTCABS # PROCEED - ASK FOR ABSOLUTE ANGLES.
009375,000298: 05,6273 06177 TC INCLOOP # ADD INCREMENTS TO DESIRED ANGLES.
009376,000299:
009377,000300: 05,6274 36315 ATTCK2 CAF IMUATTCV
009378,000301: 05,6275 03100 TC NVSUB
009379,000302: 05,6276 03315 TC PRENVBSY
009380,000303: 05,6277 03362 TC FREEDSP # LET THE DISPLAYS GO
009381,000304:
009382,000305: 05,6300 05654 TC BANKCALL # CALL THE MODE SWITCH PROG
009383,000306: 05,6301 30223 CADR IMUATTC
009384,000307:
009385,000308: 05,6302 05654 TC BANKCALL # STALL
009386,000309: 05,6303 30331 CADR IMUSTALL
009387,000310: 05,6304 06065 TC ENDEXTVB
009388,000311: 05,6305 06065 TC ENDEXTVB
009389,000312:
009390,000313: # PROVISIONS FOR ABSOLUTE LOAD FOR IMU CDUS IN ATTITUDE CONTROL.
009391,000314:
009392,000315: 05,6306 36165 ATTCABS CAF VNLODCDU # ASK FOR ABSOLUTE CDU ANGLES.
009393,000316: 05,6307 03100 TC NVSUB
009394,000317: 05,6310 03315 TC PRENVBSY
009395,000318: 05,6311 03136 TC ENDIDLE
009396,000319: 05,6312 06064 TC TERMEXTV
009397,000320: 05,6313 06274 TC ATTCK2
009398,000321: 05,6314 06274 TC ATTCK2 # SECOND PROCEED WITHOUT DATA.
009399,000322:
009400,000323: 05,6315 04400 IMUATTCV OCT 04400
009401,000324:
|
|
Page 245
|
009403,000326:
009404,000327: # KEYBOARD REQUEST TO PUT THE IMU IN RE-ENTRY CONTROL MODE
009405,000328:
009406,000329: 05,6316 06047 IMUREENK TC TESTXACT # RE-ENTRY.
009407,000330: 05,6317 03302 TC GRABDSP
009408,000331: 05,6320 03310 TC PREGBSY
009409,000332: 05,6321 36216 CAF DELLOAD # LOAD INCREMENTAL ANGLES.
009410,000333: 05,6322 03100 TC NVSUB
009411,000334: 05,6323 03315 TC PRENVBSY
009412,000335: 05,6324 03136 TC ENDIDLE # STALL FOR THE LOAD
009413,000336: 05,6325 06064 TC TERMEXTV
009414,000337: 05,6326 06342 TC REENTABS # PROCEED - ASK FOR ABSOLUTE LOAD.
009415,000338: 05,6327 06177 TC INCLOOP
009416,000339:
009417,000340: 05,6330 36351 REENTK2 CAF IMUREENV # RE-DISPLAY VERB.
009418,000341: 05,6331 03100 TC NVSUB
009419,000342: 05,6332 03315 TC PRENVBSY
009420,000343: 05,6333 03362 TC FREEDSP # LET THE DISPLAYS GO
009421,000344:
009422,000345: 05,6334 05654 TC BANKCALL # CALL MODE SWITCH PROG
009423,000346: 05,6335 30216 CADR IMUREENT
009424,000347:
009425,000348: 05,6336 05654 TC BANKCALL # STALL
009426,000349: 05,6337 30331 CADR IMUSTALL
009427,000350: 05,6340 06065 TC ENDEXTVB
009428,000351: 05,6341 06065 TC ENDEXTVB
009429,000352:
009430,000353: 05,6342 36165 REENTABS CAF VNLODCDU # REQUEST ABSOLUTE ANGLES.
009431,000354: 05,6343 03100 TC NVSUB
009432,000355: 05,6344 03315 TC PRENVBSY
009433,000356: 05,6345 03136 TC ENDIDLE
009434,000357: 05,6346 06064 TC TERMEXTV # TERMINATE
009435,000358: 05,6347 06330 TC REENTK2
009436,000359: 05,6350 06330 TC REENTK2
009437,000360: 05,6351 04500 IMUREENV OCT 04500
009438,000361:
|
|
Page 246
|
009440,000363:
009441,000364: # KEYBOARD REQUEST TO RETURN THE IMU TO COARSE ALIGN
009442,000365:
009443,000366: 05,6352 06047 IMUCORK TC TESTXACT # BACK TO COARSE ALIGN (FROM FINE).
009444,000367: 05,6353 05654 TC BANKCALL
009445,000368: 05,6354 30134 CADR IMURECOR
009446,000369:
009447,000370: 05,6355 05654 TC BANKCALL
009448,000371: 05,6356 30331 CADR IMUSTALL
009449,000372: 05,6357 06065 TC ENDEXTVB
009450,000373: 05,6360 06065 TC ENDEXTVB
009451,000374:
|
|
Page 247
|
009453,000376:
009454,000377: # KEYBOARD REQUEST TO ZERO OPTICS CDUS
009455,000378:
009456,000379: 05,6361 05654 OPTZEROK TC BANKCALL # CALL MODE PROG
009457,000380: 05,6362 12367 CADR OPTZERO
009458,000381:
009459,000382: 05,6363 05654 TC BANKCALL # STALL
009460,000383: 05,6364 30327 CADR OPTSTALL
009461,000384: 05,6365 06065 TC ENDEXTVB
009462,000385: 05,6366 06065 TC ENDEXTVB
009463,000386:
009464,000387: 05,6367 OPTZERO = # INTERFACES NOT CURRENTLY WIRED *********
009465,000388:
|
|
Page 248
|
009467,000390:
009468,000391: # TEMPORARY ROUTINE TO RUN THE OPTICS CDUS FROM THE KEYBOARD
009469,000392:
009470,000393: 05,6367 03302 OPTCOARK TC GRABDSP # SNATCH THEM DISPLAYS
009471,000394: 05,6370 03310 TC PREGBSY
009472,000395: 05,6371 36406 CAF VNLDOCDU # VERB-NOUN TO LOAD OPTICS CDUS
009473,000396: 05,6372 03100 TC NVSUB
009474,000397: 05,6373 03315 TC PRENVBSY
009475,000398: 05,6374 03136 TC ENDIDLE # WAIT FOR THE LOAD
009476,000399: 05,6375 06064 TC TERMEXTV
009477,000400: 05,6376 06377 TC +1 # PROCEED
009478,000401:
009479,000402: 05,6377 36166 CAF OPTCOARV # RE-DISPLAY OUR OWN VERB
009480,000403: 05,6400 03100 TC NVSUB
009481,000404: 05,6401 03315 TC PRENVBSY
009482,000405: 05,6402 03362 TC FREEDSP # LET IT GO
009483,000406:
009484,000407: 05,6403 35501 CAF ZERO
009485,000408: 05,6404 50703 TS OPTIND # SNATCH OPTICS
009486,000409:
009487,000410: 05,6405 06065 TC ENDEXTVB
009488,000411:
009489,000412: 05,6406 02457 VNLDOCDU OCT 02457
009490,000413: 05,6407 05,6166 OPTCOARV EQUALS IMUCOARV # DIFFERENT NOUNS.
009491,000414:
|
|
Page 249
|
009493,000416:
009494,000417: # KEYBOARD REQUEST TO ACTIVATE THE OPTICAL STAR TRACKER
009495,000418:
009496,000419: 05,6407 05654 OPTTRONK TC BANKCALL
009497,000420: 05,6410 12415 CADR OPTTRKON # CALL MODE SWITCHER
009498,000421:
009499,000422: 05,6411 05654 TC BANKCALL # STALL
009500,000423: 05,6412 30327 CADR OPTSTALL
009501,000424: 05,6413 06065 TC ENDEXTVB
009502,000425: 05,6414 06065 TC ENDEXTVB
009503,000426:
009504,000427: 05,6415 OPTTRKON = # NOT AVAILABLE JUST NOW
009505,000428:
009506,000429: 05,6415 20017 DOMKREJ INHINT # DO 10 MS WAITLIST CALL TO MK REJECT PROG
009507,000430: 05,6416 40735 CS MARKSTAT # MARK REJECT IS ENABLED ONLY IF BIT10
009508,000431: 05,6417 74505 MASK BIT10 # OF MARKSTAT = 1.
009509,000432: 05,6420 10000 CCS A
009510,000433: 05,6421 06075 TC ALM/END
009511,000434:
009512,000435: 05,6422 34516 CAF ONE
009513,000436: 05,6423 02173 TC WAITLIST
009514,000437: 05,6424 30611 CADR MKREJECT # (CALLED IN KEYRUPT WHEN BUTTON AVAIL.)
009515,000438: 05,6425 32261 CAF HI5 # MARK REJECT ROUTINE WILL RE-PASTE VB51
009516,000439: 05,6426 70735 MASK MARKSTAT # IF ALL MARKS WERE IN.
009517,000440: 05,6427 10000 CCS A
009518,000441: 05,6430 06432 TC +2
009519,000442: 05,6431 02124 TC ENDOFJOB
009520,000443:
009521,000444: 05,6432 20016 RELINT
009522,000445: 05,6433 05654 TC BANKCALL # RE-DISPLAY VB 51 SINCE MORE MARKS
009523,000446: 05,6434 14000 CADR FLASHON # REQUIRED.
009524,000447: 05,6435 05720 TC POSTJUMP
009525,000448: 05,6436 30755 CADR REMKVB51
009526,000449:
009527,000450: # PLEASE PERFORM VERB AND PLEASE MARK VERB ----- PRESSING ENTER INDICATES
009528,000451: # ACTION REQUESTED HAS BEEN PERFORMED, AND DOES SAME RECALL AS A COMPLETED
009529,000452: # LOAD. OPERATOR SHOULD DO VB PROCEED WITHOUT DATA IF HE WISHES NOT TO
009530,000453: # PERFORM THE REQUESTED ACTION.
009531,000454:
009532,000455: 05,6437 05654 GOLOADLV TC BANKCALL
009533,000456: 05,6440 14003 CADR FLASHOFF
009534,000457: 05,6441 06067 TC XACT0
009535,000458: 05,6442 05720 TC POSTJUMP
009536,000459: 05,6443 16006 CADR LOADLV1
009537,000460:
|
|
Page 250
|
009539,000462:
009540,000463: # KEYBOARD REQUEST TO RELEASE IMU OR OPTICS
009541,000464:
009542,000465: 05,6444 06105 RELO/IK TC OP/INERT
009543,000466: 05,6445 06451 TC IMURELK # RETURN HERE IF IMU
009544,000467: 05,6446 45501 CS ZERO # RETURN HERE IF OPTICS
009545,000468: 05,6447 50703 TS OPTIND
009546,000469: 05,6450 02124 TC ENDOFJOB
009547,000470:
009548,000471: 05,6451 45501 IMURELK CS ZERO
009549,000472: 05,6452 50677 TS CDUIND
009550,000473: 05,6453 02124 TC ENDOFJOB
009551,000474:
|
|
Page 251
|
009553,000476:
009554,000477: # KEYBOARD REQUEST TO PULSE TORQUE IRIGA
009555,000478:
009556,000479:
009557,000480:
009558,000481: 05,6454 06047 TORQGYRS TC TESTXACT # GYRO TORQUING WITH NO MODE-SWITCH.
009559,000482: 05,6455 03302 TC GRABDSP
009560,000483: 05,6456 03310 TC PREGBSY
009561,000484: 05,6457 36251 CAF VNLODGYR
009562,000485: 05,6460 03100 TC NVSUB
009563,000486: 05,6461 03315 TC PRENVBSY
009564,000487: 05,6462 03136 TC ENDIDLE
009565,000488: 05,6463 06064 TC TERMEXTV
009566,000489: 05,6464 06465 TC +1
009567,000490: 05,6465 36501 CAF TORQGYRV # RE-DISPLAY OUR OWN VERB
009568,000491: 05,6466 03100 TC NVSUB
009569,000492: 05,6467 03315 TC PRENVBSY
009570,000493: 05,6470 03362 TC FREEDSP
009571,000494: 05,6471 36500 CAF LGYROBIN
009572,000495: 05,6472 05654 TC BANKCALL
009573,000496: 05,6473 31433 CADR GYRODPNT
009574,000497: 05,6474 05654 TC BANKCALL # WAIT FOR PULSES TO GET OUT.
009575,000498: 05,6475 30331 CADR IMUSTALL
009576,000499: 05,6476 06065 TC ENDEXTVB
009577,000500: 05,6477 06065 TC ENDEXTVB
009578,000501:
009579,000502: 05,6500 01520 LGYROBIN ADRES OGC
009580,000503: 05,6501 05400 TORQGYRV OCT 05400
009581,000504:
|
|
Page 252
|
009583,000506:
009584,000507: # ALIGN TIME
009585,000508: 05,6502 36544 ALINTIME CAF VNLODDT # USES NVSUBMON. DOES NOT TEST DSPLOCK.
009586,000509: 05,6503 50110 TS NVTEMP # DOES NOT KILL MONITOR.
009587,000510: 05,6504 03121 TC NVSUBMON
009588,000511: 05,6505 02124 TC ENDOFJOB # IN CASE OF ALARM IN LOAD REQUEST SET UP.
009589,000512: 05,6506 03136 TC ENDIDLE
009590,000513: 05,6507 02124 TC ENDOFJOB # TERMINATE
009591,000514: 05,6510 02124 TC ENDOFJOB # PROCEED WITHOUT DATA
009592,000515: 05,6511 20017 UPDATIME INHINT # DELTA TIME IS IN DSPTEM1, +1.
009593,000516: 05,6512 35501 CAF ZERO
009594,000517: 05,6513 50117 TS MPAC +2 # NEEDED FOR TP AGREE
009595,000518: 05,6514 30036 XCH TIME1 # LO ORDER TIME
009596,000519: 05,6515 60617 AD DSPTEM1 +1
009597,000520: 05,6516 50116 TS MPAC +1
009598,000521: 05,6517 35501 CAF ZERO
009599,000522: 05,6520 60616 AD DSPTEM1
009600,000523: 05,6521 60035 AD TIME2 # HI ORDER TIME
009601,000524: 05,6522 30115 XCH MPAC
009602,000525: 05,6523 05654 TC BANKCALL
009603,000526: 05,6524 07154 CADR TPAGREE
009604,000527: 05,6525 30115 XCH MPAC
009605,000528: 05,6526 30035 XCH TIME2
009606,000529: 05,6527 30116 XCH MPAC +1
009607,000530: 05,6530 30036 XCH TIME1
009608,000531: 05,6531 10000 CCS A
009609,000532: 05,6532 06534 TC +2
009610,000533: 05,6533 06542 TC ENDALINE
009611,000534: 05,6534 34516 CAF ONE # TIME1 WAS INCREMENTED SINCE PICKUP
009612,000535: 05,6535 60036 AD TIME1
009613,000536: 05,6536 50036 TS TIME1
009614,000537: 05,6537 06542 TC ENDALINE
009615,000538: 05,6540 60035 AD TIME2
009616,000539: 05,6541 30035 XCH TIME2
009617,000540: 05,6542 20016 ENDALINE RELINT
009618,000541: 05,6543 02124 TC ENDOFJOB
009619,000542:
009620,000543: 05,6544 02124 VNLODDT OCT 02124 # V/N FOR LOAD DELTA TIME
009621,000544:
|
|
Page 253
|
009623,000546:
009624,000547: # PREPARE FOR STANDBY OPERATION
009625,000548:
009626,000549: # PRESTAND PREPARES FOR STANDBY BY SNAPSHOTTING IN1, TIME1, TIME2 AS SOON
009627,000550: # AS IN1 CHANGES. IT DOES THIS BY CONTIUOUS WAITLIST REQUESTS UNTIL A
009628,000551: # CHANGE IN IN1 IS DETECTED.
009629,000552:
009630,000553: # POSTAND RECOVERS TIME AFTER STANDBY. IT WAITS FOR A CHANGE IN IN1 (JUST
009631,000554: # AS PRESTAND DOES), THEN COMPUTES THE DIFFERENCE BETWEEN IN1 VALUES(FULL
009632,000555: # 16 BITS), ADDS THIS TO THE PREVIOUSLY SNAPSHOTTED VALUES OF TIME1, TIME2
009633,000556: # AND PLACES THIS NEW TIME INTO TIME1, TIME2 COUNTERS.
009634,000557:
009635,000558:
009636,000559:
009637,000560: # BIT1 OF IN1LOSAV = LAST VALUE OF BIT1 OF IN1
009638,000561: 05,6545 20017 PRESTAND INHINT # PREPARE TIME FOR STANDBY
009639,000562: 05,6546 34516 CAF ONE
009640,000563: 05,6547 02173 TC WAITLIST
009641,000564: 05,6550 12552 CADR PRESTBY
009642,000565: 05,6551 02124 TC ENDOFJOB
009643,000566:
009644,000567: 05,6552 30005 PRESTBY XCH IN1 # CALLED BY WAITLIST
009645,000568: 05,6553 74516 MASK BIT1 # PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009646,000569: 05,6554 50032 TS LPRUPT
009647,000570: 05,6555 44516 CS BIT1
009648,000571: 05,6556 71103 MASK IN1LOSAV
009649,000572: 05,6557 60032 AD LPRUPT
009650,000573: 05,6560 51103 TS IN1LOSAV
009651,000574: # CALLED BY WAITLIST EVERY 10 MSEC
009652,000575: 05,6561 30005 PRESTBY1 XCH IN1 # UNTIL A CHANGE IN IN1 IS DETECTED.
009653,000576: 05,6562 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO Q
009654,000577: 05,6563 40036 CS TIME1 # SNAPSHOT TIME1
009655,000578: 05,6564 31101 XCH TIME1SAV
009656,000579: 05,6565 40035 CS TIME2 # SNAPSHOT TIME2
009657,000580: 05,6566 31100 XCH TIME2SAV
009658,000581: 05,6567 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO A
009659,000582: 05,6570 06603 TC IN1LOOK
009660,000583: 05,6571 06577 TC PRESTBY2 # RETURNS HERE IF NO CHANGE IN IN1
009661,000584: 05,6572 30572 XCH IN1HITEM # RETURNS HERE IF IN1 HAS CHANGED
009662,000585: 05,6573 51102 TS IN1HISAV
009663,000586: 05,6574 30573 XCH IN1LOTEM # DONE WITH BIT1 OF IN1LOSAV, DONT PROTECT
009664,000587: 05,6575 51103 TS IN1LOSAV
009665,000588: 05,6576 02256 TC TASKOVER
009666,000589:
009667,000590: 05,6577 34516 PRESTBY2 CAF ONE # PERPETUATES WAITLIST REQUEST EVERY
009668,000591: 05,6600 02173 TC WAITLIST # 10 MSEC UNTIL INI CHANGES.
009669,000592: 05,6601 12561 CADR PRESTBY1
009670,000593: 05,6602 02256 TC TASKOVER
009671,000594:
|
|
Page 254
|
009673,000596:
009674,000597: # IN1LOOK RETURNS TO L+1 IF IN1 HAS NOT CHANGED SINCE LAST EXAMINATION.
009675,000598: # IT RETURNS TO L+2 IF IN1 HAS CHANGED SINCE LAST EXAMINATION, WITH
009676,000599: # BITS 16-8 OF IN1 IN BITS 9-1 OF IN1HITEM, AND BITS 7-1 OF IN1
009677,000600: # IN BITS 14-8 OF IN1LOTEM.
009678,000601:
009679,000602: 05,6603 50573 IN1LOOK TS IN1LOTEM
009680,000603: 05,6604 35504 CAF NEG0
009681,000604: 05,6605 50572 TS IN1HITEM # PUT +1 FOR OF, -1 FOR UF, -0 FOR NEITHER
009682,000605: 05,6606 30001 XCH Q
009683,000606: 05,6607 50574 TS LOOKRET
009684,000607: 05,6610 34516 CAF BIT1
009685,000608: 05,6611 70573 MASK IN1LOTEM
009686,000609: 05,6612 50032 TS LPRUPT # NEW VALUE OF BIT1 OF IN1
009687,000610: 05,6613 34516 CAF BIT1
009688,000611: 05,6614 71103 MASK IN1LOSAV # LAST VALUE OF BIT1 OF IN1
009689,000612: 05,6615 25777 EXTEND
009690,000613: 05,6616 60032 SU LPRUPT
009691,000614: 05,6617 10000 CCS A
009692,000615: 05,6620 06624 TC IN1PREP # IN1 HAS CHANGED
009693,000616: 05,6621 03062 TC CCSHOLE
009694,000617: 05,6622 06624 TC IN1PREP # IN1 HAS CHANGED
009695,000618: 05,6623 00574 TC LOOKRET # IN1 HAS NOT CHANGED. RETURN TO L+1.
009696,000619: 05,6624 30003 IN1PREP XCH LP
009697,000620: 05,6625 50032 TS LPRUPT # STORE LP
009698,000621: 05,6626 30573 XCH IN1LOTEM
009699,000622: 05,6627 25777 EXTEND
009700,000623: 05,6630 44507 MP BIT8 # SHIFTS RIGHT 7
009701,000624: 05,6631 30572 XCH IN1HITEM # PUTS BITS7-1 OF IN1 INTO BITS 14-8 OF LP
009702,000625: 05,6632 10000 CCS A # PUTS BITS14-8 OF IN1 INTO BITS7-1 OF A
009703,000626: 05,6633 34507 CAF BIT8 # PUTS BIT16 OF IN1 INTO BIT9 OF A
009704,000627: 05,6634 06636 TC +2
009705,000628: 05,6635 44507 CS BIT8
009706,000629: 05,6636 60572 AD IN1HITEM # PUTS BIT15 OF IN1 INTO BIT8 OF A
009707,000630: 05,6637 74607 MASK LOW9
009708,000631: 05,6640 50572 TS IN1HITEM
009709,000632: 05,6641 30003 XCH LP
009710,000633: 05,6642 76651 MASK B14-B8 # BIT14 THRU BIT8
009711,000634: 05,6643 50573 TS IN1LOTEM
009712,000635: 05,6644 34516 CAF BIT1
009713,000636: 05,6645 25777 EXTEND
009714,000637: 05,6646 40032 MP LPRUPT # RESTORE LP
009715,000638: 05,6647 20574 INDEX LOOKRET
009716,000639: 05,6650 00001 TC 1 # RETURN TO L+2
009717,000640: 05,6651 37600 B14-B8 OCT 37600
009718,000641:
|
|
Page 255
|
009720,000643:
009721,000644: # RECOVER FROM STANDBY OPERATION
009722,000645:
009723,000646: 05,6652 20017 POSTAND INHINT # RECOVER TIME AFTER STANDBY
009724,000647: 05,6653 34516 CAF ONE
009725,000648: 05,6654 02173 TC WAITLIST
009726,000649: 05,6655 12657 CADR POSTBY
009727,000650: 05,6656 02124 TC ENDOFJOB
009728,000651:
009729,000652: 05,6657 30005 POSTBY XCH IN1 # CALLED BY WAITLIST
009730,000653: 05,6660 74516 MASK BIT1 # PUT BIT1 OF IN1 INTO BIT1 OF IN1LOSAV
009731,000654: 05,6661 50032 TS LPRUPT
009732,000655: 05,6662 44516 CS BIT1
009733,000656: 05,6663 71103 MASK IN1LOSAV
009734,000657: 05,6664 60032 AD LPRUPT
009735,000658: 05,6665 51103 TS IN1LOSAV
009736,000659: # CALLED BY WAITLIST EVERY 10 MSEC UNTIL
009737,000660: 05,6666 30005 POSTBY1 XCH IN1 # A CHANGE IN IN1 IS DETECTED.
009738,000661: 05,6667 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO Q
009739,000662: 05,6670 35501 CAF ZERO
009740,000663: 05,6671 50036 TS TIME1 # ZERO TIME1, TIME2 IN ANTICIPATION
009741,000664: 05,6672 50035 TS TIME2 # OF UPDATING.
009742,000665: 05,6673 30001 XCH Q # PUT ALL 16 BITS OF IN1 INTO A
009743,000666: 05,6674 06603 TC IN1LOOK
009744,000667: 05,6675 06724 TC POSTBY2 # RETURNS HERE IF IN1 HAS NOT CHANGED
009745,000668: 05,6676 44516 CS BIT1 # RETURNS HERE IF IN1 HAS CHANGED
009746,000669: 05,6677 71103 MASK IN1LOSAV # FORM DP DIFFERENCE OF C(IN1) TAKEN AFTER
009747,000670: 05,6700 40000 COM # STANDBY MINUS C(IN1) TAKEN BEFORE
009748,000671: 05,6701 60573 AD IN1LOTEM # STANDBY. THIS DIFF IS IN THE BITS
009749,000672: 05,6702 51105 TS IN1LODIF # CORRESPONDING TO TIME1, TIME2.
009750,000673: 05,6703 35501 CAF ZERO
009751,000674: 05,6704 60572 AD IN1HITEM
009752,000675: 05,6705 25777 EXTEND
009753,000676: 05,6706 61102 SU IN1HISAV
009754,000677: 05,6707 10000 CCS A
009755,000678: 05,6710 64516 AD ONE # DIFF IS +
009756,000679: 05,6711 06713 TC +2
009757,000680: 05,6712 06720 TC DIFFNEG # DIFF IS -NZ, ADD BIT10 TO HI PART
009758,000681: 05,6713 51104 DIFFCOM TS IN1HIDIF
009759,000682: 05,6714 32166 CAF PRIO33 # GO TO EXEC TO FINISH UP
009760,000683: 05,6715 02052 TC NOVAC # GO TO EXEC TO FINISH UP
009761,000684: 05,6716 12730 CADR POSTBY3
009762,000685: 05,6717 02256 TC TASKOVER
009763,000686:
009764,000687: 05,6720 64516 DIFFNEG AD ONE
009765,000688: 05,6721 40000 COM
009766,000689: 05,6722 64505 AD BIT10
009767,000690: 05,6723 06713 TC DIFFCOM
009768,000691:
009769,000692: 05,6724 34516 POSTBY2 CAF ONE # PERPETUATES WAITLIST REQUEST EVERY
009770,000693: 05,6725 02173 TC WAITLIST # 10 MSEC UNTIL INI CHANGES.
|
|
Page 256
|
009772,000695: 05,6726 12666 CADR POSTBY1
009773,000696: 05,6727 02256 TC TASKOVER
009774,000697:
009775,000698:
009776,000699:
009777,000700: 05,6730 41101 POSTBY3 CS TIME1SAV # CALLED BY EXEC
009778,000701: 05,6731 61105 AD IN1LODIF # TIME WAS STORED COMP
009779,000702: 05,6732 50116 TS MPAC +1
009780,000703: 05,6733 35501 CAF ZERO
009781,000704: 05,6734 61104 AD IN1HIDIF
009782,000705: 05,6735 25777 EXTEND
009783,000706: 05,6736 61100 SU TIME2SAV # TIME WAS STORED COMP
009784,000707: 05,6737 50115 TS MPAC
009785,000708: 05,6740 06741 TC +1 # JUST IN CASE OF OF
009786,000709: 05,6741 35501 CAF ZERO # MAKES TPAGREE SAFE FOR DPAGREE
009787,000710: 05,6742 50117 TS MPAC +2
009788,000711: 05,6743 05654 TC BANKCALL
009789,000712: 05,6744 07154 CADR TPAGREE
009790,000713: 05,6745 30116 XCH MPAC +1
009791,000714: 05,6746 50617 TS DSPTEM1 +1
009792,000715: 05,6747 30115 XCH MPAC
009793,000716: 05,6750 50616 TS DSPTEM1
009794,000717: 05,6751 06511 TC UPDATIME
009795,000718:
|
|
Page 257
|
009797,000720:
009798,000721: # SELECT AND INITIATE DESIRED SYSTEM TEST PROGRAM.
009799,000722:
009800,000723: 05,6752 03302 SYSTEST TC GRABDSP # FIXED BY THE PHANTI
009801,000724: 05,6753 03310 TC PREGBSY
009802,000725: 05,6754 10612 CCS MODREG # MUST NOT BE RUNNING ANYTHING.
009803,000726: 05,6755 07146 TC XVBOUT
009804,000727:
009805,000728: 05,6756 02362 TC NEWMODE # FOR SYSTEM TEST.
009806,000729: 05,6757 00007 OCT 07
009807,000730:
009808,000731: 05,6760 37013 REDO CAF LQPL # ASK FOR TEST OPTION (1 - 7).
009809,000732: 05,6761 50117 TS MPAC +2
009810,000733: 05,6762 37012 CAF TESTNV
009811,000734: 05,6763 03100 TC NVSUB
009812,000735: 05,6764 03315 TC PRENVBSY
009813,000736: 05,6765 03136 TC ENDIDLE
009814,000737: 05,6766 07146 TC XVBOUT
009815,000738: 05,6767 06760 TC REDO
009816,000739:
009817,000740: 05,6770 20017 INHINT
009818,000741: 05,6771 34501 CAF PRIO20
009819,000742: 05,6772 02046 TC FINDVAC
009820,000743: 05,6773 12775 CADR TSELECT
009821,000744: 05,6774 02124 TC ENDOFJOB # LEAVING DISPLAY GRABBED FOR SYSTEM TEST.
009822,000745:
009823,000746: 05,6775 35362 TSELECT CAF SEVEN
009824,000747: 05,6776 71225 MASK QPLACE # SAFETY PLAY.
009825,000748: 05,6777 20000 INDEX A
009826,000749: 05,7000 37002 CAF TESTCADR
009827,000750: 05,7001 05723 TC BANKJUMP
009828,000751:
009829,000752: 05,7002 12075 TESTCADR CADR ALM/END # 0 ILLEGAL.
009830,000753: 05,7003 24511 CADR GYDRFT # 1 GYRO DRIFT TEST.
009831,000754: 05,7004 24606 CADR ACCELTST # 2 PIPA SCALE FACTOR DETERMINATION.
009832,000755: 05,7005 24000 CADR ALGNTST # 3 IMU ALIGNMENT TEST
009833,000756: 05,7006 24372 CADR IMUCHK # 4 IMU CHECK.
009834,000757: 05,7007 24203 CADR GYROTORK # 5 GYRO TORQUING TEST.
009835,000758: 05,7010 23421 CADR CCHK # 6 C RELAY CHECK.
009836,000759: 05,7011 23534 CADR DCHECK # 7 DSKY CHECK.
009837,000760:
009838,000761: 05,7012 02101 TESTNV OCT 02101
009839,000762: 05,7013 01225 LQPL ADRES QPLACE
009840,000763: 05,7014 05720 GOSHOSUM TC POSTJUMP # START ROUTINE TO DISPLAY SUM OF EACH
009841,000764: 05,7015 23025 CADR SHOWSUM # BANK ON DSKY
009842,000765:
|
|
Page 258
|
009844,000767:
009845,000768: # VERB 75 ALLOWS THE GROUND TO PERFORM SOME I/O OPERATIONS WITH THE DSKY. FOUR OPTIONS ARE
009846,000769: # MECHANIZED FOR FLIGHT 501 (WITH MAJOR MODES DURING WHICH ALLOWED) -
009847,000770: # 1 GIMBAL MOTOR POWER ON MAJOR MODES 0X.
009848,000771: # 2 GIMBAL MOTOR POWER OFF MAJOR MODES 0X.
009849,000772: # 3 LIFT-OFF (AND GUIDANCE RELEASE). MAJOR MODES 01 AND 04.
009850,000773: # 4 S4B-SM SEPARATE MAJOR MODE 14.
009851,000774: # 5 FDAI ALIGN. MAJOR MODES 0X.
009852,000775:
009853,000776: 05,7016 03302 EXTRAI/O TC GRABDSP
009854,000777: 05,7017 03310 TC PREGBSY
009855,000778: 05,7020 37143 75RELOAD CAF LV75TEMP # ASK FOR FUNCTION NUMBER.
009856,000779: 05,7021 50117 TS MPAC +2
009857,000780: 05,7022 37144 CAF STATENV
009858,000781: 05,7023 03100 TC NVSUB
009859,000782: 05,7024 03315 TC PRENVBSY
009860,000783: 05,7025 03136 TC ENDIDLE
009861,000784: 05,7026 07146 TC XVBOUT
009862,000785: 05,7027 07020 TC 75RELOAD
009863,000786:
009864,000787: 05,7030 10616 CCS V75TEMP # MAKE SURE FUNCTION NUMBER IS LEGIT.
009865,000788: 05,7031 07035 TC +4
009866,000789: 05,7032 07020 TC 75RELOAD
009867,000790: 05,7033 07020 TC 75RELOAD
009868,000791: 05,7034 07020 TC 75RELOAD
009869,000792:
009870,000793: 05,7035 77141 +4 MASK 75HI12
009871,000794: 05,7036 10000 CCS A
009872,000795: 05,7037 07020 TC 75RELOAD
009873,000796:
009874,000797: 05,7040 20616 INDEX V75TEMP
009875,000798: 05,7041 07041 TC +0
009876,000799: 05,7042 07066 TC 75FN1
009877,000800: 05,7043 07075 TC 75FN2
009878,000801: 05,7044 07104 TC 75FN3
009879,000802:
009880,000803: 05,7045 07052 TC 75FN4
009881,000804: 05,7046 07124 TC 75FN5
009882,000805: 05,7047 07020 TC 75RELOAD
009883,000806: 05,7050 07020 TC 75RELOAD
009884,000807: 05,7051 07020 TC 75RELOAD
009885,000808:
|
|
Page 259
|
009887,000810:
009888,000811: # FUNCTION 4 - DO S4B SEPARATE.
009889,000812:
009890,000813: 05,7052 02346 75FN4 TC CHECKMM # NO MODE 13 PLANNED.
009891,000814: 05,7053 00014 OCT 14
009892,000815: 05,7054 07145 TC MALAPROP
009893,000816:
009894,000817: 05,7055 20017 INHINT
009895,000818: 05,7056 34507 CAF BIT8
009896,000819: 05,7057 70646 MASK FLAGWRD1
009897,000820: 05,7060 10000 CCS A
009898,000821: 05,7061 07146 TC XVBOUT # SWITCH SET - FUNCTION ALREADY DONE.
009899,000822:
009900,000823: 05,7062 32160 CAF PRIO25
009901,000824: 05,7063 02046 TC FINDVAC
009902,000825: 05,7064 64336 CADR S4BSMSEP
009903,000826:
009904,000827: 05,7065 07146 TC XVBOUT
009905,000828:
009906,000829: # FUNCTION 1 - GIMBAL MOTOR POWER ON - DURING PRE-LAUNCH ONLY.
009907,000830:
009908,000831: 05,7066 37140 75FN1 CAF 75MASK
009909,000832: 05,7067 70612 MASK MODREG
009910,000833: 05,7070 10000 CCS A
009911,000834: 05,7071 07145 TC MALAPROP
009912,000835:
009913,000836: 05,7072 03373 TC RELAYON
009914,000837: 05,7073 40200 OCT 40200
009915,000838:
009916,000839: 05,7074 07146 TC XVBOUT
009917,000840:
009918,000841: # FUNCTION 2 - GIMBAL MOTOR POWER OFF - DURING PRE-LAUNCH ONLY.
009919,000842:
009920,000843: 05,7075 37140 75FN2 CAF 75MASK
009921,000844: 05,7076 70612 MASK MODREG
009922,000845: 05,7077 10000 CCS A
009923,000846: 05,7100 07145 TC MALAPROP
009924,000847:
009925,000848: 05,7101 03405 TC RELAYOFF
009926,000849: 05,7102 40200 OCT 40200
009927,000850:
009928,000851: 05,7103 07146 TC XVBOUT
009929,000852:
|
|
Page 260
|
009931,000854:
009932,000855: # FUNCTION 3 - DO LIFT-OFF IF IN MAJOR MODE 04
009933,000856:
009934,000857: 05,7104 02346 75FN3 TC CHECKMM # TEST IF PLATFORM IS INERTIAL (MM 04)
009935,000858: 05,7105 00004 OCT 4
009936,000859: 05,7106 07120 TC CHECKM02 # IT IS NOT. TEST IF STILL GYROCOMPASSING
009937,000860:
009938,000861: 05,7107 20017 +3 INHINT
009939,000862: 05,7110 34515 CAF BIT2
009940,000863: 05,7111 70646 MASK FLAGWRD1
009941,000864: 05,7112 10000 CCS A
009942,000865: 05,7113 07146 TC XVBOUT
009943,000866:
009944,000867: 05,7114 32157 CAF PRIO24
009945,000868: 05,7115 02046 TC FINDVAC
009946,000869: 05,7116 64000 CADR LIFTOFF
009947,000870:
009948,000871: 05,7117 07146 TC XVBOUT
009949,000872:
009950,000873: 05,7120 02346 CHECKM02 TC CHECKMM # CHECK IF GYROCOMPASSING
009951,000874: 05,7121 00002 OCT 00002
009952,000875: 05,7122 07145 TC MALAPROP # NOT INERTIAL OR GYROCOMPASSING
009953,000876: 05,7123 07107 TC 75FN3 +3
009954,000877:
009955,000878: # FUNCTION 5 - FDAI ALIGN ON.
009956,000879:
009957,000880: 05,7124 37140 75FN5 CAF 75MASK
009958,000881: 05,7125 70612 MASK MODREG
009959,000882: 05,7126 10000 CCS A
009960,000883: 05,7127 07145 TC MALAPROP
009961,000884: 05,7130 03373 TC RELAYON
009962,000885: 05,7131 40400 OCT 40400
009963,000886: 05,7132 20017 INHINT
009964,000887: 05,7133 37142 CAF 10SECS75 # TURN OFF IN 10 SECONDS.
009965,000888: 05,7134 02173 TC WAITLIST
009966,000889: 05,7135 50172 CADR FDOFTSK1
009967,000890: 05,7136 07146 TC XVBOUT
009968,000891: 05,7137 77715 -.5SEC75 DEC -50 B-14
009969,000892: 05,7140 00070 75MASK OCT 70
009970,000893: 05,7141 77770 75HI12 OCT 77770
009971,000894: 05,7142 01750 10SECS75 DEC 1000 B-14
009972,000895: 05,7143 00616 LV75TEMP ADRES V75TEMP
009973,000896:
|
|
Page 261
|
009975,000898:
009976,000899: # THE FOLLOWING PROGRAM IMPLEMENTS MAJOR MODE 27 OF FLIGHT 501 - STATE VECTOR UPDATE.
009977,000900: 13,6753 BANK 13
009978,000901: 13,6753 03430 76UPDATE TC FLAG1DWN # TURN OFF UPDAOFLG TO ALLOW ANOTHER V76
009979,000902: 13,6754 20000 OCT 20000
009980,000903: 13,6755 47174 CS MINUS14D # PICK UP NO OF COMPONENTS FOR V76
009981,000904: 13,6756 06762 TC DATUPDAT
009982,000905: 13,6757 34515 71UPDATE CAF BIT2 # PICK UP NO OF COMPONENTS FOR V71
009983,000906: 13,6760 06762 TC DATUPDAT
009984,000907: 13,6761 34516 77UPDATE CAF BIT1 # PICK UP NO OF COMPONENTS FOR V71
009985,000908: 13,6762 50115 DATUPDAT TS MPAC # COMES HERE WITH NO OF COMPONENTS IN A
009986,000909: 13,6763 02346 TC CHECKMM # IS THIS P24
009987,000910: 13,6764 00024 OCT 24
009988,000911: 13,6765 07062 TC CK4MM14 # NO,SEE IF IT IS P14
009989,000912: 13,6766 40612 STUFMODE CS MODREG
009990,000913: 13,6767 51116 TS UPOLDMD # PUT OLD MODE IN REGISTER FOR DOWNLINK
009991,000914: 13,6770 36754 CAF 76UPDATE +1
009992,000915: 13,6771 70646 MASK FLAGWRD1
009993,000916: 13,6772 10000 CCS A # IS UPDATFLG SET
009994,000917: 13,6773 07203 TC XACTALM7 # YES, TURN ON CHECK FAIL AND EXIT
009995,000918: 13,6774 32567 CAF LDNLST2 # NO, SET UP UPDATE DOWNLIST
009996,000919: 13,6775 50672 TS DNLSTADR
009997,000920: 13,6776 30115 XCH MPAC
009998,000921: 13,6777 51117 TS COMPNUMB
009999,000922: 13,7000 02362 TC NEWMODE
010000,000923: 13,7001 00027 OCT 27
010001,000924: 13,7002 47132 CS LSTBUFF
010002,000925: 13,7003 51122 TS -UPADR # INITIALIZE LOOP
010003,000926: 13,7004 03302 TC GRABDSP
010004,000927: 13,7005 03310 TC PREGBSY
010005,000928: 13,7006 34516 CAF BIT1
010006,000929: 13,7007 51123 NEXTCOMP TS STCNTR
010007,000930: 13,7010 41122 OHWELL CS -UPADR
010008,000931: 13,7011 50117 TS MPAC +2
010009,000932: 13,7012 37201 CAF STATENV7
010010,000933: 13,7013 03100 TC NVSUB # SET UP FOR COMPONENT LOAD
010011,000934: 13,7014 03315 TC PRENVBSY
010012,000935: 13,7015 03136 TC ENDIDLE # WAIT FOR INPUT
010013,000936: 13,7016 07167 TC ENDUPDAT # V34 E, TERMINATE
010014,000937: 13,7017 07010 TC OHWELL # V33E, MAKES NO SENSE, RECYCLE
010015,000938: 13,7020 44516 CS ONE # COMPONENT LOADED
010016,000939: 13,7021 61122 AD -UPADR
010017,000940: 13,7022 51122 TS -UPADR # CHANGE LOAD ADDRESS
010018,000941: 13,7023 02346 TC CHECKMM # ARE WE STILL IN P27
010019,000942: 13,7024 00027 OCT 27
010020,000943: 13,7025 07167 TC ENDUPDAT # NO, TIME HAS RUN OUT, EXIT
010021,000944: 13,7026 41123 CS STCNTR # YES, CONTINUE
010022,000945: 13,7027 61117 AD COMPNUMB
010023,000946: 13,7030 10000 CCS A # WAS THAT THE LAST COMPONENT
010024,000947: 13,7031 40000 CS A # NO, CALCULATE NEW STCNTR
010025,000948: 13,7032 61117 AD COMPNUMB
|
|
Page 262
|
010027,000950: 13,7033 07007 TC NEXTCOMP # RECYCLE
010028,000951: 13,7034 37202 NEXTCHGE CAF L-UPADR # YES, SET UP FOR OCTAL ID IF NEEDED
010029,000952: 13,7035 50117 TS MPAC +2
010030,000953: 13,7036 37055 CAF OCTIDNV
010031,000954: 13,7037 03100 TC NVSUB # DISPLAY VERIFICATION V21N02
010032,000955: 13,7040 03315 TC PRENVBSY
010033,000956: 13,7041 03136 TC ENDIDLE # WAIT FOR INPUT
010034,000957: 13,7042 07167 TC ENDUPDAT # V34E, TERMINATE
010035,000958: 13,7043 07066 TC UPDTDONE # V33E, UPDATE VERIFIED
010036,000959: 13,7044 11122 CCS -UPADR # IS OCTAL ID PNZ
010037,000960: 13,7045 07051 TC +4 # YES, TEST FURTHER
010038,000961: 13,7046 07034 TC NEXTCHGE # NO, BAD ID, RECYCLE
010039,000962: 13,7047 07034 TC NEXTCHGE # NO, BAD ID, RECYCLE
010040,000963: 13,7050 07034 TC NEXTCHGE # NO, BAD ID, RECYCLE
010041,000964: 13,7051 41117 CS COMPNUMB
010042,000965: 13,7052 61122 AD -UPADR
010043,000966: 13,7053 10000 CCS A # IS ID TOO BIG
010044,000967: 13,7054 07034 TC NEXTCHGE # YES, BAD ID, RECYCLE
010045,000968: 13,7055 02102 OCTIDNV OCT 02102 # CANNOT COME HERE
010046,000969: 13,7056 30000 NOOP # NO, GOOD ID
010047,000970: 13,7057 11122 CCS -UPADR # NO, GOOD ID
010048,000971: 13,7060 67132 AD LSTBUFF
010049,000972: 13,7061 07011 TC OHWELL +1
010050,000973: 13,7062 02346 CK4MM14 TC CHECKMM # COMES HERE TO SEE IF IN P14
010051,000974: 13,7063 00014 OCT 14
010052,000975: 13,7064 07203 TC XACTALM7 # NO, TURN ON CHECK FAIL
010053,000976: 13,7065 06766 TC STUFMODE # YES, SAVE MODE AND START P27
010054,000977: 13,7066 11117 UPDTDONE CCS COMPNUMB # COMES HERE AFTER VERIFIED UPDATE
010055,000978: 13,7067 10000 CCS A # TEST NO OF COMPONENTS TO TELL WHICH UPDT
010056,000979: 13,7070 07143 TC TESTMORE
010057,000980: 13,7071 20017 77CONTIN INHINT # 1 COMPONENT, V77 UPDATE
010058,000981: 13,7072 31074 XCH DTEPOCH +1
010059,000982: 13,7073 61100 AD STBUFF # ADD TO DTEPOCH
010060,000983: 13,7074 50117 TS MPAC +2
010061,000984: 13,7075 35501 CAF ZERO
010062,000985: 13,7076 61073 AD DTEPOCH
010063,000986: 13,7077 50116 TS MPAC +1
010064,000987: 13,7100 35501 CAF ZERO
010065,000988: 13,7101 50115 TS MPAC
010066,000989: 13,7102 05654 TC BANKCALL # FORCE SIGN AGREEMENT
010067,000990: 13,7103 07154 CADR TPAGREE
010068,000991: 13,7104 35501 CAF ZERO
010069,000992: 13,7105 50616 TS DSPTEM1 # INITIALIZE REGISTERS FOR CLOCK INCREMENT
010070,000993: 13,7106 41100 CS STBUFF
010071,000994: 13,7107 50617 TS DSPTEM1 +1
010072,000995: 13,7110 30116 XCH MPAC +1
010073,000996: 13,7111 51073 TS DTEPOCH # REPLACE WITH NEW DTEPOCH
010074,000997: 13,7112 30117 XCH MPAC +2
010075,000998: 13,7113 51074 TS DTEPOCH +1
010076,000999: 13,7114 20017 ALLDONE INHINT # STANDARD EXIT FOR SUCCESSFUL UPDATES
|
|
Page 263
|
010078,001001: 13,7115 40645 CS STATE # INVERT VERIFLAG ON COMPLETED UPDATES
010079,001002: 13,7116 74511 MASK BIT6
010080,001003: 13,7117 50001 TS Q
010081,001004: 13,7120 44511 CS BIT6
010082,001005: 13,7121 70645 MASK STATE
010083,001006: 13,7122 60001 AD Q
010084,001007: 13,7123 50645 TS STATE
010085,001008: 13,7124 20016 RELINT
010086,001009: 13,7125 02346 TC CHECKMM
010087,001010: 13,7126 00027 OCT 27
010088,001011: 13,7127 07133 TC +4 # NO, DO NOT CHANGE PRESENT PROGRAM
010089,001012: 13,7130 41116 CS UPOLDMD # YES, RESTORE P14 OR P24
010090,001013: 13,7131 02364 TC NEWMODE +2
010091,001014: 13,7132 01100 LSTBUFF ADRES STBUFF
010092,001015: 13,7133 32566 CAF LDNLST1 # RESTORE FLIGHT DOWNLINK LIST
010093,001016: 13,7134 50672 TS DNLSTADR
010094,001017: 13,7135 03362 TC FREEDSP
010095,001018: 13,7136 11117 CCS COMPNUMB # WAS THIS A V77 UPDATE
010096,001019: 13,7137 10000 CCS A
010097,001020: 13,7140 02124 TC ENDOFJOB # NO, FINISHED
010098,001021: 13,7141 05720 TC POSTJUMP # YES, GO INCREMENT CLOCK
010099,001022: 13,7142 12511 CADR UPDATIME
010100,001023: 13,7143 10000 TESTMORE CCS A # IF NOT V77, WHICH UPDATE WAS IT
010101,001024: 13,7144 07152 TC 76CONTIN # V76, CONTINUE AT 76CONTIN
010102,001025: 13,7145 31100 71CONTIN XCH STBUFF # V71, LOAD TFFMIN
010103,001026: 13,7146 51676 TS TFFMIN
010104,001027: 13,7147 31101 XCH STBUFF +1
010105,001028: 13,7150 51677 TS TFFMIN +1
010106,001029: 13,7151 07114 TC ALLDONE # GO TO STANDARD EXIT
010107,001030: 13,7152 03416 76CONTIN TC FLAG1UP # SET UPDATFLG
010108,001031: 13,7153 20000 OCT 20000
010109,001032: 13,7154 34513 CAF BIT4
010110,001033: 13,7155 71116 MASK UPOLDMD
010111,001034: 13,7156 10000 CCS A # WAS OLD PROGRAM P14 OR P24
010112,001035: 13,7157 07114 TC ALLDONE # P24, GO TO STANDARD EXIT
010113,001036: 13,7160 41114 CS STBUFF +12D # P14, LOAD UPTIME
010114,001037: 13,7161 40000 CS A
010115,001038: 13,7162 51671 TS UPTIME
010116,001039: 13,7163 41115 CS STBUFF +13D
010117,001040: 13,7164 40000 CS A
010118,001041: 13,7165 51672 TS UPTIME +1
010119,001042: 13,7166 07114 TC ALLDONE # GO TO STANDARD EXIT
010120,001043: 13,7167 02346 ENDUPDAT TC CHECKMM # COMES HERE ON V34E
010121,001044: 13,7170 00027 OCT 27 # IS IT STILL P27
010122,001045: 13,7171 07175 TC +4 # NO, DO NOT CHANGE PRESENT PROGRAM
010123,001046: 13,7172 41116 CS UPOLDMD # YES, RESTORE P14 OR P24
010124,001047: 13,7173 02364 TC NEWMODE +2
010125,001048: 13,7174 77761 MINUS14D OCT 77761
010126,001049: 13,7175 32566 CAF LDNLST1 # RESTORE DOWNLIST
010127,001050: 13,7176 50672 TS DNLSTADR
|
|
Page 264
|
010129,001052: 13,7177 03362 TC FREEDSP
010130,001053: 13,7200 02124 TC ENDOFJOB # THATS IT, THERE AINT NO MORE
010131,001054: 13,7201 02101 STATENV7 OCT 02101
010132,001055: 13,7202 01122 L-UPADR ADRES -UPADR
010133,001056: 13,7203 05720 XACTALM7 TC POSTJUMP
010134,001057: 13,7204 12062 CADR XACTALM
010135,001058: 05,7144 BANK 5
010136,001059: 05,7144 02101 STATENV OCT 02101
010137,001060: 05,7145 03233 MALAPROP TC FALTON
010138,001061: 05,7146 03362 XVBOUT TC FREEDSP
010139,001062: 05,7147 02124 TC ENDOFJOB
010140,001063: 05,7150 02362 REDO5.20 TC NEWMODE
010141,001064: 05,7151 00024 OCT 24
010142,001065: 05,7152 02124 TC ENDOFJOB
010143,001066: 05,7153 ENDEXTVS =
End of include-file EXTENDED_VERBS_FOR_MODING.agc. Parent file is MAIN.agc