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