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.
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. |
036706,000002: ## Copyright: Public domain.
036707,000003: ## Filename: P70-P71.agc
036708,000004: ## Purpose: A log section of Zerlina 56, the final revision of
036709,000005: ## Don Eyles's offline development program for the variable
036710,000006: ## guidance period servicer. It also includes a new P66 with LPD
036711,000007: ## (Landing Point Designator) capability, based on an idea of John
036712,000008: ## Young's. Neither of these advanced features were actually flown,
036713,000009: ## but Zerlina was also the birthplace of other big improvements to
036714,000010: ## Luminary including the terrain model and new (Luminary 1E)
036715,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
036716,000012: ## and revision 56 includes all changes up to and including Luminary
036717,000013: ## 183. It is therefore quite close to the Apollo 14 program,
036718,000014: ## Luminary 178, where not modified with new features.
036719,000015: ## Reference: pp. 822-828
036720,000016: ## Assembler: yaYUL
036721,000017: ## Contact: Ron Burkey <info@sandroid.org>.
036722,000018: ## Website: www.ibiblio.org/apollo/index.html
036723,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
036724,000020: ## 2017-08-19 MAS Updated for Zerlina 56.
036725,000021:
|
|
Page 822 |
036727,000023: 21,2006 BANK 21
036728,000024: 21,2000 SETLOC R11
036729,000025: 21,2000 BANK
036730,000026:
036731,000027: 21,2006 E3,1446 EBANK= PHSNAME5
036732,000028:
036733,000029: 21,2006 COUNT* $$/P70
036734,000030:
036735,000031: 21,2006 02035 P70 TC LEGAL?
036736,000032: 21,2007 44755 P70A CS ZERO # COME HERE FROM QUARTASK
036737,000033: 21,2010 12013 TCF +3
036738,000034: 21,2011 02035 P71 TC LEGAL?
036739,000035: 21,2012 34752 P71A CAF TWO # COME HERE FROM QUARTASK
036740,000036: 21,2013 54002 +3 TS Q
036741,000037: 21,2014 00004 INHINT
036742,000038: 21,2015 42031 CS DAPBITS # DAPBITS = OCT 40640 = BITS 6, 8, 9, 15
036743,000039: 21,2016 70111 MASK DAPBOOLS # WHICH RESET ULLAGE, DRIFT, XOVRIINH,
036744,000040: 21,2017 54111 TS DAPBOOLS # AND PULSES FLAGS
036745,000041:
036746,000042: 21,2020 32032 CAF 1DEGDB # INSURE DAP DEADBAND IS SET TO 1 DEGREE
036747,000043: 21,2021 55343 TS DB
036748,000044:
036749,000045: 21,2022 34735 CAF BIT15 # TREATING FLAGWORDS THUS IS BAD PRACTICE
036750,000046: 21,2023 54107 TS FLGWRD11
036751,000047:
036752,000048: 21,2024 00006 EXTEND
036753,000049: 21,2025 32030 DCA CNTABTAD
036754,000050: 21,2026 52006 DTCB
036755,000051:
036756,000052: 21,2027 E3,1446 EBANK= PHSNAME5
036757,000053: 21,2027 03414 12063 CNTABTAD 2CADR CONTABRT
036758,000054:
036759,000055: 21,2031 40640 DAPBITS OCT 40640
036760,000056: 21,2032 00554 1DEGDB OCT 00554
036761,000057: 21,2033 00106 1DEC70 DEC 70 B-14
036762,000058: 21,2034 00107 1DEC71 DEC 71 B-14
036763,000059:
036764,000060: 05,3414 BANK 05
036765,000061: 05,2000 SETLOC ABORTS1
036766,000062: 05,2000 BANK
036767,000063: 05,3414 COUNT* $$/P70
036768,000064:
036769,000065: 05,3414 33417 CONTABRT CAF ABRTJADR
036770,000066: 05,3415 54017 TS BRUPT
036771,000067: 05,3416 50017 RESUME
036772,000068:
036773,000069: 05,3417 13420 ABRTJADR TCF ABRTJASK
036774,000070:
036775,000071: 05,3420 33503 ABRTJASK CAF OCTAL27
036776,000072: 05,3421 60002 AD Q
|
|
Page 823 |
036778,000074: 05,3422 54001 TS L
036779,000075: 05,3423 40000 COM
036780,000076: 05,3424 52760 DXCH -PHASE4
036781,000077: 05,3425 50002 INDEX Q
036782,000078: 05,3426 33502 CAF MODE70
036783,000079: 05,3427 55010 TS MODREG
036784,000080:
036785,000081: 05,3430 55162 TS DISPDEX # INSURE DISPDEX IS POSITIVE.
036786,000082:
036787,000083: 05,3431 10002 CCS Q # SET APSFLAG IF P71.
036788,000084: 05,3432 40106 CS FLGWRD10 # SET APSFLAG PRIOR TO THE ENEMA.
036789,000085: 05,3433 74737 MASK APSFLBIT
036790,000086: 05,3434 26106 ADS FLGWRD10
036791,000087:
036792,000088: 05,3435 40101 CS FLAGWRD5 # SET ENGONFLG.
036793,000089: 05,3436 74745 MASK ENGONBIT
036794,000090: 05,3437 26101 ADS FLAGWRD5
036795,000091:
036796,000092: 05,3440 44355 CS PRIO30 # INSURE THAT THE ENGINE IS ON, IF ARMED.
036797,000093: 05,3441 00006 EXTEND
036798,000094: 05,3442 02011 RAND DSALMOUT
036799,000095: 05,3443 64737 AD BIT13
036800,000096: 05,3444 00006 EXTEND
036801,000097: 05,3445 01011 WRITE DSALMOUT
036802,000098:
036803,000099: 05,3446 44743 CS ALW66BIT # DISALLOW P66 SELECTION
036804,000100: 05,3447 70075 MASK FLAGWRD1
036805,000101: 05,3450 54075 TS FLAGWRD1
036806,000102:
036807,000103: 05,3451 40074 CS FLAGWRD0 # SIGNAL THE LAD TO DISPLAY LATVEL IN
036808,000104: 05,3452 74752 MASK R10FLBIT # INERTIAL COORDINATES AND FORVEL ZERO
036809,000105: 05,3453 26074 ADS FLAGWRD0
036810,000106:
036811,000107: 05,3454 00006 EXTEND # LOAD TEVENT FOR THE DOWNLINK.
036812,000108: 05,3455 30025 DCA TIME2
036813,000109: 05,3456 53342 DXCH TEVENT
036814,000110:
036815,000111: 05,3457 00006 EXTEND
036816,000112: 05,3460 33506 DCA ATMAGAD # CONNECT ASCENT GUIDANCE
036817,000113: 05,3461 53253 DXCH AVGEXIT
036818,000114:
036819,000115: 05,3462 02671 TC ABTKLEAN # KILL GROUPS 1,3, AND 6.
036820,000116:
036821,000117: 05,3463 36257 CAF THREE # SET UP 4.3SPOT FOR GOABORT
036822,000118: 05,3464 54001 TS L
036823,000119: 05,3465 40000 COM
036824,000120: 05,3466 52760 DXCH -PHASE4
036825,000121:
036826,000122: 05,3467 30076 CA FLAGWRD2 # IS GUIDANCE IN PROGRESS?
036827,000123: 05,3470 74742 MASK SEROVBIT
|
|
Page 824 |
036829,000125: 05,3471 00006 EXTEND
036830,000126: 05,3472 13476 BZF GOENEMA # NO
036831,000127:
036832,000128: 05,3473 00006 EXTEND # YES: RESET PHSNAME5 FOR PIPCYCLE
036833,000129: 05,3474 33501 DCA PIPCYCAD
036834,000130: 05,3475 53447 DXCH PHSNAME5
036835,000131:
036836,000132: 05,3476 04635 GOENEMA TC POSTJUMP
036837,000133: 05,3477 13001 CADR ENEMA
036838,000134:
036839,000135: 05,3500 E7,1513 EBANK= DVCNTR
036840,000136: 05,3500 02102 66067 PIPCYCAD 2CADR PIPCYCLE
036841,000137:
036842,000138: 05,3502 00106 MODE70 DEC 70 B-14
036843,000139: 05,3503 00027 OCTAL27 OCT 27
036844,000140: 05,3504 00107 MODE71 DEC 71 B-14
036845,000141:
036846,000142: 05,3505 E7,1513 EBANK= DVCNTR
036847,000143: 05,3505 03455 70067 ATMAGAD 2CADR ATMAG
036848,000144:
036849,000145:
036850,000146:
036851,000147: 32,3527 BANK 32
036852,000148: 32,2000 SETLOC ABORTS
036853,000149: 32,2000 BANK
036854,000150:
036855,000151: 32,3527 COUNT* $$/P70
036856,000152:
036857,000153: 32,3527 E7,1513 EBANK= DVCNTR
036858,000154: 32,3527 34751 GOABORT CAF FOUR
036859,000155: 32,3530 55513 TS DVCNTR
036860,000156:
036861,000157: 32,3531 33732 CAF WHICHADR
036862,000158: 32,3532 55455 TS WHICH
036863,000159:
036864,000160: 32,3533 06051 TC INTPRET
036865,000161: 32,3534 43014 CLEAR CLEAR
036866,000162: 32,3535 04665 FLRCS
036867,000163: 32,3536 04265 FLUNDISP
036868,000164: 32,3537 43014 CLEAR SET
036869,000165: 32,3540 03670 IDLEFLAG
036870,000166: 32,3541 06464 ACC4-2FL
036871,000167: 32,3542 45014 SET CALL
036872,000168: 32,3543 04462 P7071FLG
036873,000169: 32,3544 61064 INITCDUW
036874,000170: 32,3545 77776 EXIT
036875,000171:
036876,000172: 32,3546 05332 TC CHECKMM
036877,000173: 32,3547 00106 70DEC DEC 70 B-14
036878,000174: 32,3550 13656 TCF P71RET
036879,000175:
|
|
Page 825 |
036881,000177: 32,3551 06051 P70INIT TC INTPRET
036882,000178: 32,3552 77624 CALL
036883,000179: 32,3553 65705 TGOCOMP
036884,000180: 32,3554 54345 DLOAD SL
036885,000181: 32,3555 34003 MDOTDPS
036886,000182: 32,3556 20205 4D
036887,000183: 32,3557 77665 BDDV
036888,000184: 32,3560 01246 MASS
036889,000185: 32,3561 16262 STODL TBUP
036890,000186: 32,3562 01246 MASS
036891,000187: 32,3563 70471 DDV SR1
036892,000188: 32,3564 16015 K(1/DV)
036893,000189: 32,3565 03635 STORE 1/DV1
036894,000190: 32,3566 03637 STORE 1/DV2
036895,000191: 32,3567 03641 STORE 1/DV3
036896,000192: 32,3570 77665 BDDV
036897,000193: 32,3571 25731 K(AT)
036898,000194: 32,3572 16254 STODL AT
036899,000195: 32,3573 34015 100PCTTO
036900,000196: 32,3574 02260 STORE TTO
036901,000197: 32,3575 57535 SLOAD DCOMP
036902,000198: 32,3576 26002 DPSVEX
036903,000199: 32,3577 77702 SR2
036904,000200: 32,3600 36256 STCALL VE
036905,000201: 32,3601 60267 COMMINIT
036906,000202: 32,3602 77745 INJTARG DLOAD
036907,000203: 32,3603 02553 ABTRDOT
036908,000204: 32,3604 36264 STCALL RDOTD # INITIALIZE RDOTD.
036909,000205: 32,3605 57333 YCOMP # COMPUTE Y
036910,000206: 32,3606 45246 ABS DSU
036911,000207: 32,3607 02551 YLIM # /Y/-DYMAX
036912,000208: 32,3610 75240 BMN SIGN # IF <0, XR<.5DEG, LEAVE YCO AT 0
036913,000209: 32,3611 65614 YOK # IF >0, FIX SIGN OF DEFICIT, THIS IS YCO.
036914,000210: 32,3612 02326 Y
036915,000211: 32,3613 03633 STORE YCO
036916,000212: 32,3614 45345 YOK DLOAD DSU
036917,000213: 32,3615 03633 YCO
036918,000214: 32,3616 02326 Y
036919,000215: 32,3617 77661 SR
036920,000216: 32,3620 20606 5D
036921,000217: 32,3621 03643 STORE XRANGE
036922,000218: 32,3622 45014 SET CALL
036923,000219: 32,3623 04461 FLVR
036924,000220: 32,3624 71644 THETCOMP
036925,000221: 32,3625 51025 DSU BPL
036926,000222: 32,3626 02545 THETCRIT
036927,000223: 32,3627 65633 +4
036928,000224: 32,3630 52175 VLOAD GOTO
036929,000225: 32,3631 02535 J1PARM
036930,000226: 32,3632 65636 STORPARM
|
|
Page 826 |
036932,000228: 32,3633 43175 +4 VLOAD SET # IF J2 IS USED, SET THE
036933,000229: 32,3634 02541 J2PARM # ABORT TARGETING FLAG
036934,000230: 32,3635 04470 ABTTGFLG
036935,000231: 32,3636 16561 STORPARM STODL JPARM
036936,000232: 32,3637 03631 RCO
036937,000233: 32,3640 02565 STORE RP
036938,000234: 32,3641 77414 SET EXIT
036939,000235: 32,3642 04471 ROTFLAG
036940,000236:
036941,000237: 32,3643 03714 UPTHROT TC THROTUP
036942,000238:
036943,000239: 32,3644 05364 TC PHASCHNG
036944,000240: 32,3645 04024 OCT 04024
036945,000241:
036946,000242: 32,3646 05515 TC UPFLAG
036947,000243: 32,3647 00216 ADRES FLAP
036948,000244:
036949,000245: 32,3650 04616 UPTHROT1 TC BANKCALL # VERIFY THAT THE PANEL SWITCHES
036950,000246: 32,3651 73715 CADR P40AUTO # ARE PROPERLY SET.
036951,000247:
036952,000248: 32,3652 03714 TC THROTUP
036953,000249:
036954,000250: 32,3653 05364 GRP4OFF TC PHASCHNG # TERMINATE USE OF GROUP 4.
036955,000251: 32,3654 00004 OCT 00004
036956,000252:
036957,000253: 32,3655 15155 TCF ENDOFJOB
036958,000254:
036959,000255: 32,3656 05527 P71RET TC DOWNFLAG
036960,000256: 32,3657 00215 ADRES LETABORT
036961,000257:
036962,000258: 32,3660 36000 CAF THRESH2 # SET DVMON THRESHOLD TO THE ASCENT VALUE.
036963,000259: 32,3661 55251 TS DVTHRUSH
036964,000260:
036965,000261: 32,3662 06051 TC INTPRET
036966,000262: 32,3663 77624 CALL
036967,000263: 32,3664 60243 P12INIT
036968,000264: 32,3665 45014 BON CALL
036969,000265: 32,3666 04707 FLAP
036970,000266: 32,3667 65673 OLDTIME
036971,000267: 32,3670 65705 TGOCOMP # IF FLAP=0, TGO=T-TIG
036972,000268: 32,3671 77650 GOTO
036973,000269: 32,3672 65602 INJTARG
036974,000270: 32,3673 72545 OLDTIME DLOAD SL1 # IF FLAP=1,TGO=2 TGO
036975,000271: 32,3674 03515 TGO
036976,000272: 32,3675 03502 STORE TGO1
036977,000273: 32,3676 77776 EXIT
036978,000274:
036979,000275: 32,3677 05364 TC PHASCHNG
036980,000276: 32,3700 04024 OCT 04024
036981,000277:
|
|
Page 827 |
036983,000279: 32,3701 00006 EXTEND
036984,000280: 32,3702 31502 DCA TGO1
036985,000281: 32,3703 53515 DXCH TGO
036986,000282: 32,3704 13650 TCF UPTHROT1
036987,000283:
036988,000284: # ************************************************************************
036989,000285:
036990,000286: 21,2035 BANK 21
036991,000287: 21,2000 SETLOC R11
036992,000288: 21,2000 BANK
036993,000289:
036994,000290: 21,2035 COUNT* $$/P70
036995,000291:
036996,000292: 21,2035 40774 LEGAL? CS MMNUMBER # IS THE DESIRED PGM ALREADY IN PROGRESS?
036997,000293: 21,2036 61010 AD MODREG
036998,000294: 21,2037 00006 EXTEND
036999,000295: 21,2040 12051 BZF ABORTALM
037000,000296:
037001,000297: 21,2041 40105 CS FLAGWRD9 # ARE THE ABORTS ENABLED?
037002,000298: 21,2042 74743 MASK LETABBIT
037003,000299: 21,2043 10000 CCS A
037004,000300: 21,2044 12051 TCF ABORTALM
037005,000301:
037006,000302: 21,2045 30103 CA FLAGWRD7 # IS SERVICER ON THE AIR?
037007,000303: 21,2046 74747 MASK AVEGFBIT
037008,000304: 21,2047 10000 CCS A
037009,000305: 21,2050 00002 TC Q # YES. ALL IS WELL.
037010,000306: 21,2051 04364 ABORTALM TC FALTON
037011,000307: 21,2052 04457 TC RELDSP
037012,000308: 21,2053 04635 TC POSTJUMP
037013,000309: 21,2054 21051 CADR PINBRNCH
037014,000310:
037015,000311: 32,3705 BANK 32
037016,000312: 32,2000 SETLOC ABORTS
037017,000313: 32,2000 BANK
037018,000314:
037019,000315: 32,3705 COUNT* $$/P70
037020,000316:
037021,000317: # ************************************************************************
037022,000318:
037023,000319: 32,3705 45234 TGOCOMP RTB DSU
037024,000320: 32,3706 21555 LOADTIME
037025,000321: 32,3707 03442 TIG
037026,000322: 32,3710 77661 SL
037027,000323: 32,3711 20214 11D
037028,000324: 32,3712 03515 STORE TGO
037029,000325: 32,3713 77616 RVQ
037030,000326:
037031,000327: # ************************************************************************
037032,000328:
|
|
Page 828 |
037034,000330: 32,3714 34737 THROTUP CAF BIT13
037035,000331: 32,3715 54055 TS THRUST
037036,000332: 32,3716 34750 CAF BIT4
037037,000333: 32,3717 00006 EXTEND
037038,000334: 32,3720 05014 WOR CHAN14
037039,000335: 32,3721 00002 TC Q
037040,000336:
037041,000337: # ************************************************************************
037042,000338:
037043,000339: 32,3722 00000 01750 10SECS 2DEC 1000 B-28
037044,000340:
037045,000341: 32,3724 00021 33400 HINJECT 2DEC 18288 B-24 # 60,000 FEET EXPRESSED IN METERS.
037046,000342:
037047,000343: 32,3726 11021 00000 (TGO)A 2DEC 37000 B-17
037048,000344:
037049,000345: 32,3730 00507 25605 K(AT) 2DEC .02 # SCALING CONSTANT
037050,000346:
037051,000347: 32,3732 02114 WHICHADR REMADR ABRTABLE
037052,000348:
037053,000349: # ************************************************************************
End of include-file P70-P71.agc. Parent file is MAIN.agc