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. |
007136,000002: ## Copyright: Public domain.
007137,000003: ## Filename: CHECK_EQUALS_LIST.agc
007138,000004: ## Purpose: A log section of Zerlina 56, the final revision of
007139,000005: ## Don Eyles's offline development program for the variable
007140,000006: ## guidance period servicer. It also includes a new P66 with LPD
007141,000007: ## (Landing Point Designator) capability, based on an idea of John
007142,000008: ## Young's. Neither of these advanced features were actually flown,
007143,000009: ## but Zerlina was also the birthplace of other big improvements to
007144,000010: ## Luminary including the terrain model and new (Luminary 1E)
007145,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
007146,000012: ## and revision 56 includes all changes up to and including Luminary
007147,000013: ## 183. It is therefore quite close to the Apollo 14 program,
007148,000014: ## Luminary 178, where not modified with new features.
007149,000015: ## Reference: pp. 157-158
007150,000016: ## Assembler: yaYUL
007151,000017: ## Contact: Ron Burkey <info@sandroid.org>.
007152,000018: ## Website: www.ibiblio.org/apollo/index.html
007153,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
007154,000020: ## 2017-08-17 MAS Updated for Zerlina 56.
007155,000021:
![]() |
Page 157 |
007157,000023: # THIS LIST IS MAINTAINED TO ENSURE THAT CERTAIN ERASABLE LOCATIONS
007158,000024: # ARE LOCATED AT A SPECIFIED DISTANCE FROM ANOTHER ERASABLE LOCATION
007159,000025: # AS REQUIRED BY THE STRUCTURE OF THE DOWNLINK LISTS:
007160,000026: # 1. IF A LOCATION IS THE SECOND PART OF A DOWNLINK WORD, IT MUST
007161,000027: # BE CONTIGUOUS TO THE LOCATION THAT IS THE FIRST PART.
007162,000028: # 2. IF A LOCATION IS NOT THE FIRST WORD OF AN NDNADR IT
007163,000029: # MUST BE AT A SPECIFIC NUMBER OF LOCATIONS FROM THE FIRST
007164,000030: # LOCATION IN THE INSTRUCTION.
007165,000031: # 3. OTHER NAMES MAY BE GIVEN TO LOCATIONS IN THE DOWNLIND LISTS
007166,000032: # THAT ARE NOT REFERENCED IN THE LISTS. THESE MUST NOT BE MOVED.
007167,000033: # THIS IS ACCOMPLISHED USING THE INSTRUCTION CHECK= .
007168,000034: # THIS INSTRUCTION GIVES A CUSS IN THE ASSEMBLY IF THE LOCATION OF THE
007169,000035: # FIRST TAG FIELD IS NOT EQUAL TO THE LOCATION OF THE SECOND TAG FIELD.
007170,000036: # THE INSTRUCTION HAS NO OTHER EFFECT ON THE ASSEMBLY OR CODE.
007171,000037:
007172,000038: # THIS LIST SHOULD BE UPDATED FOR ANY CHANGES TO THE DOWNLINK LISTS.
007173,000039:
007174,000040: # THIS LIST IS MAINTAINED BY SUMNER ROSENBERG
007175,000041:
007176,000042:
007177,000043: E7,1745 TIME1 CHECK= TIME2 +1
007178,000044: ??????? CDUY CHECK= CDUX +1
007179,000045: ??????? CDUZ CHECK= CDUY +1
007180,000046: ??????? CDUT CHECK= CDUZ +1
007181,000047: ??????? PIPAX CHECK= CDUS +1
007182,000048: ??????? PIPAY CHECK= PIPAX +1
007183,000049: ??????? PIPAZ CHECK= PIPAY +1
007184,000050: ??????? DAPBOOLS CHECK= RADMODES +1
007185,000051: ??????? LASTXCMD CHECK= LASTYCMD +1
007186,000052: ??????? THETAD CHECK= REDOCTR +1
007187,000053: ??????? FAILREG CHECK= CADRFLSH +3
007188,000054: ??????? UPOLDMOD CHECK= COMPNUMB +1
007189,000055: ??????? UPVERB CHECK= UPOLDMOD +1
007190,000056: ??????? UPCOUNT CHECK= UPVERB +1
007191,000057: ??????? UPBUFF CHECK= UPCOUNT +1
007192,000058: ??????? SPIRAL CHECK= CURSOR +1
007193,000059: ??????? IMODES33 CHECK= IMODES30 +1
007194,000060: ??????? CSMMASS CHECK= LEMMASS +1
007195,000061: ??????? DNRRDOT CHECK= DNRRANGE +1
007196,000062: ??????? DNLRVELY CHECK= DNLRVELX +1
007197,000063: ??????? DNLRVELZ CHECK= DNLRVELY +1
007198,000064: ??????? DNLRALT CHECK= DNLRVELZ +1
007199,000065: ??????? DUMLOOPS CHECK= SERVDURN +1
007200,000066: ??????? ZNBSAV CHECK= YNBSAV +6
007201,000067: ??????? IGC CHECK= OGC +2
007202,000068: ??????? MGC CHECK= IGC +2
007203,000069: ??????? BESTJ CHECK= BESTI +1
007204,000070: ??????? OMEGAQ CHECK= OMEGAP +1
007205,000071: ??????? OMEGAR CHECK= OMEGAQ +1
007206,000072: ??????? ALPHAR CHECK= ALPHAQ +1
![]() |
Page 158 |
007208,000074: ??????? NEGTORKP CHECK= POSTORKP +1
007209,000075: ??????? NEGTORKU CHECK= POSTORKU +1
007210,000076: ??????? POSTORKV CHECK= NEGTORKU +1
007211,000077: ??????? NEGTORKV CHECK= POSTORKV +1
007212,000078: ??????? CDUYD CHECK= CDUXD +1
007213,000079: ??????? CDUZD CHECK= CDUYD +1
007214,000080: ??????? OMEGAQD CHECK= OMEGAPD +1
007215,000081: ??????? OMEGARD CHECK= OMEGAQD +1
007216,000082: ??????? AMG CHECK= AIG +1
007217,000083: ??????? TRKMKCNT CHECK= AOG +1
007218,000084: ??????? VSELECT CHECK= AOG +1
007219,000085: ??????? FORVMETR CHECK= LATVMETR +1
007220,000086: ??????? FLAGWRD0 CHECK= STATE
007221,000087: ??????? FLGWRD12 CHECK= RADMODES
007222,000088: ??????? FLGWRD13 CHECK= DAPBOOLS
007223,000089: ??????? CPHI CHECK= THETAD
007224,000090: ??????? CTHETA CHECK= THETAD +1
007225,000091: ??????? CPSI CHECK= THETAD +2
007226,000092: ??????? DELVX CHECK= DELV
007227,000093: ??????? DELVY CHECK= DELV +2
007228,000094: ??????? DELVZ CHECK= DELV +4
007229,000095: ??????? CTLIST CHECK= DNLSTCOD +1
007230,000096: ??????? CADRMARK CHECK= CADRFLSH +1
007231,000097: ??????? TEMPFLSH CHECK= CADRFLSH +2
007232,000098: ??????? STARCODE CHECK= AOTCODE
007233,000099: ??????? TETCSM CHECK= T-OTHER
007234,000100: ??????? TETOTHER CHECK= T-OTHER
007235,000101: ??????? R(CSM) CHECK= R-OTHER
007236,000102: ??????? V(CSM) CHECK= V-OTHER
007237,000103: ??????? DOWNTORK CHECK= POSTORKP
007238,000104: ??????? DCDU CHECK= CDUXD
007239,000105: ??????? DELVLVC CHECK= DELVSLV
007240,000106: ??????? MARKCTR CHECK= TRKMKCNT
007241,000107: ??????? VGPREV CHECK= VGTIG
End of include-file CHECK_EQUALS_LIST.agc. Parent file is MAIN.agc