Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
031669,000002: ## Copyright: Public domain.
031670,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031671,000004: ## Purpose: A section of LUM69 revision 2.
031672,000005: ## It is part of the reconstructed source code for the flown
031673,000006: ## version of the flight software for the Lunar Module's (LM)
031674,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
031675,000008: ## been recreated from a copy of Luminary revsion 069, using
031676,000009: ## changes present in Luminary 099 which were described in
031677,000010: ## Luminary memos 75 and 78. The code has been adapted such
031678,000011: ## that the resulting bugger words exactly match those specified
031679,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
031680,000013: ## relatively high confidence that the reconstruction is correct.
031681,000014: ## Reference: pp. 731-738
031682,000015: ## Assembler: yaYUL
031683,000016: ## Contact: Ron Burkey <info@sandroid.org>.
031684,000017: ## Website: www.ibiblio.org/apollo/index.html
031685,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
031686,000019:
|
|
Page 731
|
031688,000021: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031689,000022:
031690,000023: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031691,000024: # MOD BY RUDNICKI.S DATE 25JAN68
031692,000025:
031693,000026: # FUNCTIONAL DESCRIPTION
031694,000027:
031695,000028: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031696,000029: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031697,000030: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031698,000031: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031699,000032: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031700,000033: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031701,000034: # VEHICLES
031702,000035:
031703,000036: # CALLING SEQUENCE
031704,000037:
031705,000038: # ASTRONAUT REQUEST THRU DSKY
031706,000039:
031707,000040: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031708,000041: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031709,000042:
031710,000043: # INPUT
031711,000044:
031712,000045: # (1) SOI MANEUVER
031713,000046:
031714,000047: # (A) TIG TIME OF SOI MANEUVER
031715,000048: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031716,000049: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031717,000050: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031718,000051: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031719,000052: # ORBIT
031720,000053: # (D) OPTION EQUALS 1 FOR SOI
031721,000054:
031722,000055: # (2) SOR MANEUVER
031723,000056:
031724,000057: # (A) TIG TIME OF SOR MANEUVER
031725,000058: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031726,000059: # (C) OPTION EQUALS 2 FOR SOR
031727,000060: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031728,000061: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031729,000062: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031730,000063: # SOI PHASE
031731,000064: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031732,000065:
031733,000066: # OUTPUT
031734,000067:
031735,000068: # (1) TRKMKCNT NUMBER OF MARKS
031736,000069: # (2) TTOGO TIME TO GO
031737,000070: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 732
|
031739,000072: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031740,000073: # (FOR SOI ONLY)
031741,000074: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031742,000075: # THE SOI (SOR) MANEUVER
031743,000076: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031744,000077: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031745,000078: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031746,000079: # COORDINATES
031747,000080:
031748,000081: # SUBROUTINES USED
031749,000082:
031750,000083: # AVFLAGA
031751,000084: # AVFLAGP
031752,000085: # VNDSPLY
031753,000086: # BANKCALL
031754,000087: # GOFLASHR
031755,000088: # GOTOPOOH
031756,000089: # BLANKET
031757,000090: # ENDOFJOB
031758,000091: # PREC/TT
031759,000092: # SELECTMU
031760,000093: # INTRPVP
031761,000094: # MAINRTNE
031762,000095:
031763,000096: 04,2750 BANK 04
031764,000097: 34,2000 SETLOC STBLEORB
031765,000098: 34,2000 BANK
031766,000099:
031767,000100: 34,3271 E7,1466 EBANK= SUBEXIT
031768,000101: 34,3271 COUNT* $$/P3879
031769,000102:
031770,000103: 34,3271 04616 P38 TC BANKCALL
031771,000104: 34,3272 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031772,000105: 34,3273 03276 TC +3
031773,000106: 34,3274 04616 P78 TC BANKCALL
031774,000107: 34,3275 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031775,000108: 34,3276 04616 TC BANKCALL
031776,000109: 34,3277 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031777,000110: 34,3300 33630 CAF V06N33SR # DISPLAY TIG
031778,000111: 34,3301 03617 TC VNDSPLY
031779,000112: 34,3302 33631 CAF V06N55SR # DISPLAY CENTANG
031780,000113: 34,3303 04616 TCR BANKCALL
031781,000114: 34,3304 20510 CADR GOFLASHR
031782,000115: 34,3305 16001 TCF GOTOPOOH # TERMINATE
031783,000116: 34,3306 13313 TCF +5 # PROCEED
031784,000117: 34,3307 13302 TCF -5 # RECYCLE
031785,000118: 34,3310 36244 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031786,000119: 34,3311 05464 TCR BLANKET
031787,000120: 34,3312 15155 TCF ENDOFJOB
031788,000121: 34,3313 34756 CAF FIVE
|
|
Page 733
|
031790,000123: 34,3314 55144 TS OPTION1
031791,000124: 34,3315 34753 CAF ONE
031792,000125: 34,3316 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031793,000126: 34,3317 33632 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031794,000127: 34,3320 04616 TCR BANKCALL
031795,000128: 34,3321 20510 CADR GOFLASHR
031796,000129: 34,3322 16001 TCF GOTOPOOH # TERMINATE
031797,000130: 34,3323 13330 TCF +5 # PROCEED
031798,000131: 34,3324 13317 TCF -5 # RECYCLE
031799,000132: 34,3325 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031800,000133: 34,3326 05464 TCR BLANKET
031801,000134: 34,3327 15155 TCF ENDOFJOB
031802,000135: 34,3330 06036 TC INTPRET
031803,000136: 34,3331 70535 SLOAD SR1
031804,000137: 34,3332 01146 OPTION2
031805,000138: 34,3333 71230 BHIZ DLOAD
031806,000139: 34,3334 71342 OPTN1
031807,000140: 34,3335 03627 TINT
031808,000141: 34,3336 02307 STORE TINTSOI # STORE FOR SOR PHASE
031809,000142: 34,3337 77614 CLRGO
031810,000143: 34,3340 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031811,000144: 34,3341 71373 JUNCTN1
031812,000145: 34,3342 43014 OPTN1 SET CLEAR # SOI
031813,000146: 34,3343 01070 OPTNSW
031814,000147: 34,3344 00670 UPDATFLG
031815,000148: 34,3345 77624 CALL
031816,000149: 34,3346 71552 PREC/TT
031817,000150: 34,3347 43015 DAD SET
031818,000151: 34,3350 03440 TIG
031819,000152: 34,3351 00470 UPDATFLG
031820,000153: 34,3352 03627 STORE TINT # TI = TIG + TF
031821,000154: 34,3353 77776 EXIT
031822,000155: 34,3354 33633 CAF V06N57SR # DISPLAY DELTA R
031823,000156: 34,3355 04616 TCR BANKCALL
031824,000157: 34,3356 20510 CADR GOFLASHR
031825,000158: 34,3357 16001 TCF GOTOPOOH # TERMINATE
031826,000159: 34,3360 13365 TCF +5 # PROCEED
031827,000160: 34,3361 13354 TCF -5 # RECYCLE
031828,000161: 34,3362 36241 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
031829,000162: 34,3363 05464 TCR BLANKET
031830,000163: 34,3364 15155 TCF ENDOFJOB
031831,000164: 34,3365 00006 +5 EXTEND
031832,000165: 34,3366 31627 DCA TINT
031833,000166: 34,3367 53046 DXCH DSPTEM1 # FOR DISPLAY
031834,000167: 34,3370 33634 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031835,000168: 34,3371 03617 TC VNDSPLY
031836,000169: 34,3372 06036 TC INTPRET
031837,000170: 34,3373 45014 JUNCTN1 CLEAR CALL
031838,000171: 34,3374 04266 P39/79SW
031839,000172: 34,3375 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
|
|
Page 734
|
031841,000174: 34,3376 77624 RECYCLE CALL
031842,000175: 34,3377 71552 PREC/TT
031843,000176: 34,3400 71214 BOFF DLOAD
031844,000177: 34,3401 01350 OPTNSW
031845,000178: 34,3402 71422 OPTN2
031846,000179: 34,3403 03627 TINT
031847,000180: 34,3404 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031848,000181: 34,3405 71603 INTRPVP # INTERCEPT TIME
031849,000182: 34,3406 53575 VLOAD UNIT
031850,000183: 34,3407 00001 RATT # RP/(RP)
031851,000184: 34,3410 47315 PDVL VXV
031852,000185: 34,3411 00007 VATT
031853,000186: 34,3412 60246 ABVAL NORM # (VP X RP/(RP))
031854,000187: 34,3413 00047 X1
031855,000188: 34,3414 56325 PDDL DDV
031856,000189: 34,3415 02307 DELTAR
031857,000190: 34,3416 77657 SL* # DELTA R / (VP X RP/RP)
031858,000191: 34,3417 20172 0 -7,1
031859,000192: 34,3420 36311 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031860,000193: 34,3421 71426 JUNCTN2
031861,000194: 34,3422 43345 OPTN2 DLOAD DAD
031862,000195: 34,3423 02307 TINTSOI
031863,000196: 34,3424 00037 T
031864,000197: 34,3425 03627 STORE TINT # TI = TI + TF
031865,000198: 34,3426 45345 JUNCTN2 DLOAD DSU
031866,000199: 34,3427 03627 TINT
031867,000200: 34,3430 02311 DELTTIME
031868,000201: 34,3431 02313 STORE TARGTIME # TT = TI - DELTA T
031869,000202:
031870,000203: # .... MAINRTNE ....
031871,000204:
031872,000205: # SUBROUTINES USED
031873,000206:
031874,000207: # S3435.25
031875,000208: # PERIAPO1
031876,000209: # SHIFTR1
031877,000210: # VNDSPLY
031878,000211: # BANKCALL
031879,000212: # GOFLASH
031880,000213: # GOTOPOOH
031881,000214: # VN1645
031882,000215:
031883,000216: 34,3432 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031884,000217: 34,3433 71603 INTRPVP # TARGET TIME
031885,000218: 34,3434 77745 DLOAD
031886,000219: 34,3435 03440 TIG
031887,000220: 34,3436 03606 STORE INTIME
031888,000221: 34,3437 77331 SSP VLOAD
031889,000222: 34,3440 03467 SUBEXIT
031890,000223: 34,3441 71445 TEST3979
031891,000224: 34,3442 00001 RATT
031892,000225: 34,3443 77624 CALL
|
|
Page 735
|
031894,000227: 34,3444 73263 S3435.25
031895,000228: 34,3445 43014 TEST3979 BOFF BON
031896,000229: 34,3446 04346 P39/79SW
031897,000230: 34,3447 71456 MAINRTN1
031898,000231: 34,3450 01311 FINALFLG
031899,000232: 34,3451 71454 P39P79
031900,000233: 34,3452 77614 SET
031901,000234: 34,3453 00470 UPDATFLG
031902,000235: 34,3454 77776 P39P79 EXIT
031903,000236: 34,3455 03503 TC DSPLY81 # FOR P39 AND P79
031904,000237: 34,3456 51575 MAINRTN1 VLOAD ABVAL
031905,000238: 34,3457 03366 DELVEET3
031906,000239: 34,3460 27574 STOVL DELVTPI # DELTA V
031907,000240: 34,3461 03504 VPASS4
031908,000241: 34,3462 51451 VSU ABVAL
031909,000242: 34,3463 03564 VTPRIME
031910,000243: 34,3464 26354 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
031911,000244: 34,3465 03534 RACT3
031912,000245: 34,3466 45115 PDVL CALL
031913,000246: 34,3467 02343 VIPRIME
031914,000247: 34,3470 46277 PERIAPO1 # GET PERIGEE ALTITUDE
031915,000248: 34,3471 77624 CALL
031916,000249: 34,3472 46407 SHIFTR1
031917,000250: 34,3473 03604 STORE POSTTPI
031918,000251: 34,3474 43014 BON SET
031919,000252: 34,3475 01311 FINALFLG
031920,000253: 34,3476 71500 DSPLY58
031921,000254: 34,3477 00470 UPDATFLG
031922,000255: 34,3500 77776 DSPLY58 EXIT
031923,000256: 34,3501 33635 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031924,000257: 34,3502 03617 TC VNDSPLY
031925,000258: 34,3503 33636 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031926,000259: 34,3504 03617 TC VNDSPLY
031927,000260: 34,3505 06036 TC INTPRET
031928,000261: 34,3506 77214 CLEAR VLOAD
031929,000262: 34,3507 01267 XDELVFLG
031930,000263: 34,3510 03366 DELVEET3
031931,000264: 34,3511 37654 STCALL DELVSIN
031932,000265: 34,3512 73542 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031933,000266: 34,3513 52014 BON GOTO
031934,000267: 34,3514 04306 P39/79SW
031935,000268: 34,3515 71537 P39/P79B
031936,000269: 34,3516 71376 RECYCLE
031937,000270:
031938,000271: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031939,000272:
031940,000273: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031941,000274: # MOD BY RUDNICKI.S DATE 25JAN68
031942,000275:
031943,000276: # FUNCTIONAL DESCRIPTION
|
|
Page 736
|
031945,000278:
031946,000279: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031947,000280: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031948,000281: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031949,000282: # THE SOR MANEUVER
031950,000283:
031951,000284: # CALLING SEQUENCE
031952,000285:
031953,000286: # ASTRONAUT REQUEST THRU DSKY
031954,000287:
031955,000288: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031956,000289: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031957,000290:
031958,000291: # INPUT
031959,000292:
031960,000293: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
031961,000294: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
031962,000295: # SAVED FROM P38/P78
031963,000296:
031964,000297: # OUTPUT
031965,000298:
031966,000299: # (1) TRKMKCNT NUMBER OF MARKS
031967,000300: # (2) TTOGO TIME TO GO
031968,000301: # (3) +MGA MIDDLE GIMBAL ANGLE
031969,000302: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031970,000303:
031971,000304: # SUBROUTINES USED
031972,000305:
031973,000306: # AVFLAGA
031974,000307: # AVFLAGP
031975,000308: # LOADTIME
031976,000309: # SELECTMU
031977,000310: # PRECSET
031978,000311: # S34/35.1
031979,000312: # MAINRTNE
031980,000313:
031981,000314: 34,3517 04616 P39 TC BANKCALL
031982,000315: 34,3520 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031983,000316: 34,3521 00006 EXTEND
031984,000317: 34,3522 31401 DCA ATIGINC
031985,000318: 34,3523 03530 TC P39/P79A
031986,000319: 34,3524 04616 P79 TC BANKCALL
031987,000320: 34,3525 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031988,000321: 34,3526 00006 EXTEND
031989,000322: 34,3527 31403 DCA PTIGINC
031990,000323: 34,3530 53574 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
031991,000324: 34,3531 04616 TC BANKCALL
031992,000325: 34,3532 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031993,000326: 34,3533 06036 TC INTPRET
031994,000327: 34,3534 45014 SET CALL
031995,000328: 34,3535 04066 P39/79SW
|
|
Page 737
|
031997,000330: 34,3536 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031998,000331: 34,3537 43234 P39/P79B RTB DAD
031999,000332: 34,3540 21462 LOADTIME
032000,000333: 34,3541 03574 KT
032001,000334: 34,3542 03440 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
032002,000335: 34,3543 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032003,000336: 34,3544 46341 PRECSET # VEHICLES TO TIG
032004,000337: 34,3545 77624 CALL
032005,000338: 34,3546 73236 S34/35.1 # GET UNIT NORMAL
032006,000339: 34,3547 52145 DLOAD GOTO
032007,000340: 34,3550 02313 TARGTIME
032008,000341: 34,3551 71432 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
032009,000342:
032010,000343: # .... PREC/TT ....
032011,000344: # SUBROUTINES USED
032012,000345:
032013,000346: # PRECSET
032014,000347: # TIMETHET
032015,000348: # S34/35.1
032016,000349:
032017,000350: 34,3552 71220 PREC/TT STQ DLOAD
032018,000351: 34,3553 03463 RTRN
032019,000352: 34,3554 03440 TIG
032020,000353: 34,3555 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032021,000354: 34,3556 46341 PRECSET # VEHICLES TO TIG
032022,000355: 34,3557 53775 VLOAD VSR*
032023,000356: 34,3560 03550 RPASS3
032024,000357: 34,3561 57176 0,2
032025,000358: 34,3562 16655 STODL RVEC
032026,000359: 34,3563 03617 CENTANG
032027,000360: 34,3564 71406 PUSH COS
032028,000361: 34,3565 16732 STODL CSTH
032029,000362: 34,3566 43156 SIN SET
032030,000363: 34,3567 03466 RVSW
032031,000364: 34,3570 26730 STOVL SNTH
032032,000365: 34,3571 03556 VPASS3
032033,000366: 34,3572 77657 VSR*
032034,000367: 34,3573 57176 0,2
032035,000368: 34,3574 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
032036,000369: 34,3575 24745 TIMETHET # PASSIVE VEHICLE
032037,000370: 34,3576 77624 CALL
032038,000371: 34,3577 73236 S34/35.1 # GET UNIT NORMAL
032039,000372: 34,3600 52145 DLOAD GOTO
032040,000373: 34,3601 00037 T
032041,000374: 34,3602 03463 RTRN
032042,000375:
032043,000376: # .... INTRPVP ....
032044,000377: # SUBROUTINES USED
032045,000378:
032046,000379: # CSMPREC
032047,000380: # LEMPREC
|
|
Page 738
|
032049,000382: 34,3603 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
032050,000383: 34,3604 03463 RTRN # TDEC1
032051,000384: 34,3605 01352 AVFLAG
032052,000385: 34,3606 71613 OTHERV
032053,000386: 34,3607 77624 CALL
032054,000387: 34,3610 27043 CSMPREC
032055,000388: 34,3611 77650 GOTO
032056,000389: 34,3612 03463 RTRN
032057,000390: 34,3613 77624 OTHERV CALL
032058,000391: 34,3614 27057 LEMPREC
032059,000392: 34,3615 77650 GOTO
032060,000393: 34,3616 03463 RTRN
032061,000394:
032062,000395: # .... VNDSPLY ....
032063,000396: # SUBROUTINES USED
032064,000397:
032065,000398: # BANKCALL
032066,000399: # GOFLASH
032067,000400: # GOTOPOOH
032068,000401:
032069,000402: 34,3617 00006 VNDSPLY EXTEND # FLASH DISPLAY
032070,000403: 34,3620 23463 QXCH RTRN
032071,000404: 34,3621 55613 TS VERBNOUN
032072,000405: 34,3622 31613 CA VERBNOUN
032073,000406: 34,3623 04616 TCR BANKCALL
032074,000407: 34,3624 20351 CADR GOFLASH
032075,000408: 34,3625 16001 TCF GOTOPOOH # TERMINATE
032076,000409: 34,3626 01463 TC RTRN # PROCEED
032077,000410: 34,3627 13622 TCF -5 # RECYCLE
032078,000411: 34,3630 01441 V06N33SR VN 0633
032079,000412: 34,3631 01467 V06N55SR VN 0655
032080,000413: 34,3632 01006 V04N06SR VN 0406
032081,000414: 34,3633 01471 V06N57SR VN 0657
032082,000415: 34,3634 01442 V06N34SR VN 0634
032083,000416: 34,3635 01472 V06N58SR VN 0658
032084,000417: 34,3636 01521 V06N81SR VN 0681
032085,000418:
032086,000419:
032087,000420:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc