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