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.

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

Page 731

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

Page 732

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

Page 733

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

Page 734

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

Page 735

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

Page 736

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

Page 737

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

Page 738

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

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