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.

028740,000002:                                                                                                  ## Copyright:   Public domain.
028741,000003:                                                                                                  ## Filename:    GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc
028742,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
028743,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
028744,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
028745,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
028746,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
028747,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
028748,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
028749,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
028750,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
028751,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
028752,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
028753,000015:                                                                                                  ## Reference:   pp. 649-652
028754,000016:                                                                                                  ## Assembler:   yaYUL
028755,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
028756,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
028757,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
028758,000020:                                                                                                  ##              2017-08-24 MAS  Updated for Zerlina 56.
028759,000021: 

Page 649

028761,000023:                                                                                                  #  GROUND TRACKING DETERMINATION PROGRAM P21
028762,000024:                                                                                                  #  PROGRAM DESCRIPTION
028763,000025:                                                                                                  #  MOD NO - 1
028764,000026:                                                                                                  #  MOD BY - N.M.NEVILLE
028765,000027:                                                                                                  #  FUNCTIONAL DECRIPTION-
028766,000028: 
028767,000029:                                                                                                  #  TO PROVIDE THE ASTRONAUT DETAILS OF THE LM OR CSM GROUND TRACK WITHOUT
028768,000030:                                                                                                  #  THE NEED FOR GROUND COMMUNICATION (REQUESTED BY DSKY).
028769,000031:                                                                                                  #  CALLING SEQUENCE -
028770,000032: 
028771,000033:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V37E21E
028772,000034:                                                                                                  #  SUBROUTINES CALLED-
028773,000035: 
028774,000036:                                                                                                  #  GOPERF4
028775,000037:                                                                                                  #  GOFLASH
028776,000038:                                                                                                  #  THISPREC
028777,000039:                                                                                                  #  OTHPREC
028778,000040:                                                                                                  #  LAT-LONG
028779,000041:                                                                                                  #  NORMAL EXIT MODES-
028780,000042: 
028781,000043:                                                                                                  #  ASTRONAUT REQUEST TROUGH DSKY TO TERMINATE PROGRAM V34E
028782,000044:                                                                                                  #  ALARM OR ABORT EXIT MODES-
028783,000045: 
028784,000046:                                                                                                  #  NONE
028785,000047:                                                                                                  #  OUTPUT -
028786,000048: 
028787,000049:                                                                                                  #  OCTAL DISPLAY OF OPTION CODE AND VEHICLE WHOSE GROUND TRACK IS TO BE
028788,000050:                                                                                                  #  COMPUTED
028789,000051:                                                                                                  #           OPTION CODE  00002
028790,000052:                                                                                                  #           THIS         00001
028791,000053:                                                                                                  #           OTHER        00002
028792,000054:                                                                                                  #  DECIMAL DISPLAY OF TIME TO BE INTEGRATED TO HOURS , MINUTES , SECONDS
028793,000055:                                                                                                  #  DECIMAL DISPLAY OF LAT,LONG,ALT
028794,000056:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
028795,000057: 
028796,000058:                                                                                                  #  AX0      2DEC   4.652459653 E-5   RADIANS       %68-69 CONSTANTS"
028797,000059: 
028798,000060:                                                                                                  #  -AY0     2DEC   2.147535898 E-5   RADIANS
028799,000061: 
028800,000062:                                                                                                  #  AZ0      2DEC   .7753206164       REVOLUTIONS
028801,000063:                                                                                                  #  FOR LUNAR ORBITS 504LM VECTOR IS NEEDED
028802,000064: 
028803,000065:                                                                                                  #  504LM    2DEC   -2.700340600 E-5  RADIANS
028804,000066: 
028805,000067:                                                                                                  #  504LM _2 2DEC   -7.514128400 E-4  RADIANS     
028806,000068: 
028807,000069:                                                                                                  #  504LM _4 2DEC   _2.553198641 E-4  RADIANS     
028808,000070: 
028809,000071:                                                                                                  #  NONE
028810,000072:                                                                                                  #  DEBRIS

Page 650

028812,000074: 
028813,000075:                                                                                                  #  CENTRALS-A,Q,L
028814,000076:                                                                                                  #  OTHER-THOSE USED BY THE ABOVE LISTED SUBROUTINES
028815,000077:                                                                                                  #  SEE LEMPREC,LAT-LONG
028816,000078: 35,2455  30,2000                                  SBANK=   LOWSUPER                              #  FOR LOW 2CADR'S.
028817,000079: 
028818,000080: 33,2031                                           BANK     33                                    
028819,000081: 24,2000                                           SETLOC   P20S                                  
028820,000082: 24,2000                                           BANK                                           
028821,000083: 
028822,000084: 24,3442  E7,1762                                  EBANK=   P21TIME                               
028823,000085: 24,3442                                           COUNT*   $$/P21                                
028824,000086: 24,3442           34753        PROG21             CAF      ONE                                   
028825,000087: 24,3443           55144                           TS       OPTION2                               #  ASSUMED VEHICLE IS LM , R2 = 00001
028826,000088: 24,3444           34752                           CAF      BIT2                                  #   OPTION 2
028827,000089: 24,3445           04616                           TC       BANKCALL                              
028828,000090: 24,3446           20634                           CADR     GOPERF4                               
028829,000091: 24,3447           06001                           TC       GOTOPOOH                              #  TERMINATE
028830,000092: 24,3450           03452                           TC       +2                                    #  PROCEED VALUE OF ASSUMED VEHICLE OK
028831,000093: 24,3451           03444                           TC       -5                                    #  R2 LOADED THROUGH DSKY
028832,000094: 24,3452           34755                           CAF      ZERO                                  #  INITIAL TIME = PRESENT TIME
028833,000095: 24,3453           55044                           TS       DSPTEM1                               
028834,000096: 24,3454           55045                           TS       DSPTEM1    +1                         
028835,000097: 24,3455           33631        P21PROG1           CAF      V6N34                                 #  LOAD DESIRED TIME OF LAT-LONG.
028836,000098: 24,3456           04616                           TC       BANKCALL                              
028837,000099: 24,3457           20477                           CADR     GOFLASH                               
028838,000100: 24,3460           06001                           TC       GOTOPOOH                              #  TERM
028839,000101: 24,3461           03463                           TC       +2                                    #  PROCEED VALUES OK
028840,000102: 24,3462           03455                           TC       -5                                    #  TIME LOADED THROUGH DSKY
028841,000103: 24,3463           06051                           TC       INTPRET                               
028842,000104: 24,3464           53145                           DLOAD    BZE                                   
028843,000105: 24,3465           01045                                    DSPTEM1                               
028844,000106: 24,3466           51623                                    P21PRTM                               
028845,000107: 24,3467           34041        P21PROG2           STCALL   TDEC1                                 #  INTEG TO TIME SPECIFIED IN TDEC1
028846,000108: 24,3470           27410                                    INTSTALL                              
028847,000109: 24,3471           43014                           BON      CLEAR                                 
028848,000110: 24,3472           00304                                    P21FLAG                               
028849,000111: 24,3473           51511                                    P21CONT                               #  ON---RECYCLE USING BASE VECTOR
028850,000112: 24,3474           01674                                    VINTFLAG                              #  OFF--1ST PASS CALL BASE VECTOR
028851,000113: 24,3475           70535                           SLOAD    SR1                                   
028852,000114: 24,3476           01145                                    OPTION2                               
028853,000115: 24,3477           43030                           BHIZ     SET                                   
028854,000116: 24,3500           51502                                    +2                                    #  ZERO--THIS VEHICLE(LM)
028855,000117: 24,3501           01474                                    VINTFLAG                              #  ONE--OTHER VEHICLE(CM)
028856,000118: 24,3502           43014                           CLEAR    CLEAR                                 
028857,000119: 24,3503           01676                                    DIM0FLAG                              
028858,000120: 24,3504           01673                                    INTYPFLG                              #  PRECISION
028859,000121: 24,3505           77624                           CALL                                           
028860,000122: 24,3506           27133                                    INTEGRV                               #  CALCULATE
028861,000123: 24,3507           77650                           GOTO                                           #  -AND

Page 651

028863,000125: 24,3510           51532                                    P21VSAVE                              #  -SAVE BASE VECTOR
028864,000126: 24,3511           77775        P21CONT            VLOAD                                          
028865,000127: 24,3512           03676                                    P21BASER                              #  RECYCLE--INTEG FROM BASE VECTOR
028866,000128: 24,3513           25535                           STOVL    RCV                                   #  --POS
028867,000129: 24,3514           03704                                    P21BASEV                              
028868,000130: 24,3515           15543                           STODL    VCV                                   #  --VEL
028869,000131: 24,3516           03763                                    P21TIME                               
028870,000132: 24,3517           01517                           STORE    TET                                   #  --TIME
028871,000133: 24,3520           43014                           CLEAR    CLEAR                                 
028872,000134: 24,3521           01676                                    DIM0FLAG                              
028873,000135: 24,3522           00263                                    MOONFLAG                              
028874,000136: 24,3523           53135                           SLOAD    BZE                                   
028875,000137: 24,3524           01163                                    P21ORIG                               
028876,000138: 24,3525           51530                                    +3                                    #  ZERO=EARTH
028877,000139: 24,3526           77614                           SET                                            #  ---2=MOON
028878,000140: 24,3527           00063                                    MOONFLAG                              
028879,000141: 24,3530           77624                 +3        CALL                                           
028880,000142: 24,3531           27106                                    INTEGRVS                              
028881,000143: 24,3532           77745        P21VSAVE           DLOAD                                          #  SAVE CURRENT BASE VECTOR
028882,000144: 24,3533           00015                                    TAT                                   
028883,000145: 24,3534           27763                           STOVL    P21TIME                               #  --TIME
028884,000146: 24,3535           00017                                    RATT1                                 
028885,000147: 24,3536           27676                           STOVL    P21BASER                              #  --POS B-29 OR B-27
028886,000148: 24,3537           00025                                    VATT1                                 
028887,000149: 24,3540           03704                           STORE    P21BASEV                              #  --VEL B-07 OR B-05
028888,000150: 24,3541           53646                           ABVAL    SL*                                   
028889,000151: 24,3542           57576                                    0,2                                   
028890,000152: 24,3543           27712                           STOVL    P21VEL                                #  VEL/ FOR N91 DISP
028891,000153: 24,3544           00001                                    RATT                                  
028892,000154: 24,3545           50256                           UNIT     DOT                                   
028893,000155: 24,3546           00007                                    VATT                                  #   U(R).V
028894,000156: 24,3547           67471                           DDV      ASIN                                  #  U(R).U(V)
028895,000157: 24,3550           03712                                    P21VEL                                
028896,000158: 24,3551           03714                           STORE    P21GAM                                #  SIN-1 U(R).U(V) , -90 TO &90
028897,000159: 24,3552           67334                           SXA,2    SLOAD                                 
028898,000160: 24,3553           01162                                    P21ORIG                               #  0=EARTH
028899,000161: 24,3554           01145                                    OPTION2                               
028900,000162: 24,3555           46142                           SR1      BHIZ                                  
028901,000163: 24,3556           51561                                    +3                                    
028902,000164: 24,3557           77650                           GOTO                                           
028903,000165: 24,3560           51564                                    +4                                    
028904,000166: 24,3561           77614                 +3        BON                                            
028905,000167: 24,3562           04307                                    SURFFLAG                              
028906,000168: 24,3563           51566                                    P21DSP                                
028907,000169: 24,3564           77614                 +4        SET                                            
028908,000170: 24,3565           00064                                    P21FLAG                               
028909,000171: 24,3566           67214        P21DSP             CLEAR    SLOAD                                 #  GENERATE DISPLAY DATA
028910,000172: 24,3567           01663                                    LUNAFLAG                              
028911,000173: 24,3570           00050                                    X2                                    

Page 652

028913,000175: 24,3571           43054                           BZE      SET                                   
028914,000176: 24,3572           51574                                    +2                                    #  0=EARTH
028915,000177: 24,3573           01463                                    LUNAFLAG                              
028916,000178: 24,3574           77775                           VLOAD                                          
028917,000179: 24,3575           00001                                    RATT                                  
028918,000180: 24,3576           16032                           STODL    ALPHAV                                
028919,000181: 24,3577           00015                                    TAT                                   
028920,000182: 24,3600           45014                           CLEAR    CALL                                  
028921,000183: 24,3601           00662                                    ERADFLAG                              
028922,000184: 24,3602           26347                                    LAT-LONG                              
028923,000185: 24,3603           77605                           DMP                                            #  MPAC = ALT,METERS B-29
028924,000186: 24,3604           11633                                    K.01                                  
028925,000187: 24,3605           03716                           STORE    P21ALT                                #  ALT/100 FOR N91 DISP
028926,000188: 24,3606           77776                           EXIT                                           
028927,000189: 24,3607           33630                           CAF      V06N43                                #  DISPLAY LAT,LONG,ALT
028928,000190: 24,3610           04616                           TC       BANKCALL                              #  LAT,LONG = 1/2 REVS B0
028929,000191: 24,3611           20477                           CADR     GOFLASH                               #  ALT = KM  B14
028930,000192: 24,3612           06001                           TC       GOTOPOOH                              #  TERM
028931,000193: 24,3613           06001                           TC       GOTOPOOH                              
028932,000194: 24,3614           06051                           TC       INTPRET                               #  V32E RECYCLE
028933,000195: 24,3615           43345                           DLOAD    DAD                                   
028934,000196: 24,3616           03763                                    P21TIME                               
028935,000197: 24,3617           11627                                    600SEC                                #  600 SECONDS OR 10 MIN
028936,000198: 24,3620           01045                           STORE    DSPTEM1                               
028937,000199: 24,3621           77634                           RTB                                            
028938,000200: 24,3622           51455                                    P21PROG1                              
028939,000201: 24,3623           52034        P21PRTM            RTB      GOTO                                  
028940,000202: 24,3624           21555                                    LOADTIME                              
028941,000203: 24,3625           51467                                    P21PROG2                              
028942,000204: 24,3626           00003 25140  600SEC             2DEC     60000      B-28                       #  10 MIN
028943,000205: 
028944,000206: 24,3630           01453        V06N43             VN       00643                                 
028945,000207: 24,3631           01442        V6N34              VN       00634                                 
028946,000208: 24,3632           00243 32703  K.01               2DEC     .01                                   
028947,000209: 

End of include-file GROUND_TRACKING_DETERMINATION_PROGRAM_-_P21.agc.  Parent file is MAIN.agc