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