Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

022194,000002:                                                                                                 #  Copyright:     Public domain.
022195,000003:                                                                                                 #  Filename:      STABLE_ORBIT_-_P38-P39.agc
022196,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
022197,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
022198,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
022199,000007:                                                                                                 #  Assembler:     yaYUL
022200,000008:                                                                                                 #  Contact:       Onno Hommes <ohommes@alumni.cmu.edu>
022201,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
022202,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
022203,000011:                                                                                                 #  Mod history:   2010-06-03 OH   Adapted from corresponding Colossus 249 file.
022204,000012:                                                                                                 #                 2010-12-04 JL   Remove Colossus 249 header comments. Change to double-has page numbers.
022205,000013:                                                                                                 #                 2011-02-06 JL   Minor fixes.
022206,000014: 
022207,000015:                                                                                                 # # Page 514
022208,000016:                                                                                                 #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022209,000017: 
022210,000018:                                                                                                 #  MOD NO -1          LOG SECTION - STABLE ORBIT - P38-P39
022211,000019:                                                                                                 #  MOD BY RUDNICKI.S  DATE 25JAN68
022212,000020: 
022213,000021:                                                                                                 #  FUNCTIONAL DESCRIPTION
022214,000022: 
022215,000023:                                                                                                 #         P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022216,000024:                                                                                                 #         CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022217,000025:                                                                                                 #         ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022218,000026:                                                                                                 #         ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022219,000027:                                                                                                 #         PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022220,000028:                                                                                                 #         PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022221,000029:                                                                                                 #         VEHICLES
022222,000030: 
022223,000031:                                                                                                 #  CALLING SEQUENCE
022224,000032: 
022225,000033:                                                                                                 #         ASTRONAUT REQUEST THRU DSKY
022226,000034: 
022227,000035:                                                                                                 #         V37E38E   IF THIS VEHICLE IS ACTIVE VEHICLE
022228,000036:                                                                                                 #         V37E78E   IF OTHER VEHICLE IS ACTIVE VEHICLE
022229,000037: 
022230,000038:                                                                                                 #  INPUT
022231,000039: 
022232,000040:                                                                                                 #         (1) SOI MANEUVER
022233,000041: 
022234,000042:                                                                                                 #                 (A) TIG      TIME OF SOI MANEUVER
022235,000043:                                                                                                 #                 (B) CENTANG  ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022236,000044:                                                                                                 #                             DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
022237,000045:                                                                                                 #                 (C) DELTAR   THE DESIRED SEPARATION OF THE TWO VEHICLES
022238,000046:                                                                                                 #                             SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022239,000047:                                                                                                 #                             ORBIT
022240,000048:                                                                                                 #                 (D) OPTION   EQUALS 1 FOR SOI
022241,000049: 
022242,000050:                                                                                                 #         (2) SOR MANEUVER
022243,000051: 
022244,000052:                                                                                                 #                 (A) TIG      TIME OF SOR MANEUVER
022245,000053:                                                                                                 #                 (B) CENTANG  AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022246,000054:                                                                                                 #                 (C) OPTION   EQUALS 2 FOR SOR
022247,000055:                                                                                                 #                 (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022248,000056:                                                                                                 #                             TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022249,000057:                                                                                                 #                             VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022250,000058:                                                                                                 #                             SOI PHASE
022251,000059:                                                                                                 #                 (E) TINT     TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022252,000060: 
022253,000061:                                                                                                 #  OUTPUT
022254,000062: 
022255,000063:                                                                                                 #         (1) TRKMKCNT NUMBER OF MARKS
022256,000064:                                                                                                 #         (2) TTOGO    TIME TO GO
022257,000065:                                                                                                 #         (3) +MGA     MIDDLE GIMBAL ANGLE
022258,000066:                                                                                                 # # Page 515
022259,000067:                                                                                                 #         (4) DSPTEM1  TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022260,000068:                                                                                                 #                     (FOR SOI ONLY)
022261,000069:                                                                                                 #         (5) POSTTPI  PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022262,000070:                                                                                                 #                     THE SOI (SOR) MANEUVER
022263,000071:                                                                                                 #         (6) DELVTPI  MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022264,000072:                                                                                                 #         (7) DELVTPF  MAGNITUDE OF DELTA V AT INTERCEPT TIME
022265,000073:                                                                                                 #         (8) DELTA    VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022266,000074:                                                                                                 #                     COORDINATES
022267,000075: 
022268,000076:                                                                                                 #  SUBROUTINE USED
022269,000077: 
022270,000078:                                                                                                 #         AVFLAGA
022271,000079:                                                                                                 #         AVFLAGP
022272,000080:                                                                                                 #         VNDSPLY
022273,000081:                                                                                                 #         BANKCALL
022274,000082:                                                                                                 #         GOFLASHR
022275,000083:                                                                                                 #         GOTOPOOH
022276,000084:                                                                                                 #         BLANKET
022277,000085:                                                                                                 #         ENDOFJOB
022278,000086:                                                                                                 #         PREC/TT
022279,000087:                                                                                                 #         SELECTMU
022280,000088:                                                                                                 #         INTRPVP
022281,000089:                                                                                                 #         MAINRTNE
022282,000090: 
022283,000091: 04,3103                                          BANK     04                                    
022284,000092: 04,2000                                          SETLOC   STBLEORB                              
022285,000093: 04,2000                                          BANK                                           
022286,000094: 
022287,000095: 04,3103  E4,1770                                 EBANK=   SUBEXIT                               
022288,000096: 04,3103                                          COUNT*   $$/P3879                              
022289,000097: 
022290,000098: 04,3103           04555        P38               TC       BANKCALL                              
022291,000099: 04,3104           73726                          CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022292,000100: 04,3105           03110                          TC       +3                                    
022293,000101: 04,3106           04555        P78               TC       BANKCALL                              
022294,000102: 04,3107           73741                          CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022295,000103: 04,3110           04555                          TC       BANKCALL                              
022296,000104: 04,3111           73746                          CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022297,000105: 04,3112           33435                          CAF      V06N33SR                              #  DISPLAY TIG
022298,000106: 04,3113           03424                          TC       VNDSPLY                               
022299,000107: 04,3114           33436                          CAF      V06N55SR                              #  DISPLAY CENTANG
022300,000108: 04,3115           04555                          TCR      BANKCALL                              
022301,000109: 04,3116           20763                          CADR     GOFLASHR                              
022302,000110: 04,3117           14106                          TCF      GOTOPOOH                              #  TERMINATE
022303,000111: 04,3120           13125                          TCF      +5                                    #  PROCEED
022304,000112: 04,3121           13114                          TCF      -5                                    #  RECYCLE
022305,000113: 04,3122           36214                          CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
022306,000114: 04,3123           05415                          TCR      BLANKET                               
022307,000115: 04,3124           15112                          TCF      ENDOFJOB                              
022308,000116: 04,3125           34715                          CAF      FIVE                                  
022309,000117:                                                                                                 # # Page 516
022310,000118: 04,3126           55131                          TS       OPTION1                               
022311,000119: 04,3127           34712                          CAF      ONE                                   
022312,000120: 04,3130           55132                          TS       OPTION2                               #  OPTION CODE IS SET TO 1
022313,000121: 04,3131           33437                          CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
022314,000122: 04,3132           04555                          TCR      BANKCALL                              
022315,000123: 04,3133           20763                          CADR     GOFLASHR                              
022316,000124: 04,3134           14106                          TCF      GOTOPOOH                              #  TERMINATE
022317,000125: 04,3135           13142                          TCF      +5                                    #  PROCEED
022318,000126: 04,3136           13131                          TCF      -5                                    #  RECYCLE
022319,000127: 04,3137           34710                          CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
022320,000128: 04,3140           05415                          TCR      BLANKET                               
022321,000129: 04,3141           15112                          TCF      ENDOFJOB                              
022322,000130: 04,3142           06006                          TC       INTPRET                               
022323,000131: 04,3143           70535                          SLOAD    SR1                                   
022324,000132: 04,3144           01133                                   OPTION2                               
022325,000133: 04,3145           71230                          BHIZ     DLOAD                                 
022326,000134: 04,3146           11154                                   OPTN1                                 
022327,000135: 04,3147           03656                                   TINT                                  
022328,000136: 04,3150           02611                          STORE    TINTSOI                               #  STORE FOR SOR PHASE
022329,000137: 04,3151           77614                          CLRGO                                          
022330,000138: 04,3152           01230                                   OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
022331,000139: 04,3153           11200                                   JUNCTN1                               
022332,000140: 04,3154           45014        OPTN1             SET      CALL                                  #  SOI
022333,000141: 04,3155           01070                                   OPTNSW                                
022334,000142: 04,3156           11357                                   PREC/TT                               
022335,000143: 04,3157           77615                          DAD                                            
022336,000144: 04,3160           03413                                   TIG                                   
022337,000145: 04,3161           03656                          STORE    TINT                                  #  TI = TIG + TF
022338,000146: 04,3162           01046                          STORE    DSPTEM1                               #  FOR DISPLAY
022339,000147: 04,3163           77776                          EXIT                                           
022340,000148: 04,3164           33440                          CAF      V06N57SR                              #  DISPLAY DELTA R
022341,000149: 04,3165           04555                          TCR      BANKCALL                              
022342,000150: 04,3166           20763                          CADR     GOFLASHR                              
022343,000151: 04,3167           14106                          TCF      GOTOPOOH                              #  TERMINATE
022344,000152: 04,3170           13175                          TCF      +5                                    #  PROCEED
022345,000153: 04,3171           13164                          TCF      -5                                    #  RECYCLE
022346,000154: 04,3172           36211                          CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
022347,000155: 04,3173           05415                          TCR      BLANKET                               
022348,000156: 04,3174           15112                          TCF      ENDOFJOB                              
022349,000157: 04,3175           33441                          CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
022350,000158: 04,3176           03424                          TC       VNDSPLY                               
022351,000159: 04,3177           06006                          TC       INTPRET                               
022352,000160: 04,3200           45014        JUNCTN1           CLEAR    CALL                                  
022353,000161: 04,3201           04266                                   P39/79SW                              
022354,000162: 04,3202           10716                                   SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022355,000163: 04,3203           77624        RECYCLE           CALL                                           
022356,000164: 04,3204           11357                                   PREC/TT                               
022357,000165: 04,3205           71214                          BOFF     DLOAD                                 
022358,000166: 04,3206           01350                                   OPTNSW                                
022359,000167: 04,3207           11227                                   OPTN2                                 
022360,000168:                                                                                                 # # Page 517
022361,000169: 04,3210           03656                                   TINT                                  
022362,000170: 04,3211           34041                          STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022363,000171: 04,3212           11410                                   INTRPVP                               #     INTERCEPT TIME
022364,000172: 04,3213           53575                          VLOAD    UNIT                                  
022365,000173: 04,3214           00001                                   RATT                                  #  RP/(RP)
022366,000174: 04,3215           47315                          PDVL     VXV                                   
022367,000175: 04,3216           00007                                   VATT                                  
022368,000176: 04,3217           60246                          ABVAL    NORM                                  #  (VP X RP/(RP))
022369,000177: 04,3220           00047                                   X1                                    
022370,000178: 04,3221           56325                          PDDL     DDV                                   
022371,000179: 04,3222           02611                                   DELTAR                                
022372,000180: 04,3223           77657                          SL*                                            #  DELTA R / (VP X RP/RP)
022373,000181: 04,3224           20172                                   0          -7,1                       
022374,000182: 04,3225           36613                          STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
022375,000183: 04,3226           11233                                   JUNCTN2                               
022376,000184: 04,3227           43345        OPTN2             DLOAD    DAD                                   
022377,000185: 04,3230           02611                                   TINTSOI                               
022378,000186: 04,3231           00037                                   T                                     
022379,000187: 04,3232           03656                          STORE    TINT                                  #  TI = TI + TF
022380,000188: 04,3233           45345        JUNCTN2           DLOAD    DSU                                   
022381,000189: 04,3234           03656                                   TINT                                  
022382,000190: 04,3235           02613                                   DELTTIME                              
022383,000191: 04,3236           02615                          STORE    TARGTIME                              #  TT = TI - DELTA T
022384,000192:                                                                                                 #  .... MAINRTNE ....
022385,000193:                                                                                                 #  SUBROUTINES USED
022386,000194: 
022387,000195:                                                                                                 #         S3435.25
022388,000196:                                                                                                 #         PERIAPO1
022389,000197:                                                                                                 #         SHIFTR1
022390,000198:                                                                                                 #         VNDSPLY
022391,000199:                                                                                                 #         BANKCALL
022392,000200:                                                                                                 #         GOFLASH
022393,000201:                                                                                                 #         GOTOPOOH
022394,000202:                                                                                                 #         VN1645
022395,000203: 
022396,000204: 04,3237           34041        MAINRTNE          STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
022397,000205: 04,3240           11410                                   INTRPVP                               #     TARGET TIME
022398,000206: 04,3241           77745                          DLOAD                                          
022399,000207: 04,3242           03413                                   TIG                                   
022400,000208: 04,3243           03503                          STORE    INTIME                                
022401,000209: 04,3244           77331                          SSP      VLOAD                                 
022402,000210: 04,3245           02371                                   SUBEXIT                               
022403,000211: 04,3246           11252                                   TEST3979                              
022404,000212: 04,3247           00001                                   RATT                                  
022405,000213: 04,3250           77624                          CALL                                           
022406,000214: 04,3251           72547                                   S3435.25                              
022407,000215: 04,3252           43014        TEST3979          BOFF     BON                                   
022408,000216: 04,3253           04346                                   P39/79SW                              
022409,000217: 04,3254           11263                                   MAINRTN1                              
022410,000218: 04,3255           01311                                   FINALFLG                              
022411,000219:                                                                                                 # # Page 518
022412,000220: 04,3256           11261                                   P39P79                                
022413,000221: 04,3257           77614                          SET                                            
022414,000222: 04,3260           00470                                   UPDATFLG                              
022415,000223: 04,3261           77776        P39P79            EXIT                                           
022416,000224: 04,3262           03310                          TC       DSPLY81                               #  FOR P39 AND P79
022417,000225: 04,3263           51575        MAINRTN1          VLOAD    ABVAL                                 
022418,000226: 04,3264           03646                                   DELVEET3                              
022419,000227: 04,3265           26635                          STOVL    DELVTPI                               #  DELTA V
022420,000228: 04,3266           03640                                   VPASS4                                
022421,000229: 04,3267           51451                          VSU      ABVAL                                 
022422,000230: 04,3270           03620                                   VTPRIME                               
022423,000231: 04,3271           26637                          STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
022424,000232: 04,3272           03540                                   RACT3                                 
022425,000233: 04,3273           45115                          PDVL     CALL                                  
022426,000234: 04,3274           03612                                   VIPRIME                               
022427,000235: 04,3275           45312                                   PERIAPO1                              #  GET PERIGEE ALTITUDE
022428,000236: 04,3276           77624                          CALL                                           
022429,000237: 04,3277           45422                                   SHIFTR1                               
022430,000238: 04,3300           02641                          STORE    POSTTPI                               
022431,000239: 04,3301           43014                          BON      SET                                   
022432,000240: 04,3302           01311                                   FINALFLG                              
022433,000241: 04,3303           11305                                   DSPLY58                               
022434,000242: 04,3304           00470                                   UPDATFLG                              
022435,000243: 04,3305           77776        DSPLY58           EXIT                                           
022436,000244: 04,3306           33442                          CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
022437,000245: 04,3307           03424                          TC       VNDSPLY                               
022438,000246: 04,3310           33443        DSPLY81           CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
022439,000247: 04,3311           03424                          TC       VNDSPLY                               
022440,000248: 04,3312           06006                          TC       INTPRET                               
022441,000249: 04,3313           77214                          CLEAR    VLOAD                                 
022442,000250: 04,3314           01267                                   XDELVFLG                              
022443,000251: 04,3315           03646                                   DELVEET3                              
022444,000252: 04,3316           37646                          STCALL   DELVSIN                               
022445,000253: 04,3317           73005                                   VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
022446,000254: 04,3320           52014                          BON      GOTO                                  
022447,000255: 04,3321           04306                                   P39/79SW                              
022448,000256: 04,3322           11344                                   P39/P79B                              
022449,000257: 04,3323           11203                                   RECYCLE                               
022450,000258:                                                                                                 #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022451,000259: 
022452,000260:                                                                                                 #  MOD NO -1          LOG SECTION - STABLE ORBIT - P38-P39
022453,000261:                                                                                                 #  MOD BY RUDNICKI.S  DATE 25JAN68
022454,000262: 
022455,000263:                                                                                                 #  FUNCTIONAL DESCRIPTION
022456,000264: 
022457,000265:                                                                                                 #         P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022458,000266:                                                                                                 #         CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022459,000267:                                                                                                 #         MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022460,000268:                                                                                                 #         THE SOR MANEUVER.
022461,000269: 
022462,000270:                                                                                                 # # Page 519
022463,000271:                                                                                                 #  CALLING SEQUENCE
022464,000272: 
022465,000273:                                                                                                 #         ASTRONAUT REQUEST THRU DSKY
022466,000274: 
022467,000275:                                                                                                 #         V37E39E   IF THIS VEHICLE IS ACTIVE VEHICLE
022468,000276:                                                                                                 #         V37E79E   IF OTHER VEHICLE IS ACTIVE VEHICLE
022469,000277: 
022470,000278:                                                                                                 #  INPUT
022471,000279: 
022472,000280:                                                                                                 #         (1) TPASS4   TIME OF INTERCEPT - SAVED FROM P38/P78
022473,000281:                                                                                                 #         (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022474,000282:                                                                                                 #                     SAVED FROM P38/P78
022475,000283: 
022476,000284:                                                                                                 #  OUTPUT
022477,000285: 
022478,000286:                                                                                                 #         (1) TRKMKCNT NUMBER OF MARKS
022479,000287:                                                                                                 #         (2) TTOGO    TIME TO GO
022480,000288:                                                                                                 #         (3) +MGA     MIDDLE GIMBAL ANGLE
022481,000289:                                                                                                 #         (4) DELVLVC  DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022482,000290: 
022483,000291:                                                                                                 #  SUBROUTINES USED
022484,000292: 
022485,000293:                                                                                                 #         AVFLAGA
022486,000294:                                                                                                 #         AVFLAGP
022487,000295:                                                                                                 #         LOADTIME
022488,000296:                                                                                                 #         SELECTMU
022489,000297:                                                                                                 #         PRECSET
022490,000298:                                                                                                 #         S34/35.1
022491,000299:                                                                                                 #         MAINRTNE
022492,000300: 
022493,000301: 04,3324           04555        P39               TC       BANKCALL                              
022494,000302: 04,3325           73726                          CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
022495,000303: 04,3326           00006                          EXTEND                                         
022496,000304: 04,3327           31422                          DCA      ATIGINC                               
022497,000305: 04,3330           03335                          TC       P39/P79A                              
022498,000306: 04,3331           04555        P79               TC       BANKCALL                              
022499,000307: 04,3332           73741                          CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
022500,000308: 04,3333           00006                          EXTEND                                         
022501,000309: 04,3334           31424                          DCA      PTIGINC                               
022502,000310: 04,3335           53764        P39/P79A          DXCH     KT                                    #  TIME TO PREPARE FOR BURN
022503,000311: 04,3336           04555                          TC       BANKCALL                              
022504,000312: 04,3337           73746                          CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
022505,000313: 04,3340           06006                          TC       INTPRET                               
022506,000314: 04,3341           45014                          SET      CALL                                  
022507,000315: 04,3342           04066                                   P39/79SW                              
022508,000316: 04,3343           10716                                   SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
022509,000317: 04,3344           43234        P39/P79B          RTB      DAD                                   
022510,000318: 04,3345           45505                                   LOADTIME                              
022511,000319: 04,3346           02364                                   KT                                    
022512,000320: 04,3347           03413                          STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
022513,000321:                                                                                                 # # Page 520
022514,000322: 04,3350           34041                          STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022515,000323: 04,3351           45354                                   PRECSET                               #     VEHICLES TO TIG
022516,000324: 04,3352           77624                          CALL                                           
022517,000325: 04,3353           72522                                   S34/35.1                              #  GET UNIT NORMAL
022518,000326: 04,3354           52145                          DLOAD    GOTO                                  
022519,000327: 04,3355           02615                                   TARGTIME                              
022520,000328: 04,3356           11237                                   MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
022521,000329:                                                                                                 #  .... PREC/TT ....
022522,000330:                                                                                                 #  SUBROUTINES USED
022523,000331: 
022524,000332:                                                                                                 #         PRECSET
022525,000333:                                                                                                 #         TIMETHET
022526,000334:                                                                                                 #         S34/35.1
022527,000335: 
022528,000336: 04,3357           71220        PREC/TT           STQ      DLOAD                                 
022529,000337: 04,3360           02367                                   RTRN                                  
022530,000338: 04,3361           03413                                   TIG                                   
022531,000339: 04,3362           34041                          STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
022532,000340: 04,3363           45354                                   PRECSET                               #     VEHICLES TO TIG
022533,000341: 04,3364           53775                          VLOAD    VSR*                                  
022534,000342: 04,3365           03554                                   RPASS3                                
022535,000343: 04,3366           57176                                   0,2                                   
022536,000344: 04,3367           16657                          STODL    RVEC                                  
022537,000345: 04,3370           03754                                   CENTANG                               
022538,000346: 04,3371           71406                          PUSH     COS                                   
022539,000347: 04,3372           16734                          STODL    CSTH                                  
022540,000348: 04,3373           43156                          SIN      SET                                   
022541,000349: 04,3374           03466                                   RVSW                                  
022542,000350: 04,3375           26732                          STOVL    SNTH                                  
022543,000351: 04,3376           03562                                   VPASS3                                
022544,000352: 04,3377           77657                          VSR*                                           
022545,000353: 04,3400           57176                                   0,2                                   
022546,000354: 04,3401           36746                          STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
022547,000355: 04,3402           24737                                   TIMETHET                              #     PASSIVE VEHICLE
022548,000356: 04,3403           77624                          CALL                                           
022549,000357: 04,3404           72522                                   S34/35.1                              #  GET UNIT NORMAL
022550,000358: 04,3405           52145                          DLOAD    GOTO                                  
022551,000359: 04,3406           00037                                   T                                     
022552,000360: 04,3407           02367                                   RTRN                                  
022553,000361:                                                                                                 #  .... INTRPVP ....
022554,000362:                                                                                                 #  SUBROUTINES USED
022555,000363: 
022556,000364:                                                                                                 #         CSMPREC
022557,000365:                                                                                                 #         LEMPREC
022558,000366: 
022559,000367: 04,3410           43020        INTRPVP           STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
022560,000368: 04,3411           02367                                   RTRN                                  #     TDEC1
022561,000369: 04,3412           01352                                   AVFLAG                                
022562,000370: 04,3413           11420                                   OTHERV                                
022563,000371: 04,3414           77624                          CALL                                           
022564,000372:                                                                                                 # # Page 521
022565,000373: 04,3415           27022                                   CSMPREC                               
022566,000374: 04,3416           77650                          GOTO                                           
022567,000375: 04,3417           02367                                   RTRN                                  
022568,000376: 04,3420           77624        OTHERV            CALL                                           
022569,000377: 04,3421           27036                                   LEMPREC                               
022570,000378: 04,3422           77650                          GOTO                                           
022571,000379: 04,3423           02367                                   RTRN                                  
022572,000380:                                                                                                 #  .... VNDSPLY ....
022573,000381:                                                                                                 #  SUBROUTINES USED
022574,000382: 
022575,000383:                                                                                                 #         BANKCALL
022576,000384:                                                                                                 #         GOFLASH
022577,000385:                                                                                                 #         GOTOPOOH
022578,000386: 
022579,000387: 04,3424           00006        VNDSPLY           EXTEND                                         #  FLASH DISPLAY
022580,000388: 04,3425           23767                          QXCH     RTRN                                  
022581,000389: 04,3426           55765                          TS       VERBNOUN                              
022582,000390: 04,3427           31765                          CA       VERBNOUN                              
022583,000391: 04,3430           04555                          TCR      BANKCALL                              
022584,000392: 04,3431           20624                          CADR     GOFLASH                               
022585,000393: 04,3432           14106                          TCF      GOTOPOOH                              #  TERMINATE
022586,000394: 04,3433           01767                          TC       RTRN                                  #  PROCEED
022587,000395: 04,3434           13427                          TCF      -5                                    #  RECYCLE
022588,000396: 04,3435           01441        V06N33SR          VN       0633                                  
022589,000397: 04,3436           01467        V06N55SR          VN       0655                                  
022590,000398: 04,3437           01006        V04N06SR          VN       0406                                  
022591,000399: 04,3440           01471        V06N57SR          VN       0657                                  
022592,000400: 04,3441           01442        V06N34SR          VN       0634                                  
022593,000401: 04,3442           01472        V06N58SR          VN       0658                                  
022594,000402: 04,3443           01521        V06N81SR          VN       0681                                  

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