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