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.

027163,000002:                                                                                                  ## Copyright:   Public domain.
027164,000003:                                                                                                  ## Filename:    P30,P37.agc
027165,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
027166,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
027167,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
027168,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
027169,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
027170,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
027171,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
027172,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
027173,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
027174,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
027175,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
027176,000015:                                                                                                  ## Reference:   pp. 612-615
027177,000016:                                                                                                  ## Assembler:   yaYUL
027178,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
027179,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
027180,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
027181,000020:                                                                                                  ##              2017-08-23 RSB  Transcribed.
027182,000021: 

Page 612

027184,000023:                                                                                                  #  PROGRAM DESCRIPTION  P30    DATE 3-6-67
027185,000024: 
027186,000025:                                                                                                  #  MOD.1  BY RAMA AIYAWAR
027187,000026:                                                                                                  #  FUNCTIONAL DESCRIPTION
027188,000027:                                                                                                  #     ACCEPT ASTRONAUT INPUTS OF TIG,DELV(LV)
027189,000028:                                                                                                  #     CALL IMU STATUS CHECK ROUTINE (R02)
027190,000029:                                                                                                  #     DISPLAY TIME TO GO, APOGEE, PERIGEE, DELV(MAG), MGA AT IGN
027191,000030:                                                                                                  #     REQUEST BURN PROGRAM
027192,000031: 
027193,000032:                                                                                                  #  CALLING SEQUENCE VIA JOB FROM V37
027194,000033: 
027195,000034:                                                                                                  #  EXIT VIA V37 CALL OR TO GOTOPOOH (V34E)
027196,000035: 
027197,000036:                                                                                                  #  SUBROUTINE CALLS-FLAGUP, PHASCHNG, BANKCALL, ENDOFJOB, GOFLASH, GOFLASHR
027198,000037:                                                                                                  #                   GOPERF3R, INTPRET, BLANKET, GOTOPOOH, R02BOTH, S30.1,
027199,000038:                                                                                                  #                   TTG/N35, MIDGIM, DISPMGA
027200,000039: 
027201,000040:                                                                                                  #  ERASABLE INITIALIZATION- STATE VECTOR
027202,000041: 
027203,000042:                                                                                                  #  OUTPUT-RINIT, VINIT, +MGA, VTIG, RTIG, DELVSIN, DELVSAB, DELVSLV, HAPO,
027204,000043:                                                                                                  #         HPER, TTOGO
027205,000044: 
027206,000045:                                                                                                  #  DEBRIS- A, L, MPAC, PUSHLIST
027207,000046: 
027208,000047: 32,2407                                           BANK     32                                    
027209,000048: 35,2000                                           SETLOC   P30S                                  
027210,000049: 35,2000                                           BANK                                           
027211,000050: 35,2000  E4,1643                                  EBANK=   +MGA                                  
027212,000051: 35,2000                                           COUNT*   $$/P30                                
027213,000052: 35,2000           05515        P30                TC       UPFLAG                                #  SET UPDATE FLAG
027214,000053: 35,2001           00027                           ADRES    UPDATFLG                              
027215,000054: 35,2002           05515                           TC       UPFLAG                                #  SET TRACK FLAG
027216,000055: 35,2003           00031                           ADRES    TRACKFLG                              
027217,000056: 
027218,000057: 35,2004           32032        P30N33             CAF      V06N33                                #  T OF IGN
027219,000058: 35,2005           03627                           TC       VNPOOH                                #  RETURNS ON PROCEED, POOH ON TERMINATE
027220,000059: 
027221,000060: 35,2006           33644                           CAF      V06N81                                #  DISPLAY DELTA V (LV)
027222,000061: 35,2007           03627                           TC       VNPOOH                                #      REDISPLAY ON RECYCLE
027223,000062: 
027224,000063: 35,2010           05527                           TC       DOWNFLAG                              #  RESET UPDATE FLAG
027225,000064: 35,2011           00027                           ADRES    UPDATFLG                              
027226,000065: 35,2012           06051                           TC       INTPRET                               
027227,000066: 35,2013           77624                           CALL                                           
027228,000067: 35,2014           70060                                    S30.1                                 
027229,000068: 35,2015           43014                           SET      SET                                   
027230,000069: 35,2016           00470                                    UPDATFLG                              
027231,000070: 35,2017           01067                                    XDELVFLG                              
027232,000071: 35,2020           77776                           EXIT                                           
027233,000072: 35,2021           32033        PARAM30            CAF      V06N42                                #  DISPLAY APOGEE,PERIGEE ,DELTA V
027234,000073: 

Page 613

027236,000075: 35,2022           03627                           TC       VNPOOH                                
027237,000076: 
027238,000077: 35,2023           06051                           TC       INTPRET                               
027239,000078: 35,2024           77614                           SET                                            
027240,000079: 35,2025           01071                                    FINALFLG                              
027241,000080: 35,2026           77624        REVN1645           CALL                                           
027242,000081: 35,2027           73523                                    VN1645                                
027243,000082: 35,2030           77650                           GOTO                                           #  COMES HERE ON RECYCLE RESPONSE
027244,000083: 35,2031           72026                                    REVN1645                              
027245,000084: 
027246,000085: 35,2032           01441        V06N33             VN       0633                                  
027247,000086: 35,2033           01452        V06N42             VN       0642                                  
027248,000087: 

Page 614

027250,000089:                                                                                                  #  PROGRAM DESCRIPTION S30.1      DATE 9NOV66
027251,000090: 
027252,000091:                                                                                                  #  MOD NO 1        LOG SECTION  P30,P37
027253,000092:                                                                                                  #  MOD  BY  RAMA AIYAWAR **
027254,000093:                                                                                                  #  FUNCTIONAL DESCRIPTION
027255,000094:                                                                                                  #           BASED ON STORED TARGET PARAMETERS(R OF IGNITION(RTIG),V OF
027256,000095:                                                                                                  #           IGNITION(VTIG),TIME OF IGNITION (TIG)),COMPUTE PERIGEE ALTITUDE
027257,000096:                                                                                                  #           APOGEE ALTITUDE AND DELTAV REQUIRED(DELVSIN).
027258,000097:                                                                                                  #  CALLING SEQUENCE
027259,000098:                                                                                                  #      L    CALL
027260,000099:                                                                                                  #      L+1         S30.1
027261,000100:                                                                                                  #  NORMAL EXIT MODE
027262,000101:                                                                                                  #      AT L+2 OR CALLING SEQUENCE (GOTO L+2)
027263,000102:                                                                                                  #  SUBROUTINES CALLED
027264,000103:                                                                                                  #           LEMPREC
027265,000104:                                                                                                  #           PERIAPO
027266,000105:                                                                                                  #  ALARM OR ABORT EXIT MODES
027267,000106:                                                                                                  #                  NONE
027268,000107:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
027269,000108:                                                                                                  #           TIG       TIME OF IGNITION                   DP     B28CS
027270,000109:                                                                                                  #           DELVSLV   SPECIFIED DELTA-V IN LOCAL VERT.
027271,000110:                                                                                                  #                     COORDS. OF ACTIVE VEHICLE AT
027272,000111:                                                                                                  #                  TIME OF IGNITION      VECTOR  B+7  METERS/CS
027273,000112:                                                                                                  #  OUTPUT
027274,000113:                                                                                                  #           RTIG   POSITION AT TIG       VECTOR  B+29 METERS
027275,000114:                                                                                                  #           VTIG   VELOCITY AT TIG       VECTOR  B+29 METERS/CS
027276,000115:                                                                                                  #           PDL 4D APOGEE ALTITUDE       DP      B+29 M ,  B+27 METERS.
027277,000116:                                                                                                  #           HAPO   APOGEE ALTITUDE       DP      B+29 METERS
027278,000117:                                                                                                  #           PDL 8D PERIGEE ALTITUDE      DP      B+29 M ,  B+27 METERS.
027279,000118:                                                                                                  #           HPER   PERIGEE ALTITUDE      DP      B+29 METERS
027280,000119:                                                                                                  #           DELVSIN   SPECIFIED DELTA-V IN INERTIAL
027281,000120:                                                                                                  #                     COORD. OF ACTIVE VEHICLE AT
027282,000121:                                                                                                  #                  TIME OF IGNITION      VECTOR  B+7  METERS/CS
027283,000122:                                                                                                  #           DELVSAB MAG. OF DELVSIN      VECTOR  B+7  METERS/CS
027284,000123:                                                                                                  #  DEBRIS QTEMP    TEMP. ERASABLE
027285,000124:                                                                                                  #         QPRET,MPAC
027286,000125:                                                                                                  #         PUSHLIST
027287,000126: 
027288,000127: 34,2000                                           SETLOC   P30S1                                 
027289,000128: 34,2000                                           BANK                                           
027290,000129: 
027291,000130: 34,2060                                           COUNT*   $$/S30S                               
027292,000131: 
027293,000132: 34,2060           71220        S30.1              STQ      DLOAD                                 
027294,000133: 34,2061           03632                                    QTEMP                                 
027295,000134: 34,2062           03442                                    TIG                                   #  TIME IGNITION SCALED AT 2(+28)CS
027296,000135: 34,2063           34041                           STCALL   TDEC1                                 
027297,000136: 34,2064           27056                                    LEMPREC                               #  ENCKE ROUTINE FOR LEM
027298,000137: 
027299,000138: 34,2065           67175                           VLOAD    SXA,2                                 
027300,000139: 

Page 615

027302,000141: 34,2066           00001                                    RATT                                  
027303,000142: 34,2067           02777                                    RTX2                                  
027304,000143: 34,2070           03642                           STORE    RTIG                                  #  RADIUS VECTOR AT IGNITION TIME
027305,000144: 34,2071           57456                           UNIT     VCOMP                                 
027306,000145: 34,2072           27656                           STOVL    DELVSIN                               #  ZRF/LV IN DELVSIN SCALED AT 2
027307,000146: 34,2073           00007                                    VATT                                  #  VELOCITY VECTOR AT TIG, SCALED 2(7) M/CS
027308,000147: 34,2074           03650                           STORE    VTIG                                  
027309,000148: 34,2075           53435                           VXV      UNIT                                  
027310,000149: 34,2076           03642                                    RTIG                                  
027311,000150: 34,2077           66001                           SETPD    SXA,1                                 
027312,000151: 34,2100           00001                                    0                                     
027313,000152: 34,2101           02776                                    RTX1                                  
027314,000153: 34,2102           47206                           PUSH     VXV                                   #  YRF/LV PDL 0  SCALED AT 2
027315,000154: 34,2103           03656                                    DELVSIN                               
027316,000155: 34,2104           63372                           VSL1     PDVL                                  
027317,000156: 34,2105           63315                           PDVL     PDVL                                  #  YRF/LV PDL 6   SCALED AT 2
027318,000157: 34,2106           03656                                    DELVSIN                               #  ZRF/LV PDL 12D SCALED AT 2
027319,000158: 34,2107           03434                                    DELVSLV                               
027320,000159: 34,2110           76505                           VXM      VSL1                                  
027321,000160: 34,2111           00001                                    0                                     
027322,000161: 34,2112           03656                           STORE    DELVSIN                               #  DELTAV IN INERT. COOR. SCALED TO B+7M/CS
027323,000162: 34,2113           77646                           ABVAL                                          
027324,000163: 34,2114           27664                           STOVL    DELVSAB                               #  DELTA V MAG.
027325,000164: 34,2115           03642                                    RTIG                                  #  (FOR PERIAPO)
027326,000165: 34,2116           53315                           PDVL     VAD                                   #  VREQUIRED = VTIG + DELVSIN (FOR PERIAPO)
027327,000166: 34,2117           03650                                    VTIG                                  
027328,000167: 34,2120           03656                                    DELVSIN                               
027329,000168: 34,2121           77624                           CALL                                           
027330,000169: 34,2122           46337                                    PERIAPO1                              
027331,000170: 34,2123           77624                           CALL                                           
027332,000171: 34,2124           46447                                    SHIFTR1                               #  RESCALE IF NEEDED
027333,000172: 34,2125           77624                           CALL                                           #  LIMIT DISPLAY TO 9999.9 N. MI.
027334,000173: 34,2126           45636                                    MAXCHK                                
027335,000174: 34,2127           16312                           STODL    HPER                                  #  PERIGEE ALT 2(29) METERS, FOR DISPLAY
027336,000175: 34,2130           00005                                    4D                                    
027337,000176: 34,2131           77624                           CALL                                           
027338,000177: 34,2132           46447                                    SHIFTR1                               #  RESCALE IF NEEDED
027339,000178: 34,2133           77624                           CALL                                           #  LIMIT DISPLAY TO 9999.9 N. MI.
027340,000179: 34,2134           45636                                    MAXCHK                                
027341,000180: 34,2135           36310                           STCALL   HAPO                                  #  APOGEE  ALT 2(29) METERS, FOR DISPLAY
027342,000181: 34,2136           03632                                    QTEMP                                 

End of include-file P30,P37.agc.  Parent file is MAIN.agc