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