Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

030950,000002:                                                                                                  ## Copyright:   Public domain.
030951,000003:                                                                                                  ## Filename:    P76.agc
030952,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
030953,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
030954,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
030955,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
030956,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
030957,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
030958,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
030959,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
030960,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
030961,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
030962,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
030963,000015:                                                                                                  ## Reference:   pp. 703-705
030964,000016:                                                                                                  ## Assembler:   yaYUL
030965,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030966,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
030967,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
030968,000020:                                                                                                  ##              2017-08-19 MAS  Updated for Zerlina 56.
030969,000021: 

Page 703

030971,000023:                                                                                                  #  1) PROGRAM NAME - TARGET DELTA V PROGRAM (P76).
030972,000024:                                                                                                  #  2) FUNCTIONAL DESCRIPTION - UPON ENTRY BY ASTRONAUT ACTION, P76 FLASHES DSKY REQUESTS TO THE ASTRONAUT
030973,000025:                                                                                                  #           TO PROVIDE VIA DSKY (1) THE DELTA V TO BE APPLIED TO THE OTHER VEHICLE STATE VECTOR AND (2) THE
030974,000026:                                                                                                  #           TIME (TIG) AT WHICH THE OTHER VEHICLE VELOCITY WAS CHANGED BY  EXECUTION OF A THRUSTING MANEUVER. THE
030975,000027:                                                                                                  #           OTHER VEHICLE STATE VECTOR IS INTEGRATED TO TIG AND UPDATED BY THE ADDITION OF DELTA V (DELTA V HAVING
030976,000028:                                                                                                  #           BEEN TRANSFORMED FROM LV TO REF COSYS).  USING INTEGRVS, THE   PROGRAM THEN INTEGRATES THE OTHER
030977,000029:                                                                                                  #  VEHICLE STATE VECTOR TO THE STATE VECTOR OF THIS VEHICLE, THUS INSURING THAT THE W-MATRIX AND BOTH VEHICLE
030978,000030:                                                                                                  #  STATES CORRESPOND TO THE SAME TIME.
030979,000031:                                                                                                  #  3) ERASABLE INITIALIZATION REQUIRED - NONE.
030980,000032:                                                                                                  #  4) CALLING SEQUENCES AND EXIT MODES - CALLED BY ASTRONAUT REQUEST THRU DSKY V 37 E 76 E.
030981,000033:                                                                                                  #           EXITS BY TCF ENDOFJOB.
030982,000034:                                                                                                  #  5) OUTPUT - OTHER VEHICLE STATE VECTOR INTEGRATED TO TIG AND INCREMENTED BY DELTA V IN REF COSYS.
030983,000035:                                                                                                  #           THE PUSHLIST CONTAINS THE MATRIX BY WHICH THE INPUT DELTA V MUST BE POST-MULTIPLIED TO CONVERT FROM LV
030984,000036:                                                                                                  #           TO REF COSYS.
030985,000037:                                                                                                  #  6) DEBRIS - OTHER VEHICLE STATE VECTOR.
030986,000038:                                                                                                  #  7) SUBROUTINES CALLED - BANKCALL,GOXDSPF,CSMPREC (OR LEMPREC),ATOPCSM (OR ATOPLEM),INTSTALL,INTWAKE, PHASCHNG
030987,000039:                                                                                                  #           INTPRET, INTEGRVS, AND MINIRECT.
030988,000040: 
030989,000041:                                                                                                  #  8) FLAG USE - MOONFLAG,CMOONFLAG,INTYPFLG,RASFLAG, AND MARKCTR.
030990,000042: 
030991,000043: 30,2061                                           BANK     30                                    
030992,000044: 13,2000                                           SETLOC   P76LOC                                
030993,000045: 13,2000                                           BANK                                           
030994,000046: 
030995,000047: 13,2207                                           COUNT*   $$/P76                                
030996,000048: 
030997,000049: 13,2207  E7,1441                                  EBANK=   TIG                                   
030998,000050: 
030999,000051: 13,2207           05515        P76                TC       UPFLAG                                
031000,000052: 13,2210           00031                           ADRES    TRACKFLG                              
031001,000053: 
031002,000054: 13,2211           06051                           TC       INTPRET                               
031003,000055: 13,2212           77775                           VLOAD                                          
031004,000056: 13,2213           03434                                    DELVLVC                               
031005,000057: 13,2214           01253                           STORE    DELVOV                                
031006,000058: 13,2215           77776                           EXIT                                           
031007,000059: 
031008,000060: 13,2216           32335                           CAF      V06N84     +1                         #  FLASH VERB 06 NOUN 33, DISPLAY LAST TIG,
031009,000061: 13,2217           04616                           TC       BANKCALL                              #  AND WAIT FOR KEYBOARD ACTION.
031010,000062: 13,2220           20477                           CADR     GOFLASH                               
031011,000063: 13,2221           12331                           TCF      ENDP76                                
031012,000064: 13,2222           02224                           TC       +2                                    #  PROCEED
031013,000065: 13,2223           02216                           TC       -5                                    #  STORE DATA AND REPEAT FLASHING
031014,000066: 13,2224           32334                           CAF      V06N84                                #  FLASH LAST DELTA V,
031015,000067: 13,2225           04616                           TC       BANKCALL                              #  AND WAIT FOR KEYBOARD ACTION.
031016,000068: 13,2226           20477                           CADR     GOFLASH                               
031017,000069: 13,2227           12331                           TCF      ENDP76                                
031018,000070: 13,2230           02232                           TC       +2                                    
031019,000071: 13,2231           02224                           TC       -5                                    
031020,000072: 13,2232           06051                           TC       INTPRET                               #  RETURN TO INTERPRETIVE CODE

Page 704

031022,000074: 13,2233           43145                           DLOAD    SET                                   
031023,000075: 13,2234           03442                                    TIG                                   
031024,000076: 13,2235           01076                                    NODOFLAG                              
031025,000077: 13,2236           34041                           STCALL   TDEC1                                 #  SET TDEC1=TIG FOR ORBITAL INTEGRATION
031026,000078: 13,2237           27042                                    OTHPREC                               
031027,000079: 13,2240           53575        COMPMAT            VLOAD    UNIT                                  
031028,000080: 13,2241           00001                                    RATT                                  
031029,000081: 13,2242           77676                           VCOMP                                          #  U(-R)
031030,000082: 13,2243           00031                           STORE    24D                                   #  U(-R) TO 24D
031031,000083: 13,2244           53435                           VXV      UNIT                                  #  U(-R)XV = U(VXR)
031032,000084: 13,2245           00007                                    VATT                                  
031033,000085: 13,2246           00023                           STORE    18D                                   
031034,000086: 13,2247           53435                           VXV      UNIT                                  #  U(VXR)XU(-R) = U((RXV)XR)
031035,000087: 13,2250           00031                                    24D                                   
031036,000088: 13,2251           24015                           STOVL    12D                                   
031037,000089: 13,2252           01253                                    DELVOV                                
031038,000090: 13,2253           76505                           VXM      VSL1                                  #  V(MPAC)=DELTA V IN REFCOSYS
031039,000091: 13,2254           00015                                    12D                                   
031040,000092: 13,2255           77655                           VAD                                            
031041,000093: 13,2256           00007                                    VATT                                  
031042,000094: 13,2257           00007                           STORE    6                                     #  V(PD6)=VATT + DELTA V
031043,000095: 13,2260           77624                           CALL                                           #  PREVENT WOULD-BE USER OF ORBITAL
031044,000096: 13,2261           27410                                    INTSTALL                              #  INTEG FROM INTERFERING WITH UPDATING
031045,000097: 13,2262           77624                           CALL                                           
031046,000098: 13,2263           26336                                    P76SUB1                               
031047,000099: 13,2264           53775                           VLOAD    VSR*                                  
031048,000100: 13,2265           00007                                    6                                     
031049,000101: 13,2266           57176                                    0,2                                   
031050,000102: 13,2267           25543                           STOVL    VCV                                   
031051,000103: 13,2270           00001                                    RATT                                  
031052,000104: 13,2271           77657                           VSR*                                           
031053,000105: 13,2272           57176                                    0,2                                   
031054,000106: 13,2273           15535                           STODL    RCV                                   
031055,000107: 13,2274           03442                                    TIG                                   
031056,000108: 13,2275           01517                           STORE    TET                                   
031057,000109: 13,2276           71214                           CLEAR    DLOAD                                 
031058,000110: 13,2277           01673                                    INTYPFLG                              
031059,000111: 13,2300           01643                                    TETTHIS                               
031060,000112: 13,2301           34041        INTOTHIS           STCALL   TDEC1                                 
031061,000113: 13,2302           27106                                    INTEGRVS                              
031062,000114: 13,2303           77624                           CALL                                           
031063,000115: 13,2304           27410                                    INTSTALL                              
031064,000116: 13,2305           77775                           VLOAD                                          
031065,000117: 13,2306           00017                                    RATT1                                 
031066,000118: 13,2307           01503                           STORE    RRECT                                 
031067,000119: 13,2310           15535                           STODL    RCV                                   
031068,000120: 13,2311           00015                                    TAT                                   
031069,000121: 13,2312           25517                           STOVL    TET                                   
031070,000122: 13,2313           00025                                    VATT1                                 
031071,000123: 13,2314           77624                           CALL                                           

Page 705

031073,000125: 13,2315           27705                                    MINIRECT                              
031074,000126: 13,2316           77776                           EXIT                                           
031075,000127: 13,2317           05364                           TC       PHASCHNG                              
031076,000128: 13,2320           04024                           OCT      04024                                 
031077,000129: 
031078,000130: 13,2321           06051                           TC       INTPRET                               
031079,000131: 13,2322           45014                           SET      CALL                                  
031080,000132: 13,2323           05070                                    REINTFLG                              
031081,000133: 13,2324           26660                                    ATOPOTH                               
031082,000134: 13,2325           77624                           CALL                                           
031083,000135: 13,2326           27417                                    INTWAKE0                              
031084,000136: 13,2327           77414        OUT                CLEAR    EXIT                                  #  ALLOW V37.  NO NEED TO CLEAR NODOFLAG AT
031085,000137: 13,2330           01276                                    NODOFLAG                              #   ENDP76 SINCE FLAG NOT SET WHEN DISPLAY
031086,000138:                                                                                                  #   RESPONSES TRANSFER THERE FROM P76+.
031087,000139: 13,2331           34755        ENDP76             CAF      ZERO                                  
031088,000140: 13,2332           55462                           TS       MARKCTR                               #  CLEAR RR TRACKING MARK COUNTER
031089,000141: 13,2333           16001                           TCF      GOTOPOOH                              
031090,000142: 
031091,000143: 13,2334           01524        V06N84             NV       0684                                  
031092,000144: 13,2335           01441                           NV       0633                                  
031093,000145: 13,2336           43174        P76SUB1            AXT,2    SET                                   
031094,000146: 13,2337           00002                                    2                                     
031095,000147: 13,2340           00063                                    MOONFLAG                              #  SET MEANS MOON IS SPHERE OF INFLUENCE.
031096,000148: 13,2341           77014                           BON      AXT,2                                 
031097,000149: 13,2342           04303                                    CMOONFLG                              #  SET MEANS PERM CM STATE IN LUNAR SPHERE.
031098,000150: 13,2343           00052                                    QPRET                                 
031099,000151: 13,2344           00000                                    0                                     
031100,000152: 13,2345           43414                           CLEAR    RVQ                                   
031101,000153: 13,2346           00263                                    MOONFLAG                              

End of include-file P76.agc.  Parent file is MAIN.agc