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