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