ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. 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:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
022588,000002: ## Copyright: Public domain.
022589,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022590,000004: ## Purpose: Part of the source code for Colossus, build 249.
022591,000005: ## It is part of the source code for the Command Module's (CM)
022592,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
022593,000007: ## Assembler: yaYUL
022594,000008: ## Reference: pp. 516-523.
022595,000009: ## Contact: Ron Burkey <info@sandroid.org>.
022596,000010: ## Website: www.ibiblio.org/apollo.
022597,000011: ## Mod history: 08/12/04 RSB. Began transcribing.
022598,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
022599,000013: ## original harcopy, as opposed to the PDF page
022600,000014: ## numbers in 1701.pdf.
022601,000015: ## 2017-01-19 RSB Renamed from STABLE_ORBIT.agc to agree with
022602,000016: ## the actual name from the log section, and with
022603,000017: ## the naming in Colossus 237.
022604,000018: ## 2017-01-19 RSB A few comment-text typos were corrected.
022605,000019: ## 2017-01-20 RSB Cross-diff'd comment text (not whitespace)
022606,000020: ## vs the already-proofed corresponding Colossus
022607,000021: ## 237 and Comanche 55 source-code files
022608,000022: ## and corrected errors found.
022609,000023: ##
022610,000024: ## The contents of the "Colossus249" files, in general, are transcribed
022611,000025: ## from a scanned copy of the program listing. Notations on this
022612,000026: ## document read, in part:
022613,000027: ##
022614,000028: ## Assemble revision 249 of AGC program Colossus by NASA
022615,000029: ## 2021111-041. October 28, 1968.
022616,000030: ##
022617,000031: ## This AGC program shall also be referred to as
022618,000032: ## Colossus 1A
022619,000033: ##
022620,000034: ## Prepared by
022621,000035: ## Massachusetts Institute of Technology
022622,000036: ## 75 Cambridge Parkway
022623,000037: ## Cambridge, Massachusetts
022624,000038: ## under NASA contract NAS 9-4065.
022625,000039: ##
022626,000040: ## Refer directly to the online document mentioned above for further information.
022627,000041: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
022628,000042: ##
022629,000043: ## In some cases, where the source code for Luminary 131 overlaps that of
022630,000044: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
022631,000045: ## source file, and then is proofed to incorporate any changes.
022632,000046:
|
|
Page 516 |
022634,000048: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022635,000049:
022636,000050: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022637,000051: # MOD BY RUDNICKI.S DATE 25JAN68
022638,000052:
022639,000053: # FUNCTIONAL DESCRIPTION
022640,000054:
022641,000055: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022642,000056: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022643,000057: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022644,000058: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022645,000059: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022646,000060: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022647,000061: # VEHICLES
022648,000062:
022649,000063: # CALLING SEQUENCE
022650,000064:
022651,000065: # ASTRONAUT REQUEST THRU DSKY
022652,000066:
022653,000067: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022654,000068: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022655,000069:
022656,000070: # INPUT
022657,000071:
022658,000072: # (1) SOI MANEUVER
022659,000073:
022660,000074: # (A) TIG TIME OF SOI MANEUVER
022661,000075: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022662,000076: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022663,000077: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022664,000078: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022665,000079: # ORBIT
022666,000080: # (D) OPTION EQUALS 1 FOR SOI
022667,000081:
022668,000082: # (2) SOR MANEUVER
022669,000083:
022670,000084: # (A) TIG TIME OF SOR MANEUVER
022671,000085: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022672,000086: # (C) OPTION EQUALS 2 FOR SOR
022673,000087: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022674,000088: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022675,000089: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022676,000090: # SOI PHASE
022677,000091: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022678,000092:
022679,000093: # OUTPUT
022680,000094:
022681,000095: # (1) TRKMKCNT NUMBER OF MARKS
022682,000096: # (2) TTOGO TIME TO GO
022683,000097: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 517 |
022685,000099: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022686,000100: # (FOR SOI ONLY)
022687,000101: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022688,000102: # THE SOI (SOR) MANEUVER
022689,000103: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022690,000104: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022691,000105: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022692,000106: # COORDINATES
022693,000107:
022694,000108: # SUBROUTINES USED
022695,000109:
022696,000110: # AVFLAGA
022697,000111: # AVFLAGP
022698,000112: # VNDSPLY
022699,000113: # BANKCALL
022700,000114: # GOFLASHR
022701,000115: # GOTOPOOH
022702,000116: # BLANKET
022703,000117: # ENDOFJOB
022704,000118: # PREC/TT
022705,000119: # SELECTMU
022706,000120: # INTRPVP
022707,000121: # MAINRTNE
022708,000122:
022709,000123: 04,3103 BANK 04
022710,000124: 04,2000 SETLOC STBLEORB
022711,000125: 04,2000 BANK
022712,000126:
022713,000127: 04,3103 E4,1770 EBANK= SUBEXIT
022714,000128: 04,3103 COUNT* $$/P3879
022715,000129:
022716,000130: 04,3103 04555 P38 TC BANKCALL
022717,000131: 04,3104 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022718,000132: 04,3105 03110 TC +3
022719,000133: 04,3106 04555 P78 TC BANKCALL
022720,000134: 04,3107 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022721,000135: 04,3110 04555 TC BANKCALL
022722,000136: 04,3111 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022723,000137: 04,3112 33440 CAF V06N33SR # DISPLAY TIG
022724,000138: 04,3113 03427 TC VNDSPLY
022725,000139: 04,3114 33441 CAF V06N55SR # DISPLAY CENTANG
022726,000140: 04,3115 04555 TCR BANKCALL
022727,000141: 04,3116 20763 CADR GOFLASHR
022728,000142: 04,3117 14106 TCF GOTOPOOH # TERMINATE
022729,000143: 04,3120 13125 TCF +5 # PROCEED
022730,000144: 04,3121 13114 TCF -5 # RECYCLE
022731,000145: 04,3122 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022732,000146: 04,3123 05415 TCR BLANKET
022733,000147: 04,3124 15112 TCF ENDOFJOB
022734,000148: 04,3125 34715 CAF FIVE
|
|
Page 518 |
022736,000150: 04,3126 55131 TS OPTION1
022737,000151: 04,3127 34712 CAF ONE
022738,000152: 04,3130 55132 TS OPTION2 # OPTION CODE IS SET TO 1
022739,000153: 04,3131 33442 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022740,000154: 04,3132 04555 TCR BANKCALL
022741,000155: 04,3133 20763 CADR GOFLASHR
022742,000156: 04,3134 14106 TCF GOTOPOOH # TERMINATE
022743,000157: 04,3135 13142 TCF +5 # PROCEED
022744,000158: 04,3136 13131 TCF -5 # RECYCLE
022745,000159: 04,3137 34710 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022746,000160: 04,3140 05415 TCR BLANKET
022747,000161: 04,3141 15112 TCF ENDOFJOB
022748,000162: 04,3142 06006 TC INTPRET
022749,000163: 04,3143 70535 SLOAD SR1
022750,000164: 04,3144 01133 OPTION2
022751,000165: 04,3145 71230 BHIZ DLOAD
022752,000166: 04,3146 11154 OPTN1
022753,000167: 04,3147 03656 TINT
022754,000168: 04,3150 02611 STORE TINTSOI # STORE FOR SOR PHASE
022755,000169: 04,3151 77614 CLRGO
022756,000170: 04,3152 01230 OPTNSW # OPTNSW
022757,000171:
022758,000172: 04,3153 11203 JUNCTN1
022759,000173: 04,3154 43014 OPTN1 SET CLEAR # SOI
022760,000174: 04,3155 01070 OPTNSW
022761,000175: 04,3156 00670 UPDATFLG
022762,000176: 04,3157 77624 CALL
022763,000177: 04,3160 11362 PREC/TT
022764,000178: 04,3161 43214 SET DAD
022765,000179: 04,3162 00470 UPDATFLG
022766,000180: 04,3163 03413 TIG
022767,000181: 04,3164 03656 STORE TINT # TI = TIG + TF
022768,000182: 04,3165 01046 STORE DSPTEM1 # FOR DISPLAY
022769,000183: 04,3166 77776 EXIT
022770,000184: 04,3167 33443 CAF V06N57SR # DISPLAY DELTA R
022771,000185: 04,3170 04555 TCR BANKCALL
022772,000186: 04,3171 20763 CADR GOFLASHR
022773,000187: 04,3172 14106 TCF GOTOPOOH # TERMINATE
022774,000188: 04,3173 13200 TCF +5 # PROCEED
022775,000189: 04,3174 13167 TCF -5 # RECYCLE
022776,000190: 04,3175 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022777,000191: 04,3176 05415 TCR BLANKET
022778,000192: 04,3177 15112 TCF ENDOFJOB
022779,000193: 04,3200 33444 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022780,000194: 04,3201 03427 TC VNDSPLY
022781,000195: 04,3202 06006 TC INTPRET
022782,000196: 04,3203 45014 JUNCTN1 CLEAR CALL
022783,000197: 04,3204 04266 P39/79SW
022784,000198: 04,3205 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022785,000199: 04,3206 77624 RECYCLE CALL
022786,000200: 04,3207 11362 PREC/TT
|
|
Page 519 |
022788,000202: 04,3210 71214 BOFF DLOAD
022789,000203: 04,3211 01350 OPTNSW
022790,000204: 04,3212 11232 OPTN2
022791,000205: 04,3213 03656 TINT
022792,000206: 04,3214 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022793,000207: 04,3215 11413 INTRPVP # INTERCEPT TIME
022794,000208: 04,3216 53575 VLOAD UNIT
022795,000209: 04,3217 00001 RATT # RP/(RP)
022796,000210: 04,3220 47315 PDVL VXV
022797,000211: 04,3221 00007 VATT
022798,000212: 04,3222 60246 ABVAL NORM # (VP X RP/(RP))
022799,000213: 04,3223 00047 X1
022800,000214: 04,3224 56325 PDDL DDV
022801,000215: 04,3225 02611 DELTAR
022802,000216: 04,3226 77657 SL* # DELTA R / (VP X RP/RP)
022803,000217: 04,3227 20172 0 -7,1
022804,000218: 04,3230 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022805,000219: 04,3231 11236 JUNCTN2
022806,000220: 04,3232 43345 OPTN2 DLOAD DAD
022807,000221: 04,3233 02611 TINTSOI
022808,000222: 04,3234 00037 T
022809,000223: 04,3235 03656 STORE TINT # TI = TI + TF
022810,000224: 04,3236 45345 JUNCTN2 DLOAD DSU
022811,000225: 04,3237 03656 TINT
022812,000226: 04,3240 02613 DELTTIME
022813,000227: 04,3241 02615 STORE TARGTIME # TT = TI - DELTA T
022814,000228:
022815,000229: # .... MAINRTNE ....
022816,000230:
022817,000231: # SUBROUTINES USED
022818,000232:
022819,000233: # S3435.25
022820,000234: # PERIAPO1
022821,000235: # SHIFTR1
022822,000236: # VNDSPLY
022823,000237: # BANKCALL
022824,000238: # GOFLASH
022825,000239: # GOTOPOOH
022826,000240: # VN1645
022827,000241:
022828,000242: 04,3242 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022829,000243: 04,3243 11413 INTRPVP # TARGET TIME
022830,000244: 04,3244 77745 DLOAD
022831,000245: 04,3245 03413 TIG
022832,000246: 04,3246 03503 STORE INTIME
022833,000247: 04,3247 77331 SSP VLOAD
022834,000248: 04,3250 02371 SUBEXIT
022835,000249: 04,3251 11255 TEST3979
022836,000250: 04,3252 00001 RATT
022837,000251: 04,3253 77624 CALL
022838,000252: 04,3254 72547 S3435.25
022839,000253: 04,3255 43014 TEST3979 BOFF BON
022840,000254:
|
|
Page 520 |
022842,000256: 04,3256 04346 P39/79SW
022843,000257: 04,3257 11266 MAINRTN1
022844,000258: 04,3260 01311 FINALFLG
022845,000259: 04,3261 11264 P39P79
022846,000260: 04,3262 77614 SET
022847,000261: 04,3263 00470 UPDATFLG
022848,000262: 04,3264 77776 P39P79 EXIT
022849,000263: 04,3265 03313 TC DSPLY81 # FOR P39 AND P79
022850,000264: 04,3266 51575 MAINRTN1 VLOAD ABVAL
022851,000265: 04,3267 03646 DELVEET3
022852,000266: 04,3270 26635 STOVL DELVTPI # DELTA V
022853,000267: 04,3271 03640 VPASS4
022854,000268: 04,3272 51451 VSU ABVAL
022855,000269: 04,3273 03620 VTPRIME
022856,000270: 04,3274 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022857,000271: 04,3275 03540 RACT3
022858,000272: 04,3276 45115 PDVL CALL
022859,000273: 04,3277 03612 VIPRIME
022860,000274: 04,3300 45312 PERIAPO1 # GET PERIGEE ALTITUDE
022861,000275: 04,3301 77624 CALL
022862,000276: 04,3302 45422 SHIFTR1
022863,000277: 04,3303 02641 STORE POSTTPI
022864,000278: 04,3304 43014 BON SET
022865,000279: 04,3305 01311 FINALFLG
022866,000280: 04,3306 11310 DSPLY58
022867,000281: 04,3307 00470 UPDATFLG
022868,000282: 04,3310 77776 DSPLY58 EXIT
022869,000283: 04,3311 33445 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022870,000284: 04,3312 03427 TC VNDSPLY
022871,000285: 04,3313 33446 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022872,000286: 04,3314 03427 TC VNDSPLY
022873,000287: 04,3315 06006 TC INTPRET
022874,000288: 04,3316 77214 CLEAR VLOAD
022875,000289: 04,3317 01267 XDELVFLG
022876,000290: 04,3320 03646 DELVEET3
022877,000291: 04,3321 37646 STCALL DELVSIN
022878,000292: 04,3322 73005 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022879,000293: 04,3323 52014 BON GOTO
022880,000294: 04,3324 04306 P39/79SW
022881,000295: 04,3325 11347 P39/P79B
022882,000296: 04,3326 11206 RECYCLE
022883,000297:
022884,000298: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022885,000299:
022886,000300: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022887,000301: # MOD BY RUDNICKI.S DATE 25JAN68
022888,000302:
022889,000303: # FUNCTIONAL DESCRIPTION
022890,000304:
022891,000305: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022892,000306: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
|
|
Page 521 |
022894,000308: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022895,000309: # THE SOR MANEUVER
022896,000310:
022897,000311: # CALLING SEQUENCE
022898,000312:
022899,000313: # ASTRONAUT REQUEST THRU DSKY
022900,000314:
022901,000315: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022902,000316: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022903,000317:
022904,000318: # INPUT
022905,000319:
022906,000320: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022907,000321: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022908,000322: # SAVED FROM P38/P78
022909,000323:
022910,000324: # OUTPUT
022911,000325:
022912,000326: # (1) TRKMKCNT NUMBER OF MARKS
022913,000327: # (2) TTOGO TIME TO GO
022914,000328: # (3) +MGA MIDDLE GIMBAL ANGLE
022915,000329: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022916,000330:
022917,000331: # SUBROUTINES USED
022918,000332:
022919,000333: # AVFLAGA
022920,000334: # AVFLAGP
022921,000335: # LOADTIME
022922,000336: # SELECTMU
022923,000337: # PRECSET
022924,000338: # S34/35.1
022925,000339: # MAINRTNE
022926,000340:
022927,000341: 04,3327 04555 P39 TC BANKCALL
022928,000342: 04,3330 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022929,000343: 04,3331 00006 EXTEND
022930,000344: 04,3332 31422 DCA ATIGINC
022931,000345: 04,3333 03340 TC P39/P79A
022932,000346: 04,3334 04555 P79 TC BANKCALL
022933,000347: 04,3335 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022934,000348: 04,3336 00006 EXTEND
022935,000349: 04,3337 31424 DCA PTIGINC
022936,000350: 04,3340 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022937,000351: 04,3341 04555 TC BANKCALL
022938,000352: 04,3342 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022939,000353: 04,3343 06006 TC INTPRET
022940,000354: 04,3344 45014 SET CALL
022941,000355: 04,3345 04066 P39/79SW
022942,000356: 04,3346 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022943,000357: 04,3347 43234 P39/P79B RTB DAD
|
|
Page 522 |
022945,000359: 04,3350 45505 LOADTIME
022946,000360: 04,3351 02364 KT
022947,000361: 04,3352 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
022948,000362: 04,3353 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022949,000363: 04,3354 45354 PRECSET # VEHICLES TO TIG
022950,000364: 04,3355 77624 CALL
022951,000365: 04,3356 72522 S34/35.1 # GET UNIT NORMAL
022952,000366: 04,3357 52145 DLOAD GOTO
022953,000367: 04,3360 02615 TARGTIME
022954,000368: 04,3361 11242 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022955,000369:
022956,000370: # .... PREC/TT ....
022957,000371:
022958,000372: # SUBROUTINES USED
022959,000373:
022960,000374: # PRECSET
022961,000375: # TIMETHET
022962,000376: # S34/35.1
022963,000377:
022964,000378: 04,3362 71220 PREC/TT STQ DLOAD
022965,000379: 04,3363 02367 RTRN
022966,000380: 04,3364 03413 TIG
022967,000381: 04,3365 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022968,000382: 04,3366 45354 PRECSET # VEHICLES TO TIG
022969,000383: 04,3367 53775 VLOAD VSR*
022970,000384: 04,3370 03554 RPASS3
022971,000385: 04,3371 57176 0,2
022972,000386: 04,3372 16657 STODL RVEC
022973,000387: 04,3373 03754 CENTANG
022974,000388: 04,3374 71406 PUSH COS
022975,000389: 04,3375 16734 STODL CSTH
022976,000390: 04,3376 43156 SIN SET
022977,000391: 04,3377 03466 RVSW
022978,000392: 04,3400 26732 STOVL SNTH
022979,000393:
022980,000394: 04,3401 03562 VPASS3
022981,000395: 04,3402 77657 VSR*
022982,000396: 04,3403 57176 0,2
022983,000397: 04,3404 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022984,000398: 04,3405 24737 TIMETHET # PASSIVE VEHICLE
022985,000399: 04,3406 77624 CALL
022986,000400: 04,3407 72522 S34/35.1 # GET UNIT NORMAL
022987,000401: 04,3410 52145 DLOAD GOTO
022988,000402: 04,3411 00037 T
022989,000403: 04,3412 02367 RTRN
022990,000404:
022991,000405: # .... INTRPVP ....
022992,000406:
022993,000407: # SUBROUTINES USED
022994,000408:
022995,000409: # CSMPREC
022996,000410: # LEMPREC
022997,000411:
022998,000412: 04,3413 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022999,000413: 04,3414 02367 RTRN # TDEC1
|
|
Page 523 |
023001,000415: 04,3415 01352 AVFLAG
023002,000416: 04,3416 11423 OTHERV
023003,000417: 04,3417 77624 CALL
023004,000418: 04,3420 27022 CSMPREC
023005,000419: 04,3421 77650 GOTO
023006,000420: 04,3422 02367 RTRN
023007,000421: 04,3423 77624 OTHERV CALL
023008,000422: 04,3424 27036 LEMPREC
023009,000423: 04,3425 77650 GOTO
023010,000424: 04,3426 02367 RTRN
023011,000425:
023012,000426: # .... VNDSPLY ....
023013,000427:
023014,000428: # SUBROUTINES USED
023015,000429:
023016,000430: # BANKCALL
023017,000431: # GOFLASH
023018,000432: # GOTOPOOH
023019,000433:
023020,000434: 04,3427 00006 VNDSPLY EXTEND # FLASH DISPLAY
023021,000435: 04,3430 23767 QXCH RTRN
023022,000436: 04,3431 55765 TS VERBNOUN
023023,000437: 04,3432 31765 CA VERBNOUN
023024,000438: 04,3433 04555 TCR BANKCALL
023025,000439: 04,3434 20624 CADR GOFLASH
023026,000440: 04,3435 14106 TCF GOTOPOOH # TERMINATE
023027,000441: 04,3436 01767 TC RTRN # PROCEED
023028,000442: 04,3437 13432 TCF -5 # RECYCLE
023029,000443: 04,3440 01441 V06N33SR VN 0633
023030,000444: 04,3441 01467 V06N55SR VN 0655
023031,000445: 04,3442 01006 V04N06SR VN 0406
023032,000446: 04,3443 01471 V06N57SR VN 0657
023033,000447: 04,3444 01442 V06N34SR VN 0634
023034,000448: 04,3445 01472 V06N58SR VN 0658
023035,000449: 04,3446 01521 V06N81SR VN 0681
023036,000450:
023037,000451:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc