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