Source Code

028173,000001: # Copyright: Public domain. 028174,000002: # Filename: P30-P37.agc 028175,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 028176,000004: # It is part of the source code for the Command Module's (CM) 028177,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 028178,000006: # Assembler: yaYUL 028179,000007: # Contact: Ron Burkey <info@sandroid.org>. 028180,000008: # Website: www.ibiblio.org/apollo. 028181,000009: # Pages: 635-648 028182,000010: # Mod history: 2009-05-10 RSB Adapted from the Colossus249/ file 028183,000011: # of the same name, using Comanche055 page 028184,000012: # images. 028185,000013: # 2009-05-20 RSB Corrected BDV -> BOV. 028186,000014: # 2010-08-24 JL Fixed page numbers, some whitespace. 028187,000015: 028188,000016: # This source code has been transcribed or otherwise adapted from digitized 028189,000017: # images of a hardcopy from the MIT Museum. The digitization was performed 028190,000018: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 028191,000019: # thanks to both. The images (with suitable reduction in storage size and 028192,000020: # consequent reduction in image quality as well) are available online at 028193,000021: # www.ibiblio.org/apollo. If for some reason you find that the images are 028194,000022: # illegible, contact me at info@sandroid.org about getting access to the 028195,000023: # (much) higher-quality images which Paul actually created. 028196,000024: 028197,000025: # Notations on the hardcopy document read, in part: 028198,000026: 028199,000027: # Assemble revision 055 of AGC program Comanche by NASA 028200,000028: # 2021113-051. 10:28 APR. 1, 1969 028201,000029: 028202,000030: # This AGC program shall also be referred to as 028203,000031: # Colossus 2A 028204,000032: 028205,000033: # Page 635 028206,000034: 32,2017 BANK 32 028207,000035: 028208,000036: 35,2000 SETLOC P30S1 028209,000037: 35,2000 BANK 028210,000038: 028211,000039: 35,3264 E7,1625 EBANK= +MGA 028212,000040: 028213,000041: 35,3264 COUNT 35/P34 028214,000042: 028215,000043: 35,3264 77420 DISPMGA STQ EXIT # USED IN P30 028216,000044: 028217,000045: 35,3265 02370 RGEXIT 028218,000046: 35,3266 03304 TC COMPTGO 028219,000047: 028220,000048: 35,3267 34621 DISP45 CAF V16N45 028221,000049: 35,3270 04662 TC BANKCALL 028222,000050: 35,3271 21057 CADR GOFLASHR 028223,000051: 35,3272 04106 TC GOTOP00H 028224,000052: 35,3273 03300 TC END45 028225,000053: 35,3274 03267 TC DISP45 028226,000054: 35,3275 05412 P30PHSI TC PHASCHNG 028227,000055: 35,3276 00014 OCT 14 028228,000056: 35,3277 05217 TCR ENDOFJOB 028229,000057: 35,3300 06006 END45 TC INTPRET 028230,000058: 35,3301 52014 CLEAR GOTO 028231,000059: 35,3302 03664 TIMRFLAG 028232,000060: 35,3303 02370 RGEXIT 028233,000061: 028234,000062: 35,3304 00006 COMPTGO EXTEND # USED TO COMPUTE TTOGO 028235,000063: 35,3305 23066 QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED, BEWARE ** 028236,000064: 028237,000065: 35,3306 05546 TC UPFLAG # SET TIMRFLAG 028238,000066: 35,3307 00155 ADRES TIMRFLAG # BIT 11 FLAG 7 028239,000067: 35,3310 35021 CAF ZERO 028240,000068: 35,3311 55145 TS NVWORD1 028241,000069: 028242,000070: 35,3312 35017 CAF ONE 028243,000071: 35,3313 05245 TC WAITLIST 028244,000072: 35,3314 E7,1412 EBANK= TIG 028245,000073: 35,3314 03260 50067 2CADR CLOKTASK 028246,000074: 028247,000075: 35,3316 05372 TC 2PHSCHNG 028248,000076: 35,3317 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK 028249,000077: 35,3320 05024 OCT 05024 # GROUP 4 CONTINUES HERE 028250,000078: 35,3321 13000 OCT 13000 028251,000079: 028252,000080: 35,3322 01066 TC PHSPRDT6 028253,000081: # Page 636 028254,000082: # PROGRAM DESCRIPTION P30 DATE 3-6-67 028255,000083: # MOD. I BY S. ZELDIN: TO ADD P31 AND ADAPT P30 FOR P31 USE. 22DEC67 028256,000084: 028257,000085: # FUNCTIONAL DESCRIPTION 028258,000086: # P30 (EXTERNAL DELTA-V TARGETING PROGRAM) 028259,000087: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY, 028260,000088: # APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER. 028261,000089: # P31 (GENERAL LAMBERT AIMPOINT GUIDANCE) 028262,000090: # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND 028263,000091: # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART 028264,000092: # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND 028265,000093: # ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER 028266,000094: # AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH 028267,000095: # DESIRED MANEUVER. 028268,000096: 028269,000097: # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31 028270,000098: # S30.1 (P30 ONLY) 028271,000099: # S31.1 (P31 ONLY) 028272,000100: # P30/P31 -- DISPLAYS TIG 028273,000101: # CNTUP30 -- DISPLAYS DELV(LV) 028274,000102: # PARAM30 -- DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG, 028275,000103: # MARKS SINCE LAST THRUSTING MANEUVER 028276,000104: 028277,000105: # CALLING SEQUENCE VIA JOB FROM V37 028278,000106: 028279,000107: # EXIT VIA V37 OR GOTOP00H 028280,000108: 028281,000109: # OUTPUT FOR POWERED FLIGHT 028282,000110: # VTIG X 028283,000111: # RTIG X SEE S30.1 028284,000112: # DELVSIN X 028285,000113: # VGDISP 028286,000114: # RTARG X 028287,000115: # TPASS4 X SEE S31.1 028288,000116: # X 028289,000117: 028290,000118: 35,3323 COUNT 35/P30 028291,000119: 028292,000120: 35,3323 03355 P30 TC P30/P31 028293,000121: 35,3324 03374 TC CNTNUP30 028294,000122: 35,3325 05560 TC DOWNFLAG # RESET UPDATFLG 028295,000123: 35,3326 00027 ADRES UPDATFLG # BIT 7 FLAG 1 028296,000124: 35,3327 06006 TC INTPRET 028297,000125: 35,3330 77624 CALL 028298,000126: 35,3331 63475 S30.1 028299,000127: 35,3332 77776 EXIT 028300,000128: 35,3333 03404 TC PARAM30 028301,000129: 35,3334 05546 TC UPFLAG 028302,000130: # Page 637 028303,000131: 35,3335 00045 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2 028304,000132: 35,3336 14106 TCF GOTOP00H 028305,000133: 028306,000134: 35,3337 03355 P31 TC P30/P31 028307,000135: 35,3340 05560 TC DOWNFLAG 028308,000136: 35,3341 00027 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1 028309,000137: 35,3342 05560 TC DOWNFLAG 028310,000138: 35,3343 00156 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7 028311,000139: 35,3344 06006 TC INTPRET 028312,000140: 35,3345 77624 CALL 028313,000141: 35,3346 63547 S31.1 028314,000142: 35,3347 77776 EXIT 028315,000143: 35,3350 03374 TC CNTNUP30 028316,000144: 35,3351 03404 TC PARAM30 028317,000145: 35,3352 05560 TC DOWNFLAG 028318,000146: 35,3353 00045 ADRES XDELVFLG # BIT 8 FLAG 2. 028319,000147: 35,3354 14106 TCF GOTOP00H 028320,000148: 028321,000149: 35,3355 56002 P30/P31 XCH Q 028322,000150: 35,3356 55664 TS P30/31RT 028323,000151: 35,3357 05546 TC UPFLAG 028324,000152: 35,3360 00027 ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1 028325,000153: 35,3361 05546 TC UPFLAG 028326,000154: 35,3362 00031 ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1 028327,000155: 35,3363 33441 CAF V06N33 # T OF IGN 028328,000156: 35,3364 04662 TC BANKCALL 028329,000157: 35,3365 21057 CADR GOFLASHR 028330,000158: 35,3366 14106 TCF GOTOP00H 028331,000159: 35,3367 01664 TC P30/31RT 028332,000160: 35,3370 13361 TCF P30/P31 +4 028333,000161: 35,3371 05412 TC PHASCHNG 028334,000162: 35,3372 00014 OCT 00014 028335,000163: 35,3373 05217 TC ENDOFJOB 028336,000164: 028337,000165: 35,3374 56002 CNTNUP30 XCH Q 028338,000166: 35,3375 55127 TS P30/RET 028339,000167: 35,3376 34620 CAF V06N81 028340,000168: 35,3377 04662 TC BANKCALL 028341,000169: 35,3400 20720 CADR GOFLASH 028342,000170: 35,3401 14106 TCF GOTOP00H 028343,000171: 35,3402 01127 TC P30/RET 028344,000172: 35,3403 13376 TCF CNTNUP30 +2 028345,000173: 35,3404 56002 PARAM30 XCH Q 028346,000174: 35,3405 55664 TS P30/31RT 028347,000175: 35,3406 33442 CAF V06N42 028348,000176: 35,3407 04662 TC BANKCALL 028349,000177: 35,3410 20720 CADR GOFLASH 028350,000178: 35,3411 04106 TC GOTOP00H # ON TERMINATION GOTOP00H 028351,000179: 35,3412 13414 TCF REFTEST # ON PROCEED GO DO REFTEST 028352,000180: # Page 638 028353,000181: 35,3413 13406 TCF PARAM30 +2 028354,000182: 35,3414 35003 REFTEST CAF BIT13 028355,000183: 35,3415 70077 MASK STATE +3 # REFSMFLAG 028356,000184: 35,3416 00006 EXTEND 028357,000185: 35,3417 13427 BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET 028358,000186: 35,3420 06006 TC INTPRET 028359,000187: 35,3421 41575 VLOAD PUSH 028360,000188: 35,3422 03646 DELVSIN 028361,000189: 35,3423 77624 CALL 028362,000190: 35,3424 10654 GET+MGA 028363,000191: 35,3425 77650 GOTO 028364,000192: 35,3426 73433 FLASHMGA 028365,000193: 35,3427 00006 NOTSET EXTEND 028366,000194: 35,3430 43440 DCS MARSDP 028367,000195: 35,3431 53626 DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001) 028368,000196: 35,3432 06006 TC INTPRET 028369,000197: 35,3433 77624 FLASHMGA CALL 028370,000198: 35,3434 73264 DISPMGA 028371,000199: 35,3435 77776 EXIT 028372,000200: 35,3436 01664 TC P30/31RT 028373,000201: 35,3437 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001) 028374,000202: 35,3440 35100 OCT 35100 028375,000203: # ( .01 ) DEGREES IN THE LOW ORDER REGISTER 028376,000204: 028377,000205: 35,3441 01441 V06N33 VN 0633 028378,000206: 35,3442 01452 V06N42 VN 0642 028379,000207: 35,3443 04043 V16N35 VN 1635 028380,000208: 35,3444 01455 V06N45 VN 0645 028381,000209: 028382,000210: # Page 639 028383,000211: # PROGRAM DESCRPTION S30.1 DATE 9NOV66 028384,000212: # MOD NO 1 LOG SECTION P30,P37 028385,000213: # MOD BY RAMA AIYAWAR ** 028386,000214: # MOD.2 BY S.ZELDIN -- TO CORRECT MOD.1 FOR COLOSSUS 29DEC67 028387,000215: 028388,000216: # FUNCTIONAL DESCRIPTION 028389,000217: # BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF 028390,000218: # IGNITION (VTIG), TIME OF IGNITION (TIG)), DELV(LV), COMPUTE PERIGEE ALTITUDE 028391,000219: # APOGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN). 028392,000220: 028393,000221: # CALLING SEQUENCE 028394,000222: # L CALL 028395,000223: # L+1 S30.1 028396,000224: 028397,000225: # NORMAL EXIT MODE 028398,000226: # AT L+2 OR CALLING SEQUENCE (GOTO L+2) 028399,000227: 028400,000228: # SUBROUTINES CALLED 028401,000229: # THISPREC 028402,000230: # PERIAPO 028403,000231: 028404,000232: # ALARM OR ABORT EXIT MODES 028405,000233: # NONE 028406,000234: 028407,000235: # ERASABLE INITIALIZATION REQUIRED 028408,000236: # TIG TIME OF IGNITION DP B28CS 028409,000237: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT. 028410,000238: # COORDS. OF ACTIVE VEHICLE AT 028411,000239: # TIME OF IGNITION VCT. B+7 M/CS 028412,000240: 028413,000241: # OUTPUT 028414,000242: # RTIG POSITION AT TIG VCT. B+29 M 028415,000243: # VTIG VELOCITY AT TIG VCT. B+7 M 028416,000244: # HAPO APOGEE ALT. DP B+29 M 028417,000245: # HPER PERIGEE ALT. DP B+29 M 028418,000246: # DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS 028419,000247: # VGDISP MAG. OF DELVSIN DP B+7 M/CS 028420,000248: 028421,000249: # DEBRIS QTEMP TEMP.ERASABLE 028422,000250: # QPRET, MPAC 028423,000251: # PUSHLIST 028424,000252: 028425,000253: 31,2000 SETLOC P30S1A 028426,000254: 31,2000 BANK 028427,000255: 028428,000256: 31,3475 COUNT 35/S30S 028429,000257: 028430,000258: 31,3475 71220 S30.1 STQ DLOAD 028431,000259: 31,3476 03657 QTEMP 028432,000260: 31,3477 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS 028433,000261: 31,3500 34041 STCALL TDEC1 028434,000262: 31,3501 27071 THISPREC # ENCKE ROUTINE FOR 028435,000263: 028436,000264: 31,3502 67175 VLOAD SXA,2 028437,000265: 31,3503 00007 VATT 028438,000266: 31,3504 03746 RTX2 028439,000267: 31,3505 27640 STOVL VTIG 028440,000268: # Page 640 028441,000269: 31,3506 00001 RATT 028442,000270: 31,3507 03632 STORE RTIG 028443,000271: 31,3510 03540 STORE RACT3 028444,000272: 31,3511 53435 VXV UNIT 028445,000273: 31,3512 03640 VTIG 028446,000274: 31,3513 36617 STCALL UNRM 028447,000275: 31,3514 72666 LOMAT 028448,000276: 31,3515 61375 VLOAD VXM 028449,000277: 31,3516 03405 DELVSLV 028450,000278: 31,3517 00001 0 028451,000279: 31,3520 66172 VSL1 SXA,1 028452,000280: 31,3521 03745 RTX1 028453,000281: 31,3522 03646 STORE DELVSIN 028454,000282: 31,3523 77646 ABVAL 028455,000283: 31,3524 27773 STOVL VGDISP # MAG DELV 028456,000284: 31,3525 03632 RTIG 028457,000285: 31,3526 53315 PDVL VAD 028458,000286: 31,3527 03646 DELVSIN 028459,000287: 31,3530 03640 VTIG 028460,000288: 31,3531 77624 CALL 028461,000289: 31,3532 45153 PERIAPO1 028462,000290: 31,3533 77624 CALL 028463,000291: 31,3534 45263 SHIFTR1 028464,000292: 31,3535 77624 CALL 028465,000293: 31,3536 46754 MAXCHK 028466,000294: 31,3537 16366 STODL HPER # PERIGEE ALT B+29 028467,000295: 31,3540 00005 4D 028468,000296: 31,3541 77624 CALL 028469,000297: 31,3542 45263 SHIFTR1 028470,000298: 31,3543 77624 CALL 028471,000299: 31,3544 46754 MAXCHK 028472,000300: 31,3545 36364 STCALL HAPO # APOGEE ALT B+29 028473,000301: 31,3546 03657 QTEMP 028474,000302: 028475,000303: # Page 641 028476,000304: # S31.1 PROGRAM DESCRIPTION 28DEC67 028477,000305: # MOD.1 BY S.ZELDIN 028478,000306: 028479,000307: # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME, 028480,000308: # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER 028481,000309: 028482,000310: # CALLING SEQUENCE 028483,000311: # L CALL 028484,000312: # L+1 S31.1 028485,000313: 028486,000314: # NORMAL EXIT MODE 028487,000315: # AT L +2 OF CALLING SEQUENCE (GOTO L+2) 028488,000316: 028489,000317: # SUBROUTINES CALLED 028490,000318: # AGAIN 028491,000319: # PERIAPO1 028492,000320: # SHIFTR1 028493,000321: # MIDGIM 028494,000322: 028495,000323: # NO ALARM OR ABORT MODES 028496,000324: 028497,000325: # INPUT 028498,000326: # DELLT4 DP +28 028499,000327: # TIG DP +28 028500,000328: # RTARG VCT +29 028501,000329: 028502,000330: # OUTPUT 028503,000331: # DELVLVC VCT +7 028504,000332: # VGDISP DP +7 028505,000333: # HAPO DP +29 028506,000334: # HPER DP +29 028507,000335: # TPASS4 DP +28 028508,000336: 028509,000337: # DEBRIS -- QTEMP 028510,000338: 028511,000339: 31,3547 71220 S31.1 STQ DLOAD 028512,000340: 31,3550 03657 QTEMP 028513,000341: 31,3551 03413 TIG 028514,000342: 31,3552 34041 STCALL TDEC1 028515,000343: 31,3553 61651 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME 028516,000344: 31,3554 63375 VLOAD PDVL # DELUEET3 028517,000345: 31,3555 03632 RTIG 028518,000346: 31,3556 03612 VIPRIME 028519,000347: 31,3557 77624 CALL 028520,000348: 31,3560 45153 PERIAPO1 028521,000349: 31,3561 77624 CALL 028522,000350: 31,3562 45263 SHIFTR1 028523,000351: 31,3563 77624 CALL 028524,000352: 31,3564 46754 MAXCHK 028525,000353: 31,3565 16366 STODL HPER # B29 028526,000354: 31,3566 00005 4D 028527,000355: 31,3567 77624 CALL 028528,000356: 31,3570 45263 SHIFTR1 028529,000357: 31,3571 77624 CALL 028530,000358: 31,3572 46754 MAXCHK 028531,000359: 31,3573 26364 STOVL HAPO # B29 028532,000360: # Page 642 028533,000361: 31,3574 03646 DELVEET3 028534,000362: 31,3575 00001 STORE 0 028535,000363: 31,3576 45014 SET CALL 028536,000364: 31,3577 01072 AVFLAG 028537,000365: 31,3600 10647 MIDGIM # GET DELVLVC B7 FOR DISPLAY 028538,000366: 31,3601 77646 ABVAL 028539,000367: 31,3602 17773 STODL VGDISP # B+7 FOR DISPLAY 028540,000368: 31,3603 03423 DELLT4 028541,000369: 31,3604 77615 DAD 028542,000370: 31,3605 03413 TIG 028543,000371: 31,3606 37656 STCALL TPASS4 # FOR S40.1 028544,000372: 31,3607 03657 QTEMP 028545,000373: 028546,000374: # Page 643 028547,000375: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTIVE) 028548,000376: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67. 028549,000377: # MOD NO: 0 MOD BY: ZELDIN DATE: 028550,000378: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67 028551,000379: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT 028552,000380: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR ON MOD. 2 028553,000381: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR. 028554,000382: # MOD 4 MOD BY S.ZELDIN DATE: 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.16 WHICH REPLA 028555,000383: 028556,000384: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN 028557,000385: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE: 028558,000386: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE. 028559,000387: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER 028560,000388: # ANGLE IS NEGATIVE: SPASH ERROR= -RANGE TO TARGET. 028561,000389: # THE PRESENT TARGET LOCATION IS USED. 028562,000390: 028563,000391: # CALLING SEQUENCE: CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82) 028564,000392: 028565,000393: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV. 028566,000394: 028567,000395: # EXIT: RETURN DIRECTLY TO V 82 PROG. AT SPLRET 028568,000396: 028569,000397: # ERASABLE INITIALIZATION: LEFT BY SR30.1 AND V82GON1 028570,000398: 028571,000399: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS. DSKY DISPLAY IN N. MI. 028572,000400: 028573,000401: # DEBRIS: QPRET, PDL0 ... PDL7, PDL10. 028574,000402: 028575,000403: # THETA(1) 028576,000404: 028577,000405: 32,2017 BANK 32 028578,000406: 32,2000 SETLOC DELRSPL1 028579,000407: 32,2000 BANK 028580,000408: 32,2017 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V 028581,000409: 028582,000410: 32,2017 00011 DELRSPL STORE 8D 028583,000411: 32,2020 45244 BPL DSU 028584,000412: 32,2021 64067 CANTDO # GONE PAST 300K FT ALT 028585,000413: 32,2022 16326 1BITDP 028586,000414: 32,2023 45000 BOV CALL 028587,000415: 32,2024 64067 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION. 028588,000416: 32,2025 55051 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0 028589,000417: 32,2026 45006 PUSH CALL 028590,000418: 32,2027 56631 TFF/TRIG 028591,000419: 32,2030 77624 CALL 028592,000420: 32,2031 64075 AUGEKUGL 028593,000421: 32,2032 65525 PDDL ACOS # T ENTRY PDL 6 028594,000422: 32,2033 00017 CDELF/2 028595,000423: 32,2034 77615 DAD 028596,000424: 32,2035 00005 4 028597,000425: 32,2036 26350 GETARG STOVL THETA(1) 028598,000426: 32,2037 03401 LAT(SPL) 028599,000427: 32,2040 15104 STODL LAT 028600,000428: 32,2041 15335 HI6ZEROS 028601,000429: 32,2042 15110 STODL ALT # ALT=0 = LAT +4 028602,000430: 32,2043 01205 PIPTIME 028603,000431: # Page 644 028604,000432: 32,2044 71214 BON DLOAD 028605,000433: 32,2045 03711 V37FLAG 028606,000434: 32,2046 64050 +2 028607,000435: 32,2047 02325 TSTART82 028608,000436: 32,2050 43225 DSU DAD 028609,000437: 32,2051 00011 8D 028610,000438: 32,2052 45014 CLEAR CALL 028611,000439: 32,2053 00662 ERADFLAG 028612,000440: 32,2054 26441 LALOTORV # R RECOV. IN ALPHAV AND MPAC 028613,000441: 028614,000442: 32,2055 63256 UNIT PDVL 028615,000443: 32,2056 02327 RONE 028616,000444: 32,2057 50256 UNIT DOT 028617,000445: 32,2060 65552 SL1 ARCCOS 028618,000446: 32,2061 77621 BDSU # ERROR = THETA EST - THETA TARG 028619,000447: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT. 028620,000448: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT. 028621,000449: 32,2062 02350 THETA(1) 028622,000450: 32,2063 36356 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360 028623,000451: 32,2064 27455 INTWAKE0 028624,000452: 32,2065 77624 CALL 028625,000453: 32,2066 46653 SPLRET 028626,000454: 32,2067 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR 028627,000455: # FOR RANGE ANGLE. 028628,000456: 32,2070 15333 HIDPHALF # TO PDL 0 FOR DEN INDDV. 028629,000457: 32,2071 15335 HI6ZEROS 028630,000458: 32,2072 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY 028631,000459: 32,2073 34011 STCALL 8D 028632,000460: 32,2074 64036 GETARG # GO SET RSP-RREC =0 028633,000461: 028634,000462: 32,2075 77775 AUGEKUGL VLOAD 028635,000463: 32,2076 24256 X1CON -2 028636,000464: 32,2077 14045 STODL X1 -2 028637,000465: 32,2100 00001 0 028638,000466: 32,2101 50025 DSU BMN 028639,000467: 32,2102 24250 V(21K) 028640,000468: 32,2103 64130 LOOPSET 028641,000469: 32,2104 65060 XSU,1 XCHX,2 028642,000470: 32,2105 00050 S1 028643,000471: 32,2106 00046 X1 028644,000472: 32,2107 45324 XCHX,2 DSU 028645,000473: 32,2110 00050 S1 028646,000474: 32,2111 24236 V(3K) 028647,000475: 32,2112 65040 BMN XCHX,2 028648,000476: 32,2113 64130 LOOPSET 028649,000477: 32,2114 00050 S1 028650,000478: 32,2115 50025 DSU BMN 028651,000479: 32,2116 24246 V(4K) 028652,000480: 32,2117 64130 LOOPSET 028653,000481: 32,2120 65124 XCHX,2 XCHX,2 028654,000482: # Page 645 028655,000483: 32,2121 00050 S1 028656,000484: 32,2122 00046 X1 028657,000485: 32,2123 50025 DSU BMN 028658,000486: 32,2124 24232 V(400) 028659,000487: 32,2125 64130 LOOPSET 028660,000488: 32,2126 77730 SXA,1 028661,000489: 32,2127 00050 S1 028662,000490: 32,2130 52110 LOOPSET INCR,1 GOTO 028663,000491: 32,2131 00001 DEC 1 B-14 028664,000492: 32,2132 64135 K1K2LOOP 028665,000493: 32,2133 77730 K2CALC SXA,1 028666,000494: 32,2134 00050 S1 028667,000495: 32,2135 44745 K1K2LOOP DLOAD DSU* 028668,000496: 32,2136 00001 0 028669,000497: 32,2137 24245 V(32K) +1,1 028670,000498: 32,2140 42603 DMP* DAD* 028671,000499: 32,2141 24231 YK1K2 +1,1 028672,000500: 32,2142 24215 CK1K2 +1,1 028673,000501: 32,2143 60125 PDDL TIX,1 028674,000502: 32,2144 00003 2 028675,000503: 32,2145 64133 K2CALC 028676,000504: 32,2146 55225 DSU BDDV 028677,000505: 32,2147 40006 PUSH BOV 028678,000506: 32,2150 64173 MAXPHI 028679,000507: 32,2151 45240 BMN DSU 028680,000508: 32,2152 64173 MAXPHI 028681,000509: 32,2153 24200 MAXPHIC 028682,000510: 32,2154 77644 BPL 028683,000511: 32,2155 64173 MAXPHI 028684,000512: 32,2156 45345 PHICALC DLOAD DSU # PHI ENTRY PDL 4D 028685,000513: 32,2157 00001 0 028686,000514: 32,2160 24256 V(26K) 028687,000515: 32,2161 71244 BPL DLOAD 028688,000516: 32,2162 64170 TGR26 028689,000517: 32,2163 24252 TLESS26 028690,000518: 32,2164 77671 DDV 028691,000519: 32,2165 00001 0 028692,000520: 32,2166 43405 TENT DMP RVQ 028693,000521: 32,2167 00005 4D 028694,000522: 32,2170 52145 TGR26 DLOAD GOTO 028695,000523: 32,2171 24254 TGR26CON 028696,000524: 32,2172 64166 TENT 028697,000525: 028698,000526: 32,2173 65345 MAXPHI DLOAD PDDL 028699,000527: 32,2174 24200 MAXPHIC 028700,000528: 32,2175 77650 GOTO 028701,000529: 32,2176 64156 PHICALC 028702,000530: 32,2177 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY 028703,000531: 028704,000532: # Page 646 028705,000533: 028706,000534: 32,2201 COUNT* $$/P30 028707,000535: 028708,000536: # BELOW 028709,000537: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>> 028710,000538: 028711,000539: 32,2201 00013 22652 2DEC 7.07304526 E-4 # 5500 028712,000540: 32,2203 00005 01642 2DEC 3.08641975 E-4 # 2400 028713,000541: 32,2205 00005 01642 2DEC 3.08641975 E-4 # 2400 028714,000542: 32,2207 77556 53522 2DEC -8.8888888 E-3 # -3.2 028715,000543: 32,2211 00055 20266 2DEC 2.7777777 E-3 # 1 028716,000544: 32,2213 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4 028717,000545: 32,2215 00000 00000 2DEC 0 B-28 # 0 028718,000546: 32,2217 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443 028719,000547: 32,2221 00000 00000 2DEC 0 B-28 028720,000548: 32,2223 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225 028721,000549: 32,2225 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105 028722,000550: 32,2227 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285 028723,000551: 32,2231 00234 01660 V(400) 2DEC 1.2192 B-7 028724,000552: 32,2233 25254 01014 V(28K) 2DEC 85.344 B-7 028725,000553: 32,2235 02222 15646 V(3K) 2DEC 9.144 B-7 028726,000554: 32,2237 22223 16457 V(24K) 2DEC 73.152 B-7 028727,000555: 32,2241 25254 01014 2DEC 85.344 B-7 028728,000556: 32,2243 30304 23351 V(32K) 2DEC 97.536 B-7 028729,000557: 32,2245 03030 22335 V(4K) 2DEC 12.192 B-7 028730,000558: 32,2247 20000 00000 V(21K) 2DEC 64.000 B-7 028731,000559: 32,2251 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V 028732,000560: 32,2253 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3 028733,000561: 32,2255 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000 028734,000562: 028735,000563: # Page 647 028736,000564: 028737,000565: 32,2257 00012 X1CON DEC 10 B-14 028738,000566: 32,2260 00010 DEC 8 B-14 028739,000567: 32,2261 00006 DEC 6 B-14 028740,000568: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>> 028741,000569: # ABOVE 028742,000570: # Page 648 028743,000571: # ***** AVFLAG/P ***** 028744,000572: 028745,000573: # SUBROUTINES USED 028746,000574: 028747,000575: # UPFLAG 028748,000576: # DOWNFLAG 028749,000577: 028750,000578: 4000 SETLOC P30SUBS 028751,000579: 4000 BANK 028752,000580: 4627 E4,1770 EBANK= SUBEXIT 028753,000581: 4627 00006 AVFLAGA EXTEND # AVFLAG = CSM 028754,000582: 4630 23770 QXCH SUBEXIT 028755,000583: 4631 05560 TC DOWNFLAG 028756,000584: 4632 00050 ADRES AVFLAG # BIT 5 FLAG 2 028757,000585: 4633 35060 CAF EBANK7 028758,000586: 4634 54003 TS EBANK 028759,000587: 4635 E7,1424 EBANK= ECSTEER 028760,000588: 4635 35003 CAF BIT13 028761,000589: 4636 55424 TS ECSTEER # SET ECSTEER = 1 028762,000590: 4637 35005 CAF EBANK4 028763,000591: 4640 54003 TS EBANK 028764,000592: 4641 E4,1770 EBANK= SUBEXIT 028765,000593: 4641 01770 TC SUBEXIT 028766,000594: 4642 00006 AVFLAGP EXTEND # AVFLAG = LEM 028767,000595: 4643 23770 QXCH SUBEXIT 028768,000596: 4644 05546 TC UPFLAG 028769,000597: 4645 00050 ADRES AVFLAG # BIT 5 FLAG 2 028770,000598: 4646 01770 TC SUBEXIT 028771,000599: 4647 00006 P20FLGON EXTEND 028772,000600: 4650 23770 QXCH SUBEXIT 028773,000601: 4651 05546 TC UPFLAG 028774,000602: 4652 00031 ADRES TRACKFLG 028775,000603: 4653 05546 TC UPFLAG 028776,000604: 4654 00027 ADRES UPDATFLG 028777,000605: 4655 01770 TC SUBEXIT # DP B4 028778,000606: 028779,000607: End of include-file P30-P37.agc. Parent file is MAIN.agc