Source Code
![]() |
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the
second release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
031654,000002: ## Copyright: Public domain.
031655,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031656,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
031657,000005: ## otherwise known as Luminary Rev 99, the second release
031658,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
031659,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
031660,000008: ## placement of a single label. The corrections shown here have
031661,000009: ## been verified to have the same bank checksums as AGC developer
031662,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
031663,000011: ## to be accurate. This file is intended to be a faithful
031664,000012: ## recreation, except that the code format has been changed to
031665,000013: ## conform to the requirements of the yaYUL assembler rather than
031666,000014: ## the original YUL assembler.
031667,000015: ##
031668,000016: ## Assembler: yaYUL
031669,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031670,000018: ## Website: www.ibiblio.org/apollo.
031671,000019: ## Pages: 723-730
031672,000020: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
031673,000021: ## Colossus249 file (there being no corresponding
031674,000022: ## Luminary131 source-code file), using page
031675,000023: ## images from Luminary 1A.
031676,000024: ## 2009-06-07 RSB Eliminated an extraneous instruction.
031677,000025: ## 2011-01-06 JL Fixed pseudo-label indentation.
031678,000026: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
031679,000027: ## 2016-12-15 RSB Proofed text comments with octopus/ProoferComments
031680,000028: ## and corrected the errors found.
031681,000029: ## 2017-01-28 RSB Back-ported a comment-text fix from proofing
031682,000030: ## of Luminary 69. Also, changed the filename
031683,000031: ## (from STABLE_ORBIT.agc) so as to agree with
031684,000032: ## the other AGC versions having a corresponding
031685,000033: ## log section (making it easier to perform diffs
031686,000034: ## between versions), and to agree with what it
031687,000035: ## says in ASSEMBLY AND OPERATION INFORMATION.
031688,000036: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031689,000037: ## Luminary 99 vs Comanche 55.
031690,000038: ## 2017-08-01 MAS Created from LMY99 Rev 1.
031691,000039:
031692,000040: ## This source code has been transcribed or otherwise adapted from
031693,000041: ## digitized images of a hardcopy from the MIT Museum. The digitization
031694,000042: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031695,000043: ## the Museum. Many thanks to both. The images (with suitable reduction
031696,000044: ## in storage size and consequent reduction in image quality as well) are
031697,000045: ## available online at www.ibiblio.org/apollo. If for some reason you
031698,000046: ## find that the images are illegible, contact me at info@sandroid.org
031699,000047: ## about getting access to the (much) higher-quality images which Paul
031700,000048: ## actually created.
031701,000049: ##
031702,000050: ## The code has been modified to match LMY99 Revision 0, otherwise
031703,000051: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
031704,000052: ## the listing from which it was transcribed. It has been verified to
031705,000053: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
031706,000054: ## of Luminary Revision 99 (for which we do not have scans).
031707,000055: ##
031708,000056: ## Notations on Allan Klumpp's listing read, in part:
031709,000057: ##
031710,000058: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
031711,000059:
![]() |
Page 723 |
031713,000061: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031714,000062:
031715,000063: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031716,000064: # MOD BY RUDNICKI.S DATE 25JAN68
031717,000065:
031718,000066: # FUNCTIONAL DESCRIPTION
031719,000067:
031720,000068: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031721,000069: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031722,000070: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031723,000071: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031724,000072: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031725,000073: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031726,000074: # VEHICLES
031727,000075:
031728,000076: # CALLING SEQUENCE
031729,000077:
031730,000078: # ASTRONAUT REQUEST THRU DSKY
031731,000079:
031732,000080: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031733,000081: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031734,000082:
031735,000083: # INPUT
031736,000084:
031737,000085: # (1) SOI MANEUVER
031738,000086:
031739,000087: # (A) TIG TIME OF SOI MANEUVER
031740,000088: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031741,000089: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031742,000090: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031743,000091: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031744,000092: # ORBIT
031745,000093: # (D) OPTION EQUALS 1 FOR SOI
031746,000094:
031747,000095: # (2) SOR MANEUVER
031748,000096:
031749,000097: # (A) TIG TIME OF SOR MANEUVER
031750,000098: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031751,000099: # (C) OPTION EQUALS 2 FOR SOR
031752,000100: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031753,000101: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031754,000102: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031755,000103: # SOI PHASE
031756,000104: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031757,000105:
031758,000106: # OUTPUT
031759,000107:
031760,000108: # (1) TRKMKCNT NUMBER OF MARKS
031761,000109: # (2) TTOGO TIME TO GO
031762,000110: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 724 |
031764,000112: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031765,000113: # (FOR SOI ONLY)
031766,000114: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031767,000115: # THE SOI (SOR) MANEUVER
031768,000116: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031769,000117: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031770,000118: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031771,000119: # COORDINATES
031772,000120:
031773,000121: # SUBROUTINES USED
031774,000122:
031775,000123: # AVFLAGA
031776,000124: # AVFLAGP
031777,000125: # VNDSPLY
031778,000126: # BANKCALL
031779,000127: # GOFLASHR
031780,000128: # GOTOPOOH
031781,000129: # BLANKET
031782,000130: # ENDOFJOB
031783,000131: # PREC/TT
031784,000132: # SELECTMU
031785,000133: # INTRPVP
031786,000134: # MAINRTNE
031787,000135:
031788,000136: 04,3013 BANK 04
031789,000137: 34,2000 SETLOC STBLEORB
031790,000138: 34,2000 BANK
031791,000139:
031792,000140: 34,3271 E7,1470 EBANK= SUBEXIT
031793,000141: 34,3271 COUNT* $$/P3879
031794,000142:
031795,000143: 34,3271 04616 P38 TC BANKCALL
031796,000144: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031797,000145: 34,3273 03276 TC +3
031798,000146: 34,3274 04616 P78 TC BANKCALL
031799,000147: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031800,000148: 34,3276 04616 TC BANKCALL
031801,000149: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031802,000150: 34,3300 33641 CAF DECTWO
031803,000151: 34,3301 55466 TS NN
031804,000152: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
031805,000153: 34,3303 03621 TC VNDSPLY
031806,000154: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
031807,000155: 34,3305 04616 TCR BANKCALL
031808,000156: 34,3306 20635 CADR GOFLASHR
031809,000157: 34,3307 16001 TCF GOTOPOOH # TERMINATE
031810,000158: 34,3310 13315 TCF +5 # PROCEED
031811,000159: 34,3311 13304 TCF -5 # RECYCLE
031812,000160: 34,3312 36245 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031813,000161: 34,3313 05464 TCR BLANKET
![]() |
Page 725 |
031815,000163: 34,3314 15155 TCF ENDOFJOB
031816,000164: 34,3315 34756 CAF FIVE
031817,000165: 34,3316 55144 TS OPTION1
031818,000166: 34,3317 34753 CAF ONE
031819,000167: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031820,000168: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031821,000169: 34,3322 04616 TCR BANKCALL
031822,000170: 34,3323 20635 CADR GOFLASHR
031823,000171: 34,3324 16001 TCF GOTOPOOH # TERMINATE
031824,000172: 34,3325 13332 TCF +5 # PROCEED
031825,000173: 34,3326 13321 TCF -5 # RECYCLE
031826,000174: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031827,000175: 34,3330 05464 TCR BLANKET
031828,000176: 34,3331 15155 TCF ENDOFJOB
031829,000177: 34,3332 06037 TC INTPRET
031830,000178: 34,3333 70535 SLOAD SR1
031831,000179: 34,3334 01146 OPTION2
031832,000180: 34,3335 71230 BHIZ DLOAD
031833,000181: 34,3336 71344 OPTN1
031834,000182: 34,3337 03631 TINT
031835,000183: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
031836,000184: 34,3341 77614 CLRGO
031837,000185: 34,3342 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031838,000186: 34,3343 71375 JUNCTN1
031839,000187: 34,3344 43014 OPTN1 SET CLEAR # SOI
031840,000188: 34,3345 01070 OPTNSW
031841,000189: 34,3346 00670 UPDATFLG
031842,000190: 34,3347 77624 CALL
031843,000191: 34,3350 71554 PREC/TT
031844,000192: 34,3351 43015 DAD SET
031845,000193: 34,3352 03442 TIG
031846,000194: 34,3353 00470 UPDATFLG
031847,000195: 34,3354 03631 STORE TINT # TI = TIG + TF
031848,000196: 34,3355 77776 EXIT
031849,000197: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
031850,000198: 34,3357 04616 TCR BANKCALL
031851,000199: 34,3360 20635 CADR GOFLASHR
031852,000200: 34,3361 16001 TCF GOTOPOOH # TERMINATE
031853,000201: 34,3362 13367 TCF +5 # PROCEED
031854,000202: 34,3363 13356 TCF -5 # RECYCLE
031855,000203: 34,3364 36242 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031856,000204: 34,3365 05464 TCR BLANKET
031857,000205: 34,3366 15155 TCF ENDOFJOB
031858,000206: 34,3367 00006 +5 EXTEND
031859,000207: 34,3370 31631 DCA TINT
031860,000208: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
031861,000209: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031862,000210: 34,3373 03621 TC VNDSPLY
031863,000211: 34,3374 06037 TC INTPRET
031864,000212: 34,3375 45014 JUNCTN1 CLEAR CALL
![]() |
Page 726 |
031866,000214: 34,3376 04266 P39/79SW
031867,000215: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031868,000216: 34,3400 77624 RECYCLE CALL
031869,000217: 34,3401 71554 PREC/TT
031870,000218: 34,3402 71214 BOFF DLOAD
031871,000219: 34,3403 01350 OPTNSW
031872,000220: 34,3404 71424 OPTN2
031873,000221: 34,3405 03631 TINT
031874,000222: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031875,000223: 34,3407 71605 INTRPVP # INTERCEPT TIME
031876,000224: 34,3410 53575 VLOAD UNIT
031877,000225: 34,3411 00001 RATT # RP/(RP)
031878,000226: 34,3412 47315 PDVL VXV
031879,000227: 34,3413 00007 VATT
031880,000228: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
031881,000229: 34,3415 00047 X1
031882,000230: 34,3416 56325 PDDL DDV
031883,000231: 34,3417 02303 DELTAR
031884,000232: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
031885,000233: 34,3421 20172 0 -7,1
031886,000234: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031887,000235: 34,3423 71430 JUNCTN2
031888,000236: 34,3424 43345 OPTN2 DLOAD DAD
031889,000237: 34,3425 02303 TINTSOI
031890,000238: 34,3426 00037 T
031891,000239: 34,3427 03631 STORE TINT # TI = TI + TF
031892,000240: 34,3430 45345 JUNCTN2 DLOAD DSU
031893,000241: 34,3431 03631 TINT
031894,000242: 34,3432 02305 DELTTIME
031895,000243: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
031896,000244:
031897,000245: # .... MAINRTNE ....
031898,000246:
031899,000247: # SUBROUTINES USED
031900,000248:
031901,000249: # S3435.25
031902,000250: # PERIAPO1
031903,000251: # SHIFTR1
031904,000252: # VNDSPLY
031905,000253: # BANKCALL
031906,000254: # GOFLASH
031907,000255: # GOTOPOOH
031908,000256: # VN1645
031909,000257:
031910,000258: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031911,000259: 34,3435 71605 INTRPVP # TARGET TIME
031912,000260: 34,3436 77745 DLOAD
031913,000261: 34,3437 03442 TIG
031914,000262: 34,3440 03610 STORE INTIME
031915,000263: 34,3441 77331 SSP VLOAD
031916,000264: 34,3442 03471 SUBEXIT
031917,000265: 34,3443 71447 TEST3979
![]() |
Page 727 |
031919,000267: 34,3444 00001 RATT
031920,000268: 34,3445 77624 CALL
031921,000269: 34,3446 73327 S3435.25
031922,000270: 34,3447 43014 TEST3979 BOFF BON
031923,000271: 34,3450 04346 P39/79SW
031924,000272: 34,3451 71460 MAINRTN1
031925,000273: 34,3452 01311 FINALFLG
031926,000274: 34,3453 71456 P39P79
031927,000275: 34,3454 77614 SET
031928,000276: 34,3455 00470 UPDATFLG
031929,000277: 34,3456 77776 P39P79 EXIT
031930,000278: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
031931,000279: 34,3460 51575 MAINRTN1 VLOAD ABVAL
031932,000280: 34,3461 02366 DELVEET3
031933,000281: 34,3462 27576 STOVL DELVTPI # DELTA V
031934,000282: 34,3463 03506 VPASS4
031935,000283: 34,3464 51451 VSU ABVAL
031936,000284: 34,3465 03566 VTPRIME
031937,000285: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
031938,000286: 34,3467 03536 RACT3
031939,000287: 34,3470 45115 PDVL CALL
031940,000288: 34,3471 02337 VIPRIME
031941,000289: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
031942,000290: 34,3473 77624 CALL
031943,000291: 34,3474 46426 SHIFTR1
031944,000292: 34,3475 03606 STORE POSTTPI
031945,000293: 34,3476 43014 BON SET
031946,000294: 34,3477 01311 FINALFLG
031947,000295: 34,3500 71502 DSPLY58
031948,000296: 34,3501 00470 UPDATFLG
031949,000297: 34,3502 77776 DSPLY58 EXIT
031950,000298: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031951,000299: 34,3504 03621 TC VNDSPLY
031952,000300: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031953,000301: 34,3506 03621 TC VNDSPLY
031954,000302: 34,3507 06037 TC INTPRET
031955,000303: 34,3510 77214 CLEAR VLOAD
031956,000304: 34,3511 01267 XDELVFLG
031957,000305: 34,3512 02366 DELVEET3
031958,000306: 34,3513 37656 STCALL DELVSIN
031959,000307: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031960,000308: 34,3515 52014 BON GOTO
031961,000309: 34,3516 04306 P39/79SW
031962,000310: 34,3517 71541 P39/P79B
031963,000311: 34,3520 71400 RECYCLE
031964,000312:
031965,000313: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031966,000314:
031967,000315: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031968,000316: # MOD BY RUDNICKI.S DATE 25JAN68
031969,000317:
![]() |
Page 728 |
031971,000319: # FUNCTIONAL DESCRIPTION
031972,000320:
031973,000321: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031974,000322: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031975,000323: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031976,000324: # THE SOR MANEUVER
031977,000325:
031978,000326: # CALLING SEQUENCE
031979,000327:
031980,000328: # ASTRONAUT REQUEST THRU DSKY
031981,000329:
031982,000330: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031983,000331: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031984,000332:
031985,000333: # INPUT
031986,000334:
031987,000335: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
031988,000336: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031989,000337: # SAVED FROM P38/P78
031990,000338:
031991,000339: # OUTPUT
031992,000340:
031993,000341: # (1) TRKMKCNT NUMBER OF MARKS
031994,000342: # (2) TTOGO TIME TO GO
031995,000343: # (3) +MGA MIDDLE GIMBAL ANGLE
031996,000344: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031997,000345:
031998,000346: # SUBROUTINES USED
031999,000347:
032000,000348: # AVFLAGA
032001,000349: # AVFLAGP
032002,000350: # LOADTIME
032003,000351: # SELECTMU
032004,000352: # PRECSET
032005,000353: # S34/35.1
032006,000354: # MAINRTNE
032007,000355:
032008,000356: 34,3521 04616 P39 TC BANKCALL
032009,000357: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
032010,000358: 34,3523 00006 EXTEND
032011,000359: 34,3524 31401 DCA ATIGINC
032012,000360: 34,3525 03532 TC P39/P79A
032013,000361: 34,3526 04616 P79 TC BANKCALL
032014,000362: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
032015,000363: 34,3530 00006 EXTEND
032016,000364: 34,3531 31403 DCA PTIGINC
032017,000365: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
032018,000366: 34,3533 04616 TC BANKCALL
032019,000367: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
032020,000368: 34,3535 06037 TC INTPRET
![]() |
Page 729 |
032022,000370: 34,3536 45014 SET CALL
032023,000371: 34,3537 04066 P39/79SW
032024,000372: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
032025,000373: 34,3541 43234 P39/P79B RTB DAD
032026,000374: 34,3542 21573 LOADTIME
032027,000375: 34,3543 03576 KT
032028,000376: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
032029,000377: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032030,000378: 34,3546 46360 PRECSET # VEHICLES TO TIG
032031,000379: 34,3547 77624 CALL
032032,000380: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
032033,000381: 34,3551 52145 DLOAD GOTO
032034,000382: 34,3552 02307 TARGTIME
032035,000383: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
032036,000384:
032037,000385: # .... PREC/TT ....
032038,000386:
032039,000387: # SUBROUTINES USED
032040,000388:
032041,000389: # PRECSET
032042,000390: # TIMETHET
032043,000391: # S34/35.1
032044,000392:
032045,000393: 34,3554 71220 PREC/TT STQ DLOAD
032046,000394: 34,3555 03465 RTRN
032047,000395: 34,3556 03442 TIG
032048,000396: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032049,000397: 34,3560 46360 PRECSET # VEHICLES TO TIG
032050,000398: 34,3561 53775 VLOAD VSR*
032051,000399: 34,3562 03552 RPASS3
032052,000400: 34,3563 57176 0,2
032053,000401: 34,3564 16655 STODL RVEC
032054,000402: 34,3565 03621 CENTANG
032055,000403: 34,3566 71406 PUSH COS
032056,000404: 34,3567 16732 STODL CSTH
032057,000405: 34,3570 43156 SIN SET
032058,000406: 34,3571 03466 RVSW
032059,000407: 34,3572 26730 STOVL SNTH
032060,000408: 34,3573 03560 VPASS3
032061,000409: 34,3574 77657 VSR*
032062,000410: 34,3575 57176 0,2
032063,000411: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
032064,000412: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
032065,000413: 34,3600 77624 CALL
032066,000414: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
032067,000415: 34,3602 52145 DLOAD GOTO
032068,000416: 34,3603 00037 T
032069,000417: 34,3604 03465 RTRN
032070,000418:
032071,000419: # .... INTRPVP ....
032072,000420:
032073,000421: # SUBROUTINES USED
032074,000422:
032075,000423: # CSMPREC
![]() |
Page 730 |
032077,000425: # LEMPREC
032078,000426:
032079,000427: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
032080,000428: 34,3606 03465 RTRN # TDEC1
032081,000429: 34,3607 01352 AVFLAG
032082,000430: 34,3610 71615 OTHERV
032083,000431: 34,3611 77624 CALL
032084,000432: 34,3612 27043 CSMPREC
032085,000433: 34,3613 77650 GOTO
032086,000434: 34,3614 03465 RTRN
032087,000435: 34,3615 77624 OTHERV CALL
032088,000436: 34,3616 27057 LEMPREC
032089,000437: 34,3617 77650 GOTO
032090,000438: 34,3620 03465 RTRN
032091,000439:
032092,000440: # .... VNDSPLY ....
032093,000441:
032094,000442: # SUBROUTINES USED
032095,000443:
032096,000444: # BANKCALL
032097,000445: # GOFLASH
032098,000446: # GOTOPOOH
032099,000447:
032100,000448: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
032101,000449: 34,3622 23465 QXCH RTRN
032102,000450: 34,3623 55615 TS VERBNOUN
032103,000451: 34,3624 31615 CA VERBNOUN
032104,000452: 34,3625 04616 TCR BANKCALL
032105,000453: 34,3626 20476 CADR GOFLASH
032106,000454: 34,3627 16001 TCF GOTOPOOH # TERMINATE
032107,000455: 34,3630 01465 TC RTRN # PROCEED
032108,000456: 34,3631 13624 TCF -5 # RECYCLE
032109,000457: 34,3632 01441 V06N33SR VN 0633
032110,000458: 34,3633 01467 V06N55SR VN 0655
032111,000459: 34,3634 01006 V04N06SR VN 0406
032112,000460: 34,3635 01471 V06N57SR VN 0657
032113,000461: 34,3636 01442 V06N34SR VN 0634
032114,000462: 34,3637 01472 V06N58SR VN 0658
032115,000463: 34,3640 01521 V06N81SR VN 0681
032116,000464: 34,3641 00002 DECTWO OCT 2
032117,000465:
032118,000466:
032119,000467:
032120,000468:
032121,000469:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc