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