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. |
022927,000002: ## Copyright: Public domain.
022928,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022929,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
022930,000005: ## It is part of the source code for the Command Module's (CM)
022931,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
022932,000007: ## Assembler: yaYUL
022933,000008: ## Contact: Hartmuth Gutsche <hgutsche@xplornet.com>.
022934,000009: ## Website: www.ibiblio.org/apollo.
022935,000010: ## Pages: 525-532
022936,000011: ## Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file
022937,000012: ## of the same name, using Comanche055 page
022938,000013: ## images 0525.jpg - 0532.jpg.
022939,000014: ## 2010-08-20 JL Fixed page number comment (p531).
022940,000015: ## 2016-12-10 RSB Proofed comments with octopus/ProoferComments
022941,000016: ## and fixed the errors found.
022942,000017: ## 2016-12-10 RSB All of the GOTOPOOH's should have been
022943,000018: ## GOTOPOOH, and I've changed them back.
022944,000019: ## 2017-01-19 RSB Renamed from STABLE_ORBIT.agc to agree with
022945,000020: ## the actual name from the log section, and with
022946,000021: ## the naming in Colossus 237.
022947,000022: ## 2017-01-18 RSB Fixed comment-text errors noted while diff'ing
022948,000023: ## vs Colossus 249.
022949,000024: ## 2017-03-17 RSB Comment-text fixes identified in diff'ing
022950,000025: ## Luminary 99 vs Comanche 55.
022951,000026:
022952,000027: ## This source code has been transcribed or otherwise adapted from digitized
022953,000028: ## images of a hardcopy from the MIT Museum. The digitization was performed
022954,000029: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
022955,000030: ## thanks to both. The images (with suitable reduction in storage size and
022956,000031: ## consequent reduction in image quality as well) are available online at
022957,000032: ## www.ibiblio.org/apollo. If for some reason you find that the images are
022958,000033: ## illegible, contact me at info@sandroid.org about getting access to the
022959,000034: ## (much) higher-quality images which Paul actually created.
022960,000035: ##
022961,000036: ## Notations on the hardcopy document read, in part:
022962,000037: ##
022963,000038: ## Assemble revision 055 of AGC program Comanche by NASA
022964,000039: ## 2021113-051. 10:28 APR. 1, 1969
022965,000040: ##
022966,000041: ## This AGC program shall also be referred to as
022967,000042: ## Colossus 2A
![]() |
Page 525 |
022969,000044: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022970,000045:
022971,000046: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022972,000047: # MOD BY RUDNICKI.S DATE 25JAN68
022973,000048:
022974,000049: # FUNCTIONAL DESCRIPTION
022975,000050:
022976,000051: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022977,000052: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022978,000053: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022979,000054: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022980,000055: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022981,000056: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022982,000057: # VEHICLES
022983,000058:
022984,000059: # CALLING SEQUENCE
022985,000060:
022986,000061: # ASTRONAUT REQUEST THRU DSKY
022987,000062:
022988,000063: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022989,000064: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022990,000065:
022991,000066: # INPUT
022992,000067:
022993,000068: # (1) SOI MANEUVER
022994,000069:
022995,000070: # (A) TIG TIME OF SOI MANEUVER
022996,000071: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022997,000072: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022998,000073: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022999,000074: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
023000,000075: # ORBIT
023001,000076: # (D) OPTION EQUALS 1 FOR SOI
023002,000077:
023003,000078: # (2) SOR MANEUVER
023004,000079:
023005,000080: # (A) TIG TIME OF SOR MANEUVER
023006,000081: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
023007,000082: # (C) OPTION EQUALS 2 FOR SOR
023008,000083: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
023009,000084: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
023010,000085: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
023011,000086: # SOI PHASE
023012,000087: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
023013,000088:
023014,000089: # OUTPUT
023015,000090:
023016,000091: # (1) TRKMKCNT NUMBER OF MARKS
023017,000092: # (2) TTOGO TIME TO GO
023018,000093: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 526 |
023020,000095: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
023021,000096: # (FOR SOI ONLY)
023022,000097: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
023023,000098: # THE SOI (SOR) MANEUVER
023024,000099: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
023025,000100: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
023026,000101: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
023027,000102: # COORDINATES
023028,000103:
023029,000104: # SUBROUTINES USED
023030,000105:
023031,000106: # AVFLAGA
023032,000107: # AVFLAGP
023033,000108: # VNDSPLY
023034,000109: # BANKCALL
023035,000110: # GOFLASHR
023036,000111: # GOTOPOOH
023037,000112: # BLANKET
023038,000113: # ENDOFJOB
023039,000114: # PREC/TT
023040,000115: # SELECTMU
023041,000116: # INTRPVP
023042,000117: # MAINRTNE
023043,000118:
023044,000119: 04,2742 BANK 04
023045,000120: 04,2000 SETLOC STBLEORB
023046,000121: 04,2000 BANK
023047,000122:
023048,000123: 04,2742 E4,1770 EBANK= SUBEXIT
023049,000124: 04,2742 COUNT* $$/P3879
023050,000125:
023051,000126: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
023052,000127: 04,2743 02745 TC +2
023053,000128: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
023054,000129: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
023055,000130: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
023056,000131: 04,2747 03263 TC VNDSPLY
023057,000132: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
023058,000133: 04,2751 04662 TCR BANKCALL
023059,000134: 04,2752 21057 CADR GOFLASHR
023060,000135: 04,2753 14106 TCF GOTOPOOH # TERMINATE
023061,000136: 04,2754 12761 TCF +5 # PROCEED
023062,000137: 04,2755 12750 TCF -5 # RECYCLE
023063,000138: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
023064,000139: 04,2757 05526 TCR BLANKET
023065,000140: 04,2760 15217 TCF ENDOFJOB
023066,000141: 04,2761 35022 CAF FIVE
023067,000142: 04,2762 55131 TS OPTION1
023068,000143: 04,2763 35017 CAF ONE
023069,000144: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
![]() |
Page 527 |
023071,000146: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
023072,000147: 04,2766 04662 TCR BANKCALL
023073,000148: 04,2767 21057 CADR GOFLASHR
023074,000149: 04,2770 14106 TCF GOTOPOOH # TERMINATE
023075,000150: 04,2771 12776 TCF +5 # PROCEED
023076,000151: 04,2772 12765 TCF -5 # RECYCLE
023077,000152: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
023078,000153: 04,2774 05526 TCR BLANKET
023079,000154: 04,2775 15217 TCF ENDOFJOB
023080,000155: 04,2776 06006 TC INTPRET
023081,000156: 04,2777 77731 SSP
023082,000157: 04,3000 03766 NN
023083,000158: 04,3001 00002 2
023084,000159: 04,3002 70535 SLOAD SR1
023085,000160: 04,3003 01133 OPTION2
023086,000161: 04,3004 71230 BHIZ DLOAD
023087,000162: 04,3005 11013 OPTN1
023088,000163: 04,3006 03656 TINT
023089,000164: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
023090,000165: 04,3010 77614 CLRGO
023091,000166: 04,3011 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
023092,000167: 04,3012 11042 JUNCTN1
023093,000168: 04,3013 43014 OPTN1 SET CLEAR # SOI
023094,000169: 04,3014 01070 OPTNSW
023095,000170: 04,3015 00670 UPDATFLG
023096,000171: 04,3016 77624 CALL
023097,000172: 04,3017 11216 PREC/TT
023098,000173: 04,3020 43214 SET DAD
023099,000174: 04,3021 00470 UPDATFLG
023100,000175: 04,3022 03413 TIG
023101,000176: 04,3023 03656 STORE TINT # TI = TIG + TF
023102,000177: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
023103,000178: 04,3025 77776 EXIT
023104,000179: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
023105,000180: 04,3027 04662 TCR BANKCALL
023106,000181: 04,3030 21057 CADR GOFLASHR
023107,000182: 04,3031 14106 TCF GOTOPOOH # TERMINATE
023108,000183: 04,3032 13037 TCF +5 # PROCEED
023109,000184: 04,3033 13026 TCF -5 # RECYCLE
023110,000185: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
023111,000186: 04,3035 05526 TCR BLANKET
023112,000187: 04,3036 15217 TCF ENDOFJOB
023113,000188: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
023114,000189: 04,3040 03263 TC VNDSPLY
023115,000190: 04,3041 06006 TC INTPRET
023116,000191: 04,3042 45014 JUNCTN1 CLEAR CALL
023117,000192: 04,3043 04266 P39/79SW
023118,000193: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
023119,000194: 04,3045 77624 RECYCLE CALL
023120,000195: 04,3046 11216 PREC/TT
![]() |
Page 528 |
023122,000197: 04,3047 71214 BOFF DLOAD
023123,000198: 04,3050 01350 OPTNSW
023124,000199: 04,3051 11071 OPTN2
023125,000200: 04,3052 03656 TINT
023126,000201: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
023127,000202: 04,3054 11247 INTRPVP # INTERCEPT TIME
023128,000203: 04,3055 53575 VLOAD UNIT
023129,000204: 04,3056 00001 RATT # RP/(RP)
023130,000205: 04,3057 47315 PDVL VXV
023131,000206: 04,3060 00007 VATT
023132,000207: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
023133,000208: 04,3062 00047 X1
023134,000209: 04,3063 56325 PDDL DDV
023135,000210: 04,3064 02611 DELTAR
023136,000211: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
023137,000212: 04,3066 20172 0 -7,1
023138,000213: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
023139,000214: 04,3070 11075 JUNCTN2
023140,000215: 04,3071 43345 OPTN2 DLOAD DAD
023141,000216: 04,3072 02611 TINTSOI
023142,000217: 04,3073 00037 T
023143,000218: 04,3074 03656 STORE TINT # TI = TI + TF
023144,000219: 04,3075 45345 JUNCTN2 DLOAD DSU
023145,000220: 04,3076 03656 TINT
023146,000221: 04,3077 02613 DELTTIME
023147,000222: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
023148,000223:
023149,000224: # .... MAINRTNE ....
023150,000225:
023151,000226: # SUBROUTINES USED
023152,000227:
023153,000228: # S3435.25
023154,000229: # PERIAPO1
023155,000230: # SHIFTR1
023156,000231: # VNDSPLY
023157,000232: # BANKCALL
023158,000233: # GOFLASH
023159,000234: # GOTOPOOH
023160,000235: # VN1645
023161,000236:
023162,000237: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
023163,000238: 04,3102 11247 INTRPVP # TARGET TIME
023164,000239: 04,3103 77745 DLOAD
023165,000240: 04,3104 03413 TIG
023166,000241: 04,3105 03503 STORE INTIME
023167,000242: 04,3106 77331 SSP VLOAD
023168,000243: 04,3107 02371 SUBEXIT
023169,000244: 04,3110 11114 TEST3979
023170,000245: 04,3111 00001 RATT
023171,000246: 04,3112 77624 CALL
023172,000247: 04,3113 72546 S3435.25
023173,000248: 04,3114 43014 TEST3979 BOFF BON
![]() |
Page 529 |
023175,000250: 04,3115 04346 P39/79SW
023176,000251: 04,3116 11125 MAINRTN1
023177,000252: 04,3117 01311 FINALFLG
023178,000253: 04,3120 11123 P39P79
023179,000254: 04,3121 77614 SET
023180,000255: 04,3122 00470 UPDATFLG
023181,000256: 04,3123 77776 P39P79 EXIT
023182,000257: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
023183,000258: 04,3125 51575 MAINRTN1 VLOAD ABVAL
023184,000259: 04,3126 03646 DELVEET3
023185,000260: 04,3127 26635 STOVL DELVTPI # DELTA V
023186,000261: 04,3130 03640 VPASS4
023187,000262: 04,3131 51451 VSU ABVAL
023188,000263: 04,3132 03620 VTPRIME
023189,000264: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
023190,000265: 04,3134 03540 RACT3
023191,000266: 04,3135 45115 PDVL CALL
023192,000267: 04,3136 03612 VIPRIME
023193,000268: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
023194,000269: 04,3140 77624 CALL
023195,000270: 04,3141 45263 SHIFTR1
023196,000271: 04,3142 02641 STORE POSTTPI
023197,000272: 04,3143 43014 BON SET
023198,000273: 04,3144 01311 FINALFLG
023199,000274: 04,3145 11147 DSPLY58
023200,000275: 04,3146 00470 UPDATFLG
023201,000276: 04,3147 77776 DSPLY58 EXIT
023202,000277: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
023203,000278: 04,3151 03263 TC VNDSPLY
023204,000279: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
023205,000280: 04,3153 03263 TC VNDSPLY
023206,000281: 04,3154 06006 TC INTPRET
023207,000282: 04,3155 77214 CLEAR VLOAD
023208,000283: 04,3156 01267 XDELVFLG
023209,000284: 04,3157 03646 DELVEET3
023210,000285: 04,3160 37646 STCALL DELVSIN
023211,000286: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
023212,000287: 04,3162 52014 BON GOTO
023213,000288: 04,3163 04306 P39/79SW
023214,000289: 04,3164 11203 P39/P79B
023215,000290: 04,3165 11045 RECYCLE
023216,000291:
023217,000292: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
023218,000293:
023219,000294: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
023220,000295: # MOD BY RUDNICKI.S DATE 25JAN68
023221,000296:
023222,000297: # FUNCTIONAL DESCRIPTION
023223,000298:
023224,000299: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
023225,000300: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
![]() |
Page 530 |
023227,000302: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
023228,000303: # THE SOR MANEUVER
023229,000304:
023230,000305: # CALLING SEQUENCE
023231,000306:
023232,000307: # ASTRONAUT REQUEST THRU DSKY
023233,000308:
023234,000309: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
023235,000310: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
023236,000311:
023237,000312: # INPUT
023238,000313:
023239,000314: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
023240,000315: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
023241,000316: # SAVED FROM P38/P78
023242,000317:
023243,000318: # OUTPUT
023244,000319:
023245,000320: # (1) TRKMKCNT NUMBER OF MARKS
023246,000321: # (2) TTOGO TIME TO GO
023247,000322: # (3) +MGA MIDDLE GIMBAL ANGLE
023248,000323: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
023249,000324:
023250,000325: # SUBROUTINES USED
023251,000326:
023252,000327: # AVFLAGA
023253,000328: # AVFLAGP
023254,000329: # LOADTIME
023255,000330: # SELECTMU
023256,000331: # PRECSET
023257,000332: # S34/35.1
023258,000333: # MAINRTNE
023259,000334:
023260,000335: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
023261,000336: 04,3167 00006 EXTEND
023262,000337: 04,3170 31422 DCA ATIGINC
023263,000338: 04,3171 03175 TC P39/P79A
023264,000339: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
023265,000340: 04,3173 00006 EXTEND
023266,000341: 04,3174 31424 DCA PTIGINC
023267,000342: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
023268,000343: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
023269,000344: 04,3177 06006 TC INTPRET
023270,000345: 04,3200 45014 SET CALL
023271,000346: 04,3201 04066 P39/79SW
023272,000347: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
023273,000348: 04,3203 43234 P39/P79B RTB DAD
023274,000349: 04,3204 45510 LOADTIME
023275,000350: 04,3205 02364 KT
023276,000351: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
![]() |
Page 531 |
023278,000353: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
023279,000354: 04,3210 45215 PRECSET # VEHICLES TO TIG
023280,000355: 04,3211 77624 CALL
023281,000356: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
023282,000357: 04,3213 52145 DLOAD GOTO
023283,000358: 04,3214 02615 TARGTIME
023284,000359: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
023285,000360:
023286,000361: # .... PREC/TT ....
023287,000362:
023288,000363: # SUBROUTINES USED
023289,000364:
023290,000365: # PRECSET
023291,000366: # TIMETHET
023292,000367: # S34/35.1
023293,000368:
023294,000369: 04,3216 71220 PREC/TT STQ DLOAD
023295,000370: 04,3217 02367 RTRN
023296,000371: 04,3220 03413 TIG
023297,000372: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
023298,000373: 04,3222 45215 PRECSET # VEHICLES TO TIG
023299,000374: 04,3223 53775 VLOAD VSR*
023300,000375: 04,3224 03554 RPASS3
023301,000376: 04,3225 57176 0,2
023302,000377: 04,3226 16657 STODL RVEC
023303,000378: 04,3227 03754 CENTANG
023304,000379: 04,3230 71406 PUSH COS
023305,000380: 04,3231 16734 STODL CSTH
023306,000381: 04,3232 43156 SIN SET
023307,000382: 04,3233 03466 RVSW
023308,000383: 04,3234 26732 STOVL SNTH
023309,000384: 04,3235 03562 VPASS3
023310,000385: 04,3236 77657 VSR*
023311,000386: 04,3237 57176 0,2
023312,000387: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
023313,000388: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
023314,000389: 04,3242 77624 CALL
023315,000390: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
023316,000391: 04,3244 52145 DLOAD GOTO
023317,000392: 04,3245 00037 T
023318,000393: 04,3246 02367 RTRN
023319,000394:
023320,000395: # .... INTRPVP ....
023321,000396:
023322,000397: # SUBROUTINES USED
023323,000398:
023324,000399: # CSMPREC
023325,000400: # LEMPREC
023326,000401:
023327,000402: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
023328,000403: 04,3250 02367 RTRN # TDEC1
023329,000404: 04,3251 01352 AVFLAG
023330,000405: 04,3252 11257 OTHERV
023331,000406: 04,3253 77624 CALL
![]() |
Page 532 |
023333,000408: 04,3254 27071 CSMPREC
023334,000409: 04,3255 77650 GOTO
023335,000410: 04,3256 02367 RTRN
023336,000411: 04,3257 77624 OTHERV CALL
023337,000412: 04,3260 27105 LEMPREC
023338,000413: 04,3261 77650 GOTO
023339,000414: 04,3262 02367 RTRN
023340,000415:
023341,000416: # .... VNDSPLY ....
023342,000417:
023343,000418: # SUBROUTINES USED
023344,000419:
023345,000420: # BANKCALL
023346,000421: # GOFLASH
023347,000422: # GOTOPOOH
023348,000423:
023349,000424: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
023350,000425: 04,3264 23767 QXCH RTRN
023351,000426: 04,3265 55765 TS VERBNOUN
023352,000427: 04,3266 31765 CA VERBNOUN
023353,000428: 04,3267 04662 TCR BANKCALL
023354,000429: 04,3270 20720 CADR GOFLASH
023355,000430: 04,3271 14106 TCF GOTOPOOH # TERMINATE
023356,000431: 04,3272 01767 TC RTRN # PROCEED
023357,000432: 04,3273 13266 TCF -5 # RECYCLE
023358,000433: 04,3274 01441 V06N33SR VN 0633
023359,000434: 04,3275 01467 V06N55SR VN 0655
023360,000435: 04,3276 01006 V04N06SR VN 0406
023361,000436: 04,3277 01471 V06N57SR VN 0657
023362,000437: 04,3300 01442 V06N34SR VN 0634
023363,000438: 04,3301 01472 V06N58SR VN 0658
023364,000439: 04,3302 01521 V06N81SR VN 0681
023365,000440:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc