Source Code

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