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