Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

022311,000002:                                                                                                  ## Copyright:   Public domain.
022312,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
022313,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.  
022314,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
022315,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
022316,000007:                                                                                                  ## Assembler:   yaYUL
022317,000008:                                                                                                  ## Contact:     Onno Hommes <ohommes@alumni.cmu.edu>
022318,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
022319,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
022320,000011:                                                                                                  ## Mod history: 2010-06-03 OH   Adapted from corresponding Colossus 249 file.
022321,000012:                                                                                                  ##              2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
022322,000013:                                                                                                  ##              2011-02-06 JL   Minor fixes.
022323,000014:                                                                                                  ##              2016-12-31 RSB  Proofed comment text using octopus/ProoferComments,
022324,000015:                                                                                                  ##                              and corrected errors found.
022325,000016: 

Page 514

022327,000018:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022328,000019: 
022329,000020:                                                                                                  #  MOD NO -1          LOG SECTION - STABLE ORBIT - P38-P39
022330,000021:                                                                                                  #  MOD BY RUDNICKI.S  DATE 25JAN68
022331,000022: 
022332,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION
022333,000024: 
022334,000025:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022335,000026:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022336,000027:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022337,000028:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022338,000029:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022339,000030:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022340,000031:                                                                                                  #        VEHICLES
022341,000032: 
022342,000033:                                                                                                  #  CALLING SEQUENCE
022343,000034: 
022344,000035:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022345,000036: 
022346,000037:                                                                                                  #        V37E38E   IF THIS VEHICLE IS ACTIVE VEHICLE
022347,000038:                                                                                                  #        V37E78E   IF OTHER VEHICLE IS ACTIVE VEHICLE
022348,000039: 
022349,000040:                                                                                                  #  INPUT
022350,000041: 
022351,000042:                                                                                                  #        (1) SOI MANEUVER
022352,000043: 
022353,000044:                                                                                                  #                (A) TIG      TIME OF SOI MANEUVER
022354,000045:                                                                                                  #                (B) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022355,000046:                                                                                                  #                             DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022356,000047:                                                                                                  #                (C) DELTAR   THE DESIRED SEPARATION OF THE TWO VEHICLES
022357,000048:                                                                                                  #                             SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022358,000049:                                                                                                  #                             ORBIT
022359,000050:                                                                                                  #                (D) OPTION   EQUALS 1 FOR SOI
022360,000051: 
022361,000052:                                                                                                  #        (2) SOR MANEUVER
022362,000053: 
022363,000054:                                                                                                  #                (A) TIG      TIME OF SOR MANEUVER
022364,000055:                                                                                                  #                (B) CENTANG  AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022365,000056:                                                                                                  #                (C) OPTION   EQUALS 2 FOR SOR
022366,000057:                                                                                                  #                (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022367,000058:                                                                                                  #                             TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022368,000059:                                                                                                  #                             VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022369,000060:                                                                                                  #                             SOI PHASE
022370,000061:                                                                                                  #                (E) TINT     TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022371,000062: 
022372,000063:                                                                                                  #  OUTPUT
022373,000064: 
022374,000065:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
022375,000066:                                                                                                  #        (2) TTOGO    TIME TO GO
022376,000067:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE

Page 515

022378,000069:                                                                                                  #        (4) DSPTEM1  TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022379,000070:                                                                                                  #                     (FOR SOI ONLY)
022380,000071:                                                                                                  #        (5) POSTTPI  PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022381,000072:                                                                                                  #                     THE SOI (SOR) MANEUVER
022382,000073:                                                                                                  #        (6) DELVTPI  MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022383,000074:                                                                                                  #        (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT TIME
022384,000075:                                                                                                  #        (8) DELVLVC  DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022385,000076:                                                                                                  #                     COORDINATES
022386,000077: 
022387,000078:                                                                                                  #  SUBROUTINES USED
022388,000079: 
022389,000080:                                                                                                  #        AVFLAGA
022390,000081:                                                                                                  #        AVFLAGP
022391,000082:                                                                                                  #        VNDSPLY
022392,000083:                                                                                                  #        BANKCALL
022393,000084:                                                                                                  #        GOFLASHR
022394,000085:                                                                                                  #        GOTOPOOH
022395,000086:                                                                                                  #        BLANKET
022396,000087:                                                                                                  #        ENDOFJOB
022397,000088:                                                                                                  #        PREC/TT
022398,000089:                                                                                                  #        SELECTMU
022399,000090:                                                                                                  #        INTRPVP
022400,000091:                                                                                                  #        MAINRTNE
022401,000092: 
022402,000093: 04,3103                                           BANK     04                                    
022403,000094: 04,2000                                           SETLOC   STBLEORB                              
022404,000095: 04,2000                                           BANK                                           
022405,000096: 
022406,000097: 04,3103  E4,1770                                  EBANK=   SUBEXIT                               
022407,000098: 04,3103                                           COUNT*   $$/P3879                              
022408,000099: 
022409,000100: 04,3103           04555        P38                TC       BANKCALL                              
022410,000101: 04,3104           73726                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022411,000102: 04,3105           03110                           TC       +3                                    
022412,000103: 04,3106           04555        P78                TC       BANKCALL                              
022413,000104: 04,3107           73741                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022414,000105: 04,3110           04555                           TC       BANKCALL                              
022415,000106: 04,3111           73746                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022416,000107: 04,3112           33435                           CAF      V06N33SR                              #  DISPLAY TIG
022417,000108: 04,3113           03424                           TC       VNDSPLY                               
022418,000109: 04,3114           33436                           CAF      V06N55SR                              #  DISPLAY CENTANG
022419,000110: 04,3115           04555                           TCR      BANKCALL                              
022420,000111: 04,3116           20763                           CADR     GOFLASHR                              
022421,000112: 04,3117           14106                           TCF      GOTOPOOH                              #  TERMINATE
022422,000113: 04,3120           13125                           TCF      +5                                    #  PROCEED
022423,000114: 04,3121           13114                           TCF      -5                                    #  RECYCLE
022424,000115: 04,3122           36214                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022425,000116: 04,3123           05415                           TCR      BLANKET                               
022426,000117: 04,3124           15112                           TCF      ENDOFJOB                              
022427,000118: 04,3125           34715                           CAF      FIVE                                  

Page 516

022429,000120: 04,3126           55131                           TS       OPTION1                               
022430,000121: 04,3127           34712                           CAF      ONE                                   
022431,000122: 04,3130           55132                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
022432,000123: 04,3131           33437                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
022433,000124: 04,3132           04555                           TCR      BANKCALL                              
022434,000125: 04,3133           20763                           CADR     GOFLASHR                              
022435,000126: 04,3134           14106                           TCF      GOTOPOOH                              #  TERMINATE
022436,000127: 04,3135           13142                           TCF      +5                                    #  PROCEED
022437,000128: 04,3136           13131                           TCF      -5                                    #  RECYCLE
022438,000129: 04,3137           34710                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022439,000130: 04,3140           05415                           TCR      BLANKET                               
022440,000131: 04,3141           15112                           TCF      ENDOFJOB                              
022441,000132: 04,3142           06006                           TC       INTPRET                               
022442,000133: 04,3143           70535                           SLOAD    SR1                                   
022443,000134: 04,3144           01133                                    OPTION2                               
022444,000135: 04,3145           71230                           BHIZ     DLOAD                                 
022445,000136: 04,3146           11154                                    OPTN1                                 
022446,000137: 04,3147           03656                                    TINT                                  
022447,000138: 04,3150           02611                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
022448,000139: 04,3151           77614                           CLRGO                                          
022449,000140: 04,3152           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
022450,000141: 04,3153           11200                                    JUNCTN1                               
022451,000142: 04,3154           45014        OPTN1              SET      CALL                                  #  SOI
022452,000143: 04,3155           01070                                    OPTNSW                                
022453,000144: 04,3156           11357                                    PREC/TT                               
022454,000145: 04,3157           77615                           DAD                                            
022455,000146: 04,3160           03413                                    TIG                                   
022456,000147: 04,3161           03656                           STORE    TINT                                  #  TI = TIG + TF
022457,000148: 04,3162           01046                           STORE    DSPTEM1                               #  FOR DISPLAY
022458,000149: 04,3163           77776                           EXIT                                           
022459,000150: 04,3164           33440                           CAF      V06N57SR                              #  DISPLAY DELTA R
022460,000151: 04,3165           04555                           TCR      BANKCALL                              
022461,000152: 04,3166           20763                           CADR     GOFLASHR                              
022462,000153: 04,3167           14106                           TCF      GOTOPOOH                              #  TERMINATE
022463,000154: 04,3170           13175                           TCF      +5                                    #  PROCEED
022464,000155: 04,3171           13164                           TCF      -5                                    #  RECYCLE
022465,000156: 04,3172           36211                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022466,000157: 04,3173           05415                           TCR      BLANKET                               
022467,000158: 04,3174           15112                           TCF      ENDOFJOB                              
022468,000159: 04,3175           33441                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022469,000160: 04,3176           03424                           TC       VNDSPLY                               
022470,000161: 04,3177           06006                           TC       INTPRET                               
022471,000162: 04,3200           45014        JUNCTN1            CLEAR    CALL                                  
022472,000163: 04,3201           04266                                    P39/79SW                              
022473,000164: 04,3202           10716                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022474,000165: 04,3203           77624        RECYCLE            CALL                                           
022475,000166: 04,3204           11357                                    PREC/TT                               
022476,000167: 04,3205           71214                           BOFF     DLOAD                                 
022477,000168: 04,3206           01350                                    OPTNSW                                
022478,000169: 04,3207           11227                                    OPTN2                                 

Page 517

022480,000171: 04,3210           03656                                    TINT                                  
022481,000172: 04,3211           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022482,000173: 04,3212           11410                                    INTRPVP                               #     INTERCEPT TIME
022483,000174: 04,3213           53575                           VLOAD    UNIT                                  
022484,000175: 04,3214           00001                                    RATT                                  #  RP/(RP)
022485,000176: 04,3215           47315                           PDVL     VXV                                   
022486,000177: 04,3216           00007                                    VATT                                  
022487,000178: 04,3217           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
022488,000179: 04,3220           00047                                    X1                                    
022489,000180: 04,3221           56325                           PDDL     DDV                                   
022490,000181: 04,3222           02611                                    DELTAR                                
022491,000182: 04,3223           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
022492,000183: 04,3224           20172                                    0          -7,1                       
022493,000184: 04,3225           36613                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022494,000185: 04,3226           11233                                    JUNCTN2                               
022495,000186: 04,3227           43345        OPTN2              DLOAD    DAD                                   
022496,000187: 04,3230           02611                                    TINTSOI                               
022497,000188: 04,3231           00037                                    T                                     
022498,000189: 04,3232           03656                           STORE    TINT                                  #  TI = TI + TF
022499,000190: 04,3233           45345        JUNCTN2            DLOAD    DSU                                   
022500,000191: 04,3234           03656                                    TINT                                  
022501,000192: 04,3235           02613                                    DELTTIME                              
022502,000193: 04,3236           02615                           STORE    TARGTIME                              #  TT = TI - DELTA T
022503,000194:                                                                                                  #  .... MAINRTNE ....
022504,000195:                                                                                                  #  SUBROUTINES USED
022505,000196: 
022506,000197:                                                                                                  #        S3435.25
022507,000198:                                                                                                  #        PERIAPO1
022508,000199:                                                                                                  #        SHIFTR1
022509,000200:                                                                                                  #        VNDSPLY
022510,000201:                                                                                                  #        BANKCALL
022511,000202:                                                                                                  #        GOFLASH
022512,000203:                                                                                                  #        GOTOPOOH
022513,000204:                                                                                                  #        VN1645
022514,000205: 
022515,000206: 04,3237           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022516,000207: 04,3240           11410                                    INTRPVP                               #     TARGET TIME
022517,000208: 04,3241           77745                           DLOAD                                          
022518,000209: 04,3242           03413                                    TIG                                   
022519,000210: 04,3243           03503                           STORE    INTIME                                
022520,000211: 04,3244           77331                           SSP      VLOAD                                 
022521,000212: 04,3245           02371                                    SUBEXIT                               
022522,000213: 04,3246           11252                                    TEST3979                              
022523,000214: 04,3247           00001                                    RATT                                  
022524,000215: 04,3250           77624                           CALL                                           
022525,000216: 04,3251           72547                                    S3435.25                              
022526,000217: 04,3252           43014        TEST3979           BOFF     BON                                   
022527,000218: 04,3253           04346                                    P39/79SW                              
022528,000219: 04,3254           11263                                    MAINRTN1                              
022529,000220: 04,3255           01311                                    FINALFLG                              

Page 518

022531,000222: 04,3256           11261                                    P39P79                                
022532,000223: 04,3257           77614                           SET                                            
022533,000224: 04,3260           00470                                    UPDATFLG                              
022534,000225: 04,3261           77776        P39P79             EXIT                                           
022535,000226: 04,3262           03310                           TC       DSPLY81                               #  FOR P39 AND P79
022536,000227: 04,3263           51575        MAINRTN1           VLOAD    ABVAL                                 
022537,000228: 04,3264           03646                                    DELVEET3                              
022538,000229: 04,3265           26635                           STOVL    DELVTPI                               #  DELTA V
022539,000230: 04,3266           03640                                    VPASS4                                
022540,000231: 04,3267           51451                           VSU      ABVAL                                 
022541,000232: 04,3270           03620                                    VTPRIME                               
022542,000233: 04,3271           26637                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022543,000234: 04,3272           03540                                    RACT3                                 
022544,000235: 04,3273           45115                           PDVL     CALL                                  
022545,000236: 04,3274           03612                                    VIPRIME                               
022546,000237: 04,3275           45312                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
022547,000238: 04,3276           77624                           CALL                                           
022548,000239: 04,3277           45422                                    SHIFTR1                               
022549,000240: 04,3300           02641                           STORE    POSTTPI                               
022550,000241: 04,3301           43014                           BON      SET                                   
022551,000242: 04,3302           01311                                    FINALFLG                              
022552,000243: 04,3303           11305                                    DSPLY58                               
022553,000244: 04,3304           00470                                    UPDATFLG                              
022554,000245: 04,3305           77776        DSPLY58            EXIT                                           
022555,000246: 04,3306           33442                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022556,000247: 04,3307           03424                           TC       VNDSPLY                               
022557,000248: 04,3310           33443        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022558,000249: 04,3311           03424                           TC       VNDSPLY                               
022559,000250: 04,3312           06006                           TC       INTPRET                               
022560,000251: 04,3313           77214                           CLEAR    VLOAD                                 
022561,000252: 04,3314           01267                                    XDELVFLG                              
022562,000253: 04,3315           03646                                    DELVEET3                              
022563,000254: 04,3316           37646                           STCALL   DELVSIN                               
022564,000255: 04,3317           73005                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022565,000256: 04,3320           52014                           BON      GOTO                                  
022566,000257: 04,3321           04306                                    P39/79SW                              
022567,000258: 04,3322           11344                                    P39/P79B                              
022568,000259: 04,3323           11203                                    RECYCLE                               
022569,000260:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022570,000261: 
022571,000262:                                                                                                  #  MOD NO -1          LOG SECTION - STABLE ORBIT - P38-P39
022572,000263:                                                                                                  #  MOD BY RUDNICKI.S  DATE 25JAN68
022573,000264: 
022574,000265:                                                                                                  #  FUNCTIONAL DESCRIPTION
022575,000266: 
022576,000267:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022577,000268:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022578,000269:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022579,000270:                                                                                                  #        THE SOR MANEUVER
022580,000271: 

Page 519

022582,000273:                                                                                                  #  CALLING SEQUENCE
022583,000274: 
022584,000275:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
022585,000276: 
022586,000277:                                                                                                  #        V37E39E   IF THIS VEHICLE IS ACTIVE VEHICLE
022587,000278:                                                                                                  #        V37E79E   IF OTHER VEHICLE IS ACTIVE VEHICLE
022588,000279: 
022589,000280:                                                                                                  #  INPUT
022590,000281: 
022591,000282:                                                                                                  #        (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P38/P78
022592,000283:                                                                                                  #        (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022593,000284:                                                                                                  #                     SAVED FROM P38/P78
022594,000285: 
022595,000286:                                                                                                  #  OUTPUT
022596,000287: 
022597,000288:                                                                                                  #        (1) TRKMKCNT NUMBER OF MARKS
022598,000289:                                                                                                  #        (2) TTOGO    TIME TO GO
022599,000290:                                                                                                  #        (3) +MGA     MIDDLE GIMBAL ANGLE
022600,000291:                                                                                                  #        (4) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022601,000292: 
022602,000293:                                                                                                  #  SUBROUTINES USED
022603,000294: 
022604,000295:                                                                                                  #        AVFLAGA
022605,000296:                                                                                                  #        AVFLAGP
022606,000297:                                                                                                  #        LOADTIME
022607,000298:                                                                                                  #        SELECTMU
022608,000299:                                                                                                  #        PRECSET
022609,000300:                                                                                                  #        S34/35.1
022610,000301:                                                                                                  #        MAINRTNE
022611,000302: 
022612,000303: 04,3324           04555        P39                TC       BANKCALL                              
022613,000304: 04,3325           73726                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022614,000305: 04,3326           00006                           EXTEND                                         
022615,000306: 04,3327           31422                           DCA      ATIGINC                               
022616,000307: 04,3330           03335                           TC       P39/P79A                              
022617,000308: 04,3331           04555        P79                TC       BANKCALL                              
022618,000309: 04,3332           73741                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022619,000310: 04,3333           00006                           EXTEND                                         
022620,000311: 04,3334           31424                           DCA      PTIGINC                               
022621,000312: 04,3335           53764        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022622,000313: 04,3336           04555                           TC       BANKCALL                              
022623,000314: 04,3337           73746                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022624,000315: 04,3340           06006                           TC       INTPRET                               
022625,000316: 04,3341           45014                           SET      CALL                                  
022626,000317: 04,3342           04066                                    P39/79SW                              
022627,000318: 04,3343           10716                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022628,000319: 04,3344           43234        P39/P79B           RTB      DAD                                   
022629,000320: 04,3345           45505                                    LOADTIME                              
022630,000321: 04,3346           02364                                    KT                                    
022631,000322: 04,3347           03413                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME

Page 520

022633,000324: 04,3350           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022634,000325: 04,3351           45354                                    PRECSET                               #     VEHICLES TO TIG
022635,000326: 04,3352           77624                           CALL                                           
022636,000327: 04,3353           72522                                    S34/35.1                              #  GET UNIT NORMAL
022637,000328: 04,3354           52145                           DLOAD    GOTO                                  
022638,000329: 04,3355           02615                                    TARGTIME                              
022639,000330: 04,3356           11237                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022640,000331:                                                                                                  #  .... PREC/TT ....
022641,000332:                                                                                                  #  SUBROUTINES USED
022642,000333: 
022643,000334:                                                                                                  #        PRECSET
022644,000335:                                                                                                  #        TIMETHET
022645,000336:                                                                                                  #        S34/35.1
022646,000337: 
022647,000338: 04,3357           71220        PREC/TT            STQ      DLOAD                                 
022648,000339: 04,3360           02367                                    RTRN                                  
022649,000340: 04,3361           03413                                    TIG                                   
022650,000341: 04,3362           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022651,000342: 04,3363           45354                                    PRECSET                               #     VEHICLES TO TIG
022652,000343: 04,3364           53775                           VLOAD    VSR*                                  
022653,000344: 04,3365           03554                                    RPASS3                                
022654,000345: 04,3366           57176                                    0,2                                   
022655,000346: 04,3367           16657                           STODL    RVEC                                  
022656,000347: 04,3370           03754                                    CENTANG                               
022657,000348: 04,3371           71406                           PUSH     COS                                   
022658,000349: 04,3372           16734                           STODL    CSTH                                  
022659,000350: 04,3373           43156                           SIN      SET                                   
022660,000351: 04,3374           03466                                    RVSW                                  
022661,000352: 04,3375           26732                           STOVL    SNTH                                  
022662,000353: 04,3376           03562                                    VPASS3                                
022663,000354: 04,3377           77657                           VSR*                                           
022664,000355: 04,3400           57176                                    0,2                                   
022665,000356: 04,3401           36746                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022666,000357: 04,3402           24737                                    TIMETHET                              #     PASSIVE VEHICLE
022667,000358: 04,3403           77624                           CALL                                           
022668,000359: 04,3404           72522                                    S34/35.1                              #  GET UNIT NORMAL
022669,000360: 04,3405           52145                           DLOAD    GOTO                                  
022670,000361: 04,3406           00037                                    T                                     
022671,000362: 04,3407           02367                                    RTRN                                  
022672,000363:                                                                                                  #  .... INTRPVP ....
022673,000364:                                                                                                  #  SUBROUTINES USED
022674,000365: 
022675,000366:                                                                                                  #        CSMPREC
022676,000367:                                                                                                  #        LEMPREC
022677,000368: 
022678,000369: 04,3410           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022679,000370: 04,3411           02367                                    RTRN                                  #     TDEC1
022680,000371: 04,3412           01352                                    AVFLAG                                
022681,000372: 04,3413           11420                                    OTHERV                                
022682,000373: 04,3414           77624                           CALL                                           

Page 521

022684,000375: 04,3415           27022                                    CSMPREC                               
022685,000376: 04,3416           77650                           GOTO                                           
022686,000377: 04,3417           02367                                    RTRN                                  
022687,000378: 04,3420           77624        OTHERV             CALL                                           
022688,000379: 04,3421           27036                                    LEMPREC                               
022689,000380: 04,3422           77650                           GOTO                                           
022690,000381: 04,3423           02367                                    RTRN                                  
022691,000382:                                                                                                  #  .... VNDSPLY ....
022692,000383:                                                                                                  #  SUBROUTINES USED
022693,000384: 
022694,000385:                                                                                                  #        BANKCALL
022695,000386:                                                                                                  #        GOFLASH
022696,000387:                                                                                                  #        GOTOPOOH
022697,000388: 
022698,000389: 04,3424           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
022699,000390: 04,3425           23767                           QXCH     RTRN                                  
022700,000391: 04,3426           55765                           TS       VERBNOUN                              
022701,000392: 04,3427           31765                           CA       VERBNOUN                              
022702,000393: 04,3430           04555                           TCR      BANKCALL                              
022703,000394: 04,3431           20624                           CADR     GOFLASH                               
022704,000395: 04,3432           14106                           TCF      GOTOPOOH                              #  TERMINATE
022705,000396: 04,3433           01767                           TC       RTRN                                  #  PROCEED
022706,000397: 04,3434           13427                           TCF      -5                                    #  RECYCLE
022707,000398: 04,3435           01441        V06N33SR           VN       0633                                  
022708,000399: 04,3436           01467        V06N55SR           VN       0655                                  
022709,000400: 04,3437           01006        V04N06SR           VN       0406                                  
022710,000401: 04,3440           01471        V06N57SR           VN       0657                                  
022711,000402: 04,3441           01442        V06N34SR           VN       0634                                  
022712,000403: 04,3442           01472        V06N58SR           VN       0658                                  
022713,000404: 04,3443           01521        V06N81SR           VN       0681                                  

End of include-file STABLE_ORBIT_-_P38-P39.agc.  Parent file is MAIN.agc