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