Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of Luminary 069. They were scanned at archive.org's Boston facility, and the scanning was sponsored by Onno Hommes. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the Luminary 69 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 069 OF AGC PROGRAM LUMINARY BY NASA 2021112-011
	19:02 NOV. 25,1968
Note that the date is the date of the printout, not the date of the program revision.

031843,000002:                                                                                                  ## Copyright:   Public domain.
031844,000003:                                                                                                  ## Filename:    STABLE_ORBIT_-_P38-P39.agc
031845,000004:                                                                                                  ## Purpose:     The main source file for Luminary revision 069.
031846,000005:                                                                                                  ##              It is part of the source code for the original release
031847,000006:                                                                                                  ##              of the flight software for the Lunar Module's (LM) Apollo
031848,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 10. The actual flown
031849,000008:                                                                                                  ##              version was Luminary 69 revision 2, which included a
031850,000009:                                                                                                  ##              newer lunar gravity model and only affected module 2.
031851,000010:                                                                                                  ##              This file is intended to be a faithful transcription, except
031852,000011:                                                                                                  ##              that the code format has been changed to conform to the
031853,000012:                                                                                                  ##              requirements of the yaYUL assembler rather than the
031854,000013:                                                                                                  ##              original YUL assembler.
031855,000014:                                                                                                  ## Reference:   pp. 731-738
031856,000015:                                                                                                  ## Assembler:   yaYUL
031857,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031858,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031859,000018:                                                                                                  ## Mod history: 2016-12-13 MAS  Created from Luminary 99.
031860,000019:                                                                                                  ##              2016-12-15 MAS  Updated from comment-proofed Luminary 99 version.
031861,000020:                                                                                                  ##              2017-01-11 RRB  Updated for Luminary 69.
031862,000021:                                                                                                  ##              2017-01-20 HG   Remove DECTWO
031863,000022:                                                                                                  ##              2017-01-28 RSB  Proofed comment text using octopus/prooferComments
031864,000023:                                                                                                  ##                              and fixed errors found.
031865,000024:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified in diff'ing
031866,000025:                                                                                                  ##                              Luminary 99 vs Comanche 55.
031867,000026: 

Page 731

031869,000028:                                                                                                  #  STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
031870,000029: 
031871,000030:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
031872,000031:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
031873,000032: 
031874,000033:                                                                                                  #  FUNCTIONAL DESCRIPTION
031875,000034: 
031876,000035:                                                                                                  #        P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031877,000036:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
031878,000037:                                                                                                  #        ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
031879,000038:                                                                                                  #        ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
031880,000039:                                                                                                  #        PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
031881,000040:                                                                                                  #        PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
031882,000041:                                                                                                  #        VEHICLES
031883,000042: 
031884,000043:                                                                                                  #  CALLING SEQUENCE
031885,000044: 
031886,000045:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
031887,000046: 
031888,000047:                                                                                                  #        V37E38E         IF THIS VEHICLE IS ACTIVE VEHICLE
031889,000048:                                                                                                  #        V37E78E         IF OTHER VEHICLE IS ACTIVE VEHICLE
031890,000049: 
031891,000050:                                                                                                  #  INPUT
031892,000051: 
031893,000052:                                                                                                  #        (1)     SOI MANEUVER
031894,000053: 
031895,000054:                                                                                                  #                (A)  TIG        TIME OF SOI MANEUVER
031896,000055:                                                                                                  #                (B)  CENTANG    ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
031897,000056:                                                                                                  #                                DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
031898,000057:                                                                                                  #                (C)  DELTAR     THE DESIRED SEPARATION OF THE TWO VEHICLES
031899,000058:                                                                                                  #                                SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
031900,000059:                                                                                                  #                                ORBIT
031901,000060:                                                                                                  #                (D)  OPTION     EQUALS 1 FOR SOI
031902,000061: 
031903,000062:                                                                                                  #        (2)     SOR MANEUVER
031904,000063: 
031905,000064:                                                                                                  #                (A)  TIG        TIME OF SOR MANEUVER
031906,000065:                                                                                                  #                (B)  CENTANG    AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
031907,000066:                                                                                                  #                (C)  OPTION     EQUALS 2 FOR SOR
031908,000067:                                                                                                  #                (D)  DELTTIME   THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
031909,000068:                                                                                                  #                                TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
031910,000069:                                                                                                  #                                VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
031911,000070:                                                                                                  #                                SOI PHASE
031912,000071:                                                                                                  #                (E)  TINT       TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
031913,000072: 
031914,000073:                                                                                                  #  OUTPUT
031915,000074: 
031916,000075:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
031917,000076:                                                                                                  #        (2)  TTOGO      TIME TO GO
031918,000077:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE

Page 732

031920,000079:                                                                                                  #        (4)  DSPTEM1    TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
031921,000080:                                                                                                  #                        (FOR SOI ONLY)
031922,000081:                                                                                                  #        (5)  POSTTPI    PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
031923,000082:                                                                                                  #                        THE SOI (SOR) MANEUVER
031924,000083:                                                                                                  #        (6)  DELVTPI    MAGNITUDE OF DELTA V AT SOI (SOR) TIME
031925,000084:                                                                                                  #        (7)  DELVTPF    MAGNITUDE OF DELTA V AT INTERCEPT TIME
031926,000085:                                                                                                  #        (8)  DELVLVC    DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
031927,000086:                                                                                                  #                        COORDINATES
031928,000087: 
031929,000088:                                                                                                  #  SUBROUTINES USED
031930,000089: 
031931,000090:                                                                                                  #        AVFLAGA
031932,000091:                                                                                                  #        AVFLAGP
031933,000092:                                                                                                  #        VNDSPLY
031934,000093:                                                                                                  #        BANKCALL
031935,000094:                                                                                                  #        GOFLASHR
031936,000095:                                                                                                  #        GOTOPOOH
031937,000096:                                                                                                  #        BLANKET
031938,000097:                                                                                                  #        ENDOFJOB
031939,000098:                                                                                                  #        PREC/TT
031940,000099:                                                                                                  #        SELECTMU
031941,000100:                                                                                                  #        INTRPVP
031942,000101:                                                                                                  #        MAINRTNE
031943,000102: 
031944,000103: 04,2750                                           BANK     04                                    
031945,000104: 34,2000                                           SETLOC   STBLEORB                              
031946,000105: 34,2000                                           BANK                                           
031947,000106: 
031948,000107: 34,3271  E7,1466                                  EBANK=   SUBEXIT                               
031949,000108: 34,3271                                           COUNT*   $$/P3879                              
031950,000109: 
031951,000110: 34,3271           04616        P38                TC       BANKCALL                              
031952,000111: 34,3272           72313                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
031953,000112: 34,3273           03276                           TC       +3                                    
031954,000113: 34,3274           04616        P78                TC       BANKCALL                              
031955,000114: 34,3275           72320                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
031956,000115: 34,3276           04616                           TC       BANKCALL                              
031957,000116: 34,3277           72325                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
031958,000117: 34,3300           33630                           CAF      V06N33SR                              #  DISPLAY TIG
031959,000118: 34,3301           03617                           TC       VNDSPLY                               
031960,000119: 34,3302           33631                           CAF      V06N55SR                              #  DISPLAY CENTANG
031961,000120: 34,3303           04616                           TCR      BANKCALL                              
031962,000121: 34,3304           20510                           CADR     GOFLASHR                              
031963,000122: 34,3305           16001                           TCF      GOTOPOOH                              #  TERMINATE
031964,000123: 34,3306           13313                           TCF      +5                                    #  PROCEED
031965,000124: 34,3307           13302                           TCF      -5                                    #  RECYCLE
031966,000125: 34,3310           36244                           CAF      THREE                                 #  IMMEDIATE RETURN - BLANK R1, R2
031967,000126: 34,3311           05464                           TCR      BLANKET                               
031968,000127: 34,3312           15155                           TCF      ENDOFJOB                              
031969,000128: 34,3313           34756                           CAF      FIVE                                  

Page 733

031971,000130: 34,3314           55144                           TS       OPTION1                               
031972,000131: 34,3315           34753                           CAF      ONE                                   
031973,000132: 34,3316           55145                           TS       OPTION2                               #  OPTION CODE IS SET TO 1
031974,000133: 34,3317           33632                           CAF      V04N06SR                              #  DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
031975,000134: 34,3320           04616                           TCR      BANKCALL                              
031976,000135: 34,3321           20510                           CADR     GOFLASHR                              
031977,000136: 34,3322           16001                           TCF      GOTOPOOH                              #  TERMINATE
031978,000137: 34,3323           13330                           TCF      +5                                    #  PROCEED
031979,000138: 34,3324           13317                           TCF      -5                                    #  RECYCLE
031980,000139: 34,3325           34751                           CAF      BIT3                                  #  IMMEDIATE RETURN - BLANK R3
031981,000140: 34,3326           05464                           TCR      BLANKET                               
031982,000141: 34,3327           15155                           TCF      ENDOFJOB                              
031983,000142: 34,3330           06036                           TC       INTPRET                               
031984,000143: 34,3331           70535                           SLOAD    SR1                                   
031985,000144: 34,3332           01146                                    OPTION2                               
031986,000145: 34,3333           71230                           BHIZ     DLOAD                                 
031987,000146: 34,3334           71342                                    OPTN1                                 
031988,000147: 34,3335           03627                                    TINT                                  
031989,000148: 34,3336           02307                           STORE    TINTSOI                               #  STORE FOR SOR PHASE
031990,000149: 34,3337           77614                           CLRGO                                          
031991,000150: 34,3340           01230                                    OPTNSW                                #  OPTNSW; ON = SOI, OFF = SOR
031992,000151: 34,3341           71373                                    JUNCTN1                               
031993,000152: 34,3342           43014        OPTN1              SET      CLEAR                                 #  SOI
031994,000153: 34,3343           01070                                    OPTNSW                                
031995,000154: 34,3344           00670                                    UPDATFLG                              
031996,000155: 34,3345           77624                           CALL                                           
031997,000156: 34,3346           71552                                    PREC/TT                               
031998,000157: 34,3347           43015                           DAD      SET                                   
031999,000158: 34,3350           03440                                    TIG                                   
032000,000159: 34,3351           00470                                    UPDATFLG                              
032001,000160: 34,3352           03627                           STORE    TINT                                  #  TI = TIG + TF
032002,000161: 34,3353           77776                           EXIT                                           
032003,000162: 34,3354           33633                           CAF      V06N57SR                              #  DISPLAY DELTA R
032004,000163: 34,3355           04616                           TCR      BANKCALL                              
032005,000164: 34,3356           20510                           CADR     GOFLASHR                              
032006,000165: 34,3357           16001                           TCF      GOTOPOOH                              #  TERMINATE
032007,000166: 34,3360           13365                           TCF      +5                                    #  PROCEED
032008,000167: 34,3361           13354                           TCF      -5                                    #  RECYCLE
032009,000168: 34,3362           36241                           CAF      SIX                                   #  IMMEDIATE RETURN - BLANK R2, R3
032010,000169: 34,3363           05464                           TCR      BLANKET                               
032011,000170: 34,3364           15155                           TCF      ENDOFJOB                              
032012,000171: 34,3365           00006                 +5        EXTEND                                         
032013,000172: 34,3366           31627                           DCA      TINT                                  
032014,000173: 34,3367           53046                           DXCH     DSPTEM1                               #  FOR DISPLAY
032015,000174: 34,3370           33634                           CAF      V06N34SR                              #  DISPLAY TIME OF INTERCEPT
032016,000175: 34,3371           03617                           TC       VNDSPLY                               
032017,000176: 34,3372           06036                           TC       INTPRET                               
032018,000177: 34,3373           45014        JUNCTN1            CLEAR    CALL                                  
032019,000178: 34,3374           04266                                    P39/79SW                              
032020,000179: 34,3375           20041                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645

Page 734

032022,000181: 34,3376           77624        RECYCLE            CALL                                           
032023,000182: 34,3377           71552                                    PREC/TT                               
032024,000183: 34,3400           71214                           BOFF     DLOAD                                 
032025,000184: 34,3401           01350                                    OPTNSW                                
032026,000185: 34,3402           71422                                    OPTN2                                 
032027,000186: 34,3403           03627                                    TINT                                  
032028,000187: 34,3404           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
032029,000188: 34,3405           71603                                    INTRPVP                               #     INTERCEPT TIME
032030,000189: 34,3406           53575                           VLOAD    UNIT                                  
032031,000190: 34,3407           00001                                    RATT                                  #  RP/(RP)
032032,000191: 34,3410           47315                           PDVL     VXV                                   
032033,000192: 34,3411           00007                                    VATT                                  
032034,000193: 34,3412           60246                           ABVAL    NORM                                  #  (VP X RP/(RP))
032035,000194: 34,3413           00047                                    X1                                    
032036,000195: 34,3414           56325                           PDDL     DDV                                   
032037,000196: 34,3415           02307                                    DELTAR                                
032038,000197: 34,3416           77657                           SL*                                            #  DELTA R / (VP X RP/RP)
032039,000198: 34,3417           20172                                    0          -7,1                       
032040,000199: 34,3420           36311                           STCALL   DELTTIME                              #  DELTA T = (RP) DELTA R / (VP X RP)
032041,000200: 34,3421           71426                                    JUNCTN2                               
032042,000201: 34,3422           43345        OPTN2              DLOAD    DAD                                   
032043,000202: 34,3423           02307                                    TINTSOI                               
032044,000203: 34,3424           00037                                    T                                     
032045,000204: 34,3425           03627                           STORE    TINT                                  #  TI = TI + TF
032046,000205: 34,3426           45345        JUNCTN2            DLOAD    DSU                                   
032047,000206: 34,3427           03627                                    TINT                                  
032048,000207: 34,3430           02311                                    DELTTIME                              
032049,000208: 34,3431           02313                           STORE    TARGTIME                              #  TT = TI - DELTA T
032050,000209: 
032051,000210:                                                                                                  #  .... MAINRTNE ....
032052,000211: 
032053,000212:                                                                                                  #  SUBROUTINES USED
032054,000213: 
032055,000214:                                                                                                  #        S3435.25
032056,000215:                                                                                                  #        PERIAPO1
032057,000216:                                                                                                  #        SHIFTR1
032058,000217:                                                                                                  #        VNDSPLY
032059,000218:                                                                                                  #        BANKCALL
032060,000219:                                                                                                  #        GOFLASH
032061,000220:                                                                                                  #        GOTOPOOH
032062,000221:                                                                                                  #        VN1645
032063,000222: 
032064,000223: 34,3432           34041        MAINRTNE           STCALL   TDEC1                                 #  PRECISION UPDATE PASSIVE VEHICLE TO
032065,000224: 34,3433           71603                                    INTRPVP                               #     TARGET TIME
032066,000225: 34,3434           77745                           DLOAD                                          
032067,000226: 34,3435           03440                                    TIG                                   
032068,000227: 34,3436           03606                           STORE    INTIME                                
032069,000228: 34,3437           77331                           SSP      VLOAD                                 
032070,000229: 34,3440           03467                                    SUBEXIT                               
032071,000230: 34,3441           71445                                    TEST3979                              
032072,000231: 34,3442           00001                                    RATT                                  
032073,000232: 34,3443           77624                           CALL                                           

Page 735

032075,000234: 34,3444           73263                                    S3435.25                              
032076,000235: 34,3445           43014        TEST3979           BOFF     BON                                   
032077,000236: 34,3446           04346                                    P39/79SW                              
032078,000237: 34,3447           71456                                    MAINRTN1                              
032079,000238: 34,3450           01311                                    FINALFLG                              
032080,000239: 34,3451           71454                                    P39P79                                
032081,000240: 34,3452           77614                           SET                                            
032082,000241: 34,3453           00470                                    UPDATFLG                              
032083,000242: 34,3454           77776        P39P79             EXIT                                           
032084,000243: 34,3455           03503                           TC       DSPLY81                               #  FOR P39 AND P79
032085,000244: 34,3456           51575        MAINRTN1           VLOAD    ABVAL                                 
032086,000245: 34,3457           03366                                    DELVEET3                              
032087,000246: 34,3460           27574                           STOVL    DELVTPI                               #  DELTA V
032088,000247: 34,3461           03504                                    VPASS4                                
032089,000248: 34,3462           51451                           VSU      ABVAL                                 
032090,000249: 34,3463           03564                                    VTPRIME                               
032091,000250: 34,3464           26354                           STOVL    DELVTPF                               #  DELTA V (FINAL) = V'T - VT
032092,000251: 34,3465           03534                                    RACT3                                 
032093,000252: 34,3466           45115                           PDVL     CALL                                  
032094,000253: 34,3467           02343                                    VIPRIME                               
032095,000254: 34,3470           46277                                    PERIAPO1                              #  GET PERIGEE ALTITUDE
032096,000255: 34,3471           77624                           CALL                                           
032097,000256: 34,3472           46407                                    SHIFTR1                               
032098,000257: 34,3473           03604                           STORE    POSTTPI                               
032099,000258: 34,3474           43014                           BON      SET                                   
032100,000259: 34,3475           01311                                    FINALFLG                              
032101,000260: 34,3476           71500                                    DSPLY58                               
032102,000261: 34,3477           00470                                    UPDATFLG                              
032103,000262: 34,3500           77776        DSPLY58            EXIT                                           
032104,000263: 34,3501           33635                           CAF      V06N58SR                              #  DISPLAY HP, DELTA V, DELTA V (FINAL)
032105,000264: 34,3502           03617                           TC       VNDSPLY                               
032106,000265: 34,3503           33636        DSPLY81            CAF      V06N81SR                              #  DISPLAY DELTA V (LV)
032107,000266: 34,3504           03617                           TC       VNDSPLY                               
032108,000267: 34,3505           06036                           TC       INTPRET                               
032109,000268: 34,3506           77214                           CLEAR    VLOAD                                 
032110,000269: 34,3507           01267                                    XDELVFLG                              
032111,000270: 34,3510           03366                                    DELVEET3                              
032112,000271: 34,3511           37654                           STCALL   DELVSIN                               
032113,000272: 34,3512           73542                                    VN1645                                #  DISPLAY TRKMKCNT, TTOGO, +MGA
032114,000273: 34,3513           52014                           BON      GOTO                                  
032115,000274: 34,3514           04306                                    P39/79SW                              
032116,000275: 34,3515           71537                                    P39/P79B                              
032117,000276: 34,3516           71376                                    RECYCLE                               
032118,000277: 
032119,000278:                                                                                                  #  STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
032120,000279: 
032121,000280:                                                                                                  #  MOD NO -1             LOG SECTION - STABLE ORBIT - P38-P39
032122,000281:                                                                                                  #  MOD BY RUDNICKI.S     DATE 25JAN68
032123,000282: 
032124,000283:                                                                                                  #  FUNCTIONAL DESCRIPTION

Page 736

032126,000285: 
032127,000286:                                                                                                  #        P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
032128,000287:                                                                                                  #        CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
032129,000288:                                                                                                  #        MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
032130,000289:                                                                                                  #        THE SOR MANEUVER
032131,000290: 
032132,000291:                                                                                                  #  CALLING SEQUENCE
032133,000292: 
032134,000293:                                                                                                  #        ASTRONAUT REQUEST THRU DSKY
032135,000294: 
032136,000295:                                                                                                  #        V37E39E         IF THIS VEHICLE IS ACTIVE VEHICLE
032137,000296:                                                                                                  #        V37E79E         IF OTHER VEHICLE IS ACTIVE VEHICLE
032138,000297: 
032139,000298:                                                                                                  #  INPUT
032140,000299: 
032141,000300:                                                                                                  #        (1)  TPASS4     TIME OF INTERCEPT - SAVED FROM P38/P78
032142,000301:                                                                                                  #        (2)  TARGTIME   TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
032143,000302:                                                                                                  #                        SAVED FROM P38/P78
032144,000303: 
032145,000304:                                                                                                  #  OUTPUT
032146,000305: 
032147,000306:                                                                                                  #        (1)  TRKMKCNT   NUMBER OF MARKS
032148,000307:                                                                                                  #        (2)  TTOGO      TIME TO GO
032149,000308:                                                                                                  #        (3)  +MGA       MIDDLE GIMBAL ANGLE
032150,000309:                                                                                                  #        (4)  DELVLVC    DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
032151,000310: 
032152,000311:                                                                                                  #  SUBROUTINES USED
032153,000312: 
032154,000313:                                                                                                  #        AVFLAGA
032155,000314:                                                                                                  #        AVFLAGP
032156,000315:                                                                                                  #        LOADTIME
032157,000316:                                                                                                  #        SELECTMU
032158,000317:                                                                                                  #        PRECSET
032159,000318:                                                                                                  #        S34/35.1
032160,000319:                                                                                                  #        MAINRTNE
032161,000320: 
032162,000321: 34,3517           04616        P39                TC       BANKCALL                              
032163,000322: 34,3520           72313                           CADR     AVFLAGA                               #  THIS VEHICLE ACTIVE
032164,000323: 34,3521           00006                           EXTEND                                         
032165,000324: 34,3522           31401                           DCA      ATIGINC                               
032166,000325: 34,3523           03530                           TC       P39/P79A                              
032167,000326: 34,3524           04616        P79                TC       BANKCALL                              
032168,000327: 34,3525           72320                           CADR     AVFLAGP                               #  OTHER VEHICLE ACTIVE
032169,000328: 34,3526           00006                           EXTEND                                         
032170,000329: 34,3527           31403                           DCA      PTIGINC                               
032171,000330: 34,3530           53574        P39/P79A           DXCH     KT                                    #  TIME TO PREPARE FOR BURN
032172,000331: 34,3531           04616                           TC       BANKCALL                              
032173,000332: 34,3532           72325                           CADR     P20FLGON                              #  SET UPDATFLG, TRACKFLG
032174,000333: 34,3533           06036                           TC       INTPRET                               
032175,000334: 34,3534           45014                           SET      CALL                                  
032176,000335: 34,3535           04066                                    P39/79SW                              

Page 737

032178,000337: 34,3536           20041                                    SELECTMU                              #  SELECT MU, CLEAR FINALFLG, GO TO VN1645
032179,000338: 34,3537           43234        P39/P79B           RTB      DAD                                   
032180,000339: 34,3540           21462                                    LOADTIME                              
032181,000340: 34,3541           03574                                    KT                                    
032182,000341: 34,3542           03440                           STORE    TIG                                   #  TIG = T (PRESENT) + PREPARATION TIME
032183,000342: 34,3543           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032184,000343: 34,3544           46341                                    PRECSET                               #     VEHICLES TO TIG
032185,000344: 34,3545           77624                           CALL                                           
032186,000345: 34,3546           73236                                    S34/35.1                              #  GET UNIT NORMAL
032187,000346: 34,3547           52145                           DLOAD    GOTO                                  
032188,000347: 34,3550           02313                                    TARGTIME                              
032189,000348: 34,3551           71432                                    MAINRTNE                              #  CALCULATE DELTA V AND DELTA V (LV)
032190,000349: 
032191,000350:                                                                                                  #  .... PREC/TT ....
032192,000351:                                                                                                  #  SUBROUTINES USED
032193,000352: 
032194,000353:                                                                                                  #        PRECSET
032195,000354:                                                                                                  #        TIMETHET
032196,000355:                                                                                                  #        S34/35.1
032197,000356: 
032198,000357: 34,3552           71220        PREC/TT            STQ      DLOAD                                 
032199,000358: 34,3553           03463                                    RTRN                                  
032200,000359: 34,3554           03440                                    TIG                                   
032201,000360: 34,3555           34041                           STCALL   TDEC1                                 #  PRECISION UPDATE ACTIVE AND PASSIVE
032202,000361: 34,3556           46341                                    PRECSET                               #     VEHICLES TO TIG
032203,000362: 34,3557           53775                           VLOAD    VSR*                                  
032204,000363: 34,3560           03550                                    RPASS3                                
032205,000364: 34,3561           57176                                    0,2                                   
032206,000365: 34,3562           16655                           STODL    RVEC                                  
032207,000366: 34,3563           03617                                    CENTANG                               
032208,000367: 34,3564           71406                           PUSH     COS                                   
032209,000368: 34,3565           16732                           STODL    CSTH                                  
032210,000369: 34,3566           43156                           SIN      SET                                   
032211,000370: 34,3567           03466                                    RVSW                                  
032212,000371: 34,3570           26730                           STOVL    SNTH                                  
032213,000372: 34,3571           03556                                    VPASS3                                
032214,000373: 34,3572           77657                           VSR*                                           
032215,000374: 34,3573           57176                                    0,2                                   
032216,000375: 34,3574           36744                           STCALL   VVEC                                  #  GET TRANSFER TIME BASED ON CENTANG OF
032217,000376: 34,3575           24745                                    TIMETHET                              #     PASSIVE VEHICLE
032218,000377: 34,3576           77624                           CALL                                           
032219,000378: 34,3577           73236                                    S34/35.1                              #  GET UNIT NORMAL
032220,000379: 34,3600           52145                           DLOAD    GOTO                                  
032221,000380: 34,3601           00037                                    T                                     
032222,000381: 34,3602           03463                                    RTRN                                  
032223,000382: 
032224,000383:                                                                                                  #  .... INTRPVP ....
032225,000384:                                                                                                  #  SUBROUTINES USED
032226,000385: 
032227,000386:                                                                                                  #        CSMPREC
032228,000387:                                                                                                  #        LEMPREC

Page 738

032230,000389: 34,3603           43020        INTRPVP            STQ      BOFF                                  #  PRECISION UPDATE PASSIVE VEHICLE TO
032231,000390: 34,3604           03463                                    RTRN                                  #     TDEC1
032232,000391: 34,3605           01352                                    AVFLAG                                
032233,000392: 34,3606           71613                                    OTHERV                                
032234,000393: 34,3607           77624                           CALL                                           
032235,000394: 34,3610           27043                                    CSMPREC                               
032236,000395: 34,3611           77650                           GOTO                                           
032237,000396: 34,3612           03463                                    RTRN                                  
032238,000397: 34,3613           77624        OTHERV             CALL                                           
032239,000398: 34,3614           27057                                    LEMPREC                               
032240,000399: 34,3615           77650                           GOTO                                           
032241,000400: 34,3616           03463                                    RTRN                                  
032242,000401: 
032243,000402:                                                                                                  #  .... VNDSPLY ....
032244,000403:                                                                                                  #  SUBROUTINES USED
032245,000404: 
032246,000405:                                                                                                  #        BANKCALL
032247,000406:                                                                                                  #        GOFLASH
032248,000407:                                                                                                  #        GOTOPOOH
032249,000408: 
032250,000409: 34,3617           00006        VNDSPLY            EXTEND                                         #  FLASH DISPLAY
032251,000410: 34,3620           23463                           QXCH     RTRN                                  
032252,000411: 34,3621           55613                           TS       VERBNOUN                              
032253,000412: 34,3622           31613                           CA       VERBNOUN                              
032254,000413: 34,3623           04616                           TCR      BANKCALL                              
032255,000414: 34,3624           20351                           CADR     GOFLASH                               
032256,000415: 34,3625           16001                           TCF      GOTOPOOH                              #  TERMINATE
032257,000416: 34,3626           01463                           TC       RTRN                                  #  PROCEED
032258,000417: 34,3627           13622                           TCF      -5                                    #  RECYCLE
032259,000418: 34,3630           01441        V06N33SR           VN       0633                                  
032260,000419: 34,3631           01467        V06N55SR           VN       0655                                  
032261,000420: 34,3632           01006        V04N06SR           VN       0406                                  
032262,000421: 34,3633           01471        V06N57SR           VN       0657                                  
032263,000422: 34,3634           01442        V06N34SR           VN       0634                                  
032264,000423: 34,3635           01472        V06N58SR           VN       0658                                  
032265,000424: 34,3636           01521        V06N81SR           VN       0681                                  
032266,000425: 
032267,000426: 
032268,000427: 

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