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