Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

005897,000002:                                                                                                 #  Copyright:     Public domain.
005898,000003:                                                                                                 #  Filename:      CHECK_EQUALS_LIST.agc
005899,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
005900,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
005901,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
005902,000007:                                                                                                 #                 Apollo 15-17.
005903,000008:                                                                                                 #  Assembler:     yaYUL
005904,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
005905,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
005906,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
005907,000012:                                                                                                 #  Mod history:   2009-07-25 JL   Adapted from corresponding Comanche 055 file.
005908,000013:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
005909,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
005910,000015: 
005911,000016:                                                                                                 # # Page 135
005912,000017:                                                                                                 #  ********** CHECK EQUALS LIST **********
005913,000018: 
005914,000019:                                                                                                 #  THIS LIST IS MAINTAINED TO ENSURE THAT CERTAIN ERASABLE LOCATIONS
005915,000020:                                                                                                 #  ARE LOCATED AT A SPECIFIED DISTANCE FROM ANOTHER ERASABLE LOCATION
005916,000021:                                                                                                 #  AS REQUIRED BY THE STRUCTURE OF THE DOWNLINK LISTS:
005917,000022:                                                                                                 #         1. IF A LOCATION IS THE SECOND PART OF A DOWNLINK WORD, IT MUST
005918,000023:                                                                                                 #            BE CONTIGUOUS TO THE LOCATION THAT IS THE FIRST PART.
005919,000024:                                                                                                 #         2. IF A LOCATION IS NOT THE FIRST WORD OF AN NDNADR IT
005920,000025:                                                                                                 #            MUST BE AT A SPECIFIC NUMBER OF LOCATIONS FROM THE FIRST
005921,000026:                                                                                                 #            LOCATION IN THE INSTRUCTION.
005922,000027:                                                                                                 #         3. OTHER NAMES MAY BE GIVEN TO LOCATIONS IN THE DOWNLINK LISTS
005923,000028:                                                                                                 #            THAT ARE NOT REFERENCED IN THE LISTS. THESE MUST NOT BE MOVED.
005924,000029:                                                                                                 #  THIS IS ACCOMPLISHED USING THE INSTRUCTION     CHECK=  .
005925,000030:                                                                                                 #  THIS INSTRUCTION GIVES A CUSS IN THE ASSEMBLY IF THE LOCATION OF THE
005926,000031:                                                                                                 #  FIRST TAG FIELD IS NOT EQUAL TO THE LOCATION OF THE SECOND TAG FIELD.
005927,000032:                                                                                                 #  THE INSTRUCTION HAS NO OTHER EFFECT ON THE ASSEMBLY OR CODE.
005928,000033: 
005929,000034:                                                                                                 #  THIS LIST SHOULD BE UPDATED FOR ANY CHANGES TO THE DOWNLINK LISTS.
005930,000035: 
005931,000036:                                                                                                 #  THIS LIST IS MAINTAINED BY  SUMNER ORSENBERG
005932,000037: 
005933,000038: 
005934,000039: ???????                        TIME1             CHECK=   TIME2      +1                         
005935,000040: ???????                        CDUY              CHECK=   CDUX       +1                         
005936,000041: ???????                        CDUT              CHECK=   CDUZ       +1                         
005937,000042: ???????                        PIPAX             CHECK=   CDUS       +1                         
005938,000043: ???????                        PIPAY             CHECK=   PIPAX      +1                         
005939,000044: ???????                        PIPAZ             CHECK=   PIPAY      +1                         
005940,000045: ???????                        UPOLDMOD          CHECK=   COMPNUMB   +1                         
005941,000046: ???????                        UPVERB            CHECK=   UPOLDMOD   +1                         
005942,000047: ???????                        UPCOUNT           CHECK=   UPVERB     +1                         
005943,000048: ???????                        BESTJ             CHECK=   BESTI      +1                         
005944,000049: ???????                        FAILREG           CHECK=   C31FLWRD   +1                         
005945,000050: ???????                        TRKMKCNT          CHECK=   VHFCNT     +1                         
005946,000051: ???????                        OPTION2           CHECK=   OPTION1    +1                         
005947,000052: ???????                        THETAD            CHECK=   REDOCTR    +1                         
005948,000053: ???????                        IMODES33          CHECK=   IMODES30   +1                         
005949,000054: ???????                        HOLDFLAG          CHECK=   OPTMODES   +1                         
005950,000055: ???????                        RRATE             CHECK=   RANGE      +2                         
005951,000056: ???????                        HPERX             CHECK=   HAPOX      +2                         
005952,000057: ???????                        TCSI              CHECK=   TCDH       +2                         
005953,000058: ???????                        IGC               CHECK=   OGC        +2                         
005954,000059: ???????                        MGC               CHECK=   IGC        +2                         
005955,000060: ???????                        YACTOFF           CHECK=   PACTOFF    +1                         
005956,000061: ???????                        DAPDATR2          CHECK=   DAPDATR1   +1                         
005957,000062: ???????                        CSMMASS           CHECK=   LEMMASS    +1                         
005958,000063: ???????                        AK1               CHECK=   AK         +1                         
005959,000064: ???????                        AK2               CHECK=   AK1        +1                         
005960,000065: ???????                        RCSFLAGS          CHECK=   AK2        +1                         
005961,000066: 
005962,000067:                                                                                                 # # Page 136
005963,000068: ???????                        WBODY             CHECK=   OMEGAC                                
005964,000069: ???????                        ADOT              CHECK=   OGARATE                               
005965,000070: ???????                        ADOT1             CHECK=   ADOT       +2                         
005966,000071: ???????                        ADOT2             CHECK=   ADOT1      +2                         
005967,000072: ???????                        ERRORY            CHECK=   ERRORX     +1                         
005968,000073: ???????                        ERRORZ            CHECK=   ERRORY     +1                         
005969,000074: ???????                        THETADX           CHECK=   ERRORZ     +1                         
005970,000075: ???????                        THETADY           CHECK=   THETADX    +1                         
005971,000076: ???????                        THETADZ           CHECK=   THETADY    +1                         
005972,000077: ???????                        YCMD              CHECK=   PCMD       +1                         
005973,000078: ???????                        BETA/180          CHECK=   ALFA/180   +1                         
005974,000079: ???????                        PREL              CHECK=   CMDAPMOD   +1                         
005975,000080: ???????                        QREL              CHECK=   PREL       +1                         
005976,000081: ???????                        RREL              CHECK=   QREL       +1                         
005977,000082: ???????                        ROLLTM            CHECK=   PAXERR1    +1                         
005978,000083: ???????                        ROLLC             CHECK=   ROLLTM     +1                         
005979,000084: ???????                        LNG(SPL)          CHECK=   LAT(SPL)   +2                         
005980,000085: ???????                        RM                CHECK=   MARKDOWN   +7                         
005981,000086: ???????                        RDOT              CHECK=   LATANG     +2                         
005982,000087: ???????                        THETAH            CHECK=   RDOT       +2                         
005983,000088: ???????                        GAMMAEI           CHECK=   VPRED      +2                         
005984,000089: ???????                        STATE             CHECK=   FLAGWRD0                              
005985,000090: ???????                        CMTMTIME          CHECK=   UPBUFF                                
005986,000091: ???????                        SW/NDX            CHECK=   UPBUFF     +1                         
005987,000092: ???????                        ENDBUF            CHECK=   UPBUFF     +16D                       
005988,000093: ???????                        V1                CHECK=   UPBUFF     +17D                       
005989,000094: ???????                        A0                CHECK=   UPBUFF     +19D                       
005990,000095: ???????                        DNLSTADR          CHECK=   DNLSTCOD                              
005991,000096: ???????                        CTLIST            CHECK=   DNLSTCOD   +1                         
005992,000097: ???????                        TEMPFLSH          CHECK=   CADRFLSH   +2                         
005993,000098: ???????                        LANDLAT           CHECK=   LAT                                   
005994,000099: ???????                        TLIFTOFF          CHECK=   TEVENT                                
005995,000100: ???????                        CPHI              CHECK=   THETAD                                
005996,000101: ???????                        RDOTREF           CHECK=   THETAD                                
005997,000102: ???????                        CTHETA            CHECK=   THETAD     +1                         
005998,000103: ???????                        CPSI              CHECK=   THETAD     +2                         
005999,000104: ???????                        VREF              CHECK=   THETAD     +2                         
006000,000105: ???????                        DELVX             CHECK=   DELV                                  
006001,000106: ???????                        DELVY             CHECK=   DELV       +2                         
006002,000107: ???????                        DELVZ             CHECK=   DELV       +4                         
006003,000108: ???????                        TETLEM            CHECK=   T-OTHER                               
006004,000109: ???????                        TETOTHER          CHECK=   T-OTHER                               
006005,000110: ???????                        RRATE2            CHECK=   RTHETA                                
006006,000111: ???????                        PAXERR            CHECK=   AK                                    
006007,000112: ???????                        OMEGAXC           CHECK=   OMEGAC                                
006008,000113: ???????                        TVCRCS            CHECK=   OMEGAC                                
006009,000114: ???????                        ASPS(TM)          CHECK=   WBODY                                 
006010,000115: ???????                        OMEGAYC           CHECK=   OMEGAC     +2                         
006011,000116: ???????                        WBODY1            CHECK=   WBODY      +2                         
006012,000117: ???????                        WBODY2            CHECK=   WBODY1     +2                         
006013,000118: 
006014,000119:                                                                                                 # # Page 137
006015,000120: ???????                        OMEGAZC           CHECK=   OMEGAC     +4                         
006016,000121: ???????                        OGARATE           CHECK=   OMEGAB                                
006017,000122: ???????                        OMEGAXB           CHECK=   OMEGAB                                
006018,000123: ???????                        XPIPBUF           CHECK=   ADOT                                  
006019,000124: ???????                        YPIPBUF           CHECK=   XPIPBUF    +1                         
006020,000125: ???????                        ZPIPBUF           CHECK=   YPIPBUF    +1                         
006021,000126: ???????                        XOLDBUF           CHECK=   ZPIPBUF    +1                         
006022,000127: ???????                        YOLDBUF           CHECK=   XOLDBUF    +1                         
006023,000128: ???????                        ZOLDBUF           CHECK=   YOLDBUF    +1                         
006024,000129: ???????                        OMEGAYB           CHECK=   OMEGAB     +2                         
006025,000130: ???????                        OMEGAZB           CHECK=   OMEGAB     +4                         
006026,000131: ???????                        VDT/180           CHECK=   ERRORX                                
006027,000132: ???????                        -VT/180E          CHECK=   ERRORY                                
006028,000133: ???????                        QAXERR            CHECK=   THETADX                               
006029,000134: ???????                        RAXERR            CHECK=   THETADY                               
006030,000135: ???????                        Q7                CHECK=   THETADZ                               
006031,000136: ???????                        DELVLVC           CHECK=   DELVSLV                               
006032,000137: ???????                        SPRTETIG          CHECK=   TIG                                   
006033,000138: ???????                        DELVSIN           CHECK=   DELVEET3                              
006034,000139: ???????                        VGTEMP            CHECK=   DELVEET3                              
006035,000140: ???????                        VGPREV            CHECK=   VGTIG                                 
006036,000141: ???????                        LEWD              CHECK=   VIO                                   
006037,000142: ???????                        L/DCALC           CHECK=   TTE                                   
006038,000143: ???????                        VL                CHECK=   VPRED                                 
006039,000144: ???????                        GAMMAL            CHECK=   GAMMAEI                               
006040,000145: ???????                        PREDANG           CHECK=   GAMMAEI                               
006041,000146: ???????                        JJ                CHECK=   GAMMAEI    +1                         
006042,000147: ???????                        VTEMP             CHECK=   MARKTIME   +2                         
006043,000148: ???????                        VMAGI             CHECK=   VGTIG      +2                         
006044,000149: ???????                        VGTLI             CHECK=   VMAGI      +2                         
006045,000150: 
006046,000151:                                                                                                 # # Page 138
006047,000152: ???????                        ASKEP             CHECK=   ASPS                                  
006048,000153: ???????                        ASP1              CHECK=   ASPS       +1                         
006049,000154: ???????                        ASPUP             CHECK=   ASPS       +2                         
006050,000155: ???????                        ASPDWN            CHECK=   ASPS       +3                         
006051,000156: ???????                        ASP3              CHECK=   ASPS       +4                         
006052,000157: ???????                        DUMMYAD           CHECK=   ROO        +3                         

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