Source Code
027571,000001: # Copyright: Public domain.
027572,000002: # Filename: P30-P37.agc
027573,000003: # Purpose: Part of the source code for Colossus, build 249.
027574,000004: # It is part of the source code for the Command Module's (CM)
027575,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
027576,000006: # Assembler: yaYUL
027577,000007: # Reference: pp. 630-643 of 1701.pdf.
027578,000008: # Contact: Ron Burkey <info@sandroid.org>.
027579,000009: # Website: www.ibiblio.org/apollo.
027580,000010: # Mod history: 08/15/04 RSB. Began transcribing. (A little comes from the
027581,000011: # corresponding Luminary131 file.)
027582,000012:
027583,000013: # The contents of the "Colossus249" files, in general, are transcribed
027584,000014: # from a scanned document obtained from MIT's website,
027585,000015: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
027586,000016: # document read, in part:
027587,000017:
027588,000018: # Assemble revision 249 of AGC program Colossus by NASA
027589,000019: # 2021111-041. October 28, 1968.
027590,000020:
027591,000021: # This AGC program shall also be referred to as
027592,000022: # Colossus 1A
027593,000023:
027594,000024: # Prepared by
027595,000025: # Massachussets Institute of Technology
027596,000026: # 75 Cambridge Parkway
027597,000027: # Cambridge, Massachusetts
027598,000028: # under NASA contract NAS 9-4065.
027599,000029:
027600,000030: # Refer directly to the online document mentioned above for further information.
027601,000031: # Please report any errors (relative to 1701.pdf) to info@sandroid.org.
027602,000032:
027603,000033: # In some cases, where the source code for Luminary 131 overlaps that of
027604,000034: # Colossus 249, this code is instead copied from the corresponding Luminary 131
027605,000035: # source file, and then is proofed to incorporate any changes.
027606,000036:
027607,000037: # Page 630
027608,000038: 32,2017 BANK 32
027609,000039:
027610,000040: 35,2000 SETLOC P30S1
027611,000041: 35,2000 BANK
027612,000042:
027613,000043: 35,3544 E7,1625 EBANK= +MGA
027614,000044:
027615,000045: 35,3544 COUNT 35/P34
027616,000046:
027617,000047: 35,3544 77420 DISPMGA STQ EXIT # USED IN P30
027618,000048: 35,3545 02370 RGEXIT
027619,000049: 35,3546 03564 TC COMPTGO
027620,000050:
027621,000051: 35,3547 33132 DISP45 CAF V16N45
027622,000052: 35,3550 04555 TC BANKCALL
027623,000053: 35,3551 20763 CADR GOFLASHR
027624,000054: 35,3552 04106 TC GOTOP00H
027625,000055: 35,3553 03560 TC END45
027626,000056: 35,3554 03547 TC DISP45
027627,000057: 35,3555 05301 P30PHSI TC PHASCHNG
027628,000058: 35,3556 00014 OCT 14
027629,000059: 35,3557 05112 TCR ENDOFJOB
027630,000060: 35,3560 06006 END45 TC INTPRET
027631,000061: 35,3561 52014 CLEAR GOTO
027632,000062: 35,3562 03664 TIMRFLAG
027633,000063: 35,3563 02370 RGEXIT
027634,000064:
027635,000065: 35,3564 00006 COMPTGO EXTEND # USED TO COMPUTE TTOGO
027636,000066: 35,3565 23066 QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE **
027637,000067: 35,3566 05435 TC UPFLAG # SET TIMRFLAG
027638,000068: 35,3567 00155 ADRES TIMRFLAG # BIT 11 FLAG 7
027639,000069: 35,3570 34714 CAF ZERO
027640,000070: 35,3571 55145 TS NVWORD1
027641,000071: 35,3572 00004 INHINT
027642,000072: 35,3573 34712 CAF ONE
027643,000073: 35,3574 05140 TC WAITLIST
027644,000074: 35,3575 E7,1412 EBANK= TIG
027645,000075: 35,3575 03172 50067 2CADR CLOKTASK
027646,000076:
027647,000077: 35,3577 05261 TC 2PHSCHNG
027648,000078: 35,3600 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
027649,000079: 35,3601 05024 OCT 05024
027650,000080: 35,3602 13000 OCT 13000
027651,000081: 35,3603 01066 TC PHSPRDT6
027652,000082: # Page 631
027653,000083: # PROGRAM DESCRIPTION P30 DATE 3-6-67
027654,000084: # MOD. I BY S. ZELDIN: TO ADD P31 AND AD APT FOR P30 FOR P31 USE. 22DEC67
027655,000085:
027656,000086: # FUNCTIONAL DESCRIPTION
027657,000087: # P30 (EXTERNAL DELTA-V TARGETING PROGRAM)
027658,000088: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
027659,000089: # APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER.
027660,000090: # P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
027661,000091: # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027662,000092: # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027663,000093: # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
027664,000094: # ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027665,000095: # AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
027666,000096: # DESIRED MANEUVER.
027667,000097:
027668,000098: # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027669,000099: # S30.1 (P30 ONLY)
027670,000100: # S31.1 (P31 ONLY)
027671,000101: # P30/P31 -- DISPLAYS TIG
027672,000102: # CNTUP30 -- DISPLAYS DELV(LV)
027673,000103: # PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
027674,000104: # MARKS SINCE LAST THRUSTING MANEUVER
027675,000105:
027676,000106: # CALLING SEQUENCE VIA JOB FROM V37
027677,000107:
027678,000108: # EXIT VIA V37 OR GOTOP00H
027679,000109:
027680,000110: # OUTPUT FOR POWERED FLIGHT
027681,000111: # VTIG X
027682,000112: # RTIG X SEE S30.1
027683,000113: # DELVSIN X
027684,000114: # VGDISP
027685,000115: # RTARG X
027686,000116: # TPASS4 X SEE S31.1
027687,000117: # X
027688,000118:
027689,000119: 35,3604 COUNT 35/P30
027690,000120:
027691,000121: 35,3604 03636 P30 TC P30/P31
027692,000122: 35,3605 03655 TC CNTNUP30
027693,000123: 35,3606 05447 TC DOWNFLAG # RESET UPDATFLG
027694,000124: 35,3607 00027 ADRES UPDATFLG # BIT 7 FLAG 1
027695,000125: 35,3610 06006 TC INTPRET
027696,000126: 35,3611 77624 CALL
027697,000127: 35,3612 63102 S30.1
027698,000128: 35,3613 77776 EXIT
027699,000129: 35,3614 03665 TC PARAM30
027700,000130: 35,3615 05435 TC UPFLAG
027701,000131: # Page 632
027702,000132: 35,3616 00045 ADRES XDELVFLG # SET XDELVFLG BIT 6 FLAG 2
027703,000133: 35,3617 14106 TCF GOTOP00H
027704,000134:
027705,000135: 35,3620 03636 P31 TC P30/P31
027706,000136: 35,3621 05447 TC DOWNFLAG
027707,000137: 35,3622 00027 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
027708,000138: 35,3623 05447 TC DOWNFLAG
027709,000139: 35,3624 00156 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
027710,000140: 35,3625 06006 TC INTPRET
027711,000141: 35,3626 77624 CALL
027712,000142: 35,3627 63154 S31.1
027713,000143: 35,3630 77776 EXIT
027714,000144: 35,3631 03655 TC CNTNUP30
027715,000145: 35,3632 03665 TC PARAM30
027716,000146: 35,3633 05447 TC DOWNFLAG
027717,000147: 35,3634 00045 ADRES XDELVFLG # BIT 8 FLAG 2.
027718,000148: 35,3635 14106 TCF GOTOP00H
027719,000149:
027720,000150: 35,3636 56002 P30/P31 XCH Q
027721,000151: 35,3637 55664 TS P30/31RT
027722,000152: 35,3640 05435 TC UPFLAG
027723,000153: 35,3641 00027 ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1
027724,000154: 35,3642 05435 TC UPFLAG
027725,000155: 35,3643 00031 ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1
027726,000156: 35,3644 33722 CAF V06N33 # T OF IGN
027727,000157: 35,3645 04555 TC BANKCALL
027728,000158: 35,3646 20763 CADR GOFLASHR
027729,000159: 35,3647 14106 TCF GOTOP00H
027730,000160: 35,3650 01664 TC P30/31RT
027731,000161: 35,3651 13642 TCF P30/P31 +4
027732,000162: 35,3652 05301 TC PHASCHNG
027733,000163: 35,3653 00014 OCT 00014
027734,000164: 35,3654 05112 TC ENDOFJOB
027735,000165: 35,3655 56002 CNTNUP30 XCH Q
027736,000166: 35,3656 55127 TS P30/RET
027737,000167: 35,3657 33131 CAF V06N81
027738,000168: 35,3660 04555 TC BANKCALL
027739,000169: 35,3661 20624 CADR GOFLASH
027740,000170: 35,3662 14106 TCF GOTOP00H
027741,000171: 35,3663 01127 TC P30/RET
027742,000172: 35,3664 13657 TCF CNTNUP30 +2
027743,000173: 35,3665 56002 PARAM30 XCH Q
027744,000174: 35,3666 55664 TS P30/31RT
027745,000175: 35,3667 33723 CAF V06N42
027746,000176: 35,3670 04555 TC BANKCALL
027747,000177: 35,3671 20624 CADR GOFLASH
027748,000178: 35,3672 04106 TC GOTOP00H # ON TERMINATION GOTOP00H
027749,000179: 35,3673 13675 TCF REFTEST # ON PROCEED GO DO REFTEST
027750,000180: # Page 633
027751,000181: 35,3674 13667 TCF PARAM30 +2
027752,000182: 35,3675 34676 REFTEST CAF BIT13
027753,000183: 35,3676 70077 MASK STATE +3 # REFSMFLAG
027754,000184: 35,3677 00006 EXTEND
027755,000185: 35,3700 13710 BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET
027756,000186: 35,3701 06006 TC INTPRET
027757,000187: 35,3702 41575 VLOAD PUSH
027758,000188: 35,3703 03646 DELVSIN
027759,000189: 35,3704 77624 CALL
027760,000190: 35,3705 10660 GET+MGA
027761,000191: 35,3706 77650 GOTO
027762,000192: 35,3707 73714 FLASHMGA
027763,000193: 35,3710 00006 NOTSET EXTEND
027764,000194: 35,3711 43721 DCS MARSDP
027765,000195: 35,3712 53626 DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001)
027766,000196: 35,3713 06006 TC INTPRET
027767,000197: 35,3714 77624 FLASHMGA CALL
027768,000198: 35,3715 73544 DISPMGA
027769,000199: 35,3716 77776 EXIT
027770,000200: 35,3717 01664 TC P30/31RT
027771,000201: 35,3720 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001)
027772,000202: 35,3721 35100 OCT 35100
027773,000203: # ( .01 ) DEGREES IN THE LOW ORDER REGISTER
027774,000204:
027775,000205: 35,3722 01441 V06N33 VN 0633
027776,000206: 35,3723 01452 V06N42 VN 0642
027777,000207: 35,3724 04043 V16N35 VN 1635
027778,000208: 35,3725 01455 V06N45 VN 0645
027779,000209:
027780,000210: # Page 634
027781,000211: # PROGRAM DESCRPTION S30.1 DATE 9NOV66
027782,000212: # MOD NO 1 LOG SECTION P30,P37
027783,000213: # MOD BY RAMA AIYAWAR **
027784,000214: # MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
027785,000215:
027786,000216: # FUNCTIONAL DESCRIPTION
027787,000217: # BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
027788,000218: # IGNITION (VTIG), TIME OF IGNITION (TIG)), COMPUTE PERIGEE ALTITUDE
027789,000219: # APOGEE ALTITUDE AND DELTAV REQUIRED (DELVSIN).
027790,000220:
027791,000221: # CALLING SEQUENCE
027792,000222: # L CALL
027793,000223: # L+1 S30.1
027794,000224:
027795,000225: # NORMAL EXIT MODE
027796,000226: # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027797,000227:
027798,000228: # SUBROUTINES CALLED
027799,000229: # THISPREC
027800,000230: # PERIAPO
027801,000231:
027802,000232: # ALARM OR ABORT EXIT MODES
027803,000233: # NONE
027804,000234:
027805,000235: # ERASABLE INITIALIZATION REQUIRED
027806,000236: # TIG TIME OF IGNITION DP B28CS
027807,000237: # DELVSLV SPECIFIED DELTA-V INLOCAL VERT.
027808,000238: # COORDS. OF ACTIVE VEHICLE AT
027809,000239: # TIME OF IGNITION VCT. B+7 M/CS
027810,000240:
027811,000241: # OUTPUT
027812,000242: # RTIG POSITION AT TIG VCT. B+29 M
027813,000243: # VTIG VELOCITY AT TIG VCT. B+7 M
027814,000244: # HAPO APOGEE ALT. DP B+29 M
027815,000245: # HPER PERIGEE ALT. DP B+29 M
027816,000246: # DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS
027817,000247: # VGDISP MAG. OF DELVSIN DP B+7 M/CS
027818,000248:
027819,000249: # DEBRIS QTEMP TEMP.ERASABLE
027820,000250: # QPRET, MPAC
027821,000251: # PUSHLIST
027822,000252:
027823,000253: 31,2000 SETLOC P30S1A
027824,000254: 31,2000 BANK
027825,000255:
027826,000256: 31,3102 COUNT 35/S30S
027827,000257:
027828,000258: 31,3102 71220 S30.1 STQ DLOAD
027829,000259: 31,3103 03657 QTEMP
027830,000260: 31,3104 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS
027831,000261: 31,3105 34041 STCALL TDEC1
027832,000262: 31,3106 27022 THISPREC # ENCKE ROUTINE FOR
027833,000263:
027834,000264: 31,3107 67175 VLOAD SXA,2
027835,000265: 31,3110 00007 VATT
027836,000266: 31,3111 03746 RTX2
027837,000267: 31,3112 27640 STOVL VTIG
027838,000268: # Page 635
027839,000269: 31,3113 00001 RATT
027840,000270: 31,3114 03632 STORE RTIG
027841,000271: 31,3115 03540 STORE RACT3
027842,000272: 31,3116 53435 VXV UNIT
027843,000273: 31,3117 03640 VTIG
027844,000274: 31,3120 36617 STCALL UNRM
027845,000275: 31,3121 72667 LOMAT
027846,000276: 31,3122 61375 VLOAD VXM
027847,000277: 31,3123 03405 DELVSLV
027848,000278: 31,3124 00001 0
027849,000279: 31,3125 66172 VSL1 SXA,1
027850,000280: 31,3126 03745 RTX1
027851,000281: 31,3127 03646 STORE DELVSIN
027852,000282: 31,3130 77646 ABVAL
027853,000283: 31,3131 27654 STOVL VGDISP # MAG DELV
027854,000284: 31,3132 03632 RTIG
027855,000285: 31,3133 53315 PDVL VAD
027856,000286: 31,3134 03646 DELVSIN
027857,000287: 31,3135 03640 VTIG
027858,000288: 31,3136 77624 CALL
027859,000289: 31,3137 45312 PERIAPO1
027860,000290: 31,3140 77624 CALL
027861,000291: 31,3141 45422 SHIFTR1
027862,000292: 31,3142 77624 CALL
027863,000293: 31,3143 46754 MAXCHK
027864,000294: 31,3144 16366 STODL HPER # PERIGEE ALT B+29
027865,000295: 31,3145 00005 4D
027866,000296: 31,3146 77624 CALL
027867,000297: 31,3147 45422 SHIFTR1
027868,000298: 31,3150 77624 CALL
027869,000299: 31,3151 46754 MAXCHK
027870,000300: 31,3152 36364 STCALL HAPO # APOGEE ALT B+29
027871,000301: 31,3153 03657 QTEMP
027872,000302:
027873,000303: # Page 637
027874,000304: # S31.1 PROGRAM DESCRIPTION 26DEC67
027875,000305: # MOD.1 BY S.ZELDIN
027876,000306:
027877,000307: # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027878,000308: # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027879,000309:
027880,000310: # CALLING SEQUENCE
027881,000311: # L CALL
027882,000312: # L+1 S31.1
027883,000313:
027884,000314: # NORMAL EXIT MODE
027885,000315: # AT L +2 OF CALLING SEQUENCE (GOTO L+2)
027886,000316:
027887,000317: # SUBROUTINES CALLED
027888,000318: # AGAIN
027889,000319: # PERIAPO1
027890,000320: # SHIFTR1
027891,000321: # MIDGIM
027892,000322:
027893,000323: # NO ALARM OR ABORT MODES
027894,000324:
027895,000325: # INPUT
027896,000326: # DELLT4 DP +28
027897,000327: # TIG DP +28
027898,000328: # RTARG VCT +29
027899,000329:
027900,000330: # OUTPUT
027901,000331: # DELVLVC VCT +7
027902,000332: # VGDISP DP +7
027903,000333: # HAPO DP +29
027904,000334: # HPER DP +29
027905,000335: # TPASS4 DP +28
027906,000336:
027907,000337: # DEBRIS -- QTEMP
027908,000338:
027909,000339: 31,3154 71220 S31.1 STQ DLOAD
027910,000340: 31,3155 03657 QTEMP
027911,000341: 31,3156 03413 TIG
027912,000342: 31,3157 34041 STCALL TDEC1
027913,000343: 31,3160 61663 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027914,000344: 31,3161 63375 VLOAD PDVL # DELUEET3
027915,000345: 31,3162 03632 RTIG
027916,000346: 31,3163 03612 VIPRIME
027917,000347: 31,3164 77624 CALL
027918,000348: 31,3165 45312 PERIAPO1
027919,000349: 31,3166 77624 CALL
027920,000350: 31,3167 45422 SHIFTR1
027921,000351: 31,3170 77624 CALL
027922,000352: 31,3171 46754 MAXCHK
027923,000353: 31,3172 16366 STODL HPER # B29
027924,000354: 31,3173 00005 4D
027925,000355: 31,3174 77624 CALL
027926,000356: 31,3175 45422 SHIFTR1
027927,000357: 31,3176 77624 CALL
027928,000358: 31,3177 46754 MAXCHK
027929,000359: 31,3200 26364 STOVL HAPO # B29
027930,000360: # Page 637
027931,000361: 31,3201 03646 DELVEET3
027932,000362: 31,3202 00001 STORE 0
027933,000363: 31,3203 45014 SET CALL
027934,000364: 31,3204 01072 AVFLAG
027935,000365: 31,3205 10653 MIDGIM # GET DELVLVC B7 FOR DISPLAY
027936,000366: 31,3206 77646 ABVAL
027937,000367: 31,3207 17654 STODL VGDISP # B+7 FOR DISPLAY
027938,000368: 31,3210 03423 DELLT4
027939,000369: 31,3211 77615 DAD
027940,000370: 31,3212 03413 TIG
027941,000371: 31,3213 37656 STCALL TPASS4 # FOR S40.1
027942,000372: 31,3214 03657 QTEMP
027943,000373:
027944,000374: # Page 639
027945,000375: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 62 IN CSM IF P11 ACTIVE)
027946,000376: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
027947,000377: # MOD NO: 0 MOD BY: ZELDIN DATE:
027948,000378: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
027949,000379: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
027950,000380: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 6 JULY 67 FIX ERROR ON MOD. 2
027951,000381: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
027952,000382: # MOD 4 MOD BY S.ZELDIN DATE: 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.16 WHICH REPLA
027953,000383:
027954,000384: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
027955,000385: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
027956,000386: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGEL + ESTIMATED ENTRY ANGLE.
027957,000387: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
027958,000388: # ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET.
027959,000389: # THE PRESENT TARGET LOCATION IS USED.
027960,000390:
027961,000391: # CALLING SEQUENCE: CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V62)
027962,000392:
027963,000393: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
027964,000394:
027965,000395: # EXIT: RETURN DIRECTLY TO V 62 PROG. AT SPLRET
027966,000396:
027967,000397: # ERASABLE INITIALIZATION: LEFT BY SR30.1 AND V62GON1
027968,000398:
027969,000399: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI.
027970,000400:
027971,000401: # DEBRIS: QPRET, PDL0 ... PDL7, PDL10.
027972,000402:
027973,000403: # THETA(1)
027974,000404:
027975,000405: 32,2017 BANK 32
027976,000406: 32,2000 SETLOC DELRSPL1
027977,000407: 32,2000 BANK
027978,000408: 32,2017 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
027979,000409:
027980,000410: 32,2017 00011 DELRSPL STORE 8D
027981,000411: 32,2020 45244 BPL DSU
027982,000412: 32,2021 64067 CANTDO # GONE PAST 300K FT ALT
027983,000413: 32,2022 16326 1BITDP
027984,000414: 32,2023 45000 BOV CALL
027985,000415: 32,2024 64067 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
027986,000416: 32,2025 55050 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027987,000417: 32,2026 45006 PUSH CALL
027988,000418: 32,2027 56573 TFF/TRIG
027989,000419: 32,2030 77624 CALL
027990,000420: 32,2031 64075 AUGEKUGL
027991,000421: 32,2032 65525 PDDL ACOS # T ENTRY PDL 6
027992,000422: 32,2033 00017 CDELF/2
027993,000423: 32,2034 77615 DAD
027994,000424: 32,2035 00005 4
027995,000425: 32,2036 26350 GETARG STOVL THETA(1)
027996,000426: 32,2037 03401 LAT(SPL)
027997,000427: 32,2040 15104 STODL LAT
027998,000428: 32,2041 15332 HI6ZEROS
027999,000429: 32,2042 15110 STODL ALT # ALT=0 = LAT +4
028000,000430: 32,2043 01205 PIPTIME
028001,000431: # Page 639
028002,000432: 32,2044 71214 BON DLOAD
028003,000433: 32,2045 03711 V37FLAG
028004,000434: 32,2046 64050 +2
028005,000435: 32,2047 02325 TSTART82
028006,000436: 32,2050 43225 DSU DAD
028007,000437: 32,2051 00011 8D
028008,000438: 32,2052 45014 CLEAR CALL
028009,000439: 32,2053 00662 ERADFLAG
028010,000440: 32,2054 26373 LALOTORV # R RECOV. IN ALPHAV AND MPAC
028011,000441:
028012,000442: 32,2055 63256 UNIT PDVL
028013,000443: 32,2056 02327 RONE
028014,000444: 32,2057 50256 UNIT DOT
028015,000445: 32,2060 65552 SL1 ARCCOS
028016,000446: 32,2061 77621 BDSU # ERROR = THETA EST - THETA TARG
028017,000447: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028018,000448: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028019,000449: 32,2062 02350 THETA(1)
028020,000450: 32,2063 36356 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
028021,000451: 32,2064 27404 INTWAKE0
028022,000452: 32,2065 77624 CALL
028023,000453: 32,2066 46653 SPLRET
028024,000454: 32,2067 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
028025,000455: # FOR RANGE ANGLE.
028026,000456: 32,2070 15330 HIDPHALF # TO PDL 0 FOR DEN INDDV.
028027,000457: 32,2071 15332 HI6ZEROS
028028,000458: 32,2072 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY
028029,000459: 32,2073 34011 STCALL 8D
028030,000460: 32,2074 64036 GETARG # GO SET RSP-RREC =0
028031,000461:
028032,000462: 32,2075 77775 AUGEKUGL VLOAD
028033,000463: 32,2076 24251 X1CON -2
028034,000464: 32,2077 14045 STODL X1 -2
028035,000465: 32,2100 00001 0
028036,000466: 32,2101 50025 DSU BMN
028037,000467: 32,2102 24243 V(21K)
028038,000468: 32,2103 64130 LOOPSET
028039,000469: 32,2104 65060 XSU,1 XCHX,2
028040,000470: 32,2105 00050 S1
028041,000471: 32,2106 00046 X1
028042,000472: 32,2107 45324 XCHX,2 DSU
028043,000473: 32,2110 00050 S1
028044,000474: 32,2111 24231 V(3K)
028045,000475: 32,2112 65040 BMN XCHX,2
028046,000476: 32,2113 64130 LOOPSET
028047,000477: 32,2114 00050 S1
028048,000478: 32,2115 50025 DSU BMN
028049,000479: 32,2116 24241 V(4K)
028050,000480: 32,2117 64130 LOOPSET
028051,000481: 32,2120 65124 XCHX,2 XCHX,2
028052,000482: # Page 640
028053,000483: 32,2121 00050 S1
028054,000484: 32,2122 00046 X1
028055,000485: 32,2123 50025 DSU BMN
028056,000486: 32,2124 24225 V(400)
028057,000487: 32,2125 64130 LOOPSET
028058,000488: 32,2126 77730 SXA,1
028059,000489: 32,2127 00050 S1
028060,000490: 32,2130 52110 LOOPSET INCR,1 GOTO
028061,000491: 32,2131 00001 DEC 1 B-14
028062,000492: 32,2132 64135 K1K2LOOP
028063,000493: 32,2133 77730 K2CALC SXA,1
028064,000494: 32,2134 00050 S1
028065,000495: 32,2135 44745 K1K2LOOP DLOAD DSU*
028066,000496: 32,2136 00001 0
028067,000497: 32,2137 24240 V(32K) +1,1
028068,000498: 32,2140 42603 DMP* DAD*
028069,000499: 32,2141 24224 YK1K2 +1,1
028070,000500: 32,2142 24210 CK1K2 +1,1
028071,000501: 32,2143 60125 PDDL TIX,1
028072,000502: 32,2144 00003 2
028073,000503: 32,2145 64133 K2CALC
028074,000504: 32,2146 55225 DSU BDDV
028075,000505: 32,2147 50000 BOV BMN
028076,000506: 32,2150 64167 MAXPHI
028077,000507: 32,2151 64167 MAXPHI
028078,000508: 32,2152 45325 PHICALC PDDL DSU # PHI ENTRY PDL 4D
028079,000509: 32,2153 00001 0
028080,000510: 32,2154 24251 V(26K)
028081,000511: 32,2155 71244 BPL DLOAD
028082,000512: 32,2156 64164 TGR26
028083,000513: 32,2157 24245 TLESS26
028084,000514: 32,2160 77671 DDV
028085,000515: 32,2161 00001 0
028086,000516: 32,2162 43405 TENT DMP RVQ
028087,000517: 32,2163 00005 4D
028088,000518: 32,2164 52145 TGR26 DLOAD GOTO
028089,000519: 32,2165 24247 TGR26CON
028090,000520: 32,2166 64162 TENT
028091,000521: 32,2167 52145 MAXPHI DLOAD GOTO
028092,000522: 32,2170 24173 MAXPHIC
028093,000523: 32,2171 64152 PHICALC
028094,000524: 32,2172 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
028095,000525:
028096,000526: 32,2174 COUNT* $$/P30
028097,000527:
028098,000528: # BELOW
028099,000529: # **** TABLE IS INDEXED. KEEP IN ORDER ***
028100,000530: # Page 641
028101,000531: 32,2174 00013 22652 2DEC 7.07304526 E-4 # 5500
028102,000532: 32,2176 00005 01642 2DEC 3.08641975 E-4 # 2400
028103,000533: 32,2200 00005 01642 2DEC 3.08641975 E-4 # 2400
028104,000534: 32,2202 77556 53522 2DEC -8.8888888 E-3 # -3.2
028105,000535: 32,2204 00055 20266 2DEC 2.7777777 E-3 # 1
028106,000536: 32,2206 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4
028107,000537: 32,2210 00000 00000 2DEC 0 B-28 # 0
028108,000538: 32,2212 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443
028109,000539: 32,2214 00000 00000 2DEC 0 B-28
028110,000540: 32,2216 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225
028111,000541: 32,2220 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105
028112,000542: 32,2222 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
028113,000543: 32,2224 00234 01660 V(400) 2DEC 1.2192 B-7
028114,000544: 32,2226 25254 01014 V(28K) 2DEC 85.344 B-7
028115,000545: 32,2230 02222 15646 V(3K) 2DEC 9.144 B-7
028116,000546: 32,2232 22223 16457 V(24K) 2DEC 73.152 B-7
028117,000547: 32,2234 25254 01014 2DEC 85.344 B-7
028118,000548: 32,2236 30304 23351 V(32K) 2DEC 97.536 B-7
028119,000549: 32,2240 03030 22335 V(4K) 2DEC 12.192 B-7
028120,000550: 32,2242 20000 00000 V(21K) 2DEC 64.000 B-7
028121,000551: 32,2244 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
028122,000552: 32,2246 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
028123,000553: 32,2250 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000
028124,000554: 32,2252 00012 X1CON DEC 10 B-14
028125,000555: 32,2253 00010 DEC 8 B-14
028126,000556: 32,2254 00006 DEC 6 B-14
028127,000557: # **** TABLE IS INDEXED. KEEP IN ORDER ***
028128,000558: # Page 642
028129,000559: # ABOVE
028130,000560: # Page 643
028131,000561: # ***** AVFLAG/P *****
028132,000562:
028133,000563: # SUBROUTINES USED
028134,000564:
028135,000565: # UPFLAG
028136,000566: # DOWNFLAG
028137,000567:
028138,000568: 35,2000 SETLOC P30S1
028139,000569: 35,2000 BANK
028140,000570: 35,3726 E4,1770 EBANK= SUBEXIT
028141,000571:
028142,000572:
028143,000573: 35,3726 00006 AVFLAGA EXTEND # AVFLAG = CSM
028144,000574: 35,3727 23770 QXCH SUBEXIT
028145,000575: 35,3730 05447 TC DOWNFLAG
028146,000576: 35,3731 00050 ADRES AVFLAG
028147,000577: 35,3732 34753 CAF EBANK7
028148,000578: 35,3733 54003 TS EBANK
028149,000579: 35,3734 E7,1424 EBANK= ECSTEER
028150,000580: 35,3734 34676 CAF BIT13
028151,000581: 35,3735 55424 TS ECSTEER # SET ECSTEER = 1
028152,000582: 35,3736 34700 CAF EBANK4
028153,000583: 35,3737 54003 TS EBANK
028154,000584: 35,3740 E4,1770 EBANK= SUBEXIT
028155,000585: 35,3740 01770 TC SUBEXIT
028156,000586: 35,3741 00006 AVFLAGP EXTEND # AVFLAG = LEM
028157,000587: 35,3742 23770 QXCH SUBEXIT
028158,000588: 35,3743 05435 TC UPFLAG
028159,000589: 35,3744 00050 ADRES AVFLAG
028160,000590: 35,3745 01770 TC SUBEXIT
028161,000591: 35,3746 00006 P20FLGON EXTEND
028162,000592: 35,3747 23770 QXCH SUBEXIT
028163,000593: 35,3750 05435 TC UPFLAG
028164,000594: 35,3751 00031 ADRES TRACKFLG
028165,000595: 35,3752 05435 TC UPFLAG
028166,000596: 35,3753 00027 ADRES UPDATFLG
028167,000597: 35,3754 01770 TC SUBEXIT
028168,000598:
028169,000599:
End of include-file P30-P37.agc. Parent file is MAIN.agc