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