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.

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

Page 731

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

Page 732

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

Page 733

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

Page 734

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

Page 735

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

Page 736

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

Page 737

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

Page 738

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

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