ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
027945,000002: ## Copyright: Public domain.
027946,000003: ## Filename: P30-P37.agc
027947,000004: ## Purpose: Part of the source code for Colossus, build 249.
027948,000005: ## It is part of the source code for the Command Module's (CM)
027949,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
027950,000007: ## Assembler: yaYUL
027951,000008: ## Reference: pp. 626-639.
027952,000009: ## Contact: Ron Burkey <info@sandroid.org>.
027953,000010: ## Website: www.ibiblio.org/apollo.
027954,000011: ## Mod history: 08/15/04 RSB. Began transcribing. (A little comes from the
027955,000012: ## corresponding Luminary131 file.)
027956,000013: ## 2010-10-24 JL Fixed page numbers.
027957,000014: ## 2017-01-06 RSB Page numbers now agree with those on the
027958,000015: ## original harcopy, as opposed to the PDF page
027959,000016: ## numbers in 1701.pdf.
027960,000017: ## 2017-01-17 RSB Cross-diff'd comment text (not whitespace)
027961,000018: ## vs the already-proofed corresponding Colossus
027962,000019: ## 237 and Comanche 55 source-code files
027963,000020: ## and corrected errors found.
027964,000021: ##
027965,000022: ## The contents of the "Colossus249" files, in general, are transcribed
027966,000023: ## from a scanned copy of the program listing. Notations on this
027967,000024: ## document read, in part:
027968,000025: ##
027969,000026: ## Assemble revision 249 of AGC program Colossus by NASA
027970,000027: ## 2021111-041. October 28, 1968.
027971,000028: ##
027972,000029: ## This AGC program shall also be referred to as
027973,000030: ## Colossus 1A
027974,000031: ##
027975,000032: ## Prepared by
027976,000033: ## Massachusetts Institute of Technology
027977,000034: ## 75 Cambridge Parkway
027978,000035: ## Cambridge, Massachusetts
027979,000036: ## under NASA contract NAS 9-4065.
027980,000037: ##
027981,000038: ## Refer directly to the online document mentioned above for further information.
027982,000039: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
027983,000040: ##
027984,000041: ## In some cases, where the source code for Luminary 131 overlaps that of
027985,000042: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
027986,000043: ## source file, and then is proofed to incorporate any changes.
027987,000044:
|
|
Page 626 |
027989,000046: 32,2017 BANK 32
027990,000047:
027991,000048: 35,2000 SETLOC P30S1
027992,000049: 35,2000 BANK
027993,000050:
027994,000051: 35,3544 E7,1625 EBANK= +MGA
027995,000052:
027996,000053: 35,3544 COUNT 35/P34
027997,000054:
027998,000055: 35,3544 77420 DISPMGA STQ EXIT # USED IN P30
027999,000056: 35,3545 02370 RGEXIT
028000,000057: 35,3546 03564 TC COMPTGO
028001,000058:
028002,000059: 35,3547 33132 DISP45 CAF V16N45
028003,000060: 35,3550 04555 TC BANKCALL
028004,000061: 35,3551 20763 CADR GOFLASHR
028005,000062: 35,3552 04106 TC GOTOPOOH
028006,000063: 35,3553 03560 TC END45
028007,000064: 35,3554 03547 TC DISP45
028008,000065: 35,3555 05301 P30PHSI TC PHASCHNG
028009,000066: 35,3556 00014 OCT 14
028010,000067: 35,3557 05112 TCR ENDOFJOB
028011,000068: 35,3560 06006 END45 TC INTPRET
028012,000069: 35,3561 52014 CLEAR GOTO
028013,000070: 35,3562 03664 TIMRFLAG
028014,000071: 35,3563 02370 RGEXIT
028015,000072:
028016,000073: 35,3564 00006 COMPTGO EXTEND # USED TO COMPUTE TTOGO
028017,000074: 35,3565 23066 QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED ,, BEWARE **
028018,000075: 35,3566 05435 TC UPFLAG # SET TIMRFLAG
028019,000076: 35,3567 00155 ADRES TIMRFLAG # BIT 11 FLAG 7
028020,000077: 35,3570 34714 CAF ZERO
028021,000078: 35,3571 55145 TS NVWORD1
028022,000079: 35,3572 00004 INHINT
028023,000080: 35,3573 34712 CAF ONE
028024,000081: 35,3574 05140 TC WAITLIST
028025,000082: 35,3575 E7,1412 EBANK= TIG
028026,000083: 35,3575 03172 50067 2CADR CLOKTASK
028027,000084:
028028,000085: 35,3577 05261 TC 2PHSCHNG
028029,000086: 35,3600 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
028030,000087: 35,3601 05024 OCT 05024 # GROUP 4 CONTINUES HERE
028031,000088: 35,3602 13000 OCT 13000
028032,000089: 35,3603 01066 TC PHSPRDT6
|
|
Page 627 |
028034,000091: # PROGRAM DESCRIPTION P30 DATE 3-6-67
028035,000092: # MOD. I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE. 22DEC67
028036,000093:
028037,000094: # FUNCTIONAL DESCRIPTION
028038,000095: # +30 (EXTERNAL DELTA-V TARGETTING PROGRAM)
028039,000096: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES, FOR DISPLAY,
028040,000097: # APOGEE, PERIGEE, DELV(MAG), MGA ASSOCIATED WITH DESIRED MANEUVER
028041,000098: # P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
028042,000099: # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
028043,000100: # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
028044,000101: # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS, AND
028045,000102: # ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
028046,000103: # AND, FOR DISPLAY, APOGEE, PERIGEE, DELV(7AG), +MGA ASSOCIATED WITH
028047,000104: # DESIRED MANEUVER
028048,000105:
028049,000106: # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
028050,000107: # S30.1 (P30 ONLY)
028051,000108: # S31.1 (P31 ONLY)
028052,000109: # P30/P31 - DISPLAYS TIG
028053,000110: # CNTUP30 - DISPLAYS DELV(LV)
028054,000111: # PARAM30 - DISPLAYS APOGEE, PERIGEE, DELV(MAG), MGA, TIME FROM TIG,
028055,000112: # MARKS SINCE LAST THRUSTING MANEUVER
028056,000113:
028057,000114: # CALLING SEQUENCE VIA JOB FROM V37
028058,000115:
028059,000116: # EXIT VIA V37 CALL OR GOTOPOOH
028060,000117:
028061,000118: # OUTPUT FOR POWERED FLIGHT
028062,000119: # VTIG X
028063,000120: # RTIG X SEE S30.1
028064,000121: # DELVSIN X
028065,000122: # VGDISP
028066,000123: # RTARG X
028067,000124: # TPASS4 X SEE S31.1
028068,000125: # X
028069,000126:
028070,000127: 35,3604 COUNT 35/P30
028071,000128:
028072,000129: 35,3604 03636 P30 TC P30/P31
028073,000130: 35,3605 03655 TC CNTNUP30
028074,000131: 35,3606 05447 TC DOWNFLAG # RESET UPDATFLG
028075,000132: 35,3607 00027 ADRES UPDATFLG # BIT 7 FLAG 1
028076,000133: 35,3610 06006 TC INTPRET
028077,000134: 35,3611 77624 CALL
028078,000135: 35,3612 63102 S30.1
028079,000136: 35,3613 77776 EXIT
028080,000137: 35,3614 03665 TC PARAM30
028081,000138: 35,3615 05435 TC UPFLAG
|
|
Page 628 |
028083,000140: 35,3616 00045 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
028084,000141: 35,3617 14106 TCF GOTOPOOH
028085,000142:
028086,000143: 35,3620 03636 P31 TC P30/P31
028087,000144: 35,3621 05447 TC DOWNFLAG
028088,000145: 35,3622 00027 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
028089,000146: 35,3623 05447 TC DOWNFLAG
028090,000147: 35,3624 00156 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
028091,000148: 35,3625 06006 TC INTPRET
028092,000149: 35,3626 77624 CALL
028093,000150: 35,3627 63154 S31.1
028094,000151: 35,3630 77776 EXIT
028095,000152: 35,3631 03655 TC CNTNUP30
028096,000153: 35,3632 03665 TC PARAM30
028097,000154: 35,3633 05447 TC DOWNFLAG
028098,000155: 35,3634 00045 ADRES XDELVFLG # BIT 8 FLAG 2
028099,000156: 35,3635 14106 TCF GOTOPOOH
028100,000157:
028101,000158: 35,3636 56002 P30/P31 XCH Q
028102,000159: 35,3637 55664 TS P30/31RT
028103,000160: 35,3640 05435 TC UPFLAG
028104,000161: 35,3641 00027 ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1
028105,000162: 35,3642 05435 TC UPFLAG
028106,000163: 35,3643 00031 ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1
028107,000164: 35,3644 33722 CAF V06N33 # T OF IGN
028108,000165: 35,3645 04555 TC BANKCALL
028109,000166: 35,3646 20763 CADR GOFLASHR
028110,000167: 35,3647 14106 TCF GOTOPOOH
028111,000168: 35,3650 01664 TC P30/31RT
028112,000169: 35,3651 13642 TCF P30/P31 +4
028113,000170: 35,3652 05301 TC PHASCHNG
028114,000171: 35,3653 00014 OCT 00014
028115,000172: 35,3654 05112 TC ENDOFJOB
028116,000173: 35,3655 56002 CNTNUP30 XCH Q
028117,000174: 35,3656 55127 TS P30/RET
028118,000175: 35,3657 33131 CAF V06N81
028119,000176: 35,3660 04555 TC BANKCALL
028120,000177: 35,3661 20624 CADR GOFLASH
028121,000178: 35,3662 14106 TCF GOTOPOOH
028122,000179: 35,3663 01127 TC P30/RET
028123,000180: 35,3664 13657 TCF CNTNUP30 +2
028124,000181: 35,3665 56002 PARAM30 XCH Q
028125,000182: 35,3666 55664 TS P30/31RT
028126,000183: 35,3667 33723 CAF V06N42
028127,000184: 35,3670 04555 TC BANKCALL
028128,000185: 35,3671 20624 CADR GOFLASH
028129,000186: 35,3672 04106 TC GOTOPOOH # ON TERMINATION GOTOPOOH
028130,000187: 35,3673 13675 TCF REFTEST # ON PROCEED GO DO REFTEST
|
|
Page 629 |
028132,000189: 35,3674 13667 TCF PARAM30 +2
028133,000190: 35,3675 34676 REFTEST CAF BIT13
028134,000191: 35,3676 70077 MASK STATE +3 # REFSMFLAG
028135,000192: 35,3677 00006 EXTEND
028136,000193: 35,3700 13710 BZF NOTSET # REFSMFLAG =0, THEN BRANCH TO NOTSET
028137,000194: 35,3701 06006 TC INTPRET
028138,000195: 35,3702 41575 VLOAD PUSH
028139,000196: 35,3703 03646 DELVSIN
028140,000197: 35,3704 77624 CALL
028141,000198: 35,3705 10660 GET+MGA
028142,000199: 35,3706 77650 GOTO
028143,000200: 35,3707 73714 FLASHMGA
028144,000201: 35,3710 00006 NOTSET EXTEND
028145,000202: 35,3711 43721 DCS MARSDP
028146,000203: 35,3712 53626 DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001)
028147,000204: 35,3713 06006 TC INTPRET
028148,000205: 35,3714 77624 FLASHMGA CALL
028149,000206: 35,3715 73544 DISPMGA
028150,000207: 35,3716 77776 EXIT
028151,000208: 35,3717 01664 TC P30/31RT
028152,000209: 35,3720 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001)
028153,000210: 35,3721 35100 OCT 35100
028154,000211: # ( .01 ) DEGREES IN THE LOW ORDER REGISTE
028155,000212:
028156,000213: 35,3722 01441 V06N33 VN 0633
028157,000214: 35,3723 01452 V06N42 VN 0642
028158,000215: 35,3724 04043 V16N35 VN 1635
028159,000216: 35,3725 01455 V06N45 VN 0645
028160,000217:
|
|
Page 630 |
028162,000219: # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
028163,000220: # MOD NO 1 LOG SECTION P30,P37
028164,000221: # MOD BY RAMA AIYAWAR **
028165,000222: # MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
028166,000223:
028167,000224: # FUNCTIONAL DESCRIPTION
028168,000225: # BASED ON STORED TARGET PARAMETERS (R OF IGNITION (RTIG), V OF
028169,000226: # IGNITION (VTIG), TIME OF IGNITION (TIG), DELV(LV), COMPUTE PERIGEE ALTITUDE
028170,000227: # A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS. (DELVSIN)
028171,000228:
028172,000229: # CALLING SEQUENCE
028173,000230: # L CALL
028174,000231: # L+1 S30.1
028175,000232:
028176,000233: # NORMAL EXIT MODE
028177,000234: # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
028178,000235:
028179,000236: # SUBROUTINES CALLED
028180,000237: # THISPREC
028181,000238: # PERIAPO
028182,000239:
028183,000240: # ALARM OR ABORT EXIT MODES
028184,000241: # NONE
028185,000242:
028186,000243: # ERASABLE INITIALIZATION REQUIRED
028187,000244: # TIG TIME OF IGNITION DP B28CS
028188,000245: # DELVSLV SPECIFIED DELTA-V INLOCAL VERT.
028189,000246: # COORDS. OF ACTIVE VEHICLE AT
028190,000247: # TIME OF IGNITION VCT. B+7 M/CS
028191,000248:
028192,000249: # OUTPUT
028193,000250: # RTIG POSITION AT TIG VCT. B+29 M
028194,000251: # VTIG VELOCITY AT TIG VCT. B+7 M
028195,000252: # HAPO APOGEE ALT. DP B+29 M
028196,000253: # HPER PERIGEE ALT. DP B+29 M
028197,000254: # DELVSIN DELVSLV IN REF COORDS VCT. B+7 M/CS
028198,000255: # VGDISP MAG. OF DELVSIN DP B+7 M/CS
028199,000256:
028200,000257: # DEBRIS QTEMP TEMP.ERASABLE
028201,000258: # QPRET, MPAC
028202,000259: # PUSHLIST
028203,000260:
028204,000261: 31,2000 SETLOC P30S1A
028205,000262: 31,2000 BANK
028206,000263:
028207,000264: 31,3102 COUNT 35/S30S
028208,000265:
028209,000266: 31,3102 71220 S30.1 STQ DLOAD
028210,000267: 31,3103 03657 QTEMP
028211,000268: 31,3104 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS
028212,000269: 31,3105 34041 STCALL TDEC1
028213,000270: 31,3106 27022 THISPREC # ENCKE ROUTINE FOR
028214,000271:
028215,000272: 31,3107 67175 VLOAD SXA,2
028216,000273: 31,3110 00007 VATT
028217,000274: 31,3111 03746 RTX2
028218,000275: 31,3112 27640 STOVL VTIG
|
|
Page 631 |
028220,000277: 31,3113 00001 RATT
028221,000278: 31,3114 03632 STORE RTIG
028222,000279: 31,3115 03540 STORE RACT3
028223,000280: 31,3116 53435 VXV UNIT
028224,000281: 31,3117 03640 VTIG
028225,000282: 31,3120 36617 STCALL UNRM
028226,000283: 31,3121 72667 LOMAT
028227,000284: 31,3122 61375 VLOAD VXM
028228,000285: 31,3123 03405 DELVSLV
028229,000286: 31,3124 00001 0
028230,000287: 31,3125 66172 VSL1 SXA,1
028231,000288: 31,3126 03745 RTX1
028232,000289: 31,3127 03646 STORE DELVSIN
028233,000290: 31,3130 77646 ABVAL
028234,000291: 31,3131 27654 STOVL VGDISP # MAG DELV
028235,000292: 31,3132 03632 RTIG
028236,000293: 31,3133 53315 PDVL VAD
028237,000294: 31,3134 03646 DELVSIN
028238,000295: 31,3135 03640 VTIG
028239,000296: 31,3136 77624 CALL
028240,000297: 31,3137 45312 PERIAPO1
028241,000298: 31,3140 77624 CALL
028242,000299: 31,3141 45422 SHIFTR1
028243,000300: 31,3142 77624 CALL
028244,000301: 31,3143 46754 MAXCHK
028245,000302: 31,3144 16366 STODL HPER # PERIGEE ALT B+29
028246,000303: 31,3145 00005 4D
028247,000304: 31,3146 77624 CALL
028248,000305: 31,3147 45422 SHIFTR1
028249,000306: 31,3150 77624 CALL
028250,000307: 31,3151 46754 MAXCHK
028251,000308: 31,3152 36364 STCALL HAPO # APOGEE ALT B+29
028252,000309: 31,3153 03657 QTEMP
028253,000310:
|
|
Page 632 |
028255,000312: # S31.1 PROGRAM DESCRIPTION 28DEC67
028256,000313: # MOD.1 BY S.ZELDIN
028257,000314:
028258,000315: # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
028259,000316: # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
028260,000317:
028261,000318: # CALLING SEQUENCE
028262,000319: # L CALL
028263,000320: # L+1 S31.1
028264,000321:
028265,000322: # NORMAL EXIT MODE
028266,000323: # AT L +2 OF CALLING SEQUENCE (GOTO L+2)
028267,000324:
028268,000325: # SUBROUTINES CALLED
028269,000326: # AGAIN
028270,000327: # PERIAPO1
028271,000328: # SHIFTR1
028272,000329: # MIDGIM
028273,000330:
028274,000331: # NO ALARM OR ABORT MODES
028275,000332:
028276,000333: # INPUT
028277,000334: # DELLT4 DP +28
028278,000335: # TIG DP +28
028279,000336: # RTARG VCT +29
028280,000337:
028281,000338: # OUTPUT
028282,000339: # DELVLVC VCT +7
028283,000340: # VGDISP DP +7
028284,000341: # HAPO DP +29
028285,000342: # HPER DP +29
028286,000343: # TPASS4 DP +28
028287,000344:
028288,000345: # DEBRIS - QTEMP
028289,000346:
028290,000347: 31,3154 71220 S31.1 STQ DLOAD
028291,000348: 31,3155 03657 QTEMP
028292,000349: 31,3156 03413 TIG
028293,000350: 31,3157 34041 STCALL TDEC1
028294,000351: 31,3160 61663 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
028295,000352: 31,3161 63375 VLOAD PDVL # DELUEET3
028296,000353: 31,3162 03632 RTIG
028297,000354: 31,3163 03612 VIPRIME
028298,000355: 31,3164 77624 CALL
028299,000356: 31,3165 45312 PERIAPO1
028300,000357: 31,3166 77624 CALL
028301,000358: 31,3167 45422 SHIFTR1
028302,000359: 31,3170 77624 CALL
028303,000360: 31,3171 46754 MAXCHK
028304,000361: 31,3172 16366 STODL HPER # B29
028305,000362: 31,3173 00005 4D
028306,000363: 31,3174 77624 CALL
028307,000364: 31,3175 45422 SHIFTR1
028308,000365: 31,3176 77624 CALL
028309,000366: 31,3177 46754 MAXCHK
028310,000367: 31,3200 26364 STOVL HAPO # B29
|
|
Page 633 |
028312,000369: 31,3201 03646 DELVEET3
028313,000370: 31,3202 00001 STORE 0
028314,000371: 31,3203 45014 SET CALL
028315,000372: 31,3204 01072 AVFLAG
028316,000373: 31,3205 10653 MIDGIM # GET DELVLVC B7 FOR DISPLAY
028317,000374: 31,3206 77646 ABVAL
028318,000375: 31,3207 17654 STODL VGDISP # B+7 FOR DISPLAY
028319,000376: 31,3210 03423 DELLT4
028320,000377: 31,3211 77615 DAD
028321,000378: 31,3212 03413 TIG
028322,000379: 31,3213 37656 STCALL TPASS4 # FOR S40.1
028323,000380: 31,3214 03657 QTEMP
028324,000381:
|
|
Page 634 |
028326,000383: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
028327,000384: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
028328,000385: # MOD NO: 0 MOD BY: ZELDIN DATE:
028329,000386: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
028330,000387: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
028331,000388: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR IN MOD. 2.
028332,000389: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
028333,000390: # MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
028334,000391:
028335,000392: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
028336,000393: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
028337,000394: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
028338,000395: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
028339,000396: # ANGLE IS NEGATIVE: SPLASH ERROR= -RANGE TO TARGET
028340,000397: # THE PRESENT TARGET LOCATION IS USED.
028341,000398:
028342,000399: # CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
028343,000400:
028344,000401: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
028345,000402:
028346,000403: # EXIT RETURN DIRECTLY TO V 82 PROG. AT SPLRET
028347,000404:
028348,000405: # ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
028349,000406:
028350,000407: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS DSKY DISPLAY IN N. MI.
028351,000408:
028352,000409: # DEBRIS: QPRET, PDL0 ... PDL7, PDL10
028353,000410:
028354,000411: # THETA(1)
028355,000412:
028356,000413: 32,2017 BANK 32
028357,000414: 32,2000 SETLOC DELRSPL1
028358,000415: 32,2000 BANK
028359,000416: 32,2017 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
028360,000417:
028361,000418: 32,2017 00011 DELRSPL STORE 8D
028362,000419: 32,2020 45244 BPL DSU
028363,000420: 32,2021 64067 CANTDO # GONE PAST 300K FT ALT
028364,000421: 32,2022 16326 1BITDP
028365,000422: 32,2023 45000 BOV CALL
028366,000423: 32,2024 64067 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
028367,000424: 32,2025 55050 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
028368,000425: 32,2026 45006 PUSH CALL
028369,000426: 32,2027 56573 TFF/TRIG
028370,000427: 32,2030 77624 CALL
028371,000428: 32,2031 64075 AUGEKUGL
028372,000429: 32,2032 65525 PDDL ACOS # T ENTRY PDL 6
028373,000430: 32,2033 00017 CDELF/2
028374,000431: 32,2034 77615 DAD
028375,000432: 32,2035 00005 4
028376,000433: 32,2036 26350 GETARG STOVL THETA(1)
028377,000434: 32,2037 03401 LAT(SPL)
028378,000435: 32,2040 15104 STODL LAT
028379,000436: 32,2041 15332 HI6ZEROS
028380,000437: 32,2042 15110 STODL ALT # ALT=0 = LAT +4
028381,000438: 32,2043 01205 PIPTIME
|
|
Page 635 |
028383,000440: 32,2044 71214 BON DLOAD
028384,000441: 32,2045 03711 V37FLAG
028385,000442: 32,2046 64050 +2
028386,000443: 32,2047 02325 TSTART82
028387,000444: 32,2050 43225 DSU DAD
028388,000445: 32,2051 00011 8D
028389,000446: 32,2052 45014 CLEAR CALL
028390,000447: 32,2053 00662 ERADFLAG
028391,000448: 32,2054 26373 LALOTORV # R RECOV. IN ALPHAV AND MPAC
028392,000449:
028393,000450: 32,2055 63256 UNIT PDVL
028394,000451: 32,2056 02327 RONE
028395,000452: 32,2057 50256 UNIT DOT
028396,000453: 32,2060 65552 SL1 ARCCOS
028397,000454: 32,2061 77621 BDSU # ERROR = THETA EST - THETA TARG
028398,000455: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
028399,000456: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
028400,000457: 32,2062 02350 THETA(1)
028401,000458: 32,2063 36356 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
028402,000459: 32,2064 27404 INTWAKE0
028403,000460: 32,2065 77624 CALL
028404,000461: 32,2066 46653 SPLRET
028405,000462: 32,2067 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
028406,000463: # FOR RANGE ANGLE.
028407,000464: 32,2070 15330 HIDPHALF # TO PDL 0 FOR DEN INDDV.
028408,000465: 32,2071 15332 HI6ZEROS
028409,000466: 32,2072 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY
028410,000467: 32,2073 34011 STCALL 8D
028411,000468: 32,2074 64036 GETARG # GO SET RSP-RREC =0
028412,000469:
028413,000470: 32,2075 77775 AUGEKUGL VLOAD
028414,000471: 32,2076 24251 X1CON -2
028415,000472: 32,2077 14045 STODL X1 -2
028416,000473: 32,2100 00001 0
028417,000474: 32,2101 50025 DSU BMN
028418,000475: 32,2102 24243 V(21K)
028419,000476: 32,2103 64130 LOOPSET
028420,000477: 32,2104 65060 XSU,1 XCHX,2
028421,000478: 32,2105 00050 S1
028422,000479: 32,2106 00046 X1
028423,000480: 32,2107 45324 XCHX,2 DSU
028424,000481: 32,2110 00050 S1
028425,000482: 32,2111 24231 V(3K)
028426,000483: 32,2112 65040 BMN XCHX,2
028427,000484: 32,2113 64130 LOOPSET
028428,000485: 32,2114 00050 S1
028429,000486: 32,2115 50025 DSU BMN
028430,000487: 32,2116 24241 V(4K)
028431,000488: 32,2117 64130 LOOPSET
028432,000489: 32,2120 65124 XCHX,2 XCHX,2
|
|
Page 636 |
028434,000491: 32,2121 00050 S1
028435,000492: 32,2122 00046 X1
028436,000493: 32,2123 50025 DSU BMN
028437,000494: 32,2124 24225 V(400)
028438,000495: 32,2125 64130 LOOPSET
028439,000496: 32,2126 77730 SXA,1
028440,000497: 32,2127 00050 S1
028441,000498: 32,2130 52110 LOOPSET INCR,1 GOTO
028442,000499: 32,2131 00001 DEC 1 B-14
028443,000500: 32,2132 64135 K1K2LOOP
028444,000501: 32,2133 77730 K2CALC SXA,1
028445,000502: 32,2134 00050 S1
028446,000503: 32,2135 44745 K1K2LOOP DLOAD DSU*
028447,000504: 32,2136 00001 0
028448,000505: 32,2137 24240 V(32K) +1,1
028449,000506: 32,2140 42603 DMP* DAD*
028450,000507: 32,2141 24224 YK1K2 +1,1
028451,000508: 32,2142 24210 CK1K2 +1,1
028452,000509: 32,2143 60125 PDDL TIX,1
028453,000510: 32,2144 00003 2
028454,000511: 32,2145 64133 K2CALC
028455,000512: 32,2146 55225 DSU BDDV
028456,000513: 32,2147 50000 BOV BMN
028457,000514: 32,2150 64167 MAXPHI
028458,000515: 32,2151 64167 MAXPHI
028459,000516: 32,2152 45325 PHICALC PDDL DSU # PHI ENTRY PDL 4D
028460,000517: 32,2153 00001 0
028461,000518: 32,2154 24251 V(26K)
028462,000519: 32,2155 71244 BPL DLOAD
028463,000520: 32,2156 64164 TGR26
028464,000521: 32,2157 24245 TLESS26
028465,000522: 32,2160 77671 DDV
028466,000523: 32,2161 00001 0
028467,000524: 32,2162 43405 TENT DMP RVQ
028468,000525: 32,2163 00005 4D
028469,000526: 32,2164 52145 TGR26 DLOAD GOTO
028470,000527: 32,2165 24247 TGR26CON
028471,000528: 32,2166 64162 TENT
028472,000529: 32,2167 52145 MAXPHI DLOAD GOTO
028473,000530: 32,2170 24173 MAXPHIC
028474,000531: 32,2171 64152 PHICALC
028475,000532: 32,2172 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
028476,000533:
028477,000534: 32,2174 COUNT* $$/P30
028478,000535:
028479,000536: # BELOW
028480,000537: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
|
|
Page 637 |
028482,000539: 32,2174 00013 22652 2DEC 7.07304526 E-4 # 5500
028483,000540: 32,2176 00005 01642 2DEC 3.08641975 E-4 # 2400
028484,000541: 32,2200 00005 01642 2DEC 3.08641975 E-4 # 2400
028485,000542: 32,2202 77556 53522 2DEC -8.8888888 E-3 # -3.2
028486,000543: 32,2204 00055 20266 2DEC 2.7777777 E-3 # 1
028487,000544: 32,2206 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4
028488,000545: 32,2210 00000 00000 2DEC 0 B-28 # 0
028489,000546: 32,2212 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443
028490,000547: 32,2214 00000 00000 2DEC 0 B-28
028491,000548: 32,2216 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225
028492,000549: 32,2220 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105
028493,000550: 32,2222 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
028494,000551: 32,2224 00234 01660 V(400) 2DEC 1.2192 B-7
028495,000552: 32,2226 25254 01014 V(28K) 2DEC 85.344 B-7
028496,000553: 32,2230 02222 15646 V(3K) 2DEC 9.144 B-7
028497,000554: 32,2232 22223 16457 V(24K) 2DEC 73.152 B-7
028498,000555: 32,2234 25254 01014 2DEC 85.344 B-7
028499,000556: 32,2236 30304 23351 V(32K) 2DEC 97.536 B-7
028500,000557: 32,2240 03030 22335 V(4K) 2DEC 12.192 B-7
028501,000558: 32,2242 20000 00000 V(21K) 2DEC 64.000 B-7
028502,000559: 32,2244 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
028503,000560: 32,2246 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
028504,000561: 32,2250 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000
028505,000562: 32,2252 00012 X1CON DEC 10 B-14
028506,000563: 32,2253 00010 DEC 8 B-14
028507,000564: 32,2254 00006 DEC 6 B-14
028508,000565: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
|
|
Page 638 |
028510,000567: # ABOVE
|
|
Page 639 |
028512,000569: # ..... AVFLAGA/P .....
028513,000570:
028514,000571: # SUBROUTINES USED
028515,000572:
028516,000573: # UPFLAG
028517,000574: # DOWNFLAG
028518,000575:
028519,000576: 35,2000 SETLOC P30S1
028520,000577: 35,2000 BANK
028521,000578: 35,3726 E4,1770 EBANK= SUBEXIT
028522,000579:
028523,000580:
028524,000581: 35,3726 00006 AVFLAGA EXTEND # AVFLAG = CSM
028525,000582: 35,3727 23770 QXCH SUBEXIT
028526,000583: 35,3730 05447 TC DOWNFLAG
028527,000584: 35,3731 00050 ADRES AVFLAG # BIT 5 FLAG 2
028528,000585: 35,3732 34753 CAF EBANK7
028529,000586: 35,3733 54003 TS EBANK
028530,000587: 35,3734 E7,1424 EBANK= ECSTEER
028531,000588: 35,3734 34676 CAF BIT13
028532,000589: 35,3735 55424 TS ECSTEER # SET ECSTEER = 1
028533,000590: 35,3736 34700 CAF EBANK4
028534,000591: 35,3737 54003 TS EBANK
028535,000592: 35,3740 E4,1770 EBANK= SUBEXIT
028536,000593: 35,3740 01770 TC SUBEXIT
028537,000594: 35,3741 00006 AVFLAGP EXTEND # AVFLAG = LEM
028538,000595: 35,3742 23770 QXCH SUBEXIT
028539,000596: 35,3743 05435 TC UPFLAG
028540,000597: 35,3744 00050 ADRES AVFLAG # BIT 5 FLAG 2
028541,000598: 35,3745 01770 TC SUBEXIT
028542,000599: 35,3746 00006 P20FLGON EXTEND
028543,000600: 35,3747 23770 QXCH SUBEXIT
028544,000601: 35,3750 05435 TC UPFLAG
028545,000602: 35,3751 00031 ADRES TRACKFLG
028546,000603: 35,3752 05435 TC UPFLAG
028547,000604: 35,3753 00027 ADRES UPDATFLG
028548,000605: 35,3754 01770 TC SUBEXIT
028549,000606:
028550,000607:
End of include-file P30,P37.agc. Parent file is MAIN.agc