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. |
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