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.

036697,000002:                                                                                                  ## Copyright:   Public domain.
036698,000003:                                                                                                  ## Filename:    P70-P71.agc
036699,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
036700,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
036701,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
036702,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
036703,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
036704,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
036705,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
036706,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
036707,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
036708,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
036709,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
036710,000015:                                                                                                  ## Reference:   pp. 822-828
036711,000016:                                                                                                  ## Assembler:   yaYUL
036712,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
036713,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
036714,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
036715,000020:                                                                                                  ##              2017-08-19 MAS  Updated for Zerlina 56.
036716,000021: 

Page 822

036718,000023: 21,2006                                           BANK     21                                    
036719,000024: 21,2000                                           SETLOC   R11                                   
036720,000025: 21,2000                                           BANK                                           
036721,000026: 
036722,000027: 21,2006  E3,1446                                  EBANK=   PHSNAME5                              
036723,000028: 
036724,000029: 21,2006                                           COUNT*   $$/P70                                
036725,000030: 
036726,000031: 21,2006           02035        P70                TC       LEGAL?                                
036727,000032: 21,2007           44755        P70A               CS       ZERO                                  #  COME HERE FROM QUARTASK
036728,000033: 21,2010           12013                           TCF      +3                                    
036729,000034: 21,2011           02035        P71                TC       LEGAL?                                
036730,000035: 21,2012           34752        P71A               CAF      TWO                                   #  COME HERE FROM QUARTASK
036731,000036: 21,2013           54002                 +3        TS       Q                                     
036732,000037: 21,2014           00004                           INHINT                                         
036733,000038: 21,2015           42031                           CS       DAPBITS                               #  DAPBITS = OCT 40640 = BITS 6, 8, 9, 15
036734,000039: 21,2016           70111                           MASK     DAPBOOLS                              #    WHICH RESET ULLAGE, DRIFT, XOVRIINH,
036735,000040: 21,2017           54111                           TS       DAPBOOLS                              #    AND PULSES FLAGS
036736,000041: 
036737,000042: 21,2020           32032                           CAF      1DEGDB                                #  INSURE DAP DEADBAND IS SET TO 1 DEGREE
036738,000043: 21,2021           55343                           TS       DB                                    
036739,000044: 
036740,000045: 21,2022           34735                           CAF      BIT15                                 #  TREATING FLAGWORDS THUS IS BAD PRACTICE
036741,000046: 21,2023           54107                           TS       FLGWRD11                              
036742,000047: 
036743,000048: 21,2024           00006                           EXTEND                                         
036744,000049: 21,2025           32030                           DCA      CNTABTAD                              
036745,000050: 21,2026           52006                           DTCB                                           
036746,000051: 
036747,000052: 21,2027  E3,1446                                  EBANK=   PHSNAME5                              
036748,000053: 21,2027           03414 12063  CNTABTAD           2CADR    CONTABRT                              
036749,000054: 
036750,000055: 21,2031           40640        DAPBITS            OCT      40640                                 
036751,000056: 21,2032           00554        1DEGDB             OCT      00554                                 
036752,000057: 21,2033           00106        1DEC70             DEC      70         B-14                       
036753,000058: 21,2034           00107        1DEC71             DEC      71         B-14                       
036754,000059: 
036755,000060: 05,3414                                           BANK     05                                    
036756,000061: 05,2000                                           SETLOC   ABORTS1                               
036757,000062: 05,2000                                           BANK                                           
036758,000063: 05,3414                                           COUNT*   $$/P70                                
036759,000064: 
036760,000065: 05,3414           33417        CONTABRT           CAF      ABRTJADR                              
036761,000066: 05,3415           54017                           TS       BRUPT                                 
036762,000067: 05,3416           50017                           RESUME                                         
036763,000068: 
036764,000069: 05,3417           13420        ABRTJADR           TCF      ABRTJASK                              
036765,000070: 
036766,000071: 05,3420           33503        ABRTJASK           CAF      OCTAL27                               
036767,000072: 05,3421           60002                           AD       Q                                     

Page 823

036769,000074: 05,3422           54001                           TS       L                                     
036770,000075: 05,3423           40000                           COM                                            
036771,000076: 05,3424           52760                           DXCH     -PHASE4                               
036772,000077: 05,3425           50002                           INDEX    Q                                     
036773,000078: 05,3426           33502                           CAF      MODE70                                
036774,000079: 05,3427           55010                           TS       MODREG                                
036775,000080: 
036776,000081: 05,3430           55162                           TS       DISPDEX                               #  INSURE DISPDEX IS POSITIVE.
036777,000082: 
036778,000083: 05,3431           10002                           CCS      Q                                     #  SET APSFLAG IF P71.
036779,000084: 05,3432           40106                           CS       FLGWRD10                              #  SET APSFLAG PRIOR TO THE ENEMA.
036780,000085: 05,3433           74737                           MASK     APSFLBIT                              
036781,000086: 05,3434           26106                           ADS      FLGWRD10                              
036782,000087: 
036783,000088: 05,3435           40101                           CS       FLAGWRD5                              #  SET ENGONFLG.
036784,000089: 05,3436           74745                           MASK     ENGONBIT                              
036785,000090: 05,3437           26101                           ADS      FLAGWRD5                              
036786,000091: 
036787,000092: 05,3440           44355                           CS       PRIO30                                #  INSURE THAT THE ENGINE IS ON, IF ARMED.
036788,000093: 05,3441           00006                           EXTEND                                         
036789,000094: 05,3442           02011                           RAND     DSALMOUT                              
036790,000095: 05,3443           64737                           AD       BIT13                                 
036791,000096: 05,3444           00006                           EXTEND                                         
036792,000097: 05,3445           01011                           WRITE    DSALMOUT                              
036793,000098: 
036794,000099: 05,3446           44743                           CS       ALW66BIT                              #  DISALLOW P66 SELECTION
036795,000100: 05,3447           70075                           MASK     FLAGWRD1                              
036796,000101: 05,3450           54075                           TS       FLAGWRD1                              
036797,000102: 
036798,000103: 05,3451           40074                           CS       FLAGWRD0                              #  SIGNAL THE LAD TO DISPLAY LATVEL IN
036799,000104: 05,3452           74752                           MASK     R10FLBIT                              #    INERTIAL COORDINATES AND FORVEL ZERO
036800,000105: 05,3453           26074                           ADS      FLAGWRD0                              
036801,000106: 
036802,000107: 05,3454           00006                           EXTEND                                         #  LOAD TEVENT FOR THE DOWNLINK.
036803,000108: 05,3455           30025                           DCA      TIME2                                 
036804,000109: 05,3456           53342                           DXCH     TEVENT                                
036805,000110: 
036806,000111: 05,3457           00006                           EXTEND                                         
036807,000112: 05,3460           33506                           DCA      ATMAGAD                               #  CONNECT ASCENT GUIDANCE
036808,000113: 05,3461           53253                           DXCH     AVGEXIT                               
036809,000114: 
036810,000115: 05,3462           02671                           TC       ABTKLEAN                              #  KILL GROUPS 1,3, AND 6.
036811,000116: 
036812,000117: 05,3463           36257                           CAF      THREE                                 #  SET UP 4.3SPOT FOR GOABORT
036813,000118: 05,3464           54001                           TS       L                                     
036814,000119: 05,3465           40000                           COM                                            
036815,000120: 05,3466           52760                           DXCH     -PHASE4                               
036816,000121: 
036817,000122: 05,3467           30076                           CA       FLAGWRD2                              #  IS GUIDANCE IN PROGRESS?
036818,000123: 05,3470           74742                           MASK     SEROVBIT                              

Page 824

036820,000125: 05,3471           00006                           EXTEND                                         
036821,000126: 05,3472           13476                           BZF      GOENEMA                               #  NO
036822,000127: 
036823,000128: 05,3473           00006                           EXTEND                                         #  YES:  RESET PHSNAME5 FOR PIPCYCLE
036824,000129: 05,3474           33501                           DCA      PIPCYCAD                              
036825,000130: 05,3475           53447                           DXCH     PHSNAME5                              
036826,000131: 
036827,000132: 05,3476           04635        GOENEMA            TC       POSTJUMP                              
036828,000133: 05,3477           13001                           CADR     ENEMA                                 
036829,000134: 
036830,000135: 05,3500  E7,1513                                  EBANK=   DVCNTR                                
036831,000136: 05,3500           02102 66067  PIPCYCAD           2CADR    PIPCYCLE                              
036832,000137: 
036833,000138: 05,3502           00106        MODE70             DEC      70         B-14                       
036834,000139: 05,3503           00027        OCTAL27            OCT      27                                    
036835,000140: 05,3504           00107        MODE71             DEC      71         B-14                       
036836,000141: 
036837,000142: 05,3505  E7,1513                                  EBANK=   DVCNTR                                
036838,000143: 05,3505           03455 70067  ATMAGAD            2CADR    ATMAG                                 
036839,000144: 
036840,000145: 
036841,000146: 
036842,000147: 32,3527                                           BANK     32                                    
036843,000148: 32,2000                                           SETLOC   ABORTS                                
036844,000149: 32,2000                                           BANK                                           
036845,000150: 
036846,000151: 32,3527                                           COUNT*   $$/P70                                
036847,000152: 
036848,000153: 32,3527  E7,1513                                  EBANK=   DVCNTR                                
036849,000154: 32,3527           34751        GOABORT            CAF      FOUR                                  
036850,000155: 32,3530           55513                           TS       DVCNTR                                
036851,000156: 
036852,000157: 32,3531           33732                           CAF      WHICHADR                              
036853,000158: 32,3532           55455                           TS       WHICH                                 
036854,000159: 
036855,000160: 32,3533           06051                           TC       INTPRET                               
036856,000161: 32,3534           43014                           CLEAR    CLEAR                                 
036857,000162: 32,3535           04665                                    FLRCS                                 
036858,000163: 32,3536           04265                                    FLUNDISP                              
036859,000164: 32,3537           43014                           CLEAR    SET                                   
036860,000165: 32,3540           03670                                    IDLEFLAG                              
036861,000166: 32,3541           06464                                    ACC4-2FL                              
036862,000167: 32,3542           45014                           SET      CALL                                  
036863,000168: 32,3543           04462                                    P7071FLG                              
036864,000169: 32,3544           61064                                    INITCDUW                              
036865,000170: 32,3545           77776                           EXIT                                           
036866,000171: 
036867,000172: 32,3546           05332                           TC       CHECKMM                               
036868,000173: 32,3547           00106        70DEC              DEC      70         B-14                       
036869,000174: 32,3550           13656                           TCF      P71RET                                
036870,000175: 

Page 825

036872,000177: 32,3551           06051        P70INIT            TC       INTPRET                               
036873,000178: 32,3552           77624                           CALL                                           
036874,000179: 32,3553           65705                                    TGOCOMP                               
036875,000180: 32,3554           54345                           DLOAD    SL                                    
036876,000181: 32,3555           34003                                    MDOTDPS                               
036877,000182: 32,3556           20205                                    4D                                    
036878,000183: 32,3557           77665                           BDDV                                           
036879,000184: 32,3560           01246                                    MASS                                  
036880,000185: 32,3561           16262                           STODL    TBUP                                  
036881,000186: 32,3562           01246                                    MASS                                  
036882,000187: 32,3563           70471                           DDV      SR1                                   
036883,000188: 32,3564           16015                                    K(1/DV)                               
036884,000189: 32,3565           03635                           STORE    1/DV1                                 
036885,000190: 32,3566           03637                           STORE    1/DV2                                 
036886,000191: 32,3567           03641                           STORE    1/DV3                                 
036887,000192: 32,3570           77665                           BDDV                                           
036888,000193: 32,3571           25731                                    K(AT)                                 
036889,000194: 32,3572           16254                           STODL    AT                                    
036890,000195: 32,3573           34015                                    100PCTTO                              
036891,000196: 32,3574           02260                           STORE    TTO                                   
036892,000197: 32,3575           57535                           SLOAD    DCOMP                                 
036893,000198: 32,3576           26002                                    DPSVEX                                
036894,000199: 32,3577           77702                           SR2                                            
036895,000200: 32,3600           36256                           STCALL   VE                                    
036896,000201: 32,3601           60267                                    COMMINIT                              
036897,000202: 32,3602           77745        INJTARG            DLOAD                                          
036898,000203: 32,3603           02553                                    ABTRDOT                               
036899,000204: 32,3604           36264                           STCALL   RDOTD                                 #  INITIALIZE RDOTD.
036900,000205: 32,3605           57333                                    YCOMP                                 #  COMPUTE Y
036901,000206: 32,3606           45246                           ABS      DSU                                   
036902,000207: 32,3607           02551                                    YLIM                                  #  /Y/-DYMAX
036903,000208: 32,3610           75240                           BMN      SIGN                                  #  IF <0, XR<.5DEG, LEAVE YCO AT 0
036904,000209: 32,3611           65614                                    YOK                                   #  IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
036905,000210: 32,3612           02326                                    Y                                     
036906,000211: 32,3613           03633                           STORE    YCO                                   
036907,000212: 32,3614           45345        YOK                DLOAD    DSU                                   
036908,000213: 32,3615           03633                                    YCO                                   
036909,000214: 32,3616           02326                                    Y                                     
036910,000215: 32,3617           77661                           SR                                             
036911,000216: 32,3620           20606                                    5D                                    
036912,000217: 32,3621           03643                           STORE    XRANGE                                
036913,000218: 32,3622           45014                           SET      CALL                                  
036914,000219: 32,3623           04461                                    FLVR                                  
036915,000220: 32,3624           71644                                    THETCOMP                              
036916,000221: 32,3625           51025                           DSU      BPL                                   
036917,000222: 32,3626           02545                                    THETCRIT                              
036918,000223: 32,3627           65633                                    +4                                    
036919,000224: 32,3630           52175                           VLOAD    GOTO                                  
036920,000225: 32,3631           02535                                    J1PARM                                
036921,000226: 32,3632           65636                                    STORPARM                              

Page 826

036923,000228: 32,3633           43175                 +4        VLOAD    SET                                   #  IF J2 IS USED, SET THE
036924,000229: 32,3634           02541                                    J2PARM                                #  ABORT TARGETING FLAG
036925,000230: 32,3635           04470                                    ABTTGFLG                              
036926,000231: 32,3636           16561        STORPARM           STODL    JPARM                                 
036927,000232: 32,3637           03631                                    RCO                                   
036928,000233: 32,3640           02565                           STORE    RP                                    
036929,000234: 32,3641           77414                           SET      EXIT                                  
036930,000235: 32,3642           04471                                    ROTFLAG                               
036931,000236: 
036932,000237: 32,3643           03714        UPTHROT            TC       THROTUP                               
036933,000238: 
036934,000239: 32,3644           05364                           TC       PHASCHNG                              
036935,000240: 32,3645           04024                           OCT      04024                                 
036936,000241: 
036937,000242: 32,3646           05515                           TC       UPFLAG                                
036938,000243: 32,3647           00216                           ADRES    FLAP                                  
036939,000244: 
036940,000245: 32,3650           04616        UPTHROT1           TC       BANKCALL                              #  VERIFY THAT THE PANEL SWITCHES
036941,000246: 32,3651           73715                           CADR     P40AUTO                               #  ARE PROPERLY SET.
036942,000247: 
036943,000248: 32,3652           03714                           TC       THROTUP                               
036944,000249: 
036945,000250: 32,3653           05364        GRP4OFF            TC       PHASCHNG                              #  TERMINATE USE OF GROUP 4.
036946,000251: 32,3654           00004                           OCT      00004                                 
036947,000252: 
036948,000253: 32,3655           15155                           TCF      ENDOFJOB                              
036949,000254: 
036950,000255: 32,3656           05527        P71RET             TC       DOWNFLAG                              
036951,000256: 32,3657           00215                           ADRES    LETABORT                              
036952,000257: 
036953,000258: 32,3660           36000                           CAF      THRESH2                               #  SET DVMON THRESHOLD TO THE ASCENT VALUE.
036954,000259: 32,3661           55251                           TS       DVTHRUSH                              
036955,000260: 
036956,000261: 32,3662           06051                           TC       INTPRET                               
036957,000262: 32,3663           77624                           CALL                                           
036958,000263: 32,3664           60243                                    P12INIT                               
036959,000264: 32,3665           45014                           BON      CALL                                  
036960,000265: 32,3666           04707                                    FLAP                                  
036961,000266: 32,3667           65673                                    OLDTIME                               
036962,000267: 32,3670           65705                                    TGOCOMP                               #  IF FLAP=0, TGO=T-TIG
036963,000268: 32,3671           77650                           GOTO                                           
036964,000269: 32,3672           65602                                    INJTARG                               
036965,000270: 32,3673           72545        OLDTIME            DLOAD    SL1                                   #  IF FLAP=1,TGO=2 TGO
036966,000271: 32,3674           03515                                    TGO                                   
036967,000272: 32,3675           03502                           STORE    TGO1                                  
036968,000273: 32,3676           77776                           EXIT                                           
036969,000274: 
036970,000275: 32,3677           05364                           TC       PHASCHNG                              
036971,000276: 32,3700           04024                           OCT      04024                                 
036972,000277: 

Page 827

036974,000279: 32,3701           00006                           EXTEND                                         
036975,000280: 32,3702           31502                           DCA      TGO1                                  
036976,000281: 32,3703           53515                           DXCH     TGO                                   
036977,000282: 32,3704           13650                           TCF      UPTHROT1                              
036978,000283: 
036979,000284:                                                                                                  #  ************************************************************************
036980,000285: 
036981,000286: 21,2035                                           BANK     21                                    
036982,000287: 21,2000                                           SETLOC   R11                                   
036983,000288: 21,2000                                           BANK                                           
036984,000289: 
036985,000290: 21,2035                                           COUNT*   $$/P70                                
036986,000291: 
036987,000292: 21,2035           40774        LEGAL?             CS       MMNUMBER                              #  IS THE DESIRED PGM ALREADY IN PROGRESS?
036988,000293: 21,2036           61010                           AD       MODREG                                
036989,000294: 21,2037           00006                           EXTEND                                         
036990,000295: 21,2040           12051                           BZF      ABORTALM                              
036991,000296: 
036992,000297: 21,2041           40105                           CS       FLAGWRD9                              #  ARE THE ABORTS ENABLED?
036993,000298: 21,2042           74743                           MASK     LETABBIT                              
036994,000299: 21,2043           10000                           CCS      A                                     
036995,000300: 21,2044           12051                           TCF      ABORTALM                              
036996,000301: 
036997,000302: 21,2045           30103                           CA       FLAGWRD7                              #  IS SERVICER ON THE AIR?
036998,000303: 21,2046           74747                           MASK     AVEGFBIT                              
036999,000304: 21,2047           10000                           CCS      A                                     
037000,000305: 21,2050           00002                           TC       Q                                     #  YES.  ALL IS WELL.
037001,000306: 21,2051           04364        ABORTALM           TC       FALTON                                
037002,000307: 21,2052           04457                           TC       RELDSP                                
037003,000308: 21,2053           04635                           TC       POSTJUMP                              
037004,000309: 21,2054           21051                           CADR     PINBRNCH                              
037005,000310: 
037006,000311: 32,3705                                           BANK     32                                    
037007,000312: 32,2000                                           SETLOC   ABORTS                                
037008,000313: 32,2000                                           BANK                                           
037009,000314: 
037010,000315: 32,3705                                           COUNT*   $$/P70                                
037011,000316: 
037012,000317:                                                                                                  #  ************************************************************************
037013,000318: 
037014,000319: 32,3705           45234        TGOCOMP            RTB      DSU                                   
037015,000320: 32,3706           21555                                    LOADTIME                              
037016,000321: 32,3707           03442                                    TIG                                   
037017,000322: 32,3710           77661                           SL                                             
037018,000323: 32,3711           20214                                    11D                                   
037019,000324: 32,3712           03515                           STORE    TGO                                   
037020,000325: 32,3713           77616                           RVQ                                            
037021,000326: 
037022,000327:                                                                                                  #  ************************************************************************
037023,000328: 

Page 828

037025,000330: 32,3714           34737        THROTUP            CAF      BIT13                                 
037026,000331: 32,3715           54055                           TS       THRUST                                
037027,000332: 32,3716           34750                           CAF      BIT4                                  
037028,000333: 32,3717           00006                           EXTEND                                         
037029,000334: 32,3720           05014                           WOR      CHAN14                                
037030,000335: 32,3721           00002                           TC       Q                                     
037031,000336: 
037032,000337:                                                                                                  #  ************************************************************************
037033,000338: 
037034,000339: 32,3722           00000 01750  10SECS             2DEC     1000       B-28                       
037035,000340: 
037036,000341: 32,3724           00021 33400  HINJECT            2DEC     18288      B-24                       #  60,000 FEET EXPRESSED IN METERS.
037037,000342: 
037038,000343: 32,3726           11021 00000  (TGO)A             2DEC     37000      B-17                       
037039,000344: 
037040,000345: 32,3730           00507 25605  K(AT)              2DEC     .02                                   #  SCALING CONSTANT
037041,000346: 
037042,000347: 32,3732           02114        WHICHADR           REMADR   ABRTABLE                              
037043,000348: 
037044,000349:                                                                                                  #  ************************************************************************

End of include-file P70-P71.agc.  Parent file is MAIN.agc