Source Code
|
These source-code files are part of a reconstructed copy of Comanche 44, the
initial release (though not the final mission release) of the Apollo 10
Command Module (CM) Apollo Guidance Computer (AGC) software. Subsequent releases
were Comanche 45 and Comanche 45/2 (the flown release on Apollo 10). The reconstruction
is believed to be exactly accurate, but in the absence of an actual Apollo-era
listing of Comanche 44, some explanation of the reconstruction process is needed
to insure confidence in that accuracy.
The starting point was the source code of Comanche 51
(separately previously reconstructed from an Apollo-era listing of Comanche 55,
flown on Apollo 11). Comanche 51 source code was then modified
by undoing changes known to have been made between revisions 44 and 51. The now-reconstructed
Comanche 44 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 printout,
although the source code would likely have different page numbers in a contemporary
Comanche 44 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 51. Here's a guide to the Apollo documentation referenced
in those annotations:
In most cases, only the titles (rather than the full texts) of PCRs are known. In addition to the
explanatory annotations, there is also
a step-by-step 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.
|
022627,000002: ## Copyright: Public domain.
022628,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022629,000004: ## Purpose: A section of Comanche revision 044.
022630,000005: ## It is part of the reconstructed source code for the
022631,000006: ## original release of the flight software for the Command
022632,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
022633,000008: ## The code has been recreated from a copy of Comanche 055. It
022634,000009: ## has been adapted such that the resulting bugger words
022635,000010: ## exactly match those specified for Comanche 44 in NASA drawing
022636,000011: ## 2021153D, which gives relatively high confidence that the
022637,000012: ## reconstruction is correct.
022638,000013: ## Assembler: yaYUL
022639,000014: ## Contact: Ron Burkey <info@sandroid.org>.
022640,000015: ## Website: www.ibiblio.org/apollo/index.html
022641,000016: ## Mod history: 2020-12-03 MAS Created from Comanche 51.
022642,000017: ## 2020-12-04 MAS Removed setting of NN from P38/P78.
022643,000018: ## 2020-12-12 RSB Added justifying annotations for the
022644,000019: ## steps of Mike's reconstruction.
022645,000020:
|
|
Page 525
|
022647,000022: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022648,000023:
022649,000024: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022650,000025: # MOD BY RUDNICKI.S DATE 25JAN68
022651,000026:
022652,000027: # FUNCTIONAL DESCRIPTION
022653,000028:
022654,000029: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022655,000030: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022656,000031: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022657,000032: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022658,000033: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022659,000034: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022660,000035: # VEHICLES
022661,000036:
022662,000037: # CALLING SEQUENCE
022663,000038:
022664,000039: # ASTRONAUT REQUEST THRU DSKY
022665,000040:
022666,000041: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022667,000042: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022668,000043:
022669,000044: # INPUT
022670,000045:
022671,000046: # (1) SOI MANEUVER
022672,000047:
022673,000048: # (A) TIG TIME OF SOI MANEUVER
022674,000049: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022675,000050: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022676,000051: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022677,000052: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022678,000053: # ORBIT
022679,000054: # (D) OPTION EQUALS 1 FOR SOI
022680,000055:
022681,000056: # (2) SOR MANEUVER
022682,000057:
022683,000058: # (A) TIG TIME OF SOR MANEUVER
022684,000059: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022685,000060: # (C) OPTION EQUALS 2 FOR SOR
022686,000061: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022687,000062: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022688,000063: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022689,000064: # SOI PHASE
022690,000065: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022691,000066:
022692,000067: # OUTPUT
022693,000068:
022694,000069: # (1) TRKMKCNT NUMBER OF MARKS
022695,000070: # (2) TTOGO TIME TO GO
022696,000071: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 526
|
022698,000073: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022699,000074: # (FOR SOI ONLY)
022700,000075: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022701,000076: # THE SOI (SOR) MANEUVER
022702,000077: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022703,000078: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022704,000079: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022705,000080: # COORDINATES
022706,000081:
022707,000082: # SUBROUTINES USED
022708,000083:
022709,000084: # AVFLAGA
022710,000085: # AVFLAGP
022711,000086: # VNDSPLY
022712,000087: # BANKCALL
022713,000088: # GOFLASHR
022714,000089: # GOTOPOOH
022715,000090: # BLANKET
022716,000091: # ENDOFJOB
022717,000092: # PREC/TT
022718,000093: # SELECTMU
022719,000094: # INTRPVP
022720,000095: # MAINRTNE
022721,000096:
022722,000097: 04,2742 BANK 04
022723,000098: 04,2000 SETLOC STBLEORB
022724,000099: 04,2000 BANK
022725,000100:
022726,000101: 04,2742 E4,1770 EBANK= SUBEXIT
022727,000102: 04,2742 COUNT* $$/P3879
022728,000103:
022729,000104: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
022730,000105: 04,2743 02745 TC +2
022731,000106: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
022732,000107: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022733,000108: 04,2746 33271 CAF V06N33SR # DISPLAY TIG
022734,000109: 04,2747 03260 TC VNDSPLY
022735,000110: 04,2750 33272 CAF V06N55SR # DISPLAY CENTANG
022736,000111: 04,2751 04662 TCR BANKCALL
022737,000112: 04,2752 21057 CADR GOFLASHR
022738,000113: 04,2753 14106 TCF GOTOPOOH # TERMINATE
022739,000114: 04,2754 12761 TCF +5 # PROCEED
022740,000115: 04,2755 12750 TCF -5 # RECYCLE
022741,000116: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022742,000117: 04,2757 05526 TCR BLANKET
022743,000118: 04,2760 15217 TCF ENDOFJOB
022744,000119: 04,2761 35022 CAF FIVE
022745,000120: 04,2762 55131 TS OPTION1
022746,000121: 04,2763 35017 CAF ONE
022747,000122: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
|
|
Page 527
|
022749,000124: 04,2765 33273 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022750,000125: 04,2766 04662 TCR BANKCALL
022751,000126: 04,2767 21057 CADR GOFLASHR
022752,000127: 04,2770 14106 TCF GOTOPOOH # TERMINATE
022753,000128: 04,2771 12776 TCF +5 # PROCEED
022754,000129: 04,2772 12765 TCF -5 # RECYCLE
022755,000130: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022756,000131: 04,2774 05526 TCR BLANKET
022757,000132: 04,2775 15217 TCF ENDOFJOB
022758,000133: 04,2776 06006 TC INTPRET
022771,000146: 04,2777 70535 SLOAD SR1
022772,000147: 04,3000 01133 OPTION2
022773,000148: 04,3001 71230 BHIZ DLOAD
022774,000149: 04,3002 11010 OPTN1
022775,000150: 04,3003 03656 TINT
022776,000151: 04,3004 02611 STORE TINTSOI # STORE FOR SOR PHASE
022777,000152: 04,3005 77614 CLRGO
022778,000153: 04,3006 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022779,000154: 04,3007 11037 JUNCTN1
022780,000155: 04,3010 43014 OPTN1 SET CLEAR # SOI
022781,000156: 04,3011 01070 OPTNSW
022782,000157: 04,3012 00670 UPDATFLG
022783,000158: 04,3013 77624 CALL
022784,000159: 04,3014 11213 PREC/TT
022785,000160: 04,3015 43214 SET DAD
022786,000161: 04,3016 00470 UPDATFLG
022787,000162: 04,3017 03413 TIG
022788,000163: 04,3020 03656 STORE TINT # TI = TIG + TF
022789,000164: 04,3021 01046 STORE DSPTEM1 # FOR DISPLAY
022790,000165: 04,3022 77776 EXIT
022791,000166: 04,3023 33274 CAF V06N57SR # DISPLAY DELTA R
022792,000167: 04,3024 04662 TCR BANKCALL
022793,000168: 04,3025 21057 CADR GOFLASHR
022794,000169: 04,3026 14106 TCF GOTOPOOH # TERMINATE
022795,000170: 04,3027 13034 TCF +5 # PROCEED
022796,000171: 04,3030 13023 TCF -5 # RECYCLE
022797,000172: 04,3031 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022798,000173: 04,3032 05526 TCR BLANKET
022799,000174: 04,3033 15217 TCF ENDOFJOB
022800,000175: 04,3034 33275 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022801,000176: 04,3035 03260 TC VNDSPLY
022802,000177: 04,3036 06006 TC INTPRET
022803,000178: 04,3037 45014 JUNCTN1 CLEAR CALL
022804,000179: 04,3040 04266 P39/79SW
022805,000180: 04,3041 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022806,000181: 04,3042 77624 RECYCLE CALL
022807,000182: 04,3043 11213 PREC/TT
|
|
Page 528
|
022809,000184: 04,3044 71214 BOFF DLOAD
022810,000185: 04,3045 01350 OPTNSW
022811,000186: 04,3046 11066 OPTN2
022812,000187: 04,3047 03656 TINT
022813,000188: 04,3050 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022814,000189: 04,3051 11244 INTRPVP # INTERCEPT TIME
022815,000190: 04,3052 53575 VLOAD UNIT
022816,000191: 04,3053 00001 RATT # RP/(RP)
022817,000192: 04,3054 47315 PDVL VXV
022818,000193: 04,3055 00007 VATT
022819,000194: 04,3056 60246 ABVAL NORM # (VP X RP/(RP))
022820,000195: 04,3057 00047 X1
022821,000196: 04,3060 56325 PDDL DDV
022822,000197: 04,3061 02611 DELTAR
022823,000198: 04,3062 77657 SL* # DELTA R / (VP X RP/RP)
022824,000199: 04,3063 20172 0 -7,1
022825,000200: 04,3064 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022826,000201: 04,3065 11072 JUNCTN2
022827,000202: 04,3066 43345 OPTN2 DLOAD DAD
022828,000203: 04,3067 02611 TINTSOI
022829,000204: 04,3070 00037 T
022830,000205: 04,3071 03656 STORE TINT # TI = TI + TF
022831,000206: 04,3072 45345 JUNCTN2 DLOAD DSU
022832,000207: 04,3073 03656 TINT
022833,000208: 04,3074 02613 DELTTIME
022834,000209: 04,3075 02615 STORE TARGTIME # TT = TI - DELTA T
022835,000210:
022836,000211: # .... MAINRTNE ....
022837,000212:
022838,000213: # SUBROUTINES USED
022839,000214:
022840,000215: # S3435.25
022841,000216: # PERIAPO1
022842,000217: # SHIFTR1
022843,000218: # VNDSPLY
022844,000219: # BANKCALL
022845,000220: # GOFLASH
022846,000221: # GOTOPOOH
022847,000222: # VN1645
022848,000223:
022849,000224: 04,3076 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022850,000225: 04,3077 11244 INTRPVP # TARGET TIME
022851,000226: 04,3100 77745 DLOAD
022852,000227: 04,3101 03413 TIG
022853,000228: 04,3102 03503 STORE INTIME
022854,000229: 04,3103 77331 SSP VLOAD
022855,000230: 04,3104 02371 SUBEXIT
022856,000231: 04,3105 11111 TEST3979
022857,000232: 04,3106 00001 RATT
022858,000233: 04,3107 77624 CALL
022859,000234: 04,3110 72547 S3435.25
022860,000235: 04,3111 43014 TEST3979 BOFF BON
|
|
Page 529
|
022862,000237: 04,3112 04346 P39/79SW
022863,000238: 04,3113 11122 MAINRTN1
022864,000239: 04,3114 01311 FINALFLG
022865,000240: 04,3115 11120 P39P79
022866,000241: 04,3116 77614 SET
022867,000242: 04,3117 00470 UPDATFLG
022868,000243: 04,3120 77776 P39P79 EXIT
022869,000244: 04,3121 03147 TC DSPLY81 # FOR P39 AND P79
022870,000245: 04,3122 51575 MAINRTN1 VLOAD ABVAL
022871,000246: 04,3123 03646 DELVEET3
022872,000247: 04,3124 26635 STOVL DELVTPI # DELTA V
022873,000248: 04,3125 03640 VPASS4
022874,000249: 04,3126 51451 VSU ABVAL
022875,000250: 04,3127 03620 VTPRIME
022876,000251: 04,3130 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022877,000252: 04,3131 03540 RACT3
022878,000253: 04,3132 45115 PDVL CALL
022879,000254: 04,3133 03612 VIPRIME
022880,000255: 04,3134 45153 PERIAPO1 # GET PERIGEE ALTITUDE
022881,000256: 04,3135 77624 CALL
022882,000257: 04,3136 45263 SHIFTR1
022883,000258: 04,3137 02641 STORE POSTTPI
022884,000259: 04,3140 43014 BON SET
022885,000260: 04,3141 01311 FINALFLG
022886,000261: 04,3142 11144 DSPLY58
022887,000262: 04,3143 00470 UPDATFLG
022888,000263: 04,3144 77776 DSPLY58 EXIT
022889,000264: 04,3145 33276 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022890,000265: 04,3146 03260 TC VNDSPLY
022891,000266: 04,3147 33277 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022892,000267: 04,3150 03260 TC VNDSPLY
022893,000268: 04,3151 06006 TC INTPRET
022894,000269: 04,3152 77214 CLEAR VLOAD
022895,000270: 04,3153 01267 XDELVFLG
022896,000271: 04,3154 03646 DELVEET3
022897,000272: 04,3155 37646 STCALL DELVSIN
022898,000273: 04,3156 73003 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022899,000274: 04,3157 52014 BON GOTO
022900,000275: 04,3160 04306 P39/79SW
022901,000276: 04,3161 11200 P39/P79B
022902,000277: 04,3162 11042 RECYCLE
022903,000278:
022904,000279: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022905,000280:
022906,000281: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022907,000282: # MOD BY RUDNICKI.S DATE 25JAN68
022908,000283:
022909,000284: # FUNCTIONAL DESCRIPTION
022910,000285:
022911,000286: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022912,000287: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
|
|
Page 530
|
022914,000289: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022915,000290: # THE SOR MANEUVER
022916,000291:
022917,000292: # CALLING SEQUENCE
022918,000293:
022919,000294: # ASTRONAUT REQUEST THRU DSKY
022920,000295:
022921,000296: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022922,000297: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022923,000298:
022924,000299: # INPUT
022925,000300:
022926,000301: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022927,000302: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022928,000303: # SAVED FROM P38/P78
022929,000304:
022930,000305: # OUTPUT
022931,000306:
022932,000307: # (1) TRKMKCNT NUMBER OF MARKS
022933,000308: # (2) TTOGO TIME TO GO
022934,000309: # (3) +MGA MIDDLE GIMBAL ANGLE
022935,000310: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022936,000311:
022937,000312: # SUBROUTINES USED
022938,000313:
022939,000314: # AVFLAGA
022940,000315: # AVFLAGP
022941,000316: # LOADTIME
022942,000317: # SELECTMU
022943,000318: # PRECSET
022944,000319: # S34/35.1
022945,000320: # MAINRTNE
022946,000321:
022947,000322: 04,3163 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
022948,000323: 04,3164 00006 EXTEND
022949,000324: 04,3165 31422 DCA ATIGINC
022950,000325: 04,3166 03172 TC P39/P79A
022951,000326: 04,3167 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
022952,000327: 04,3170 00006 EXTEND
022953,000328: 04,3171 31424 DCA PTIGINC
022954,000329: 04,3172 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022955,000330: 04,3173 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022956,000331: 04,3174 06006 TC INTPRET
022957,000332: 04,3175 45014 SET CALL
022958,000333: 04,3176 04066 P39/79SW
022959,000334: 04,3177 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022960,000335: 04,3200 43234 P39/P79B RTB DAD
022961,000336: 04,3201 45510 LOADTIME
022962,000337: 04,3202 02364 KT
022963,000338: 04,3203 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
|
|
Page 531
|
022965,000340: 04,3204 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022966,000341: 04,3205 45215 PRECSET # VEHICLES TO TIG
022967,000342: 04,3206 77624 CALL
022968,000343: 04,3207 72522 S34/35.1 # GET UNIT NORMAL
022969,000344: 04,3210 52145 DLOAD GOTO
022970,000345: 04,3211 02615 TARGTIME
022971,000346: 04,3212 11076 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022972,000347:
022973,000348: # .... PREC/TT ....
022974,000349:
022975,000350: # SUBROUTINES USED
022976,000351:
022977,000352: # PRECSET
022978,000353: # TIMETHET
022979,000354: # S34/35.1
022980,000355:
022981,000356: 04,3213 71220 PREC/TT STQ DLOAD
022982,000357: 04,3214 02367 RTRN
022983,000358: 04,3215 03413 TIG
022984,000359: 04,3216 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022985,000360: 04,3217 45215 PRECSET # VEHICLES TO TIG
022986,000361: 04,3220 53775 VLOAD VSR*
022987,000362: 04,3221 03554 RPASS3
022988,000363: 04,3222 57176 0,2
022989,000364: 04,3223 16657 STODL RVEC
022990,000365: 04,3224 03754 CENTANG
022991,000366: 04,3225 71406 PUSH COS
022992,000367: 04,3226 16734 STODL CSTH
022993,000368: 04,3227 43156 SIN SET
022994,000369: 04,3230 03466 RVSW
022995,000370: 04,3231 26732 STOVL SNTH
022996,000371: 04,3232 03562 VPASS3
022997,000372: 04,3233 77657 VSR*
022998,000373: 04,3234 57176 0,2
022999,000374: 04,3235 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
023000,000375: 04,3236 24744 TIMETHET # PASSIVE VEHICLE
023001,000376: 04,3237 77624 CALL
023002,000377: 04,3240 72522 S34/35.1 # GET UNIT NORMAL
023003,000378: 04,3241 52145 DLOAD GOTO
023004,000379: 04,3242 00037 T
023005,000380: 04,3243 02367 RTRN
023006,000381:
023007,000382: # .... INTRPVP ....
023008,000383:
023009,000384: # SUBROUTINES USED
023010,000385:
023011,000386: # CSMPREC
023012,000387: # LEMPREC
023013,000388:
023014,000389: 04,3244 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
023015,000390: 04,3245 02367 RTRN # TDEC1
023016,000391: 04,3246 01352 AVFLAG
023017,000392: 04,3247 11254 OTHERV
023018,000393: 04,3250 77624 CALL
|
|
Page 532
|
023020,000395: 04,3251 27071 CSMPREC
023021,000396: 04,3252 77650 GOTO
023022,000397: 04,3253 02367 RTRN
023023,000398: 04,3254 77624 OTHERV CALL
023024,000399: 04,3255 27105 LEMPREC
023025,000400: 04,3256 77650 GOTO
023026,000401: 04,3257 02367 RTRN
023027,000402:
023028,000403: # .... VNDSPLY ....
023029,000404:
023030,000405: # SUBROUTINES USED
023031,000406:
023032,000407: # BANKCALL
023033,000408: # GOFLASH
023034,000409: # GOTOPOOH
023035,000410:
023036,000411: 04,3260 00006 VNDSPLY EXTEND # FLASH DISPLAY
023037,000412: 04,3261 23767 QXCH RTRN
023038,000413: 04,3262 55765 TS VERBNOUN
023039,000414: 04,3263 31765 CA VERBNOUN
023040,000415: 04,3264 04662 TCR BANKCALL
023041,000416: 04,3265 20720 CADR GOFLASH
023042,000417: 04,3266 14106 TCF GOTOPOOH # TERMINATE
023043,000418: 04,3267 01767 TC RTRN # PROCEED
023044,000419: 04,3270 13263 TCF -5 # RECYCLE
023045,000420: 04,3271 01441 V06N33SR VN 0633
023046,000421: 04,3272 01467 V06N55SR VN 0655
023047,000422: 04,3273 01006 V04N06SR VN 0406
023048,000423: 04,3274 01471 V06N57SR VN 0657
023049,000424: 04,3275 01442 V06N34SR VN 0634
023050,000425: 04,3276 01472 V06N58SR VN 0658
023051,000426: 04,3277 01521 V06N81SR VN 0681
023052,000427:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc