Source Code
|
These source-code files are part of a reconstructed copy of LUM69 Revision 2, the
flown Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction began with source code of Luminary 69 revision 0 previously
transcribed from a digitized copy of that program. The code was then updated
by back-porting the R-2 lunar potential model from previously-transcribed source
code of Luminary 99. These required changes were described in the original
Luminary memos 75 and 78. The reconstructed code was verified by
matching memory-bank checksums to those listed in drawing 2021152G. Note that
page numbers in the reconstructed code match those on the Luminary 069 printout,
although the added code would likely have changed page numbers for a real LUM69
Revision 2 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.
|
031600,000002: ## Copyright: Public domain.
031601,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031602,000004: ## Purpose: A section of LUM69 revision 2.
031603,000005: ## It is part of the reconstructed source code for the flown
031604,000006: ## version of the flight software for the Lunar Module's (LM)
031605,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
031606,000008: ## been recreated from a copy of Luminary revsion 069, using
031607,000009: ## changes present in Luminary 099 which were described in
031608,000010: ## Luminary memos 75 and 78. The code has been adapted such
031609,000011: ## that the resulting bugger words exactly match those specified
031610,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
031611,000013: ## relatively high confidence that the reconstruction is correct.
031612,000014: ## Reference: pp. 731-738
031613,000015: ## Assembler: yaYUL
031614,000016: ## Contact: Ron Burkey <info@sandroid.org>.
031615,000017: ## Website: www.ibiblio.org/apollo/index.html
031616,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
031617,000019:
|
|
Page 731
|
031619,000021: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031620,000022:
031621,000023: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031622,000024: # MOD BY RUDNICKI.S DATE 25JAN68
031623,000025:
031624,000026: # FUNCTIONAL DESCRIPTION
031625,000027:
031626,000028: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031627,000029: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031628,000030: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031629,000031: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031630,000032: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031631,000033: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031632,000034: # VEHICLES
031633,000035:
031634,000036: # CALLING SEQUENCE
031635,000037:
031636,000038: # ASTRONAUT REQUEST THRU DSKY
031637,000039:
031638,000040: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031639,000041: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031640,000042:
031641,000043: # INPUT
031642,000044:
031643,000045: # (1) SOI MANEUVER
031644,000046:
031645,000047: # (A) TIG TIME OF SOI MANEUVER
031646,000048: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031647,000049: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031648,000050: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031649,000051: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031650,000052: # ORBIT
031651,000053: # (D) OPTION EQUALS 1 FOR SOI
031652,000054:
031653,000055: # (2) SOR MANEUVER
031654,000056:
031655,000057: # (A) TIG TIME OF SOR MANEUVER
031656,000058: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031657,000059: # (C) OPTION EQUALS 2 FOR SOR
031658,000060: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031659,000061: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031660,000062: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031661,000063: # SOI PHASE
031662,000064: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031663,000065:
031664,000066: # OUTPUT
031665,000067:
031666,000068: # (1) TRKMKCNT NUMBER OF MARKS
031667,000069: # (2) TTOGO TIME TO GO
031668,000070: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 732
|
031670,000072: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031671,000073: # (FOR SOI ONLY)
031672,000074: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031673,000075: # THE SOI (SOR) MANEUVER
031674,000076: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031675,000077: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031676,000078: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031677,000079: # COORDINATES
031678,000080:
031679,000081: # SUBROUTINES USED
031680,000082:
031681,000083: # AVFLAGA
031682,000084: # AVFLAGP
031683,000085: # VNDSPLY
031684,000086: # BANKCALL
031685,000087: # GOFLASHR
031686,000088: # GOTOPOOH
031687,000089: # BLANKET
031688,000090: # ENDOFJOB
031689,000091: # PREC/TT
031690,000092: # SELECTMU
031691,000093: # INTRPVP
031692,000094: # MAINRTNE
031693,000095:
031694,000096: 04,2750 BANK 04
031695,000097: 34,2000 SETLOC STBLEORB
031696,000098: 34,2000 BANK
031697,000099:
031698,000100: 34,3271 E7,1466 EBANK= SUBEXIT
031699,000101: 34,3271 COUNT* $$/P3879
031700,000102:
031701,000103: 34,3271 04616 P38 TC BANKCALL
031702,000104: 34,3272 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031703,000105: 34,3273 03276 TC +3
031704,000106: 34,3274 04616 P78 TC BANKCALL
031705,000107: 34,3275 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031706,000108: 34,3276 04616 TC BANKCALL
031707,000109: 34,3277 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031708,000110: 34,3300 33630 CAF V06N33SR # DISPLAY TIG
031709,000111: 34,3301 03617 TC VNDSPLY
031710,000112: 34,3302 33631 CAF V06N55SR # DISPLAY CENTANG
031711,000113: 34,3303 04616 TCR BANKCALL
031712,000114: 34,3304 20510 CADR GOFLASHR
031713,000115: 34,3305 16001 TCF GOTOPOOH # TERMINATE
031714,000116: 34,3306 13313 TCF +5 # PROCEED
031715,000117: 34,3307 13302 TCF -5 # RECYCLE
031716,000118: 34,3310 36244 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031717,000119: 34,3311 05464 TCR BLANKET
031718,000120: 34,3312 15155 TCF ENDOFJOB
031719,000121: 34,3313 34756 CAF FIVE
|
|
Page 733
|
031721,000123: 34,3314 55144 TS OPTION1
031722,000124: 34,3315 34753 CAF ONE
031723,000125: 34,3316 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031724,000126: 34,3317 33632 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031725,000127: 34,3320 04616 TCR BANKCALL
031726,000128: 34,3321 20510 CADR GOFLASHR
031727,000129: 34,3322 16001 TCF GOTOPOOH # TERMINATE
031728,000130: 34,3323 13330 TCF +5 # PROCEED
031729,000131: 34,3324 13317 TCF -5 # RECYCLE
031730,000132: 34,3325 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031731,000133: 34,3326 05464 TCR BLANKET
031732,000134: 34,3327 15155 TCF ENDOFJOB
031733,000135: 34,3330 06036 TC INTPRET
031734,000136: 34,3331 70535 SLOAD SR1
031735,000137: 34,3332 01146 OPTION2
031736,000138: 34,3333 71230 BHIZ DLOAD
031737,000139: 34,3334 71342 OPTN1
031738,000140: 34,3335 03627 TINT
031739,000141: 34,3336 02307 STORE TINTSOI # STORE FOR SOR PHASE
031740,000142: 34,3337 77614 CLRGO
031741,000143: 34,3340 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031742,000144: 34,3341 71373 JUNCTN1
031743,000145: 34,3342 43014 OPTN1 SET CLEAR # SOI
031744,000146: 34,3343 01070 OPTNSW
031745,000147: 34,3344 00670 UPDATFLG
031746,000148: 34,3345 77624 CALL
031747,000149: 34,3346 71552 PREC/TT
031748,000150: 34,3347 43015 DAD SET
031749,000151: 34,3350 03440 TIG
031750,000152: 34,3351 00470 UPDATFLG
031751,000153: 34,3352 03627 STORE TINT # TI = TIG + TF
031752,000154: 34,3353 77776 EXIT
031753,000155: 34,3354 33633 CAF V06N57SR # DISPLAY DELTA R
031754,000156: 34,3355 04616 TCR BANKCALL
031755,000157: 34,3356 20510 CADR GOFLASHR
031756,000158: 34,3357 16001 TCF GOTOPOOH # TERMINATE
031757,000159: 34,3360 13365 TCF +5 # PROCEED
031758,000160: 34,3361 13354 TCF -5 # RECYCLE
031759,000161: 34,3362 36241 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031760,000162: 34,3363 05464 TCR BLANKET
031761,000163: 34,3364 15155 TCF ENDOFJOB
031762,000164: 34,3365 00006 +5 EXTEND
031763,000165: 34,3366 31627 DCA TINT
031764,000166: 34,3367 53046 DXCH DSPTEM1 # FOR DISPLAY
031765,000167: 34,3370 33634 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031766,000168: 34,3371 03617 TC VNDSPLY
031767,000169: 34,3372 06036 TC INTPRET
031768,000170: 34,3373 45014 JUNCTN1 CLEAR CALL
031769,000171: 34,3374 04266 P39/79SW
031770,000172: 34,3375 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
|
|
Page 734
|
031772,000174: 34,3376 77624 RECYCLE CALL
031773,000175: 34,3377 71552 PREC/TT
031774,000176: 34,3400 71214 BOFF DLOAD
031775,000177: 34,3401 01350 OPTNSW
031776,000178: 34,3402 71422 OPTN2
031777,000179: 34,3403 03627 TINT
031778,000180: 34,3404 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031779,000181: 34,3405 71603 INTRPVP # INTERCEPT TIME
031780,000182: 34,3406 53575 VLOAD UNIT
031781,000183: 34,3407 00001 RATT # RP/(RP)
031782,000184: 34,3410 47315 PDVL VXV
031783,000185: 34,3411 00007 VATT
031784,000186: 34,3412 60246 ABVAL NORM # (VP X RP/(RP))
031785,000187: 34,3413 00047 X1
031786,000188: 34,3414 56325 PDDL DDV
031787,000189: 34,3415 02307 DELTAR
031788,000190: 34,3416 77657 SL* # DELTA R / (VP X RP/RP)
031789,000191: 34,3417 20172 0 -7,1
031790,000192: 34,3420 36311 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031791,000193: 34,3421 71426 JUNCTN2
031792,000194: 34,3422 43345 OPTN2 DLOAD DAD
031793,000195: 34,3423 02307 TINTSOI
031794,000196: 34,3424 00037 T
031795,000197: 34,3425 03627 STORE TINT # TI = TI + TF
031796,000198: 34,3426 45345 JUNCTN2 DLOAD DSU
031797,000199: 34,3427 03627 TINT
031798,000200: 34,3430 02311 DELTTIME
031799,000201: 34,3431 02313 STORE TARGTIME # TT = TI - DELTA T
031800,000202:
031801,000203: # .... MAINRTNE ....
031802,000204:
031803,000205: # SUBROUTINES USED
031804,000206:
031805,000207: # S3435.25
031806,000208: # PERIAPO1
031807,000209: # SHIFTR1
031808,000210: # VNDSPLY
031809,000211: # BANKCALL
031810,000212: # GOFLASH
031811,000213: # GOTOPOOH
031812,000214: # VN1645
031813,000215:
031814,000216: 34,3432 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031815,000217: 34,3433 71603 INTRPVP # TARGET TIME
031816,000218: 34,3434 77745 DLOAD
031817,000219: 34,3435 03440 TIG
031818,000220: 34,3436 03606 STORE INTIME
031819,000221: 34,3437 77331 SSP VLOAD
031820,000222: 34,3440 03467 SUBEXIT
031821,000223: 34,3441 71445 TEST3979
031822,000224: 34,3442 00001 RATT
031823,000225: 34,3443 77624 CALL
|
|
Page 735
|
031825,000227: 34,3444 73263 S3435.25
031826,000228: 34,3445 43014 TEST3979 BOFF BON
031827,000229: 34,3446 04346 P39/79SW
031828,000230: 34,3447 71456 MAINRTN1
031829,000231: 34,3450 01311 FINALFLG
031830,000232: 34,3451 71454 P39P79
031831,000233: 34,3452 77614 SET
031832,000234: 34,3453 00470 UPDATFLG
031833,000235: 34,3454 77776 P39P79 EXIT
031834,000236: 34,3455 03503 TC DSPLY81 # FOR P39 AND P79
031835,000237: 34,3456 51575 MAINRTN1 VLOAD ABVAL
031836,000238: 34,3457 03366 DELVEET3
031837,000239: 34,3460 27574 STOVL DELVTPI # DELTA V
031838,000240: 34,3461 03504 VPASS4
031839,000241: 34,3462 51451 VSU ABVAL
031840,000242: 34,3463 03564 VTPRIME
031841,000243: 34,3464 26354 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
031842,000244: 34,3465 03534 RACT3
031843,000245: 34,3466 45115 PDVL CALL
031844,000246: 34,3467 02343 VIPRIME
031845,000247: 34,3470 46277 PERIAPO1 # GET PERIGEE ALTITUDE
031846,000248: 34,3471 77624 CALL
031847,000249: 34,3472 46407 SHIFTR1
031848,000250: 34,3473 03604 STORE POSTTPI
031849,000251: 34,3474 43014 BON SET
031850,000252: 34,3475 01311 FINALFLG
031851,000253: 34,3476 71500 DSPLY58
031852,000254: 34,3477 00470 UPDATFLG
031853,000255: 34,3500 77776 DSPLY58 EXIT
031854,000256: 34,3501 33635 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031855,000257: 34,3502 03617 TC VNDSPLY
031856,000258: 34,3503 33636 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031857,000259: 34,3504 03617 TC VNDSPLY
031858,000260: 34,3505 06036 TC INTPRET
031859,000261: 34,3506 77214 CLEAR VLOAD
031860,000262: 34,3507 01267 XDELVFLG
031861,000263: 34,3510 03366 DELVEET3
031862,000264: 34,3511 37654 STCALL DELVSIN
031863,000265: 34,3512 73542 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031864,000266: 34,3513 52014 BON GOTO
031865,000267: 34,3514 04306 P39/79SW
031866,000268: 34,3515 71537 P39/P79B
031867,000269: 34,3516 71376 RECYCLE
031868,000270:
031869,000271: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031870,000272:
031871,000273: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031872,000274: # MOD BY RUDNICKI.S DATE 25JAN68
031873,000275:
031874,000276: # FUNCTIONAL DESCRIPTION
|
|
Page 736
|
031876,000278:
031877,000279: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031878,000280: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031879,000281: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031880,000282: # THE SOR MANEUVER
031881,000283:
031882,000284: # CALLING SEQUENCE
031883,000285:
031884,000286: # ASTRONAUT REQUEST THRU DSKY
031885,000287:
031886,000288: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031887,000289: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031888,000290:
031889,000291: # INPUT
031890,000292:
031891,000293: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
031892,000294: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031893,000295: # SAVED FROM P38/P78
031894,000296:
031895,000297: # OUTPUT
031896,000298:
031897,000299: # (1) TRKMKCNT NUMBER OF MARKS
031898,000300: # (2) TTOGO TIME TO GO
031899,000301: # (3) +MGA MIDDLE GIMBAL ANGLE
031900,000302: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031901,000303:
031902,000304: # SUBROUTINES USED
031903,000305:
031904,000306: # AVFLAGA
031905,000307: # AVFLAGP
031906,000308: # LOADTIME
031907,000309: # SELECTMU
031908,000310: # PRECSET
031909,000311: # S34/35.1
031910,000312: # MAINRTNE
031911,000313:
031912,000314: 34,3517 04616 P39 TC BANKCALL
031913,000315: 34,3520 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031914,000316: 34,3521 00006 EXTEND
031915,000317: 34,3522 31401 DCA ATIGINC
031916,000318: 34,3523 03530 TC P39/P79A
031917,000319: 34,3524 04616 P79 TC BANKCALL
031918,000320: 34,3525 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031919,000321: 34,3526 00006 EXTEND
031920,000322: 34,3527 31403 DCA PTIGINC
031921,000323: 34,3530 53574 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
031922,000324: 34,3531 04616 TC BANKCALL
031923,000325: 34,3532 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031924,000326: 34,3533 06036 TC INTPRET
031925,000327: 34,3534 45014 SET CALL
031926,000328: 34,3535 04066 P39/79SW
|
|
Page 737
|
031928,000330: 34,3536 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031929,000331: 34,3537 43234 P39/P79B RTB DAD
031930,000332: 34,3540 21462 LOADTIME
031931,000333: 34,3541 03574 KT
031932,000334: 34,3542 03440 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
031933,000335: 34,3543 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031934,000336: 34,3544 46341 PRECSET # VEHICLES TO TIG
031935,000337: 34,3545 77624 CALL
031936,000338: 34,3546 73236 S34/35.1 # GET UNIT NORMAL
031937,000339: 34,3547 52145 DLOAD GOTO
031938,000340: 34,3550 02313 TARGTIME
031939,000341: 34,3551 71432 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
031940,000342:
031941,000343: # .... PREC/TT ....
031942,000344: # SUBROUTINES USED
031943,000345:
031944,000346: # PRECSET
031945,000347: # TIMETHET
031946,000348: # S34/35.1
031947,000349:
031948,000350: 34,3552 71220 PREC/TT STQ DLOAD
031949,000351: 34,3553 03463 RTRN
031950,000352: 34,3554 03440 TIG
031951,000353: 34,3555 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031952,000354: 34,3556 46341 PRECSET # VEHICLES TO TIG
031953,000355: 34,3557 53775 VLOAD VSR*
031954,000356: 34,3560 03550 RPASS3
031955,000357: 34,3561 57176 0,2
031956,000358: 34,3562 16655 STODL RVEC
031957,000359: 34,3563 03617 CENTANG
031958,000360: 34,3564 71406 PUSH COS
031959,000361: 34,3565 16732 STODL CSTH
031960,000362: 34,3566 43156 SIN SET
031961,000363: 34,3567 03466 RVSW
031962,000364: 34,3570 26730 STOVL SNTH
031963,000365: 34,3571 03556 VPASS3
031964,000366: 34,3572 77657 VSR*
031965,000367: 34,3573 57176 0,2
031966,000368: 34,3574 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
031967,000369: 34,3575 24745 TIMETHET # PASSIVE VEHICLE
031968,000370: 34,3576 77624 CALL
031969,000371: 34,3577 73236 S34/35.1 # GET UNIT NORMAL
031970,000372: 34,3600 52145 DLOAD GOTO
031971,000373: 34,3601 00037 T
031972,000374: 34,3602 03463 RTRN
031973,000375:
031974,000376: # .... INTRPVP ....
031975,000377: # SUBROUTINES USED
031976,000378:
031977,000379: # CSMPREC
031978,000380: # LEMPREC
|
|
Page 738
|
031980,000382: 34,3603 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
031981,000383: 34,3604 03463 RTRN # TDEC1
031982,000384: 34,3605 01352 AVFLAG
031983,000385: 34,3606 71613 OTHERV
031984,000386: 34,3607 77624 CALL
031985,000387: 34,3610 27043 CSMPREC
031986,000388: 34,3611 77650 GOTO
031987,000389: 34,3612 03463 RTRN
031988,000390: 34,3613 77624 OTHERV CALL
031989,000391: 34,3614 27057 LEMPREC
031990,000392: 34,3615 77650 GOTO
031991,000393: 34,3616 03463 RTRN
031992,000394:
031993,000395: # .... VNDSPLY ....
031994,000396: # SUBROUTINES USED
031995,000397:
031996,000398: # BANKCALL
031997,000399: # GOFLASH
031998,000400: # GOTOPOOH
031999,000401:
032000,000402: 34,3617 00006 VNDSPLY EXTEND # FLASH DISPLAY
032001,000403: 34,3620 23463 QXCH RTRN
032002,000404: 34,3621 55613 TS VERBNOUN
032003,000405: 34,3622 31613 CA VERBNOUN
032004,000406: 34,3623 04616 TCR BANKCALL
032005,000407: 34,3624 20351 CADR GOFLASH
032006,000408: 34,3625 16001 TCF GOTOPOOH # TERMINATE
032007,000409: 34,3626 01463 TC RTRN # PROCEED
032008,000410: 34,3627 13622 TCF -5 # RECYCLE
032009,000411: 34,3630 01441 V06N33SR VN 0633
032010,000412: 34,3631 01467 V06N55SR VN 0655
032011,000413: 34,3632 01006 V04N06SR VN 0406
032012,000414: 34,3633 01471 V06N57SR VN 0657
032013,000415: 34,3634 01442 V06N34SR VN 0634
032014,000416: 34,3635 01472 V06N58SR VN 0658
032015,000417: 34,3636 01521 V06N81SR VN 0681
032016,000418:
032017,000419:
032018,000420:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc