Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

005926,000002:                                                                                                  ## Copyright:   Public domain.
005927,000003:                                                                                                  ## Filename:    CHECK_EQUALS_LIST.agc
005928,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
005929,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
005930,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
005931,000007:                                                                                                  ##              Apollo 15-17.
005932,000008:                                                                                                  ## Assembler:   yaYUL
005933,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
005934,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
005935,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
005936,000012:                                                                                                  ## Mod history: 2009-07-25 JL   Adapted from corresponding Comanche 055 file.
005937,000013:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
005938,000014:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
005939,000015:                                                                                                  ##              2016-11-03 RSB  ##'d it again.
005940,000016:                                                                                                  ##              2017-01-21 RSB  Comments double-checked vs the scanned pages.
005941,000017: 

Page 135

005943,000019:                                                                                                  #  ********** CHECK EQUALS LIST **********
005944,000020: 
005945,000021:                                                                                                  #  THIS LIST IS MAINTAINED TO ENSURE THAT CERTAIN ERASABLE LOCATIONS
005946,000022:                                                                                                  #  ARE LOCATED AT A SPECIFIED DISTANCE FROM ANOTHER ERASABLE LOCATION
005947,000023:                                                                                                  #  AS REQUIRED BY THE STRUCTURE OF THE DOWNLINK LISTS:
005948,000024:                                                                                                  #        1. IF A LOCATION IS THE SECOND PART OF A DOWNLINK WORD, IT MUST
005949,000025:                                                                                                  #           BE CONTIGUOUS TO THE LOCATION THAT IS THE FIRST PART.
005950,000026:                                                                                                  #        2. IF A LOCATION IS NOT THE FIRST WORD OF AN NDNADR IT
005951,000027:                                                                                                  #           MUST BE AT A SPECIFIC NUMBER OF LOCATIONS FROM THE FIRST
005952,000028:                                                                                                  #           LOCATION IN THE INSTRUCTION.
005953,000029:                                                                                                  #        3. OTHER NAMES MAY BE GIVEN TO LOCATIONS IN THE DOWNLINK LISTS
005954,000030:                                                                                                  #           THAT ARE NOT REFERENCED IN THE LISTS.THESE MUST NOT BE MOVED.
005955,000031:                                                                                                  #  THIS IS ACCOMPLISHED USING THE INSTRUCTION    CHECK=  .
005956,000032:                                                                                                  #  THIS INSTRUCTION GIVES A CUSS IN THE ASSEMBLY IF THE LOCATION OF THE
005957,000033:                                                                                                  #  FIRST TAG FIELD IS NOT EQUAL TO THE LOCATION OF THE SECOND TAG FIELD.
005958,000034:                                                                                                  #  THE INSTRUCTION HAS NO OTHER EFFECT ON THE ASSEMBLY OR CODE.
005959,000035: 
005960,000036:                                                                                                  #  THIS LIST SHOULD BE UPDATED FOR ANY CHANGES TO THE DOWNLINK LISTS.
005961,000037: 
005962,000038:                                                                                                  #  THIS LIST IS MAINTAINED BY  SUMNER ROSENBERG
005963,000039: 
005964,000040: 
005965,000041: E7,1426                        TIME1              CHECK=   TIME2      +1                         
005966,000042: ???????                        CDUY               CHECK=   CDUX       +1                         
005967,000043: ???????                        CDUT               CHECK=   CDUZ       +1                         
005968,000044: ???????                        PIPAX              CHECK=   CDUS       +1                         
005969,000045: ???????                        PIPAY              CHECK=   PIPAX      +1                         
005970,000046: ???????                        PIPAZ              CHECK=   PIPAY      +1                         
005971,000047: ???????                        UPOLDMOD           CHECK=   COMPNUMB   +1                         
005972,000048: ???????                        UPVERB             CHECK=   UPOLDMOD   +1                         
005973,000049: ???????                        UPCOUNT            CHECK=   UPVERB     +1                         
005974,000050: ???????                        BESTJ              CHECK=   BESTI      +1                         
005975,000051: ???????                        FAILREG            CHECK=   C31FLWRD   +1                         
005976,000052: ???????                        TRKMKCNT           CHECK=   VHFCNT     +1                         
005977,000053: ???????                        OPTION2            CHECK=   OPTION1    +1                         
005978,000054: ???????                        THETAD             CHECK=   REDOCTR    +1                         
005979,000055: ???????                        IMODES33           CHECK=   IMODES30   +1                         
005980,000056: ???????                        HOLDFLAG           CHECK=   OPTMODES   +1                         
005981,000057: ???????                        RRATE              CHECK=   RANGE      +2                         
005982,000058: ???????                        HPERX              CHECK=   HAPOX      +2                         
005983,000059: ???????                        TCSI               CHECK=   TCDH       +2                         
005984,000060: ???????                        IGC                CHECK=   OGC        +2                         
005985,000061: ???????                        MGC                CHECK=   IGC        +2                         
005986,000062: ???????                        YACTOFF            CHECK=   PACTOFF    +1                         
005987,000063: ???????                        DAPDATR2           CHECK=   DAPDATR1   +1                         
005988,000064: ???????                        CSMMASS            CHECK=   LEMMASS    +1                         
005989,000065: ???????                        AK1                CHECK=   AK         +1                         
005990,000066: ???????                        AK2                CHECK=   AK1        +1                         
005991,000067: ???????                        RCSFLAGS           CHECK=   AK2        +1                         
005992,000068: 

Page 136

005994,000070: ???????                        WBODY              CHECK=   OMEGAC                                
005995,000071: ???????                        ADOT               CHECK=   OGARATE                               
005996,000072: ???????                        ADOT1              CHECK=   ADOT       +2                         
005997,000073: ???????                        ADOT2              CHECK=   ADOT1      +2                         
005998,000074: ???????                        ERRORY             CHECK=   ERRORX     +1                         
005999,000075: ???????                        ERRORZ             CHECK=   ERRORY     +1                         
006000,000076: ???????                        THETADX            CHECK=   ERRORZ     +1                         
006001,000077: ???????                        THETADY            CHECK=   THETADX    +1                         
006002,000078: ???????                        THETADZ            CHECK=   THETADY    +1                         
006003,000079: ???????                        YCMD               CHECK=   PCMD       +1                         
006004,000080: ???????                        BETA/180           CHECK=   ALFA/180   +1                         
006005,000081: ???????                        PREL               CHECK=   CMDAPMOD   +1                         
006006,000082: ???????                        QREL               CHECK=   PREL       +1                         
006007,000083: ???????                        RREL               CHECK=   QREL       +1                         
006008,000084: ???????                        ROLLTM             CHECK=   PAXERR1    +1                         
006009,000085: ???????                        ROLLC              CHECK=   ROLLTM     +1                         
006010,000086: ???????                        LNG(SPL)           CHECK=   LAT(SPL)   +2                         
006011,000087: ???????                        RM                 CHECK=   MARKDOWN   +7                         
006012,000088: ???????                        RDOT               CHECK=   LATANG     +2                         
006013,000089: ???????                        THETAH             CHECK=   RDOT       +2                         
006014,000090: ???????                        GAMMAEI            CHECK=   VPRED      +2                         
006015,000091: ???????                        STATE              CHECK=   FLAGWRD0                              
006016,000092: ???????                        CMTMTIME           CHECK=   UPBUFF                                
006017,000093: ???????                        SW/NDX             CHECK=   UPBUFF     +1                         
006018,000094: ???????                        ENDBUF             CHECK=   UPBUFF     +16D                       
006019,000095: ???????                        V1                 CHECK=   UPBUFF     +17D                       
006020,000096: ???????                        A0                 CHECK=   UPBUFF     +19D                       
006021,000097: ???????                        DNLSTADR           CHECK=   DNLSTCOD                              
006022,000098: ???????                        CTLIST             CHECK=   DNLSTCOD   +1                         
006023,000099: ???????                        TEMPFLSH           CHECK=   CADRFLSH   +2                         
006024,000100: ???????                        LANDLAT            CHECK=   LAT                                   
006025,000101: ???????                        TLIFTOFF           CHECK=   TEVENT                                
006026,000102: ???????                        CPHI               CHECK=   THETAD                                
006027,000103: ???????                        RDOTREF            CHECK=   THETAD                                
006028,000104: ???????                        CTHETA             CHECK=   THETAD     +1                         
006029,000105: ???????                        CPSI               CHECK=   THETAD     +2                         
006030,000106: ???????                        VREF               CHECK=   THETAD     +2                         
006031,000107: ???????                        DELVX              CHECK=   DELV                                  
006032,000108: ???????                        DELVY              CHECK=   DELV       +2                         
006033,000109: ???????                        DELVZ              CHECK=   DELV       +4                         
006034,000110: ???????                        TETLEM             CHECK=   T-OTHER                               
006035,000111: ???????                        TETOTHER           CHECK=   T-OTHER                               
006036,000112: ???????                        RRATE2             CHECK=   RTHETA                                
006037,000113: ???????                        PAXERR             CHECK=   AK                                    
006038,000114: ???????                        OMEGAXC            CHECK=   OMEGAC                                
006039,000115: ???????                        TVCRCS             CHECK=   OMEGAC                                
006040,000116: ???????                        ASPS(TM)           CHECK=   WBODY                                 
006041,000117: ???????                        OMEGAYC            CHECK=   OMEGAC     +2                         
006042,000118: ???????                        WBODY1             CHECK=   WBODY      +2                         
006043,000119: ???????                        WBODY2             CHECK=   WBODY1     +2                         
006044,000120: 

Page 137

006046,000122: ???????                        OMEGAZC            CHECK=   OMEGAC     +4                         
006047,000123: ???????                        OGARATE            CHECK=   OMEGAB                                
006048,000124: ???????                        OMEGAXB            CHECK=   OMEGAB                                
006049,000125: ???????                        XPIPBUF            CHECK=   ADOT                                  
006050,000126: ???????                        YPIPBUF            CHECK=   XPIPBUF    +1                         
006051,000127: ???????                        ZPIPBUF            CHECK=   YPIPBUF    +1                         
006052,000128: ???????                        XOLDBUF            CHECK=   ZPIPBUF    +1                         
006053,000129: ???????                        YOLDBUF            CHECK=   XOLDBUF    +1                         
006054,000130: ???????                        ZOLDBUF            CHECK=   YOLDBUF    +1                         
006055,000131: ???????                        OMEGAYB            CHECK=   OMEGAB     +2                         
006056,000132: ???????                        OMEGAZB            CHECK=   OMEGAB     +4                         
006057,000133: ???????                        VDT/180            CHECK=   ERRORX                                
006058,000134: ???????                        -VT/180E           CHECK=   ERRORY                                
006059,000135: ???????                        QAXERR             CHECK=   THETADX                               
006060,000136: ???????                        RAXERR             CHECK=   THETADY                               
006061,000137: ???????                        Q7                 CHECK=   THETADZ                               
006062,000138: ???????                        DELVLVC            CHECK=   DELVSLV                               
006063,000139: ???????                        SPRTETIG           CHECK=   TIG                                   
006064,000140: ???????                        DELVSIN            CHECK=   DELVEET3                              
006065,000141: ???????                        VGTEMP             CHECK=   DELVEET3                              
006066,000142: ???????                        VGPREV             CHECK=   VGTIG                                 
006067,000143: ???????                        LEWD               CHECK=   VIO                                   
006068,000144: ???????                        L/DCALC            CHECK=   TTE                                   
006069,000145: ???????                        VL                 CHECK=   VPRED                                 
006070,000146: ???????                        GAMMAL             CHECK=   GAMMAEI                               
006071,000147: ???????                        PREDANG            CHECK=   GAMMAEI                               
006072,000148: ???????                        JJ                 CHECK=   GAMMAEI    +1                         
006073,000149: ???????                        VTEMP              CHECK=   MARKTIME   +2                         
006074,000150: ???????                        VMAGI              CHECK=   VGTIG      +2                         
006075,000151: ???????                        VGTLI              CHECK=   VMAGI      +2                         
006076,000152: 

Page 138

006078,000154: ???????                        ASKEP              CHECK=   ASPS                                  
006079,000155: ???????                        ASP1               CHECK=   ASPS       +1                         
006080,000156: ???????                        ASPUP              CHECK=   ASPS       +2                         
006081,000157: ???????                        ASPDWN             CHECK=   ASPS       +3                         
006082,000158: ???????                        ASP3               CHECK=   ASPS       +4                         
006083,000159: ???????                        DUMMYAD            CHECK=   ROO        +3                         

End of include-file CHECK_EQUALS_LIST.agc.  Parent file is MAIN.agc