Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
027339,000002: ## Copyright: Public domain.
027340,000003: ## Filename: P30,P37.agc
027341,000004: ## Purpose: A section of Comanche revision 072.
027342,000005: ## It is part of the reconstructed source code for the first
027343,000006: ## release of the software for the Command Module's (CM) Apollo
027344,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
027345,000008: ## of this program are available; instead, this file was recreated
027346,000009: ## from a printout of Comanche 055, binary dumps of a set of
027347,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
027348,000011: ## and 072. It has been adapted such that the resulting bugger words
027349,000012: ## exactly match those specified for Comanche 072 in NASA drawing
027350,000013: ## 2021153G, which gives relatively high confidence that the
027351,000014: ## reconstruction is correct.
027352,000015: ## Assembler: yaYUL
027353,000016: ## Contact: Ron Burkey <info@sandroid.org>.
027354,000017: ## Website: www.ibiblio.org/apollo/index.html
027355,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
027356,000019:
027357,000020: 32,2017 BANK 32
027358,000021:
027359,000022: 35,2000 SETLOC P30S1
027360,000023: 35,2000 BANK
027361,000024:
027362,000025: 35,3264 E7,1625 EBANK= +MGA
027363,000026:
027364,000027: 35,3264 COUNT 35/P34
027365,000028:
027366,000029: 35,3264 77420 DISPMGA STQ EXIT # USED IN P30
027367,000030:
027368,000031: 35,3265 02370 RGEXIT
027369,000032: 35,3266 03304 TC COMPTGO
027370,000033:
027371,000034: 35,3267 34621 DISP45 CAF V16N45
027372,000035: 35,3270 04676 TC BANKCALL
027373,000036: 35,3271 21057 CADR GOFLASHR
027374,000037: 35,3272 04106 TC GOTOPOOH
027375,000038: 35,3273 03300 TC END45
027376,000039: 35,3274 03267 TC DISP45
027377,000040: 35,3275 05426 P30PHSI TC PHASCHNG
027378,000041: 35,3276 00014 OCT 14
027379,000042: 35,3277 05233 TCR ENDOFJOB
027380,000043: 35,3300 06006 END45 TC INTPRET
027381,000044: 35,3301 52014 CLEAR GOTO
027382,000045: 35,3302 03664 TIMRFLAG
027383,000046: 35,3303 02370 RGEXIT
027384,000047:
027385,000048: 35,3304 00006 COMPTGO EXTEND # USED TO COMPUTE TTOGO
027386,000049: 35,3305 23066 QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED ,, BEWARE **
027387,000050:
027388,000051: 35,3306 05562 TC UPFLAG # SET TIMRFLAG
027389,000052: 35,3307 00155 ADRES TIMRFLAG # BIT 11 FLAG 7
027390,000053: 35,3310 35035 CAF ZERO
027391,000054: 35,3311 55145 TS NVWORD1
027392,000055:
027393,000056: 35,3312 35033 CAF ONE
027394,000057: 35,3313 05261 TC WAITLIST
027395,000058: 35,3314 E7,1412 EBANK= TIG
027396,000059: 35,3314 03263 50067 2CADR CLOKTASK
027397,000060:
027398,000061: 35,3316 05406 TC 2PHSCHNG
027399,000062: 35,3317 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
027400,000063: 35,3320 05024 OCT 05024 # GROUP 4 CONTINUES HERE
027401,000064: 35,3321 13000 OCT 13000
027402,000065:
027403,000066: 35,3322 01066 TC PHSPRDT6
027404,000067: # PROGRAM DESCRIPTION P30 DATE 3-6-67
027405,000068: # MOD. I BY S. ZELDIN- TO ADD P31 AND ADAPT P30 FOR P31 USE. 22DEC67
027406,000069:
027407,000070: # FUNCTIONAL DESCRIPTION
027408,000071: # +30 (EXTERNAL DELTA-V TARGETTING PROGRAM)
027409,000072: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
027410,000073: # APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
027411,000074: # P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
027412,000075: # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027413,000076: # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027414,000077: # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
027415,000078: # ASTRONAUT ENTRY OF TIG, P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027416,000079: # AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
027417,000080: # DESIRED MANEUVER
027418,000081:
027419,000082: # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027420,000083: # S30.1 (P30 ONLY)
027421,000084: # S31.1 (P31 ONLY)
027422,000085: # P30/P31 - DISPLAYS TIG
027423,000086: # CNTUP30 - DISPLAYS DELV(LV)
027424,000087: # PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
027425,000088: # MARKS SINCE LAST THRUSTING MANEUVER
027426,000089:
027427,000090: # CALLING SEQUENCE VIA JOB FROM V37
027428,000091:
027429,000092: # EXIT VIA V37 CALL OR GOTOPOOH
027430,000093:
027431,000094: # OUTPUT FOR POWERED FLIGHT
027432,000095: # VTIG X
027433,000096: # RTIG X SEE S30.1
027434,000097: # DELVSIN X
027435,000098: # VGDISP
027436,000099: # RTARG X
027437,000100: # TPASS4 X SEE S31.1
027438,000101: # X
027439,000102:
027440,000103: 35,3323 COUNT 35/P30
027441,000104:
027442,000105: 35,3323 03355 P30 TC P30/P31
027443,000106: 35,3324 03374 TC CNTNUP30
027444,000107: 35,3325 05562 TC UPFLAG
027445,000108: 35,3326 00045 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
027446,000109: 35,3327 05574 TC DOWNFLAG # RESET UPDATFLG
027447,000110: 35,3330 00027 ADRES UPDATFLG # BIT 7 FLAG 1
027448,000111: 35,3331 06006 TC INTPRET
027449,000112: 35,3332 77624 CALL
027450,000113: 35,3333 63501 S30.1
027451,000114: 35,3334 77776 EXIT
027452,000115: 35,3335 03404 TC PARAM30
027453,000116: 35,3336 14106 TCF GOTOPOOH
027454,000117:
027455,000118: 35,3337 03355 P31 TC P30/P31
027456,000119: 35,3340 05574 TC DOWNFLAG
027457,000120: 35,3341 00027 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
027458,000121: 35,3342 05574 TC DOWNFLAG
027459,000122: 35,3343 00156 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
027460,000123: 35,3344 06006 TC INTPRET
027461,000124: 35,3345 77624 CALL
027462,000125: 35,3346 63553 S31.1
027463,000126: 35,3347 77776 EXIT
027464,000127: 35,3350 03374 TC CNTNUP30
027465,000128: 35,3351 03404 TC PARAM30
027466,000129: 35,3352 05574 TC DOWNFLAG
027467,000130: 35,3353 00045 ADRES XDELVFLG # BIT 8 FLAG 2
027468,000131: 35,3354 14106 TCF GOTOPOOH
027469,000132:
027470,000133: 35,3355 56002 P30/P31 XCH Q
027471,000134: 35,3356 55664 TS P30/31RT
027472,000135: 35,3357 05562 TC UPFLAG
027473,000136: 35,3360 00027 ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1
027474,000137: 35,3361 05562 TC UPFLAG
027475,000138: 35,3362 00031 ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1
027476,000139: 35,3363 33441 CAF V06N33 # T OF IGN
027477,000140: 35,3364 04676 TC BANKCALL
027478,000141: 35,3365 21057 CADR GOFLASHR
027479,000142: 35,3366 14106 TCF GOTOPOOH
027480,000143: 35,3367 01664 TC P30/31RT
027481,000144: 35,3370 13361 TCF P30/P31 +4
027482,000145: 35,3371 05426 TC PHASCHNG
027483,000146: 35,3372 00014 OCT 00014
027484,000147: 35,3373 05233 TC ENDOFJOB
027485,000148:
027486,000149: 35,3374 56002 CNTNUP30 XCH Q
027487,000150: 35,3375 55127 TS P30/RET
027488,000151: 35,3376 34620 CAF V06N81
027489,000152: 35,3377 04676 TC BANKCALL
027490,000153: 35,3400 20720 CADR GOFLASH
027491,000154: 35,3401 14106 TCF GOTOPOOH
027492,000155: 35,3402 01127 TC P30/RET
027493,000156: 35,3403 13376 TCF CNTNUP30 +2
027494,000157: 35,3404 56002 PARAM30 XCH Q
027495,000158: 35,3405 55664 TS P30/31RT
027496,000159: 35,3406 33442 CAF V06N42
027497,000160: 35,3407 04676 TC BANKCALL
027498,000161: 35,3410 20720 CADR GOFLASH
027499,000162: 35,3411 04106 TC GOTOPOOH # ON TERMINATION GOTOPOOH
027500,000163: 35,3412 13414 TCF REFTEST # ON PROCEED GO DO REFTEST
027501,000164: 35,3413 13406 TCF PARAM30 +2
027502,000165: 35,3414 35017 REFTEST CAF BIT13
027503,000166: 35,3415 70077 MASK STATE +3 # REFSMFLAG
027504,000167: 35,3416 00006 EXTEND
027505,000168: 35,3417 13427 BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET
027506,000169: 35,3420 06006 TC INTPRET
027507,000170: 35,3421 41575 VLOAD PUSH
027508,000171: 35,3422 03646 DELVSIN
027509,000172: 35,3423 77624 CALL
027510,000173: 35,3424 10654 GET+MGA
027511,000174: 35,3425 77650 GOTO
027512,000175: 35,3426 73433 FLASHMGA
027513,000176: 35,3427 00006 NOTSET EXTEND
027514,000177: 35,3430 43440 DCS MARSDP
027515,000178: 35,3431 53626 DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001)
027516,000179: 35,3432 06006 TC INTPRET
027517,000180: 35,3433 77624 FLASHMGA CALL
027518,000181: 35,3434 73264 DISPMGA
027519,000182: 35,3435 77776 EXIT
027520,000183: 35,3436 01664 TC P30/31RT
027521,000184: 35,3437 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001)
027522,000185: 35,3440 35100 OCT 35100
027523,000186: # ( .01 ) DEGREES IN THE LOW ORDER REGISTE
027524,000187:
027525,000188: 35,3441 01441 V06N33 VN 0633
027526,000189: 35,3442 01452 V06N42 VN 0642
027527,000190: 35,3443 04043 V16N35 VN 1635
027528,000191: 35,3444 01455 V06N45 VN 0645
027529,000192:
027530,000193: # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
027531,000194: # MOD NO 1 LOG SECTION P30,P37
027532,000195: # MOD BY RAMA AIYAWAR **
027533,000196: # MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
027534,000197:
027535,000198: # FUNCTIONAL DESCRIPTION
027536,000199: # BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
027537,000200: # IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
027538,000201: # A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
027539,000202:
027540,000203: # CALLING SEQUENCE
027541,000204: # L CALL
027542,000205: # L+1 S30.1
027543,000206:
027544,000207: # NORMAL EXIT MODE
027545,000208: # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027546,000209:
027547,000210: # SUBROUTINES CALLED
027548,000211: # THISPREC
027549,000212: # PERIAPO
027550,000213:
027551,000214: # ALARM OR ABORT EXIT MODES
027552,000215: # NONE
027553,000216:
027554,000217: # ERASABLE INITIALIZATION REQUIRED
027555,000218: # TIG TIME OF IGNITION DP B28CS
027556,000219: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
027557,000220: # COORDS. OF ACTIVE VEHICLE AT
027558,000221: # TIME OF IGNITION VCT. B+7 M/CS
027559,000222:
027560,000223: # OUTPUT
027561,000224: # RTIG POSITION AT TIG VCT. B+29 M
027562,000225: # VTIG VELOCITY AT TIG VCT. B+7 M
027563,000226: # HAPO APOGEE ALT. DP B+29 M
027564,000227: # HPER PERIGEE ALT. DP B+29 M
027565,000228: # DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS
027566,000229: # VGDISP MAG. OF DELVSIN DP B+7 M/CS
027567,000230:
027568,000231: # DEBRIS QTEMP TEMP.ERASABLE
027569,000232: # QPRET, MPAC
027570,000233: # PUSHLIST
027571,000234:
027572,000235: 31,2000 SETLOC P30S1A
027573,000236: 31,2000 BANK
027574,000237:
027575,000238: 31,3501 COUNT 35/S30S
027576,000239:
027577,000240: 31,3501 71220 S30.1 STQ DLOAD
027578,000241: 31,3502 03657 QTEMP
027579,000242: 31,3503 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS
027580,000243: 31,3504 34041 STCALL TDEC1
027581,000244: 31,3505 27100 THISPREC # ENCKE ROUTINE FOR
027582,000245:
027583,000246: 31,3506 67175 VLOAD SXA,2
027584,000247: 31,3507 00007 VATT
027585,000248: 31,3510 03746 RTX2
027586,000249: 31,3511 27640 STOVL VTIG
027587,000250: 31,3512 00001 RATT
027588,000251: 31,3513 03632 STORE RTIG
027589,000252: 31,3514 03540 STORE RACT3
027590,000253: 31,3515 53435 VXV UNIT
027591,000254: 31,3516 03640 VTIG
027592,000255: 31,3517 36617 STCALL UNRM
027593,000256: 31,3520 72666 LOMAT
027594,000257: 31,3521 61375 VLOAD VXM
027595,000258: 31,3522 03405 DELVSLV
027596,000259: 31,3523 00001 0
027597,000260: 31,3524 66172 VSL1 SXA,1
027598,000261: 31,3525 03745 RTX1
027599,000262: 31,3526 03646 STORE DELVSIN
027600,000263: 31,3527 77646 ABVAL
027601,000264: 31,3530 27773 STOVL VGDISP # MAG DELV
027602,000265: 31,3531 03632 RTIG
027603,000266: 31,3532 53315 PDVL VAD
027604,000267: 31,3533 03646 DELVSIN
027605,000268: 31,3534 03640 VTIG
027606,000269: 31,3535 77624 CALL
027607,000270: 31,3536 45153 PERIAPO1
027608,000271: 31,3537 77624 CALL
027609,000272: 31,3540 45263 SHIFTR1
027610,000273: 31,3541 77624 CALL
027611,000274: 31,3542 46756 MAXCHK
027612,000275: 31,3543 16366 STODL HPER # PERIGEE ALT B+29
027613,000276: 31,3544 00005 4D
027614,000277: 31,3545 77624 CALL
027615,000278: 31,3546 45263 SHIFTR1
027616,000279: 31,3547 77624 CALL
027617,000280: 31,3550 46756 MAXCHK
027618,000281: 31,3551 36364 STCALL HAPO # APOGEE ALT B+29
027619,000282: 31,3552 03657 QTEMP
027620,000283:
027621,000284: # S31.1 PROGRAM DESCRIPTION 28DEC67
027622,000285: # MOD.1 BY S.ZELDIN
027623,000286:
027624,000287: # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027625,000288: # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027626,000289:
027627,000290: # CALLING SEQUENCE
027628,000291: # L CALL
027629,000292: # L+1 S31.1
027630,000293:
027631,000294: # NORMAL EXIT MODE
027632,000295: # AT L +2 OF CALLING SEQUENCE (GOTO L+2)
027633,000296:
027634,000297: # SUBROUTINES CALLED
027635,000298: # AGAIN
027636,000299: # PERIAPO1
027637,000300: # SHIFTR1
027638,000301: # MIDGIM
027639,000302:
027640,000303: # NO ALARM OR ABORT MODES
027641,000304:
027642,000305: # INPUT
027643,000306: # DELLT4 DP +28
027644,000307: # TIG DP +28
027645,000308: # RTARG VCT +29
027646,000309:
027647,000310: # OUTPUT
027648,000311: # DELVLVC VCT +7
027649,000312: # VGDISP DP +7
027650,000313: # HAPO DP +29
027651,000314: # HPER DP +29
027652,000315: # TPASS4 DP +28
027653,000316:
027654,000317: # DEBRIS - QTEMP
027655,000318:
027656,000319: 31,3553 71220 S31.1 STQ DLOAD
027657,000320: 31,3554 03657 QTEMP
027658,000321: 31,3555 03413 TIG
027659,000322: 31,3556 34041 STCALL TDEC1
027660,000323: 31,3557 61651 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027661,000324: 31,3560 63375 VLOAD PDVL # DELUEET3
027662,000325: 31,3561 03632 RTIG
027663,000326: 31,3562 03612 VIPRIME
027664,000327: 31,3563 77624 CALL
027665,000328: 31,3564 45153 PERIAPO1
027666,000329: 31,3565 77624 CALL
027667,000330: 31,3566 45263 SHIFTR1
027668,000331: 31,3567 77624 CALL
027669,000332: 31,3570 46756 MAXCHK
027670,000333: 31,3571 16366 STODL HPER # B29
027671,000334: 31,3572 00005 4D
027672,000335: 31,3573 77624 CALL
027673,000336: 31,3574 45263 SHIFTR1
027674,000337: 31,3575 77624 CALL
027675,000338: 31,3576 46756 MAXCHK
027676,000339: 31,3577 26364 STOVL HAPO # B29
027677,000340: 31,3600 03646 DELVEET3
027678,000341: 31,3601 00001 STORE 0
027679,000342: 31,3602 45014 SET CALL
027680,000343: 31,3603 01072 AVFLAG
027681,000344: 31,3604 10647 MIDGIM # GET DELVLVC B7 FOR DISPLAY
027682,000345: 31,3605 77646 ABVAL
027683,000346: 31,3606 17773 STODL VGDISP # B+7 FOR DISPLAY
027684,000347: 31,3607 03423 DELLT4
027685,000348: 31,3610 77615 DAD
027686,000349: 31,3611 03413 TIG
027687,000350: 31,3612 37656 STCALL TPASS4 # FOR S40.1
027688,000351: 31,3613 03657 QTEMP
027689,000352:
027690,000353: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
027691,000354: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
027692,000355: # MOD NO: 0 MOD BY: ZELDIN DATE:
027693,000356: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
027694,000357: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
027695,000358: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR IN MOD. 2.
027696,000359: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
027697,000360: # MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
027698,000361:
027699,000362: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
027700,000363: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
027701,000364: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
027702,000365: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
027703,000366: # ANGLE IS NEGATIVE: SPLASH ERROR= -RANGE TO TARGET
027704,000367: # THE PRESENT TARGET LOCATION IS USED.
027705,000368:
027706,000369: # CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
027707,000370:
027708,000371: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
027709,000372:
027710,000373: # EXIT RETURN DIRECTLY TO V 82 PROG. AT SPLRET
027711,000374:
027712,000375: # ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
027713,000376:
027714,000377: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS DSKY DISPLAY IN N. MI.
027715,000378:
027716,000379: # DEBRIS: QPRET, PDL0 ... PDL7, PDL10
027717,000380:
027718,000381: # THETA(1)
027719,000382:
027720,000383: 32,2017 BANK 32
027721,000384: 32,2000 SETLOC DELRSPL1
027722,000385: 32,2000 BANK
027723,000386: 32,2017 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
027724,000387:
027725,000388: 32,2017 00011 DELRSPL STORE 8D
027726,000389: 32,2020 45244 BPL DSU
027727,000390: 32,2021 64067 CANTDO # GONE PAST 300K FT ALT
027728,000391: 32,2022 16326 1BITDP
027729,000392: 32,2023 45000 BOV CALL
027730,000393: 32,2024 64067 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
027731,000394: 32,2025 55050 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027732,000395: 32,2026 45006 PUSH CALL
027733,000396: 32,2027 56632 TFF/TRIG
027734,000397: 32,2030 77624 CALL
027735,000398: 32,2031 64075 AUGEKUGL
027736,000399: 32,2032 65525 PDDL ACOS # T ENTRY PDL 6
027737,000400: 32,2033 00017 CDELF/2
027738,000401: 32,2034 77615 DAD
027739,000402: 32,2035 00005 4
027740,000403: 32,2036 26350 GETARG STOVL THETA(1)
027741,000404: 32,2037 03401 LAT(SPL)
027742,000405: 32,2040 15104 STODL LAT
027743,000406: 32,2041 15334 HI6ZEROS
027744,000407: 32,2042 15110 STODL ALT # ALT=0 = LAT +4
027745,000408: 32,2043 01205 PIPTIME
027746,000409: 32,2044 71214 BON DLOAD
027747,000410: 32,2045 03711 V37FLAG
027748,000411: 32,2046 64050 +2
027749,000412: 32,2047 02325 TSTART82
027750,000413: 32,2050 43225 DSU DAD
027751,000414: 32,2051 00011 8D
027752,000415: 32,2052 45014 CLEAR CALL
027753,000416: 32,2053 00662 ERADFLAG
027754,000417: 32,2054 26447 LALOTORV # R RECOV. IN ALPHAV AND MPAC
027755,000418:
027756,000419: 32,2055 63256 UNIT PDVL
027757,000420: 32,2056 02327 RONE
027758,000421: 32,2057 50256 UNIT DOT
027759,000422: 32,2060 65552 SL1 ARCCOS
027760,000423: 32,2061 77621 BDSU # ERROR = THETA EST - THETA TARG
027761,000424: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
027762,000425: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
027763,000426: 32,2062 02350 THETA(1)
027764,000427: 32,2063 36356 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
027765,000428: 32,2064 27461 INTWAKE0
027766,000429: 32,2065 77624 CALL
027767,000430: 32,2066 46655 SPLRET
027768,000431: 32,2067 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
027769,000432: # FOR RANGE ANGLE.
027770,000433: 32,2070 15332 HIDPHALF # TO PDL 0 FOR DEN INDDV.
027771,000434: 32,2071 15334 HI6ZEROS
027772,000435: 32,2072 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY
027773,000436: 32,2073 34011 STCALL 8D
027774,000437: 32,2074 64036 GETARG # GO SET RSP-RREC =0
027775,000438:
027776,000439: 32,2075 77775 AUGEKUGL VLOAD
027777,000440: 32,2076 24256 X1CON -2
027778,000441: 32,2077 14045 STODL X1 -2
027779,000442: 32,2100 00001 0
027780,000443: 32,2101 50025 DSU BMN
027781,000444: 32,2102 24250 V(21K)
027782,000445: 32,2103 64130 LOOPSET
027783,000446: 32,2104 65060 XSU,1 XCHX,2
027784,000447: 32,2105 00050 S1
027785,000448: 32,2106 00046 X1
027786,000449: 32,2107 45324 XCHX,2 DSU
027787,000450: 32,2110 00050 S1
027788,000451: 32,2111 24236 V(3K)
027789,000452: 32,2112 65040 BMN XCHX,2
027790,000453: 32,2113 64130 LOOPSET
027791,000454: 32,2114 00050 S1
027792,000455: 32,2115 50025 DSU BMN
027793,000456: 32,2116 24246 V(4K)
027794,000457: 32,2117 64130 LOOPSET
027795,000458: 32,2120 65124 XCHX,2 XCHX,2
027796,000459: 32,2121 00050 S1
027797,000460: 32,2122 00046 X1
027798,000461: 32,2123 50025 DSU BMN
027799,000462: 32,2124 24232 V(400)
027800,000463: 32,2125 64130 LOOPSET
027801,000464: 32,2126 77730 SXA,1
027802,000465: 32,2127 00050 S1
027803,000466: 32,2130 52110 LOOPSET INCR,1 GOTO
027804,000467: 32,2131 00001 DEC 1 B-14
027805,000468: 32,2132 64135 K1K2LOOP
027806,000469: 32,2133 77730 K2CALC SXA,1
027807,000470: 32,2134 00050 S1
027808,000471: 32,2135 44745 K1K2LOOP DLOAD DSU*
027809,000472: 32,2136 00001 0
027810,000473: 32,2137 24245 V(32K) +1,1
027811,000474: 32,2140 42603 DMP* DAD*
027812,000475: 32,2141 24231 YK1K2 +1,1
027813,000476: 32,2142 24215 CK1K2 +1,1
027814,000477: 32,2143 60125 PDDL TIX,1
027815,000478: 32,2144 00003 2
027816,000479: 32,2145 64133 K2CALC
027817,000480: 32,2146 55225 DSU BDDV
027818,000481: 32,2147 40006 PUSH BOV
027819,000482: 32,2150 64173 MAXPHI
027820,000483: 32,2151 45240 BMN DSU
027821,000484: 32,2152 64173 MAXPHI
027822,000485: 32,2153 24200 MAXPHIC
027823,000486: 32,2154 77644 BPL
027824,000487: 32,2155 64173 MAXPHI
027825,000488: 32,2156 45345 PHICALC DLOAD DSU # PHI ENTRY PDL 4D
027826,000489: 32,2157 00001 0
027827,000490: 32,2160 24256 V(26K)
027828,000491: 32,2161 71244 BPL DLOAD
027829,000492: 32,2162 64170 TGR26
027830,000493: 32,2163 24252 TLESS26
027831,000494: 32,2164 77671 DDV
027832,000495: 32,2165 00001 0
027833,000496: 32,2166 43405 TENT DMP RVQ
027834,000497: 32,2167 00005 4D
027835,000498: 32,2170 52145 TGR26 DLOAD GOTO
027836,000499: 32,2171 24254 TGR26CON
027837,000500: 32,2172 64166 TENT
027838,000501:
027839,000502: 32,2173 65345 MAXPHI DLOAD PDDL
027840,000503: 32,2174 24200 MAXPHIC
027841,000504: 32,2175 77650 GOTO
027842,000505: 32,2176 64156 PHICALC
027843,000506: 32,2177 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
027844,000507:
027845,000508:
027846,000509: 32,2201 COUNT* $$/P30
027847,000510:
027848,000511: # BELOW
027849,000512: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027850,000513:
027851,000514: 32,2201 00013 22652 2DEC 7.07304526 E-4 # 5500
027852,000515: 32,2203 00005 01642 2DEC 3.08641975 E-4 # 2400
027853,000516: 32,2205 00005 01642 2DEC 3.08641975 E-4 # 2400
027854,000517: 32,2207 77556 53522 2DEC -8.8888888 E-3 # -3.2
027855,000518: 32,2211 00055 20266 2DEC 2.7777777 E-3 # 1
027856,000519: 32,2213 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4
027857,000520: 32,2215 00000 00000 2DEC 0 B-28 # 0
027858,000521: 32,2217 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443
027859,000522: 32,2221 00000 00000 2DEC 0 B-28
027860,000523: 32,2223 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225
027861,000524: 32,2225 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105
027862,000525: 32,2227 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
027863,000526: 32,2231 00234 01660 V(400) 2DEC 1.2192 B-7
027864,000527: 32,2233 25254 01014 V(28K) 2DEC 85.344 B-7
027865,000528: 32,2235 02222 15646 V(3K) 2DEC 9.144 B-7
027866,000529: 32,2237 22223 16457 V(24K) 2DEC 73.152 B-7
027867,000530: 32,2241 25254 01014 2DEC 85.344 B-7
027868,000531: 32,2243 30304 23351 V(32K) 2DEC 97.536 B-7
027869,000532: 32,2245 03030 22335 V(4K) 2DEC 12.192 B-7
027870,000533: 32,2247 20000 00000 V(21K) 2DEC 64.000 B-7
027871,000534: 32,2251 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
027872,000535: 32,2253 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
027873,000536: 32,2255 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000
027874,000537:
027875,000538:
027876,000539: 32,2257 00012 X1CON DEC 10 B-14
027877,000540: 32,2260 00010 DEC 8 B-14
027878,000541: 32,2261 00006 DEC 6 B-14
027879,000542: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027880,000543: # ABOVE
027881,000544: # ..... AVFLAGA/P .....
027882,000545:
027883,000546: # SUBROUTINES USED
027884,000547:
027885,000548: # UPFLAG
027886,000549: # DOWNFLAG
027887,000550:
027888,000551: 4000 SETLOC P30SUBS
027889,000552: 4000 BANK
027890,000553: 4627 E4,1770 EBANK= SUBEXIT
027891,000554: 4627 00006 AVFLAGA EXTEND # AVFLAG = CSM
027892,000555: 4630 23770 QXCH SUBEXIT
027893,000556: 4631 05574 TC DOWNFLAG
027894,000557: 4632 00050 ADRES AVFLAG # BIT 5 FLAG 2
027895,000558: 4633 35074 CAF EBANK7
027896,000559: 4634 54003 TS EBANK
027897,000560: 4635 E7,1424 EBANK= ECSTEER
027898,000561: 4635 35017 CAF BIT13
027899,000562: 4636 55424 TS ECSTEER # SET ECSTEER = 1
027900,000563: 4637 35021 CAF EBANK4
027901,000564: 4640 54003 TS EBANK
027902,000565: 4641 E4,1770 EBANK= SUBEXIT
027903,000566: 4641 01770 TC SUBEXIT
027904,000567: 4642 00006 AVFLAGP EXTEND # AVFLAG = LEM
027905,000568: 4643 23770 QXCH SUBEXIT
027906,000569: 4644 05562 TC UPFLAG
027907,000570: 4645 00050 ADRES AVFLAG # BIT 5 FLAG 2
027908,000571: 4646 01770 TC SUBEXIT
027909,000572: 4647 00006 P20FLGON EXTEND
027910,000573: 4650 23770 QXCH SUBEXIT
027911,000574: 4651 05562 TC UPFLAG
027912,000575: 4652 00031 ADRES TRACKFLG
027913,000576: 4653 05562 TC UPFLAG
027914,000577: 4654 00027 ADRES UPDATFLG
027915,000578: 4655 01770 TC SUBEXIT # DP B4
027916,000579:
027917,000580:
End of include-file P30,P37.agc. Parent file is MAIN.agc