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