GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from scans made from Don Eyles's personal
copy of Luminary 069. They were scanned at archive.org's Boston
facility, and the scanning was sponsored by Onno Hommes. The code was transcribed
from these scans by a team of volunteers who are referenced in the program
comments. Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". In some cases, where
similar code blocks exist in previously-transcribed AGC programs (primarily
Luminary 99, from Apollo 11) those code blocks were used as a starting point and
then corrected to agree with the Luminary 69 scans. The full scans are available
at the Virtual AGC
project's collection at archive.org, while more-convenient reduced-size (but reduced-quality)
images are available at
the main Virtual AGC website. Report any errors noted by creating an
issue report at the Virtual AGC
project's GitHub repository. Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011 19:02 NOV. 25,1968Note that the date is the date of the printout, not the date of the program revision. |
031843,000002: ## Copyright: Public domain.
031844,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
031845,000004: ## Purpose: The main source file for Luminary revision 069.
031846,000005: ## It is part of the source code for the original release
031847,000006: ## of the flight software for the Lunar Module's (LM) Apollo
031848,000007: ## Guidance Computer (AGC) for Apollo 10. The actual flown
031849,000008: ## version was Luminary 69 revision 2, which included a
031850,000009: ## newer lunar gravity model and only affected module 2.
031851,000010: ## This file is intended to be a faithful transcription, except
031852,000011: ## that the code format has been changed to conform to the
031853,000012: ## requirements of the yaYUL assembler rather than the
031854,000013: ## original YUL assembler.
031855,000014: ## Reference: pp. 731-738
031856,000015: ## Assembler: yaYUL
031857,000016: ## Contact: Ron Burkey <info@sandroid.org>.
031858,000017: ## Website: www.ibiblio.org/apollo/index.html
031859,000018: ## Mod history: 2016-12-13 MAS Created from Luminary 99.
031860,000019: ## 2016-12-15 MAS Updated from comment-proofed Luminary 99 version.
031861,000020: ## 2017-01-11 RRB Updated for Luminary 69.
031862,000021: ## 2017-01-20 HG Remove DECTWO
031863,000022: ## 2017-01-28 RSB Proofed comment text using octopus/prooferComments
031864,000023: ## and fixed errors found.
031865,000024: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
031866,000025: ## Luminary 99 vs Comanche 55.
031867,000026:
|
|
Page 731 |
031869,000028: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031870,000029:
031871,000030: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
031872,000031: # MOD BY RUDNICKI.S DATE 25JAN68
031873,000032:
031874,000033: # FUNCTIONAL DESCRIPTION
031875,000034:
031876,000035: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031877,000036: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031878,000037: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031879,000038: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031880,000039: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031881,000040: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031882,000041: # VEHICLES
031883,000042:
031884,000043: # CALLING SEQUENCE
031885,000044:
031886,000045: # ASTRONAUT REQUEST THRU DSKY
031887,000046:
031888,000047: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
031889,000048: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
031890,000049:
031891,000050: # INPUT
031892,000051:
031893,000052: # (1) SOI MANEUVER
031894,000053:
031895,000054: # (A) TIG TIME OF SOI MANEUVER
031896,000055: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031897,000056: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031898,000057: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
031899,000058: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031900,000059: # ORBIT
031901,000060: # (D) OPTION EQUALS 1 FOR SOI
031902,000061:
031903,000062: # (2) SOR MANEUVER
031904,000063:
031905,000064: # (A) TIG TIME OF SOR MANEUVER
031906,000065: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031907,000066: # (C) OPTION EQUALS 2 FOR SOR
031908,000067: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031909,000068: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031910,000069: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031911,000070: # SOI PHASE
031912,000071: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031913,000072:
031914,000073: # OUTPUT
031915,000074:
031916,000075: # (1) TRKMKCNT NUMBER OF MARKS
031917,000076: # (2) TTOGO TIME TO GO
031918,000077: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 732 |
031920,000079: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031921,000080: # (FOR SOI ONLY)
031922,000081: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031923,000082: # THE SOI (SOR) MANEUVER
031924,000083: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031925,000084: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
031926,000085: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031927,000086: # COORDINATES
031928,000087:
031929,000088: # SUBROUTINES USED
031930,000089:
031931,000090: # AVFLAGA
031932,000091: # AVFLAGP
031933,000092: # VNDSPLY
031934,000093: # BANKCALL
031935,000094: # GOFLASHR
031936,000095: # GOTOPOOH
031937,000096: # BLANKET
031938,000097: # ENDOFJOB
031939,000098: # PREC/TT
031940,000099: # SELECTMU
031941,000100: # INTRPVP
031942,000101: # MAINRTNE
031943,000102:
031944,000103: 04,2750 BANK 04
031945,000104: 34,2000 SETLOC STBLEORB
031946,000105: 34,2000 BANK
031947,000106:
031948,000107: 34,3271 E7,1466 EBANK= SUBEXIT
031949,000108: 34,3271 COUNT* $$/P3879
031950,000109:
031951,000110: 34,3271 04616 P38 TC BANKCALL
031952,000111: 34,3272 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
031953,000112: 34,3273 03276 TC +3
031954,000113: 34,3274 04616 P78 TC BANKCALL
031955,000114: 34,3275 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031956,000115: 34,3276 04616 TC BANKCALL
031957,000116: 34,3277 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031958,000117: 34,3300 33630 CAF V06N33SR # DISPLAY TIG
031959,000118: 34,3301 03617 TC VNDSPLY
031960,000119: 34,3302 33631 CAF V06N55SR # DISPLAY CENTANG
031961,000120: 34,3303 04616 TCR BANKCALL
031962,000121: 34,3304 20510 CADR GOFLASHR
031963,000122: 34,3305 16001 TCF GOTOPOOH # TERMINATE
031964,000123: 34,3306 13313 TCF +5 # PROCEED
031965,000124: 34,3307 13302 TCF -5 # RECYCLE
031966,000125: 34,3310 36244 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
031967,000126: 34,3311 05464 TCR BLANKET
031968,000127: 34,3312 15155 TCF ENDOFJOB
031969,000128: 34,3313 34756 CAF FIVE
|
|
Page 733 |
031971,000130: 34,3314 55144 TS OPTION1
031972,000131: 34,3315 34753 CAF ONE
031973,000132: 34,3316 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031974,000133: 34,3317 33632 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031975,000134: 34,3320 04616 TCR BANKCALL
031976,000135: 34,3321 20510 CADR GOFLASHR
031977,000136: 34,3322 16001 TCF GOTOPOOH # TERMINATE
031978,000137: 34,3323 13330 TCF +5 # PROCEED
031979,000138: 34,3324 13317 TCF -5 # RECYCLE
031980,000139: 34,3325 34751 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
031981,000140: 34,3326 05464 TCR BLANKET
031982,000141: 34,3327 15155 TCF ENDOFJOB
031983,000142: 34,3330 06036 TC INTPRET
031984,000143: 34,3331 70535 SLOAD SR1
031985,000144: 34,3332 01146 OPTION2
031986,000145: 34,3333 71230 BHIZ DLOAD
031987,000146: 34,3334 71342 OPTN1
031988,000147: 34,3335 03627 TINT
031989,000148: 34,3336 02307 STORE TINTSOI # STORE FOR SOR PHASE
031990,000149: 34,3337 77614 CLRGO
031991,000150: 34,3340 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
031992,000151: 34,3341 71373 JUNCTN1
031993,000152: 34,3342 43014 OPTN1 SET CLEAR # SOI
031994,000153: 34,3343 01070 OPTNSW
031995,000154: 34,3344 00670 UPDATFLG
031996,000155: 34,3345 77624 CALL
031997,000156: 34,3346 71552 PREC/TT
031998,000157: 34,3347 43015 DAD SET
031999,000158: 34,3350 03440 TIG
032000,000159: 34,3351 00470 UPDATFLG
032001,000160: 34,3352 03627 STORE TINT # TI = TIG + TF
032002,000161: 34,3353 77776 EXIT
032003,000162: 34,3354 33633 CAF V06N57SR # DISPLAY DELTA R
032004,000163: 34,3355 04616 TCR BANKCALL
032005,000164: 34,3356 20510 CADR GOFLASHR
032006,000165: 34,3357 16001 TCF GOTOPOOH # TERMINATE
032007,000166: 34,3360 13365 TCF +5 # PROCEED
032008,000167: 34,3361 13354 TCF -5 # RECYCLE
032009,000168: 34,3362 36241 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
032010,000169: 34,3363 05464 TCR BLANKET
032011,000170: 34,3364 15155 TCF ENDOFJOB
032012,000171: 34,3365 00006 +5 EXTEND
032013,000172: 34,3366 31627 DCA TINT
032014,000173: 34,3367 53046 DXCH DSPTEM1 # FOR DISPLAY
032015,000174: 34,3370 33634 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
032016,000175: 34,3371 03617 TC VNDSPLY
032017,000176: 34,3372 06036 TC INTPRET
032018,000177: 34,3373 45014 JUNCTN1 CLEAR CALL
032019,000178: 34,3374 04266 P39/79SW
032020,000179: 34,3375 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
|
|
Page 734 |
032022,000181: 34,3376 77624 RECYCLE CALL
032023,000182: 34,3377 71552 PREC/TT
032024,000183: 34,3400 71214 BOFF DLOAD
032025,000184: 34,3401 01350 OPTNSW
032026,000185: 34,3402 71422 OPTN2
032027,000186: 34,3403 03627 TINT
032028,000187: 34,3404 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
032029,000188: 34,3405 71603 INTRPVP # INTERCEPT TIME
032030,000189: 34,3406 53575 VLOAD UNIT
032031,000190: 34,3407 00001 RATT # RP/(RP)
032032,000191: 34,3410 47315 PDVL VXV
032033,000192: 34,3411 00007 VATT
032034,000193: 34,3412 60246 ABVAL NORM # (VP X RP/(RP))
032035,000194: 34,3413 00047 X1
032036,000195: 34,3414 56325 PDDL DDV
032037,000196: 34,3415 02307 DELTAR
032038,000197: 34,3416 77657 SL* # DELTA R / (VP X RP/RP)
032039,000198: 34,3417 20172 0 -7,1
032040,000199: 34,3420 36311 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
032041,000200: 34,3421 71426 JUNCTN2
032042,000201: 34,3422 43345 OPTN2 DLOAD DAD
032043,000202: 34,3423 02307 TINTSOI
032044,000203: 34,3424 00037 T
032045,000204: 34,3425 03627 STORE TINT # TI = TI + TF
032046,000205: 34,3426 45345 JUNCTN2 DLOAD DSU
032047,000206: 34,3427 03627 TINT
032048,000207: 34,3430 02311 DELTTIME
032049,000208: 34,3431 02313 STORE TARGTIME # TT = TI - DELTA T
032050,000209:
032051,000210: # .... MAINRTNE ....
032052,000211:
032053,000212: # SUBROUTINES USED
032054,000213:
032055,000214: # S3435.25
032056,000215: # PERIAPO1
032057,000216: # SHIFTR1
032058,000217: # VNDSPLY
032059,000218: # BANKCALL
032060,000219: # GOFLASH
032061,000220: # GOTOPOOH
032062,000221: # VN1645
032063,000222:
032064,000223: 34,3432 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
032065,000224: 34,3433 71603 INTRPVP # TARGET TIME
032066,000225: 34,3434 77745 DLOAD
032067,000226: 34,3435 03440 TIG
032068,000227: 34,3436 03606 STORE INTIME
032069,000228: 34,3437 77331 SSP VLOAD
032070,000229: 34,3440 03467 SUBEXIT
032071,000230: 34,3441 71445 TEST3979
032072,000231: 34,3442 00001 RATT
032073,000232: 34,3443 77624 CALL
|
|
Page 735 |
032075,000234: 34,3444 73263 S3435.25
032076,000235: 34,3445 43014 TEST3979 BOFF BON
032077,000236: 34,3446 04346 P39/79SW
032078,000237: 34,3447 71456 MAINRTN1
032079,000238: 34,3450 01311 FINALFLG
032080,000239: 34,3451 71454 P39P79
032081,000240: 34,3452 77614 SET
032082,000241: 34,3453 00470 UPDATFLG
032083,000242: 34,3454 77776 P39P79 EXIT
032084,000243: 34,3455 03503 TC DSPLY81 # FOR P39 AND P79
032085,000244: 34,3456 51575 MAINRTN1 VLOAD ABVAL
032086,000245: 34,3457 03366 DELVEET3
032087,000246: 34,3460 27574 STOVL DELVTPI # DELTA V
032088,000247: 34,3461 03504 VPASS4
032089,000248: 34,3462 51451 VSU ABVAL
032090,000249: 34,3463 03564 VTPRIME
032091,000250: 34,3464 26354 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
032092,000251: 34,3465 03534 RACT3
032093,000252: 34,3466 45115 PDVL CALL
032094,000253: 34,3467 02343 VIPRIME
032095,000254: 34,3470 46277 PERIAPO1 # GET PERIGEE ALTITUDE
032096,000255: 34,3471 77624 CALL
032097,000256: 34,3472 46407 SHIFTR1
032098,000257: 34,3473 03604 STORE POSTTPI
032099,000258: 34,3474 43014 BON SET
032100,000259: 34,3475 01311 FINALFLG
032101,000260: 34,3476 71500 DSPLY58
032102,000261: 34,3477 00470 UPDATFLG
032103,000262: 34,3500 77776 DSPLY58 EXIT
032104,000263: 34,3501 33635 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
032105,000264: 34,3502 03617 TC VNDSPLY
032106,000265: 34,3503 33636 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
032107,000266: 34,3504 03617 TC VNDSPLY
032108,000267: 34,3505 06036 TC INTPRET
032109,000268: 34,3506 77214 CLEAR VLOAD
032110,000269: 34,3507 01267 XDELVFLG
032111,000270: 34,3510 03366 DELVEET3
032112,000271: 34,3511 37654 STCALL DELVSIN
032113,000272: 34,3512 73542 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
032114,000273: 34,3513 52014 BON GOTO
032115,000274: 34,3514 04306 P39/79SW
032116,000275: 34,3515 71537 P39/P79B
032117,000276: 34,3516 71376 RECYCLE
032118,000277:
032119,000278: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
032120,000279:
032121,000280: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
032122,000281: # MOD BY RUDNICKI.S DATE 25JAN68
032123,000282:
032124,000283: # FUNCTIONAL DESCRIPTION
|
|
Page 736 |
032126,000285:
032127,000286: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
032128,000287: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
032129,000288: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
032130,000289: # THE SOR MANEUVER
032131,000290:
032132,000291: # CALLING SEQUENCE
032133,000292:
032134,000293: # ASTRONAUT REQUEST THRU DSKY
032135,000294:
032136,000295: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
032137,000296: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
032138,000297:
032139,000298: # INPUT
032140,000299:
032141,000300: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
032142,000301: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
032143,000302: # SAVED FROM P38/P78
032144,000303:
032145,000304: # OUTPUT
032146,000305:
032147,000306: # (1) TRKMKCNT NUMBER OF MARKS
032148,000307: # (2) TTOGO TIME TO GO
032149,000308: # (3) +MGA MIDDLE GIMBAL ANGLE
032150,000309: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
032151,000310:
032152,000311: # SUBROUTINES USED
032153,000312:
032154,000313: # AVFLAGA
032155,000314: # AVFLAGP
032156,000315: # LOADTIME
032157,000316: # SELECTMU
032158,000317: # PRECSET
032159,000318: # S34/35.1
032160,000319: # MAINRTNE
032161,000320:
032162,000321: 34,3517 04616 P39 TC BANKCALL
032163,000322: 34,3520 72313 CADR AVFLAGA # THIS VEHICLE ACTIVE
032164,000323: 34,3521 00006 EXTEND
032165,000324: 34,3522 31401 DCA ATIGINC
032166,000325: 34,3523 03530 TC P39/P79A
032167,000326: 34,3524 04616 P79 TC BANKCALL
032168,000327: 34,3525 72320 CADR AVFLAGP # OTHER VEHICLE ACTIVE
032169,000328: 34,3526 00006 EXTEND
032170,000329: 34,3527 31403 DCA PTIGINC
032171,000330: 34,3530 53574 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
032172,000331: 34,3531 04616 TC BANKCALL
032173,000332: 34,3532 72325 CADR P20FLGON # SET UPDATFLG, TRACKFLG
032174,000333: 34,3533 06036 TC INTPRET
032175,000334: 34,3534 45014 SET CALL
032176,000335: 34,3535 04066 P39/79SW
|
|
Page 737 |
032178,000337: 34,3536 20041 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
032179,000338: 34,3537 43234 P39/P79B RTB DAD
032180,000339: 34,3540 21462 LOADTIME
032181,000340: 34,3541 03574 KT
032182,000341: 34,3542 03440 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
032183,000342: 34,3543 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032184,000343: 34,3544 46341 PRECSET # VEHICLES TO TIG
032185,000344: 34,3545 77624 CALL
032186,000345: 34,3546 73236 S34/35.1 # GET UNIT NORMAL
032187,000346: 34,3547 52145 DLOAD GOTO
032188,000347: 34,3550 02313 TARGTIME
032189,000348: 34,3551 71432 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
032190,000349:
032191,000350: # .... PREC/TT ....
032192,000351: # SUBROUTINES USED
032193,000352:
032194,000353: # PRECSET
032195,000354: # TIMETHET
032196,000355: # S34/35.1
032197,000356:
032198,000357: 34,3552 71220 PREC/TT STQ DLOAD
032199,000358: 34,3553 03463 RTRN
032200,000359: 34,3554 03440 TIG
032201,000360: 34,3555 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
032202,000361: 34,3556 46341 PRECSET # VEHICLES TO TIG
032203,000362: 34,3557 53775 VLOAD VSR*
032204,000363: 34,3560 03550 RPASS3
032205,000364: 34,3561 57176 0,2
032206,000365: 34,3562 16655 STODL RVEC
032207,000366: 34,3563 03617 CENTANG
032208,000367: 34,3564 71406 PUSH COS
032209,000368: 34,3565 16732 STODL CSTH
032210,000369: 34,3566 43156 SIN SET
032211,000370: 34,3567 03466 RVSW
032212,000371: 34,3570 26730 STOVL SNTH
032213,000372: 34,3571 03556 VPASS3
032214,000373: 34,3572 77657 VSR*
032215,000374: 34,3573 57176 0,2
032216,000375: 34,3574 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
032217,000376: 34,3575 24745 TIMETHET # PASSIVE VEHICLE
032218,000377: 34,3576 77624 CALL
032219,000378: 34,3577 73236 S34/35.1 # GET UNIT NORMAL
032220,000379: 34,3600 52145 DLOAD GOTO
032221,000380: 34,3601 00037 T
032222,000381: 34,3602 03463 RTRN
032223,000382:
032224,000383: # .... INTRPVP ....
032225,000384: # SUBROUTINES USED
032226,000385:
032227,000386: # CSMPREC
032228,000387: # LEMPREC
|
|
Page 738 |
032230,000389: 34,3603 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
032231,000390: 34,3604 03463 RTRN # TDEC1
032232,000391: 34,3605 01352 AVFLAG
032233,000392: 34,3606 71613 OTHERV
032234,000393: 34,3607 77624 CALL
032235,000394: 34,3610 27043 CSMPREC
032236,000395: 34,3611 77650 GOTO
032237,000396: 34,3612 03463 RTRN
032238,000397: 34,3613 77624 OTHERV CALL
032239,000398: 34,3614 27057 LEMPREC
032240,000399: 34,3615 77650 GOTO
032241,000400: 34,3616 03463 RTRN
032242,000401:
032243,000402: # .... VNDSPLY ....
032244,000403: # SUBROUTINES USED
032245,000404:
032246,000405: # BANKCALL
032247,000406: # GOFLASH
032248,000407: # GOTOPOOH
032249,000408:
032250,000409: 34,3617 00006 VNDSPLY EXTEND # FLASH DISPLAY
032251,000410: 34,3620 23463 QXCH RTRN
032252,000411: 34,3621 55613 TS VERBNOUN
032253,000412: 34,3622 31613 CA VERBNOUN
032254,000413: 34,3623 04616 TCR BANKCALL
032255,000414: 34,3624 20351 CADR GOFLASH
032256,000415: 34,3625 16001 TCF GOTOPOOH # TERMINATE
032257,000416: 34,3626 01463 TC RTRN # PROCEED
032258,000417: 34,3627 13622 TCF -5 # RECYCLE
032259,000418: 34,3630 01441 V06N33SR VN 0633
032260,000419: 34,3631 01467 V06N55SR VN 0655
032261,000420: 34,3632 01006 V04N06SR VN 0406
032262,000421: 34,3633 01471 V06N57SR VN 0657
032263,000422: 34,3634 01442 V06N34SR VN 0634
032264,000423: 34,3635 01472 V06N58SR VN 0658
032265,000424: 34,3636 01521 V06N81SR VN 0681
032266,000425:
032267,000426:
032268,000427:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc