ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
030945,000002: ## Copyright: Public domain.
030946,000003: ## Filename: P51-P53.agc
030947,000004: ## Purpose: Part of the source code for Colossus, build 249.
030948,000005: ## It is part of the source code for the Command Module's (CM)
030949,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
030950,000007: ## Assembler: yaYUL
030951,000008: ## Reference: pp. 693-738.
030952,000009: ## Contact: Ron Burkey <info@sandroid.org>.
030953,000010: ## Website: www.ibiblio.org/apollo.
030954,000011: ## Mod history: 08/16/04 RSB. Began adapting from corresponding Luminary131
030955,000012: ## file.
030956,000013: ## 08/22/04 RSB Removed the "lunar and solar ephemerides subroutines"
030957,000014: ## to their own file.
030958,000015: ## 2010-10-24 JL Fixed page numbers.
030959,000016: ## 2017-01-06 RSB Page numbers now agree with those on the
030960,000017: ## original harcopy, as opposed to the PDF page
030961,000018: ## numbers in 1701.pdf.
030962,000019: ## 2017-01-18 RSB Cross-diff'd comment text (not whitespace)
030963,000020: ## vs the already-proofed corresponding Colossus
030964,000021: ## 237 and Comanche 55 source-code files
030965,000022: ## and corrected errors found.
030966,000023: ##
030967,000024: ## The contents of the "Colossus249" files, in general, are transcribed
030968,000025: ## from a scanned copy of the program listing. Notations on this
030969,000026: ## document read, in part:
030970,000027: ##
030971,000028: ## Assemble revision 249 of AGC program Colossus by NASA
030972,000029: ## 2021111-041. October 28, 1968.
030973,000030: ##
030974,000031: ## This AGC program shall also be referred to as
030975,000032: ## Colossus 1A
030976,000033: ##
030977,000034: ## Prepared by
030978,000035: ## Massachusetts Institute of Technology
030979,000036: ## 75 Cambridge Parkway
030980,000037: ## Cambridge, Massachusetts
030981,000038: ## under NASA contract NAS 9-4065.
030982,000039: ##
030983,000040: ## Refer directly to the online document mentioned above for further information.
030984,000041: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
030985,000042: ##
030986,000043: ## In some cases, where the source code for Luminary 131 overlaps that of
030987,000044: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
030988,000045: ## source file, and then is proofed to incorporate any changes.
030989,000046:
|
|
Page 693 |
030991,000048: # PROGRAM NAME - PROG52 DATE - NOV 30, 1966
030992,000049: # MOD NO - 2 LOG SECTION - P51-P53
030993,000050: # MODIFICATION BY - LONSKE ASSEMBLY - SUNDISK REV 30
030994,000051:
030995,000052: # FUNCTIONAL DESCRIPTION -
030996,000053:
030997,000054: # ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
030998,000055: # AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE_
030999,000056:
031000,000057: # (A) PREFERRED ORIENTATION
031001,000058:
031002,000059: # AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER. THIS ORIENTATION MUST BE CALCULATED AND
031003,000060: # STORED BY A PREVIOUSLY SELECTED PROGRAM.
031004,000061:
031005,000062: # (B) NOMINAL ORIENTATION
031006,000063:
031007,000064: # X = UNIT ( Y X Z )
031008,000065: # -SM -SM -SM
031009,000066:
031010,000067: # Y = UNIT (V X R)
031011,000068: # -SM - -
031012,000069:
031013,000070: # Z = UNIT ( -R )
031014,000071: # -SM -
031015,000072:
031016,000073: # WHERE_
031017,000074:
031018,000075: # R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031019,000076: # -
031020,000077:
031021,000078: # V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031022,000079: # -
031023,000080:
031024,000081: # (C) REFSMMAT ORIENTATION
031025,000082:
031026,000083: # THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
031027,000084: # WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
031028,000085: # SINCE THE LAST ALIGNMENT).
031029,000086:
031030,000087: # AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
031031,000088: # NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE. CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
031032,000089: # COARSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
031033,000090: # IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
031034,000091: # EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
031035,000092: # THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
031036,000093: # REQUESTED.
031037,000094:
031038,000095: # CALLING SEQUENCE -
031039,000096:
031040,000097: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
|
|
Page 694 |
031042,000099:
031043,000100: # SUBROUTINES CALLED -
031044,000101:
031045,000102: # 1. FLAGDOWN 7. S52.2 13. NEWMODEX
031046,000103: # 2. R02BOTH 8. CAL53A 14. PRIOLARM
031047,000104: # 3. GOPERF4 9. FLAGUP
031048,000105: # 4. MATMOVE 10. R56
031049,000106: # 5. GOFLASH 11. R51
031050,000107: # 6. S52.3 12. GOPERF3
031051,000108:
031052,000109: # NORMAL EXIT MODES -
031053,000110:
031054,000111: # EXITS TO ENDOFJOB
031055,000112:
031056,000113: # ALARM OR ABORT EXIT MODES -
031057,000114:
031058,000115: # NONE
031059,000116:
031060,000117: # OUTPUT -
031061,000118:
031062,000119: # THE FOLLOWING MAY BE FLASHED ON THE DSKY
031063,000120: # 1. IMU ORIENTATION CODE
031064,000121: # 2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
031065,000122: # 3. TIME OF NEXT IGNITION
031066,000123: # 4. GIMBAL ANGLES
031067,000124: # 5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
031068,000125: # 6. PLEASE PERFORM P00
031069,000126: # THE MODE DISPLAY MAY BE CHANGED TO 20
031070,000127:
031071,000128: # ERASABLE INITIALIZATION REQUIRED -
031072,000129:
031073,000130: # PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
031074,000131: # XSMD, YSMD, ZSMD.
031075,000132:
031076,000133: # RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
031077,000134:
031078,000135: # DEBRIS -
031079,000136:
031080,000137: # WORK AREA
031081,000138:
031082,000139: 21,2026 15,2000 P54 = PROG52
031083,000140: 33,3772 BANK 33
031084,000141: 15,2000 SETLOC P50S
031085,000142: 15,2000 BANK
031086,000143:
031087,000144: 15,2000 30,2000 SBANK= LOWSUPER
031088,000145: 15,2000 E5,1773 EBANK= SAC
031089,000146: 15,2000 COUNT 15/P52
031090,000147:
031091,000148: 15,2000 05301 PROG52 TC PHASCHNG
031092,000149: 15,2001 00254 OCT 00254
031093,000150: 15,2002 05447 TC DOWNFLAG
031094,000151: 15,2003 00027 ADRES UPDATFLG # BIT 7 FLAG 1
|
|
Page 695 |
031096,000153: 15,2004 05447 TC DOWNFLAG
031097,000154: 15,2005 00031 ADRES TRACKFLG # BIT 5 FLAG 1
031098,000155: 15,2006 04555 TC BANKCALL
031099,000156: 15,2007 17573 CADR R02BOTH # IMU STATUS CHECK
031100,000157: 15,2010 34707 CAF BIT4
031101,000158: 15,2011 70076 MASK STATE +2 # IS PFRATFLG SET (PREFERRED ORIENTATION)
031102,000159: 15,2012 10000 CCS A
031103,000160: 15,2013 02016 TC P52A # YES
031104,000161: 15,2014 34711 CAF BIT2 # NO
031105,000162: 15,2015 02017 TC P52A +1
031106,000163: 15,2016 34712 P52A CAF BIT1
031107,000164: 15,2017 55132 TS OPTION2
031108,000165: 15,2020 34712 P52B CAF BIT1
031109,000166: 15,2021 04555 TC BANKCALL # FLASH OPTION CODE AND ORIENTATION CODE
031110,000167: 15,2022 21041 CADR GOPERF4R
031111,000168: 15,2023 04106 TC GOTOPOOH
031112,000169: 15,2024 02031 TC +5
031113,000170: 15,2025 02020 TC P52B # NEW CODE - NEW ORIENTATION CODE INPUT
031114,000171: 15,2026 05301 TC PHASCHNG
031115,000172: 15,2027 00014 OCT 00014
031116,000173: 15,2030 05112 TC ENDOFJOB
031117,000174:
031118,000175: 15,2031 31132 CA OPTION2
031119,000176: 15,2032 76214 MASK THREE
031120,000177: 15,2033 50000 INDEX A
031121,000178: 15,2034 02035 TC +1
031122,000179: 15,2035 02041 TC P52T # L.S.
031123,000180: 15,2036 02110 TC P52J # PREF
031124,000181: 15,2037 02041 TC P52T # NOM
031125,000182: 15,2040 12120 TCF P52C # REF
031126,000183: 15,2041 00006 P52T EXTEND
031127,000184: 15,2042 34714 DCA NEG0
031128,000185: 15,2043 53046 DXCH DSPTEM1
031129,000186: 15,2044 32155 CAF V06N34
031130,000187: 15,2045 04555 TC BANKCALL
031131,000188: 15,2046 20624 CADR GOFLASH
031132,000189: 15,2047 04106 TC GOTOPOOH
031133,000190: 15,2050 02052 TC +2
031134,000191: 15,2051 02044 TC -5
031135,000192: 15,2052 00006 EXTEND
031136,000193: 15,2053 31046 DCA DSPTEM1
031137,000194: 15,2054 00006 EXTEND
031138,000195: 15,2055 12057 BZF +2
031139,000196: 15,2056 12062 TCF +4
031140,000197:
031141,000198: 15,2057 00006 EXTEND
031142,000199: 15,2060 30025 DCA TIME2
031143,000200: 15,2061 53046 DXCH DSPTEM1
031144,000201: 15,2062 31132 CA OPTION2
031145,000202: 15,2063 74711 MASK BIT2
031146,000203: 15,2064 10000 CCS A
|
|
Page 696 |
031148,000205: 15,2065 12073 TCF +6 # NOM
031149,000206: 15,2066 06006 TC INTPRET # LS
031150,000207: 15,2067 77624 CALL
031151,000208: 15,2070 34506 P52LS
031152,000209: 15,2071 77650 GOTO
031153,000210: 15,2072 32100 P52D
031154,000211: 15,2073 06006 TC INTPRET
031155,000212: 15,2074 77745 DLOAD
031156,000213: 15,2075 01046 DSPTEM1
031157,000214: 15,2076 77624 CALL # COMPUTE NOMINAL IMU
031158,000215: 15,2077 34636 S52.3 # ORIENTATION
031159,000216: 15,2100 77624 P52D CALL # READ VEHICLE ATTITUDE AND
031160,000217: 15,2101 22256 S52.2 # COMPUTE GIMBAL ANGLES
031161,000218: 15,2102 77776 EXIT
031162,000219: 15,2103 32156 CAF VB06N22
031163,000220: 15,2104 04555 TC BANKCALL # DISPLAY GIMBAL ANGLES
031164,000221: 15,2105 20624 CADR GOFLASH
031165,000222: 15,2106 04106 TC GOTOPOOH
031166,000223: 15,2107 02113 TC +4 # PROCEED
031167,000224: 15,2110 06006 P52J TC INTPRET # RECYCLE- VEHICLE HAS BEEN MENUEVERED
031168,000225: 15,2111 77650 GOTO
031169,000226: 15,2112 32100 P52D
031170,000227: 15,2113 06006 TC INTPRET
031171,000228: 15,2114 77624 CALL # DO COARSE ALIGN
031172,000229: 15,2115 30756 CAL53A # ROUTINE
031173,000230: 15,2116 77414 SET EXIT
031174,000231: 15,2117 01462 REFSMFLG
031175,000232: 15,2120 34720 P52C CAF ALRM15
031176,000233: 15,2121 04555 TC BANKCALL
031177,000234: 15,2122 20751 CADR GOPERF1
031178,000235: 15,2123 04106 TC GOTOPOOH
031179,000236: 15,2124 02126 TC +2 # V33
031180,000237: 15,2125 02140 TC P52F # E
031181,000238: 15,2126 06006 TC INTPRET
031182,000239: 15,2127 43234 RTB DAD
031183,000240: 15,2130 45505 LOADTIME
031184,000241: 15,2131 32176 TSIGHT1
031185,000242: 15,2132 77624 CALL
031186,000243: 15,2133 30216 LOCSAM
031187,000244: 15,2134 77776 EXIT
031188,000245: 15,2135 04555 P52E TC BANKCALL # DO STAR SELECTION
031189,000246: 15,2136 30324 CADR PICAPAR
031190,000247: 15,2137 02145 TC P52I # 2 STARS NOT AVAILABLE
031191,000248: 15,2140 06006 P52F TC INTPRET # 2 STARS AVAILABLE
031192,000249: 15,2141 77624 CALL
031193,000250: 15,2142 30523 R51
031194,000251: 15,2143 77776 ENDP50S EXIT
031195,000252: 15,2144 04106 TC GOTOPOOH
031196,000253: 15,2145 05537 P52I TC ALARM
031197,000254: 15,2146 00405 OCT 405
|
|
Page 697 |
031199,000256: 15,2147 34743 CAF V05N09
031200,000257: 15,2150 04555 TC BANKCALL
031201,000258: 15,2151 20624 CADR GOFLASH
031202,000259: 15,2152 04106 TC GOTOPOOH
031203,000260: 15,2153 02140 TC P52F # PROCEED - DO FINE ALIGN-R51
031204,000261: 15,2154 02120 TC P52C # RECYCLE - VEHICLE HAS BEEN MANUEVERED
031205,000262:
031206,000263: 15,2155 01442 V06N34 VN 0634
031207,000264: 15,2156 01426 VB06N22 VN 00622
031208,000265: 15,2157 4720 ALRM15 EQUALS OCT15
031209,000266: 16,2000 SETLOC P50S2
031210,000267: 16,2000 BANK
031211,000268: 16,2505 01531 V06N89* VN 0689
031212,000269:
031213,000270: # NAME - P52LS
031214,000271:
031215,000272: # FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
031216,000273: # LONGTITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
031217,000274: # THE KEYBOARD. TO COMPUTE THE LANDING SITE
031218,000275: # ORIENTATION FOR P52 OR P54
031219,000276:
031220,000277: # LET:
031221,000278: # RLS = LANDING SITE VECTOR IN REF COORDINATES
031222,000279: # R = CSM POSITION VECTOR IN REF COORDINATES
031223,000280: # V = CSM VELOCITY VECTOR IN REF COORDINATES
031224,000281: # THEN THE LANDING SITE ORIENTATION IS:
031225,000282: # XSMD = UNIT(RLS)
031226,000283: # YSMD = UNIT(ZSMD*XSMD)
031227,000284: # ZSMD = UNIT((R*V)*RLS)
031228,000285:
031229,000286: # CALL- CALL
031230,000287: # P52LS
031231,000288:
031232,000289: # INPUTS- DSPTEM1 = TIME OF ALIGNMENT
031233,000290: # RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
031234,000291:
031235,000292: # OUTPUTS- XSMD, YSMD, ZSMD
031236,000293:
031237,000294: # SUBROUTINES- RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
031238,000295:
031239,000296: # DEBRIS- VAC, SEE SUBROUTINES
031240,000297:
031241,000298: 16,2506 43020 P52LS STQ SET
031242,000299: 16,2507 00300 QMAJ
031243,000300: 16,2510 01463 LUNAFLAG
031244,000301: 16,2511 77745 DLOAD
031245,000302: 16,2512 01046 DSPTEM1
031246,000303: 16,2513 02607 STORE TSIGHT
031247,000304: 16,2514 43175 VLOAD SET
031248,000305: 16,2515 02026 RLS
031249,000306: 16,2516 00462 ERADFLAG
031250,000307: 16,2517 14001 STODL 0D
031251,000308: 16,2520 02607 TSIGHT
031252,000309: 16,2521 34007 STCALL 6D
031253,000310: 16,2522 55341 RP-TO-R
031254,000311: 16,2523 77742 VSR2
031255,000312: 16,2524 16152 STODL ALPHAV
031256,000313: 16,2525 02607 TSIGHT
|
|
Page 698 |
031258,000315: 16,2526 77624 CALL
031259,000316: 16,2527 26322 LAT-LONG
031260,000317: 16,2530 77624 CALL
031261,000318: 16,2531 61336 LLASRD
031262,000319: 16,2532 77776 EXIT
031263,000320:
031264,000321: 16,2533 32505 LSDISP CAF V06N89*
031265,000322: 16,2534 04555 TC BANKCALL
031266,000323: 16,2535 20624 CADR GOFLASH
031267,000324: 16,2536 04106 TC GOTOPOOH
031268,000325: 16,2537 02541 TC +2
031269,000326: 16,2540 02533 TC LSDISP
031270,000327: 16,2541 06006 TC INTPRET
031271,000328: 16,2542 77624 CALL
031272,000329: 16,2543 61345 LLASRDA
031273,000330: 16,2544 45145 DLOAD CALL
031274,000331: 16,2545 02607 TSIGHT
031275,000332: 16,2546 26373 LALOTORV
031276,000333: 16,2547 53575 VLOAD UNIT
031277,000334: 16,2550 02152 ALPHAV
031278,000335: 16,2551 14307 STODL XSMD
031279,000336: 16,2552 02607 TSIGHT
031280,000337: 16,2553 34041 STCALL TDEC1
031281,000338: 16,2554 27022 CSMPREC
031282,000339: 16,2555 47375 VLOAD VXV
031283,000340: 16,2556 00001 RATT
031284,000341: 16,2557 00007 VATT
031285,000342: 16,2560 53435 VXV UNIT
031286,000343: 16,2561 00307 XSMD
031287,000344: 16,2562 00323 STORE ZSMD
031288,000345: 16,2563 53435 VXV UNIT
031289,000346: 16,2564 00307 XSMD
031290,000347: 16,2565 34315 STCALL YSMD
031291,000348: 16,2566 00300 QMAJ
031292,000349: 14,2000 SETLOC P50S1
031293,000350: 14,2000 BANK
031294,000351:
031295,000352:
031296,000353: # NAME- AUTOMATIC OPTICS POSITIONING ROUTINE
031297,000354:
031298,000355: # FUNCTION- (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
031299,000356: # (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
031300,000357:
031301,000358: # CALLING SEQUENCE- CALL R52
031302,000359:
031303,000360: # INPUT- 1. TARG1FLG AND TARG2FLG- PRESET BY CALLER
031304,000361: # 2. RNDVZFLG AND TRACKFLG- PRESET BY CALLER
031305,000362: # 3. STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
031306,000363: # 4. LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY
031307,000364: # 5. NO. OF MARKS (MARKINDX)- PRESET BY CALLER
031308,000365:
031309,000366: # OUTPUT- DRIVE SHAFT AND TRUNNION CDUS
|
|
Page 699 |
031311,000368:
031312,000369: # SUBROUTINES- 1. FIXDELAY 7. CLEANDSP
031313,000370: # 2. GOPERF1 8. GODSPR
031314,000371: # 3. GOFLASH 9. REFLASHR
031315,000372: # 4. R53 10. R52.2
031316,000373: # 5. ALARM 11. R52.3
031317,000374: # 6. SR52.1
031318,000375:
031319,000376: 14,2002 COUNT 15/R52
031320,000377:
031321,000378: 14,2002 43020 R52 STQ CLEAR
031322,000379: 14,2003 02576 SAVQR52
031323,000380: 14,2004 04265 ADVTRK
031324,000381: 14,2005 77776 R52VRB EXIT
031325,000382: 14,2006 00006 EXTEND
031326,000383: 14,2007 30036 DCA CDUT
031327,000384: 14,2010 53161 DXCH DESOPTT
031328,000385: 14,2011 06006 TC INTPRET
031329,000386: 14,2012 43131 SSP CLEAR
031330,000387: 14,2013 01304 OPTIND
031331,000388: 14,2014 00000 0
031332,000389: 14,2015 00271 R53FLAG
031333,000390: 14,2016 77776 EXIT
031334,000391: 14,2017 06006 R52A TC INTPRET
031335,000392: 14,2020 43014 SET BON
031336,000393: 14,2021 00073 TRUNFLAG
031337,000394: 14,2022 00705 TARG1FLG
031338,000395: 14,2023 30103 R52H
031339,000396: 14,2024 77414 CLEAR EXIT
031340,000397: 14,2025 03660 TERMIFLG
031341,000398: 14,2026 31314 R52C CA SWSAMPLE # IS OPTICS MODE IN AGC
031342,000399: 14,2027 00006 EXTEND
031343,000400: 14,2030 62131 BZMF R52M # MANUAL
031344,000401: 14,2031 04555 R52D TC BANKCALL # AGC
031345,000402: 14,2032 26176 CADR SR52.1
031346,000403: 14,2033 12161 TCF R52L # GR 90 DEGREES
031347,000404: 14,2034 12124 TCF R52J # GR 50 DEGREES
031348,000405: 14,2035 05435 TC UPFLAG # LS 50 DEGREES
031349,000406: 14,2036 00013 ADRES TRUNFLAG # SET TRUNFLAG BIT 4 FLAG 0
031350,000407: 14,2037 34701 R52JA CAF BIT10 # IS THIS A LEM
031351,000408: 14,2040 70075 MASK STATE +1
031352,000409: 14,2041 10000 CCS A
031353,000410: 14,2042 02052 TC R52E # YES
031354,000411: 14,2043 34705 CAF BIT6 # NO, IS R53FLAG SET
031355,000412: 14,2044 70074 MASK STATE
031356,000413: 14,2045 10000 CCS A
031357,000414: 14,2046 12052 TCF R52E # YES
031358,000415: 14,2047 32151 CAF V06N92 # NO
031359,000416: 14,2050 04555 TC BANKCALL
031360,000417: 14,2051 20602 CADR GODSPR
031361,000418: 14,2052 31314 R52E CA SWSAMPLE # IS OSS IN CMC MODE
|
|
Page 700 |
031363,000420: 14,2053 00006 EXTEND
031364,000421: 14,2054 62065 BZMF R52F # NO
031365,000422: 14,2055 40074 CS STATE # YES- IS TRUNFLAG SET
031366,000423: 14,2056 74707 MASK BIT4
031367,000424: 14,2057 10000 CCS A
031368,000425: 14,2060 02063 TC +3 # NO
031369,000426: 14,2061 31775 CA PAC # YES
031370,000427: 14,2062 55160 TS DESOPTT
031371,000428: 14,2063 31773 CA SAC
031372,000429: 14,2064 55161 TS DESOPTS
031373,000430: 14,2065 34731 R52F CAF .5SEC # WAIT 1/2 SEC
031374,000431: 14,2066 04555 TC BANKCALL
031375,000432: 14,2067 01732 CADR DELAYJOB
031376,000433: 14,2070 34701 CAF BIT10
031377,000434: 14,2071 70075 MASK STATE +1
031378,000435: 14,2072 10000 CCS A
031379,000436: 14,2073 12104 TCF R52HA # YES, LEM
031380,000437: 14,2074 34674 CAF BIT15 # NO
031381,000438: 14,2075 70103 MASK STATE +7 # IS TERMIFLG SET
031382,000439: 14,2076 00006 EXTEND
031383,000440: 14,2077 12026 BZF R52C # NO
031384,000441: 14,2100 06006 R52Q TC INTPRET # YES
031385,000442: 14,2101 77650 GOTO
031386,000443: 14,2102 02576 SAVQR52
031387,000444: 14,2103 77776 R52H EXIT # LEM
031388,000445: 14,2104 04555 R52HA TC BANKCALL
031389,000446: 14,2105 76536 CADR R61CSM
031390,000447: 14,2106 30075 CA STATE +1
031391,000448: 14,2107 74706 MASK BIT5
031392,000449: 14,2110 00006 EXTEND # TRACKFLG
031393,000450: 14,2111 12100 BZF R52Q
031394,000451:
031395,000452: 14,2112 40075 CS STATE +1
031396,000453: 14,2113 74704 MASK BIT7 # UPDATFLG
031397,000454: 14,2114 10000 CCS A
031398,000455: 14,2115 12122 TCF R52SYNC
031399,000456:
031400,000457: 14,2116 30101 R52I CA STATE +5
031401,000458: 14,2117 74701 MASK BIT10
031402,000459: 14,2120 10000 CCS A
031403,000460: 14,2121 02031 TC R52D # PRFTRKAT = 1
031404,000461: 14,2122 32175 R52SYNC CAF 1.8SEC # MAKE UP FOR LOST TIME
031405,000462: 14,2123 12066 TCF R52F +1
031406,000463:
031407,000464: 14,2124 05447 R52J TC DOWNFLAG # CLEAR TRUNFLAG
031408,000465: 14,2125 00013 ADRES TRUNFLAG # BIT 4 FLAG 0
031409,000466: 14,2126 05537 TC ALARM # SET 407 ALARM
031410,000467: 14,2127 00407 OCT 407
031411,000468: 14,2130 02037 TC R52JA
031412,000469: 14,2131 34705 R52M CAF BIT6 # IS R53FLAG SET
|
|
Page 701 |
031414,000471: 14,2132 70074 MASK STATE
031415,000472: 14,2133 10000 CCS A
031416,000473: 14,2134 02065 TC R52F # YES
031417,000474: 14,2135 00004 INHINT # NO
031418,000475: 14,2136 37661 CAF PRIO24
031419,000476: 14,2137 05042 TC FINDVAC
031420,000477: 14,2140 E5,1773 EBANK= SAC
031421,000478: 14,2140 02144 30065 2CADR R53JOB
031422,000479:
031423,000480: 14,2142 00003 RELINT
031424,000481: 14,2143 12065 TCF R52F
031425,000482: 14,2144 06006 R53JOB TC INTPRET
031426,000483: 14,2145 77624 CALL
031427,000484: 14,2146 31322 R53
031428,000485: 14,2147 77776 ENDPLAC EXIT # INTERPRETER RETURN TO ENDOFJOB (R22 USES)
031429,000486: 14,2150 05112 TC ENDOFJOB
031430,000487:
031431,000488: 14,2151 01534 V06N92 VN 00692
031432,000489: 14,2152 01531 V06N89A VN 0689
031433,000490: 14,2153 10464 12470 SHAXIS 2DEC .5376381241 B-1
031434,000491: 14,2155 00000 00000 2DEC 0 B-28
031435,000492: 14,2157 15373 11554 2DEC .8431766920 B-1
031436,000493:
031437,000494: 14,2161 34701 R52L CAF BIT10 # IS THIS A LEM
031438,000495: 14,2162 70075 MASK STATE +1
031439,000496: 14,2163 10000 CCS A
031440,000497: 14,2164 02124 TC R52J # YES
031441,000498: 14,2165 32174 CAF OCT404
031442,000499: 14,2166 04555 TC BANKCALL
031443,000500: 14,2167 21671 CADR PRIOLARM
031444,000501: 14,2170 12176 TCF TERM52 # TERMINATE
031445,000502: 14,2171 12065 TCF R52F # PROCEED
031446,000503: 14,2172 12065 TCF R52F # NO PROVISION FOR NEW DATA
031447,000504: 14,2173 15112 TCF ENDOFJOB
031448,000505:
031449,000506: 14,2174 00404 OCT404 OCT 404
031450,000507: 14,2175 00264 1.8SEC DEC 180 B-14
031451,000508:
031452,000509: 14,2176 05425 TERM52 TC CLEARMRK
031453,000510:
031454,000511: 14,2177 04555 TC BANKCALL # KILL MARK SYSTEM
031455,000512: 14,2200 16063 CADR MKRELEAS
031456,000513:
031457,000514: 14,2201 34714 CAF ZERO
031458,000515: 14,2202 55323 TS OPTCADR
031459,000516:
031460,000517: 14,2203 04555 TC BANKCALL # CLEAR OUT EXTENDED VERBS
|
|
Page 702 |
031462,000519: 14,2204 20464 CADR KLEENEX
031463,000520:
031464,000521: 14,2205 04106 TC GOTOPOOH # NOW GO TO POO
031465,000522:
031466,000523: 14,2206 43020 ADVORB STQ SET # SETS UP ADVANCED ORBIT TRACKING
031467,000524: 14,2207 02576 SAVQR52
031468,000525: 14,2210 04065 ADVTRK
031469,000526: 14,2211 43014 SET SET
031470,000527: 14,2212 01463 LUNAFLAG
031471,000528: 14,2213 00462 ERADFLAG
031472,000529: 14,2214 77650 GOTO
031473,000530: 14,2215 30005 R52VRB
|
|
Page 703 |
031475,000532: # NAME - S50 ALIAS LOCSAM
031476,000533: # NAME- LOCSAM
031477,000534:
031478,000535: # FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
031479,000536: # IMU ALIGNMENT PROGRAMS
031480,000537:
031481,000538: # DEFINE:
031482,000539:
031483,000540: # RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
031484,000541:
031485,000542: # VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
031486,000543:
031487,000544: # RE = RADIUS OF EARTH
031488,000545:
031489,000546: # RM = RADIUS OF MOON
031490,000547:
031491,000548: # ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
031492,000549: # WRT TO SUNOVER THE VELOCITY OF LIGHT
031493,000550:
031494,000551: # REM = POSITION OF MOON WRT EARTH
031495,000552:
031496,000553: # RES = POSITION OF SUN WRT EARTH
031497,000554:
031498,000555: # C = VELOCITY OF LIGHT
031499,000556:
031500,000557: # EARTH IS PRIMARY MOON IS PRIMARY
031501,000558: # - -
031502,000559: # VEARTH=-1(RATT) VEARTH=-1(REM+RATT)
031503,000560: # - -
031504,000561: # VMOON = 1(REM-RATT) VMOON =-1(RATT)
031505,000562: # - -
031506,000563: # VSUN = 1(RES) VSUN = 1(RES-REM)
031507,000564: # -1
031508,000565: # CEARTH=COS(SIN (RE/RATT)+5) CEARTH=COS 5
031509,000566: # -1
031510,000567: # CMOON =COS 5 CMOON =COS(SIN CRM/RATT)+5)
031511,000568:
031512,000569: # CSUN =COS 15 CSUN =COS 15
031513,000570:
031514,000571: # VEL/C = VSUN X ECLIPOL + VATT/C
031515,000572:
031516,000573: # CALL - DLOAD CALL
031517,000574: # DESIRED TIME
031518,000575: # LOCSAM
031519,000576:
031520,000577: # INPUTS - MPAC = TIME
031521,000578:
031522,000579: # OUTPUTS - VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
031523,000580:
031524,000581: # SUBROUTINES - LSPOS, CSMCONIC
031525,000582:
031526,000583: # DEBRIS - VAC AREA, SEE SUBROUTINES
031527,000584:
|
|
Page 704 |
031529,000586: 14,2000 SETLOC P50S1
031530,000587: 14,2000 BANK
031531,000588:
031532,000589: 14,2216 COUNT* $$/S50
031533,000590:
031534,000591: 14,2216 14,2216 LOCSAM = S50
031535,000592: 14,2216 77620 S50 STQ
031536,000593: 14,2217 00300 QMAJ
031537,000594: 14,2220 36607 STCALL TSIGHT
031538,000595: 14,2221 54110 LSPOS
031539,000596: 14,2222 26752 STOVL VMOON
031540,000597: 14,2223 00003 2D
031541,000598: 14,2224 16744 STODL VSUN
031542,000599: 14,2225 02607 TSIGHT
031543,000600: 14,2226 34041 STCALL TDEC1
031544,000601: 14,2227 27045 CSMCONIC
031545,000602: 14,2230 61131 SSP TIX,2
031546,000603: 14,2231 00052 S2
031547,000604: 14,2232 00000 0
031548,000605: 14,2233 30256 MOONCNTR
031549,000606: 14,2234 52375 EARTCNTR VLOAD VSU
031550,000607: 14,2235 02752 VMOON
031551,000608: 14,2236 00001 RATT
031552,000609: 14,2237 77656 UNIT
031553,000610: 14,2240 26752 STOVL VMOON
031554,000611: 14,2241 00001 RATT
031555,000612: 14,2242 57456 UNIT VCOMP
031556,000613: 14,2243 16736 STODL VEARTH
031557,000614: 14,2244 32162 RSUBE
031558,000615: 14,2245 77624 CALL
031559,000616: 14,2246 30316 OCCOS
031560,000617: 14,2247 14017 STODL CEARTH
031561,000618: 14,2250 32200 CSS5
031562,000619: 14,2251 24023 STOVL CMOON
031563,000620: 14,2252 02744 VSUN
031564,000621: 14,2253 77656 UNIT
031565,000622: 14,2254 36744 STCALL VSUN
031566,000623: 14,2255 30303 ENDSAM
031567,000624: 14,2256 40575 MOONCNTR VLOAD VSR8
031568,000625: 14,2257 02752 VMOON
031569,000626: 14,2260 51362 VSR1 BVSU
031570,000627: 14,2261 02744 VSUN
031571,000628: 14,2262 77656 UNIT
031572,000629: 14,2263 26744 STOVL VSUN
031573,000630: 14,2264 02752 VMOON
031574,000631: 14,2265 53455 VAD UNIT
031575,000632: 14,2266 00001 RATT
031576,000633: 14,2267 77676 VCOMP
031577,000634: 14,2270 26736 STOVL VEARTH
|
|
Page 705 |
031579,000636:
031580,000637: 14,2271 00001 RATT
031581,000638: 14,2272 57456 UNIT VCOMP
031582,000639: 14,2273 16752 STODL VMOON
031583,000640: 14,2274 32160 RSUBM
031584,000641: 14,2275 77624 CALL
031585,000642: 14,2276 30316 OCCOS
031586,000643: 14,2277 14023 STODL CMOON
031587,000644: 14,2300 32200 CSS5
031588,000645: 14,2301 24017 STOVL CEARTH
031589,000646: 14,2302 02744 VSUN
031590,000647: 14,2303 77635 ENDSAM VXV
031591,000648: 14,2304 32170 ECLIPOL
031592,000649: 14,2305 27474 STOVL VEL/C
031593,000650: 14,2306 00007 VATT
031594,000651: 14,2307 53361 VXSC VAD
031595,000652: 14,2310 32166 1/C
031596,000653: 14,2311 03474 VEL/C
031597,000654: 14,2312 17474 STODL VEL/C
031598,000655: 14,2313 32202 CSSUN
031599,000656: 14,2314 34021 STCALL CSUN
031600,000657: 14,2315 00300 QMAJ
031601,000658: 14,2316 70471 OCCOS DDV SR1
031602,000659: 14,2317 00045 36D
031603,000660: 14,2320 43336 ASIN DAD
031604,000661: 14,2321 32164 5DEGREES
031605,000662: 14,2322 70546 COS SR1
031606,000663: 14,2323 77616 RVQ
031607,000664: 15,2000 SETLOC P50S
031608,000665: 15,2000 BANK
031609,000666: 15,2157 00065 01265 RSUBM 2DEC 1738090 B-29 # MOON RADIUS IN METERS
031610,000667: 15,2161 00302 24533 RSUBE 2DEC 6378166 B-29
031611,000668: 15,2163 00343 21616 5DEGREES 2DEC .013888889 # SCALED IN REVS
031612,000669: 15,2165 00000 13143 1/C 2DEC .000042699 B-1 # *
031613,000670: 15,2167 00000 00000 ECLIPOL 2DEC 0 B-28 # *
031614,000671: 15,2171 77777 53231 2DEC -.00007896 B-1 # *
031615,000672: 15,2173 00001 17570 2DEC .00018209 B-1 # * * FOR USE BY CSM ONLY
031616,000673: 15,2175 00001 16700 TSIGHT1 2DEC 24000 B-28
031617,000674:
031618,000675: 15,2177 CEARTH = 14D
031619,000676: 15,2177 CSUN = 16D
031620,000677: 15,2177 CMOON = 18D
031621,000678: 15,2177 07760 14473 CSS5 2DEC .2490475 # (COS 5)/4
|
|
Page 706 |
031623,000680: 15,2201 07564 15042 CSSUN 2DEC .24148 # COS 15 /4
031624,000681:
|
|
Page 707 |
031626,000683: # PROGRAM NAME - PICAPAR DATE DEC 20 66
031627,000684: # MOD 1 LOG SECTION P51-P53
031628,000685: # ASSEMBLY SUNDISK REV40
031629,000686: # BY KEN VINCENT
031630,000687:
031631,000688: # FUNCTION
031632,000689: # THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
031633,000690: # WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
031634,000691: # WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED
031635,000692: # TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON. IF A
031636,000693: # STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
031637,000694: # THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
031638,000695: # THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
031639,000696: # HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
031640,000697: # AND MORE THAN 40 DEGREES. THOSE PAIRS OF STARS WITH GOOD SEPARATION
031641,000698: # ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
031642,000699: # 33 DEGREES OF SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
031643,000700: # THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
031644,000701:
031645,000702: # CALLING SEQUENCE
031646,000703: # L TC BANKCALL
031647,000704: # L+1 CADR PICAPAR
031648,000705: # L+2 ERROR RETURN - NO STARS IN FIELD OF VIEW
031649,000706: # L+3 NORMAL RETURN
031650,000707:
031651,000708: # OUTPUT
031652,000709: # BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
031653,000710: # VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
031654,000711:
031655,000712: # INITIALIZATION
031656,000713: # 1) A CALL TO LOCSAM MUST BE MADE
031657,000714: # 2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
031658,000715: # SIGHTINGS.
031659,000716:
031660,000717: # DEBRIS
031661,000718: # WORK AREA
031662,000719: # X,Y,ZNB
031663,000720: # SINCDU, COSCDU
031664,000721: # STARAD - STAR +5
031665,000722:
031666,000723: 15,2203 COUNT 14/PICAP
031667,000724:
031668,000725: 14,2000 SETLOC P50S1
031669,000726: 14,2000 BANK
031670,000727: 14,2324 04604 PICAPAR TC MAKECADR
031671,000728: 14,2325 55777 TS QMIN
031672,000729: 14,2326 06006 TC INTPRET
031673,000730: 14,2327 77624 CALL
031674,000731: 14,2330 47432 CDUTRIG
031675,000732: 14,2331 77624 CALL
031676,000733: 14,2332 34567 CALCSMSC
|
|
Page 708 |
031678,000735: 14,2333 77601 SETPD
031679,000736: 14,2334 00001 0
031680,000737: 14,2335 71214 SET DLOAD # VFLAG = 1
031681,000738: 14,2336 01465 VFLAG
031682,000739: 14,2337 11456 DPZERO
031683,000740: 14,2340 24303 STOVL BESTI
031684,000741: 14,2341 02714 XNB
031685,000742: 14,2342 63361 VXSC PDVL
031686,000743: 14,2343 30502 SIN33
031687,000744: 14,2344 02730 ZNB
031688,000745: 14,2345 74370 AXT,1 VXSC
031689,000746: 14,2346 00344 228D # X1 = 37 X 6 + 6
031690,000747: 14,2347 30504 COS33
031691,000748: 14,2350 77655 VAD
031692,000749: 14,2351 53505 VXM UNIT
031693,000750: 14,2352 01736 REFSMMAT
031694,000751: 14,2353 02760 STORE SAX # SAX = SHAFT AXIS
031695,000752: 14,2354 66331 SSP SSP # S1 = S2 = 6
031696,000753: 14,2355 00051 S1
031697,000754: 14,2356 00006 6
031698,000755: 14,2357 00052 S2
031699,000756: 14,2360 00006 6
031700,000757: 14,2361 52100 PIC1 TIX,1 GOTO # MAJOR STAR
031701,000758: 14,2362 30364 PIC2
031702,000759: 14,2363 30513 PICEND
031703,000760: 14,2364 45173 PIC2 VLOAD* CALL
031704,000761: 14,2365 31744 CATLOG,1
031705,000762: 14,2366 30457 OCCULT
031706,000763: 14,2367 73014 BON LXA,2
031707,000764: 14,2370 01710 CULTFLAG
031708,000765: 14,2371 30361 PIC1
031709,000766: 14,2372 00046 X1
031710,000767: 14,2373 52104 PIC3 TIX,2 GOTO
031711,000768: 14,2374 30376 PIC4
031712,000769: 14,2375 30361 PIC1
031713,000770: 14,2376 45173 PIC4 VLOAD* CALL
031714,000771: 14,2377 46033 CATLOG,2
031715,000772: 14,2400 30457 OCCULT
031716,000773: 14,2401 76614 BON VLOAD*
031717,000774: 14,2402 01710 CULTFLAG
031718,000775: 14,2403 30373 PIC3
031719,000776: 14,2404 31744 CATLOG,1
031720,000777: 14,2405 45237 DOT* DSU
031721,000778: 14,2406 46033 CATLOG,2
031722,000779: 14,2407 30506 CSS66 # SEPERATION LESS THAN 66 DEG.
031723,000780: 14,2410 43240 BMN DAD
031724,000781: 14,2411 30373 PIC3
031725,000782: 14,2412 30510 CSS6640 # SEPERATION MORE THAN 40 DEG.
031726,000783: 14,2413 77644 BPL
031727,000784: 14,2414 30373 PIC3
|
|
Page 709 |
031729,000786: 14,2415 50373 VLOAD* DOT
031730,000787: 14,2416 31744 CATLOG,1
031731,000788: 14,2417 02760 SAX
031732,000789: 14,2420 50025 DSU BMN # MAJOR STAR IN CONE
031733,000790: 14,2421 30512 CSS33
031734,000791: 14,2422 30361 PIC1
031735,000792: 14,2423 50373 VLOAD* DOT
031736,000793: 14,2424 46033 CATLOG,2
031737,000794: 14,2425 02760 SAX
031738,000795: 14,2426 51025 DSU BPL
031739,000796: 14,2427 30512 CSS33
031740,000797: 14,2430 30433 STRATGY
031741,000798: 14,2431 77650 GOTO
031742,000799: 14,2432 30373 PIC3
031743,000800: 14,2433 77614 STRATGY BONCLR
031744,000801: 14,2434 01605 VFLAG
031745,000802: 14,2435 30452 NEWPAR
031746,000803: 14,2436 65120 XCHX,1 XCHX,2
031747,000804: 14,2437 00302 BESTI
031748,000805: 14,2440 00303 BESTJ
031749,000806: 14,2441 47773 STRAT VLOAD* DOT*
031750,000807: 14,2442 31744 CATLOG,1
031751,000808: 14,2443 46033 CATLOG,2
031752,000809: 14,2444 43006 PUSH BOFINV
031753,000810: 14,2445 01545 VFLAG
031754,000811: 14,2446 30436 STRAT -3
031755,000812: 14,2447 45345 DLOAD DSU
031756,000813: 14,2450 77644 BPL
031757,000814: 14,2451 30373 PIC3
031758,000815: 14,2452 67130 NEWPAR SXA,1 SXA,2
031759,000816: 14,2453 00302 BESTI
031760,000817: 14,2454 00303 BESTJ
031761,000818: 14,2455 77650 GOTO
031762,000819: 14,2456 30373 PIC3
031763,000820: 14,2457 51321 OCCULT MXV BVSU
031764,000821: 14,2460 02736 CULTRIX
031765,000822: 14,2461 00017 CSS
031766,000823: 14,2462 77654 BZE
031767,000824: 14,2463 30476 CULTED
031768,000825: 14,2464 75240 BMN SIGN
031769,000826: 14,2465 30476 CULTED
031770,000827: 14,2466 00160 MPAC +3
031771,000828: 14,2467 75240 BMN SIGN
031772,000829: 14,2470 30476 CULTED
031773,000830: 14,2471 00162 MPAC +5
031774,000831: 14,2472 43040 BMN CLRGO
031775,000832: 14,2473 30476 CULTED
031776,000833: 14,2474 01630 CULTFLAG
031777,000834: 14,2475 00052 QPRET
031778,000835: 14,2476 77614 CULTED SETGO
|
|
Page 710 |
031780,000837: 14,2477 01430 CULTFLAG
031781,000838: 14,2500 00052 QPRET
031782,000839: 14,2501 0000016 CSS = CEARTH
031783,000840: 14,2501 21150 25157 SIN33 2DEC .5376381241
031784,000841: 14,2503 32766 22713 COS33 2DEC .8431756920
031785,000842: 14,2505 01736 35137 CSS66 2DEC .060480472 # (COS76)/4
031786,000843: 14,2507 73003 65403 CSS6640 2DEC -.15602587 # (COS76 - COS30)/4
031787,000844: 14,2511 06233 26112 CSS33 2DEC .197002688 # COS(1/2(76))/4
031788,000845:
031789,000846: 14,2513 77414 PICEND BOFF EXIT
031790,000847: 14,2514 01745 VFLAG
031791,000848: 14,2515 30517 PICGXT
031792,000849: 14,2516 02521 TC PICBXT
031793,000850: 14,2517 77776 PICGXT EXIT
031794,000851: 14,2520 25777 INCR QMIN
031795,000852: 14,2521 31777 PICBXT CA QMIN
031796,000853: 14,2522 04561 TC SWCALL
031797,000854: # V1 = 12D
031798,000855:
|
|
Page 711 |
031800,000857: # NAME - R51 FINE ALIGN
031801,000858: # FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
031802,000859: # CALLING SEQ - CALL R51
031803,000860: # INPUT - BESTI, BESTJ (PAIR OF STAR NO)
031804,000861: # OUTPUT - GYRO TORQUE PULSES
031805,000862: # SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
031806,000863:
031807,000864: 14,2523 COUNT 14/R51
031808,000865:
031809,000866: 14,2523 77776 R51 EXIT
031810,000867: 14,2524 34712 CAF BIT1
031811,000868: 14,2525 54304 TS STARIND
031812,000869: 14,2526 54301 TS MARKINDX
031813,000870: 14,2527 06006 R51.2 TC INTPRET
031814,000871: 14,2530 43014 R51.3 CLEAR CLEAR
031815,000872: 14,2531 00666 TARG2FLG
031816,000873: 14,2532 00665 TARG1FLG
031817,000874: 14,2533 77776 EXIT
031818,000875: 14,2534 05301 TC PHASCHNG
031819,000876: 14,2535 05024 OCT 05024 # RESTART GR 4 FOR R52-R53
031820,000877: 14,2536 13000 OCT 13000
031821,000878: 14,2537 50304 INDEX STARIND
031822,000879: 14,2540 30302 CA BESTI
031823,000880: 14,2541 00006 EXTEND
031824,000881: 14,2542 72701 MP 1/6TH
031825,000882: 14,2543 54735 TS STARCODE
031826,000883: 14,2544 32700 CAF V01N70
031827,000884: 14,2545 04555 TC BANKCALL
031828,000885: 14,2546 20763 CADR GOFLASHR
031829,000886: 14,2547 04106 TC GOTOPOOH
031830,000887: 14,2550 02555 TC +5
031831,000888: 14,2551 02544 TC -5
031832,000889: 14,2552 36211 CAF SIX
031833,000890: 14,2553 05415 TC BLANKET
031834,000891: 14,2554 15112 TCF ENDOFJOB
031835,000892: 14,2555 06006 TC INTPRET
031836,000893: 14,2556 45034 RTB CALL
031837,000894: 14,2557 45505 LOADTIME
031838,000895: 14,2560 32363 PLANET
031839,000896: 14,2561 72131 SSP LXA,1
031840,000897: 14,2562 00051 S1
031841,000898: 14,2563 00000 0
031842,000899: 14,2564 00304 STARIND
031843,000900: 14,2565 77700 TIX,1
031844,000901: 14,2566 30571 R51ST
031845,000902: 14,2567 36617 STCALL STARSAV2 # 2ND STAR
031846,000903: 14,2570 30572 R51ST +1
031847,000904: 14,2571 02611 R51ST STORE STARSAV1 # 1ST STAR
031848,000905: 14,2572 77776 EXIT
031849,000906: 14,2573 41011 CS MODREG # IS THIS P54
031850,000907: 14,2574 62677 AD OCT66
|
|
Page 712 |
031852,000909: 14,2575 00006 EXTEND
031853,000910: 14,2576 12672 BZF R51B # YES
031854,000911: 14,2577 06006 TC INTPRET
031855,000912: 14,2600 77624 CALL
031856,000913: 14,2601 30002 R52 # AOP WILL MAKE CALLS TO SIGHTING
031857,000914: 14,2602 77624 R51A CALL # COMPUTE LOS IN SM FROM MARK DATA
031858,000915: 14,2603 31266 SXTSM
031859,000916: 14,2604 02617 STORE STARSAV2
031860,000917: 14,2605 77776 EXIT
031861,000918: 14,2606 04555 TC BANKCALL
031862,000919: 14,2607 16063 CADR MKRELEAS
031863,000920: 14,2610 06006 TC INTPRET
031864,000921: 14,2611 45145 DLOAD CALL
031865,000922: 14,2612 02607 TSIGHT
031866,000923: 14,2613 32363 PLANET
031867,000924: 14,2614 77776 EXIT
031868,000925: 14,2615 10304 CCS STARIND
031869,000926: 14,2616 02657 TC R51.4
031870,000927: 14,2617 06006 TC INTPRET
031871,000928: 14,2620 53521 MXV UNIT
031872,000929: 14,2621 01736 REFSMMAT
031873,000930: 14,2622 02736 STORE STARAD
031874,000931: 14,2623 77775 VLOAD
031875,000932: 14,2624 02617 STARSAV2
031876,000933: 14,2625 24007 STOVL 6D
031877,000934: 14,2626 02611 STARSAV1
031878,000935: 14,2627 24015 STOVL 12D
031879,000936: 14,2630 02601 PLANVEC
031880,000937: 14,2631 36744 STCALL STARAD +6
031881,000938: 14,2632 30702 R54 # STAR DATA TEST
031882,000939: 14,2633 45014 BOFF CALL
031883,000940: 14,2634 00354 FREEFLAG
031884,000941: 14,2635 30643 R51K
031885,000942: 14,2636 47334 AXISGEN
031886,000943: 14,2637 77624 CALL
031887,000944: 14,2640 32203 R55 # GYRO TORQUE
031888,000945: 14,2641 77614 CLEAR
031889,000946: 14,2642 01273 PFRATFLG
031890,000947: 14,2643 77776 R51K EXIT
031891,000948: 14,2644 35656 CAF OCT14
031892,000949: 14,2645 04555 TC BANKCALL
031893,000950: 14,2646 20751 CADR GOPERF1
031894,000951: 14,2647 04106 TC GOTOPOOH
031895,000952: 14,2650 02652 TC +2 # V33
031896,000953: 14,2651 02654 TC +3
031897,000954: 14,2652 04555 TC BANKCALL
031898,000955: 14,2653 32120 CADR P52C
031899,000956: 14,2654 06006 TC INTPRET
031900,000957: 14,2655 77650 GOTO
031901,000958: 14,2656 32143 ENDP50S
031902,000959:
|
|
Page 713 |
031904,000961: 14,2657 06006 R51.4 TC INTPRET
031905,000962: 14,2660 53521 MXV UNIT
031906,000963: 14,2661 01736 REFSMMAT
031907,000964: 14,2662 26601 STOVL PLANVEC
031908,000965: 14,2663 02617 STARSAV2
031909,000966: 14,2664 02611 STORE STARSAV1
031910,000967: 14,2665 77731 SSP
031911,000968: 14,2666 00305 STARIND
031912,000969: 14,2667 00000 0
031913,000970: 14,2670 77650 GOTO
031914,000971: 14,2671 30530 R51.3
031915,000972: 14,2672 06006 R51B TC INTPRET
031916,000973: 14,2673 77624 CALL
031917,000974: 14,2674 32252 R56
031918,000975: 14,2675 77650 GOTO
031919,000976: 14,2676 30602 R51A
031920,000977: 14,2677 00066 OCT66 OCT 00066
031921,000978: 14,2700 00306 V01N70 VN 0170
031922,000979: 14,2701 05253 1/6TH DEC .1666667
031923,000980:
|
|
Page 714 |
031925,000982: # NAME- R55 GYRO TORQUE
031926,000983: # FUNCTION - COMPUTE AND SEND GYRO PULSES
031927,000984: # CALLING SEQ - CALL R55
031928,000985: # INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
031929,000986: # OUTPUT - GYRO PULSES
031930,000987: # SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
031931,000988:
031932,000989: 15,2000 SETLOC P50S
031933,000990: 15,2000 BANK
031934,000991: 15,2203 COUNT* $$/R55
031935,000992:
031936,000993: 15,2203 77620 R55 STQ
031937,000994: 15,2204 02777 QMIN
031938,000995: 15,2205 77624 CALL
031939,000996: 15,2206 47140 CALCGTA
031940,000997: 15,2207 77776 PULSEM EXIT
031941,000998: 15,2210 32234 R55.1 CAF V06N93
031942,000999: 15,2211 04555 TC BANKCALL
031943,001000: 15,2212 20624 CADR GOFLASH
031944,001001: 15,2213 04106 TC GOTOPOOH
031945,001002: 15,2214 02216 TC R55.2
031946,001003: 15,2215 02231 TC R55RET
031947,001004: 15,2216 05301 R55.2 TC PHASCHNG
031948,001005: 15,2217 00314 OCT 00314
031949,001006: 15,2220 32235 CA R55CDR
031950,001007: 15,2221 04555 TC BANKCALL
031951,001008: 15,2222 17125 CADR IMUPULSE
031952,001009: 15,2223 04555 TC BANKCALL
031953,001010: 15,2224 17516 CADR IMUSTALL
031954,001011: 15,2225 05644 TC CURTAINS
031955,001012: 15,2226 05301 TC PHASCHNG
031956,001013: 15,2227 05024 OCT 05024
031957,001014: 15,2230 13000 OCT 13000
031958,001015:
031959,001016: 15,2231 06006 R55RET TC INTPRET
031960,001017: 15,2232 77650 GOTO
031961,001018: 15,2233 02777 QMIN
031962,001019: 15,2234 01535 V06N93 VN 0693
031963,001020: 15,2235 02757 R55CDR ECADR OGC
031964,001021: 15,2236 14,2702 R54 = CHKSDATA
031965,001022:
031966,001023: # ROUTINE NAME - CHKSDATA DATE - JAN 9, 1967
031967,001024: # MOD NO - 0 LOG SECTION - P51-P53
031968,001025: # MODIFICATION BY - LONSKE ASSEMBLY -
031969,001026:
031970,001027: # FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
031971,001028: # BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
031972,001029: # COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_
031973,001030: # OS1 = OBSERVED STAR 1 VECTOR
031974,001031: # OS2 = OBSERVED STAR 2 VECTOR
031975,001032: # SS1 = STORED STAR 1 VECTOR
031976,001033: # SS2 = STORED STAR 2 VECTOR
031977,001034: # A1 = ARCCOS(OS1 - OS2)
|
|
Page 715 |
031979,001036: # A2 = ARCCOS(SS1 - SS2)
031980,001037: # A = ABS(2(A1 - A2))
031981,001038: # THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
031982,001039:
031983,001040: # EXIT MODE 1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
031984,001041: # 2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE ERANCE)
031985,001042:
031986,001043: # OUTPUT - 1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
031987,001044: # 2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
031988,001045:
031989,001046: # ERASABLE INITIALIZATION REQUIRED -
031990,001047: # 1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
031991,001048: # 2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
031992,001049:
031993,001050: # DEBRIS -
031994,001051:
031995,001052: 14,2000 SETLOC P50S1
031996,001053: 14,2000 BANK
031997,001054: 14,2702 COUNT* $$/R50
031998,001055:
031999,001056: 14,2702 43020 CHKSDATA STQ SET
032000,001057: 14,2703 02777 QMIN
032001,001058: 14,2704 00074 FREEFLAG
032002,001059: 14,2705 77760 CHKSAB AXC,1 # SET X1 TO STORE EPHEMERIS DATA
032003,001060: 14,2706 02735 STARAD
032004,001061:
032005,001062: 14,2707 47773 CHKSB VLOAD* DOT* # CAL. ANGLE THETA
032006,001063: 14,2710 00001 0,1
032007,001064: 14,2711 00007 6,1
032008,001065: 14,2712 65552 SL1 ACOS
032009,001066: 14,2713 00025 STORE THETA
032010,001067: 14,2714 43014 BOFF INVERT # BRANCH TO CHKSD IF THIS IS 2ND PASS
032011,001068: 14,2715 00354 FREEFLAG
032012,001069: 14,2716 30726 CHKSD
032013,001070: 14,2717 00174 FREEFLAG # CLEAR FREEFLAG
032014,001071: 14,2720 71360 AXC,1 DLOAD # SET X1 TO MARK ANGLES
032015,001072: 14,2721 00006 6D
032016,001073: 14,2722 00025 THETA
032017,001074: 14,2723 00023 STORE 18D
032018,001075: 14,2724 77650 GOTO
032019,001076: 14,2725 30707 CHKSB # RETURN TO CAL. 2ND ANGLE
032020,001077: 14,2726 45345 CHKSD DLOAD DSU
032021,001078: 14,2727 00025 THETA # COMPUTE POS DIFF
032022,001079: 14,2730 00023 18D
032023,001080: 14,2731 47046 ABS RTB
032024,001081: 14,2732 45541 SGNAGREE
032025,001082: 14,2733 01046 STORE NORMTEM1
032026,001083: 14,2734 77414 SET EXIT
032027,001084: 14,2735 00074 FREEFLAG
032028,001085: 14,2736 34714 CAF ZERO
032029,001086: 14,2737 04555 TC BANKCALL
032030,001087: 14,2740 20607 CADR CLEANDSP
032031,001088:
032032,001089: 14,2741 32755 CAF VB6N5
|
|
Page 716 |
032034,001091: 14,2742 04555 TC BANKCALL
032035,001092: 14,2743 20624 CADR GOFLASH
032036,001093: 14,2744 14106 TCF GOTOPOOH
032037,001094: 14,2745 02752 TC CHKSDA # PROCEED
032038,001095: 14,2746 06006 TC INTPRET
032039,001096: 14,2747 52014 CLEAR GOTO
032040,001097: 14,2750 00274 FREEFLAG
032041,001098: 14,2751 02777 QMIN
032042,001099: 14,2752 06006 CHKSDA TC INTPRET
032043,001100: 14,2753 77650 GOTO
032044,001101: 14,2754 02777 QMIN
032045,001102: 14,2755 01405 VB6N5 VN 605
032046,001103:
032047,001104: # NAME - CAL53A
032048,001105: # NAME - CAL53A
032049,001106: # FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY.
032050,001107: # CALLING SEQUENCE - CALL CAL53A
032051,001108: # INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
032052,001109: # DESIRED GIMBAL ANGLES - THETAD,+1,+2
032053,001110: # OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
032054,001111: # SUBROUTINES USED- 1.IMUCOARS 2.IMUSTALL 3.CURTAINS
032055,001112:
032056,001113: 14,2756 COUNT 14/R50
032057,001114:
032058,001115: 14,2756 45020 CAL53A STQ CALL
032059,001116: 14,2757 00035 29D
032060,001117: 14,2760 22256 S52.2 # MAKE FINAL COMP OF GIMBAL ANGLES
032061,001118: 14,2761 66234 RTB SSP
032062,001119: 14,2762 32236 RDCDUS # READ CDUS
032063,001120: 14,2763 00051 S1
032064,001121: 14,2764 00001 1
032065,001122: 14,2765 40370 AXT,1 SETPD
032066,001123: 14,2766 00003 3
032067,001124: 14,2767 00005 4
032068,001125: 14,2770 70543 CALOOP DLOAD* SR1
032069,001126: 14,2771 01161 THETAD +3D,1
032070,001127: 14,2772 70523 PDDL* SR1
032071,001128: 14,2773 00005 4,1
032072,001129: 14,2774 51425 DSU ABS
032073,001130: 14,2775 45206 PUSH DSU
032074,001131: 14,2776 31053 DEGREE1
032075,001132: 14,2777 71240 BMN DLOAD
032076,001133: 14,3000 31027 CALOOP1
032077,001134: 14,3001 51025 DSU BPL
032078,001135: 14,3002 31054 DEG359
032079,001136: 14,3003 31027 CALOOP1
032080,001137: 14,3004 77776 COARFINE EXIT
032081,001138: 14,3005 04555 TC BANKCALL
032082,001139: 14,3006 16602 CADR IMUCOARS # PERFORM COARSE ALIGNMENT
032083,001140: 14,3007 04555 TC BANKCALL
032084,001141: 14,3010 17516 CADR IMUSTALL # REQUEST MODE SWITCH
032085,001142: 14,3011 05644 TC CURTAINS
|
|
Page 717 |
032087,001144: 14,3012 04555 TC BANKCALL
032088,001145: 14,3013 17012 CADR IMUFIN20
032089,001146: 14,3014 04555 TC BANKCALL
032090,001147: 14,3015 17516 CADR IMUSTALL
032091,001148: 14,3016 05644 TC CURTAINS # TEST FOR MALFUNCTION
032092,001149: 14,3017 06006 TC INTPRET
032093,001150: 14,3020 77234 RTB VLOAD
032094,001151: 14,3021 31263 SET1/PDT
032095,001152: 14,3022 11456 ZEROVEC
032096,001153: 14,3023 01472 STORE GCOMP
032097,001154: 14,3024 52014 SET GOTO
032098,001155: 14,3025 01060 DRIFTFLG
032099,001156: 14,3026 31031 FINEONLY
032100,001157: 14,3027 77700 CALOOP1 TIX,1
032101,001158: 14,3030 30770 CALOOP
032102,001159: 14,3031 75160 FINEONLY AXC,1 AXC,2
032103,001160: 14,3032 02671 XSM
032104,001161: 14,3033 01735 REFSMMAT
032105,001162: 14,3034 77624 CALL
032106,001163: 14,3035 31040 MATMOVE
032107,001164: 14,3036 77650 GOTO
032108,001165: 14,3037 00035 29D
032109,001166: 14,3040 77773 MATMOVE VLOAD* # TRANSFER MATRIX
032110,001167: 14,3041 00001 0,1
032111,001168: 14,3042 10001 STORE 0,2
032112,001169: 14,3043 77773 VLOAD*
032113,001170: 14,3044 00007 6D,1
032114,001171: 14,3045 10007 STORE 6D,2
032115,001172: 14,3046 77773 VLOAD*
032116,001173: 14,3047 00015 12D,1
032117,001174: 14,3050 10015 STORE 12D,2
032118,001175: 14,3051 77616 RVQ
032119,001176: 14,3052 00056 DEGREE1 DEC 46 B-14
032120,001177: 14,3053 37722 DEG359 DEC 16338 B-14
032121,001178: 15,2000 SETLOC P50S
032122,001179: 15,2000 BANK
032123,001180: 15,2236 00004 RDCDUS INHINT # READ CDUS
032124,001181: 15,2237 30032 CA CDUX
032125,001182: 15,2240 50120 INDEX FIXLOC
032126,001183: 15,2241 54001 TS 1
032127,001184: 15,2242 30033 CA CDUY
032128,001185: 15,2243 50120 INDEX FIXLOC
032129,001186: 15,2244 54002 TS 2
032130,001187: 15,2245 30034 CA CDUZ
032131,001188: 15,2246 50120 INDEX FIXLOC
032132,001189: 15,2247 54003 TS 3
032133,001190: 15,2250 00003 RELINT
032134,001191: 15,2251 06030 TC DANZIG # +
032135,001192:
032136,001193: # NAME - GIMB
032137,001194:
032138,001195: # FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
|
|
Page 718 |
032140,001197:
032141,001198: # CALLING SEQUENCE - CALL GIMB
032142,001199:
032143,001200: # INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
032144,001201:
032145,001202: # OUTPUT - GIMBAL ANGLES LEFT IN THETAD, +1, +2 +
032146,001203:
032147,001204: # SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
032148,001205:
032149,001206: 16,2000 SETLOC P50S2
032150,001207: 16,2000 BANK
032151,001208: 16,2567 COUNT 14/INFLT
032152,001209:
032153,001210: 16,2567 41345 CALCSMSC DLOAD DMP
032154,001211: 16,2570 00737 SINCDUY
032155,001212: 16,2571 00747 COSCDUZ
032156,001213: 16,2572 77676 DCOMP
032157,001214: 16,2573 70525 PDDL SR1
032158,001215: 16,2574 00741 SINCDUZ
032159,001216: 16,2575 41325 PDDL DMP
032160,001217: 16,2576 00745 COSCDUY
032161,001218: 16,2577 00747 COSCDUZ
032162,001219: 16,2600 76466 VDEF VSL1
032163,001220: 16,2601 02714 STORE XNB
032164,001221: 16,2602 41345 DLOAD DMP
032165,001222: 16,2603 00743 SINCDUX
032166,001223: 16,2604 00741 SINCDUZ
032167,001224: 16,2605 77752 SL1
032168,001225: 16,2606 00033 STORE 26D
032169,001226: 16,2607 77605 DMP
032170,001227: 16,2610 00737 SINCDUY
032171,001228: 16,2611 41325 PDDL DMP
032172,001229: 16,2612 00751 COSCDUX
032173,001230: 16,2613 00745 COSCDUY
032174,001231: 16,2614 77625 DSU
032175,001232: 16,2615 41325 PDDL DMP
032176,001233: 16,2616 00743 SINCDUX
032177,001234: 16,2617 00747 COSCDUZ
032178,001235: 16,2620 77676 DCOMP
032179,001236: 16,2621 41325 PDDL DMP
032180,001237: 16,2622 00751 COSCDUX
032181,001238: 16,2623 00737 SINCDUY
032182,001239: 16,2624 41325 PDDL DMP
032183,001240: 16,2625 00745 COSCDUY
032184,001241: 16,2626 00033 26D
032185,001242: 16,2627 55415 DAD VDEF
032186,001243: 16,2630 77772 VSL1
032187,001244: 16,2631 02730 STORE ZNB
032188,001245: 16,2632 76435 VXV VSL1
032189,001246: 16,2633 02714 XNB
032190,001247: 16,2634 02722 STORE YNB
032191,001248: 16,2635 77616 RVQ
032192,001249:
032193,001250: # NAME - P51 - IMU ORIENTATION DETERMINATION
032194,001251: # MOD. NO. 2 21 DEC 66 LOG SECTION - P51-P53
032195,001252: # MOD BY STURLAUGSON ASSEMBLY SUNDISK REV15
|
|
Page 719 |
032197,001254:
032198,001255: # FUNCTIONAL DESCRIPTION
032199,001256: # DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
032200,001257: # ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
032201,001258: # THEN PROCESSED AS FOLLOWS.
032202,001259:
032203,001260: # 1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
032204,001261: # TRUNNION ANGLES, RESPECTIVELY. THEN,
032205,001262: # -
032206,001263: # V = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA)) (A COLUMN VECTOR)
032207,001264: # NB
032208,001265: # THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
032209,001266:
032210,001267: # 2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
032211,001268: # - T T T -
032212,001269: # V = Q *Q *Q *V , WHERE
032213,001270: # 1 2 3 NB
032214,001271:
032215,001272: # ( COS(IG) 0 -SIN(IG) )
032216,001273: # ( ) THE GIMBAL ANGLES ARE COMPUTED FROM
032217,001274: # Q = ( 0 1 0 ), IG= INNER GIMBAL ANGLE THE CDU COUNTERS AT NBSM (USING AXIS-
032218,001275: # 1 ( ) ROT AND CDULOGIC)
032219,001276: # ( SIN(IG) 0 COS(IG) )
032220,001277:
032221,001278: # ( COS(MG) SIN(MG) 0 )
032222,001279: # ( )
032223,001280: # Q = (-SIN(MG) COS(MG) 0 ), MG= MIDDLE GIMBAL ANGLE
032224,001281: # 2 ( )
032225,001282: # ( 0 0 1 )
032226,001283:
032227,001284: # ( 1 0 0 )
032228,001285: # ( )
032229,001286: # Q = ( 0 COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
032230,001287: # 3 ( )
032231,001288: # ( 0 -SIN(OG) COS(OG) )
032232,001289:
032233,001290: # 3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
032234,001291:
032235,001292: # 4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
032236,001293:
032237,001294: # 5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
032238,001295: # - -
032239,001296: # LET S AND S BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
032240,001297: # 1 2
032241,001298: # DEFINE, - -
|
|
Page 720 |
032243,001300: # U = S
032244,001301: # A A1
032245,001302: # - - -
032246,001303: # V = UNIT(S X S )
032247,001304: # A A1 A2
032248,001305: # - - -
032249,001306: # W = U X V
032250,001307: # A A A
032251,001308:
032252,001309: # AND
032253,001310: # - -
032254,001311: # U = S
032255,001312: # B B1
032256,001313: # - - -
032257,001314: # V = UNIT(S X S )
032258,001315: # B B1 B2
032259,001316: # - - -
032260,001317: # W = U X V
032261,001318: # B B B
032262,001319:
032263,001320: # THEN - - - -
032264,001321: # X = U *U + V *V + W *W
032265,001322: # B1 A B1 A B1 A
032266,001323: # - - - - (REFSMMAT)
032267,001324: # Y = U *U + V *V + W *W
032268,001325: # B2 A B2 A B2 A
032269,001326: # - - - -
032270,001327: # Z = U *U + V *V + W *W
032271,001328: # B3 A B3 A B3 A
032272,001329:
032273,001330: # THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032274,001331: # -
032275,001332: # S IN 6-11 OF THE VAC AREA
032276,001333: # A1
032277,001334: # -
032278,001335: # S IN 12-17 OF THE VAC AREA
032279,001336: # A2
032280,001337: # -
032281,001338: # S IN STARAD
032282,001339: # B1
032283,001340: # -
|
|
Page 721 |
032285,001342: # S IN STARAD +6
032286,001343: # B2
032287,001344:
032288,001345: # CALLING SEQUENCE
032289,001346:
032290,001347: # THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032291,001348:
032292,001349: # SUBROUTINES CALLED.
032293,001350:
032294,001351: # GOPERF3
032295,001352: # GOPERF1R
032296,001353: # GODSPR
032297,001354: # IMUCOARS
032298,001355: # IMUFIN20
032299,001356: # R53
032300,001357: # SXTNB
032301,001358: # NBSM
032302,001359: # MKRELEAS
032303,001360: # CHKSDATA
032304,001361: # MATMOVE
032305,001362:
032306,001363: # ALARMS
032307,001364:
032308,001365: # NONE.
032309,001366:
032310,001367: # ERASABLE INITIALIZATION
032311,001368:
032312,001369: # IMU ZERO FLAG SHOULD BE SET.
032313,001370:
032314,001371: # OUTPUT
032315,001372:
032316,001373: # REFSMMAT
032317,001374: # REFSMFLG
032318,001375:
032319,001376: # DEBRIS
032320,001377:
032321,001378: # WORK AREA
032322,001379: # STARAD
032323,001380: # STARIND
032324,001381: # BESTI
032325,001382: # BESTJ
032326,001383:
032327,001384: 14,2000 SETLOC P50S1
032328,001385: 14,2000 BANK
032329,001386: 14,3054 COUNT 14/P5153
032330,001387:
032331,001388: 14,3054 14,3054 P53 EQUALS P51
032332,001389: 14,3054 41320 P51 CS IMODES30
032333,001390: 14,3055 74702 MASK BIT9
032334,001391: 14,3056 10000 CCS A
032335,001392: 14,3057 03063 TC P51A
|
|
Page 722 |
032337,001394: 14,3060 05537 TC ALARM
032338,001395: 14,3061 00210 OCT 210
032339,001396: 14,3062 04106 TC GOTOPOOH
032340,001397: 14,3063 04555 P51A TC BANKCALL
032341,001398: 14,3064 17607 CADR R02ZERO
032342,001399:
032343,001400: 14,3065 34720 P51AA CAF PRFMSTAQ
032344,001401: 14,3066 04555 TC BANKCALL
032345,001402: 14,3067 20751 CADR GOPERF1
032346,001403: 14,3070 04106 TC GOTOPOOH # TERM.
032347,001404: 14,3071 03134 TC P51B # V33
032348,001405: 14,3072 05301 TC PHASCHNG
032349,001406: 14,3073 05024 OCT 05024
032350,001407: 14,3074 13000 OCT 13000
032351,001408:
032352,001409: 14,3075 34714 CAF P51ZERO
032353,001410: 14,3076 55155 TS THETAD # ZERO THE GIMBALS
032354,001411: 14,3077 55156 TS THETAD +1
032355,001412: 14,3100 55157 TS THETAD +2
032356,001413: 14,3101 33261 CAF V6N22
032357,001414: 14,3102 04555 TC BANKCALL
032358,001415: 14,3103 20577 CADR GODSPRET
032359,001416: 14,3104 33262 CAF V41K # NOW DISPLAY COARSE ALIGN VERB 41
032360,001417: 14,3105 04555 TC BANKCALL
032361,001418: 14,3106 20577 CADR GODSPRET
032362,001419: 14,3107 04555 TC BANKCALL
032363,001420: 14,3110 16602 CADR IMUCOARS
032364,001421: 14,3111 04555 TC BANKCALL
032365,001422: 14,3112 17516 CADR IMUSTALL
032366,001423: 14,3113 05644 TC CURTAINS # CAGING OR BAD END
032367,001424: 14,3114 04555 TC BANKCALL # SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
032368,001425: 14,3115 17012 CADR IMUFIN20 # AND 20 SECS. DIRECT RETURN AND NO STALL,
032369,001426: 14,3116 04555 TC BANKCALL # IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
032370,001427: 14,3117 17516 CADR IMUSTALL # IF PUT TO SLEEP, IMUFINED WILL WAKE US
032371,001428: 14,3120 05644 TC CURTAINS # UP.
032372,001429: 14,3121 06006 TC INTPRET
032373,001430: 14,3122 77234 RTB VLOAD
032374,001431: 14,3123 31263 SET1/PDT
032375,001432: 14,3124 11456 ZEROVEC
032376,001433: 14,3125 01472 STORE GCOMP
032377,001434: 14,3126 77414 SET EXIT
032378,001435: 14,3127 01060 DRIFTFLG
032379,001436: 14,3130 05301 TC PHASCHNG
032380,001437: 14,3131 05024 OCT 05024
032381,001438: 14,3132 13000 OCT 13000
032382,001439: 14,3133 13065 TCF P51AA # COARSE ALIGN DONE - RECYCLE FOR FINE
|
|
Page 723 |
032384,001441: # DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
032385,001442: 14,3134 05301 P51B TC PHASCHNG
032386,001443: 14,3135 00014 OCT 00014
032387,001444: 14,3136 06006 TC INTPRET
032388,001445: 14,3137 40331 SSP SETPD
032389,001446: 14,3140 00305 STARIND # INDEX - STAR 1 OR 2
032390,001447: 14,3141 00000 0
032391,001448: 14,3142 00001 0
032392,001449: 14,3143 77414 CLEAR EXIT
032393,001450: 14,3144 00666 TARG2FLG # SHOW STAR MARK-NOT LAND MARK
032394,001451: 14,3145 34712 CAF BIT1
032395,001452: 14,3146 54301 TS MARKINDX # INITIALIZE FOR ONE MARK
032396,001453:
032397,001454: 14,3147 05301 P51C TC PHASCHNG
032398,001455: 14,3150 05024 OCT 05024
032399,001456: 14,3151 13000 OCT 13000
032400,001457: 14,3152 05253 TC CHECKMM
032401,001458: 14,3153 00065 MM 53 B-14 # BACKUP PROGRAM
032402,001459: 14,3154 13162 TCF P51C.1 # NOT P53
032403,001460: 14,3155 06006 TC INTPRET
032404,001461: 14,3156 77624 CALL
032405,001462: 14,3157 32252 R56
032406,001463: 14,3160 77650 GOTO
032407,001464: 14,3161 31165 P51C.2
032408,001465: 14,3162 06006 P51C.1 TC INTPRET
032409,001466: 14,3163 77624 CALL
032410,001467: 14,3164 31322 R53 # SIGHTING ROUTINE
032411,001468: 14,3165 77624 P51C.2 CALL # COMPUTE LOS IN SM FROM MARK DATA
032412,001469: 14,3166 31266 SXTSM
032413,001470: 14,3167 77606 PUSH
032414,001471: 14,3170 53135 SLOAD BZE
032415,001472: 14,3171 00305 STARIND
032416,001473: 14,3172 31177 P51D
032417,001474: 14,3173 45575 VLOAD STADR
032418,001475: 14,3174 75160 STORE STARSAV2 # DOWNLINK
032419,001476: 14,3175 77650 GOTO
032420,001477: 14,3176 31205 P51E
032421,001478: 14,3177 45575 P51D VLOAD STADR
032422,001479: 14,3200 61166 STODL STARSAV1
032423,001480: 14,3201 02607 TSIGHT
032424,001481: 14,3202 77624 CALL
032425,001482: 14,3203 32363 PLANET
032426,001483: 14,3204 02601 STORE PLANVEC
032427,001484: 14,3205 77776 P51E EXIT
032428,001485: 14,3206 05301 TC PHASCHNG
032429,001486: 14,3207 05024 OCT 05024
032430,001487: 14,3210 13000 OCT 13000
032431,001488: 14,3211 04555 TC BANKCALL
032432,001489: 14,3212 16063 CADR MKRELEAS # ZERO MARKSTAT
|
|
Page 724 |
032434,001491: 14,3213 10304 CCS STARIND
032435,001492: 14,3214 13223 TCF P51F # STAR 2
032436,001493: 14,3215 05301 TC PHASCHNG
032437,001494: 14,3216 05024 OCT 05024
032438,001495: 14,3217 13000 OCT 13000
032439,001496: 14,3220 34712 CAF BIT1
032440,001497: 14,3221 54304 TS STARIND
032441,001498: 14,3222 13147 TCF P51C # GO DO SECOND STAR
032442,001499: 14,3223 05301 P51F TC PHASCHNG
032443,001500: 14,3224 05024 OCT 05024
032444,001501: 14,3225 13000 OCT 13000
032445,001502: 14,3226 06006 TC INTPRET
032446,001503: 14,3227 45145 DLOAD CALL
032447,001504: 14,3230 02607 TSIGHT
032448,001505: 14,3231 32363 PLANET
032449,001506: 14,3232 24015 STOVL 12D
032450,001507: 14,3233 02601 PLANVEC
032451,001508: 14,3234 24007 STOVL 6D
032452,001509: 14,3235 02611 STARSAV1
032453,001510: 14,3236 26736 STOVL STARAD
032454,001511: 14,3237 02617 STARSAV2
032455,001512: 14,3240 36744 STCALL STARAD +6
032456,001513: 14,3241 30702 CHKSDATA # CHECK STAR ANGLES IN STARAD AND
032457,001514: 14,3242 77414 BON EXIT
032458,001515: 14,3243 00314 FREEFLAG
032459,001516: 14,3244 31246 P51G
032460,001517: 14,3245 03065 TC P51AA
032461,001518: 14,3246 77624 P51G CALL
032462,001519: 14,3247 47334 AXISGEN # COME BACK WITH REFSMMAT IN XDC
032463,001520: 14,3250 75160 AXC,1 AXC,2
032464,001521: 14,3251 02713 XDC
032465,001522: 14,3252 01735 REFSMMAT
032466,001523: 14,3253 45014 CLEAR CALL
032467,001524: 14,3254 01662 REFSMFLG
032468,001525: 14,3255 31040 MATMOVE
032469,001526: 14,3256 52014 SET GOTO
032470,001527: 14,3257 01462 REFSMFLG
032471,001528: 14,3260 32143 ENDP50S
032472,001529: 14,3261 4720 PRFMSTAQ = OCT15
032473,001530: 14,3261 4714 P51ZERO = ZERO
032474,001531: 14,3261 4715 P51FIVE = FIVE
032475,001532: 14,3261 01426 V6N22 VN 0622
032476,001533: 14,3262 12200 V41K VN 4100
032477,001534:
032478,001535: 14,3263 30025 SET1/PDT CA TIME1
032479,001536: 14,3264 55074 TS 1/PIPADT
032480,001537: 14,3265 16030 TCF DANZIG
032481,001538:
|
|
Page 725 |
032483,001540: # SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
032484,001541:
032485,001542: 14,3266 77620 SXTSM STQ
032486,001543: 14,3267 00300 QMAJ
032487,001544: 14,3270 70740 LXC,1 DLOAD*
032488,001545: 14,3271 01330 MARKSTAT
032489,001546: 14,3272 00001 0D,1
032490,001547: 14,3273 02607 STORE TSIGHT
032491,001548: 14,3274 66744 LXC,2 SLOAD*
032492,001549: 14,3275 00304 STARIND
032493,001550: 14,3276 46456 MKDNCDR,2
032494,001551: 14,3277 76744 LXC,2 VLOAD*
032495,001552: 14,3300 00154 MPAC
032496,001553: 14,3301 00001 0,1
032497,001554: 14,3302 10001 STORE 0,2
032498,001555: 14,3303 77743 DLOAD*
032499,001556: 14,3304 00006 5,1
032500,001557: 14,3305 10006 STORE 5,2
032501,001558: 14,3306 77624 CALL
032502,001559: 14,3307 46000 SXTNB # COMPUTE LOS VECTOR FROM OCDU IN MKVAC
032503,001560: 14,3310 62150 LXA,1 INCR,1
032504,001561: 14,3311 01330 MARKSTAT
032505,001562: 14,3312 00002 2 # INCREMENT TO BASE ADR OF ICDU
032506,001563: 14,3313 45130 SXA,1 CALL
032507,001564: 14,3314 00050 S1
032508,001565: 14,3315 47541 NBSM # TRANSFORM LOS TO SM
032509,001566: 14,3316 77650 GOTO
032510,001567: 14,3317 00300 QMAJ
032511,001568: 14,3320 03674 MKDNCDR ECADR MARKDOWN
032512,001569: 14,3321 03502 ECADR MARK2DWN
032513,001570:
|
|
Page 726 |
032515,001572: # PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
032516,001573: # MOD. NO. 2 21 DEC 66
032517,001574: # MOD BY STURLAUGSON
032518,001575:
032519,001576: # FUNCTIONAL DESCRIPTION
032520,001577:
032521,001578: # TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
032522,001579: # CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
032523,001580: # OCDUS) AND THE TIME OF THE MARK.
032524,001581:
032525,001582: # CALLING SEQUENCE
032526,001583:
032527,001584: # R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
032528,001585: # THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
032529,001586:
032530,001587: # SUBROUTINES CALLED
032531,001588: #
032532,001589: # SXTMARK
032533,001590: # OPTSTALL
032534,001591: # GOFLASH
032535,001592:
032536,001593: # ERASABLE INITIALIZATION
032537,001594:
032538,001595: # TARGET FLAG - STAR OR LANDMARK
032539,001596: # MARKINDX - NUMBER OF MARKS WANTED
032540,001597: # STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
032541,001598:
032542,001599: # OUTPUT
032543,001600:
032544,001601: # MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
032545,001602: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
032546,001603:
032547,001604: # DEBRIS
032548,001605:
032549,001606: # MARKINDX CONTAINS NUMBER OF MARKS DESIRED
032550,001607:
032551,001608: 14,2000 SETLOC RT53
032552,001609: 14,2000 BANK
032553,001610:
032554,001611: 14,3322 COUNT 14/R53
032555,001612:
032556,001613: 14,3322 43020 R53 STQ SET # SET SIGHTING MARK FLAG
032557,001614: 14,3323 03501 R53EXIT
032558,001615: 14,3324 00071 R53FLAG
032559,001616: 14,3325 77776 EXIT
032560,001617: 14,3326 30301 R53A CA MARKINDX # NUMBER OF MARKS
032561,001618: 14,3327 74716 MASK LOW3
032562,001619: 14,3330 04555 TC BANKCALL
032563,001620: 14,3331 16002 CADR SXTMARK
032564,001621: 14,3332 04555 TC BANKCALL
032565,001622: 14,3333 17512 CADR OPTSTALL
032566,001623: 14,3334 05644 TC CURTAINS
032567,001624: 14,3335 51330 INDEX MARKSTAT
032568,001625: 14,3336 10052 CCS QPRET # NUMBER OF MARKS ACTUALLY DONE
032569,001626: 14,3337 13350 TCF R53B
032570,001627: 14,3340 13342 TCF +2 # ZERO
032571,001628: 14,3341 13342 TCF +1 # CCS HOLE
032572,001629: 14,3342 34714 CAF ZERO # HOUSEKEEP VAC AREA SAVE
032573,001630: 14,3343 57330 XCH MARKSTAT # AND MARKSTAT
|
|
Page 727 |
032575,001632: 14,3344 10000 CCS A
032576,001633: 14,3345 50000 INDEX A
032577,001634: 14,3346 54000 TS 0
032578,001635: 14,3347 13326 TCF R53A
032579,001636: 14,3350 05253 R53B TC CHECKMM
032580,001637: 14,3351 00026 MM 22 B-14
032581,001638: 14,3352 13354 TCF +2
032582,001639: 14,3353 13400 TCF R53D
032583,001640: 14,3354 05253 TC CHECKMM
032584,001641: 14,3355 00027 MM 23 B-14
032585,001642: 14,3356 13360 TCF R53C
032586,001643: 14,3357 13400 TCF R53D
032587,001644: 14,3360 33404 R53C CAF V01N71
032588,001645: 14,3361 04555 TC BANKCALL
032589,001646: 14,3362 20763 CADR GOFLASHR
032590,001647: 14,3363 04106 TC GOTOPOOH # TERM.
032591,001648: 14,3364 13371 TCF R53Z
032592,001649: 14,3365 03360 TC R53C # RECYCLE
032593,001650: 14,3366 36211 CAF SIX
032594,001651: 14,3367 05415 TC BLANKET
032595,001652: 14,3370 05112 TC ENDOFJOB
032596,001653: 14,3371 47713 R53Z CS HIGH9
032597,001654: 14,3372 70735 MASK STARCODE
032598,001655: 14,3373 00006 EXTEND
032599,001656: 14,3374 76211 MP SIGHTSIX
032600,001657: 14,3375 56001 XCH L
032601,001658: 14,3376 50304 INDEX STARIND
032602,001659: 14,3377 54302 TS BESTI
032603,001660: 14,3400 06006 R53D TC INTPRET
032604,001661: 14,3401 77614 R53OUT SETGO
032605,001662: 14,3402 03420 TERMIFLG # SET TERMINATE FOR R52
032606,001663: 14,3403 03501 R53EXIT
032607,001664: 14,3404 6211 SIGHTSIX = SIX
032608,001665: 14,3404 00307 V01N71 VN 0171
032609,001666:
|
|
Page 728 |
032611,001668: # NAME - S52.2
032612,001669: # FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
032613,001670: # CALL - CALL S52.2
032614,001671: # INPUT - X,Y,ZSMD
032615,001672: # OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
032616,001673: # SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
032617,001674:
032618,001675: 11,2000 SETLOC S52/2
032619,001676: 11,2000 BANK
032620,001677:
032621,001678: 11,2256 COUNT 13/S52.2
032622,001679:
032623,001680: 11,2256 77620 S52.2 STQ
032624,001681: 11,2257 00300 QMAJ
032625,001682: 11,2260 77624 CALL
032626,001683: 11,2261 47432 CDUTRIG
032627,001684: 11,2262 77624 CALL
032628,001685: 11,2263 34567 CALCSMSC
032629,001686: 11,2264 66370 AXT,1 SSP
032630,001687: 11,2265 00022 18D
032631,001688: 11,2266 00051 S1
032632,001689: 11,2267 00006 6D
032633,001690: 11,2270 61373 S52.2A VLOAD* VXM
032634,001691: 11,2271 02736 XNB +18D,1
032635,001692: 11,2272 01736 REFSMMAT
032636,001693: 11,2273 77656 UNIT
032637,001694: 11,2274 06736 STORE XNB +18D,1
032638,001695: 11,2275 77700 TIX,1
032639,001696: 11,2276 22270 S52.2A
032640,001697: 11,2277 75160 S52.2.1 AXC,1 AXC,2
032641,001698: 11,2300 00306 XSMD
032642,001699: 11,2301 02671 XSM
032643,001700: 11,2302 77624 CALL
032644,001701: 11,2303 31040 MATMOVE
032645,001702: 11,2304 77624 CALL
032646,001703: 11,2305 47244 CALCGA
032647,001704: 11,2306 77650 GOTO
032648,001705: 11,2307 00300 QMAJ
032649,001706:
|
|
Page 729 |
032651,001708: # PROGRAM NAME - SR52.1 DATE DEC 20 66
032652,001709: # MOD 1 LOG SEC P51-P53
032653,001710: # BY KEN VINCENT ASSEMBLY SUNDISK REV 40
032654,001711:
032655,001712: # FUNCTION
032656,001713:
032657,001714: # TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
032658,001715: # LEM, STAR OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
032659,001716: # 2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS
032660,001717: # THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
032661,001718: # THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
032662,001719: # POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
032663,001720: # COMMON PART OF THIS PROGRAM.
032664,001721:
032665,001722: # IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
032666,001723: # VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
032667,001724: # FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
032668,001725: # THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
032669,001726: # VECTOR FOR THE COMMON PART OF THIS ROUTINE.
032670,001727:
032671,001728: # IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
032672,001729: # AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
032673,001730:
032674,001731: # THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
032675,001732: # VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
032676,001733: # THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
032677,001734: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 38DEG.
032678,001735: # MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
032679,001736:
032680,001737: # CALLING SEQUENCE
032681,001738:
032682,001739: # L+4 RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
032683,001740: # L TC BANKCALL
032684,001741: # L+1 CADR SR52.1
032685,001742: # L+2 ERROR RETURN TRUNNION GREATER THAN 90 DEG
032686,001743: # L&3 ERROR RETURN TRUNNION GREATER THAN 50 DEG
032687,001744: # L+4 NORMAL RETURN
032688,001745:
032689,001746: # OUTPUT
032690,001747:
032691,001748: # SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
032692,001749: # PAC -SINGLE PREC, 2S COMP SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
032693,001750:
032694,001751: # INITIALIZATION
032695,001752:
032696,001753: # IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
032697,001754:
032698,001755: # IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
032699,001756: # 0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
032700,001757: # ARE 6 TIMES STAR NUMBER.
032701,001758:
032702,001759: # IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SEE ROUTINE
032703,001760: # LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
032704,001761: # RADIUS
032705,001762:
032706,001763: # DEBRIS
032707,001764:
032708,001765: # WORK AREA
032709,001766: # STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
032710,001767:
032711,001768: 11,2310 COUNT* $$/SR521
|
|
Page 730 |
032713,001770: 13,2000 SETLOC SR52/1
032714,001771: 13,2000 BANK
032715,001772:
032716,001773: 13,2176 04604 SR52.1 TC MAKECADR
032717,001774: 13,2177 55777 TS QMIN
032718,001775: 13,2200 06006 TC INTPRET
032719,001776: 13,2201 43234 RTB DAD
032720,001777: 13,2202 45505 LOADTIME
032721,001778: 13,2203 26317 1.3SECDP
032722,001779: 13,2204 02356 STORE AOPTIME
032723,001780: 13,2205 43014 BON BON
032724,001781: 13,2206 00705 TARG1FLG
032725,001782: 13,2207 26214 LEM52
032726,001783: 13,2210 00706 TARG2FLG
032727,001784: 13,2211 26224 LMK52
032728,001785: 13,2212 77650 GOTO
032729,001786: 13,2213 26245 STAR52
032730,001787: 13,2214 77745 LEM52 DLOAD
032731,001788: 13,2215 02356 AOPTIME
032732,001789: 13,2216 34041 STCALL TDEC1
032733,001790: 13,2217 27057 LEMCONIC
032734,001791: 13,2220 77775 VLOAD
032735,001792: 13,2221 00001 RATT
032736,001793: 13,2222 77650 GOTO
032737,001794: 13,2223 26234 LMKLMCOM
032738,001795: 13,2224 71214 LMK52 BON DLOAD
032739,001796: 13,2225 04305 ADVTRK
032740,001797: 13,2226 54000 ADVTRACK
032741,001798: 13,2227 02356 AOPTIME
032742,001799: 13,2230 77624 CALL
032743,001800: 13,2231 26373 LALOTORV
032744,001801: 13,2232 77775 VLOAD
032745,001802: 13,2233 02152 ALPHAV
032746,001803: 13,2234 16766 LMKLMCOM STODL STAR
032747,001804: 13,2235 02356 AOPTIME
032748,001805: 13,2236 34041 STCALL TDEC1
032749,001806: 13,2237 27045 CSMCONIC
032750,001807: 13,2240 52375 VLOAD VSU
032751,001808: 13,2241 02766 STAR
032752,001809: 13,2242 00001 RATT
032753,001810: 13,2243 52056 UNIT GOTO
032754,001811: 13,2244 26260 COM52
032755,001812: 13,2245 72131 STAR52 SSP LXA,1
032756,001813: 13,2246 00051 S1
032757,001814: 13,2247 00000 0
032758,001815: 13,2250 00304 STARIND
032759,001816: 13,2251 77700 TIX,1
032760,001817: 13,2252 26256 ST52ST
032761,001818: 13,2253 52175 VLOAD GOTO
032762,001819: 13,2254 02617 STARSAV2
|
|
Page 731 |
032764,001821: 13,2255 26260 COM52
032765,001822: 13,2256 77775 ST52ST VLOAD
032766,001823: 13,2257 02611 STARSAV1
032767,001824: 13,2260 53521 COM52 MXV UNIT
032768,001825: 13,2261 01736 REFSMMAT
032769,001826: 13,2262 02766 STORE STAR
032770,001827: 13,2263 45001 SETPD CALL
032771,001828: 13,2264 00001 0
032772,001829: 13,2265 47432 CDUTRIG # COMPUTES SINES AND COSINES FOR CALCSXA
032773,001830: 13,2266 77624 CALL # NOW EXPECT TO SEE THE CDU ANGLES.
032774,001831: 13,2267 46034 CALCSXA
032775,001832: 13,2270 77414 BOFF EXIT
032776,001833: 13,2271 01750 CULTFLAG
032777,001834: 13,2272 26274 TRUN38
032778,001835: 13,2273 02312 TC SR52E1
032779,001836: 13,2274 45345 TRUN38 DLOAD DSU
032780,001837: 13,2275 02776 PAC
032781,001838: 13,2276 26315 38TRDEG
032782,001839: 13,2277 71244 BPL DLOAD
032783,001840: 13,2300 26305 SR52E22
032784,001841: 13,2301 02776 PAC
032785,001842: 13,2302 51025 DSU BPL
032786,001843: 13,2303 26321 20DEGSMN
032787,001844: 13,2304 26307 SR52E3
032788,001845: 13,2305 77776 SR52E22 EXIT
032789,001846: 13,2306 02311 TC SR52E2
032790,001847: 13,2307 77776 SR52E3 EXIT
032791,001848: 13,2310 25777 INCR QMIN
032792,001849: 13,2311 25777 SR52E2 INCR QMIN
032793,001850: 13,2312 31777 SR52E1 CA QMIN
032794,001851: 13,2313 04561 TC SWCALL
032795,001852:
032796,001853: 13,2314 25252 25254 38TRDEG 2DEC .66666667 # CORESPONDS TO 50 DEGS IN TRUNION
032797,001854: 13,2316 00000 00202 1.3SECDP 2DEC 130 B-28
032798,001855: 13,2320 61740 20DEGSMN DEC -07199 B-14
032799,001856: 13,2321 77777 DEC -0 B-14
032800,001857:
|
|
Page 732 |
032802,001859: # THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
032803,001860: # A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
032804,001861: # OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
032805,001862:
032806,001863: 26,2000 SETLOC 26P50S
032807,001864: 26,2000 BANK
032808,001865:
032809,001866: 26,2000 77601 ADVTRACK SETPD
032810,001867: 26,2001 00001 0
032811,001868: 26,2002 41575 VLOAD PUSH # INITIALIZE FOR RP-TO-R
032812,001869: 26,2003 15324 UNITZ # UZ VEC IN PD 0-5
032813,001870: 26,2004 41434 RTB PUSH # TIME IN PD 6-7
032814,001871: 26,2005 45505 LOADTIME
032815,001872: 26,2006 36356 STCALL AOPTIME # TIME ALSO IN AOPTIME FOR CSMCONIC
032816,001873: 26,2007 55341 RP-TO-R # GET MOON ROTATION VEC IN REF
032817,001874: 26,2010 16766 STODL STAR
032818,001875: 26,2011 02356 AOPTIME # PICK UP TIME
032819,001876: 26,2012 34041 STCALL TDEC1 # UPDATE STATE TO TIME
032820,001877: 26,2013 27045 CSMCONIC
032821,001878: 26,2014 47375 VLOAD VXV
032822,001879: 26,2015 00007 VATT
032823,001880: 26,2016 00001 RATT
032824,001881: 26,2017 77656 UNIT
032825,001882: 26,2020 24031 STOVL 24D # SAVE -UNIT(V X R) FOR 2ND ROTATION
032826,001883: 26,2021 00001 RATT
032827,001884: 26,2022 57456 UNIT VCOMP
032828,001885: 26,2023 41401 SETPD PUSH # PUSH LOS=-UNIT(RVEC) PD 0-5
032829,001886: 26,2024 00001 0
032830,001887: 26,2025 77776 EXIT
032831,001888: 26,2026 31751 CA LANDMARK
032832,001889: 26,2027 74716 MASK SEVEN # GET NUMBER OF ADVANCE PERIODS
032833,001890: 26,2030 00006 EXTEND
032834,001891: 26,2031 74700 MP BIT11 # GET N/16
032835,001892: 26,2032 56001 XCH L
032836,001893: 26,2033 50120 INDEX FIXLOC
032837,001894: 26,2034 54036 TS 30D # TEMP STORE N/16
032838,001895: 26,2035 06006 TC INTPRET
032839,001896: 26,2036 41335 SLOAD DMP
032840,001897: 26,2037 00037 30D
032841,001898: 26,2040 14107 MPERIOD
032842,001899: 26,2041 36356 STCALL AOPTIME # ROTATE ANG ABOUT UR
032843,001900: 26,2042 54057 ROTA
032844,001901: 26,2043 77775 VLOAD
032845,001902: 26,2044 00031 24D # PICK UP 2ND ROTATION AXIS
032846,001903: 26,2045 16766 STODL STAR
032847,001904: 26,2046 14105 DP1/6
032848,001905: 26,2047 77625 DSU
032849,001906: 26,2050 02356 AOPTIME # 2ND RAT ANGLE = 60 - A
032850,001907: 26,2051 36356 STCALL AOPTIME
032851,001908: 26,2052 54057 ROTA # GO ROTATE 2ND TIME
032852,001909: 26,2053 77775 VLOAD
|
|
Page 733 |
032854,001911: 26,2054 00001 0
032855,001912: 26,2055 36766 STCALL STAR # STORE FINAL LOS IN STAR
032856,001913: 26,2056 26260 COM52 # RETURN TO SR52.1
032857,001914:
032858,001915: 26,2057 73545 ROTA DLOAD SIN
032859,001916: 26,2060 02356 AOPTIME
032860,001917: 26,2061 47315 PDVL VXV # PUSH 1/2SIN(A) PD 6-7
032861,001918: 26,2062 02766 STAR # UR VEC
032862,001919: 26,2063 00001 0 # LOS
032863,001920: 26,2064 72561 VXSC VSL2 # 1/2SIN(A)(URXLOS) PD 6-11
032864,001921: 26,2065 50315 PDVL DOT
032865,001922: 26,2066 02766 STAR
032866,001923: 26,2067 00001 0
032867,001924: 26,2070 72561 VXSC VSL2
032868,001925: 26,2071 02766 STAR
032869,001926: 26,2072 71525 PDDL COS # 1/2(UR . LOS)UR 12-17
032870,001927: 26,2073 02356 AOPTIME
032871,001928: 26,2074 51315 PDVL BVSU # PUSH 1/2COS(A) 18-19
032872,001929: 26,2075 00015 12D
032873,001930: 26,2076 00001 0
032874,001931: 26,2077 76561 VXSC VSL1 # UP 18-19
032875,001932: 26,2100 53255 VAD VAD # UP 12-17 UP 6-11
032876,001933: 26,2101 40256 UNIT SETPD
032877,001934: 26,2102 00001 0
032878,001935: 26,2103 43406 PUSH RVQ
032879,001936:
032880,001937: 26,2104 05252 25251 DP1/6 2DEC .16666666
032881,001938: 26,2106 01414 06044 MPERIOD 2DEC .047619 # APPROX LUNAR ROT ANG IN 2HRS X 16
032882,001939:
|
|
Page 734 |
032884,001941: # NAME - S52.3
032885,001942: # FUNCTION - XSMD= UNIT(YSMD X ZSMD)
032886,001943: # YSMD= UNIT(V X R)
032887,001944: # ZSMD= UNIT(-R)
032888,001945: # CALL DLOAD CALL
032889,001946: # TALIGN
032890,001947: # S52.3
032891,001948: # INPUT - TIME OF ALIGNMENT IN MPAC
032892,001949: # OUTPUT - X,Y,ZSMD
032893,001950: # SUBROUTINES - CSMCONIC
032894,001951:
032895,001952: 16,2000 SETLOC P50S2
032896,001953: 16,2000 BANK
032897,001954:
032898,001955: 16,2636 COUNT 15/S52.3
032899,001956:
032900,001957: 16,2636 77620 S52.3 STQ
032901,001958: 16,2637 00300 QMAJ
032902,001959: 16,2640 34041 STCALL TDEC1
032903,001960: 16,2641 27045 CSMCONIC
032904,001961: 16,2642 77601 SETPD
032905,001962: 16,2643 00001 0
032906,001963: 16,2644 57575 VLOAD VCOMP
032907,001964: 16,2645 00001 RATT
032908,001965: 16,2646 77656 UNIT
032909,001966: 16,2647 24323 STOVL ZSMD
032910,001967: 16,2650 00007 VATT
032911,001968: 16,2651 53435 VXV UNIT
032912,001969: 16,2652 00001 RATT
032913,001970: 16,2653 00315 STORE YSMD
032914,001971: 16,2654 53435 VXV UNIT
032915,001972: 16,2655 00323 ZSMD
032916,001973: 16,2656 34307 STCALL XSMD
032917,001974: 16,2657 00300 QMAJ
032918,001975:
|
|
Page 735 |
032920,001977: # PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
032921,001978:
032922,001979: # FUNCTIONAL DESCRIPTION
032923,001980:
032924,001981: # TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54). THE ASTRONAUT KNOWS THE
032925,001982: # COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE. WHEN THE ASTRONAUT KEYS IN
032926,001983: # ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
032927,001984: # IN N92.
032928,001985:
032929,001986: # CALLING SEQUENCE
032930,001987:
032931,001988: # CALL
032932,001989: # R56
032933,001990:
032934,001991: # SUBROUTINES CALLED
032935,001992:
032936,001993: # A PORTION OF SXTMARK (VAC.AREA SEARCH)
032937,001994: # GOFLASH
032938,001995: # GOPERF1
032939,001996:
032940,001997: # ERASABLE INITIALIZATION
032941,001998:
032942,001999: # STARIND-INDEX TO STAR NUMBER
032943,002000:
032944,002001: # OUTPUT
032945,002002:
032946,002003: # MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
032947,002004: # BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
032948,002005: # ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
032949,002006: # VAC +2 CDUY
032950,002007: # VAC +3 CDUS
032951,002008: # VAC +4 CDUZ
032952,002009: # VAC +5 CDUT
032953,002010: # VAC +6 CDUX
032954,002011:
032955,002012: 16,2660 COUNT* $$/R56
032956,002013: 15,2000 SETLOC P50S
032957,002014: 15,2000 BANK
032958,002015: 15,2252 77776 R56 EXIT
032959,002016: 15,2253 32362 CAF V06N94B
032960,002017: 15,2254 04555 TC BANKCALL
032961,002018: 15,2255 20624 CADR GOFLASH
032962,002019: 15,2256 04106 TC GOTOPOOH # TERM.
032963,002020: 15,2257 02261 TC R56A # PROCEED - ANGLES OK
032964,002021: 15,2260 02253 TC -5 # ENTER - NEW ANGLES
032965,002022: 15,2261 04555 R56A TC BANKCALL
032966,002023: 15,2262 16004 CADR SXTMARK +2 # INHIBIR EXT VB ACT AND FIND VAC AREA
032967,002024:
032968,002025: 15,2263 34714 CAF ZERO
032969,002026: 15,2264 04555 TC BANKCALL
032970,002027: 15,2265 20607 CADR CLEANDSP
032971,002028:
032972,002029: 15,2266 32360 CAF VB53 # DISPLAY V53 REQUESTING ALTERNATE MARK
032973,002030: 15,2267 04555 TC BANKCALL
032974,002031: 15,2270 20470 CADR GOMARK2
|
|
Page 736 |
032976,002033: 15,2271 14106 TCF GOTOPOOH # V34-TERMINATE
032977,002034: 15,2272 12263 TCF R56A +2 # V33-DONT PROCEED - JUST ENTER TO MARK
032978,002035: 15,2273 06006 TC INTPRET
032979,002036: 15,2274 77745 DLOAD
032980,002037: 15,2275 03731 MRKBUF1 +3
032981,002038: 15,2276 16774 STODL SAC
032982,002039: 15,2277 03733 MRKBUF1 +5
032983,002040: 15,2300 02776 STORE PAC
032984,002041: 15,2301 77776 EXIT
032985,002042: 15,2302 00004 INHINT
032986,002043: 15,2303 00006 EXTEND
032987,002044: 15,2304 30025 DCA TIME2
032988,002045: 15,2305 51330 INDEX MARKSTAT
032989,002046: 15,2306 52001 DXCH 0
032990,002047: 15,2307 30033 CA CDUY # ENTER-THIS IS A BACKUP SYSTEM MARK
032991,002048: 15,2310 51330 INDEX MARKSTAT
032992,002049: 15,2311 54002 TS 2
032993,002050: 15,2312 31773 CA SAC
032994,002051: 15,2313 51330 INDEX MARKSTAT
032995,002052: 15,2314 54003 TS 3
032996,002053: 15,2315 30034 CA CDUZ
032997,002054: 15,2316 51330 INDEX MARKSTAT
032998,002055: 15,2317 54004 TS 4
032999,002056: 15,2320 31775 CA PAC
033000,002057: 15,2321 51330 INDEX MARKSTAT
033001,002058: 15,2322 54005 TS 5
033002,002059: 15,2323 30032 CA CDUX
033003,002060: 15,2324 51330 INDEX MARKSTAT
033004,002061: 15,2325 54006 TS 6
033005,002062: 15,2326 00003 RELINT
033006,002063: 15,2327 05425 TC CLEARMRK # ENABLE EXTENDED VERBS
033007,002064: 15,2330 34333 CAF OCT16
033008,002065: 15,2331 04555 TC BANKCALL
033009,002066: 15,2332 20751 CADR GOPERF1
033010,002067: 15,2333 04106 TC GOTOPOOH # TERM.
033011,002068: 15,2334 12336 TCF R56B # PROCEED-MARK COMPLETED
033012,002069: 15,2335 12263 TCF R56A +2 # RECYCLE-DO ANOTHER MARK - LIKE REJECT
033013,002070: 15,2336 34714 R56B CAF ZERO
033014,002071: 15,2337 04555 TC BANKCALL
033015,002072: 15,2340 20607 CADR CLEANDSP
033016,002073:
033017,002074: 15,2341 32361 CAF V01N71B
033018,002075: 15,2342 04555 TC BANKCALL
033019,002076: 15,2343 20624 CADR GOFLASH
033020,002077: 15,2344 04106 TC GOTOPOOH
033021,002078: 15,2345 02347 TC +2
033022,002079: 15,2346 12336 TCF R56B # RECYCLE
033023,002080: 15,2347 47713 CS HIGH9
033024,002081: 15,2350 70735 MASK STARCODE
033025,002082: 15,2351 00006 EXTEND
|
|
Page 737 |
033027,002084: 15,2352 76211 MP SIX
033028,002085: 15,2353 56001 XCH L
033029,002086: 15,2354 50304 INDEX STARIND
033030,002087: 15,2355 54302 TS BESTI
033031,002088: 15,2356 06006 TC INTPRET
033032,002089: 15,2357 77616 RVQ
033033,002090: 15,2360 15200 VB53 VN 05300 # ALTERNATE MARK VERB
033034,002091: 15,2361 00307 V01N71B VN 00171
033035,002092: 15,2362 01536 V06N94B VN 00694
033036,002093:
033037,002094: 15,2363 02607 PLANET STORE TSIGHT
033038,002095: 15,2364 45020 STQ CALL
033039,002096: 15,2365 02777 QMIN
033040,002097: 15,2366 30216 LOCSAM
033041,002098: 15,2367 77775 VLOAD
033042,002099: 15,2370 02736 VEARTH
033043,002100: 15,2371 24001 STOVL 0D
033044,002101: 15,2372 02744 VSUN
033045,002102: 15,2373 26736 STOVL VEARTH
033046,002103: 15,2374 00001 0D
033047,002104: 15,2375 02744 STORE VSUN
033048,002105: 15,2376 77776 NOSAM EXIT
033049,002106: 15,2377 47713 CS HIGH9
033050,002107: 15,2400 70735 MASK STARCODE
033051,002108: 15,2401 00006 EXTEND
033052,002109: 15,2402 76211 MP SIGHTSIX
033053,002110: 15,2403 56001 XCH L
033054,002111: 15,2404 50304 INDEX STARIND
033055,002112: 15,2405 54302 TS BESTI
033056,002113: 15,2406 10000 CCS A
033057,002114: 15,2407 12423 TCF NOTPLAN
033058,002115: 15,2410 32453 CAF VNPLANV
033059,002116: 15,2411 04555 TC BANKCALL
033060,002117: 15,2412 20624 CADR GOFLASH
033061,002118: 15,2413 04106 TC GOTOPOOH
033062,002119: 15,2414 02416 TC +2
033063,002120: 15,2415 02410 TC -5
033064,002121: 15,2416 06006 TC INTPRET
033065,002122: 15,2417 53575 VLOAD UNIT
033066,002123: 15,2420 02766 STAR
033067,002124: 15,2421 77650 GOTO
033068,002125: 15,2422 32446 CORPLAN
033069,002126: 15,2423 40000 NOTPLAN CS A
033070,002127: 15,2424 62452 AD DEC227
033071,002128: 15,2425 00006 EXTEND
033072,002129: 15,2426 62437 BZMF CALSAM1
033073,002130: 15,2427 50304 INDEX STARIND
033074,002131: 15,2430 30302 CA BESTI
033075,002132: 15,2431 50120 INDEX FIXLOC
033076,002133: 15,2432 54046 TS X1
033077,002134: 15,2433 06006 TC INTPRET
|
|
Page 738 |
033079,002136: 15,2434 52173 VLOAD* GOTO
033080,002137: 15,2435 31744 CATLOG,1
033081,002138: 15,2436 32446 CORPLAN
033082,002139: 15,2437 06006 CALSAM1 TC INTPRET
033083,002140: 15,2440 70740 LXC,1 DLOAD*
033084,002141: 15,2441 00304 STARIND
033085,002142: 15,2442 00303 BESTI,1
033086,002143: 15,2443 76740 LXC,1 VLOAD*
033087,002144: 15,2444 00154 MPAC
033088,002145: 15,2445 02372 STARAD -228D,1
033089,002146: 15,2446 53455 CORPLAN VAD UNIT
033090,002147: 15,2447 03474 VEL/C
033091,002148: 15,2450 77650 GOTO
033092,002149: 15,2451 02777 QMIN
033093,002150: 15,2452 00343 DEC227 DEC 227 B-14
033094,002151: 15,2453 01530 VNPLANV VN 0688
033095,002152:
End of include-file P51-P53.agc. Parent file is MAIN.agc