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,1970Note 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