Source Code
![]() |
These source-code 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. |
022307,000002: ## Copyright: Public domain.
022308,000003: ## Filename: STABLE_ORBIT.agc
022309,000004: ## Purpose: Part of the source code for Colossus, build 249.
022310,000005: ## It is part of the source code for the Command Module's (CM)
022311,000006: ## Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9.
022312,000007: ## Assembler: yaYUL
022313,000008: ## Reference: pp. 518-527 of 1701.pdf.
022314,000009: ## Contact: Ron Burkey <info@sandroid.org>.
022315,000010: ## Website: www.ibiblio.org/apollo.
022316,000011: ## Mod history: 08/12/04 RSB. Began transcribing.
022317,000012: ##
022318,000013: ## The contents of the "Colossus249" files, in general, are transcribed
022319,000014: ## from a scanned document obtained from MIT's website,
022320,000015: ## http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this
022321,000016: ## document read, in part:
022322,000017: ##
022323,000018: ## Assemble revision 249 of AGC program Colossus by NASA
022324,000019: ## 2021111-041. October 28, 1968.
022325,000020: ##
022326,000021: ## This AGC program shall also be referred to as
022327,000022: ## Colossus 1A
022328,000023: ##
022329,000024: ## Prepared by
022330,000025: ## Massachusetts Institute of Technology
022331,000026: ## 75 Cambridge Parkway
022332,000027: ## Cambridge, Massachusetts
022333,000028: ## under NASA contract NAS 9-4065.
022334,000029: ##
022335,000030: ## Refer directly to the online document mentioned above for further information.
022336,000031: ## Please report any errors (relative to 1701.pdf) to info@sandroid.org.
022337,000032: ##
022338,000033: ## In some cases, where the source code for Luminary 131 overlaps that of
022339,000034: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
022340,000035: ## source file, and then is proofed to incorporate any changes.
022341,000036:
![]() |
Page 518 |
022343,000038: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022344,000039:
022345,000040: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
022346,000041: # MOD BY RUDNICKI.S DATE 26JAN68
022347,000042:
022348,000043: # FUNCTIONAL DESCRIPTION
022349,000044:
022350,000045: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022351,000046: # CONDITIONS REQUIRED BY TEH AGC TO (1) PUT THE ACTIVE VEHICLE
022352,000047: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022353,000048: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022354,000049: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022355,000050: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022356,000051: # VEHICLES
022357,000052:
022358,000053: # CALLING SEQUENCE
022359,000054:
022360,000055: # ASTRONAUT REQUEST THRU DSKY
022361,000056:
022362,000057: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022363,000058: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022364,000059:
022365,000060: # INPUT
022366,000061:
022367,000062: # (1) SOI MANEUVER
022368,000063:
022369,000064: # (A) TIG TIME OF SOI MANEUVER
022370,000065: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022371,000066: # DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
022372,000067: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022373,000068: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022374,000069: # ORBIT
022375,000070: # (D) OPTION EQUALS 1 FOR SOI
022376,000071:
022377,000072: # (2) SOR MANEUVER
022378,000073:
022379,000074: # (A) TIG TIME OF SOR MANEUVER
022380,000075: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022381,000076: # (C) OPTION EQUALS -2 FOR SOR
022382,000077: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022383,000078: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022384,000079: # VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
022385,000080: # SOI PHASE
022386,000081: # (E) TINT TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
022387,000082:
022388,000083: # OUTPUT
022389,000084:
022390,000085: # (1) TRKMKCNT NUMBER OF MARKS
022391,000086: # (2) TTOGO TIME TO GO
022392,000087: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 519 |
022394,000089: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022395,000090: # (FOR SOI ONLY)
022396,000091: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022397,000092: # THE SOI (SOR) MANEUVER
022398,000093: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022399,000094: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022400,000095: # (8) DELTA VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
022401,000096: # CORDINATES
022402,000097:
022403,000098: # SUBROUTINE USED
022404,000099:
022405,000100: # AVFLAGA
022406,000101: # AVFLAGP
022407,000102: # VNDSPLY
022408,000103: # BANKCALL
022409,000104: # GOFLASHR
022410,000105: # GOTOP00H
022411,000106: # BLANKET
022412,000107: # ENDOFJOB
022413,000108: # PREC/TT
022414,000109: # SELECTMU
022415,000110: # INTRPVP
022416,000111: # MAINRTNE
022417,000112:
022418,000113: 04,3103 BANK 04
022419,000114: 04,2000 SETLOC STBLEORB
022420,000115: 04,2000 BANK
022421,000116:
022422,000117: 04,3103 E4,1770 EBANK= SUBEXIT
022423,000118: 04,3103 COUNT* $$/P3879
022424,000119:
022425,000120: 04,3103 04555 P38 TC BANKCALL
022426,000121: 04,3104 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022427,000122: 04,3105 03110 TC +3
022428,000123: 04,3106 04555 P78 TC BANKCALL
022429,000124: 04,3107 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022430,000125: 04,3110 04555 TC BANKCALL
022431,000126: 04,3111 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022432,000127: 04,3112 33440 CAF V06N33SR # DISPLAY TIG
022433,000128: 04,3113 03427 TC VNDSPLY
022434,000129: 04,3114 33441 CAF V06N55SR # DISPLAY CENTANG
022435,000130: 04,3115 04555 TCR BANKCALL
022436,000131: 04,3116 20763 CADR GOFLASHR
022437,000132: 04,3117 14106 TCF GOTOP00H # TERMINATE
022438,000133: 04,3120 13125 TCF +5 # PROCEED
022439,000134: 04,3121 13114 TCF -5 # RECYCLE
022440,000135: 04,3122 36214 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
022441,000136: 04,3123 05415 TCR BLANKET
022442,000137: 04,3124 15112 TCF ENDOFJOB
022443,000138: 04,3125 34715 CAF FIVE
![]() |
Page 520 |
022445,000140: 04,3126 55131 TS OPTION1
022446,000141: 04,3127 34712 CAF ONE
022447,000142: 04,3130 55132 TS OPTION2 # OPTION CODE IS SET TO 1
022448,000143: 04,3131 33442 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022449,000144: 04,3132 04555 TCR BANKCALL
022450,000145: 04,3133 20763 CADR GOFLASHR
022451,000146: 04,3134 14106 TCF GOTOP00H # TERMINATE
022452,000147: 04,3135 13142 TCF +5 # PROCEED
022453,000148: 04,3136 13131 TCF -5 # RECYCLE
022454,000149: 04,3137 34710 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
022455,000150: 04,3140 05415 TCR BLANKET
022456,000151: 04,3141 15112 TCF ENDOFJOB
022457,000152: 04,3142 06006 TC INTPRET
022458,000153: 04,3143 70535 SLOAD SR1
022459,000154: 04,3144 01133 OPTION2
022460,000155: 04,3145 71230 BHIZ DLOAD
022461,000156: 04,3146 11154 OPTN1
022462,000157: 04,3147 03656 TINT
022463,000158: 04,3150 02611 STORE TINTSOI # STORE FOR SOR PHASE
022464,000159: 04,3151 77614 CLRGO
022465,000160: 04,3152 01230 OPTNSW # OPTNSW
![]() |
Page 521 |
022467,000162: 04,3153 11203 JUNCTN1
022468,000163: 04,3154 43014 OPTN1 SET CLEAR # SOI
022469,000164: 04,3155 01070 OPTNSW
022470,000165: 04,3156 00670 UPDATFLG
022471,000166: 04,3157 77624 CALL
022472,000167: 04,3160 11362 PREC/TT
022473,000168: 04,3161 43214 SET DAD
022474,000169: 04,3162 00470 UPDATFLG
022475,000170: 04,3163 03413 TIG
022476,000171: 04,3164 03656 STORE TINT # TI = TIG + TF
022477,000172: 04,3165 01046 STORE DSPTEM1 # FOR DISPLAY
022478,000173: 04,3166 77776 EXIT
022479,000174: 04,3167 33443 CAF V06N57SR # DISPLAY DELTA R
022480,000175: 04,3170 04555 TCR BANKCALL
022481,000176: 04,3171 20763 CADR GOFLASHR
022482,000177: 04,3172 14106 TCF GOTOP00H # TERMINATE
022483,000178: 04,3173 13200 TCF +5 # PROCEED
022484,000179: 04,3174 13167 TCF -5 # RECYCLE
022485,000180: 04,3175 36211 CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
022486,000181: 04,3176 05415 TCR BLANKET
022487,000182: 04,3177 15112 TCF ENDOFJOB
022488,000183: 04,3200 33444 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022489,000184: 04,3201 03427 TC VNDSPLY
022490,000185: 04,3202 06006 TC INTPRET
022491,000186: 04,3203 45014 JUNCTN1 CLEAR CALL
022492,000187: 04,3204 04266 P39/79SW
022493,000188: 04,3205 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022494,000189: 04,3206 77624 RECYCLE CALL
022495,000190: 04,3207 11362 PREC/TT
![]() |
Page 522 |
022497,000192: # This page of 1701.pdf is blank --- RSB 2004
022498,000193:
![]() |
Page 523 |
022500,000195: 04,3210 71214 BOFF DLOAD
022501,000196: 04,3211 01350 OPTNSW
022502,000197: 04,3212 11232 OPTN2
022503,000198: 04,3213 03656 TINT
022504,000199: 04,3214 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022505,000200: 04,3215 11413 INTRPVP # INTERCEPT TIME
022506,000201: 04,3216 53575 VLOAD UNIT
022507,000202: 04,3217 00001 RATT # RP/(RP)
022508,000203: 04,3220 47315 PDVL VXV
022509,000204: 04,3221 00007 VATT
022510,000205: 04,3222 60246 ABVAL NORM # (VP X RP/(RP))
022511,000206: 04,3223 00047 X1
022512,000207: 04,3224 56325 PDDL DDV
022513,000208: 04,3225 02611 DELTAR
022514,000209: 04,3226 77657 SL* # DELTA R / (VP X RP/RP)
022515,000210: 04,3227 20172 0 -7,1
022516,000211: 04,3230 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022517,000212: 04,3231 11236 JUNCTN2
022518,000213: 04,3232 43345 OPTN2 DLOAD DAD
022519,000214: 04,3233 02611 TINTSOI
022520,000215: 04,3234 00037 T
022521,000216: 04,3235 03656 STORE TINT # TI = TI + TF
022522,000217: 04,3236 45345 JUNCTN2 DLOAD DSU
022523,000218: 04,3237 03656 TINT
022524,000219: 04,3240 02613 DELTTIME
022525,000220: 04,3241 02615 STORE TARGTIME # TT = TI - DELTA T
022526,000221:
022527,000222: # .... MAINRTNE ....
022528,000223:
022529,000224: # SUBROUTINES USED:
022530,000225:
022531,000226: # S3435.25
022532,000227: # PERIAPO1
022533,000228: # SHIFTR1
022534,000229: # VNDSPLY
022535,000230: # BANKCALL
022536,000231: # GOFLASH
022537,000232: # GOTOP00H
022538,000233: # VN1645
022539,000234:
022540,000235: 04,3242 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022541,000236: 04,3243 11413 INTRPVP # TARGET TIME
022542,000237: 04,3244 77745 DLOAD
022543,000238: 04,3245 03413 TIG
022544,000239: 04,3246 03503 STORE INTIME
022545,000240: 04,3247 77331 SSP VLOAD
022546,000241: 04,3250 02371 SUBEXIT
022547,000242: 04,3251 11255 TEST3979
022548,000243: 04,3252 00001 RATT
022549,000244: 04,3253 77624 CALL
022550,000245: 04,3254 72547 S3435.25
022551,000246: 04,3255 43014 TEST3979 BOFF BON
022552,000247:
![]() |
Page 524 |
022554,000249: 04,3256 04346 P39/79SW
022555,000250: 04,3257 11266 MAINRTN1
022556,000251: 04,3260 01311 FINALFLG
022557,000252: 04,3261 11264 P39P79
022558,000253: 04,3262 77614 SET
022559,000254: 04,3263 00470 UPDATFLG
022560,000255: 04,3264 77776 P39P79 EXIT
022561,000256: 04,3265 03313 TC DSPLY81 # FOR P39 AND P79
022562,000257: 04,3266 51575 MAINRTN1 VLOAD ABVAL
022563,000258: 04,3267 03646 DELVEET3
022564,000259: 04,3270 26635 STOVL DELVTPI # DELTA V
022565,000260: 04,3271 03640 VPASS4
022566,000261: 04,3272 51451 VSU ABVAL
022567,000262: 04,3273 03620 VTPRIME
022568,000263: 04,3274 26637 STOVL DELVTPF # DELTA V (FINAL) = V-T - VT
022569,000264: 04,3275 03540 RACT3
022570,000265: 04,3276 45115 PDVL CALL
022571,000266: 04,3277 03612 VIPRIME
022572,000267: 04,3300 45312 PERIAPO1 # GET PERIGEE ALTITUDE
022573,000268: 04,3301 77624 CALL
022574,000269: 04,3302 45422 SHIFTR1
022575,000270: 04,3303 02641 STORE POSTTPI
022576,000271: 04,3304 43014 BON SET
022577,000272: 04,3305 01311 FINALFLG
022578,000273: 04,3306 11310 DSPLY58
022579,000274: 04,3307 00470 UPDATFLG
022580,000275: 04,3310 77776 DSPLY58 EXIT
022581,000276: 04,3311 33445 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022582,000277: 04,3312 03427 TC VNDSPLY
022583,000278: 04,3313 33446 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022584,000279: 04,3314 03427 TC VNDSPLY
022585,000280: 04,3315 06006 TC INTPRET
022586,000281: 04,3316 77214 CLEAR VLOAD
022587,000282: 04,3317 01267 XDELVFLG
022588,000283: 04,3320 03646 DELVEET3
022589,000284: 04,3321 37646 STCALL DELVSIN
022590,000285: 04,3322 73005 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022591,000286: 04,3323 52014 BON GOTO
022592,000287: 04,3324 04306 P39/79SW
022593,000288: 04,3325 11347 P39/P79B
022594,000289: 04,3326 11206 RECYCLE
022595,000290:
022596,000291: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022597,000292:
022598,000293: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
022599,000294: # MOD BY RUDNICKI, S DATE 25JAN68
022600,000295:
022601,000296: # FUNCTIONAL DESCRIPTION
022602,000297:
022603,000298: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022604,000299: # CONDITIONS REQUIRED BY TEH AGC TO MAKE A MIDCOURSE CORRECTION
![]() |
Page 525 |
022606,000301: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022607,000302: # THE SOR MANEUVER.
022608,000303:
022609,000304: # CALLING SEQUENCE
022610,000305:
022611,000306: # ASTRONAUT REQUEST THRU DSKY
022612,000307:
022613,000308: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022614,000309: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022615,000310:
022616,000311: # INPUT
022617,000312:
022618,000313: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
022619,000314: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
022620,000315: # SAED FROM P38/P78
022621,000316:
022622,000317: # OUTPUT
022623,000318:
022624,000319: # (1) TRKMKCNT NUMBER OF MARKS.
022625,000320: # (2) TTOGO TIME TO GO
022626,000321: # (3) +MGA MIDDLE GIMBAL ANGLE
022627,000322: # (4) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES
022628,000323:
022629,000324: # SUBROUTINES USED
022630,000325:
022631,000326: # AVFLAGA
022632,000327: # AVFLAGP
022633,000328: # LOADTIME
022634,000329: # SELECTMU
022635,000330: # PRECSET
022636,000331: # S34/35.1
022637,000332: # MAINRTNE
022638,000333:
022639,000334: 04,3327 04555 P39 TC BANKCALL
022640,000335: 04,3330 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022641,000336: 04,3331 00006 EXTEND
022642,000337: 04,3332 31422 DCA ATIGINC
022643,000338: 04,3333 03340 TC P39/P79A
022644,000339: 04,3334 04555 P79 TC BANKCALL
022645,000340: 04,3335 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022646,000341: 04,3336 00006 EXTEND
022647,000342: 04,3337 31424 DCA PTIGINC
022648,000343: 04,3340 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022649,000344: 04,3341 04555 TC BANKCALL
022650,000345: 04,3342 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022651,000346: 04,3343 06006 TC INTPRET
022652,000347: 04,3344 45014 SET CALL
022653,000348: 04,3345 04066 P39/79SW
022654,000349: 04,3346 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022655,000350: 04,3347 43234 P39/P79B RTB DAD
![]() |
Page 526 |
022657,000352: 04,3350 45505 LOADTIME
022658,000353: 04,3351 02364 KT
022659,000354: 04,3352 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
022660,000355: 04,3353 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022661,000356: 04,3354 45354 PRECSET # VEHICLES TO TIG
022662,000357: 04,3355 77624 CALL
022663,000358: 04,3356 72522 S34/35.1 # GET UNIT NORMAL
022664,000359: 04,3357 52145 DLOAD GOTO
022665,000360: 04,3360 02615 TARGTIME
022666,000361: 04,3361 11242 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022667,000362:
022668,000363: # .... PREC/TT ....
022669,000364:
022670,000365: # SUBROUTINES USED
022671,000366:
022672,000367: # PRECSET
022673,000368: # TIMETHET
022674,000369: # S34/35.1
022675,000370:
022676,000371: 04,3362 71220 PREC/TT STQ DLOAD
022677,000372: 04,3363 02367 RTRN
022678,000373: 04,3364 03413 TIG
022679,000374: 04,3365 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022680,000375: 04,3366 45354 PRECSET # VEHICLES TO TIG
022681,000376: 04,3367 53775 VLOAD VSR*
022682,000377: 04,3370 03554 RPASS3
022683,000378: 04,3371 57176 0,2
022684,000379: 04,3372 16657 STODL RVEC
022685,000380: 04,3373 03754 CENTANG
022686,000381: 04,3374 71406 PUSH COS
022687,000382: 04,3375 16734 STODL CSTH
022688,000383: 04,3376 43156 SIN SET
022689,000384: 04,3377 03466 RVSW
022690,000385: 04,3400 26732 STOVL SNTH
022691,000386:
022692,000387: 04,3401 03562 VPASS3
022693,000388: 04,3402 77657 VSR*
022694,000389: 04,3403 57176 0,2
022695,000390: 04,3404 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022696,000391: 04,3405 24737 TIMETHET # PASSIVE VEHICLE
022697,000392: 04,3406 77624 CALL
022698,000393: 04,3407 72522 S34/35.1 # GET UNIT NORMAL
022699,000394: 04,3410 52145 DLOAD GOTO
022700,000395: 04,3411 00037 T
022701,000396: 04,3412 02367 RTRN
022702,000397:
022703,000398: # .... INTRPVP ....
022704,000399:
022705,000400: # SUBROUTINES USED
022706,000401:
022707,000402: # CSMPREC
022708,000403: # LEMPREC
022709,000404:
022710,000405: 04,3413 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022711,000406: 04,3414 02367 RTRN # TDEC1
![]() |
Page 527 |
022713,000408: 04,3415 01352 AVFLAG
022714,000409: 04,3416 11423 OTHERV
022715,000410: 04,3417 77624 CALL
022716,000411: 04,3420 27022 CSMPREC
022717,000412: 04,3421 77650 GOTO
022718,000413: 04,3422 02367 RTRN
022719,000414: 04,3423 77624 OTHERV CALL
022720,000415: 04,3424 27036 LEMPREC
022721,000416: 04,3425 77650 GOTO
022722,000417: 04,3426 02367 RTRN
022723,000418:
022724,000419: # .... VNDSPLY ....
022725,000420:
022726,000421: # SUBROUTINES USED
022727,000422:
022728,000423: # BANKCALL
022729,000424: # GOFLASH
022730,000425: # GOTOP00H
022731,000426:
022732,000427: 04,3427 00006 VNDSPLY EXTEND # FLASH DISPLAY
022733,000428: 04,3430 23767 QXCH RTRN
022734,000429: 04,3431 55765 TS VERBNOUN
022735,000430: 04,3432 31765 CA VERBNOUN
022736,000431: 04,3433 04555 TCR BANKCALL
022737,000432: 04,3434 20624 CADR GOFLASH
022738,000433: 04,3435 14106 TCF GOTOP00H # TERMINATE
022739,000434: 04,3436 01767 TC RTRN # PROCEED
022740,000435: 04,3437 13432 TCF -5 # RECYCLE
022741,000436: 04,3440 01441 V06N33SR VN 0633
022742,000437: 04,3441 01467 V06N55SR VN 0655
022743,000438: 04,3442 01006 V04N06SR VN 0406
022744,000439: 04,3443 01471 V06N57SR VN 0657
022745,000440: 04,3444 01442 V06N34SR VN 0634
022746,000441: 04,3445 01472 V06N58SR VN 0658
022747,000442: 04,3446 01521 V06N81SR VN 0681
022748,000443:
022749,000444: # *** END OF SMOOCH .007 ***
022750,000445:
022751,000446:
022752,000447:
End of include-file STABLE_ORBIT.agc. Parent file is MAIN.agc