Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
030895,000002: ## Copyright: Public domain.
030896,000003: ## Filename: STABLE_ORBIT.agc
030897,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
030898,000005: ## It is part of the source code for the Lunar Module's (LM)
030899,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
030900,000007: ## Assembler: yaYUL
030901,000008: ## Contact: Ron Burkey <info@sandroid.org>.
030902,000009: ## Website: www.ibiblio.org/apollo.
030903,000010: ## Pages: 723-730
030904,000011: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
030905,000012: ## Colossus249 file (there being no corresponding
030906,000013: ## Luminary131 source-code file), using page
030907,000014: ## images from Luminary 1A.
030908,000015: ## 2009-06-07 RSB Eliminated an extraneous instruction.
030909,000016: ## 2011-01-06 JL Fixed pseudo-label indentation.
030910,000017: ##
030911,000018: ## This source code has been transcribed or otherwise adapted from
030912,000019: ## digitized images of a hardcopy from the MIT Museum. The digitization
030913,000020: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
030914,000021: ## the Museum. Many thanks to both. The images (with suitable reduction
030915,000022: ## in storage size and consequent reduction in image quality as well) are
030916,000023: ## available online at www.ibiblio.org/apollo. If for some reason you
030917,000024: ## find that the images are illegible, contact me at info@sandroid.org
030918,000025: ## about getting access to the (much) higher-quality images which Paul
030919,000026: ## actually created.
030920,000027: ##
030921,000028: ## Notations on the hardcopy document read, in part:
030922,000029: ##
030923,000030: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
030924,000031: ## 16:27 JULY 14, 1969
030925,000032:
![]() |
Page 723 |
030927,000034: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
030928,000035:
030929,000036: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
030930,000037: # MOD BY RUDNICKI.S DATE 26JAN68
030931,000038:
030932,000039: # FUNCTIONAL DESCRIPTION
030933,000040:
030934,000041: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030935,000042: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
030936,000043: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
030937,000044: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
030938,000045: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
030939,000046: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
030940,000047: # VEHICLES
030941,000048:
030942,000049: # CALLING SEQUENCE
030943,000050:
030944,000051: # ASTRONAUT REQUEST THRU DSKY
030945,000052:
030946,000053: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
030947,000054: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
030948,000055:
030949,000056: # INPUT
030950,000057:
030951,000058: # (1) SOI MANEUVER
030952,000059:
030953,000060: # (A) TIG TIME OF SOI MANEUVER
030954,000061: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
030955,000062: # DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
030956,000063: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
030957,000064: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
030958,000065: # ORBIT
030959,000066: # (D) OPTION EQUALS 1 FOR SOI
030960,000067:
030961,000068: # (2) SOR MANEUVER
030962,000069:
030963,000070: # (A) TIG TIME OF SOR MANEUVER
030964,000071: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
030965,000072: # (C) OPTION EQUALS 2 FOR SOR
030966,000073: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
030967,000074: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
030968,000075: # VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
030969,000076: # SOI PHASE
030970,000077: # (E) TINT TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
030971,000078:
030972,000079: # OUTPUT
030973,000080:
030974,000081: # (1) TRKMKCNT NUMBER OF MARKS
030975,000082: # (2) TTOGO TIME TO GO
030976,000083: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 724 |
030978,000085: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
030979,000086: # (FOR SOI ONLY)
030980,000087: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
030981,000088: # THE SOI (SOR) MANEUVER
030982,000089: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
030983,000090: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
030984,000091: # (8) DELTA VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
030985,000092: # CORDINATES
030986,000093:
030987,000094: # SUBROUTINE USED
030988,000095:
030989,000096: # AVFLAGA
030990,000097: # AVFLAGP
030991,000098: # VNDSPLY
030992,000099: # BANKCALL
030993,000100: # GOFLASHR
030994,000101: # GOTOP00H
030995,000102: # BLANKET
030996,000103: # ENDOFJOB
030997,000104: # PREC/TT
030998,000105: # SELECTMU
030999,000106: # INTRPVP
031000,000107: # MAINRTNE
031001,000108:
031002,000109: 04,3013 BANK 04
031003,000110: 34,2000 SETLOC STBLEORB
031004,000111: 34,2000 BANK
031005,000112:
031006,000113: 34,3271 E7,1470 EBANK= SUBEXIT
031007,000114: 34,3271 COUNT* $$/P3879
031008,000115:
031009,000116: 34,3271 04616 P38 TC BANKCALL
031010,000117: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031011,000118: 34,3273 03276 TC +3
031012,000119: 34,3274 04616 P78 TC BANKCALL
031013,000120: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031014,000121: 34,3276 04616 TC BANKCALL
031015,000122: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031016,000123: 34,3300 33641 CAF DECTWO
031017,000124: 34,3301 55466 TS NN
031018,000125: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
031019,000126: 34,3303 03621 TC VNDSPLY
031020,000127: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
031021,000128: 34,3305 04616 TCR BANKCALL
031022,000129: 34,3306 20635 CADR GOFLASHR
031023,000130: 34,3307 16001 TCF GOTOP00H # TERMINATE
031024,000131: 34,3310 13315 TCF +5 # PROCEED
031025,000132: 34,3311 13304 TCF -5 # RECYCLE
031026,000133: 34,3312 36245 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
031027,000134: 34,3313 05464 TCR BLANKET
![]() |
Page 725 |
031029,000136: 34,3314 15155 TCF ENDOFJOB
031030,000137: 34,3315 34756 CAF FIVE
031031,000138: 34,3316 55144 TS OPTION1
031032,000139: 34,3317 34753 CAF ONE
031033,000140: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031034,000141: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
031035,000142: 34,3322 04616 TCR BANKCALL
031036,000143: 34,3323 20635 CADR GOFLASHR
031037,000144: 34,3324 16001 TCF GOTOP00H # TERMINATE
031038,000145: 34,3325 13332 TCF +5 # PROCEED
031039,000146: 34,3326 13321 TCF -5 # RECYCLE
031040,000147: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
031041,000148: 34,3330 05464 TCR BLANKET
031042,000149: 34,3331 15155 TCF ENDOFJOB
031043,000150: 34,3332 06037 TC INTPRET
031044,000151: 34,3333 70535 SLOAD SR1
031045,000152: 34,3334 01146 OPTION2
031046,000153: 34,3335 71230 BHIZ DLOAD
031047,000154: 34,3336 71344 OPTN1
031048,000155: 34,3337 03631 TINT
031049,000156: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
031050,000157: 34,3341 77614 CLRGO
031051,000158: 34,3342 01230 OPTNSW # OPTNSW: ON = SOI, OFF = SOR
031052,000159: 34,3343 71375 JUNCTN1
031053,000160: 34,3344 43014 OPTN1 SET CLEAR # SOI
031054,000161: 34,3345 01070 OPTNSW
031055,000162: 34,3346 00670 UPDATFLG
031056,000163: 34,3347 77624 CALL
031057,000164: 34,3350 71554 PREC/TT
031058,000165: 34,3351 43015 DAD SET
031059,000166: 34,3352 03442 TIG
031060,000167: 34,3353 00470 UPDATFLG
031061,000168: 34,3354 03631 STORE TINT # TI = TIG + TF
031062,000169: 34,3355 77776 EXIT
031063,000170: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
031064,000171: 34,3357 04616 TCR BANKCALL
031065,000172: 34,3360 20635 CADR GOFLASHR
031066,000173: 34,3361 16001 TCF GOTOP00H # TERMINATE
031067,000174: 34,3362 13367 TCF +5 # PROCEED
031068,000175: 34,3363 13356 TCF -5 # RECYCLE
031069,000176: 34,3364 36242 CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
031070,000177: 34,3365 05464 TCR BLANKET
031071,000178: 34,3366 15155 TCF ENDOFJOB
031072,000179: 34,3367 00006 +5 EXTEND
031073,000180: 34,3370 31631 DCA TINT
031074,000181: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
031075,000182: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031076,000183: 34,3373 03621 TC VNDSPLY
031077,000184: 34,3374 06037 TC INTPRET
031078,000185: 34,3375 45014 JUNCTN1 CLEAR CALL
![]() |
Page 726 |
031080,000187: 34,3376 04266 P39/79SW
031081,000188: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031082,000189: 34,3400 77624 RECYCLE CALL
031083,000190: 34,3401 71554 PREC/TT
031084,000191: 34,3402 71214 BOFF DLOAD
031085,000192: 34,3403 01350 OPTNSW
031086,000193: 34,3404 71424 OPTN2
031087,000194: 34,3405 03631 TINT
031088,000195: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031089,000196: 34,3407 71605 INTRPVP # INTERCEPT TIME
031090,000197: 34,3410 53575 VLOAD UNIT
031091,000198: 34,3411 00001 RATT # RP/(RP)
031092,000199: 34,3412 47315 PDVL VXV
031093,000200: 34,3413 00007 VATT
031094,000201: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
031095,000202: 34,3415 00047 X1
031096,000203: 34,3416 56325 PDDL DDV
031097,000204: 34,3417 02303 DELTAR
031098,000205: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
031099,000206: 34,3421 20172 0 -7,1
031100,000207: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031101,000208: 34,3423 71430 JUNCTN2
031102,000209: 34,3424 43345 OPTN2 DLOAD DAD
031103,000210: 34,3425 02303 TINTSOI
031104,000211: 34,3426 00037 T
031105,000212: 34,3427 03631 STORE TINT # TI = TI + TF
031106,000213: 34,3430 45345 JUNCTN2 DLOAD DSU
031107,000214: 34,3431 03631 TINT
031108,000215: 34,3432 02305 DELTTIME
031109,000216: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
031110,000217:
031111,000218: # .... MAINRTNE ....
031112,000219:
031113,000220: # SUBROUTINES USED:
031114,000221:
031115,000222: # S3435.25
031116,000223: # PERIAPO1
031117,000224: # SHIFTR1
031118,000225: # VNDSPLY
031119,000226: # BANKCALL
031120,000227: # GOFLASH
031121,000228: # GOTOP00H
031122,000229: # VN1645
031123,000230:
031124,000231: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031125,000232: 34,3435 71605 INTRPVP # TARGET TIME
031126,000233: 34,3436 77745 DLOAD
031127,000234: 34,3437 03442 TIG
031128,000235: 34,3440 03610 STORE INTIME
031129,000236: 34,3441 77331 SSP VLOAD
031130,000237: 34,3442 03471 SUBEXIT
031131,000238: 34,3443 71447 TEST3979
![]() |
Page 727 |
031133,000240: 34,3444 00001 RATT
031134,000241: 34,3445 77624 CALL
031135,000242: 34,3446 73327 S3435.25
031136,000243: 34,3447 43014 TEST3979 BOFF BON
031137,000244: 34,3450 04346 P39/79SW
031138,000245: 34,3451 71460 MAINRTN1
031139,000246: 34,3452 01311 FINALFLG
031140,000247: 34,3453 71456 P39P79
031141,000248: 34,3454 77614 SET
031142,000249: 34,3455 00470 UPDATFLG
031143,000250: 34,3456 77776 P39P79 EXIT
031144,000251: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
031145,000252: 34,3460 51575 MAINRTN1 VLOAD ABVAL
031146,000253: 34,3461 02366 DELVEET3
031147,000254: 34,3462 27576 STOVL DELVTPI # DELTA V
031148,000255: 34,3463 03506 VPASS4
031149,000256: 34,3464 51451 VSU ABVAL
031150,000257: 34,3465 03566 VTPRIME
031151,000258: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V*T - VT
031152,000259: 34,3467 03536 RACT3
031153,000260: 34,3470 45115 PDVL CALL
031154,000261: 34,3471 02337 VIPRIME
031155,000262: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
031156,000263: 34,3473 77624 CALL
031157,000264: 34,3474 46426 SHIFTR1
031158,000265: 34,3475 03606 STORE POSTTPI
031159,000266: 34,3476 43014 BON SET
031160,000267: 34,3477 01311 FINALFLG
031161,000268: 34,3500 71502 DSPLY58
031162,000269: 34,3501 00470 UPDATFLG
031163,000270: 34,3502 77776 DSPLY58 EXIT
031164,000271: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031165,000272: 34,3504 03621 TC VNDSPLY
031166,000273: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031167,000274: 34,3506 03621 TC VNDSPLY
031168,000275: 34,3507 06037 TC INTPRET
031169,000276: 34,3510 77214 CLEAR VLOAD
031170,000277: 34,3511 01267 XDELVFLG
031171,000278: 34,3512 02366 DELVEET3
031172,000279: 34,3513 37656 STCALL DELVSIN
031173,000280: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031174,000281: 34,3515 52014 BON GOTO
031175,000282: 34,3516 04306 P39/79SW
031176,000283: 34,3517 71541 P39/P79B
031177,000284: 34,3520 71400 RECYCLE
031178,000285:
031179,000286: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031180,000287:
031181,000288: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
031182,000289: # MOD BY RUDNICKI, S DATE 25JAN68
031183,000290:
![]() |
Page 728 |
031185,000292: # FUNCTIONAL DESCRIPTION
031186,000293:
031187,000294: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031188,000295: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031189,000296: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031190,000297: # THE SOR MANEUVER.
031191,000298:
031192,000299: # CALLING SEQUENCE
031193,000300:
031194,000301: # ASTRONAUT REQUEST THRU DSKY
031195,000302:
031196,000303: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031197,000304: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031198,000305:
031199,000306: # INPUT
031200,000307:
031201,000308: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
031202,000309: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
031203,000310: # SAVED FROM P38/P78
031204,000311:
031205,000312: # OUTPUT
031206,000313:
031207,000314: # (1) TRKMKCNT NUMBER OF MARKS.
031208,000315: # (2) TTOGO TIME TO GO
031209,000316: # (3) +MGA MIDDLE GIMBAL ANGLE
031210,000317: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031211,000318:
031212,000319: # SUBROUTINES USED
031213,000320:
031214,000321: # AVFLAGA
031215,000322: # AVFLAGP
031216,000323: # LOADTIME
031217,000324: # SELECTMU
031218,000325: # PRECSET
031219,000326: # S34/35.1
031220,000327: # MAINRTNE
031221,000328:
031222,000329: 34,3521 04616 P39 TC BANKCALL
031223,000330: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031224,000331: 34,3523 00006 EXTEND
031225,000332: 34,3524 31401 DCA ATIGINC
031226,000333: 34,3525 03532 TC P39/P79A
031227,000334: 34,3526 04616 P79 TC BANKCALL
031228,000335: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031229,000336: 34,3530 00006 EXTEND
031230,000337: 34,3531 31403 DCA PTIGINC
031231,000338: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
031232,000339: 34,3533 04616 TC BANKCALL
031233,000340: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031234,000341: 34,3535 06037 TC INTPRET
![]() |
Page 729 |
031236,000343: 34,3536 45014 SET CALL
031237,000344: 34,3537 04066 P39/79SW
031238,000345: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031239,000346: 34,3541 43234 P39/P79B RTB DAD
031240,000347: 34,3542 21573 LOADTIME
031241,000348: 34,3543 03576 KT
031242,000349: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
031243,000350: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031244,000351: 34,3546 46360 PRECSET # VEHICLES TO TIG
031245,000352: 34,3547 77624 CALL
031246,000353: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
031247,000354: 34,3551 52145 DLOAD GOTO
031248,000355: 34,3552 02307 TARGTIME
031249,000356: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
031250,000357:
031251,000358: # .... PREC/TT ....
031252,000359:
031253,000360: # SUBROUTINES USED
031254,000361:
031255,000362: # PRECSET
031256,000363: # TIMETHET
031257,000364: # S34/35.1
031258,000365:
031259,000366: 34,3554 71220 PREC/TT STQ DLOAD
031260,000367: 34,3555 03465 RTRN
031261,000368: 34,3556 03442 TIG
031262,000369: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031263,000370: 34,3560 46360 PRECSET # VEHICLES TO TIG
031264,000371: 34,3561 53775 VLOAD VSR*
031265,000372: 34,3562 03552 RPASS3
031266,000373: 34,3563 57176 0,2
031267,000374: 34,3564 16655 STODL RVEC
031268,000375: 34,3565 03621 CENTANG
031269,000376: 34,3566 71406 PUSH COS
031270,000377: 34,3567 16732 STODL CSTH
031271,000378: 34,3570 43156 SIN SET
031272,000379: 34,3571 03466 RVSW
031273,000380: 34,3572 26730 STOVL SNTH
031274,000381: 34,3573 03560 VPASS3
031275,000382: 34,3574 77657 VSR*
031276,000383: 34,3575 57176 0,2
031277,000384: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
031278,000385: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
031279,000386: 34,3600 77624 CALL
031280,000387: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
031281,000388: 34,3602 52145 DLOAD GOTO
031282,000389: 34,3603 00037 T
031283,000390: 34,3604 03465 RTRN
031284,000391:
031285,000392: # .... INTRPVP ....
031286,000393:
031287,000394: # SUBROUTINES USED
031288,000395:
031289,000396: # CSMPREC
![]() |
Page 730 |
031291,000398: # LEMPREC
031292,000399:
031293,000400: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
031294,000401: 34,3606 03465 RTRN # TDEC1
031295,000402: 34,3607 01352 AVFLAG
031296,000403: 34,3610 71615 OTHERV
031297,000404: 34,3611 77624 CALL
031298,000405: 34,3612 27043 CSMPREC
031299,000406: 34,3613 77650 GOTO
031300,000407: 34,3614 03465 RTRN
031301,000408: 34,3615 77624 OTHERV CALL
031302,000409: 34,3616 27057 LEMPREC
031303,000410: 34,3617 77650 GOTO
031304,000411: 34,3620 03465 RTRN
031305,000412:
031306,000413: # .... VNDSPLY ....
031307,000414:
031308,000415: # SUBROUTINES USED
031309,000416:
031310,000417: # BANKCALL
031311,000418: # GOFLASH
031312,000419: # GOTOP00H
031313,000420:
031314,000421: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
031315,000422: 34,3622 23465 QXCH RTRN
031316,000423: 34,3623 55615 TS VERBNOUN
031317,000424: 34,3624 31615 CA VERBNOUN
031318,000425: 34,3625 04616 TCR BANKCALL
031319,000426: 34,3626 20476 CADR GOFLASH
031320,000427: 34,3627 16001 TCF GOTOP00H # TERMINATE
031321,000428: 34,3630 01465 TC RTRN # PROCEED
031322,000429: 34,3631 13624 TCF -5 # RECYCLE
031323,000430: 34,3632 01441 V06N33SR VN 0633
031324,000431: 34,3633 01467 V06N55SR VN 0655
031325,000432: 34,3634 01006 V04N06SR VN 0406
031326,000433: 34,3635 01471 V06N57SR VN 0657
031327,000434: 34,3636 01442 V06N34SR VN 0634
031328,000435: 34,3637 01472 V06N58SR VN 0658
031329,000436: 34,3640 01521 V06N81SR VN 0681
031330,000437: 34,3641 00002 DECTWO OCT 2
031331,000438:
031332,000439: # *** END OF KISSING .050 ***
031333,000440:
031334,000441:
031335,000442:
End of include-file STABLE_ORBIT.agc. Parent file is MAIN.agc