Source Code
|
This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release
of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97.
A bug (which had been around since at least Apollo 10, Luminary 69) was
discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute
revision into Rev 1,
which is what actually flew rather than
the Rev 0 presented here. A hardcopy of Rev 0 is known to
exist — it belonged to AGC developer Allan Klumpp for many years — but
unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus
the code you see here had been reconstructed (we believe accurately) rather than
transcribed. The first step of the reconstruction of the Rev 0 source code was
the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection.
The process of reverting the active portion of the source code (i.e., other than
program comments) from Rev 1 to Rev 0 was very minor, consisting
only of moving the position of the STARTSB1 label in
FRESH START AND RESTART. Allan had previously given
us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums
identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read,
in part:GAP: ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051 A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here. |
031665,000002: ## Copyright: Public domain.
031666,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031667,000004: ## Purpose: Part of the reconstructed source code for LMY99 Rev 0,
031668,000005: ## otherwise known as Luminary Rev 99, the third release
031669,000006: ## of the Apollo Guidance Computer (AGC) software for Apollo 11.
031670,000007: ## It differs from LMY99 Rev 1 (the flown version) only in the
031671,000008: ## placement of a single label. The corrections shown here have
031672,000009: ## been verified to have the same bank checksums as AGC developer
031673,000010: ## Allan Klumpp's copy of Luminary Rev 99, and so are believed
031674,000011: ## to be accurate. This file is intended to be a faithful
031675,000012: ## recreation, except that the code format has been changed to
031676,000013: ## conform to the requirements of the yaYUL assembler rather than
031677,000014: ## the original YUL assembler.
031678,000015: ##
031679,000016: ## Assembler: yaYUL
031680,000017: ## Contact: Ron Burkey <info@sandroid.org>.
031681,000018: ## Website: www.ibiblio.org/apollo.
031682,000019: ## Pages: 723-730
031683,000020: ## Mod history: 2009-05-19 RSB Adapted from the corresponding
031684,000021: ## Colossus249 file (there being no corresponding
031685,000022: ## Luminary131 source-code file), using page
031686,000023: ## images from Luminary 1A.
031687,000024: ## 2009-06-07 RSB Eliminated an extraneous instruction.
031688,000025: ## 2011-01-06 JL Fixed pseudo-label indentation.
031689,000026: ## 2016-12-13 RSB GOTOP00H -> GOTOPOOH
031690,000027: ## 2016-12-15 RSB Proofed text comments with octopus/ProoferComments
031691,000028: ## and corrected the errors found.
031692,000029: ## 2017-01-28 RSB Back-ported a comment-text fix from proofing
031693,000030: ## of Luminary 69. Also, changed the filename
031694,000031: ## (from STABLE_ORBIT.agc) so as to agree with
031695,000032: ## the other AGC versions having a corresponding
031696,000033: ## log section (making it easier to perform diffs
031697,000034: ## between versions), and to agree with what it
031698,000035: ## says in ASSEMBLY AND OPERATION INFORMATION.
031699,000036: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031700,000037: ## Luminary 99 vs Comanche 55.
031701,000038: ## 2017-08-01 MAS Created from LMY99 Rev 1.
031702,000039:
031703,000040: ## This source code has been transcribed or otherwise adapted from
031704,000041: ## digitized images of a hardcopy from the MIT Museum. The digitization
031705,000042: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
031706,000043: ## the Museum. Many thanks to both. The images (with suitable reduction
031707,000044: ## in storage size and consequent reduction in image quality as well) are
031708,000045: ## available online at www.ibiblio.org/apollo. If for some reason you
031709,000046: ## find that the images are illegible, contact me at info@sandroid.org
031710,000047: ## about getting access to the (much) higher-quality images which Paul
031711,000048: ## actually created.
031712,000049: ##
031713,000050: ## The code has been modified to match LMY99 Revision 0, otherwise
031714,000051: ## known as Luminary Revision 99, the Apollo 11 software release preceeding
031715,000052: ## the listing from which it was transcribed. It has been verified to
031716,000053: ## contain the same bank checksums as AGC developer Allan Klumpp's listing
031717,000054: ## of Luminary Revision 99 (for which we do not have scans).
031718,000055: ##
031719,000056: ## Notations on Allan Klumpp's listing read, in part:
031720,000057: ##
031721,000058: ## ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
031722,000059:
|
|
Page 723 |
031724,000061: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031725,000062:
031726,000063: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031727,000064: # MOD BY RUDNICKI.S DATE 25JAN68
031728,000065:
031729,000066: # FUNCTIONAL DESCRIPTION
031730,000067:
031731,000068: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031732,000069: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031733,000070: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031734,000071: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031735,000072: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031736,000073: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031737,000074: # VEHICLES
031738,000075:
031739,000076: # CALLING SEQUENCE
031740,000077:
031741,000078: # ASTRONAUT REQUEST THRU DSKY
031742,000079:
031743,000080: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031744,000081: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031745,000082:
031746,000083: # INPUT
031747,000084:
031748,000085: # (1) SOI MANEUVER
031749,000086:
031750,000087: # (A) TIG TIME OF SOI MANEUVER
031751,000088: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031752,000089: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031753,000090: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031754,000091: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031755,000092: # ORBIT
031756,000093: # (D) OPTION EQUALS 1 FOR SOI
031757,000094:
031758,000095: # (2) SOR MANEUVER
031759,000096:
031760,000097: # (A) TIG TIME OF SOR MANEUVER
031761,000098: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031762,000099: # (C) OPTION EQUALS 2 FOR SOR
031763,000100: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031764,000101: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031765,000102: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031766,000103: # SOI PHASE
031767,000104: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031768,000105:
031769,000106: # OUTPUT
031770,000107:
031771,000108: # (1) TRKMKCNT NUMBER OF MARKS
031772,000109: # (2) TTOGO TIME TO GO
031773,000110: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 724 |
031775,000112: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031776,000113: # (FOR SOI ONLY)
031777,000114: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031778,000115: # THE SOI (SOR) MANEUVER
031779,000116: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031780,000117: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031781,000118: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031782,000119: # COORDINATES
031783,000120:
031784,000121: # SUBROUTINES USED
031785,000122:
031786,000123: # AVFLAGA
031787,000124: # AVFLAGP
031788,000125: # VNDSPLY
031789,000126: # BANKCALL
031790,000127: # GOFLASHR
031791,000128: # GOTOPOOH
031792,000129: # BLANKET
031793,000130: # ENDOFJOB
031794,000131: # PREC/TT
031795,000132: # SELECTMU
031796,000133: # INTRPVP
031797,000134: # MAINRTNE
031798,000135:
031799,000136: 04,3013 BANK 04
031800,000137: 34,2000 SETLOC STBLEORB
031801,000138: 34,2000 BANK
031802,000139:
031803,000140: 34,3271 E7,1470 EBANK= SUBEXIT
031804,000141: 34,3271 COUNT* $$/P3879
031805,000142:
031806,000143: 34,3271 04616 P38 TC BANKCALL
031807,000144: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031808,000145: 34,3273 03276 TC +3
031809,000146: 34,3274 04616 P78 TC BANKCALL
031810,000147: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031811,000148: 34,3276 04616 TC BANKCALL
031812,000149: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031813,000150: 34,3300 33641 CAF DECTWO
031814,000151: 34,3301 55466 TS NN
031815,000152: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
031816,000153: 34,3303 03621 TC VNDSPLY
031817,000154: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
031818,000155: 34,3305 04616 TCR BANKCALL
031819,000156: 34,3306 20635 CADR GOFLASHR
031820,000157: 34,3307 16001 TCF GOTOPOOH # TERMINATE
031821,000158: 34,3310 13315 TCF +5 # PROCEED
031822,000159: 34,3311 13304 TCF -5 # RECYCLE
031823,000160: 34,3312 36245 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031824,000161: 34,3313 05464 TCR BLANKET
|
|
Page 725 |
031826,000163: 34,3314 15155 TCF ENDOFJOB
031827,000164: 34,3315 34756 CAF FIVE
031828,000165: 34,3316 55144 TS OPTION1
031829,000166: 34,3317 34753 CAF ONE
031830,000167: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031831,000168: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031832,000169: 34,3322 04616 TCR BANKCALL
031833,000170: 34,3323 20635 CADR GOFLASHR
031834,000171: 34,3324 16001 TCF GOTOPOOH # TERMINATE
031835,000172: 34,3325 13332 TCF +5 # PROCEED
031836,000173: 34,3326 13321 TCF -5 # RECYCLE
031837,000174: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031838,000175: 34,3330 05464 TCR BLANKET
031839,000176: 34,3331 15155 TCF ENDOFJOB
031840,000177: 34,3332 06037 TC INTPRET
031841,000178: 34,3333 70535 SLOAD SR1
031842,000179: 34,3334 01146 OPTION2
031843,000180: 34,3335 71230 BHIZ DLOAD
031844,000181: 34,3336 71344 OPTN1
031845,000182: 34,3337 03631 TINT
031846,000183: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
031847,000184: 34,3341 77614 CLRGO
031848,000185: 34,3342 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031849,000186: 34,3343 71375 JUNCTN1
031850,000187: 34,3344 43014 OPTN1 SET CLEAR # SOI
031851,000188: 34,3345 01070 OPTNSW
031852,000189: 34,3346 00670 UPDATFLG
031853,000190: 34,3347 77624 CALL
031854,000191: 34,3350 71554 PREC/TT
031855,000192: 34,3351 43015 DAD SET
031856,000193: 34,3352 03442 TIG
031857,000194: 34,3353 00470 UPDATFLG
031858,000195: 34,3354 03631 STORE TINT # TI = TIG + TF
031859,000196: 34,3355 77776 EXIT
031860,000197: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
031861,000198: 34,3357 04616 TCR BANKCALL
031862,000199: 34,3360 20635 CADR GOFLASHR
031863,000200: 34,3361 16001 TCF GOTOPOOH # TERMINATE
031864,000201: 34,3362 13367 TCF +5 # PROCEED
031865,000202: 34,3363 13356 TCF -5 # RECYCLE
031866,000203: 34,3364 36242 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031867,000204: 34,3365 05464 TCR BLANKET
031868,000205: 34,3366 15155 TCF ENDOFJOB
031869,000206: 34,3367 00006 +5 EXTEND
031870,000207: 34,3370 31631 DCA TINT
031871,000208: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
031872,000209: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031873,000210: 34,3373 03621 TC VNDSPLY
031874,000211: 34,3374 06037 TC INTPRET
031875,000212: 34,3375 45014 JUNCTN1 CLEAR CALL
|
|
Page 726 |
031877,000214: 34,3376 04266 P39/79SW
031878,000215: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031879,000216: 34,3400 77624 RECYCLE CALL
031880,000217: 34,3401 71554 PREC/TT
031881,000218: 34,3402 71214 BOFF DLOAD
031882,000219: 34,3403 01350 OPTNSW
031883,000220: 34,3404 71424 OPTN2
031884,000221: 34,3405 03631 TINT
031885,000222: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031886,000223: 34,3407 71605 INTRPVP # INTERCEPT TIME
031887,000224: 34,3410 53575 VLOAD UNIT
031888,000225: 34,3411 00001 RATT # RP/(RP)
031889,000226: 34,3412 47315 PDVL VXV
031890,000227: 34,3413 00007 VATT
031891,000228: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
031892,000229: 34,3415 00047 X1
031893,000230: 34,3416 56325 PDDL DDV
031894,000231: 34,3417 02303 DELTAR
031895,000232: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
031896,000233: 34,3421 20172 0 -7,1
031897,000234: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031898,000235: 34,3423 71430 JUNCTN2
031899,000236: 34,3424 43345 OPTN2 DLOAD DAD
031900,000237: 34,3425 02303 TINTSOI
031901,000238: 34,3426 00037 T
031902,000239: 34,3427 03631 STORE TINT # TI = TI + TF
031903,000240: 34,3430 45345 JUNCTN2 DLOAD DSU
031904,000241: 34,3431 03631 TINT
031905,000242: 34,3432 02305 DELTTIME
031906,000243: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
031907,000244:
031908,000245: # .... MAINRTNE ....
031909,000246:
031910,000247: # SUBROUTINES USED
031911,000248:
031912,000249: # S3435.25
031913,000250: # PERIAPO1
031914,000251: # SHIFTR1
031915,000252: # VNDSPLY
031916,000253: # BANKCALL
031917,000254: # GOFLASH
031918,000255: # GOTOPOOH
031919,000256: # VN1645
031920,000257:
031921,000258: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031922,000259: 34,3435 71605 INTRPVP # TARGET TIME
031923,000260: 34,3436 77745 DLOAD
031924,000261: 34,3437 03442 TIG
031925,000262: 34,3440 03610 STORE INTIME
031926,000263: 34,3441 77331 SSP VLOAD
031927,000264: 34,3442 03471 SUBEXIT
031928,000265: 34,3443 71447 TEST3979
|
|
Page 727 |
031930,000267: 34,3444 00001 RATT
031931,000268: 34,3445 77624 CALL
031932,000269: 34,3446 73327 S3435.25
031933,000270: 34,3447 43014 TEST3979 BOFF BON
031934,000271: 34,3450 04346 P39/79SW
031935,000272: 34,3451 71460 MAINRTN1
031936,000273: 34,3452 01311 FINALFLG
031937,000274: 34,3453 71456 P39P79
031938,000275: 34,3454 77614 SET
031939,000276: 34,3455 00470 UPDATFLG
031940,000277: 34,3456 77776 P39P79 EXIT
031941,000278: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
031942,000279: 34,3460 51575 MAINRTN1 VLOAD ABVAL
031943,000280: 34,3461 02366 DELVEET3
031944,000281: 34,3462 27576 STOVL DELVTPI # DELTA V
031945,000282: 34,3463 03506 VPASS4
031946,000283: 34,3464 51451 VSU ABVAL
031947,000284: 34,3465 03566 VTPRIME
031948,000285: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
031949,000286: 34,3467 03536 RACT3
031950,000287: 34,3470 45115 PDVL CALL
031951,000288: 34,3471 02337 VIPRIME
031952,000289: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
031953,000290: 34,3473 77624 CALL
031954,000291: 34,3474 46426 SHIFTR1
031955,000292: 34,3475 03606 STORE POSTTPI
031956,000293: 34,3476 43014 BON SET
031957,000294: 34,3477 01311 FINALFLG
031958,000295: 34,3500 71502 DSPLY58
031959,000296: 34,3501 00470 UPDATFLG
031960,000297: 34,3502 77776 DSPLY58 EXIT
031961,000298: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031962,000299: 34,3504 03621 TC VNDSPLY
031963,000300: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031964,000301: 34,3506 03621 TC VNDSPLY
031965,000302: 34,3507 06037 TC INTPRET
031966,000303: 34,3510 77214 CLEAR VLOAD
031967,000304: 34,3511 01267 XDELVFLG
031968,000305: 34,3512 02366 DELVEET3
031969,000306: 34,3513 37656 STCALL DELVSIN
031970,000307: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031971,000308: 34,3515 52014 BON GOTO
031972,000309: 34,3516 04306 P39/79SW
031973,000310: 34,3517 71541 P39/P79B
031974,000311: 34,3520 71400 RECYCLE
031975,000312:
031976,000313: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031977,000314:
031978,000315: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031979,000316: # MOD BY RUDNICKI.S DATE 25JAN68
031980,000317:
|
|
Page 728 |
031982,000319: # FUNCTIONAL DESCRIPTION
031983,000320:
031984,000321: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031985,000322: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031986,000323: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031987,000324: # THE SOR MANEUVER
031988,000325:
031989,000326: # CALLING SEQUENCE
031990,000327:
031991,000328: # ASTRONAUT REQUEST THRU DSKY
031992,000329:
031993,000330: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031994,000331: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031995,000332:
031996,000333: # INPUT
031997,000334:
031998,000335: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
031999,000336: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
032000,000337: # SAVED FROM P38/P78
032001,000338:
032002,000339: # OUTPUT
032003,000340:
032004,000341: # (1) TRKMKCNT NUMBER OF MARKS
032005,000342: # (2) TTOGO TIME TO GO
032006,000343: # (3) +MGA MIDDLE GIMBAL ANGLE
032007,000344: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
032008,000345:
032009,000346: # SUBROUTINES USED
032010,000347:
032011,000348: # AVFLAGA
032012,000349: # AVFLAGP
032013,000350: # LOADTIME
032014,000351: # SELECTMU
032015,000352: # PRECSET
032016,000353: # S34/35.1
032017,000354: # MAINRTNE
032018,000355:
032019,000356: 34,3521 04616 P39 TC BANKCALL
032020,000357: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
032021,000358: 34,3523 00006 EXTEND
032022,000359: 34,3524 31401 DCA ATIGINC
032023,000360: 34,3525 03532 TC P39/P79A
032024,000361: 34,3526 04616 P79 TC BANKCALL
032025,000362: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
032026,000363: 34,3530 00006 EXTEND
032027,000364: 34,3531 31403 DCA PTIGINC
032028,000365: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
032029,000366: 34,3533 04616 TC BANKCALL
032030,000367: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
032031,000368: 34,3535 06037 TC INTPRET
|
|
Page 729 |
032033,000370: 34,3536 45014 SET CALL
032034,000371: 34,3537 04066 P39/79SW
032035,000372: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
032036,000373: 34,3541 43234 P39/P79B RTB DAD
032037,000374: 34,3542 21573 LOADTIME
032038,000375: 34,3543 03576 KT
032039,000376: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
032040,000377: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032041,000378: 34,3546 46360 PRECSET # VEHICLES TO TIG
032042,000379: 34,3547 77624 CALL
032043,000380: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
032044,000381: 34,3551 52145 DLOAD GOTO
032045,000382: 34,3552 02307 TARGTIME
032046,000383: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
032047,000384:
032048,000385: # .... PREC/TT ....
032049,000386:
032050,000387: # SUBROUTINES USED
032051,000388:
032052,000389: # PRECSET
032053,000390: # TIMETHET
032054,000391: # S34/35.1
032055,000392:
032056,000393: 34,3554 71220 PREC/TT STQ DLOAD
032057,000394: 34,3555 03465 RTRN
032058,000395: 34,3556 03442 TIG
032059,000396: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032060,000397: 34,3560 46360 PRECSET # VEHICLES TO TIG
032061,000398: 34,3561 53775 VLOAD VSR*
032062,000399: 34,3562 03552 RPASS3
032063,000400: 34,3563 57176 0,2
032064,000401: 34,3564 16655 STODL RVEC
032065,000402: 34,3565 03621 CENTANG
032066,000403: 34,3566 71406 PUSH COS
032067,000404: 34,3567 16732 STODL CSTH
032068,000405: 34,3570 43156 SIN SET
032069,000406: 34,3571 03466 RVSW
032070,000407: 34,3572 26730 STOVL SNTH
032071,000408: 34,3573 03560 VPASS3
032072,000409: 34,3574 77657 VSR*
032073,000410: 34,3575 57176 0,2
032074,000411: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
032075,000412: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
032076,000413: 34,3600 77624 CALL
032077,000414: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
032078,000415: 34,3602 52145 DLOAD GOTO
032079,000416: 34,3603 00037 T
032080,000417: 34,3604 03465 RTRN
032081,000418:
032082,000419: # .... INTRPVP ....
032083,000420:
032084,000421: # SUBROUTINES USED
032085,000422:
032086,000423: # CSMPREC
|
|
Page 730 |
032088,000425: # LEMPREC
032089,000426:
032090,000427: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
032091,000428: 34,3606 03465 RTRN # TDEC1
032092,000429: 34,3607 01352 AVFLAG
032093,000430: 34,3610 71615 OTHERV
032094,000431: 34,3611 77624 CALL
032095,000432: 34,3612 27043 CSMPREC
032096,000433: 34,3613 77650 GOTO
032097,000434: 34,3614 03465 RTRN
032098,000435: 34,3615 77624 OTHERV CALL
032099,000436: 34,3616 27057 LEMPREC
032100,000437: 34,3617 77650 GOTO
032101,000438: 34,3620 03465 RTRN
032102,000439:
032103,000440: # .... VNDSPLY ....
032104,000441:
032105,000442: # SUBROUTINES USED
032106,000443:
032107,000444: # BANKCALL
032108,000445: # GOFLASH
032109,000446: # GOTOPOOH
032110,000447:
032111,000448: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
032112,000449: 34,3622 23465 QXCH RTRN
032113,000450: 34,3623 55615 TS VERBNOUN
032114,000451: 34,3624 31615 CA VERBNOUN
032115,000452: 34,3625 04616 TCR BANKCALL
032116,000453: 34,3626 20476 CADR GOFLASH
032117,000454: 34,3627 16001 TCF GOTOPOOH # TERMINATE
032118,000455: 34,3630 01465 TC RTRN # PROCEED
032119,000456: 34,3631 13624 TCF -5 # RECYCLE
032120,000457: 34,3632 01441 V06N33SR VN 0633
032121,000458: 34,3633 01467 V06N55SR VN 0655
032122,000459: 34,3634 01006 V04N06SR VN 0406
032123,000460: 34,3635 01471 V06N57SR VN 0657
032124,000461: 34,3636 01442 V06N34SR VN 0634
032125,000462: 34,3637 01472 V06N58SR VN 0658
032126,000463: 34,3640 01521 V06N81SR VN 0681
032127,000464: 34,3641 00002 DECTWO OCT 2
032128,000465:
032129,000466:
032130,000467:
032131,000468:
032132,000469:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc