Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
022790,000002: ## Copyright: Public domain.
022791,000003: ## Filename: STABLE_ORBIT.agc
022792,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
022793,000005: ## It is part of the source code for the Command Module's (CM)
022794,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
022795,000007: ## Assembler: yaYUL
022796,000008: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
022797,000009: ## Website: www.ibiblio.org/apollo.
022798,000010: ## Pages: 525-532
022799,000011: ## Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
022800,000012: ## of the same name, using Comanche055 page
022801,000013: ## images 0525.jpg - 0532.jpg.
022802,000014: ## 2010-08-20 JL Fixed page number comment (p531).
022803,000015: ##
022804,000016: ## This source code has been transcribed or otherwise adapted from digitized
022805,000017: ## images of a hardcopy from the MIT Museum. The digitization was performed
022806,000018: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
022807,000019: ## thanks to both. The images (with suitable reduction in storage size and
022808,000020: ## consequent reduction in image quality as well) are available online at
022809,000021: ## www.ibiblio.org/apollo. If for some reason you find that the images are
022810,000022: ## illegible, contact me at info@sandroid.org about getting access to the
022811,000023: ## (much) higher-quality images which Paul actually created.
022812,000024: ##
022813,000025: ## Notations on the hardcopy document read, in part:
022814,000026: ##
022815,000027: ## Assemble revision 055 of AGC program Comanche by NASA
022816,000028: ## 2021113-051. 10:28 APR. 1, 1969
022817,000029: ##
022818,000030: ## This AGC program shall also be referred to as
022819,000031: ## Colossus 2A
![]() |
Page 525 |
022821,000033: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022822,000034:
022823,000035: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022824,000036: # MOD BY RUDNICKI.S DATE 25JAN68
022825,000037:
022826,000038: # FUNCTIONAL DESCRIPTION
022827,000039:
022828,000040: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022829,000041: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022830,000042: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022831,000043: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022832,000044: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022833,000045: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022834,000046: # VEHICLES
022835,000047:
022836,000048: # CALLING SEQUENCE
022837,000049:
022838,000050: # ASTRONAUT REQUEST THRU DSKY
022839,000051:
022840,000052: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022841,000053: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022842,000054:
022843,000055: # INPUT
022844,000056:
022845,000057: # (1) SOI MANEUVER
022846,000058:
022847,000059: # (A) TIG TIME OF SOI MANEUVER
022848,000060: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022849,000061: # DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
022850,000062: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022851,000063: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022852,000064: # ORBIT
022853,000065: # (D) OPTION EQUALS 1 FOR SOI
022854,000066:
022855,000067: # (2) SOR MANEUVER
022856,000068:
022857,000069: # (A) TIG TIME OF SOR MANEUVER
022858,000070: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022859,000071: # (C) OPTION EQUALS 2 FOR SOR
022860,000072: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022861,000073: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022862,000074: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022863,000075: # SOI PHASE
022864,000076: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022865,000077:
022866,000078: # OUTPUT
022867,000079:
022868,000080: # (1) TRKMKCNT NUMBER OF MARKS
022869,000081: # (2) TTOGO TIME TO GO
022870,000082: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 526 |
022872,000084: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022873,000085: # (FOR SOI ONLY)
022874,000086: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022875,000087: # THE SOI (SOR) MANEUVER
022876,000088: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022877,000089: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022878,000090: # (8) DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022879,000091: # CORDINATES
022880,000092:
022881,000093: # SUBROUTINES USED
022882,000094:
022883,000095: # AVFLAGA
022884,000096: # AVFLAGP
022885,000097: # VNDSPLY
022886,000098: # BANKCALL
022887,000099: # GOFLASHR
022888,000100: # GOTOP00H
022889,000101: # BLANKET
022890,000102: # ENDOFJOB
022891,000103: # PREC/TT
022892,000104: # SELECTMU
022893,000105: # INTRPVP
022894,000106: # MAINRTNE
022895,000107:
022896,000108: 04,2742 BANK 04
022897,000109: 04,2000 SETLOC STBLEORB
022898,000110: 04,2000 BANK
022899,000111:
022900,000112: 04,2742 E4,1770 EBANK= SUBEXIT
022901,000113: 04,2742 COUNT* $$/P3879
022902,000114:
022903,000115: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
022904,000116: 04,2743 02745 TC +2
022905,000117: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
022906,000118: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022907,000119: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
022908,000120: 04,2747 03263 TC VNDSPLY
022909,000121: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
022910,000122: 04,2751 04662 TCR BANKCALL
022911,000123: 04,2752 21057 CADR GOFLASHR
022912,000124: 04,2753 14106 TCF GOTOP00H # TERMINATE
022913,000125: 04,2754 12761 TCF +5 # PROCEED
022914,000126: 04,2755 12750 TCF -5 # RECYCLE
022915,000127: 04,2756 36214 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
022916,000128: 04,2757 05526 TCR BLANKET
022917,000129: 04,2760 15217 TCF ENDOFJOB
022918,000130: 04,2761 35022 CAF FIVE
022919,000131: 04,2762 55131 TS OPTION1
022920,000132: 04,2763 35017 CAF ONE
022921,000133: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
![]() |
Page 527 |
022923,000135: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022924,000136: 04,2766 04662 TCR BANKCALL
022925,000137: 04,2767 21057 CADR GOFLASHR
022926,000138: 04,2770 14106 TCF GOTOP00H # TERMINATE
022927,000139: 04,2771 12776 TCF +5 # PROCEED
022928,000140: 04,2772 12765 TCF -5 # RECYCLE
022929,000141: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
022930,000142: 04,2774 05526 TCR BLANKET
022931,000143: 04,2775 15217 TCF ENDOFJOB
022932,000144: 04,2776 06006 TC INTPRET
022933,000145: 04,2777 77731 SSP
022934,000146: 04,3000 03766 NN
022935,000147: 04,3001 00002 2
022936,000148: 04,3002 70535 SLOAD SR1
022937,000149: 04,3003 01133 OPTION2
022938,000150: 04,3004 71230 BHIZ DLOAD
022939,000151: 04,3005 11013 OPTN1
022940,000152: 04,3006 03656 TINT
022941,000153: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
022942,000154: 04,3010 77614 CLRGO
022943,000155: 04,3011 01230 OPTNSW # OPTNSW: ON = SOI. OFF = SOR
022944,000156: 04,3012 11042 JUNCTN1
022945,000157: 04,3013 43014 OPTN1 SET CLEAR # SOI
022946,000158: 04,3014 01070 OPTNSW
022947,000159: 04,3015 00670 UPDATFLG
022948,000160: 04,3016 77624 CALL
022949,000161: 04,3017 11216 PREC/TT
022950,000162: 04,3020 43214 SET DAD
022951,000163: 04,3021 00470 UPDATFLG
022952,000164: 04,3022 03413 TIG
022953,000165: 04,3023 03656 STORE TINT # TI = TIG + TF
022954,000166: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
022955,000167: 04,3025 77776 EXIT
022956,000168: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
022957,000169: 04,3027 04662 TCR BANKCALL
022958,000170: 04,3030 21057 CADR GOFLASHR
022959,000171: 04,3031 14106 TCF GOTOP00H # TERMINATE
022960,000172: 04,3032 13037 TCF +5 # PROCEED
022961,000173: 04,3033 13026 TCF -5 # RECYCLE
022962,000174: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022963,000175: 04,3035 05526 TCR BLANKET
022964,000176: 04,3036 15217 TCF ENDOFJOB
022965,000177: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022966,000178: 04,3040 03263 TC VNDSPLY
022967,000179: 04,3041 06006 TC INTPRET
022968,000180: 04,3042 45014 JUNCTN1 CLEAR CALL
022969,000181: 04,3043 04266 P39/79SW
022970,000182: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022971,000183: 04,3045 77624 RECYCLE CALL
022972,000184: 04,3046 11216 PREC/TT
![]() |
Page 528 |
022974,000186: 04,3047 71214 BOFF DLOAD
022975,000187: 04,3050 01350 OPTNSW
022976,000188: 04,3051 11071 OPTN2
022977,000189: 04,3052 03656 TINT
022978,000190: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022979,000191: 04,3054 11247 INTRPVP # INTERCEPT TIME
022980,000192: 04,3055 53575 VLOAD UNIT
022981,000193: 04,3056 00001 RATT # RP/(RP)
022982,000194: 04,3057 47315 PDVL VXV
022983,000195: 04,3060 00007 VATT
022984,000196: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
022985,000197: 04,3062 00047 X1
022986,000198: 04,3063 56325 PDDL DDV
022987,000199: 04,3064 02611 DELTAR
022988,000200: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
022989,000201: 04,3066 20172 0 -7,1
022990,000202: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022991,000203: 04,3070 11075 JUNCTN2
022992,000204: 04,3071 43345 OPTN2 DLOAD DAD
022993,000205: 04,3072 02611 TINTSOI
022994,000206: 04,3073 00037 T
022995,000207: 04,3074 03656 STORE TINT # TI = TI + TF
022996,000208: 04,3075 45345 JUNCTN2 DLOAD DSU
022997,000209: 04,3076 03656 TINT
022998,000210: 04,3077 02613 DELTTIME
022999,000211: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
023000,000212:
023001,000213: # .... MAINRTNE ....
023002,000214:
023003,000215: # SUBROUTINES USED
023004,000216:
023005,000217: # S3435.25
023006,000218: # PERIAPO1
023007,000219: # SHIFTR1
023008,000220: # VNDSPLY
023009,000221: # BANKCALL
023010,000222: # GOFLASH
023011,000223: # GOTOP00H
023012,000224: # VN1645
023013,000225:
023014,000226: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
023015,000227: 04,3102 11247 INTRPVP # TARGET TIME
023016,000228: 04,3103 77745 DLOAD
023017,000229: 04,3104 03413 TIG
023018,000230: 04,3105 03503 STORE INTIME
023019,000231: 04,3106 77331 SSP VLOAD
023020,000232: 04,3107 02371 SUBEXIT
023021,000233: 04,3110 11114 TEST3979
023022,000234: 04,3111 00001 RATT
023023,000235: 04,3112 77624 CALL
023024,000236: 04,3113 72546 S3435.25
023025,000237: 04,3114 43014 TEST3979 BOFF BON
![]() |
Page 529 |
023027,000239: 04,3115 04346 P39/79SW
023028,000240: 04,3116 11125 MAINRTN1
023029,000241: 04,3117 01311 FINALFLG
023030,000242: 04,3120 11123 P39P79
023031,000243: 04,3121 77614 SET
023032,000244: 04,3122 00470 UPDATFLG
023033,000245: 04,3123 77776 P39P79 EXIT
023034,000246: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
023035,000247: 04,3125 51575 MAINRTN1 VLOAD ABVAL
023036,000248: 04,3126 03646 DELVEET3
023037,000249: 04,3127 26635 STOVL DELVTPI # DELTA V
023038,000250: 04,3130 03640 VPASS4
023039,000251: 04,3131 51451 VSU ABVAL
023040,000252: 04,3132 03620 VTPRIME
023041,000253: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V-T - VT
023042,000254: 04,3134 03540 RACT3
023043,000255: 04,3135 45115 PDVL CALL
023044,000256: 04,3136 03612 VIPRIME
023045,000257: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
023046,000258: 04,3140 77624 CALL
023047,000259: 04,3141 45263 SHIFTR1
023048,000260: 04,3142 02641 STORE POSTTPI
023049,000261: 04,3143 43014 BON SET
023050,000262: 04,3144 01311 FINALFLG
023051,000263: 04,3145 11147 DSPLY58
023052,000264: 04,3146 00470 UPDATFLG
023053,000265: 04,3147 77776 DSPLY58 EXIT
023054,000266: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
023055,000267: 04,3151 03263 TC VNDSPLY
023056,000268: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
023057,000269: 04,3153 03263 TC VNDSPLY
023058,000270: 04,3154 06006 TC INTPRET
023059,000271: 04,3155 77214 CLEAR VLOAD
023060,000272: 04,3156 01267 XDELVFLG
023061,000273: 04,3157 03646 DELVEET3
023062,000274: 04,3160 37646 STCALL DELVSIN
023063,000275: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
023064,000276: 04,3162 52014 BON GOTO
023065,000277: 04,3163 04306 P39/79SW
023066,000278: 04,3164 11203 P39/P79B
023067,000279: 04,3165 11045 RECYCLE
023068,000280:
023069,000281: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
023070,000282:
023071,000283: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
023072,000284: # MOD BY RUDNICKI, S DATE 25JAN68
023073,000285:
023074,000286: # FUNCTIONAL DESCRIPTION
023075,000287:
023076,000288: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
023077,000289: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
![]() |
Page 530 |
023079,000291: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
023080,000292: # THE SOR MANEUVER.
023081,000293:
023082,000294: # CALLING SEQUENCE
023083,000295:
023084,000296: # ASTRONAUT REQUEST THRU DSKY
023085,000297:
023086,000298: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
023087,000299: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
023088,000300:
023089,000301: # INPUT
023090,000302:
023091,000303: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
023092,000304: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
023093,000305: # SAVED FROM P38/P78
023094,000306:
023095,000307: # OUTPUT
023096,000308:
023097,000309: # (1) TRKMKCNT NUMBER OF MARKS
023098,000310: # (2) TTOGO TIME TO GO
023099,000311: # (3) +MGA MIDDLE GIMBAL ANGLE
023100,000312: # (4) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES
023101,000313:
023102,000314: # SUBROUTINES USED
023103,000315:
023104,000316: # AVFLAGA
023105,000317: # AVFLAGP
023106,000318: # LOADTIME
023107,000319: # SELECTMU
023108,000320: # PRECSET
023109,000321: # S34/35.1
023110,000322: # MAINRTNE
023111,000323:
023112,000324: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
023113,000325: 04,3167 00006 EXTEND
023114,000326: 04,3170 31422 DCA ATIGINC
023115,000327: 04,3171 03175 TC P39/P79A
023116,000328: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
023117,000329: 04,3173 00006 EXTEND
023118,000330: 04,3174 31424 DCA PTIGINC
023119,000331: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
023120,000332: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
023121,000333: 04,3177 06006 TC INTPRET
023122,000334: 04,3200 45014 SET CALL
023123,000335: 04,3201 04066 P39/79SW
023124,000336: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
023125,000337: 04,3203 43234 P39/P79B RTB DAD
023126,000338: 04,3204 45510 LOADTIME
023127,000339: 04,3205 02364 KT
023128,000340: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
![]() |
Page 531 |
023130,000342: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
023131,000343: 04,3210 45215 PRECSET # VEHICLES TO TIG
023132,000344: 04,3211 77624 CALL
023133,000345: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
023134,000346: 04,3213 52145 DLOAD GOTO
023135,000347: 04,3214 02615 TARGTIME
023136,000348: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
023137,000349:
023138,000350: # .... PREC/TT ....
023139,000351:
023140,000352: # SUBROUTINES USED
023141,000353:
023142,000354: # PRECSET
023143,000355: # TIMETHET
023144,000356: # S34/35.1
023145,000357:
023146,000358: 04,3216 71220 PREC/TT STQ DLOAD
023147,000359: 04,3217 02367 RTRN
023148,000360: 04,3220 03413 TIG
023149,000361: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
023150,000362: 04,3222 45215 PRECSET # VEHICLES TO TIG
023151,000363: 04,3223 53775 VLOAD VSR*
023152,000364: 04,3224 03554 RPASS3
023153,000365: 04,3225 57176 0,2
023154,000366: 04,3226 16657 STODL RVEC
023155,000367: 04,3227 03754 CENTANG
023156,000368: 04,3230 71406 PUSH COS
023157,000369: 04,3231 16734 STODL CSTH
023158,000370: 04,3232 43156 SIN SET
023159,000371: 04,3233 03466 RVSW
023160,000372: 04,3234 26732 STOVL SNTH
023161,000373: 04,3235 03562 VPASS3
023162,000374: 04,3236 77657 VSR*
023163,000375: 04,3237 57176 0,2
023164,000376: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
023165,000377: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
023166,000378: 04,3242 77624 CALL
023167,000379: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
023168,000380: 04,3244 52145 DLOAD GOTO
023169,000381: 04,3245 00037 T
023170,000382: 04,3246 02367 RTRN
023171,000383:
023172,000384: # .... INTRPVP ....
023173,000385:
023174,000386: # SUBROUTINES USED
023175,000387:
023176,000388: # CSMPREC
023177,000389: # LEMPREC
023178,000390:
023179,000391: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
023180,000392: 04,3250 02367 RTRN # TDEC1
023181,000393: 04,3251 01352 AVFLAG
023182,000394: 04,3252 11257 OTHERV
023183,000395: 04,3253 77624 CALL
![]() |
Page 532 |
023185,000397: 04,3254 27071 CSMPREC
023186,000398: 04,3255 77650 GOTO
023187,000399: 04,3256 02367 RTRN
023188,000400: 04,3257 77624 OTHERV CALL
023189,000401: 04,3260 27105 LEMPREC
023190,000402: 04,3261 77650 GOTO
023191,000403: 04,3262 02367 RTRN
023192,000404:
023193,000405: # .... VNDSPLY ....
023194,000406:
023195,000407: # SUBROUTINES USED
023196,000408:
023197,000409: # BANKCALL
023198,000410: # GOFLASH
023199,000411: # GOTOP00H
023200,000412:
023201,000413: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
023202,000414: 04,3264 23767 QXCH RTRN
023203,000415: 04,3265 55765 TS VERBNOUN
023204,000416: 04,3266 31765 CA VERBNOUN
023205,000417: 04,3267 04662 TCR BANKCALL
023206,000418: 04,3270 20720 CADR GOFLASH
023207,000419: 04,3271 14106 TCF GOTOP00H # TERMINATE
023208,000420: 04,3272 01767 TC RTRN # PROCEED
023209,000421: 04,3273 13266 TCF -5 # RECYCLE
023210,000422: 04,3274 01441 V06N33SR VN 0633
023211,000423: 04,3275 01467 V06N55SR VN 0655
023212,000424: 04,3276 01006 V04N06SR VN 0406
023213,000425: 04,3277 01471 V06N57SR VN 0657
023214,000426: 04,3300 01442 V06N34SR VN 0634
023215,000427: 04,3301 01472 V06N58SR VN 0658
023216,000428: 04,3302 01521 V06N81SR VN 0681
023217,000429:
023218,000430: # *** END OF COMEKISS.020 ***
End of include-file STABLE_ORBIT.agc. Parent file is MAIN.agc