GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision.
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 16:27 JULY 14,1969Note that the date is the date of the printout, not the date of the program revision. |
031095,000002: ## Copyright: Public domain.
031096,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031097,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
031098,000005: ## It is part of the source code for the Lunar Module's (LM)
031099,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
031100,000007: ## Assembler: yaYUL
031101,000008: ## Contact: Ron Burkey <info@sandroid.org>.
031102,000009: ## Website: www.ibiblio.org/apollo.
031103,000010: ## Pages: 723-730
031104,000011: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
031105,000012: ## Colossus249 file (there being no corresponding
031106,000013: ## Luminary131 source-code file), using page
031107,000014: ## images from Luminary 1A.
031108,000015: ## 2009-06-07 RSB Eliminated an extraneous instruction.
031109,000016: ## 2011-01-06 JL Fixed pseudo-label indentation.
031110,000017: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
031111,000018: ## 2016-12-15 RSB Proofed text comments with octopus/ProoferComments
031112,000019: ## and corrected the errors found.
031113,000020: ## 2017-01-28 RSB Back-ported a comment-text fix from proofing
031114,000021: ## of Luminary 69. Also, changed the filename
031115,000022: ## (from STABLE_ORBIT.agc) so as to agree with
031116,000023: ## the other AGC versions having a corresponding
031117,000024: ## log section (making it easier to perform diffs
031118,000025: ## between versions), and to agree with what it
031119,000026: ## says in ASSEMBLY AND OPERATION INFORMATION.
031120,000027: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031121,000028: ## Luminary 99 vs Comanche 55.
031122,000029:
031123,000030: ## This source code has been transcribed or otherwise adapted from
031124,000031: ## digitized images of a hardcopy from the MIT Museum. The digitization
031125,000032: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031126,000033: ## the Museum. Many thanks to both. The images (with suitable reduction
031127,000034: ## in storage size and consequent reduction in image quality as well) are
031128,000035: ## available online at www.ibiblio.org/apollo. If for some reason you
031129,000036: ## find that the images are illegible, contact me at info@sandroid.org
031130,000037: ## about getting access to the (much) higher-quality images which Paul
031131,000038: ## actually created.
031132,000039: ##
031133,000040: ## Notations on the hardcopy document read, in part:
031134,000041: ##
031135,000042: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
031136,000043: ## 16:27 JULY 14, 1969
031137,000044:
|
|
Page 723 |
031139,000046: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031140,000047:
031141,000048: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031142,000049: # MOD BY RUDNICKI.S DATE 25JAN68
031143,000050:
031144,000051: # FUNCTIONAL DESCRIPTION
031145,000052:
031146,000053: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031147,000054: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031148,000055: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031149,000056: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031150,000057: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031151,000058: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031152,000059: # VEHICLES
031153,000060:
031154,000061: # CALLING SEQUENCE
031155,000062:
031156,000063: # ASTRONAUT REQUEST THRU DSKY
031157,000064:
031158,000065: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031159,000066: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031160,000067:
031161,000068: # INPUT
031162,000069:
031163,000070: # (1) SOI MANEUVER
031164,000071:
031165,000072: # (A) TIG TIME OF SOI MANEUVER
031166,000073: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031167,000074: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031168,000075: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031169,000076: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031170,000077: # ORBIT
031171,000078: # (D) OPTION EQUALS 1 FOR SOI
031172,000079:
031173,000080: # (2) SOR MANEUVER
031174,000081:
031175,000082: # (A) TIG TIME OF SOR MANEUVER
031176,000083: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031177,000084: # (C) OPTION EQUALS 2 FOR SOR
031178,000085: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031179,000086: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031180,000087: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031181,000088: # SOI PHASE
031182,000089: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031183,000090:
031184,000091: # OUTPUT
031185,000092:
031186,000093: # (1) TRKMKCNT NUMBER OF MARKS
031187,000094: # (2) TTOGO TIME TO GO
031188,000095: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 724 |
031190,000097: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031191,000098: # (FOR SOI ONLY)
031192,000099: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031193,000100: # THE SOI (SOR) MANEUVER
031194,000101: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031195,000102: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031196,000103: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031197,000104: # COORDINATES
031198,000105:
031199,000106: # SUBROUTINES USED
031200,000107:
031201,000108: # AVFLAGA
031202,000109: # AVFLAGP
031203,000110: # VNDSPLY
031204,000111: # BANKCALL
031205,000112: # GOFLASHR
031206,000113: # GOTOPOOH
031207,000114: # BLANKET
031208,000115: # ENDOFJOB
031209,000116: # PREC/TT
031210,000117: # SELECTMU
031211,000118: # INTRPVP
031212,000119: # MAINRTNE
031213,000120:
031214,000121: 04,3013 BANK 04
031215,000122: 34,2000 SETLOC STBLEORB
031216,000123: 34,2000 BANK
031217,000124:
031218,000125: 34,3271 E7,1470 EBANK= SUBEXIT
031219,000126: 34,3271 COUNT* $$/P3879
031220,000127:
031221,000128: 34,3271 04616 P38 TC BANKCALL
031222,000129: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031223,000130: 34,3273 03276 TC +3
031224,000131: 34,3274 04616 P78 TC BANKCALL
031225,000132: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031226,000133: 34,3276 04616 TC BANKCALL
031227,000134: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031228,000135: 34,3300 33641 CAF DECTWO
031229,000136: 34,3301 55466 TS NN
031230,000137: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
031231,000138: 34,3303 03621 TC VNDSPLY
031232,000139: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
031233,000140: 34,3305 04616 TCR BANKCALL
031234,000141: 34,3306 20635 CADR GOFLASHR
031235,000142: 34,3307 16001 TCF GOTOPOOH # TERMINATE
031236,000143: 34,3310 13315 TCF +5 # PROCEED
031237,000144: 34,3311 13304 TCF -5 # RECYCLE
031238,000145: 34,3312 36245 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031239,000146: 34,3313 05464 TCR BLANKET
|
|
Page 725 |
031241,000148: 34,3314 15155 TCF ENDOFJOB
031242,000149: 34,3315 34756 CAF FIVE
031243,000150: 34,3316 55144 TS OPTION1
031244,000151: 34,3317 34753 CAF ONE
031245,000152: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031246,000153: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031247,000154: 34,3322 04616 TCR BANKCALL
031248,000155: 34,3323 20635 CADR GOFLASHR
031249,000156: 34,3324 16001 TCF GOTOPOOH # TERMINATE
031250,000157: 34,3325 13332 TCF +5 # PROCEED
031251,000158: 34,3326 13321 TCF -5 # RECYCLE
031252,000159: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031253,000160: 34,3330 05464 TCR BLANKET
031254,000161: 34,3331 15155 TCF ENDOFJOB
031255,000162: 34,3332 06037 TC INTPRET
031256,000163: 34,3333 70535 SLOAD SR1
031257,000164: 34,3334 01146 OPTION2
031258,000165: 34,3335 71230 BHIZ DLOAD
031259,000166: 34,3336 71344 OPTN1
031260,000167: 34,3337 03631 TINT
031261,000168: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
031262,000169: 34,3341 77614 CLRGO
031263,000170: 34,3342 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031264,000171: 34,3343 71375 JUNCTN1
031265,000172: 34,3344 43014 OPTN1 SET CLEAR # SOI
031266,000173: 34,3345 01070 OPTNSW
031267,000174: 34,3346 00670 UPDATFLG
031268,000175: 34,3347 77624 CALL
031269,000176: 34,3350 71554 PREC/TT
031270,000177: 34,3351 43015 DAD SET
031271,000178: 34,3352 03442 TIG
031272,000179: 34,3353 00470 UPDATFLG
031273,000180: 34,3354 03631 STORE TINT # TI = TIG + TF
031274,000181: 34,3355 77776 EXIT
031275,000182: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
031276,000183: 34,3357 04616 TCR BANKCALL
031277,000184: 34,3360 20635 CADR GOFLASHR
031278,000185: 34,3361 16001 TCF GOTOPOOH # TERMINATE
031279,000186: 34,3362 13367 TCF +5 # PROCEED
031280,000187: 34,3363 13356 TCF -5 # RECYCLE
031281,000188: 34,3364 36242 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031282,000189: 34,3365 05464 TCR BLANKET
031283,000190: 34,3366 15155 TCF ENDOFJOB
031284,000191: 34,3367 00006 +5 EXTEND
031285,000192: 34,3370 31631 DCA TINT
031286,000193: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
031287,000194: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031288,000195: 34,3373 03621 TC VNDSPLY
031289,000196: 34,3374 06037 TC INTPRET
031290,000197: 34,3375 45014 JUNCTN1 CLEAR CALL
|
|
Page 726 |
031292,000199: 34,3376 04266 P39/79SW
031293,000200: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031294,000201: 34,3400 77624 RECYCLE CALL
031295,000202: 34,3401 71554 PREC/TT
031296,000203: 34,3402 71214 BOFF DLOAD
031297,000204: 34,3403 01350 OPTNSW
031298,000205: 34,3404 71424 OPTN2
031299,000206: 34,3405 03631 TINT
031300,000207: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031301,000208: 34,3407 71605 INTRPVP # INTERCEPT TIME
031302,000209: 34,3410 53575 VLOAD UNIT
031303,000210: 34,3411 00001 RATT # RP/(RP)
031304,000211: 34,3412 47315 PDVL VXV
031305,000212: 34,3413 00007 VATT
031306,000213: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
031307,000214: 34,3415 00047 X1
031308,000215: 34,3416 56325 PDDL DDV
031309,000216: 34,3417 02303 DELTAR
031310,000217: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
031311,000218: 34,3421 20172 0 -7,1
031312,000219: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031313,000220: 34,3423 71430 JUNCTN2
031314,000221: 34,3424 43345 OPTN2 DLOAD DAD
031315,000222: 34,3425 02303 TINTSOI
031316,000223: 34,3426 00037 T
031317,000224: 34,3427 03631 STORE TINT # TI = TI + TF
031318,000225: 34,3430 45345 JUNCTN2 DLOAD DSU
031319,000226: 34,3431 03631 TINT
031320,000227: 34,3432 02305 DELTTIME
031321,000228: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
031322,000229:
031323,000230: # .... MAINRTNE ....
031324,000231:
031325,000232: # SUBROUTINES USED
031326,000233:
031327,000234: # S3435.25
031328,000235: # PERIAPO1
031329,000236: # SHIFTR1
031330,000237: # VNDSPLY
031331,000238: # BANKCALL
031332,000239: # GOFLASH
031333,000240: # GOTOPOOH
031334,000241: # VN1645
031335,000242:
031336,000243: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031337,000244: 34,3435 71605 INTRPVP # TARGET TIME
031338,000245: 34,3436 77745 DLOAD
031339,000246: 34,3437 03442 TIG
031340,000247: 34,3440 03610 STORE INTIME
031341,000248: 34,3441 77331 SSP VLOAD
031342,000249: 34,3442 03471 SUBEXIT
031343,000250: 34,3443 71447 TEST3979
|
|
Page 727 |
031345,000252: 34,3444 00001 RATT
031346,000253: 34,3445 77624 CALL
031347,000254: 34,3446 73327 S3435.25
031348,000255: 34,3447 43014 TEST3979 BOFF BON
031349,000256: 34,3450 04346 P39/79SW
031350,000257: 34,3451 71460 MAINRTN1
031351,000258: 34,3452 01311 FINALFLG
031352,000259: 34,3453 71456 P39P79
031353,000260: 34,3454 77614 SET
031354,000261: 34,3455 00470 UPDATFLG
031355,000262: 34,3456 77776 P39P79 EXIT
031356,000263: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
031357,000264: 34,3460 51575 MAINRTN1 VLOAD ABVAL
031358,000265: 34,3461 02366 DELVEET3
031359,000266: 34,3462 27576 STOVL DELVTPI # DELTA V
031360,000267: 34,3463 03506 VPASS4
031361,000268: 34,3464 51451 VSU ABVAL
031362,000269: 34,3465 03566 VTPRIME
031363,000270: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
031364,000271: 34,3467 03536 RACT3
031365,000272: 34,3470 45115 PDVL CALL
031366,000273: 34,3471 02337 VIPRIME
031367,000274: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
031368,000275: 34,3473 77624 CALL
031369,000276: 34,3474 46426 SHIFTR1
031370,000277: 34,3475 03606 STORE POSTTPI
031371,000278: 34,3476 43014 BON SET
031372,000279: 34,3477 01311 FINALFLG
031373,000280: 34,3500 71502 DSPLY58
031374,000281: 34,3501 00470 UPDATFLG
031375,000282: 34,3502 77776 DSPLY58 EXIT
031376,000283: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031377,000284: 34,3504 03621 TC VNDSPLY
031378,000285: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031379,000286: 34,3506 03621 TC VNDSPLY
031380,000287: 34,3507 06037 TC INTPRET
031381,000288: 34,3510 77214 CLEAR VLOAD
031382,000289: 34,3511 01267 XDELVFLG
031383,000290: 34,3512 02366 DELVEET3
031384,000291: 34,3513 37656 STCALL DELVSIN
031385,000292: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031386,000293: 34,3515 52014 BON GOTO
031387,000294: 34,3516 04306 P39/79SW
031388,000295: 34,3517 71541 P39/P79B
031389,000296: 34,3520 71400 RECYCLE
031390,000297:
031391,000298: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031392,000299:
031393,000300: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031394,000301: # MOD BY RUDNICKI.S DATE 25JAN68
031395,000302:
|
|
Page 728 |
031397,000304: # FUNCTIONAL DESCRIPTION
031398,000305:
031399,000306: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031400,000307: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031401,000308: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031402,000309: # THE SOR MANEUVER
031403,000310:
031404,000311: # CALLING SEQUENCE
031405,000312:
031406,000313: # ASTRONAUT REQUEST THRU DSKY
031407,000314:
031408,000315: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031409,000316: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031410,000317:
031411,000318: # INPUT
031412,000319:
031413,000320: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
031414,000321: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031415,000322: # SAVED FROM P38/P78
031416,000323:
031417,000324: # OUTPUT
031418,000325:
031419,000326: # (1) TRKMKCNT NUMBER OF MARKS
031420,000327: # (2) TTOGO TIME TO GO
031421,000328: # (3) +MGA MIDDLE GIMBAL ANGLE
031422,000329: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031423,000330:
031424,000331: # SUBROUTINES USED
031425,000332:
031426,000333: # AVFLAGA
031427,000334: # AVFLAGP
031428,000335: # LOADTIME
031429,000336: # SELECTMU
031430,000337: # PRECSET
031431,000338: # S34/35.1
031432,000339: # MAINRTNE
031433,000340:
031434,000341: 34,3521 04616 P39 TC BANKCALL
031435,000342: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031436,000343: 34,3523 00006 EXTEND
031437,000344: 34,3524 31401 DCA ATIGINC
031438,000345: 34,3525 03532 TC P39/P79A
031439,000346: 34,3526 04616 P79 TC BANKCALL
031440,000347: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031441,000348: 34,3530 00006 EXTEND
031442,000349: 34,3531 31403 DCA PTIGINC
031443,000350: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
031444,000351: 34,3533 04616 TC BANKCALL
031445,000352: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031446,000353: 34,3535 06037 TC INTPRET
|
|
Page 729 |
031448,000355: 34,3536 45014 SET CALL
031449,000356: 34,3537 04066 P39/79SW
031450,000357: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031451,000358: 34,3541 43234 P39/P79B RTB DAD
031452,000359: 34,3542 21573 LOADTIME
031453,000360: 34,3543 03576 KT
031454,000361: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
031455,000362: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031456,000363: 34,3546 46360 PRECSET # VEHICLES TO TIG
031457,000364: 34,3547 77624 CALL
031458,000365: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
031459,000366: 34,3551 52145 DLOAD GOTO
031460,000367: 34,3552 02307 TARGTIME
031461,000368: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
031462,000369:
031463,000370: # .... PREC/TT ....
031464,000371:
031465,000372: # SUBROUTINES USED
031466,000373:
031467,000374: # PRECSET
031468,000375: # TIMETHET
031469,000376: # S34/35.1
031470,000377:
031471,000378: 34,3554 71220 PREC/TT STQ DLOAD
031472,000379: 34,3555 03465 RTRN
031473,000380: 34,3556 03442 TIG
031474,000381: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031475,000382: 34,3560 46360 PRECSET # VEHICLES TO TIG
031476,000383: 34,3561 53775 VLOAD VSR*
031477,000384: 34,3562 03552 RPASS3
031478,000385: 34,3563 57176 0,2
031479,000386: 34,3564 16655 STODL RVEC
031480,000387: 34,3565 03621 CENTANG
031481,000388: 34,3566 71406 PUSH COS
031482,000389: 34,3567 16732 STODL CSTH
031483,000390: 34,3570 43156 SIN SET
031484,000391: 34,3571 03466 RVSW
031485,000392: 34,3572 26730 STOVL SNTH
031486,000393: 34,3573 03560 VPASS3
031487,000394: 34,3574 77657 VSR*
031488,000395: 34,3575 57176 0,2
031489,000396: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
031490,000397: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
031491,000398: 34,3600 77624 CALL
031492,000399: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
031493,000400: 34,3602 52145 DLOAD GOTO
031494,000401: 34,3603 00037 T
031495,000402: 34,3604 03465 RTRN
031496,000403:
031497,000404: # .... INTRPVP ....
031498,000405:
031499,000406: # SUBROUTINES USED
031500,000407:
031501,000408: # CSMPREC
|
|
Page 730 |
031503,000410: # LEMPREC
031504,000411:
031505,000412: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
031506,000413: 34,3606 03465 RTRN # TDEC1
031507,000414: 34,3607 01352 AVFLAG
031508,000415: 34,3610 71615 OTHERV
031509,000416: 34,3611 77624 CALL
031510,000417: 34,3612 27043 CSMPREC
031511,000418: 34,3613 77650 GOTO
031512,000419: 34,3614 03465 RTRN
031513,000420: 34,3615 77624 OTHERV CALL
031514,000421: 34,3616 27057 LEMPREC
031515,000422: 34,3617 77650 GOTO
031516,000423: 34,3620 03465 RTRN
031517,000424:
031518,000425: # .... VNDSPLY ....
031519,000426:
031520,000427: # SUBROUTINES USED
031521,000428:
031522,000429: # BANKCALL
031523,000430: # GOFLASH
031524,000431: # GOTOPOOH
031525,000432:
031526,000433: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
031527,000434: 34,3622 23465 QXCH RTRN
031528,000435: 34,3623 55615 TS VERBNOUN
031529,000436: 34,3624 31615 CA VERBNOUN
031530,000437: 34,3625 04616 TCR BANKCALL
031531,000438: 34,3626 20476 CADR GOFLASH
031532,000439: 34,3627 16001 TCF GOTOPOOH # TERMINATE
031533,000440: 34,3630 01465 TC RTRN # PROCEED
031534,000441: 34,3631 13624 TCF -5 # RECYCLE
031535,000442: 34,3632 01441 V06N33SR VN 0633
031536,000443: 34,3633 01467 V06N55SR VN 0655
031537,000444: 34,3634 01006 V04N06SR VN 0406
031538,000445: 34,3635 01471 V06N57SR VN 0657
031539,000446: 34,3636 01442 V06N34SR VN 0634
031540,000447: 34,3637 01472 V06N58SR VN 0658
031541,000448: 34,3640 01521 V06N81SR VN 0681
031542,000449: 34,3641 00002 DECTWO OCT 2
031543,000450:
031544,000451:
031545,000452:
031546,000453:
031547,000454:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc