Source Code
![]() |
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
031824,000002: ## Copyright: Public domain.
031825,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031826,000004: ## Purpose: The main source file for Luminary revision 069.
031827,000005: ## It is part of the source code for the original release
031828,000006: ## of the flight software for the Lunar Module's (LM) Apollo
031829,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
031830,000008: ## version was Luminary 69 revision 2, which included a
031831,000009: ## newer lunar gravity model and only affected module 2.
031832,000010: ## This file is intended to be a faithful transcription, except
031833,000011: ## that the code format has been changed to conform to the
031834,000012: ## requirements of the yaYUL assembler rather than the
031835,000013: ## original YUL assembler.
031836,000014: ## Reference: pp. 731-738
031837,000015: ## Assembler: yaYUL
031838,000016: ## Contact: Ron Burkey <info@sandroid.org>.
031839,000017: ## Website: www.ibiblio.org/apollo/index.html
031840,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
031841,000019: ## 2016-12-15 MAS Updated from comment-proofed Luminary 99 version.
031842,000020: ## 2017-01-11 RRB Updated for Luminary 69.
031843,000021: ## 2017-01-20 HG Remove DECTWO
031844,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
031845,000023: ## and fixed errors found.
031846,000024: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031847,000025: ## Luminary 99 vs Comanche 55.
031848,000026:
![]() |
Page 731 |
031850,000028: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031851,000029:
031852,000030: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031853,000031: # MOD BY RUDNICKI.S DATE 25JAN68
031854,000032:
031855,000033: # FUNCTIONAL DESCRIPTION
031856,000034:
031857,000035: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031858,000036: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031859,000037: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031860,000038: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031861,000039: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031862,000040: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031863,000041: # VEHICLES
031864,000042:
031865,000043: # CALLING SEQUENCE
031866,000044:
031867,000045: # ASTRONAUT REQUEST THRU DSKY
031868,000046:
031869,000047: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031870,000048: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031871,000049:
031872,000050: # INPUT
031873,000051:
031874,000052: # (1) SOI MANEUVER
031875,000053:
031876,000054: # (A) TIG TIME OF SOI MANEUVER
031877,000055: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031878,000056: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031879,000057: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031880,000058: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031881,000059: # ORBIT
031882,000060: # (D) OPTION EQUALS 1 FOR SOI
031883,000061:
031884,000062: # (2) SOR MANEUVER
031885,000063:
031886,000064: # (A) TIG TIME OF SOR MANEUVER
031887,000065: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031888,000066: # (C) OPTION EQUALS 2 FOR SOR
031889,000067: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031890,000068: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031891,000069: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031892,000070: # SOI PHASE
031893,000071: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031894,000072:
031895,000073: # OUTPUT
031896,000074:
031897,000075: # (1) TRKMKCNT NUMBER OF MARKS
031898,000076: # (2) TTOGO TIME TO GO
031899,000077: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 732 |
031901,000079: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031902,000080: # (FOR SOI ONLY)
031903,000081: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031904,000082: # THE SOI (SOR) MANEUVER
031905,000083: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031906,000084: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031907,000085: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031908,000086: # COORDINATES
031909,000087:
031910,000088: # SUBROUTINES USED
031911,000089:
031912,000090: # AVFLAGA
031913,000091: # AVFLAGP
031914,000092: # VNDSPLY
031915,000093: # BANKCALL
031916,000094: # GOFLASHR
031917,000095: # GOTOPOOH
031918,000096: # BLANKET
031919,000097: # ENDOFJOB
031920,000098: # PREC/TT
031921,000099: # SELECTMU
031922,000100: # INTRPVP
031923,000101: # MAINRTNE
031924,000102:
031925,000103: 04,2750 BANK 04
031926,000104: 34,2000 SETLOC STBLEORB
031927,000105: 34,2000 BANK
031928,000106:
031929,000107: 34,3271 E7,1466 EBANK= SUBEXIT
031930,000108: 34,3271 COUNT* $$/P3879
031931,000109:
031932,000110: 34,3271 04616 P38 TC BANKCALL
031933,000111: 34,3272 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031934,000112: 34,3273 03276 TC +3
031935,000113: 34,3274 04616 P78 TC BANKCALL
031936,000114: 34,3275 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031937,000115: 34,3276 04616 TC BANKCALL
031938,000116: 34,3277 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031939,000117: 34,3300 33630 CAF V06N33SR # DISPLAY TIG
031940,000118: 34,3301 03617 TC VNDSPLY
031941,000119: 34,3302 33631 CAF V06N55SR # DISPLAY CENTANG
031942,000120: 34,3303 04616 TCR BANKCALL
031943,000121: 34,3304 20510 CADR GOFLASHR
031944,000122: 34,3305 16001 TCF GOTOPOOH # TERMINATE
031945,000123: 34,3306 13313 TCF +5 # PROCEED
031946,000124: 34,3307 13302 TCF -5 # RECYCLE
031947,000125: 34,3310 36244 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031948,000126: 34,3311 05464 TCR BLANKET
031949,000127: 34,3312 15155 TCF ENDOFJOB
031950,000128: 34,3313 34756 CAF FIVE
![]() |
Page 733 |
031952,000130: 34,3314 55144 TS OPTION1
031953,000131: 34,3315 34753 CAF ONE
031954,000132: 34,3316 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031955,000133: 34,3317 33632 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031956,000134: 34,3320 04616 TCR BANKCALL
031957,000135: 34,3321 20510 CADR GOFLASHR
031958,000136: 34,3322 16001 TCF GOTOPOOH # TERMINATE
031959,000137: 34,3323 13330 TCF +5 # PROCEED
031960,000138: 34,3324 13317 TCF -5 # RECYCLE
031961,000139: 34,3325 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031962,000140: 34,3326 05464 TCR BLANKET
031963,000141: 34,3327 15155 TCF ENDOFJOB
031964,000142: 34,3330 06036 TC INTPRET
031965,000143: 34,3331 70535 SLOAD SR1
031966,000144: 34,3332 01146 OPTION2
031967,000145: 34,3333 71230 BHIZ DLOAD
031968,000146: 34,3334 71342 OPTN1
031969,000147: 34,3335 03627 TINT
031970,000148: 34,3336 02307 STORE TINTSOI # STORE FOR SOR PHASE
031971,000149: 34,3337 77614 CLRGO
031972,000150: 34,3340 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031973,000151: 34,3341 71373 JUNCTN1
031974,000152: 34,3342 43014 OPTN1 SET CLEAR # SOI
031975,000153: 34,3343 01070 OPTNSW
031976,000154: 34,3344 00670 UPDATFLG
031977,000155: 34,3345 77624 CALL
031978,000156: 34,3346 71552 PREC/TT
031979,000157: 34,3347 43015 DAD SET
031980,000158: 34,3350 03440 TIG
031981,000159: 34,3351 00470 UPDATFLG
031982,000160: 34,3352 03627 STORE TINT # TI = TIG + TF
031983,000161: 34,3353 77776 EXIT
031984,000162: 34,3354 33633 CAF V06N57SR # DISPLAY DELTA R
031985,000163: 34,3355 04616 TCR BANKCALL
031986,000164: 34,3356 20510 CADR GOFLASHR
031987,000165: 34,3357 16001 TCF GOTOPOOH # TERMINATE
031988,000166: 34,3360 13365 TCF +5 # PROCEED
031989,000167: 34,3361 13354 TCF -5 # RECYCLE
031990,000168: 34,3362 36241 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031991,000169: 34,3363 05464 TCR BLANKET
031992,000170: 34,3364 15155 TCF ENDOFJOB
031993,000171: 34,3365 00006 +5 EXTEND
031994,000172: 34,3366 31627 DCA TINT
031995,000173: 34,3367 53046 DXCH DSPTEM1 # FOR DISPLAY
031996,000174: 34,3370 33634 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031997,000175: 34,3371 03617 TC VNDSPLY
031998,000176: 34,3372 06036 TC INTPRET
031999,000177: 34,3373 45014 JUNCTN1 CLEAR CALL
032000,000178: 34,3374 04266 P39/79SW
032001,000179: 34,3375 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
![]() |
Page 734 |
032003,000181: 34,3376 77624 RECYCLE CALL
032004,000182: 34,3377 71552 PREC/TT
032005,000183: 34,3400 71214 BOFF DLOAD
032006,000184: 34,3401 01350 OPTNSW
032007,000185: 34,3402 71422 OPTN2
032008,000186: 34,3403 03627 TINT
032009,000187: 34,3404 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
032010,000188: 34,3405 71603 INTRPVP # INTERCEPT TIME
032011,000189: 34,3406 53575 VLOAD UNIT
032012,000190: 34,3407 00001 RATT # RP/(RP)
032013,000191: 34,3410 47315 PDVL VXV
032014,000192: 34,3411 00007 VATT
032015,000193: 34,3412 60246 ABVAL NORM # (VP X RP/(RP))
032016,000194: 34,3413 00047 X1
032017,000195: 34,3414 56325 PDDL DDV
032018,000196: 34,3415 02307 DELTAR
032019,000197: 34,3416 77657 SL* # DELTA R / (VP X RP/RP)
032020,000198: 34,3417 20172 0 -7,1
032021,000199: 34,3420 36311 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
032022,000200: 34,3421 71426 JUNCTN2
032023,000201: 34,3422 43345 OPTN2 DLOAD DAD
032024,000202: 34,3423 02307 TINTSOI
032025,000203: 34,3424 00037 T
032026,000204: 34,3425 03627 STORE TINT # TI = TI + TF
032027,000205: 34,3426 45345 JUNCTN2 DLOAD DSU
032028,000206: 34,3427 03627 TINT
032029,000207: 34,3430 02311 DELTTIME
032030,000208: 34,3431 02313 STORE TARGTIME # TT = TI - DELTA T
032031,000209:
032032,000210: # .... MAINRTNE ....
032033,000211:
032034,000212: # SUBROUTINES USED
032035,000213:
032036,000214: # S3435.25
032037,000215: # PERIAPO1
032038,000216: # SHIFTR1
032039,000217: # VNDSPLY
032040,000218: # BANKCALL
032041,000219: # GOFLASH
032042,000220: # GOTOPOOH
032043,000221: # VN1645
032044,000222:
032045,000223: 34,3432 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
032046,000224: 34,3433 71603 INTRPVP # TARGET TIME
032047,000225: 34,3434 77745 DLOAD
032048,000226: 34,3435 03440 TIG
032049,000227: 34,3436 03606 STORE INTIME
032050,000228: 34,3437 77331 SSP VLOAD
032051,000229: 34,3440 03467 SUBEXIT
032052,000230: 34,3441 71445 TEST3979
032053,000231: 34,3442 00001 RATT
032054,000232: 34,3443 77624 CALL
![]() |
Page 735 |
032056,000234: 34,3444 73263 S3435.25
032057,000235: 34,3445 43014 TEST3979 BOFF BON
032058,000236: 34,3446 04346 P39/79SW
032059,000237: 34,3447 71456 MAINRTN1
032060,000238: 34,3450 01311 FINALFLG
032061,000239: 34,3451 71454 P39P79
032062,000240: 34,3452 77614 SET
032063,000241: 34,3453 00470 UPDATFLG
032064,000242: 34,3454 77776 P39P79 EXIT
032065,000243: 34,3455 03503 TC DSPLY81 # FOR P39 AND P79
032066,000244: 34,3456 51575 MAINRTN1 VLOAD ABVAL
032067,000245: 34,3457 03366 DELVEET3
032068,000246: 34,3460 27574 STOVL DELVTPI # DELTA V
032069,000247: 34,3461 03504 VPASS4
032070,000248: 34,3462 51451 VSU ABVAL
032071,000249: 34,3463 03564 VTPRIME
032072,000250: 34,3464 26354 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
032073,000251: 34,3465 03534 RACT3
032074,000252: 34,3466 45115 PDVL CALL
032075,000253: 34,3467 02343 VIPRIME
032076,000254: 34,3470 46277 PERIAPO1 # GET PERIGEE ALTITUDE
032077,000255: 34,3471 77624 CALL
032078,000256: 34,3472 46407 SHIFTR1
032079,000257: 34,3473 03604 STORE POSTTPI
032080,000258: 34,3474 43014 BON SET
032081,000259: 34,3475 01311 FINALFLG
032082,000260: 34,3476 71500 DSPLY58
032083,000261: 34,3477 00470 UPDATFLG
032084,000262: 34,3500 77776 DSPLY58 EXIT
032085,000263: 34,3501 33635 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
032086,000264: 34,3502 03617 TC VNDSPLY
032087,000265: 34,3503 33636 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
032088,000266: 34,3504 03617 TC VNDSPLY
032089,000267: 34,3505 06036 TC INTPRET
032090,000268: 34,3506 77214 CLEAR VLOAD
032091,000269: 34,3507 01267 XDELVFLG
032092,000270: 34,3510 03366 DELVEET3
032093,000271: 34,3511 37654 STCALL DELVSIN
032094,000272: 34,3512 73542 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
032095,000273: 34,3513 52014 BON GOTO
032096,000274: 34,3514 04306 P39/79SW
032097,000275: 34,3515 71537 P39/P79B
032098,000276: 34,3516 71376 RECYCLE
032099,000277:
032100,000278: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
032101,000279:
032102,000280: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
032103,000281: # MOD BY RUDNICKI.S DATE 25JAN68
032104,000282:
032105,000283: # FUNCTIONAL DESCRIPTION
![]() |
Page 736 |
032107,000285:
032108,000286: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
032109,000287: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
032110,000288: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
032111,000289: # THE SOR MANEUVER
032112,000290:
032113,000291: # CALLING SEQUENCE
032114,000292:
032115,000293: # ASTRONAUT REQUEST THRU DSKY
032116,000294:
032117,000295: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
032118,000296: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
032119,000297:
032120,000298: # INPUT
032121,000299:
032122,000300: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
032123,000301: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
032124,000302: # SAVED FROM P38/P78
032125,000303:
032126,000304: # OUTPUT
032127,000305:
032128,000306: # (1) TRKMKCNT NUMBER OF MARKS
032129,000307: # (2) TTOGO TIME TO GO
032130,000308: # (3) +MGA MIDDLE GIMBAL ANGLE
032131,000309: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
032132,000310:
032133,000311: # SUBROUTINES USED
032134,000312:
032135,000313: # AVFLAGA
032136,000314: # AVFLAGP
032137,000315: # LOADTIME
032138,000316: # SELECTMU
032139,000317: # PRECSET
032140,000318: # S34/35.1
032141,000319: # MAINRTNE
032142,000320:
032143,000321: 34,3517 04616 P39 TC BANKCALL
032144,000322: 34,3520 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
032145,000323: 34,3521 00006 EXTEND
032146,000324: 34,3522 31401 DCA ATIGINC
032147,000325: 34,3523 03530 TC P39/P79A
032148,000326: 34,3524 04616 P79 TC BANKCALL
032149,000327: 34,3525 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
032150,000328: 34,3526 00006 EXTEND
032151,000329: 34,3527 31403 DCA PTIGINC
032152,000330: 34,3530 53574 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
032153,000331: 34,3531 04616 TC BANKCALL
032154,000332: 34,3532 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
032155,000333: 34,3533 06036 TC INTPRET
032156,000334: 34,3534 45014 SET CALL
032157,000335: 34,3535 04066 P39/79SW
![]() |
Page 737 |
032159,000337: 34,3536 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
032160,000338: 34,3537 43234 P39/P79B RTB DAD
032161,000339: 34,3540 21462 LOADTIME
032162,000340: 34,3541 03574 KT
032163,000341: 34,3542 03440 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
032164,000342: 34,3543 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032165,000343: 34,3544 46341 PRECSET # VEHICLES TO TIG
032166,000344: 34,3545 77624 CALL
032167,000345: 34,3546 73236 S34/35.1 # GET UNIT NORMAL
032168,000346: 34,3547 52145 DLOAD GOTO
032169,000347: 34,3550 02313 TARGTIME
032170,000348: 34,3551 71432 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
032171,000349:
032172,000350: # .... PREC/TT ....
032173,000351: # SUBROUTINES USED
032174,000352:
032175,000353: # PRECSET
032176,000354: # TIMETHET
032177,000355: # S34/35.1
032178,000356:
032179,000357: 34,3552 71220 PREC/TT STQ DLOAD
032180,000358: 34,3553 03463 RTRN
032181,000359: 34,3554 03440 TIG
032182,000360: 34,3555 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032183,000361: 34,3556 46341 PRECSET # VEHICLES TO TIG
032184,000362: 34,3557 53775 VLOAD VSR*
032185,000363: 34,3560 03550 RPASS3
032186,000364: 34,3561 57176 0,2
032187,000365: 34,3562 16655 STODL RVEC
032188,000366: 34,3563 03617 CENTANG
032189,000367: 34,3564 71406 PUSH COS
032190,000368: 34,3565 16732 STODL CSTH
032191,000369: 34,3566 43156 SIN SET
032192,000370: 34,3567 03466 RVSW
032193,000371: 34,3570 26730 STOVL SNTH
032194,000372: 34,3571 03556 VPASS3
032195,000373: 34,3572 77657 VSR*
032196,000374: 34,3573 57176 0,2
032197,000375: 34,3574 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
032198,000376: 34,3575 24745 TIMETHET # PASSIVE VEHICLE
032199,000377: 34,3576 77624 CALL
032200,000378: 34,3577 73236 S34/35.1 # GET UNIT NORMAL
032201,000379: 34,3600 52145 DLOAD GOTO
032202,000380: 34,3601 00037 T
032203,000381: 34,3602 03463 RTRN
032204,000382:
032205,000383: # .... INTRPVP ....
032206,000384: # SUBROUTINES USED
032207,000385:
032208,000386: # CSMPREC
032209,000387: # LEMPREC
![]() |
Page 738 |
032211,000389: 34,3603 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
032212,000390: 34,3604 03463 RTRN # TDEC1
032213,000391: 34,3605 01352 AVFLAG
032214,000392: 34,3606 71613 OTHERV
032215,000393: 34,3607 77624 CALL
032216,000394: 34,3610 27043 CSMPREC
032217,000395: 34,3611 77650 GOTO
032218,000396: 34,3612 03463 RTRN
032219,000397: 34,3613 77624 OTHERV CALL
032220,000398: 34,3614 27057 LEMPREC
032221,000399: 34,3615 77650 GOTO
032222,000400: 34,3616 03463 RTRN
032223,000401:
032224,000402: # .... VNDSPLY ....
032225,000403: # SUBROUTINES USED
032226,000404:
032227,000405: # BANKCALL
032228,000406: # GOFLASH
032229,000407: # GOTOPOOH
032230,000408:
032231,000409: 34,3617 00006 VNDSPLY EXTEND # FLASH DISPLAY
032232,000410: 34,3620 23463 QXCH RTRN
032233,000411: 34,3621 55613 TS VERBNOUN
032234,000412: 34,3622 31613 CA VERBNOUN
032235,000413: 34,3623 04616 TCR BANKCALL
032236,000414: 34,3624 20351 CADR GOFLASH
032237,000415: 34,3625 16001 TCF GOTOPOOH # TERMINATE
032238,000416: 34,3626 01463 TC RTRN # PROCEED
032239,000417: 34,3627 13622 TCF -5 # RECYCLE
032240,000418: 34,3630 01441 V06N33SR VN 0633
032241,000419: 34,3631 01467 V06N55SR VN 0655
032242,000420: 34,3632 01006 V04N06SR VN 0406
032243,000421: 34,3633 01471 V06N57SR VN 0657
032244,000422: 34,3634 01442 V06N34SR VN 0634
032245,000423: 34,3635 01472 V06N58SR VN 0658
032246,000424: 34,3636 01521 V06N81SR VN 0681
032247,000425:
032248,000426:
032249,000427:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc