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.
|
012915,000002: ## Copyright: Public domain.
012916,000003: ## Filename: PRELAUNCH_ALIGNMENT_PROGRAM.agc
012917,000004: ## Purpose: Part of the source code for Solarium build 55. This
012918,000005: ## is for the Command Module's (CM) Apollo Guidance
012919,000006: ## Computer (AGC), for Apollo 6.
012920,000007: ## Assembler: yaYUL --block1
012921,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
012922,000009: ## Website: www.ibiblio.org/apollo/index.html
012923,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Solarium055/
012924,000011: ## Mod history: 2009-10-05 JL Created.
012925,000012: ## 2009-10-30 JL Fixed filename comment.
012926,000013: ## 2016-08-20 RSB Resolved Jim's uncertainty about TP.
012927,000014: ## 2016-08-23 RSB Typos.
012928,000015: ## 2016-12-28 RSB Proofed comment text using octopus/ProoferComments,
012929,000016: ## and fixed errors found.
012930,000017: ## 2021-05-30 ABS Fixed capitalization of a page marker comment.
012931,000018:
|
|
Page 332
|
012933,000020:
012934,000021: # THE PRELAUNCH ALIGNMENT PROGRAM CONSISTS OF TWO PARTS- VERTICAL ERECTION AND GYROCOMPASSING. IN THE FIRST CASE
012935,000022: # THE Z PIPA INPUTS ARE USED TO CONTROL THE Y GYRO IN SUCH A WAY THAT THESE INPUTS ARE NULLED. A SIMILAR SIT-
012936,000023: # UATION APPLIES TO THE Y PIPA INPUTS AND THE Z GYRO.IN THE GYROCOMPASSING CASE, THE Y PIPA INPUTS ARE USED IN
012937,000024: # EXACTLY THE SAME FASHION AS IN VERTICAL ERECTION. THE Z PIPA INPUTS ARE SPLIT BETWEEN THE Y GYRO TO HOLD THE
012938,000025: # VERTICAL AND THE X GYRO TO POINT THE Z AXIS ALONG SOME DESIRED AZIMUTH.
012939,000026:
012940,000027:
012941,000028:
012942,000029: # WHILE PRELAUNCH IS ACTIVE IT STAYS IN THE EXECUTIVE AND USES THE SLEEP/WAKE FEATURES. BY THIS MEANS MOST
012943,000030: # ERASABLE USAGE IS CONFINED TO A VAC AREA. THE ASSIGNMENT IS AS FOLLOWS-
012944,000031:
012945,000032: 30,6252 SINLAM = 34D # SIN OF LATITUDE
012946,000033: 30,6252 COSLAM = 36D # COSINE OF LATITUDE
012947,000034: 30,6252 SINAZ = 2 # SIN OF AZIMUTH
012948,000035: 30,6252 COSAZ = 4 # COSINE OF AZIMUTH
012949,000036: 21,6000 SETLOC 42000
012950,000037:
012951,000038: 21,6000 04000 TOP1 TC INTPRET
012952,000039:
012953,000040: 21,6001 45175 DMOVE 1 # THIS START DISPLAYS ALL INPUTS FOR CHEK
012954,000041: 21,6002 76575 RTB EXIT
012955,000042: 21,6003 01317 AZIMUTH
012956,000043: 21,6004 20325 1STO2S
012957,000044:
012958,000045: 21,6005 03302 TC GRABDSP
012959,000046: 21,6006 03310 TC PREGBSY
012960,000047:
012961,000048: 21,6007 30115 XCH MPAC
012962,000049: 21,6010 50616 TS DSPTEM1
012963,000050: 21,6011 35501 CAF ZERO
012964,000051: 21,6012 50617 TS DSPTEM1 +1
012965,000052:
012966,000053: 21,6013 07542 TC CHECKNV # DISPLAY AZIMUTH
012967,000054: 21,6014 00661 OCT 00661 # (N.B. CAN NOT BE MODIFIED ...ALK)
012968,000055:
012969,000056: 21,6015 06745 TC PRELEXIT -1
012970,000057:
012971,000058: 21,6016 04000 TC INTPRET
012972,000059:
012973,000060: 21,6017 63776 TSLT 0
012974,000061: 21,6020 01315 LATITUDE
012975,000062: 21,6021 00003 2
012976,000063: 21,6022 32620 STORE DSPTEM1 +1
012977,000064:
012978,000065: 21,6023 45175 DMOVE 1
012979,000066: 21,6024 76575 RTB EXIT
012980,000067: 21,6025 01353 VAZ
012981,000068: 21,6026 20325 1STO2S
012982,000069:
012983,000070: 21,6027 30115 XCH MPAC
|
|
Page 333
|
012985,000072: 21,6030 50616 TS DSPTEM1
012986,000073:
012987,000074: 21,6031 07542 TC CHECKNV # DISPLAY VEHICLE AZIMUTH, LATITUDE
012988,000075: 21,6032 00661 OCT 00661 # (SEE N.B. ABOVE)
012989,000076:
012990,000077: 21,6033 06745 TC PRELEXIT -1
012991,000078:
012992,000079: 21,6034 03362 TC FREEDSP # DONE WITH DSKY.
012993,000080:
012994,000081: 21,6035 04000 TC INTPRET
012995,000082:
012996,000083: 21,6036 45175 TOP3 DMOVE 1 # COMPUTES GIMBAL ANGLES
012997,000084: 21,6037 76565 RTB AXT,1
012998,000085: 21,6040 15617 SCNBMAT +8D
012999,000086: 21,6041 20271 ZEROVAC
013000,000087: 21,6042 00023 18D
013001,000088: 21,6043 32001 STORE 0
013002,000089:
013003,000090: 21,6044 55176 COS 0
013004,000091: 21,6045 01353 VAZ
013005,000092: 21,6046 32011 STORE 8D
013006,000093:
013007,000094: 21,6047 47576 NOLOD 0
013008,000095: 21,6050 32021 STORE 16D
013009,000096:
013010,000097: 21,6051 57176 SIN 0
013011,000098: 21,6052 01353 VAZ
013012,000099: 21,6053 32017 STORE 14D
013013,000100:
013014,000101: 21,6054 47575 NOLOD 1
013015,000102: 21,6055 47065 COMP AST,1
013016,000103: 21,6056 00007 6
013017,000104: 21,6057 32013 STORE 10D
013018,000105:
013019,000106: 21,6060 74175 TOP33 VMOVE* 1
013020,000107: 21,6061 51622 VXM VSLT
013021,000108: 21,6062 33461 SCNBMAT +18D,1
013022,000109: 21,6063 00001 0
013023,000110: 21,6064 00002 1
013024,000111: 21,6065 37241 STORE XNB +18D,1
013025,000112:
013026,000113: 21,6066 51576 TIX,1 0
013027,000114: 21,6067 02061 TOP33
013028,000115:
013029,000116: 21,6070 76776 ITC 0
013030,000117: 21,6071 03446 MAKEXSM
013031,000118:
013032,000119: 21,6072 76776 ITC 0
013033,000120: 21,6073 04644 CALCGA
|
|
Page 334
|
013035,000122: 21,6074 47575 NOLOD 1
013036,000123: 21,6075 77176 TP
013037,000124: 21,6076 33323 STORE PRELXGA
013038,000125:
013039,000126: 21,6077 77576 EXIT 0
013040,000127:
013041,000128: # ENTER AT TOP2 IF GIMBAL ANGLES, AZIMUTH, LATITUDE ALREADY KEYED IN
013042,000129:
013043,000130:
013044,000131:
013045,000132: 21,6100 05654 TOP2 TC BANKCALL # GO AND START CDU ZEROING
013046,000133: 21,6101 30000 CADR IMUZERO
013047,000134:
013048,000135: 21,6102 02362 TC NEWMODE
013049,000136: 21,6103 00001 OCT 01 # INITIALIZATION.
013050,000137:
013051,000138: 21,6104 33543 CAF NINETEEN # INITIALIZE ERASABLE MEMORY TO ZEROS
013052,000139: 21,6105 31446 ZEROS1 XCH THETAY
013053,000140: 21,6106 35501 CAF ZERO
013054,000141: 21,6107 21446 INDEX THETAY
013055,000142: 21,6110 51356 TS FILTER
013056,000143: 21,6111 11446 CCS THETAY
013057,000144: 21,6112 06105 TC ZEROS1
013058,000145:
013059,000146: 21,6113 33533 CAF ELEVEN
013060,000147: 21,6114 31446 ZEROS2 XCH THETAY
013061,000148: 21,6115 35501 CAF ZERO
013062,000149: 21,6116 21446 INDEX THETAY
013063,000150: 21,6117 51446 TS THETAY
013064,000151: 21,6120 11446 CCS THETAY
013065,000152: 21,6121 06114 TC ZEROS2
013066,000153:
013067,000154: 21,6122 33571 CAF SIXHNDRD # INITIALIZE FOR 5 MIN VERTICAL
013068,000155: 21,6123 51320 TS GYROCSW
013069,000156:
013070,000157: 21,6124 05654 TC BANKCALL # INITIALIZATION COMPLETE SO STALL
013071,000158: 21,6125 30331 CADR IMUSTALL
013072,000159: 21,6126 06746 TC PRELEXIT
013073,000160:
013074,000161:
013075,000162:
013076,000163: 21,6127 41322 CS PRELXGA # LOAD DESIRED CDU ANGLES.
013077,000164: 21,6130 40000 COM
013078,000165: 21,6131 50700 TS THETAD
013079,000166: 21,6132 41323 CS PRELYGA
013080,000167: 21,6133 40000 COM
013081,000168: 21,6134 50701 TS THETAD +1
013082,000169: 21,6135 41324 CS PRELZGA
013083,000170: 21,6136 40000 COM
013084,000171: 21,6137 50702 TS THETAD +2
|
|
Page 335
|
013086,000173: 21,6140 02276 TC PHASCHNG # GO INTO COARSE ALIGN PHASE.
013087,000174: 21,6141 02103 OCT 02103 # 3.17 RESTART.
013088,000175:
013089,000176: 21,6142 05654 REPL11 TC BANKCALL
013090,000177: 21,6143 30104 CADR IMUCOARS
013091,000178:
013092,000179: 21,6144 05654 TC BANKCALL # NOTHING TO DO BUT SPEEP
013093,000180: 21,6145 30331 CADR IMUSTALL
013094,000181: 21,6146 06746 TC PRELEXIT
013095,000182:
013096,000183:
013097,000184:
013098,000185: 21,6147 02276 STARTPL2 TC PHASCHNG # START FINE ALIGN - INITIALIZATION PHASE.
013099,000186: 21,6150 02203 OCT 02203 # 3.18 RESTART.
013100,000187:
013101,000188: 21,6151 05654 REPL12 TC BANKCALL
013102,000189: 21,6152 30143 CADR IMUFINE
013103,000190:
013104,000191: 21,6153 02676 TC READTIME
013105,000192: 21,6154 40572 CS RUPTSTOR
013106,000193: 21,6155 51370 TS PREVTIME
013107,000194: 21,6156 40573 CS RUPTSTOR +1
013108,000195: 21,6157 51371 TS PREVTIME +1
013109,000196: 21,6160 20016 RELINT
013110,000197:
013111,000198: 21,6161 05654 TC BANKCALL # SLEEP
013112,000199: 21,6162 30331 CADR IMUSTALL
013113,000200: 21,6163 06746 TC PRELEXIT
013114,000201:
013115,000202:
013116,000203:
013117,000204: 21,6164 02362 TC NEWMODE # SET MAJOR MODE TO VERTICAL ERECTION
013118,000205: 21,6165 00005 OCT 5 # (COUNTING)
013119,000206:
013120,000207: 21,6166 35501 CAF ZERO
013121,000208: 21,6167 51332 TS INFLANG
013122,000209: 21,6170 51333 TS INFLANG +1
013123,000210: 21,6171 51334 TS INFLANG +2
013124,000211: 21,6172 51335 TS INFLANG +3
013125,000212: 21,6173 51336 TS INFLANG +4
013126,000213: 21,6174 51337 TS INFLANG +5
013127,000214: 21,6175 50045 TS PIPAY # SET ALL PIPAS TO ZERO
013128,000215: 21,6176 50046 TS PIPAZ
013129,000216: 21,6177 50044 TS PIPAX
013130,000217:
013131,000218: 21,6200 33532 CAF NINE
013132,000219: 21,6201 51321 TS PRELTEMP
013133,000220:
013134,000221: 21,6202 37011 CAF PLPIPADT # SET UP DELTA TIME FOR IMU COMPENSATION.
013135,000222: 21,6203 50755 TS 1/PIPADT
|
|
Page 336
|
013137,000224: 21,6204 20017 INHINT
013138,000225: 21,6205 37002 CAF PRELDT # SET WAITLIST TO WAKE JOB
013139,000226: 21,6206 02173 TC WAITLIST
013140,000227: 21,6207 42211 CADR PRELALTS
013141,000228:
013142,000229: 21,6210 02124 TC ENDOFJOB
013143,000230:
|
|
Page 337
|
013145,000232:
013146,000233: # PRELAUNCH WAITLIST TASK - EXECUTED EVERY .5 SEC. IN LOOP.
013147,000234:
013148,000235: 21,6211 36264 PRELALTS CAF PIPCAD21
013149,000236: 21,6212 05750 TC ISWCALL
013150,000237:
013151,000238: 21,6213 33544 CAF TWENTY0
013152,000239: 21,6214 02312 TC NEWPHASE
013153,000240: 21,6215 00003 OCT 3
013154,000241:
013155,000242: 21,6216 40036 REDO3.20 CS TIME1
013156,000243: 21,6217 50665 TS TBASE3
013157,000244:
013158,000245: 21,6220 35503 CAF TWO
013159,000246: 21,6221 51035 TS PIPAGE
013160,000247:
013161,000248: 21,6222 30006 XCH IN2 # TEST IN2 FOR GRR OR LIFT-OFF
013162,000249: 21,6223 30006 XCH IN2
013163,000250: 21,6224 77017 MASK BITS56
013164,000251: 21,6225 10000 CCS A
013165,000252: 21,6226 06242 TC PRELTERM
013166,000253:
013167,000254: 21,6227 34515 CAF BIT2 # CHECK IF LIFT-OFF HAS OCCURRED
013168,000255: 21,6230 70646 MASK FLAGWRD1
013169,000256: 21,6231 10000 CCS A
013170,000257: 21,6232 06242 TC PRELTERM # IT HAS. TERMINATE PRELAUNCH
013171,000258:
013172,000259: 21,6233 37002 CAF PRELDT # SELF-SUSTAINING WAITLIST CALL
013173,000260: 21,6234 02173 TC WAITLIST
013174,000261: 21,6235 42211 CADR PRELALTS
013175,000262:
013176,000263: 21,6236 34501 NOPLWAIT CAF PRIO20
013177,000264: 21,6237 02046 TC FINDVAC
013178,000265: 21,6240 42270 CADR PRAWAKE
013179,000266:
013180,000267: 21,6241 02256 TC TASKOVER # RESUME
013181,000268:
013182,000269: 21,6242 40573 PRELTERM CS RUPTSTOR +1 # N.B. READTIME IS DONE IN PIPASR ABOVE
013183,000270: 21,6243 51467 TS TIME1GR
013184,000271: 21,6244 40572 CS RUPTSTOR
013185,000272: 21,6245 51466 TS TIME2GR
013186,000273:
013187,000274: 21,6246 41467 CS TIME1GR
013188,000275: 21,6247 50667 TS TBASE5
013189,000276:
013190,000277: 21,6250 34516 CAF ONE
013191,000278: 21,6251 02312 TC NEWPHASE
013192,000279: 21,6252 00005 OCT 00005
013193,000280:
013194,000281: 21,6253 10000 CCS A
013195,000282: 21,6254 06236 TC NOPLWAIT
|
|
Page 338
|
013197,000284: 21,6255 06256 TC +1
013198,000285:
013199,000286: 21,6256 37014 CAF 2SEC21 # CALL READACCS IN 2 SECS
013200,000287: 21,6257 02173 TC WAITLIST
013201,000288: 21,6260 65152 CADR READACCS
013202,000289:
013203,000290: 21,6261 06236 TC NOPLWAIT
013204,000291:
013205,000292: 21,6262 36265 REPRELAL CAF REPIP21
013206,000293: 21,6263 06212 TC PRELALTS +1
013207,000294:
013208,000295: 21,6264 61313 PIPCAD21 CADR PIPASR
013209,000296: 21,6265 61364 REPIP21 CADR REPIPASR
013210,000297:
|
|
Page 339
|
013212,000299:
013213,000300: 21,6266 07223 REDO3.21 TC PRLRSTOR
013214,000301: 21,6267 06301 TC RE3.21
013215,000302:
013216,000303: 21,6270 07174 PRAWAKE TC PRLSAVE
013217,000304:
013218,000305: 21,6271 10654 CCS PHASE5 # CHECK IF GRR HAS OCCURED.
013219,000306: 21,6272 33543 CAF NINETEEN # 3.19 RESTART.
013220,000307: 21,6273 06275 TC +2
013221,000308: 21,6274 33545 CAF TWENTY1 # 3.21 RESTART.
013222,000309: 21,6275 02312 TC NEWPHASE
013223,000310: 21,6276 00003 OCT 3
013224,000311:
013225,000312: 21,6277 05654 TC BANKCALL
013226,000313: 21,6300 31017 CADR 1/PIPA
013227,000314:
013228,000315: 21,6301 04000 RE3.21 TC INTPRET
013229,000316:
013230,000317: 21,6302 43176 SMOVE 0 # ZERO TO THEAT-SOUTH
013231,000318: 21,6303 03005 ZEROPR
013232,000319: 21,6304 33455 STORE THETASTH
013233,000320:
013234,000321: 21,6305 47576 NOLOD 0
013235,000322: 21,6306 33457 STORE THETAE # ZERO TO THETA EAST
013236,000323:
013237,000324: 21,6307 76575 RTB 1
013238,000325: 21,6310 57176 SIN
013239,000326: 21,6311 20271 ZEROVAC
013240,000327: 21,6312 01315 LATITUDE
013241,000328: 21,6313 32043 STORE SINLAM
013242,000329:
013243,000330: 21,6314 55176 COS 0
013244,000331: 21,6315 01315 LATITUDE
013245,000332: 21,6316 32045 STORE COSLAM
013246,000333:
013247,000334: 21,6317 43175 SMOVE 1
013248,000335: 21,6320 66776 DSU
013249,000336: 21,6321 03001 90DEGAZ
013250,000337: 21,6322 01317 AZIMUTH
013251,000338:
013252,000339: 21,6323 57176 SIN 0
013253,000340: 21,6324 00001 0
013254,000341: 21,6325 32003 STORE SINAZ
013255,000342:
013256,000343: 21,6326 55176 COS 0
013257,000344: 21,6327 32005 STORE COSAZ
013258,000345:
013259,000346: 21,6330 77576 EXIT 0
013260,000347:
013261,000348: 21,6331 10654 CCS PHASE5 # CHECK IF GRR HAS OCCURRED
013262,000349: 21,6332 07032 TC PRELTER1
|
|
Page 340
|
013264,000351: 21,6333 06334 TC +1
013265,000352:
013266,000353: 21,6334 02346 TC CHECKMM # CHECK IF VERTICAL ERECTION (UNCONDIT.)
013267,000354: 21,6335 00005 OCT 5
013268,000355: 21,6336 06340 TC +2
013269,000356: 21,6337 06451 TC NOGYROCM
013270,000357:
013271,000358: 21,6340 02346 TC CHECKMM # CHECK IF VERTICAL ERECTION (UNCONDIT.)
013272,000359: 21,6341 00006 OCT 6
013273,000360: 21,6342 06344 TC +2
013274,000361: 21,6343 06457 TC TJL
013275,000362:
013276,000363: 21,6344 02346 DOGYROC TC CHECKMM # CHECK IF OPTICAL VERIFICATION
013277,000364: 21,6345 00003 OCT 3
013278,000365: 21,6346 06352 TC DOGYROC1
013279,000366:
013280,000367: 21,6347 04000 JSTERTHR TC INTPRET
013281,000368:
013282,000369: 21,6350 76776 ITC 0
013283,000370: 21,6351 02360 EARTHRR
013284,000371:
013285,000372: 21,6352 02362 DOGYROC1 TC NEWMODE
013286,000373: 21,6353 00002 OCT 2
013287,000374:
013288,000375: 21,6354 04000 DOGYROC2 TC INTPRET
013289,000376:
013290,000377: 21,6355 76776 ITC 0
013291,000378: 21,6356 02575 GYROCOM
013292,000379:
013293,000380: 21,6357 76776 EARTHRR ITC 0
013294,000381: 21,6360 02515 EARTHRAT
013295,000382:
013296,000383: 21,6361 45176 ENDOFPR DMOVE 0
013297,000384: 21,6362 01465 PIPTIME
013298,000385: 21,6363 33371 STORE PREVTIME
013299,000386:
013300,000387: 21,6364 77576 EXIT 0
013301,000388:
013302,000389: 21,6365 11321 CCS PRELTEMP
013303,000390: 21,6366 06436 TC JUMPY
013304,000391:
013305,000392: 21,6367 10764 CCS LGYRO # IF BUSY GO AROUND LOOP AGAIN
013306,000393: 21,6370 06437 TC JUMPY +1 # WAIT TIL NEXT TIME. PRELTEM = 0 STILL.
013307,000394:
013308,000395: 21,6371 35501 PTORQUE CAF ZERO # INITIALIZE TORQUING REGISTERS AND RESET
013309,000396: 21,6372 31452 XCH THETAX
013310,000397: 21,6373 61333 AD INFLANG +1
013311,000398: 21,6374 51341 TS GYROANG +1
013312,000399: 21,6375 35501 CAF ZERO
013313,000400: 21,6376 61332 AD INFLANG
|
|
Page 341
|
013315,000402: 21,6377 51340 TS GYROANG
013316,000403:
013317,000404:
013318,000405:
013319,000406: 21,6400 35501 CAF ZERO
013320,000407: 21,6401 31446 XCH THETAY
013321,000408: 21,6402 61335 AD INFLANG +3
013322,000409: 21,6403 51343 TS GYROANG +3
013323,000410: 21,6404 35501 CAF ZERO
013324,000411: 21,6405 61334 AD INFLANG +2
013325,000412: 21,6406 51342 TS GYROANG +2
013326,000413:
013327,000414: 21,6407 35501 CAF ZERO
013328,000415: 21,6410 31450 XCH THETAZ
013329,000416: 21,6411 61337 AD INFLANG +5
013330,000417: 21,6412 51345 TS GYROANG +5
013331,000418: 21,6413 35501 CAF ZERO
013332,000419: 21,6414 61336 AD INFLANG +4
013333,000420: 21,6415 51344 TS GYROANG +4
013334,000421:
013335,000422: 21,6416 35501 CAF ZERO
013336,000423: 21,6417 51332 TS INFLANG
013337,000424: 21,6420 51333 TS INFLANG +1
013338,000425: 21,6421 51334 TS INFLANG +2
013339,000426: 21,6422 51335 TS INFLANG +3
013340,000427: 21,6423 51336 TS INFLANG +4
013341,000428: 21,6424 51337 TS INFLANG +5
013342,000429:
013343,000430: 21,6425 33532 CAF NINE
013344,000431: 21,6426 51321 TS PRELTEMP
013345,000432:
013346,000433: 21,6427 02276 TC PHASCHNG
013347,000434: 21,6430 02603 OCT 02603
013348,000435:
013349,000436: 21,6431 20017 INHINT # SET UP TORQUING JOB
013350,000437: 21,6432 32162 CAF PRIO27
013351,000438: 21,6433 02052 TC NOVAC
013352,000439: 21,6434 42442 CADR SPITGYRO
013353,000440: 21,6435 02124 TC ENDOFJOB
013354,000441:
013355,000442: 21,6436 51321 JUMPY TS PRELTEMP
013356,000443:
013357,000444: 21,6437 02276 TC PHASCHNG
013358,000445: 21,6440 02603 OCT 02603
013359,000446:
013360,000447: 21,6441 02124 TC ENDOFJOB
013361,000448:
013362,000449:
013363,000450:
013364,000451: 21,6442 37030 SPITGYRO CAF LGYROANG
|
|
Page 342
|
013366,000453: 21,6443 05654 TC BANKCALL
013367,000454: 21,6444 31433 CADR GYRODPNT
013368,000455:
013369,000456: 21,6445 05654 TC BANKCALL
013370,000457: 21,6446 30331 CADR IMUSTALL
013371,000458: 21,6447 02124 TC ENDOFJOB
013372,000459: 21,6450 02124 TC ENDOFJOB
013373,000460:
|
|
Page 343
|
013375,000462:
013376,000463: # VERTICAL ERECTION PROCEDURES.
013377,000464:
013378,000465: 21,6451 11320 NOGYROCM CCS GYROCSW # COUNT DOWN FOR 5 MIN OF VERTICAL ERECT.
013379,000466: 21,6452 06456 TC MORE # IF MORE TO COME.
013380,000467: 21,6453 02362 TC NEWMODE # IF NOT, GO INTO GYROCOMP. (MM 02)
013381,000468: 21,6454 00002 OCT 2
013382,000469:
013383,000470: 21,6455 06457 TC +2
013384,000471:
013385,000472: 21,6456 51320 MORE TS GYROCSW
013386,000473:
013387,000474: 21,6457 04000 TJL TC INTPRET
013388,000475:
013389,000476: 21,6460 76776 ITC 0
013390,000477: 21,6461 02515 EARTHRAT
013391,000478:
013392,000479: 21,6462 66775 DSU 1
013393,000480: 21,6463 64742 DMP DAD
013394,000481: 21,6464 01004 DELVY
013395,000482: 21,6465 01363 FILDELY
013396,000483: 21,6466 02765 VERECTC3
013397,000484: 21,6467 01363 FILDELY
013398,000485: 21,6470 33363 STORE FILDELY
013399,000486:
013400,000487: 21,6471 53575 AXC,1 1
013401,000488: 21,6472 52572 AXC,2 ITC
013402,000489: 21,6473 00003 2
013403,000490: 21,6474 00001 0
013404,000491: 21,6475 02661 VERECT
013405,000492:
013406,000493: 21,6476 66775 DSU 1
013407,000494: 21,6477 64742 DMP DAD
013408,000495: 21,6500 01006 DELVZ
013409,000496: 21,6501 01361 FILDELZ
013410,000497: 21,6502 02765 VERECTC3
013411,000498: 21,6503 01361 FILDELZ
013412,000499: 21,6504 33361 STORE FILDELZ
013413,000500:
013414,000501: 21,6505 53574 AXC,1 2
013415,000502: 21,6506 47433 NOLOD COMP
013416,000503: 21,6507 76776 ITC
013417,000504: 21,6510 00001 0
013418,000505: 21,6511 02661 VERECT
013419,000506:
013420,000507: 21,6512 76776 ITC 0
013421,000508: 21,6513 02362 ENDOFPR
013422,000509:
|
|
Page 344
|
013424,000511:
013425,000512: # CALCULATION OF EARTH RATE
013426,000513:
013427,000514: 21,6514 66775 EARTHRAT DSU 1
013428,000515: 21,6515 63666 TSLT DMPR
013429,000516: 21,6516 01465 PIPTIME
013430,000517: 21,6517 01371 PREVTIME
013431,000518: 21,6520 00014 11D
013432,000519: 21,6521 03010 GOMEGA
013433,000520:
013434,000521: 21,6522 64775 DMP 1 # SIN(LAMBDE).DT.LENGTH OMEGA + THETA X
013435,000522: 21,6523 63742 TSLT DAD
013436,000523: 21,6524 00001 0
013437,000524: 21,6525 00043 SINLAM
013438,000525: 21,6526 00002 1
013439,000526: 21,6527 01453 THETAX
013440,000527: 21,6530 33453 STORE THETAX
013441,000528:
013442,000529: 21,6531 64775 DMP 1 # -COS(LAMBDA).DT.LENGTH OMEGA + THETA STH
013443,000530: 21,6532 63726 TSLT BDSU
013444,000531: 21,6533 77777 -
013445,000532: 21,6534 00045 COSLAM
013446,000533: 21,6535 00002 1
013447,000534: 21,6536 01455 THETASTH
013448,000535: 21,6537 33455 STORE THETASTH
013449,000536:
013450,000537: 21,6540 64775 DMP 1 # COS(AZIMUTH). SOUTH COMPONENT
013451,000538: 21,6541 63776 TSLT
013452,000539: 21,6542 01455 THETASTH # TO P.D. LIST
013453,000540: 21,6543 00005 COSAZ
013454,000541: 21,6544 00002 1
013455,000542:
013456,000543: 21,6545 64774 DMP 2 # Y COMPONENT = SIN(AZIMUTH).EAST COMP
013457,000544: 21,6546 63742 TSLT DAD # + COS(AZIMUTH). SOUTH
013458,000545: 21,6547 70776 DAD
013459,000546: 21,6550 01457 THETAE # COMP
013460,000547: 21,6551 00003 SINAZ
013461,000548: 21,6552 00002 1
013462,000549: 21,6553 01447 THETAY
013463,000550: 21,6554 33447 STORE THETAY
013464,000551:
013465,000552: 21,6555 64775 DMP 1 # SIN(AZIMUTH). SOUTH COMPONENT
013466,000553: 21,6556 63776 TSLT
013467,000554: 21,6557 00003 SINAZ # TO P.D. LIST
013468,000555: 21,6560 01455 THETASTH
013469,000556:
013470,000557: 21,6561 00002 1
013471,000558: 21,6562 64774 DMP 2 # Z COMPONENT = COS(AZIMUTH.EAST COMP
013472,000559: 21,6563 63732 TSLT DSU
013473,000560: 21,6564 70776 DAD
013474,000561: 21,6565 00005 COSAZ # -SIN(AZIMUTH).SOUTH COMP
|
|
Page 345
|
013476,000563: 21,6566 01457 THETAE
013477,000564: 21,6567 00002 1
013478,000565: 21,6570 77777 -
013479,000566: 21,6571 01451 THETAZ
013480,000567: 21,6572 33451 STORE THETAZ
013481,000568:
013482,000569: 21,6573 40576 ITCQ 0
013483,000570:
|
|
Page 346
|
013485,000572:
013486,000573: # COMPUTATION OF GYROCOMPASS COMMAND
013487,000574:
013488,000575: 21,6574 45575 GYROCOM ITA 1
013489,000576: 21,6575 64716 DMP TSLT
013490,000577: 21,6576 00052 S2
013491,000578: 21,6577 01006 DELVZ
013492,000579: 21,6600 00005 COSAZ
013493,000580: 21,6601 00002 1
013494,000581:
013495,000582: 21,6602 64775 DMP 1 # DELTA-V(EAST)= COS(AZ).DELTA-V(Z)
013496,000583: 21,6603 63742 TSLT DAD
013497,000584: 21,6604 01004 DELVY
013498,000585: 21,6605 00003 SINAZ
013499,000586: 21,6606 00002 1
013500,000587: 21,6607 33361 STORE DELE
013501,000588:
013502,000589: 21,6610 53574 AXC,1 2
013503,000590: 21,6611 52435 AXC,2 NOLOD
013504,000591: 21,6612 47172 COMP ITC
013505,000592: 21,6613 00007 6
013506,000593: 21,6614 00003 2
013507,000594: 21,6615 02661 VERECT
013508,000595:
013509,000596: 21,6616 64775 DMP 1 # SIN(AZ).DELTA-V(Z)
013510,000597: 21,6617 63776 TSLT
013511,000598: 21,6620 01006 DELVZ
013512,000599: 21,6621 00003 SINAZ
013513,000600: 21,6622 00002 1
013514,000601:
013515,000602: 21,6623 64775 DMP 1 # DELTA-V(SOUTH= COS(AZ.DELTA-V(Y)
013516,000603: 21,6624 63732 TSLT DSU
013517,000604: 21,6625 01004 DELVY
013518,000605: 21,6626 00005 COSAZ
013519,000606: 21,6627 00002 1
013520,000607: 21,6630 33363 STORE DELS
013521,000608:
013522,000609: 21,6631 64776 DMP 0
013523,000610: 21,6632 01363 DELS # C1. DELTA-V(SOUTH) TO P.D. LIST
013524,000611: 21,6633 02767 GYRCMC1
013525,000612:
013526,000613: 21,6634 64775 DMP 1 # FILTER = C1. DELTA-V(SOUTH)
013527,000614: 21,6635 70776 DAD # +C2. FILTER
013528,000615: 21,6636 01357 FILTER
013529,000616: 21,6637 02771 GYRCMC2
013530,000617: 21,6640 33357 STORE FILTER
013531,000618:
013532,000619: 21,6641 47574 NOLOD 2
013533,000620: 21,6642 64716 DMP TSLT
013534,000621: 21,6643 70776 DAD
013535,000622: 21,6644 02773 GYRCMC3
|
|
Page 347
|
013537,000624: 21,6645 00010 7
013538,000625: 21,6646 01453 THETAX
013539,000626: 21,6647 33453 STORE THETAX
013540,000627:
013541,000628: 21,6650 64775 DMP 1 # EAST-TORQUING ANGLE = C4.FILTER
013542,000629: 21,6651 63776 TSLT
013543,000630: 21,6652 01363 DELS
013544,000631: 21,6653 02775 GYRCMC4
013545,000632: 21,6654 00004 3
013546,000633: 21,6655 33457 STORE THETAE
013547,000634:
013548,000635: 21,6656 44576 ITCI 0
013549,000636: 21,6657 00052 S2
013550,000637:
|
|
Page 348
|
013552,000639:
013553,000640: # VERTICAL ERECTION SUBROUTINE
013554,000641:
013555,000642: # VERECT - VERTICAL ERECTION ENTERED IN INT. MODE WITH
013556,000643: # SUBROUTINE C(X1)= 2 FOR C(MPAC)= DEL-V Y
013557,000644: # = 0 C(MPAC)=-DEL-V Z
013558,000645: # = 6 FOR C(MPAC)=-DEL-V E
013559,000646: # FOR THESE THREE CASES OUTPUT WILL BE
013560,000647: # THETA-Z
013561,000648: # THETA-Y
013562,000649: # THETA-S RESPECTIVELY.
013563,000650: # LOOP CONSTANTS ARE DETERMINED BY
013564,000651: # C(X2)= 0 NO GYROCOMPASSING
013565,000652: # 2 GYROCOMPASSING
013566,000653:
013567,000654:
013568,000655:
013569,000656: 21,6660 47576 VERECT NOLOD 0
013570,000657:
013571,000658: 21,6661 32001 STORE 0
013572,000659:
013573,000660: 21,6662 47575 NOLOD 1
013574,000661: 21,6663 70376 DAD*
013575,000662: 21,6664 02751 INT,1 # COMPUTE INTEGRAL OF DEL-V = INT
013576,000663: 21,6665 36751 STORE INT,1
013577,000664:
013578,000665: 21,6666 45175 DMOVE 1
013579,000666: 21,6667 64316 DMP* TSLT
013580,000667: 21,6670 00001 0
013581,000668: 21,6671 05732 VERECTC1,2
013582,000669: 21,6672 00006 5
013583,000670:
013584,000671: 21,6673 64375 DMP* 1
013585,000672: 21,6674 70342 DAD* DAD
013586,000673: 21,6675 02751 INT,1 # THETA = THETA + C1 DEL-V + C2 INT
013587,000674: 21,6676 05742 VERECTC2,2
013588,000675: 21,6677 03115 THETAY,1
013589,000676: 21,6700 37115 STORE THETAY,1
013590,000677:
013591,000678: 21,6701 40576 ITCQ 0
013592,000679:
|
|
Page 349
|
013594,000681:
013595,000682: # PRELAUNCH MANUAL REQUEST PROCESSOR.
013596,000683:
013597,000684: 21,6702 34501 STARTPL CAF PRIO20 # ENTER EXECUTIVE REQUEST ON START-UP.
013598,000685: 21,6703 02046 TC FINDVAC
013599,000686: 21,6704 42147 CADR STARTPL2
013600,000687: 21,6705 05702 TC SWRETURN
013601,000688:
013602,000689: 21,6706 44513 PLSTCHK CS EIGHT # PRELAUNCH COMES HERE WHENEVER A PHASE
013603,000690: 21,6707 60115 AD MPAC # REFERENCE IS MADE TO SEE IF A MANUAL
013604,000691: 21,6710 10000 CCS A # REQUEST HAS BEEN ENTERED THROUGH MASTER
013605,000692: 21,6711 00001 TC Q # CONTROL. ALL SUCH PHASES ARE LESS THAN 8
013606,000693: 21,6712 24000 PLPRIO OCT 24000
013607,000694: 21,6713 06714 TC +1
013608,000695:
013609,000696: 21,6714 20115 INDEX MPAC # SEE WHICH MANUAL MODE REQUESTED.
013610,000697: 21,6715 06715 TC +0
013611,000698: 21,6716 06000 TC TOP1 # 1 - INITIALIZATION 1.
013612,000699: 21,6717 06100 TC TOP2 # 2 - INITIALIZATION 2.
013613,000700: 21,6720 07252 TC OPTCHK # 3 - DO OPTICAL CHECK
013614,000701:
013615,000702: 21,6721 10727 PLFINCHK CCS WASKSET # SEE IF IN FINE ALIGN.
013616,000703: 21,6722 06726 TC 3CHECK
013617,000704: 21,6723 06746 TC PRELEXIT # SYSTEM IN BAD SHAPE.
013618,000705: 21,6724 06733 TC DOPLCHNG # DO THE CHANGE ANYWAY.
013619,000706: 21,6725 06746 TC PRELEXIT # SYSTEM IN BAD SHAPE.
013620,000707:
013621,000708: 21,6726 66731 3CHECK AD -CCSFINE
013622,000709: 21,6727 10000 CCS A
013623,000710: 21,6730 06000 TC TOP1
013624,000711: 21,6731 77730 -CCSFINE OCT -47 # WASKSET IS 50 FOR FINE ALIGN.
013625,000712: 21,6732 06000 TC TOP1
013626,000713:
013627,000714: 21,6733 20115 DOPLCHNG INDEX MPAC
013628,000715: 21,6734 06732 TC -2
013629,000716: 21,6735 06741 TC DOPL14
013630,000717:
013631,000718: 21,6736 02362 DOPL15 TC NEWMODE # SET MAJOR MODE TO GYROCOMPASSING
013632,000719: 21,6737 00002 OCT 2
013633,000720:
013634,000721: 21,6740 06344 TC DOGYROC
013635,000722:
013636,000723: 21,6741 02362 DOPL14 TC NEWMODE # SET MAJOR MODE TO UNCONDITIONAL VERT-
013637,000724: 21,6742 00006 OCT 6 # ICAL ERECTION
013638,000725:
013639,000726: 21,6743 06457 TC TJL
013640,000727:
|
|
Page 350
|
013642,000729:
013643,000730: # PRELAUNCH GO-SEQUENCE PROCESSOR.
013644,000731:
013645,000732: # HAS BEEN DELETED. SEE GENERAL RESTARTS. ...DJL
013646,000733:
013647,000734: 21,6744 00050 FINECODE OCT 50 # FINE ALIGN AND COMPUTER CONTROL.
013648,000735:
013649,000736: # PRELAUNCH TERMINATION.
013650,000737:
013651,000738: 21,6745 03362 TC FREEDSP
013652,000739: 21,6746 05654 PRELEXIT TC BANKCALL # RETURN IMU TO MANUAL CONTROL.
013653,000740: 21,6747 30241 CADR IMUFINIS
013654,000741:
013655,000742: 21,6750 44516 ENDJ3OUT CS ONE
013656,000743: 21,6751 02312 TC NEWPHASE
013657,000744: 21,6752 00003 OCT 3
013658,000745:
013659,000746: 21,6753 02124 TC ENDOFJOB
013660,000747:
|
|
Page 351
|
013662,000749:
013663,000750: # PRELAUNCH BANK STORED CONSTANTS
013664,000751:
013665,000752: 21,6754 24000 00000 VERECTC1 2DEC 20. B-5 # VERTICAL LOOP CONSTANTS
013666,000753: 21,6756 02000 00000 2DEC 2 B-5
013667,000754: 21,6760 14631 23146 VERECTC2 2DEC .4
013668,000755: 21,6762 00101 21116 2DEC .004
013669,000756: 21,6764 03146 14632 VERECTC3 2DEC .1
013670,000757: 21,6766 03146 14632 GYRCMC1 2DEC 0.1
013671,000758: 21,6770 34631 23146 GYRCMC2 2DEC 0.9
013672,000759: 21,6772 56777 77777 GYRCMC3 2DEC -68 B-7
013673,000760: 21,6774 20000 00000 GYRCMC4 2DEC 4 B-3
013674,000761: 21,6776 03610 01227 LABLAT 2DEC .117678252 # LATITUDE OF IL-7
013675,000762: 21,7000 10000 00000 90DEGAZ 2DEC .25 # 90 DEG. FROM NORTH = EAST
013676,000763: 21,7002 00062 PRELDT DEC .5 E2 # HALF SECOND PRELAUNCH CYCLE
013677,000764:
013678,000765: 21,7003 42270 WAKEPRAD CADR PRAWAKE # WAKING ADDRESS FOR PRELAUNCH
013679,000766:
013680,000767: 21,7004 00000 ZEROPR OCT 0 # OUR OWN PERSONAL COPY OF ZERO
013681,000768:
013682,000769: 21,7005 03711 33265 LOMEGA 2DEC .12169524 # EARTH RATE IN IRIG PULSES PER .01 SEC.
013683,000770: 21,7007 37116 32652 GOMEGA 2DEC 0.97356192 # EARTH RATE IN IRIG PULSES/CS
013684,000771: 21,7011 06200 PLPIPADT DEC 50 B+6
013685,000772: 21,7012 77746 -.25SC21 DEC -25 B-14
013686,000773: 21,7013 77715 NEG.5SEC DEC -50 B-14
013687,000774:
013688,000775: 21,7014 00310 2SEC21 DEC 200 B-14
013689,000776: 21,7015 00000 00372 DP2.5SEC 2DEC 250 B-28
013690,000777: 21,7017 00060 BITS56 DEC 48 B-14
013691,000778: 21,7020 37116 32666 SIDEDAYS 2DEC* .011605763 E-5 B23* # FRACTION OF T2-T1 IN SIDEREAL DAY
013692,000779: 21,7022 13644 33772 LOCALUP 2DEC .738876298 B-1
013693,000780: 21,7024 00000 00000 2DEC .0 # VECTOR AT TIME C(T2,T1) = 0
013694,000781: 21,7026 12620 03315 2DEC .673841098 B-1
|
|
Page 352
|
013696,000783: 21,7030 01340 LGYROANG ADRES GYROANG
013697,000784: 21,7031 00011 IX DEC 9 B-14
013698,000785:
|
|
Page 353
|
013700,000787:
013701,000788: # PRELAUNCH TERMINATION PHASE(AFTER G.R. SIGNAL)
013702,000789:
013703,000790:
013704,000791:
013705,000792: 21,7032 04000 PRELTER1 TC INTPRET
013706,000793:
013707,000794: 21,7033 70776 DAD 0
013708,000795: 21,7034 01371 PREVTIME
013709,000796: 21,7035 03016 DP2.5SEC
013710,000797: 21,7036 33371 STORE PREVTIME
013711,000798:
013712,000799: 21,7037 76776 ITC 0
013713,000800: 21,7040 02515 EARTHRAT # CHANGED BY MR. FIXIT.
013714,000801:
013715,000802: 21,7041 77576 EXIT 0
013716,000803:
013717,000804: 21,7042 35501 CAF ZERO
013718,000805: 21,7043 51340 TS GYROANG
013719,000806: 21,7044 51342 TS GYROANG +2
013720,000807: 21,7045 51344 TS GYROANG +4
013721,000808:
013722,000809: 21,7046 31452 XCH THETAX
013723,000810: 21,7047 51341 TS GYROANG +1
013724,000811: 21,7050 31446 XCH THETAY
013725,000812: 21,7051 51343 TS GYROANG +3
013726,000813: 21,7052 31450 XCH THETAZ
013727,000814: 21,7053 51345 TS GYROANG +5
013728,000815:
013729,000816: 21,7054 20017 INHINT
013730,000817: 21,7055 32164 CAF PRIO31 # CHANGED BY MR. FIXIT.
013731,000818: 21,7056 02052 TC NOVAC
013732,000819: 21,7057 42442 CADR SPITGYRO
013733,000820: 21,7060 20016 RELINT
013734,000821:
013735,000822: 21,7061 02362 TC NEWMODE
013736,000823: 21,7062 00004 OCT 04 # INERTIAL REFERENCE.
013737,000824:
013738,000825: 21,7063 04000 TC INTPRET
013739,000826:
013740,000827: 21,7064 70776 DAD 0 # FORM TIME SINCE LAUNCH VECTOR IN
013741,000828: 21,7065 01074 DTEPOCH # INERTIAL Z-X PLANE
013742,000829: 21,7066 01467 TIME2GR
013743,000830: 21,7067 33145 STORE DTEAROT
013744,000831:
013745,000832: 21,7070 76776 ITC 0 # BRANCH TO FORCE WT TO LESS THAN 1 REV
013746,000833: 21,7071 13463 EARROT2
013747,000834:
013748,000835: 21,7072 57176 SIN 0 # FORM INERTIAL Z-X PLANE LOCAL VERTICAL
013749,000836: 21,7073 01315 LATITUDE
|
|
Page 354
|
013751,000838: 21,7074 45176 DMOVE 0
013752,000839: 21,7075 05174 ZERODP
013753,000840:
013754,000841: 21,7076 55175 COS 1
013755,000842: 21,7077 41176 VDEF
013756,000843: 21,7100 01315 LATITUDE
013757,000844: 21,7101 32041 STORE VAC
013758,000845:
013759,000846: 21,7102 43576 TEST 0 # TEST IF BIT IS ON. IF NOT SET IT ON
013760,000847: 21,7103 00006 NBSMBIT
013761,000848: 21,7104 03167 NBITON
013762,000849:
013763,000850: 21,7105 75575 ROTXY AXT,1 1 # ROTATE PROJECTION OF LOCAL VERTICAL ON
013764,000851: 21,7106 74572 AXT,2 ITC # INERTIAL X-Y PLANE ABOUT Z-AXIS
013765,000852: 21,7107 00003 2
013766,000853: 21,7110 00005 4
013767,000854: 21,7111 04566 ACCUROT
013768,000855:
013769,000856: 21,7112 47576 NOLOD 0
013770,000857: 21,7113 33052 STORE REFSMMAT # PRESENT LOCAL VERTICAL VECTOR IS X-AXIS
013771,000858:
013772,000859: 21,7114 45176 DMOVE 0
013773,000860: 21,7115 05174 ZERODP
013774,000861:
013775,000862: 21,7116 45176 DMOVE 0
013776,000863: 21,7117 00041 VAC
013777,000864:
013778,000865: 21,7120 47175 COMP 1 # FORM UNIT EAST VECTOR AT GRR
013779,000866: 21,7121 41153 VDEF UNIT
013780,000867: 21,7122 00043 VAC +2
013781,000868:
013782,000869: 21,7123 47575 NOLOD 1 # FORM UNIT SOUTH VECTOR
013783,000870: 21,7124 41753 VXV UNIT
013784,000871: 21,7125 01052 REFSMMAT
013785,000872:
013786,000873: 21,7126 66776 DSU 0 # FORM AZIMUTH SOUTH OF EAST AT GRR
013787,000874: 21,7127 01317 AZIMUTH
013788,000875: 21,7130 03001 90DEGAZ
013789,000876: 21,7131 32037 STORE 30D
013790,000877:
013791,000878: 21,7132 47575 NOLOD 1
013792,000879: 21,7133 57166 SIN VXSC
013793,000880: 21,7134 33066 STORE REFSMMAT +12D # (TEMPORARY STORAGE)
013794,000881:
013795,000882: 21,7135 55174 COS 2 # FORM SM Z-AXIS
013796,000883: 21,7136 75642 VXSC VAD
013797,000884: 21,7137 73176 UNIT
013798,000885: 21,7140 00037 30D
013799,000886: 21,7141 77777 -
013800,000887: 21,7142 01066 REFSMMAT +12D
|
|
Page 355
|
013802,000889: 21,7143 33066 STORE REFSMMAT +12D
013803,000890:
013804,000891: 21,7144 47575 NOLOD 1 # FORM SM Y-AXIS BY CROSS PRODUCT
013805,000892: 21,7145 41753 VXV UNIT
013806,000893: 21,7146 01052 REFSMMAT
013807,000894: 21,7147 33060 STORE REFSMMAT +6
013808,000895:
013809,000896: 21,7150 41775 VXV 1 # INITIALISE VN, GRAVITY GIVEN RN, UNITW
013810,000897: 21,7151 75776 VXSC
013811,000898: 21,7152 01044 UNITW
013812,000899: 21,7153 00766 RN # SCALED AT 2(+25) METERS
013813,000900: 21,7154 03173 WIE
013814,000901: 21,7155 32774 STORE VN # SCALED AT 2(+7)M/CS
013815,000902:
013816,000903: 21,7156 75175 VMOVE 1
013817,000904: 21,7157 76776 ITC
013818,000905: 21,7160 00766 RN
013819,000906: 21,7161 21643 CALCGRAV
013820,000907:
013821,000908: 21,7162 77576 EXIT 0
013822,000909:
013823,000910: 21,7163 32164 CAF PRIO31 # GUESS WHAT WE:RE DOING
013824,000911: 21,7164 50755 TS 1/PIPADT # GIVE UP WOULD YOU BELEIVE 2 SECONDS
013825,000912:
013826,000913: 21,7165 06750 TC ENDJ3OUT # TERMINATE PRELAUNCH. (PHASE = INACTIVE.)
013827,000914:
013828,000915:
013829,000916:
013830,000917: 21,7166 42575 NBITON SWITCH 1
013831,000918: 21,7167 76776 ITC
013832,000919: 21,7170 00006 NBSMBIT
013833,000920: 21,7171 03106 ROTXY
013834,000921:
013835,000922: 21,7172 14167 34104 WIE 2DEC* 7.29211505 E-7 B+19* # RAD/CS SCALED AT 2(-19)
013836,000923:
|
|
Page 356
|
013838,000925:
013839,000926: 21,7174 30001 PRLSAVE XCH Q # SAVE CURRENT VARIABLES FOR RESTARTS
013840,000927: 21,7175 50116 TS MPAC +1
013841,000928:
013842,000929: 21,7176 33535 CAF THIRTEEN
013843,000930: 21,7177 50115 AGAIN1 TS MPAC
013844,000931: 21,7200 20115 INDEX MPAC
013845,000932: 21,7201 41356 CS FILTER
013846,000933: 21,7202 20115 INDEX MPAC
013847,000934: 21,7203 51243 TS PTEMP
013848,000935: 21,7204 10115 CCS MPAC
013849,000936: 21,7205 07177 TC AGAIN1
013850,000937:
013851,000938: 21,7206 33533 CAF ELEVEN
013852,000939: 21,7207 50115 AGAIN2 TS MPAC
013853,000940: 21,7210 20115 INDEX MPAC
013854,000941: 21,7211 41446 CS THETAY
013855,000942: 21,7212 20115 INDEX MPAC
013856,000943: 21,7213 51261 TS PTEMP +14D
013857,000944: 21,7214 10115 CCS MPAC
013858,000945: 21,7215 07207 TC AGAIN2
013859,000946:
013860,000947: 21,7216 41321 CS PRELTEMP
013861,000948: 21,7217 51275 TS PTEMP +26D
013862,000949: 21,7220 41320 CS GYROCSW
013863,000950: 21,7221 51276 TS PTEMP +27D
013864,000951:
013865,000952: 21,7222 00116 TC MPAC +1
013866,000953:
013867,000954: 21,7223 30001 PRLRSTOR XCH Q # RESTORE OLD VALUES OF VARIABLES
013868,000955: 21,7224 50116 TS MPAC +1
013869,000956:
013870,000957: 21,7225 33535 CAF THIRTEEN
013871,000958: 21,7226 50115 AGAIN3 TS MPAC
013872,000959: 21,7227 20115 INDEX MPAC
013873,000960: 21,7230 41243 CS PTEMP
013874,000961: 21,7231 20115 INDEX MPAC
013875,000962: 21,7232 51356 TS FILTER
013876,000963: 21,7233 10115 CCS MPAC
013877,000964: 21,7234 07226 TC AGAIN3
013878,000965:
013879,000966: 21,7235 33533 CAF ELEVEN
013880,000967: 21,7236 50115 AGAIN4 TS MPAC
013881,000968: 21,7237 20115 INDEX MPAC
013882,000969: 21,7240 41261 CS PTEMP +14D
013883,000970: 21,7241 20115 INDEX MPAC
013884,000971: 21,7242 51446 TS THETAY
013885,000972: 21,7243 10115 CCS MPAC
013886,000973: 21,7244 07236 TC AGAIN4
013887,000974:
013888,000975: 21,7245 41275 CS PTEMP +26D
|
|
Page 357
|
013890,000977: 21,7246 51321 TS PRELTEMP
013891,000978: 21,7247 41276 CS PTEMP +27D
013892,000979: 21,7250 51320 TS GYROCSW
013893,000980:
013894,000981: 21,7251 00116 TC MPAC +1
013895,000982:
|
|
Page 358
|
013897,000984:
013898,000985: # PRELAUNCH CHECK PROCEDURE (USES THE Z-NORTH SYSTEM OF AXES)
013899,000986:
013900,000987:
013901,000988:
013902,000989: 21,7252 20017 OPTCHK INHINT
013903,000990: 21,7253 32150 CAF PRIO14
013904,000991: 21,7254 02046 TC FINDVAC # CALL WITH PRIORITY OF TWENTY
013905,000992: 21,7255 43262 CADR CHKOPT
013906,000993:
013907,000994: 21,7256 34514 CAF BIT3
013908,000995: 21,7257 50115 TS MPAC
013909,000996: 21,7260 06721 TC PLFINCHK
013910,000997: 21,7261 06354 TC DOGYROC2
013911,000998:
013912,000999: 21,7262 03302 CHKOPT TC GRABDSP
013913,001000: 21,7263 03310 TC PREGBSY
013914,001001:
013915,001002: 21,7264 02362 TC NEWMODE
013916,001003: 21,7265 00003 OCT 03
013917,001004:
013918,001005: 21,7266 35501 CAF ZERO
013919,001006: 21,7267 51400 TS STARS
013920,001007: 21,7270 64516 AD ONE
013921,001008: 21,7271 50620 TS DSPTEM1 +2
013922,001009: 21,7272 37540 CAF V06N30P
013923,001010: 21,7273 03100 TC NVSUB
013924,001011: 21,7274 03315 TC PRENVBSY
013925,001012: 21,7275 21400 INDEX STARS
013926,001013: 21,7276 31346 XCH TAZ
013927,001014: 21,7277 50616 TS DSPTEM1
013928,001015: 21,7300 21400 INDEX STARS
013929,001016: 21,7301 31350 XCH TEL
013930,001017: 21,7302 50617 TS DSPTEM1 +1
013931,001018:
013932,001019: 21,7303 07542 TC CHECKNV
013933,001020: 21,7304 00661 OCT 00661
013934,001021: 21,7305 07441 TC CHEXIT
013935,001022: 21,7306 30616 XCH DSPTEM1
013936,001023: 21,7307 21400 INDEX STARS
013937,001024: 21,7310 51346 TS TAZ
013938,001025: 21,7311 30617 XCH DSPTEM1 +1
013939,001026: 21,7312 21400 INDEX STARS
013940,001027: 21,7313 51350 TS TEL
013941,001028:
013942,001029: 21,7314 11400 CCS STARS
013943,001030: 21,7315 07320 TC +3
013944,001031: 21,7316 34516 CAF ONE
013945,001032: 21,7317 07267 TC CHKOPT +5
013946,001033: 21,7320 50620 TS DSPTEM1 +2
|
|
Page 359
|
013948,001035: 21,7321 35503 CAF TWO
013949,001036: 21,7322 50617 TS DSPTEM1 +1
013950,001037: 21,7323 34516 CAF ONE
013951,001038: 21,7324 50616 TS DSPTEM1 # SETS UP STAR NUMBER DISPLAY
013952,001039:
013953,001040: 21,7325 37540 CAF V06N30P
013954,001041: 21,7326 03100 TC NVSUB
013955,001042: 21,7327 03315 TC PRENVBSY
013956,001043: 21,7330 35503 CAF TWO
013957,001044: 21,7331 05654 TC BANKCALL
013958,001045: 21,7332 30406 CADR SXTMARK
013959,001046: 21,7333 05654 TC BANKCALL
013960,001047: 21,7334 30327 CADR OPTSTALL
013961,001048: 21,7335 07441 TC CHEXIT
013962,001049: 21,7336 04000 TC INTPRET
013963,001050:
013964,001051: 21,7337 76776 ITC 0
013965,001052: 21,7340 03475 PROCTARG
013966,001053:
013967,001054: 21,7341 76776 ITC 0
013968,001055: 21,7342 03446 MAKEXSM # COMPUTE DESIRED SM ORIENTAYION IN REC
013969,001056:
013970,001057: 21,7343 52775 MXV 1
013971,001058: 21,7344 44776 VSLT
013972,001059: 21,7345 01403 TARGET1
013973,001060: 21,7346 01425 XSM
013974,001061: 21,7347 00002 1
013975,001062: 21,7350 33403 STORE STARAD
013976,001063: 21,7351 52775 MXV 1
013977,001064: 21,7352 44776 VSLT
013978,001065: 21,7353 01411 TARGET1 +6
013979,001066: 21,7354 01425 XSM
013980,001067: 21,7355 00002 1
013981,001068: 21,7356 33411 STORE STARAD +6
013982,001069:
013983,001070: 21,7357 71574 LXC,1 2
013984,001071: 21,7360 74471 AXT,2 XSU,2
013985,001072: 21,7361 66572 SXA,2 ITC
013986,001073: 21,7362 00736 MARKSTAT
013987,001074: 21,7363 00003 2
013988,001075: 21,7364 00047 X1
013989,001076: 21,7365 00051 S1
013990,001077: 21,7366 04733 SXTNB
013991,001078:
013992,001079: 21,7367 76776 ITC 0
013993,001080: 21,7370 04524 NBSM
013994,001081:
013995,001082: 21,7371 75176 VMOVE 0
013996,001083: 21,7372 00041 STARM
013997,001084: 21,7373 33375 STORE VECTEM
|
|
Page 360
|
013999,001086: 21,7374 71574 LXC,1 2
014000,001087: 21,7375 63561 INCR,1 AXT,2
014001,001088: 21,7376 56531 XSU,2 SXA,2
014002,001089: 21,7377 00736 MARKSTAT
014003,001090: 21,7400 77771 -7
014004,001091: 21,7401 00003 2
014005,001092: 21,7402 00047 X1
014006,001093: 21,7403 00051 S1
014007,001094:
014008,001095: 21,7404 76776 ITC 0
014009,001096: 21,7405 04733 SXTNB
014010,001097:
014011,001098: 21,7406 76776 ITC 0
014012,001099: 21,7407 04524 NBSM
014013,001100:
014014,001101: 21,7410 75176 VMOVE 0
014015,001102: 21,7411 00041 STARM
014016,001103: 21,7412 32015 STORE 12D
014017,001104:
014018,001105: 21,7413 75176 VMOVE 0
014019,001106: 21,7414 01375 VECTEM
014020,001107: 21,7415 32007 STORE 6 # TO AVOID ERASABLE BIND
014021,001108:
014022,001109: 21,7416 76776 ITC 0 # FIND DESIRED SM IN PRESENT SM
014023,001110: 21,7417 04761 AXISGEN
014024,001111:
014025,001112: 21,7420 76776 ITC 0 # CALCULATE REQUIRED PULSE TORQUE IN GYROD
014026,001113: 21,7421 04353 CALCGTA
014027,001114:
014028,001115: 21,7422 45776 VSRT 0
014029,001116: 21,7423 01521 OGC
014030,001117: 21,7424 00011 8D
014031,001118: 21,7425 33521 STORE OGC # CHANGE UNITS FROM 2PI TO GYRO PULSES
014032,001119:
014033,001120: 21,7426 77576 EXIT 0
014034,001121:
014035,001122:
014036,001123:
014037,001124: 21,7427 05654 TC BANKCALL
014038,001125: 21,7430 30453 CADR MKRELEAS
014039,001126: 21,7431 07542 TC CHECKNV
014040,001127: 21,7432 00667 OCT 00667
014041,001128: 21,7433 07441 TC CHEXIT
014042,001129: 21,7434 04000 TC INTPRET
014043,001130:
014044,001131: 21,7435 75176 VMOVE 0
014045,001132: 21,7436 01521 OGC # GETS SUMMED INTO PRELAUNCH
014046,001133: 21,7437 33333 STORE INFLANG
014047,001134:
014048,001135: 21,7440 77576 EXIT 0
|
|
Page 361
|
014050,001137:
014051,001138: 21,7441 03362 CHEXIT TC FREEDSP
014052,001139: 21,7442 02362 TC NEWMODE
014053,001140: 21,7443 00002 OCT 02
014054,001141: 21,7444 02124 TC ENDOFJOB
014055,001142:
|
|
Page 362
|
014057,001144:
014058,001145: # SUBROUTINE TO COMPUTE DESIRED SM AXES IN REC
014059,001146:
014060,001147: 21,7445 77576 MAKEXSM EXIT 0
014061,001148: 21,7446 37541 CAF XVII
014062,001149: 21,7447 50077 TS BUF
014063,001150: 21,7450 35501 CAF ZERO # ZERO ALL OF XSM
014064,001151: 21,7451 20077 INDEX BUF
014065,001152: 21,7452 51424 TS XSM
014066,001153: 21,7453 10077 CCS BUF
014067,001154: 21,7454 07447 TC MAKEXSM +2
014068,001155: 21,7455 34522 CAF HALF
014069,001156: 21,7456 51424 TS XSM # HALF UNIT MATRIX IS COMPUTED
014070,001157:
014071,001158: 21,7457 04000 TC INTPRET
014072,001159:
014073,001160: 21,7460 55176 COS 0
014074,001161: 21,7461 01317 AZIMUTH
014075,001162: 21,7462 33435 STORE XSM +8D
014076,001163:
014077,001164: 21,7463 47576 NOLOD 0
014078,001165: 21,7464 33445 STORE XSM +16D
014079,001166:
014080,001167: 21,7465 57176 SIN 0
014081,001168: 21,7466 01317 AZIMUTH
014082,001169: 21,7467 33443 STORE XSM +14D
014083,001170:
014084,001171: 21,7470 47176 COMP 0
014085,001172: 21,7471 01443 XSM +14D
014086,001173: 21,7472 33437 STORE XSM +10D
014087,001174:
014088,001175: 21,7473 40576 ITCQ 0
014089,001176:
|
|
Page 363
|
014091,001178:
014092,001179: # ROUTINE TO CONVERT TARGET AZIMUTH AND ELEVATIONS TO VECTORS
014093,001180:
014094,001181:
014095,001182:
014096,001183: 21,7474 75575 PROCTARG AXT,1 1
014097,001184: 21,7475 74461 AXT,2 AST,2
014098,001185: 21,7476 00002 1
014099,001186: 21,7477 00015 12D
014100,001187: 21,7500 00007 6
014101,001188:
014102,001189: 21,7501 42175 PROC1 SMOVE* 1
014103,001190: 21,7502 56776 TSRT
014104,001191: 21,7503 02723 TEL +1,1
014105,001192: 21,7504 00003 2
014106,001193: 21,7505 32001 STORE 0
014107,001194:
014108,001195: 21,7506 57176 SIN 0
014109,001196: 21,7507 00001 0
014110,001197: 21,7510 37036 STORE TARGET1 +12D,2
014111,001198: 21,7511 55176 COS 0
014112,001199: 21,7512 00001 0 # PUSH DOWN THE COSINE OF ELEVATION
014113,001200:
014114,001201: 21,7513 42175 SMOVE* 1
014115,001202: 21,7514 76576 RTB
014116,001203: 21,7515 02717 TAZ +1,1
014117,001204: 21,7516 20304 CDULOGIC
014118,001205: 21,7517 32003 STORE 2 # THEN Y=0.5SIN(AZ)COS(EL)
014119,001206:
014120,001207: 21,7520 57175 SIN 1
014121,001208: 21,7521 64716 DMP TSLT
014122,001209: 21,7522 00003 2
014123,001210: 21,7523 00001 0
014124,001211: 21,7524 00002 1
014125,001212: 21,7525 37042 STORE TARGET1 +14D,2
014126,001213:
014127,001214: 21,7526 55175 COS 1
014128,001215: 21,7527 64716 DMP TSLT
014129,001216: 21,7530 00003 2
014130,001217: 21,7531 77777 -
014131,001218: 21,7532 00002 1
014132,001219: 21,7533 37046 STORE TARGET1 +16D,2
014133,001220: 21,7534 75575 AXT,1 1
014134,001221: 21,7535 50401 TIX,2 ITCQ
014135,001222: 21,7536 00001 0
014136,001223: 21,7537 03502 PROC1
014137,001224:
|
|
Page 364
|
014139,001226:
014140,001227: # ROUTINE TO ROTATE COORDINATE SYSTEM BY EARTHRATE TIMES TIME ON
014141,001228:
014142,001229:
014143,001230:
014144,001231: 21,7540 00630 V06N30P OCTAL 00630
014145,001232: 21,7541 00021 XVII DEC 17 B-14
014146,001233:
|
|
Page 365
|
014148,001235:
014149,001236: # ROUTINE TO DISPLAY STORED DATA FOR CHECKING AND MODIFICATION,VERB NOUN
014150,001237: # IS STORED AT L +1,RETURN IS TO L +2 FOR TERMINATE,L +3 FOR GOOD DATA OR PROCEDE
014151,001238:
014152,001239:
014153,001240:
014154,001241: 21,7542 30001 CHECKNV XCH Q
014155,001242: 21,7543 51354 TS CHKNVTEM
014156,001243: 21,7544 21354 INDEX CHKNVTEM
014157,001244: 21,7545 30000 XCH A
014158,001245:
014159,001246: 21,7546 03100 TC NVSUB
014160,001247: 21,7547 07562 TC CHECKNV1
014161,001248: 21,7550 05654 TC BANKCALL
014162,001249: 21,7551 14000 CADR FLASHON
014163,001250:
014164,001251: 21,7552 03136 TC ENDIDLE
014165,001252: 21,7553 07556 TC +3
014166,001253: 21,7554 07560 TC +4
014167,001254: 21,7555 07544 TC CHECKNV +2
014168,001255:
014169,001256: 21,7556 21354 INDEX CHKNVTEM
014170,001257: 21,7557 00001 TC Q
014171,001258: 21,7560 21354 INDEX CHKNVTEM
014172,001259: 21,7561 00002 TC Z
014173,001260:
014174,001261: 21,7562 37564 CHECKNV1 CAF CHECKNV2
014175,001262: 21,7563 03320 TC NVSUBUSY
014176,001263: 21,7564 43544 CHECKNV2 CADR CHECKNV +2
End of include-file PRELAUNCH_ALIGNMENT_PROGRAM.agc. Parent file is MAIN.agc