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