Source Code
![]() |
This is an attempt to recreate Luminary 99 Rev 2, otherwise known as LUM99R2, from Luminary 99 Rev 1 and ephemeris data from Luminary 116. The differences are confined to the last 10-12 lines of the CONTROLLED CONSTANTS. Luminary 99 Rev 1 source-code was transcribed from a printout in the MIT Museum, while Luminary 116 source code was transcribed from a printout belonging to Don Eyles. AGC developer James Kernan, the "rope mother" for the Apollo 11 Lunar Module's AGC, explains as follows: "At the last minute, Dan Lickly, our chief engineer, appeared with ephemerides updates and it took two tries to get it right. The result was that we created Lum99 Revision 1 and Lum99 Revision 2." It is suspected that the former is what's in the MIT Museum, and the latter is what we are trying to recreate here. As for which revision actually flew in Apollo 11, all of the other available surviving evidence points to Rev 1 rather than to Rev 2, so we're just not sure! |
030504,000002: ## Copyright: Public domain.
030505,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
030506,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
030507,000005: ## It is part of the source code for the Lunar Module's (LM)
030508,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
030509,000007: ## Assembler: yaYUL
030510,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030511,000009: ## Website: www.ibiblio.org/apollo.
030512,000010: ## Pages: 723-730
030513,000011: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
030514,000012: ## Colossus249 file (there being no corresponding
030515,000013: ## Luminary131 source-code file), using page
030516,000014: ## images from Luminary 1A.
030517,000015: ## 2009-06-07 RSB Eliminated an extraneous instruction.
030518,000016: ## 2011-01-06 JL Fixed pseudo-label indentation.
030519,000017: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
030520,000018: ## 2016-12-15 RSB Proofed text comments with octopus/ProoferComments
030521,000019: ## and corrected the errors found.
030522,000020: ## 2017-01-28 RSB Back-ported a comment-text fix from proofing
030523,000021: ## of Luminary 69. Also, changed the filename
030524,000022: ## (from STABLE_ORBIT.agc) so as to agree with
030525,000023: ## the other AGC versions having a corresponding
030526,000024: ## log section (making it easier to perform diffs
030527,000025: ## between versions), and to agree with what it
030528,000026: ## says in ASSEMBLY AND OPERATION INFORMATION.
030529,000027: ## 2017-03-03 RSB Snapshot of Luminary 99 Rev 1.
030530,000028: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
030531,000029: ## Luminary 99 vs Comanche 55.
030532,000030:
![]() |
Page 723 |
030534,000032: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
030535,000033:
030536,000034: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
030537,000035: # MOD BY RUDNICKI.S DATE 25JAN68
030538,000036:
030539,000037: # FUNCTIONAL DESCRIPTION
030540,000038:
030541,000039: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030542,000040: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
030543,000041: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
030544,000042: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
030545,000043: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
030546,000044: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
030547,000045: # VEHICLES
030548,000046:
030549,000047: # CALLING SEQUENCE
030550,000048:
030551,000049: # ASTRONAUT REQUEST THRU DSKY
030552,000050:
030553,000051: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
030554,000052: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
030555,000053:
030556,000054: # INPUT
030557,000055:
030558,000056: # (1) SOI MANEUVER
030559,000057:
030560,000058: # (A) TIG TIME OF SOI MANEUVER
030561,000059: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
030562,000060: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
030563,000061: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
030564,000062: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
030565,000063: # ORBIT
030566,000064: # (D) OPTION EQUALS 1 FOR SOI
030567,000065:
030568,000066: # (2) SOR MANEUVER
030569,000067:
030570,000068: # (A) TIG TIME OF SOR MANEUVER
030571,000069: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
030572,000070: # (C) OPTION EQUALS 2 FOR SOR
030573,000071: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
030574,000072: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
030575,000073: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
030576,000074: # SOI PHASE
030577,000075: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
030578,000076:
030579,000077: # OUTPUT
030580,000078:
030581,000079: # (1) TRKMKCNT NUMBER OF MARKS
030582,000080: # (2) TTOGO TIME TO GO
030583,000081: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 724 |
030585,000083: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
030586,000084: # (FOR SOI ONLY)
030587,000085: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
030588,000086: # THE SOI (SOR) MANEUVER
030589,000087: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
030590,000088: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
030591,000089: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
030592,000090: # COORDINATES
030593,000091:
030594,000092: # SUBROUTINES USED
030595,000093:
030596,000094: # AVFLAGA
030597,000095: # AVFLAGP
030598,000096: # VNDSPLY
030599,000097: # BANKCALL
030600,000098: # GOFLASHR
030601,000099: # GOTOPOOH
030602,000100: # BLANKET
030603,000101: # ENDOFJOB
030604,000102: # PREC/TT
030605,000103: # SELECTMU
030606,000104: # INTRPVP
030607,000105: # MAINRTNE
030608,000106:
030609,000107: 04,3013 BANK 04
030610,000108: 34,2000 SETLOC STBLEORB
030611,000109: 34,2000 BANK
030612,000110:
030613,000111: 34,3271 E7,1470 EBANK= SUBEXIT
030614,000112: 34,3271 COUNT* $$/P3879
030615,000113:
030616,000114: 34,3271 04616 P38 TC BANKCALL
030617,000115: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
030618,000116: 34,3273 03276 TC +3
030619,000117: 34,3274 04616 P78 TC BANKCALL
030620,000118: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
030621,000119: 34,3276 04616 TC BANKCALL
030622,000120: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
030623,000121: 34,3300 33641 CAF DECTWO
030624,000122: 34,3301 55466 TS NN
030625,000123: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
030626,000124: 34,3303 03621 TC VNDSPLY
030627,000125: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
030628,000126: 34,3305 04616 TCR BANKCALL
030629,000127: 34,3306 20635 CADR GOFLASHR
030630,000128: 34,3307 16001 TCF GOTOPOOH # TERMINATE
030631,000129: 34,3310 13315 TCF +5 # PROCEED
030632,000130: 34,3311 13304 TCF -5 # RECYCLE
030633,000131: 34,3312 36245 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
030634,000132: 34,3313 05464 TCR BLANKET
![]() |
Page 725 |
030636,000134: 34,3314 15155 TCF ENDOFJOB
030637,000135: 34,3315 34756 CAF FIVE
030638,000136: 34,3316 55144 TS OPTION1
030639,000137: 34,3317 34753 CAF ONE
030640,000138: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
030641,000139: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
030642,000140: 34,3322 04616 TCR BANKCALL
030643,000141: 34,3323 20635 CADR GOFLASHR
030644,000142: 34,3324 16001 TCF GOTOPOOH # TERMINATE
030645,000143: 34,3325 13332 TCF +5 # PROCEED
030646,000144: 34,3326 13321 TCF -5 # RECYCLE
030647,000145: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
030648,000146: 34,3330 05464 TCR BLANKET
030649,000147: 34,3331 15155 TCF ENDOFJOB
030650,000148: 34,3332 06037 TC INTPRET
030651,000149: 34,3333 70535 SLOAD SR1
030652,000150: 34,3334 01146 OPTION2
030653,000151: 34,3335 71230 BHIZ DLOAD
030654,000152: 34,3336 71344 OPTN1
030655,000153: 34,3337 03631 TINT
030656,000154: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
030657,000155: 34,3341 77614 CLRGO
030658,000156: 34,3342 01230 OPTNSW # OPTNSW, ON = SOI, OFF = SOR
030659,000157: 34,3343 71375 JUNCTN1
030660,000158: 34,3344 43014 OPTN1 SET CLEAR # SOI
030661,000159: 34,3345 01070 OPTNSW
030662,000160: 34,3346 00670 UPDATFLG
030663,000161: 34,3347 77624 CALL
030664,000162: 34,3350 71554 PREC/TT
030665,000163: 34,3351 43015 DAD SET
030666,000164: 34,3352 03442 TIG
030667,000165: 34,3353 00470 UPDATFLG
030668,000166: 34,3354 03631 STORE TINT # TI = TIG + TF
030669,000167: 34,3355 77776 EXIT
030670,000168: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
030671,000169: 34,3357 04616 TCR BANKCALL
030672,000170: 34,3360 20635 CADR GOFLASHR
030673,000171: 34,3361 16001 TCF GOTOPOOH # TERMINATE
030674,000172: 34,3362 13367 TCF +5 # PROCEED
030675,000173: 34,3363 13356 TCF -5 # RECYCLE
030676,000174: 34,3364 36242 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
030677,000175: 34,3365 05464 TCR BLANKET
030678,000176: 34,3366 15155 TCF ENDOFJOB
030679,000177: 34,3367 00006 +5 EXTEND
030680,000178: 34,3370 31631 DCA TINT
030681,000179: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
030682,000180: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
030683,000181: 34,3373 03621 TC VNDSPLY
030684,000182: 34,3374 06037 TC INTPRET
030685,000183: 34,3375 45014 JUNCTN1 CLEAR CALL
![]() |
Page 726 |
030687,000185: 34,3376 04266 P39/79SW
030688,000186: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
030689,000187: 34,3400 77624 RECYCLE CALL
030690,000188: 34,3401 71554 PREC/TT
030691,000189: 34,3402 71214 BOFF DLOAD
030692,000190: 34,3403 01350 OPTNSW
030693,000191: 34,3404 71424 OPTN2
030694,000192: 34,3405 03631 TINT
030695,000193: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
030696,000194: 34,3407 71605 INTRPVP # INTERCEPT TIME
030697,000195: 34,3410 53575 VLOAD UNIT
030698,000196: 34,3411 00001 RATT # RP/(RP)
030699,000197: 34,3412 47315 PDVL VXV
030700,000198: 34,3413 00007 VATT
030701,000199: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
030702,000200: 34,3415 00047 X1
030703,000201: 34,3416 56325 PDDL DDV
030704,000202: 34,3417 02303 DELTAR
030705,000203: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
030706,000204: 34,3421 20172 0 -7,1
030707,000205: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
030708,000206: 34,3423 71430 JUNCTN2
030709,000207: 34,3424 43345 OPTN2 DLOAD DAD
030710,000208: 34,3425 02303 TINTSOI
030711,000209: 34,3426 00037 T
030712,000210: 34,3427 03631 STORE TINT # TI = TI + TF
030713,000211: 34,3430 45345 JUNCTN2 DLOAD DSU
030714,000212: 34,3431 03631 TINT
030715,000213: 34,3432 02305 DELTTIME
030716,000214: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
030717,000215:
030718,000216: # .... MAINRTNE ....
030719,000217:
030720,000218: # SUBROUTINES USED
030721,000219:
030722,000220: # S3435.25
030723,000221: # PERIAPO1
030724,000222: # SHIFTR1
030725,000223: # VNDSPLY
030726,000224: # BANKCALL
030727,000225: # GOFLASH
030728,000226: # GOTOPOOH
030729,000227: # VN1645
030730,000228:
030731,000229: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
030732,000230: 34,3435 71605 INTRPVP # TARGET TIME
030733,000231: 34,3436 77745 DLOAD
030734,000232: 34,3437 03442 TIG
030735,000233: 34,3440 03610 STORE INTIME
030736,000234: 34,3441 77331 SSP VLOAD
030737,000235: 34,3442 03471 SUBEXIT
030738,000236: 34,3443 71447 TEST3979
![]() |
Page 727 |
030740,000238: 34,3444 00001 RATT
030741,000239: 34,3445 77624 CALL
030742,000240: 34,3446 73327 S3435.25
030743,000241: 34,3447 43014 TEST3979 BOFF BON
030744,000242: 34,3450 04346 P39/79SW
030745,000243: 34,3451 71460 MAINRTN1
030746,000244: 34,3452 01311 FINALFLG
030747,000245: 34,3453 71456 P39P79
030748,000246: 34,3454 77614 SET
030749,000247: 34,3455 00470 UPDATFLG
030750,000248: 34,3456 77776 P39P79 EXIT
030751,000249: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
030752,000250: 34,3460 51575 MAINRTN1 VLOAD ABVAL
030753,000251: 34,3461 02366 DELVEET3
030754,000252: 34,3462 27576 STOVL DELVTPI # DELTA V
030755,000253: 34,3463 03506 VPASS4
030756,000254: 34,3464 51451 VSU ABVAL
030757,000255: 34,3465 03566 VTPRIME
030758,000256: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
030759,000257: 34,3467 03536 RACT3
030760,000258: 34,3470 45115 PDVL CALL
030761,000259: 34,3471 02337 VIPRIME
030762,000260: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
030763,000261: 34,3473 77624 CALL
030764,000262: 34,3474 46426 SHIFTR1
030765,000263: 34,3475 03606 STORE POSTTPI
030766,000264: 34,3476 43014 BON SET
030767,000265: 34,3477 01311 FINALFLG
030768,000266: 34,3500 71502 DSPLY58
030769,000267: 34,3501 00470 UPDATFLG
030770,000268: 34,3502 77776 DSPLY58 EXIT
030771,000269: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
030772,000270: 34,3504 03621 TC VNDSPLY
030773,000271: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
030774,000272: 34,3506 03621 TC VNDSPLY
030775,000273: 34,3507 06037 TC INTPRET
030776,000274: 34,3510 77214 CLEAR VLOAD
030777,000275: 34,3511 01267 XDELVFLG
030778,000276: 34,3512 02366 DELVEET3
030779,000277: 34,3513 37656 STCALL DELVSIN
030780,000278: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
030781,000279: 34,3515 52014 BON GOTO
030782,000280: 34,3516 04306 P39/79SW
030783,000281: 34,3517 71541 P39/P79B
030784,000282: 34,3520 71400 RECYCLE
030785,000283:
030786,000284: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
030787,000285:
030788,000286: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
030789,000287: # MOD BY RUDNICKI.S DATE 25JAN68
030790,000288:
![]() |
Page 728 |
030792,000290: # FUNCTIONAL DESCRIPTION
030793,000291:
030794,000292: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030795,000293: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
030796,000294: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
030797,000295: # THE SOR MANEUVER
030798,000296:
030799,000297: # CALLING SEQUENCE
030800,000298:
030801,000299: # ASTRONAUT REQUEST THRU DSKY
030802,000300:
030803,000301: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
030804,000302: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
030805,000303:
030806,000304: # INPUT
030807,000305:
030808,000306: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
030809,000307: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
030810,000308: # SAVED FROM P38/P78
030811,000309:
030812,000310: # OUTPUT
030813,000311:
030814,000312: # (1) TRKMKCNT NUMBER OF MARKS
030815,000313: # (2) TTOGO TIME TO GO
030816,000314: # (3) +MGA MIDDLE GIMBAL ANGLE
030817,000315: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
030818,000316:
030819,000317: # SUBROUTINES USED
030820,000318:
030821,000319: # AVFLAGA
030822,000320: # AVFLAGP
030823,000321: # LOADTIME
030824,000322: # SELECTMU
030825,000323: # PRECSET
030826,000324: # S34/35.1
030827,000325: # MAINRTNE
030828,000326:
030829,000327: 34,3521 04616 P39 TC BANKCALL
030830,000328: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
030831,000329: 34,3523 00006 EXTEND
030832,000330: 34,3524 31401 DCA ATIGINC
030833,000331: 34,3525 03532 TC P39/P79A
030834,000332: 34,3526 04616 P79 TC BANKCALL
030835,000333: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
030836,000334: 34,3530 00006 EXTEND
030837,000335: 34,3531 31403 DCA PTIGINC
030838,000336: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
030839,000337: 34,3533 04616 TC BANKCALL
030840,000338: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
030841,000339: 34,3535 06037 TC INTPRET
![]() |
Page 729 |
030843,000341: 34,3536 45014 SET CALL
030844,000342: 34,3537 04066 P39/79SW
030845,000343: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
030846,000344: 34,3541 43234 P39/P79B RTB DAD
030847,000345: 34,3542 21573 LOADTIME
030848,000346: 34,3543 03576 KT
030849,000347: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
030850,000348: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
030851,000349: 34,3546 46360 PRECSET # VEHICLES TO TIG
030852,000350: 34,3547 77624 CALL
030853,000351: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
030854,000352: 34,3551 52145 DLOAD GOTO
030855,000353: 34,3552 02307 TARGTIME
030856,000354: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
030857,000355:
030858,000356: # .... PREC/TT ....
030859,000357:
030860,000358: # SUBROUTINES USED
030861,000359:
030862,000360: # PRECSET
030863,000361: # TIMETHET
030864,000362: # S34/35.1
030865,000363:
030866,000364: 34,3554 71220 PREC/TT STQ DLOAD
030867,000365: 34,3555 03465 RTRN
030868,000366: 34,3556 03442 TIG
030869,000367: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
030870,000368: 34,3560 46360 PRECSET # VEHICLES TO TIG
030871,000369: 34,3561 53775 VLOAD VSR*
030872,000370: 34,3562 03552 RPASS3
030873,000371: 34,3563 57176 0,2
030874,000372: 34,3564 16655 STODL RVEC
030875,000373: 34,3565 03621 CENTANG
030876,000374: 34,3566 71406 PUSH COS
030877,000375: 34,3567 16732 STODL CSTH
030878,000376: 34,3570 43156 SIN SET
030879,000377: 34,3571 03466 RVSW
030880,000378: 34,3572 26730 STOVL SNTH
030881,000379: 34,3573 03560 VPASS3
030882,000380: 34,3574 77657 VSR*
030883,000381: 34,3575 57176 0,2
030884,000382: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
030885,000383: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
030886,000384: 34,3600 77624 CALL
030887,000385: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
030888,000386: 34,3602 52145 DLOAD GOTO
030889,000387: 34,3603 00037 T
030890,000388: 34,3604 03465 RTRN
030891,000389:
030892,000390: # .... INTRPVP ....
030893,000391:
030894,000392: # SUBROUTINES USED
030895,000393:
030896,000394: # CSMPREC
![]() |
Page 730 |
030898,000396: # LEMPREC
030899,000397:
030900,000398: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
030901,000399: 34,3606 03465 RTRN # TDEC1
030902,000400: 34,3607 01352 AVFLAG
030903,000401: 34,3610 71615 OTHERV
030904,000402: 34,3611 77624 CALL
030905,000403: 34,3612 27043 CSMPREC
030906,000404: 34,3613 77650 GOTO
030907,000405: 34,3614 03465 RTRN
030908,000406: 34,3615 77624 OTHERV CALL
030909,000407: 34,3616 27057 LEMPREC
030910,000408: 34,3617 77650 GOTO
030911,000409: 34,3620 03465 RTRN
030912,000410:
030913,000411: # .... VNDSPLY ....
030914,000412:
030915,000413: # SUBROUTINES USED
030916,000414:
030917,000415: # BANKCALL
030918,000416: # GOFLASH
030919,000417: # GOTOPOOH
030920,000418:
030921,000419: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
030922,000420: 34,3622 23465 QXCH RTRN
030923,000421: 34,3623 55615 TS VERBNOUN
030924,000422: 34,3624 31615 CA VERBNOUN
030925,000423: 34,3625 04616 TCR BANKCALL
030926,000424: 34,3626 20476 CADR GOFLASH
030927,000425: 34,3627 16001 TCF GOTOPOOH # TERMINATE
030928,000426: 34,3630 01465 TC RTRN # PROCEED
030929,000427: 34,3631 13624 TCF -5 # RECYCLE
030930,000428: 34,3632 01441 V06N33SR VN 0633
030931,000429: 34,3633 01467 V06N55SR VN 0655
030932,000430: 34,3634 01006 V04N06SR VN 0406
030933,000431: 34,3635 01471 V06N57SR VN 0657
030934,000432: 34,3636 01442 V06N34SR VN 0634
030935,000433: 34,3637 01472 V06N58SR VN 0658
030936,000434: 34,3640 01521 V06N81SR VN 0681
030937,000435: 34,3641 00002 DECTWO OCT 2
030938,000436:
030939,000437:
030940,000438:
030941,000439:
030942,000440:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc