GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
027416,000002: ## Copyright: Public domain.
027417,000003: ## Filename: P30,P37.agc
027418,000004: ## Purpose: Part of the source code for Colossus build 237.
027419,000005: ## This is for the Command Module's (CM) Apollo Guidance
027420,000006: ## Computer (AGC), for Apollo 8.
027421,000007: ## Assembler: yaYUL
027422,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
027423,000009: ## Website: www.ibiblio.org/apollo/index.html
027424,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
027425,000011: ## Mod history: 2011-02-19 JL Adapted from corresponding Colossus 249 file.
027426,000012: ## 2011-04-29 JL Added missing line at the bottom of page 632.
027427,000013: ## 2016-12-31 RSB Proofed comment text using octopus/ProoferComments,
027428,000014: ## and corrected errors found.
027429,000015: ## 2017-01-17 RSB Fixed comment-text errors noted while diff'ing
027430,000016: ## vs Colossus 249.
027431,000017:
|
|
Page 624 |
027433,000019: 32,2017 BANK 32
027434,000020:
027435,000021: 35,2000 SETLOC P30S1
027436,000022: 35,2000 BANK
027437,000023:
027438,000024: 35,3544 E7,1625 EBANK= +MGA
027439,000025:
027440,000026: 35,3544 COUNT 35/P34
027441,000027:
027442,000028: 35,3544 77420 DISPMGA STQ EXIT # USED IN P30
027443,000029:
027444,000030: 35,3545 02370 RGEXIT
027445,000031: 35,3546 03564 TC COMPTGO
027446,000032:
027447,000033: 35,3547 33132 DISP45 CAF V16N45
027448,000034: 35,3550 04555 TC BANKCALL
027449,000035: 35,3551 20763 CADR GOFLASHR
027450,000036: 35,3552 04106 TC GOTOPOOH
027451,000037: 35,3553 03560 TC END45
027452,000038: 35,3554 03547 TC DISP45
027453,000039: 35,3555 05301 P30PHSI TC PHASCHNG
027454,000040: 35,3556 00014 OCT 14
027455,000041: 35,3557 05112 TCR ENDOFJOB
027456,000042: 35,3560 06006 END45 TC INTPRET
027457,000043: 35,3561 52014 CLEAR GOTO
027458,000044: 35,3562 03664 TIMRFLAG
027459,000045: 35,3563 02370 RGEXIT
027460,000046:
027461,000047: 35,3564 00006 COMPTGO EXTEND # USED TO COMPUTE TTOGO
027462,000048: 35,3565 23066 QXCH PHSPRDT6 # ** GROUP 6 TEMPORARY USED ,, BEWARE **
027463,000049:
027464,000050: 35,3566 05435 TC UPFLAG # SET TIMRFLAG
027465,000051: 35,3567 00155 ADRES TIMRFLAG # BIT 11 FLAG 7
027466,000052: 35,3570 34714 CAF ZERO
027467,000053: 35,3571 55145 TS NVWORD1
027468,000054:
027469,000055: 35,3572 00004 INHINT
027470,000056: 35,3573 34712 CAF ONE
027471,000057: 35,3574 05140 TC WAITLIST
027472,000058: 35,3575 E7,1412 EBANK= TIG
027473,000059: 35,3575 03174 50067 2CADR CLOKTASK
027474,000060:
027475,000061: 35,3577 05261 TC 2PHSCHNG
027476,000062: 35,3600 40036 OCT 40036 # 6.3SPOT FOR CLOKTASK
027477,000063: 35,3601 05024 OCT 05024 # GROUP 4 CONTINUES HERE
027478,000064: 35,3602 13000 OCT 13000
027479,000065:
027480,000066: 35,3603 01066 TC PHSPRDT6
027481,000067:
|
|
Page 625 |
027483,000069: # PROGRAM DESCRIPTION P30 DATE 3-6-67
027484,000070:
027485,000071: # MOD.I BY S. ZELDIN- TO ADD P31 AND AD APT P30 FOR P31 USE. 22DEC67
027486,000072: # FUNCTIONAL DESCRIPTION
027487,000073: # +30(EXTERNAL DELTA-V TARGETTING PROGRAM)
027488,000074: # ACCEPTS ASTRONAUT INPUTS OF TIG,DELV(LV) AND COMPUTES,FOR DISPLAY,
027489,000075: # APOGEE,PERIGEE,DELV(MAG),MGA ASSOCIATED WITH DESIRED MANEUVER
027490,000076:
027491,000077: # P31 (GENERAL LAMBERT AIMPOINT GUIDANCE)
027492,000078: # A GROUND RULE FOR P31 IS THE ANGLE BETWEEN THE TARGET VECTOR AND
027493,000079: # POSITION VECTOR AT TIG IS NOT 165-195 DEGREES APART
027494,000080: # BASED ON STORED INPUT OF OFFSET TARGET(B+29) AND DELTA T TRANS,AND
027495,000081: # ASTRONAUT ENTRY OF TIG,P31 COMPUTES REQUIRED VELOCITY FOR MANEUVER
027496,000082: # AND,FOR DISPLAY,APOGEE,PERIGEE,DELV(7AG),+MGA ASSOCIATED WITH
027497,000083: # DESIRED MANEUVER
027498,000084:
027499,000085: # THE FOLLOWING SUBROUTINES ARE USED IN P30 AND P31
027500,000086: # S30.1 (P30 ONLY)
027501,000087: # S31.1 (P31 ONLY)
027502,000088: # P30/P31 - DISPLAYS TIG
027503,000089: # CNTUP30 - DISPLAYS DELV(LV)
027504,000090: # PARAM30 - DISPLAYS APOGEE,PERIGEE,DELV(MAG),MGA,TIME FROM TIG,
027505,000091: # MARKS SINCE LAST THRUSTING MANEUVER
027506,000092:
027507,000093: # CALLING SEQUENCE VIA JOB FROM V37
027508,000094:
027509,000095: # EXIT VIA V37 CALL OR GOTOPOOH
027510,000096:
027511,000097: # OUTPUT FOR POWERED FLIGHT
027512,000098: # VTIG X
027513,000099: # RTIG XSEE S30.1
027514,000100: # DELVSIN X
027515,000101: # VGDISP
027516,000102: # RTARG X
027517,000103: # TPASS4 X SEE S31.1
027518,000104: # X
027519,000105:
027520,000106:
027521,000107: 35,3604 COUNT 35/P30
027522,000108:
027523,000109: 35,3604 03636 P30 TC P30/P31
027524,000110: 35,3605 03655 TC CNTNUP30
027525,000111: 35,3606 05447 TC DOWNFLAG # RESET UPDATFLG
027526,000112: 35,3607 00027 ADRES UPDATFLG # BIT 7 FLAG 1
027527,000113: 35,3610 06006 TC INTPRET
027528,000114: 35,3611 77624 CALL
027529,000115: 35,3612 63102 S30.1
027530,000116: 35,3613 77776 EXIT
027531,000117: 35,3614 03665 TC PARAM30
027532,000118: 35,3615 05435 TC UPFLAG
|
|
Page 626 |
027534,000120: 35,3616 00045 ADRES XDELVFLG # SET XDELVFLG BIT 8 FLAG 2
027535,000121: 35,3617 14106 TCF GOTOPOOH
027536,000122:
027537,000123: 35,3620 03636 P31 TC P30/P31
027538,000124: 35,3621 05447 TC DOWNFLAG
027539,000125: 35,3622 00027 ADRES UPDATFLG # RESET UPDATFLG BIT 7 FLAG 1
027540,000126: 35,3623 05447 TC DOWNFLAG
027541,000127: 35,3624 00156 ADRES NORMSW # RESET NORMSW BIT 10 FLAG 7
027542,000128: 35,3625 06006 TC INTPRET
027543,000129: 35,3626 77624 CALL
027544,000130: 35,3627 63154 S31.1
027545,000131: 35,3630 77776 EXIT
027546,000132: 35,3631 03655 TC CNTNUP30
027547,000133: 35,3632 03665 TC PARAM30
027548,000134: 35,3633 05447 TC DOWNFLAG
027549,000135: 35,3634 00045 ADRES XDELVFLG # BIT 8 FLAG 2
027550,000136: 35,3635 14106 TCF GOTOPOOH
027551,000137:
027552,000138: 35,3636 56002 P30/P31 XCH Q
027553,000139: 35,3637 55664 TS P30/31RT
027554,000140: 35,3640 05435 TC UPFLAG
027555,000141: 35,3641 00027 ADRES UPDATFLG # SET UPDATFLG BIT 7 FLAG 1
027556,000142: 35,3642 05435 TC UPFLAG
027557,000143: 35,3643 00031 ADRES TRACKFLG # SET TRACKFLG BIT 5 FLAG 1
027558,000144: 35,3644 33722 CAF V06N33 # T OF IGN
027559,000145: 35,3645 04555 TC BANKCALL
027560,000146: 35,3646 20763 CADR GOFLASHR
027561,000147: 35,3647 14106 TCF GOTOPOOH
027562,000148: 35,3650 01664 TC P30/31RT
027563,000149: 35,3651 13642 TCF P30/P31 +4
027564,000150: 35,3652 05301 TC PHASCHNG
027565,000151: 35,3653 00014 OCT 00014
027566,000152: 35,3654 05112 TC ENDOFJOB
027567,000153:
027568,000154:
027569,000155: 35,3655 56002 CNTNUP30 XCH Q
027570,000156: 35,3656 55127 TS P30/RET
027571,000157: 35,3657 33131 CAF V06N81
027572,000158: 35,3660 04555 TC BANKCALL
027573,000159: 35,3661 20624 CADR GOFLASH
027574,000160: 35,3662 14106 TCF GOTOPOOH
027575,000161: 35,3663 01127 TC P30/RET
027576,000162: 35,3664 13657 TCF CNTNUP30 +2
027577,000163: 35,3665 56002 PARAM30 XCH Q
027578,000164: 35,3666 55664 TS P30/31RT
027579,000165: 35,3667 33723 CAF V06N42
027580,000166: 35,3670 04555 TC BANKCALL
027581,000167: 35,3671 20624 CADR GOFLASH
027582,000168: 35,3672 04106 TC GOTOPOOH # ON TERMINATION GOTOPOOH
027583,000169: 35,3673 13675 TCF REFTEST # ON PROCEED GO DO REFTEST
|
|
Page 627 |
027585,000171: 35,3674 13667 TCF PARAM30 +2
027586,000172: 35,3675 34676 REFTEST CAF BIT13
027587,000173: 35,3676 70077 MASK STATE +3 # REFSMFLAG
027588,000174: 35,3677 00006 EXTEND
027589,000175: 35,3700 13710 BZF NOTSET # REFSMFLAG =0 , THEN BRANCH TO NOTSET
027590,000176: 35,3701 06006 TC INTPRET
027591,000177: 35,3702 41575 VLOAD PUSH
027592,000178: 35,3703 03646 DELVSIN
027593,000179: 35,3704 77624 CALL
027594,000180: 35,3705 10660 GET+MGA
027595,000181: 35,3706 77650 GOTO
027596,000182: 35,3707 73714 FLASHMGA
027597,000183: 35,3710 00006 NOTSET EXTEND
027598,000184: 35,3711 43721 DCS MARSDP
027599,000185: 35,3712 53626 DXCH +MGA # +MGA, +MGA+1 CONTAINS (-00001)
027600,000186: 35,3713 06006 TC INTPRET
027601,000187: 35,3714 77624 FLASHMGA CALL
027602,000188: 35,3715 73544 DISPMGA
027603,000189: 35,3716 77776 EXIT
027604,000190: 35,3717 01664 TC P30/31RT
027605,000191: 35,3720 00000 MARSDP OCT 00000 # (00000) (16440) = (+00001)
027606,000192: 35,3721 35100 OCT 35100
027607,000193: # ( .01 ) DEGREES IN THE LOW ORDER REGISTE
027608,000194: 35,3722 01441 V06N33 VN 0633
027609,000195: 35,3723 01452 V06N42 VN 0642
027610,000196: 35,3724 04043 V16N35 VN 1635
027611,000197: 35,3725 01455 V06N45 VN 0645
027612,000198:
|
|
Page 628 |
027614,000200: # PROGRAM DESCRIPTION S30.1 DATE 9NOV66
027615,000201:
027616,000202: # MOD NO 1 LOG SECTION P30,P37
027617,000203: # MOD BY RAMA AIYAWAR **
027618,000204: # MOD.2 BY S.ZELDIN - TO CORRECT MOD.1 FOR COLOSSUS 29DEC67
027619,000205: # FUNCTIONAL DESCRIPTION
027620,000206: # BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
027621,000207: # IGNITION(VTIG),TIME OF IGNITION(TIG),DELV(LV),COMPUTE PERIGEE ALTITUDE
027622,000208: # A+OGEE ALTITUDE AND DELTA-V REQUIRED IN REF. COORDS.(DELVSIN)
027623,000209: # CALLING SEQUENCE
027624,000210: # L CALL
027625,000211: # L+1 S30.1
027626,000212: # NORMAL EXIT MODE
027627,000213: # AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027628,000214: # SUBROUTINES CALLED
027629,000215: # THISPREC
027630,000216: # PERIAPO
027631,000217: # ALARM OR ABORT EXIT MODES
027632,000218: # NONE
027633,000219: # ERASABLE INITIALIZATION REQUIRED
027634,000220: # TIG TIME OF IGNITION DP B28CS
027635,000221: # DELVSLV SPECIFIED DELTA-V IN LOCAL VERT.
027636,000222: # COORDS. OF ACTIVE VEHICLE AT
027637,000223: # TIME OF IGNITION VCT. B+7M/CS
027638,000224: # OUTPUT
027639,000225: # RTIG POSITION AT TIG VCT. B+29M
027640,000226: # VTIG VELOCITY AT TIG VCT. B+7M
027641,000227: # HAPO APOGEE ALT. DP B+29M
027642,000228: # HPER PERIGEE ALT. DP B+29M
027643,000229: # DELVSIN DELVSLV IN REF COORDS VCT. B+7M/CS
027644,000230: # VGDISP MAG. OF DELVSIN DP B+7M/CS
027645,000231: # DEBRIS QTEMP TEMP. ERASABLE
027646,000232: # QPRET,MPAC
027647,000233: # PUSHLIST
027648,000234:
027649,000235: 31,2000 SETLOC P30S1A
027650,000236: 31,2000 BANK
027651,000237:
027652,000238: 31,3102 COUNT 35/S30S
027653,000239:
027654,000240: 31,3102 71220 S30.1 STQ DLOAD
027655,000241: 31,3103 03657 QTEMP
027656,000242: 31,3104 03413 TIG # TIME IGNITION SCALED AT 2(+28)CS
027657,000243: 31,3105 34041 STCALL TDEC1
027658,000244: 31,3106 27022 THISPREC # ENCKE ROUTINE FOR
027659,000245:
027660,000246: 31,3107 67175 VLOAD SXA,2
027661,000247: 31,3110 00007 VATT
027662,000248: 31,3111 03746 RTX2
027663,000249: 31,3112 27640 STOVL VTIG
|
|
Page 629 |
027665,000251: 31,3113 00001 RATT
027666,000252: 31,3114 03632 STORE RTIG
027667,000253: 31,3115 03540 STORE RACT3
027668,000254: 31,3116 53435 VXV UNIT
027669,000255: 31,3117 03640 VTIG
027670,000256: 31,3120 36617 STCALL UNRM
027671,000257: 31,3121 72667 LOMAT
027672,000258: 31,3122 61375 VLOAD VXM
027673,000259: 31,3123 03405 DELVSLV
027674,000260: 31,3124 00001 0
027675,000261: 31,3125 66172 VSL1 SXA,1
027676,000262: 31,3126 03745 RTX1
027677,000263: 31,3127 03646 STORE DELVSIN
027678,000264: 31,3130 77646 ABVAL
027679,000265: 31,3131 27654 STOVL VGDISP # MAG DELV
027680,000266: 31,3132 03632 RTIG
027681,000267: 31,3133 53315 PDVL VAD
027682,000268: 31,3134 03646 DELVSIN
027683,000269: 31,3135 03640 VTIG
027684,000270: 31,3136 77624 CALL
027685,000271: 31,3137 45312 PERIAPO1
027686,000272: 31,3140 77624 CALL
027687,000273: 31,3141 45422 SHIFTR1
027688,000274: 31,3142 77624 CALL
027689,000275: 31,3143 46754 MAXCHK
027690,000276: 31,3144 16366 STODL HPER # PERIGEE ALT B+29
027691,000277: 31,3145 00005 4D
027692,000278: 31,3146 77624 CALL
027693,000279: 31,3147 45422 SHIFTR1
027694,000280: 31,3150 77624 CALL
027695,000281: 31,3151 46754 MAXCHK
027696,000282: 31,3152 36364 STCALL HAPO # APOGEE ALT B+29
027697,000283: 31,3153 03657 QTEMP
027698,000284:
|
|
Page 630 |
027700,000286: # S31.1 PROGRAM DESCRIPTION 28DEC67
027701,000287: # MOD.1 BY S.ZELDIN
027702,000288:
027703,000289: # S31.1 COMPUTES DELV IN REF AND LV COORDS,MAG OF DELV,INTERCEPT TIME,
027704,000290: # APOGEE AND PERIGEE ALT FOR REQUIRED MANEUVER
027705,000291:
027706,000292: # CALLING SEQUENCE
027707,000293: # L CALL
027708,000294: # L +1 S31.1
027709,000295:
027710,000296: # NORMAL EXIT MODE
027711,000297: # AT L +2 OF CALLING SEQUENCE(GOTO L+2)
027712,000298: # SUBROUTINES CALLED
027713,000299: # AGAIN
027714,000300: # PERIAPO1
027715,000301: # SHIFTR1
027716,000302: # MIDGIM
027717,000303: # NO ALARM OR ABORT MODES
027718,000304: # INPUT
027719,000305: # DELLT4 DP +28
027720,000306: # TIG DP +28
027721,000307: # RTARG VCT +29
027722,000308: # OUTPUT
027723,000309: # DELVLVC VCT +7
027724,000310: # VGDISP DP +7
027725,000311: # HAPO DP +29
027726,000312: # HPER DP +29
027727,000313: # TPASS4 DP +28
027728,000314: # DEBRIS - QTEMP
027729,000315: 31,3154 71220 S31.1 STQ DLOAD
027730,000316: 31,3155 03657 QTEMP
027731,000317: 31,3156 03413 TIG
027732,000318: 31,3157 34041 STCALL TDEC1
027733,000319: 31,3160 61663 AGAIN # RETURNS RTX2,RTX1,RATT,VATT,VIPRIME
027734,000320: 31,3161 63375 VLOAD PDVL # DELUEET3
027735,000321: 31,3162 03632 RTIG
027736,000322: 31,3163 03612 VIPRIME
027737,000323: 31,3164 77624 CALL
027738,000324: 31,3165 45312 PERIAPO1
027739,000325: 31,3166 77624 CALL
027740,000326: 31,3167 45422 SHIFTR1
027741,000327: 31,3170 77624 CALL
027742,000328: 31,3171 46754 MAXCHK
027743,000329: 31,3172 16366 STODL HPER # B29
027744,000330: 31,3173 00005 4D
027745,000331: 31,3174 77624 CALL
027746,000332: 31,3175 45422 SHIFTR1
027747,000333: 31,3176 77624 CALL
027748,000334: 31,3177 46754 MAXCHK
027749,000335: 31,3200 26364 STOVL HAPO # B29
|
|
Page 631 |
027751,000337: 31,3201 03646 DELVEET3
027752,000338: 31,3202 00001 STORE 0
027753,000339: 31,3203 45014 SET CALL
027754,000340: 31,3204 01072 AVFLAG
027755,000341: 31,3205 10653 MIDGIM # GET DELVLVC B7 FORDISPLAY
027756,000342: 31,3206 77646 ABVAL
027757,000343: 31,3207 17654 STODL VGDISP # B+7 FOR DISPLAY
027758,000344: 31,3210 03423 DELLT4
027759,000345: 31,3211 77615 DAD
027760,000346: 31,3212 03413 TIG
027761,000347: 31,3213 37656 STCALL TPASS4 # FOR S40.1
027762,000348: 31,3214 03657 QTEMP
027763,000349:
|
|
Page 632 |
027765,000351: # SUBROUTINE NAME: DELRSPL (CONTINUATION OF V 82 IN CSM IF P11 ACTI
027766,000352: # TRANSFERRED COMPLETELY FROM SUNDISK, P30S REV 33. 9 SEPT 67.
027767,000353: # MOD NO: 0 MOD BY: ZELDIN DATE:
027768,000354: # MOD NO: 1 MOD BY: RR BAIRNSFATHER DATE: 11 APR 67
027769,000355: # MOD NO: 2 MOD BY: RR BAIRNSFATHER DATE: 12 MAY 67 ADD UR.RT CALC WHEN BELOW 300K FT
027770,000356: # MOD NO: 2.1 MOD BY: RR BAIRNSFATHER DATE: 5 JULY 67 FIX ERROR IN MOD. 2.
027771,000357: # MOD NO: 3 MOD BY: RR BAIRNSFATHER DATE: 12 JUL 67 CHANGE SIGN OF DISPLAYED ERROR.
027772,000358: # MOD 4 MOD BY S.ZELDIN DATE 3 APRIL 68 CHANGE EQUATIONS FOR L/D=.18 WHICH REPLA
027773,000359: # FUNCTION: CALCULATE (FOR DISPLAY ON CALL) AN APPROXIMATE MEASURE OF IN-PLANE SPLASH DOWN
027774,000360: # ERROR. IF THE FREE-FALL TRANSFER ANGLE TO 300K FT ABOVE PAD RADIUS IS POSITIVE:
027775,000361: # SPLASH ERROR= -RANGE TO TARGET + FREE-FALL TRANSFER ANGLE + ESTIMATED ENTRY ANGLE.
027776,000362: # THE TARGET LOCATION AT ESTIMATED TIME OF IMPACT IS USED. IF THE FREE-FALL TRANSFER
027777,000363: # ANGLE IS NEGATIVE: SPLASH ERROR= -RANGE TO TARGET
027778,000364: # THE PRESENT TARGET LOCATION IS USED.
027779,000365: # CALLING SEQUENCE CALLED AFTER SR30.1 IF IN CSM AND IF P11 OPERATING (UNDER CONTROL OF V82)
027780,000366: # SUBROUTINES CALLED: VGAMCALC, TFF/TRIG, LALOTORV.
027781,000367: # EXIT RETURN DIRECTLY TO V 82 PROG. AT SPLRET
027782,000368: # ERASABLE INITIALIZATION LEFT BY SR30.1 AND V82GON1
027783,000369: # OUTPUT: RSP-RREC RANGE IN REVOLUTIONS DSKY DISPLAY IN N. MI.
027784,000370: # DEBRIS: QPRET, PDL0 ...PDL7 ,PDL10
027785,000371:
027786,000372: # THETA(1)
027787,000373:
027788,000374:
027789,000375: 32,2017 BANK 32
027790,000376: 32,2000 SETLOC DELRSPL1
027791,000377: 32,2000 BANK
027792,000378: 32,2017 COUNT* $$/P30 # PROGRAMS: P30 EXTERNAL DELTA V
027793,000379:
027794,000380: 32,2017 00011 DELRSPL STORE 8D
027795,000381: 32,2020 45244 BPL DSU
027796,000382: 32,2021 64063 CANTDO # GONE PAST 300K FT ALT
027797,000383: 32,2022 16326 1BITDP
027798,000384: 32,2023 45000 BOV CALL
027799,000385: 32,2024 64063 CANTDO # POSMAX INDICATES NO 300K FT SOLUTION.
027800,000386: 32,2025 55050 VGAMCALC # +GAMMA(REV) IN PMAC,V300 MAG(B-7)=PDL 0
027801,000387: 32,2026 45006 PUSH CALL
027802,000388: 32,2027 56573 TFF/TRIG
027803,000389: 32,2030 77624 CALL
027804,000390: 32,2031 64071 AUGEKUGL
027805,000391: 32,2032 65525 PDDL ACOS # T ENTRY PDL 6
027806,000392: 32,2033 00017 CDELF/2
027807,000393: 32,2034 77615 DAD
027808,000394: 32,2035 00005 4
027809,000395: 32,2036 26350 GETARG STOVL THETA(1)
027810,000396: 32,2037 03401 LAT(SPL)
027811,000397: 32,2040 15104 STODL LAT
027812,000398: 32,2041 15332 HI6ZEROS
027813,000399: 32,2042 15110 STODL ALT # ALT=0 = LAT +4
027814,000400: 32,2043 43225 DSU DAD
|
|
Page 633 |
027816,000402: 32,2044 00011 8D
027817,000403: 32,2045 01205 PIPTIME
027818,000404: 32,2046 45014 CLEAR CALL
027819,000405: 32,2047 00662 ERADFLAG
027820,000406: 32,2050 26373 LALOTORV # R RECOV. IN ALPHAV AND MPAC
027821,000407:
027822,000408: 32,2051 63256 UNIT PDVL
027823,000409: 32,2052 02327 RONE
027824,000410: 32,2053 50256 UNIT DOT
027825,000411: 32,2054 65552 SL1 ARCCOS
027826,000412: 32,2055 77621 BDSU # ERROR = THETA EST - THETA TARG
027827,000413: # NEGATIVE NUMBER SIGNIFIES THAT WILL FALL SHORT.
027828,000414: # POSITIVE NUMBER SIGNIFIES THAT WILL OVERSHOOT.
027829,000415: 32,2056 02350 THETA(1)
027830,000416: 32,2057 36356 DELRDONE STCALL RSP-RREC # DOWNRANGE RECOVERY RANGE ERROR /360
027831,000417: 32,2060 27404 INTWAKE0
027832,000418: 32,2061 77624 CALL
027833,000419: 32,2062 46653 SPLRET
027834,000420: 32,2063 65345 CANTDO DLOAD PDDL # INITIALIZE ERASE TO DOT TARGET AND UR
027835,000421: # FOR RANGE ANGLE.
027836,000422: 32,2064 15330 HIDPHALF # TO PDL 0 FOR DEN IN DDV.
027837,000423: 32,2065 15332 HI6ZEROS
027838,000424: 32,2066 77606 PUSH # ZERO TO PDL 2 FOR PHI ENTRY
027839,000425: 32,2067 34011 STCALL 8D
027840,000426: 32,2070 64036 GETARG # GO SET RSP-RREC =0
027841,000427:
027842,000428: 32,2071 77775 AUGEKUGL VLOAD
027843,000429: 32,2072 24245 X1CON -2
027844,000430: 32,2073 14045 STODL X1 -2
027845,000431: 32,2074 00001 0
027846,000432: 32,2075 50025 DSU BMN
027847,000433: 32,2076 24237 V(21K)
027848,000434: 32,2077 64124 LOOPSET
027849,000435: 32,2100 65060 XSU,1 XCHX,2
027850,000436: 32,2101 00050 S1
027851,000437: 32,2102 00046 X1
027852,000438: 32,2103 45324 XCHX,2 DSU
027853,000439: 32,2104 00050 S1
027854,000440: 32,2105 24225 V(3K)
027855,000441: 32,2106 65040 BMN XCHX,2
027856,000442: 32,2107 64124 LOOPSET
027857,000443: 32,2110 00050 S1
027858,000444: 32,2111 50025 DSU BMN
027859,000445: 32,2112 24235 V(4K)
027860,000446: 32,2113 64124 LOOPSET
027861,000447: 32,2114 65124 XCHX,2 XCHX,2
027862,000448: 32,2115 00050 S1
027863,000449: 32,2116 00046 X1
027864,000450: 32,2117 50025 DSU BMN
027865,000451: 32,2120 24221 V(400)
|
|
Page 634 |
027867,000453: 32,2121 64124 LOOPSET
027868,000454: 32,2122 77730 SXA,1
027869,000455: 32,2123 00050 S1
027870,000456: 32,2124 52110 LOOPSET INCR,1 GOTO
027871,000457: 32,2125 00001 DEC 1 B-14
027872,000458: 32,2126 64131 K1K2LOOP
027873,000459: 32,2127 77730 K2CALC SXA,1
027874,000460: 32,2130 00050 S1
027875,000461: 32,2131 44745 K1K2LOOP DLOAD DSU*
027876,000462: 32,2132 00001 0
027877,000463: 32,2133 24234 V(32K) +1,1
027878,000464: 32,2134 42603 DMP* DAD*
027879,000465: 32,2135 24220 YK1K2 +1,1
027880,000466: 32,2136 24204 CK1K2 +1,1
027881,000467: 32,2137 60125 PDDL TIX,1
027882,000468: 32,2140 00003 2
027883,000469: 32,2141 64127 K2CALC
027884,000470: 32,2142 55225 DSU BDDV
027885,000471: 32,2143 50000 BOV BMN
027886,000472: 32,2144 64163 MAXPHI
027887,000473: 32,2145 64163 MAXPHI
027888,000474: 32,2146 45325 PHICALC PDDL DSU # PHI ENTRY PDL 4D
027889,000475: 32,2147 00001 0
027890,000476: 32,2150 24245 V(26K)
027891,000477: 32,2151 71244 BPL DLOAD
027892,000478: 32,2152 64160 TGR26
027893,000479: 32,2153 24241 TLESS26
027894,000480: 32,2154 77671 DDV
027895,000481: 32,2155 00001 0
027896,000482: 32,2156 43405 TENT DMP RVQ
027897,000483: 32,2157 00005 4D
027898,000484: 32,2160 52145 TGR26 DLOAD GOTO
027899,000485: 32,2161 24243 TGR26CON
027900,000486: 32,2162 64156 TENT
027901,000487:
027902,000488:
027903,000489: 32,2163 52145 MAXPHI DLOAD GOTO
027904,000490: 32,2164 24167 MAXPHIC
027905,000491: 32,2165 64146 PHICALC
027906,000492: 32,2166 02755 01307 MAXPHIC 2DEC .09259298 # 2000 NM FOR MAXIMUM PHI ENTRY
027907,000493: 32,2170 COUNT* $$/P30
027908,000494:
027909,000495: # BELOW
027910,000496: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027911,000497:
027912,000498: 32,2170 00013 22652 2DEC 7.07304526 E-4 # 5500
027913,000499: 32,2172 00005 01642 2DEC 3.08641975 E-4 # 2400
|
|
Page 635 |
027915,000501: 32,2174 00005 01642 2DEC 3.08641975 E-4 # 2400
027916,000502: 32,2176 77556 53522 2DEC -8.8888888 E-3 # -3.2
027917,000503: 32,2200 00055 20266 2DEC 2.7777777 E-3 # 1
027918,000504: 32,2202 00155 07202 CK1K2 2DEC 6.6666666 E-3 # 2.4
027919,000505: 32,2204 00000 00000 2DEC 0 B-28 # 0
027920,000506: 32,2206 77730 71525 2DEC* -1.86909989 E-5 B7* # -.443
027921,000507: 32,2210 00000 00000 2DEC 0 B-28
027922,000508: 32,2212 04445 10102 2DEC* 1.11639691 E-3 B7* # .001225
027923,000509: 32,2214 03726 31201 2DEC* 9.56911636 E-4 B7* # .00105
027924,000510: 32,2216 01040 26313 YK1K2 2DEC* 2.59733157 E-4 B7* # .000285
027925,000511: 32,2220 00234 01660 V(400) 2DEC 1.2192 B-7
027926,000512: 32,2222 25254 01014 V(28K) 2DEC 85.344 B-7
027927,000513: 32,2224 02222 15646 V(3K) 2DEC 9.144 B-7
027928,000514: 32,2226 22223 16457 V(24K) 2DEC 73.152 B-7
027929,000515: 32,2230 25254 01014 2DEC 85.344 B-7
027930,000516: 32,2232 30304 23351 V(32K) 2DEC 97.536 B-7
027931,000517: 32,2234 03030 22335 V(4K) 2DEC 12.192 B-7
027932,000518: 32,2236 20000 00000 V(21K) 2DEC 64.000 B-7
027933,000519: 32,2240 00033 05763 TLESS26 2DEC* 5.70146688 E7 B-35* # 8660PHI/V
027934,000520: 32,2242 00053 36200 TGR26CON 2DEC 7.2 E5 B-28 # PHI/3
027935,000521: 32,2244 23637 27636 V(26K) 2DEC 79.248 B-7 # 26000
027936,000522: 32,2246 00012 X1CON DEC 10 B-14
027937,000523: 32,2247 00010 DEC 8 B-14
027938,000524: 32,2250 00006 DEC 6 B-14
027939,000525: # <<<< TABLE IS INDEXED. KEEP IN ORDER >>>
027940,000526: # ABOVE
027941,000527:
|
|
Page 636 |
027943,000529: # ..... AVFLAGA/P .....
027944,000530:
027945,000531: # SUBROUTINES USED
027946,000532:
027947,000533: # UPFLAG
027948,000534: # DOWNFLAG
027949,000535: 35,2000 SETLOC P30S1
027950,000536: 35,2000 BANK
027951,000537: 35,3726 E4,1770 EBANK= SUBEXIT
027952,000538: 35,3726 00006 AVFLAGA EXTEND # AVFLAG = CSM
027953,000539: 35,3727 23770 QXCH SUBEXIT
027954,000540: 35,3730 05447 TC DOWNFLAG
027955,000541: 35,3731 00050 ADRES AVFLAG # BIT 5 FLAG 2
027956,000542: 35,3732 34753 CAF EBANK7
027957,000543: 35,3733 54003 TS EBANK
027958,000544: 35,3734 E7,1424 EBANK= ECSTEER
027959,000545: 35,3734 34676 CAF BIT13
027960,000546: 35,3735 55424 TS ECSTEER # SET ECSTEER = 1
027961,000547: 35,3736 34700 CAF EBANK4
027962,000548: 35,3737 54003 TS EBANK
027963,000549: 35,3740 E4,1770 EBANK= SUBEXIT
027964,000550: 35,3740 01770 TC SUBEXIT
027965,000551: 35,3741 00006 AVFLAGP EXTEND # AVFLAG = LEM
027966,000552: 35,3742 23770 QXCH SUBEXIT
027967,000553: 35,3743 05435 TC UPFLAG
027968,000554: 35,3744 00050 ADRES AVFLAG # BIT 5 FLAG 2
027969,000555: 35,3745 01770 TC SUBEXIT
027970,000556: 35,3746 00006 P20FLGON EXTEND
027971,000557: 35,3747 23770 QXCH SUBEXIT
027972,000558: 35,3750 05435 TC UPFLAG
027973,000559: 35,3751 00031 ADRES TRACKFLG
027974,000560: 35,3752 05435 TC UPFLAG
027975,000561: 35,3753 00027 ADRES UPDATFLG
027976,000562: 35,3754 01770 TC SUBEXIT
End of include-file P30,P37.agc. Parent file is MAIN.agc