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