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