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