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