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