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