Source Code
|
These source-code files are part of a reconstructed copy of Comanche 51, the
initial release (though not the final mission release) of the Apollo 11
Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final
release was Comanche 55. The reconstruction is believed to be exactly accurate,
but in the absence of an actual Apollo-era listing of Comanche 51, some
explanation of the reconstruction process is needed to insure confidence in
that accuracy.
The starting point was the source code of Comanche 55, whose original source code
is available. Comanche 55 source code was then modified by undoing changes known
to have been made between revisions 51 and 55. The most-significant steps involved
reverting changes related to the R-2 lunar potential model, the details of which
were known from the previous, separate, independent reconstruction of the Apollo 10
Lunar Module software Luminary 69/2. The now-reconstructed
Comanche 51 source code was verified by assembling it and checking that the assembled
code had the expected known-correct memory-bank checksums. Note that page numbers in
the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although
the source code would likely have different page numbers in a contemporary Comanche 51 listing.
Annotations that were not present in the contemporary source code have been added to
the reconstructed code to justify each change relative to Comanche 55. Here's a guide
to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is
a short writeup about the reconstruction process in our software repository
that may be helpful in understanding it from a different perspective. There's also
a handy table
that lists what the number of memory-words should be for each routine in Comanche 51,
which could make a nice double-check; however, we've not performed that double-check ourselves.
Comments expected to have been present in 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.
|
022393,000002: ## Copyright: Public domain.
022394,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022395,000004: ## Purpose: A section of Comanche revision 051.
022396,000005: ## It is part of the reconstructed source code for the
022397,000006: ## original release of the flight software for the Command
022398,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
022399,000008: ## The code has been recreated from a copy of Comanche 055. It
022400,000009: ## has been adapted such that the resulting bugger words
022401,000010: ## exactly match those specified for Comanche 51 in NASA drawing
022402,000011: ## 2021153D, which gives relatively high confidence that the
022403,000012: ## reconstruction is correct.
022404,000013: ## Reference: pp. 525-532
022405,000014: ## Assembler: yaYUL
022406,000015: ## Contact: Ron Burkey <info@sandroid.org>.
022407,000016: ## Website: www.ibiblio.org/apollo/index.html
022408,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
022409,000018:
|
|
Page 525
|
022411,000020: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022412,000021:
022413,000022: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022414,000023: # MOD BY RUDNICKI.S DATE 25JAN68
022415,000024:
022416,000025: # FUNCTIONAL DESCRIPTION
022417,000026:
022418,000027: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022419,000028: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022420,000029: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022421,000030: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022422,000031: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022423,000032: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022424,000033: # VEHICLES
022425,000034:
022426,000035: # CALLING SEQUENCE
022427,000036:
022428,000037: # ASTRONAUT REQUEST THRU DSKY
022429,000038:
022430,000039: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022431,000040: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022432,000041:
022433,000042: # INPUT
022434,000043:
022435,000044: # (1) SOI MANEUVER
022436,000045:
022437,000046: # (A) TIG TIME OF SOI MANEUVER
022438,000047: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022439,000048: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022440,000049: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022441,000050: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022442,000051: # ORBIT
022443,000052: # (D) OPTION EQUALS 1 FOR SOI
022444,000053:
022445,000054: # (2) SOR MANEUVER
022446,000055:
022447,000056: # (A) TIG TIME OF SOR MANEUVER
022448,000057: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022449,000058: # (C) OPTION EQUALS 2 FOR SOR
022450,000059: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022451,000060: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022452,000061: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022453,000062: # SOI PHASE
022454,000063: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022455,000064:
022456,000065: # OUTPUT
022457,000066:
022458,000067: # (1) TRKMKCNT NUMBER OF MARKS
022459,000068: # (2) TTOGO TIME TO GO
022460,000069: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 526
|
022462,000071: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022463,000072: # (FOR SOI ONLY)
022464,000073: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022465,000074: # THE SOI (SOR) MANEUVER
022466,000075: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022467,000076: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022468,000077: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022469,000078: # COORDINATES
022470,000079:
022471,000080: # SUBROUTINES USED
022472,000081:
022473,000082: # AVFLAGA
022474,000083: # AVFLAGP
022475,000084: # VNDSPLY
022476,000085: # BANKCALL
022477,000086: # GOFLASHR
022478,000087: # GOTOPOOH
022479,000088: # BLANKET
022480,000089: # ENDOFJOB
022481,000090: # PREC/TT
022482,000091: # SELECTMU
022483,000092: # INTRPVP
022484,000093: # MAINRTNE
022485,000094:
022486,000095: 04,2742 BANK 04
022487,000096: 04,2000 SETLOC STBLEORB
022488,000097: 04,2000 BANK
022489,000098:
022490,000099: 04,2742 E4,1770 EBANK= SUBEXIT
022491,000100: 04,2742 COUNT* $$/P3879
022492,000101:
022493,000102: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
022494,000103: 04,2743 02745 TC +2
022495,000104: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
022496,000105: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022497,000106: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
022498,000107: 04,2747 03263 TC VNDSPLY
022499,000108: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
022500,000109: 04,2751 04662 TCR BANKCALL
022501,000110: 04,2752 21057 CADR GOFLASHR
022502,000111: 04,2753 14106 TCF GOTOPOOH # TERMINATE
022503,000112: 04,2754 12761 TCF +5 # PROCEED
022504,000113: 04,2755 12750 TCF -5 # RECYCLE
022505,000114: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022506,000115: 04,2757 05526 TCR BLANKET
022507,000116: 04,2760 15217 TCF ENDOFJOB
022508,000117: 04,2761 35022 CAF FIVE
022509,000118: 04,2762 55131 TS OPTION1
022510,000119: 04,2763 35017 CAF ONE
022511,000120: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
|
|
Page 527
|
022513,000122: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022514,000123: 04,2766 04662 TCR BANKCALL
022515,000124: 04,2767 21057 CADR GOFLASHR
022516,000125: 04,2770 14106 TCF GOTOPOOH # TERMINATE
022517,000126: 04,2771 12776 TCF +5 # PROCEED
022518,000127: 04,2772 12765 TCF -5 # RECYCLE
022519,000128: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022520,000129: 04,2774 05526 TCR BLANKET
022521,000130: 04,2775 15217 TCF ENDOFJOB
022522,000131: 04,2776 06006 TC INTPRET
022523,000132: 04,2777 77731 SSP
022524,000133: 04,3000 03766 NN
022525,000134: 04,3001 00002 2
022526,000135: 04,3002 70535 SLOAD SR1
022527,000136: 04,3003 01133 OPTION2
022528,000137: 04,3004 71230 BHIZ DLOAD
022529,000138: 04,3005 11013 OPTN1
022530,000139: 04,3006 03656 TINT
022531,000140: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
022532,000141: 04,3010 77614 CLRGO
022533,000142: 04,3011 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022534,000143: 04,3012 11042 JUNCTN1
022535,000144: 04,3013 43014 OPTN1 SET CLEAR # SOI
022536,000145: 04,3014 01070 OPTNSW
022537,000146: 04,3015 00670 UPDATFLG
022538,000147: 04,3016 77624 CALL
022539,000148: 04,3017 11216 PREC/TT
022540,000149: 04,3020 43214 SET DAD
022541,000150: 04,3021 00470 UPDATFLG
022542,000151: 04,3022 03413 TIG
022543,000152: 04,3023 03656 STORE TINT # TI = TIG + TF
022544,000153: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
022545,000154: 04,3025 77776 EXIT
022546,000155: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
022547,000156: 04,3027 04662 TCR BANKCALL
022548,000157: 04,3030 21057 CADR GOFLASHR
022549,000158: 04,3031 14106 TCF GOTOPOOH # TERMINATE
022550,000159: 04,3032 13037 TCF +5 # PROCEED
022551,000160: 04,3033 13026 TCF -5 # RECYCLE
022552,000161: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022553,000162: 04,3035 05526 TCR BLANKET
022554,000163: 04,3036 15217 TCF ENDOFJOB
022555,000164: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022556,000165: 04,3040 03263 TC VNDSPLY
022557,000166: 04,3041 06006 TC INTPRET
022558,000167: 04,3042 45014 JUNCTN1 CLEAR CALL
022559,000168: 04,3043 04266 P39/79SW
022560,000169: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022561,000170: 04,3045 77624 RECYCLE CALL
022562,000171: 04,3046 11216 PREC/TT
|
|
Page 528
|
022564,000173: 04,3047 71214 BOFF DLOAD
022565,000174: 04,3050 01350 OPTNSW
022566,000175: 04,3051 11071 OPTN2
022567,000176: 04,3052 03656 TINT
022568,000177: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022569,000178: 04,3054 11247 INTRPVP # INTERCEPT TIME
022570,000179: 04,3055 53575 VLOAD UNIT
022571,000180: 04,3056 00001 RATT # RP/(RP)
022572,000181: 04,3057 47315 PDVL VXV
022573,000182: 04,3060 00007 VATT
022574,000183: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
022575,000184: 04,3062 00047 X1
022576,000185: 04,3063 56325 PDDL DDV
022577,000186: 04,3064 02611 DELTAR
022578,000187: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
022579,000188: 04,3066 20172 0 -7,1
022580,000189: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022581,000190: 04,3070 11075 JUNCTN2
022582,000191: 04,3071 43345 OPTN2 DLOAD DAD
022583,000192: 04,3072 02611 TINTSOI
022584,000193: 04,3073 00037 T
022585,000194: 04,3074 03656 STORE TINT # TI = TI + TF
022586,000195: 04,3075 45345 JUNCTN2 DLOAD DSU
022587,000196: 04,3076 03656 TINT
022588,000197: 04,3077 02613 DELTTIME
022589,000198: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
022590,000199:
022591,000200: # .... MAINRTNE ....
022592,000201:
022593,000202: # SUBROUTINES USED
022594,000203:
022595,000204: # S3435.25
022596,000205: # PERIAPO1
022597,000206: # SHIFTR1
022598,000207: # VNDSPLY
022599,000208: # BANKCALL
022600,000209: # GOFLASH
022601,000210: # GOTOPOOH
022602,000211: # VN1645
022603,000212:
022604,000213: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022605,000214: 04,3102 11247 INTRPVP # TARGET TIME
022606,000215: 04,3103 77745 DLOAD
022607,000216: 04,3104 03413 TIG
022608,000217: 04,3105 03503 STORE INTIME
022609,000218: 04,3106 77331 SSP VLOAD
022610,000219: 04,3107 02371 SUBEXIT
022611,000220: 04,3110 11114 TEST3979
022612,000221: 04,3111 00001 RATT
022613,000222: 04,3112 77624 CALL
022614,000223: 04,3113 72546 S3435.25
022615,000224: 04,3114 43014 TEST3979 BOFF BON
|
|
Page 529
|
022617,000226: 04,3115 04346 P39/79SW
022618,000227: 04,3116 11125 MAINRTN1
022619,000228: 04,3117 01311 FINALFLG
022620,000229: 04,3120 11123 P39P79
022621,000230: 04,3121 77614 SET
022622,000231: 04,3122 00470 UPDATFLG
022623,000232: 04,3123 77776 P39P79 EXIT
022624,000233: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
022625,000234: 04,3125 51575 MAINRTN1 VLOAD ABVAL
022626,000235: 04,3126 03646 DELVEET3
022627,000236: 04,3127 26635 STOVL DELVTPI # DELTA V
022628,000237: 04,3130 03640 VPASS4
022629,000238: 04,3131 51451 VSU ABVAL
022630,000239: 04,3132 03620 VTPRIME
022631,000240: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022632,000241: 04,3134 03540 RACT3
022633,000242: 04,3135 45115 PDVL CALL
022634,000243: 04,3136 03612 VIPRIME
022635,000244: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
022636,000245: 04,3140 77624 CALL
022637,000246: 04,3141 45263 SHIFTR1
022638,000247: 04,3142 02641 STORE POSTTPI
022639,000248: 04,3143 43014 BON SET
022640,000249: 04,3144 01311 FINALFLG
022641,000250: 04,3145 11147 DSPLY58
022642,000251: 04,3146 00470 UPDATFLG
022643,000252: 04,3147 77776 DSPLY58 EXIT
022644,000253: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022645,000254: 04,3151 03263 TC VNDSPLY
022646,000255: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022647,000256: 04,3153 03263 TC VNDSPLY
022648,000257: 04,3154 06006 TC INTPRET
022649,000258: 04,3155 77214 CLEAR VLOAD
022650,000259: 04,3156 01267 XDELVFLG
022651,000260: 04,3157 03646 DELVEET3
022652,000261: 04,3160 37646 STCALL DELVSIN
022653,000262: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022654,000263: 04,3162 52014 BON GOTO
022655,000264: 04,3163 04306 P39/79SW
022656,000265: 04,3164 11203 P39/P79B
022657,000266: 04,3165 11045 RECYCLE
022658,000267:
022659,000268: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022660,000269:
022661,000270: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022662,000271: # MOD BY RUDNICKI.S DATE 25JAN68
022663,000272:
022664,000273: # FUNCTIONAL DESCRIPTION
022665,000274:
022666,000275: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022667,000276: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
|
|
Page 530
|
022669,000278: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022670,000279: # THE SOR MANEUVER
022671,000280:
022672,000281: # CALLING SEQUENCE
022673,000282:
022674,000283: # ASTRONAUT REQUEST THRU DSKY
022675,000284:
022676,000285: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022677,000286: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022678,000287:
022679,000288: # INPUT
022680,000289:
022681,000290: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022682,000291: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022683,000292: # SAVED FROM P38/P78
022684,000293:
022685,000294: # OUTPUT
022686,000295:
022687,000296: # (1) TRKMKCNT NUMBER OF MARKS
022688,000297: # (2) TTOGO TIME TO GO
022689,000298: # (3) +MGA MIDDLE GIMBAL ANGLE
022690,000299: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022691,000300:
022692,000301: # SUBROUTINES USED
022693,000302:
022694,000303: # AVFLAGA
022695,000304: # AVFLAGP
022696,000305: # LOADTIME
022697,000306: # SELECTMU
022698,000307: # PRECSET
022699,000308: # S34/35.1
022700,000309: # MAINRTNE
022701,000310:
022702,000311: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
022703,000312: 04,3167 00006 EXTEND
022704,000313: 04,3170 31422 DCA ATIGINC
022705,000314: 04,3171 03175 TC P39/P79A
022706,000315: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
022707,000316: 04,3173 00006 EXTEND
022708,000317: 04,3174 31424 DCA PTIGINC
022709,000318: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022710,000319: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022711,000320: 04,3177 06006 TC INTPRET
022712,000321: 04,3200 45014 SET CALL
022713,000322: 04,3201 04066 P39/79SW
022714,000323: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022715,000324: 04,3203 43234 P39/P79B RTB DAD
022716,000325: 04,3204 45510 LOADTIME
022717,000326: 04,3205 02364 KT
022718,000327: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
|
|
Page 531
|
022720,000329: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022721,000330: 04,3210 45215 PRECSET # VEHICLES TO TIG
022722,000331: 04,3211 77624 CALL
022723,000332: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
022724,000333: 04,3213 52145 DLOAD GOTO
022725,000334: 04,3214 02615 TARGTIME
022726,000335: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022727,000336:
022728,000337: # .... PREC/TT ....
022729,000338:
022730,000339: # SUBROUTINES USED
022731,000340:
022732,000341: # PRECSET
022733,000342: # TIMETHET
022734,000343: # S34/35.1
022735,000344:
022736,000345: 04,3216 71220 PREC/TT STQ DLOAD
022737,000346: 04,3217 02367 RTRN
022738,000347: 04,3220 03413 TIG
022739,000348: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022740,000349: 04,3222 45215 PRECSET # VEHICLES TO TIG
022741,000350: 04,3223 53775 VLOAD VSR*
022742,000351: 04,3224 03554 RPASS3
022743,000352: 04,3225 57176 0,2
022744,000353: 04,3226 16657 STODL RVEC
022745,000354: 04,3227 03754 CENTANG
022746,000355: 04,3230 71406 PUSH COS
022747,000356: 04,3231 16734 STODL CSTH
022748,000357: 04,3232 43156 SIN SET
022749,000358: 04,3233 03466 RVSW
022750,000359: 04,3234 26732 STOVL SNTH
022751,000360: 04,3235 03562 VPASS3
022752,000361: 04,3236 77657 VSR*
022753,000362: 04,3237 57176 0,2
022754,000363: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022755,000364: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
022756,000365: 04,3242 77624 CALL
022757,000366: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
022758,000367: 04,3244 52145 DLOAD GOTO
022759,000368: 04,3245 00037 T
022760,000369: 04,3246 02367 RTRN
022761,000370:
022762,000371: # .... INTRPVP ....
022763,000372:
022764,000373: # SUBROUTINES USED
022765,000374:
022766,000375: # CSMPREC
022767,000376: # LEMPREC
022768,000377:
022769,000378: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022770,000379: 04,3250 02367 RTRN # TDEC1
022771,000380: 04,3251 01352 AVFLAG
022772,000381: 04,3252 11257 OTHERV
022773,000382: 04,3253 77624 CALL
|
|
Page 532
|
022775,000384: 04,3254 27071 CSMPREC
022776,000385: 04,3255 77650 GOTO
022777,000386: 04,3256 02367 RTRN
022778,000387: 04,3257 77624 OTHERV CALL
022779,000388: 04,3260 27105 LEMPREC
022780,000389: 04,3261 77650 GOTO
022781,000390: 04,3262 02367 RTRN
022782,000391:
022783,000392: # .... VNDSPLY ....
022784,000393:
022785,000394: # SUBROUTINES USED
022786,000395:
022787,000396: # BANKCALL
022788,000397: # GOFLASH
022789,000398: # GOTOPOOH
022790,000399:
022791,000400: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
022792,000401: 04,3264 23767 QXCH RTRN
022793,000402: 04,3265 55765 TS VERBNOUN
022794,000403: 04,3266 31765 CA VERBNOUN
022795,000404: 04,3267 04662 TCR BANKCALL
022796,000405: 04,3270 20720 CADR GOFLASH
022797,000406: 04,3271 14106 TCF GOTOPOOH # TERMINATE
022798,000407: 04,3272 01767 TC RTRN # PROCEED
022799,000408: 04,3273 13266 TCF -5 # RECYCLE
022800,000409: 04,3274 01441 V06N33SR VN 0633
022801,000410: 04,3275 01467 V06N55SR VN 0655
022802,000411: 04,3276 01006 V04N06SR VN 0406
022803,000412: 04,3277 01471 V06N57SR VN 0657
022804,000413: 04,3300 01442 V06N34SR VN 0634
022805,000414: 04,3301 01472 V06N58SR VN 0658
022806,000415: 04,3302 01521 V06N81SR VN 0681
022807,000416:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc