Source Code
![]() |
YAYUL: ASSEMBLE REVISION 6 OF PROGRAM BOREALIS BY MSTEWART JUN. 28,2017This is a modern AGC system self-test program, though based on the Apollo-era AURORA 12 program, and was not written by the original AGC developers, but rather by Mike Stewart. All of the original AURORA 12 DAP code added by the DAP Group has been removed, and extensive new system test code has been added in its place. This allows more in-depth testing of CPU behavior, both in AGC software simulations and hardware simulations. |
000252,000002: ## Copyright: Public domain.
000253,000003: ## Filename: ERASABLE_ASSIGNMENTS.agc
000254,000004: ## Purpose: This program is designed to extensively test the Apollo Guidance Computer
000255,000005: ## (specifically the LM instantiation of it). It is built on top of a heavily
000256,000006: ## stripped-down Aurora 12, with all code ostensibly added by the DAP Group
000257,000007: ## removed. Instead Borealis expands upon the tests provided by Aurora,
000258,000008: ## including corrected tests from Retread 44 and tests from Ron Burkey's
000259,000009: ## Validation.
000260,000010: ## Assembler: yaYUL
000261,000011: ## Contact: Mike Stewart <mastewar1@gmail.com>.
000262,000012: ## Website: www.ibiblio.org/apollo/index.html
000263,000013: ## Mod history: 2016-12-20 MAS Created from Aurora 12 (with much DAP stuff removed).
000264,000014: ## 2016-12-21 MAS Pulled in erasables for Retread instruction checks.
000265,000015: ## 2017-01-04 MAS Added ERESTORE, used by Sunburst's erasable mem check.
000266,000016: ## 2017-01-15 MAS Added T4TEMP and LASTIMER for use with timer/EDRUPT tests.
000267,000017:
000268,000018: ??????? A EQUALS 0
000269,000019: ??????? L EQUALS 1 # L AND Q ARE BOTH CHANNELS AND REGISTERS.
000270,000020: ??????? Q EQUALS 2
000271,000021: ??????? EBANK EQUALS 3
000272,000022: ??????? FBANK EQUALS 4
000273,000023: ??????? Z EQUALS 5 # ADJACENT TO FBANK AND BBANK FOR DXCH Z
000274,000024: ??????? BBANK EQUALS 6 # (DTCB) AND DXCH FBANK (DTCF).
000275,000025: # REGISTER 7 IS A ZERO-SOURCE, USED BY ZL.
000276,000026:
000277,000027: ??????? ARUPT EQUALS 10 # INTERRUPT STORAGE.
000278,000028: ??????? LRUPT EQUALS 11
000279,000029: ??????? QRUPT EQUALS 12
000280,000030: ??????? SAMPTIME EQUALS 13 # SAMPLED TIME 1 & 2.
000281,000031: ??????? ZRUPT EQUALS 15 # (13 AND 14 ARE SPARES.)
000282,000032: ??????? BANKRUPT EQUALS 16 # USUALLY HOLDS FBANK OR BBANK.
000283,000033: ??????? BRUPT EQUALS 17 # RESUME ADDRESS AS WELL.
000284,000034:
000285,000035: ??????? CYR EQUALS 20
000286,000036: ??????? SR EQUALS 21
000287,000037: ??????? CYL EQUALS 22
000288,000038: ??????? EDOP EQUALS 23 # EDITS INTERPRETIVE OPERATION CODE PAIRS.
000289,000039:
000290,000040:
000291,000041: ??????? TIME2 EQUALS 24
000292,000042: ??????? TIME1 EQUALS 25
000293,000043: ??????? TIME3 EQUALS 26
000294,000044: ??????? TIME4 EQUALS 27
000295,000045: ??????? TIME5 EQUALS 30
000296,000046: ??????? TIME6 EQUALS 31
000297,000047: ??????? CDUX EQUALS 32
000298,000048: ??????? CDUY EQUALS 33
000299,000049: ??????? CDUZ EQUALS 34
000300,000050: ??????? OPTY EQUALS 35
000301,000051: ??????? OPTX EQUALS 36
000302,000052: ??????? PIPAX EQUALS 37
000303,000053: ??????? PIPAY EQUALS 40
000304,000054: ??????? PIPAZ EQUALS 41
000305,000055: ??????? BMAGX EQUALS 42
000306,000056: ??????? RHCP EQUALS 42
000307,000057: ??????? BMAGY EQUALS 43
000308,000058: ??????? RHCY EQUALS 43
000309,000059: ??????? BMAGZ EQUALS 44
000310,000060: ??????? RHCR EQUALS 44
000311,000061: ??????? INLINK EQUALS 45
000312,000062: ??????? RNRAD EQUALS 46
000313,000063: ??????? GYROCTR EQUALS 47
000314,000064: ??????? GYROCMD EQUALS 47
000315,000065: ??????? CDUXCMD EQUALS 50
000316,000066: ??????? CDUYCMD EQUALS 51
000317,000067:
000318,000068: ??????? CDUZCMD EQUALS 52
000319,000069: ??????? OPTYCMD EQUALS 53
000320,000070: ??????? OPTXCMD EQUALS 54
000321,000071: ??????? EMSD EQUALS 55
000322,000072: ??????? THRUST EQUALS 55
000323,000073: ??????? LEMONM EQUALS 56
000324,000074: ??????? OUTLINK EQUALS 57
000325,000075: ??????? ALTM EQUALS 60
000326,000076:
000327,000077: 0067 SETLOC 67 # DECODED REGISTER FOR NIGHT-WATCHMAN ALM.
000328,000078: 0067 NEWJOB ERASE
000329,000079:
000330,000080: 0070 LVSQUARE EQUALS 34D # SQUARE OF VECTOR INPUT TO ABVAL AND UNIT
000331,000081: 0070 LV EQUALS 36D # LENGTH OF VECTOR INPUT TO UNIT.
000332,000082: 0070 X1 EQUALS 38D # INTERPRETIVE SPECIAL REGISTERS RELATIVE
000333,000083: 0070 X2 EQUALS 39D # TO THE WORK AREA.
000334,000084: 0070 S1 EQUALS 40D
000335,000085: 0070 S2 EQUALS 41D
000336,000086: 0070 QPRET EQUALS 42D
000337,000087:
000338,000088:
000339,000089: # GENERAL ERASABLE ASSIGNMENTS.
000340,000090:
000341,000091: 0061 SETLOC 61
000342,000092:
000343,000093: # INTERPRETIVE SWITCH RESERVATIONS.
000344,000094:
000345,000095: 0061 STATE ERASE +3 # 60 SWITCHES PRESENTLY.
000346,000096:
000347,000097: # INTERPRETIVE SWITCH BIT ASSIGNMENTS:
000348,000098:
000349,000099: 0065 WMATFLAG EQUALS 0
000350,000100: 0065 JSWITCH EQUALS 1
000351,000101: 0065 MIDFLAG EQUALS 2
000352,000102: 0065 MOONFLAG EQUALS 3
000353,000103: 0065 NBSMBIT EQUALS 4
000354,000104: 0065 COAROFIN EQUALS 5
000355,000105: 0065 BODYFLAG EQUALS 6
000356,000106: 0065 IMUSE EQUALS 7
000357,000107: 0065 RRUSE EQUALS 8D
000358,000108: 0065 RRNBSW EQUALS 9D
000359,000109: 0065 LOKONSW EQUALS 10D
000360,000110: # END OF SWITCH ASSIGNMENTS
000361,000111:
000362,000112: # THE FOLLOWING SET COMPRISES THE INTERRUPT TEMPORARY STORAGE POO
000363,000113:
000364,000114: # ANY OF THESE MAY BE USED AS TEMPORARIES DURING INTERRUPT OR WITH INTERRUPT INHIBITED. THE ITEMP SERIES
000365,000115: # IS USED DURING CALLS TO THE EXECUTIVE AND WAITLIST - THE RUPTREGS ARE NOT.
000366,000116:
000367,000117: 0065 ITEMP1 ERASE
000368,000118: 0066 0065 WAITEXIT EQUALS ITEMP1
000369,000119: 0066 0065 EXECTEM1 EQUALS ITEMP1
000370,000120:
000371,000121: 0066 ITEMP2 ERASE
000372,000122: 0067 0066 WAITBANK EQUALS ITEMP2
000373,000123: 0067 0066 EXECTEM2 EQUALS ITEMP2
000374,000124:
000375,000125: 0070 SETLOC 70
000376,000126:
000377,000127: 0070 ITEMP3 ERASE
000378,000128: 0071 0070 RUPTSTOR EQUALS ITEMP3
000379,000129: 0071 0070 WAITADR EQUALS ITEMP3
000380,000130: 0071 0070 NEWPRIO EQUALS ITEMP3
000381,000131:
000382,000132: 0071 ITEMP4 ERASE
000383,000133: 0072 0071 LOCCTR EQUALS ITEMP4
000384,000134: 0072 0071 WAITTEMP EQUALS ITEMP4
000385,000135:
000386,000136: 0072 ITEMP5 ERASE
000387,000137: 0073 0072 NEWLOC EQUALS ITEMP5
000388,000138:
000389,000139: 0073 ITEMP6 ERASE
000390,000140: 0074 0073 NEWLOC+1 EQUALS ITEMP6 # DP ADDRESS.
000391,000141:
000392,000142: 0074 RUPTREG1 ERASE
000393,000143: 0075 RUPTREG2 ERASE
000394,000144: 0076 RUPTREG3 ERASE
000395,000145: 0077 RUPTREG4 ERASE
000396,000146: 0100 0077 KEYTEMP1 EQUALS RUPTREG4
000397,000147: 0100 0077 DSRUPTEM EQUALS RUPTREG4
000398,000148:
000399,000149: # THE FOLLOWING ARE EXECUTIVE TEMPORARIES WHICH MAY BE USED BETWEEN CCS NEWJOB INQUIRIES.
000400,000150: 0100 INTB15+ ERASE # REFLECTS 15TH BIT OF INDEXABLE ADDRESSES
000401,000151: 0101 0100 DSEXIT = INTB15+ # RETURN FOR DSPIN
000402,000152: 0101 0100 EXITEM = INTB15+ # RETURN FOR SCALE FACTOR ROUTINE SELECT
000403,000153: 0101 0100 BLANKRET = INTB15+ # RETURN FOR 2BLANK
000404,000154:
000405,000155: 0101 INTBIT15 ERASE # SIMILAR TO ABOVE.
000406,000156: 0102 0101 WRDRET = INTBIT15 # RETURN FOR 5BLANK
000407,000157: 0102 0101 WDRET = INTBIT15 # RETURN FOR DSPWD
000408,000158: 0102 0101 DECRET = INTBIT15 # RETURN FOR PUTCOM(DEC LOAD)
000409,000159: 0102 0101 21/22REG = INTBIT15 # TEMP FOR CHARIN
000410,000160:
000411,000161: # THE REGISTERS BETWEEN ADDRWD AND PRIORITY MUST STAY IN THE FOLLOWING ORDER FOR INTERPRETIVE TRACE.
000412,000162:
000413,000163: 0102 ADDRWD ERASE # 12 BIT INTERPRETIVE OPERAND SUB-ADDRESS.
000414,000164: 0103 POLISH ERASE # HOLDS CADR MADE FROM POLISH ADDRESS.
000415,000165: 0104 0103 UPDATRET = POLISH # RETURN FOR UPDATNN, UPDATVB
000416,000166: 0104 0103 CHAR = POLISH # TEMP FOR CHARIN
000417,000167: 0104 0103 ERCNT = POLISH # COUNTER FOR ERROR LIGHT RESET
000418,000168: 0104 0103 DECOUNT = POLISH # COUNTER FOR SCALING AND DISPLAY (DEC)
000419,000169:
000420,000170: 0104 FIXLOC ERASE # WORK AREA ADDRESS.
000421,000171:
000422,000172: 0105 OVFIND ERASE # SET NON-ZERO ON OVERFLOW.
000423,000173:
000424,000174: 0106 VBUF ERASE +5 # TEMPORARY STORAGE USED FOR VECTORS.
000425,000175: 0114 0106 SGNON = VBUF # TEMP FOR +,- ON
000426,000176: 0114 0106 NOUNTEM = VBUF # COUNTER FOR MIXNOUN FETCH
000427,000177: 0114 0106 DISTEM = VBUF # COUNTER FOR OCTAL DISPLAY VERBS
000428,000178: 0114 0106 DECTEM = VBUF # COUNTER FOR FETCH (DEC DISPLAY VERBS)
000429,000179:
000430,000180: 0114 0107 SGNOFF = VBUF +1 # TEMP FOR +,- ON
000431,000181: 0114 0107 NVTEMP = VBUF +1 # TEMP FOR NVSUB
000432,000182: 0114 0107 SFTEMP1 = VBUF +1 # STORAGE FOR SF CONST HI PART(=SFTEMP2-1)
000433,000183:
000434,000184: 0114 0110 CODE = VBUF +2 # FOR DSPIN
000435,000185: 0114 0110 SFTEMP2 = VBUF +2 # STORAGE FOR SF CONST LO PART(=SFTEMP1+1)
000436,000186: 0114 0111 MIXTEMP = VBUF +3 # FOR MIXNOUN DATA
000437,000187: 0114 0111 SIGNRET = VBUF +3 # RETURN FOR +,- ON
000438,000188:
000439,000189: # ALSO MIXTEMP+1 = VBUF+4, MIXTEMP+2 = VBUF+5.
000440,000190:
000441,000191: 0114 BUF ERASE +2 # TEMPORARY SCALAR STORAGE.
000442,000192: 0117 BUF2 ERASE +1
000443,000193: 0121 0114 INDEXLOC EQUALS BUF # CONTAINS ADDRESS OF SPECIFIED INDEX.
000444,000194: 0121 0114 SWWORD EQUALS BUF # ADDRESS OF SWITCH WORD.
000445,000195: 0121 0115 SWBIT EQUALS BUF +1 # SWITCH BIT WITHIN SWITCH WORD.
000446,000196: 0121 MPTEMP ERASE # TEMPORARY USED IN MULTIPLY AND SHIFT.
000447,000197: 0122 0121 DMPNTEMP = MPTEMP # DMPNSUB TEMPORARY
000448,000198: 0122 DOTINC ERASE # COMPONENT INCREMENT FOR DOT SUBROUTINE.
000449,000199: 0123 0122 DVSIGN EQUALS DOTINC # DETERMINES SIGN OF DDV RESULT.
000450,000200: 0123 0122 ESCAPE EQUALS DOTINC # USED IN ARCSIN/ARCCOS.
000451,000201: 0123 0122 ENTRET = DOTINC # EXIT FROM ENTER
000452,000202:
000453,000203: 0123 DOTRET ERASE # RETURN FROM DOT SUBROUTINE.
000454,000204: 0124 0123 DVNORMCT EQUALS DOTRET # DIVIDEND NORMALIZATION COUNT IN DDV.
000455,000205: 0124 0123 ESCAPE2 EQUALS DOTRET # ALTERNATE ARCSIN/ARCCOS SWITCH.
000456,000206: 0124 0123 WDCNT = DOTRET # CHAR COUNTER FOR DSPWD
000457,000207: 0124 0123 INREL = DOTRET # INPUT BUFFER SELECTOR ( X,Y,Z, REG )
000458,000208:
000459,000209: 0124 MATINC ERASE # VECTOR INCREMENT IN MXV AND VXM.
000460,000210: 0125 0124 MAXDVSW EQUALS MATINC # +0 IF DP QUOTIENT IS NEAR ONE - ELSE -1.
000461,000211: 0125 0124 POLYCNT EQUALS MATINC # POLYNOMIAL LOOP COUNTER
000462,000212: 0125 0124 DSPMMTEM = MATINC # DSPCOUNT SAVE FOR DSPMM
000463,000213: 0125 0124 MIXBR = MATINC # INDICATOR FOR MIXED OR NORMAL NOUN
000464,000214:
000465,000215: 0125 TEM1 ERASE # EXEC TEMP
000466,000216: 0126 0125 POLYRET = TEM1
000467,000217: 0126 0125 DSREL = TEM1 # REL ADDRESS FOR DSPIN
000468,000218:
000469,000219: 0126 TEM2 ERASE # EXEC TEMP
000470,000220: 0127 0126 DSMAG = TEM2 # MAGNITUDE STORE FOR DSPIN
000471,000221: 0127 0126 IDADDTEM = TEM2 # MIXNOUN INDIRECT ADDRESS STORAGE
000472,000222:
000473,000223: 0127 TEM3 ERASE # EXEC TEMP
000474,000224: 0130 0127 COUNT = TEM3 # FOR DSPIN
000475,000225:
000476,000226: 0130 TEM4 ERASE # EXEC TEMP
000477,000227: 0131 0130 LSTPTR = TEM4 # LIST POINTER FOR GRABUSY
000478,000228: 0131 0130 RELRET = TEM4 # RETURN FOR RELDSP
000479,000229: 0131 0130 FREERET = TEM4 # RETURN FOR FREEDSP
000480,000230:
000481,000231: 0131 TEM5 ERASE # EXEC TEMP
000482,000232: 0132 0131 NOUNADD = TEM5 # TEMP STORAGE FOR NOUN ADDRESS
000483,000233:
000484,000234: 0132 NNADTEM ERASE # TEMP FOR NOUN ADDRESS TABLE ENTRY
000485,000235: 0133 NNTYPTEM ERASE # TEMP FOR NOUN TYPE TABLE ENTRY
000486,000236: 0134 IDAD1TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000487,000237: # MUST = IDAD2TEM-1, = IDAD3TEM-2.
000488,000238: 0135 IDAD2TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000489,000239: # MUST = IDAD1TEM+1, = IDAD3TEM-1.
000490,000240: 0136 IDAD3TEM ERASE # TEMP FOR INDIR ADRESS TABLE ENTRY(MIXNN)
000491,000241: # MUST = IDAD1TEM+2, = IDAD2TEM+1.
000492,000242: 0137 RUTMXTEM ERASE # TEMP FOR SF ROUT TABLE ENTRY(MIXNN ONLY)
000493,000243:
000494,000244:
000495,000245:
000496,000246: # STORAGE USED BY THE EXECUTIVE.
000497,000247:
000498,000248: 0140 MPAC ERASE +6 # MULTI-PURPOSE ACCUMULATOR.
000499,000249: 0147 MODE ERASE # +1 FOR TP, +0 FOR DP, OR -1 FOR VECTOR.
000500,000250: 0150 LOC ERASE # LOCATION ASSOCIATED WITH JOB.
000501,000251: 0151 BANKSET ERASE # USUALLY CONTAINS BBANK SETTING.
000502,000252: 0152 PUSHLOC ERASE # WORD OF PACKED INTERPRETIVE PARAMETERS.
000503,000253: 0153 PRIORITY ERASE # PRIORITY OF PRESENT JOB AND WORK AREA.
000504,000254:
000505,000255: 0154 ERASE +71D # SEVEN SETS OF 12 REGISTERS EACH.
000506,000256:
000507,000257: # THE FOLLOWING REGISTERS ARE RESERVED FOR PINBALL
000508,000258:
000509,000259:
000510,000260: # RESERVED FOR PINBALL EXECUTIVE ACTION
000511,000261:
000512,000262: 0264 DSPCOUNT ERASE # DISPLAY POSITION INDICATOR
000513,000263: 0265 DECBRNCH ERASE # +DEC, - DEC, OCT INDICATOR
000514,000264: 0266 VERBREG ERASE # VERB CODE
000515,000265: 0267 NOUNREG ERASE # NOUN CODE
000516,000266: 0270 XREG ERASE # R1 INPUT BUFFER
000517,000267: 0271 YREG ERASE # R2 INPUT BUFFER
000518,000268: 0272 ZREG ERASE # R3 INPUT BUFFER
000519,000269: 0273 XREGLP ERASE # LO PART OF XREG (FOR DEC CONV ONLY)
000520,000270: 0274 YREGLP ERASE # LO PART OF YREG (FOR DEC CONV ONLY)
000521,000271: 0275 ZREGLP ERASE # LO PART OF ZREG (FOR DEC CONV ONLY)
000522,000272: 0276 MODREG ERASE # MODE CODE
000523,000273: 0277 DSPLOCK ERASE # KEYBOARD/SUBROUTINE CALL INTERLOCK
000524,000274: 0300 REQRET ERASE # RETURN REGISTER FOR LOAD
000525,000275: 0301 LOADSTAT ERASE # STATUS INDICATOR FOR LOADTST
000526,000276: 0302 CLPASS ERASE # PASS INDICATOR CLEAR
000527,000277: 0303 NOUT ERASE # ACTIVITY COUNTER FOR DSPTAB
000528,000278: 0304 NOUNCADR ERASE # MACHINE CADR FOR NOUN
000529,000279: 0305 MONSAVE ERASE # N/V CODE FOR MONITOR. (= MONSAVE1-1)
000530,000280: 0306 MONSAVE1 ERASE # NOUNCADR FOR MONITOR(MATBS) =MONSAVE+1
000531,000281: 0307 DSPTAB ERASE +11D # 0-10D, DISPLAY PANEL BUFF. 11D, C/S LTS.
000532,000282: 0323 CADRSTOR ERASE # ENDIDLE STORAGE
000533,000283: 0324 GRABLOCK ERASE # INTERNAL INTERLOCK FOR DISPLAY SYSTEM
000534,000284: 0325 NVQTEM ERASE # NVSUB STORAGE FOR CALLING ADDRESS
000535,000285: # MUST = NVBNKTEM-1
000536,000286: 0326 NVBNKTEM ERASE # NVSUB STORAGE FOR CALLING BANK
000537,000287: # MUST = NVQTEM+1
000538,000288: 0327 DSPLIST ERASE +2 # WAITING LIST FOR DSP SYST INTERNAL USE
000539,000289: 0332 EXTVBACT ERASE # EXTENDED VERB ACTIVITY INTERLOCK
000540,000290: 0333 DSPTEM1 ERASE +2 # BUFFER STORAGE AREA 1 (MOSTLY FOR TIME)
000541,000291: 0336 DSPTEM2 ERASE +2 # BUFFER STORAGE AREA 2 (MOSTLY FOR DEG)
000542,000292: # END OF ERASABLES RESERVED FOR PINBALL EXECUTIVE ACTION
000543,000293:
000544,000294:
000545,000295:
000546,000296: # RESERVED FOR PINBALL INTERRUPT ACTION
000547,000297:
000548,000298: 0341 DSPCNT ERASE # COUNTER FOR DSPOUT
000549,000299: 0342 UPLOCK ERASE # BIT1 = UPLINK INTERLOCK (ACTIVATED BY
000550,000300: # RECEPTION OF A BAD MESSAGE IN UPLINK)
000551,000301: # END OF ERASABLES RESERVED FOR PINBALL INTERRUPT ACTION
000552,000302:
000553,000303:
000554,000304:
000555,000305: # DAP STORAGE IN NON-SWITCHED ERASABLE.
000556,000306:
000557,000307: 0343 T6LOC ERASE +1
000558,000308: 0345 0343 T6ADR EQUALS T6LOC
000559,000309: 0345 T5LOC ERASE +1
000560,000310: 0347 0345 T5ADR EQUALS T5LOC
000561,000311:
000562,000312: # ASSIGNMENTS FOR T4RUPT PROGRAM
000563,000313: 0347 T4LOC ERASE
000564,000314: 0350 DSRUPTSW ERASE
000565,000315: 0351 DIDFLG ERASE
000566,000316: 0352 ALT ERASE +1
000567,000317: 0354 ALTRATE ERASE
000568,000318: 0355 FINALT ERASE +1 # (MAY NOT BE REQUIRED FOR FLIGHTS).
000569,000319: 0357 LGYRO ERASE
000570,000320: 0360 FORVEL ERASE
000571,000321: 0361 LATVEL ERASE
000572,000322: 0362 LASTYCMD ERASE
000573,000323: 0363 LASTXCMD ERASE
000574,000324:
000575,000325: 0364 ALTSAVE ERASE +1
000576,000326: 0366 LMPCMD ERASE
000577,000327:
000578,000328: # END OF T4RUPT ASSIGNMENTS
000579,000329:
000580,000330:
000581,000331:
000582,000332: 0367 IMODES30 ERASE
000583,000333: 0370 IMODES33 ERASE
000584,000334: 0371 MODECADR ERASE +2
000585,000335: 0374 0371 IMUCADR EQUALS MODECADR
000586,000336: 0374 0372 AOTCADR EQUALS MODECADR +1
000587,000337: 0374 0372 OPTCADR EQUALS AOTCADR
000588,000338: 0374 0373 RADCADR EQUALS MODECADR +2
000589,000339:
000590,000340: 0374 MARKSTAT ERASE
000591,000341: 0375 XYMARK ERASE
000592,000342: 0400 SETLOC 400
000593,000343:
000594,000344: # TEMPORARY PHONY ASSIGNMENTS TO KEEP PINBALL FROM HAVING BAD ASSEMBLIES
000595,000345:
000596,000346: 0400 THETAD ERASE +2
000597,000347: 0403 DELVX ERASE +5
000598,000348: # END OF PHONY ASSIGNMENTS
000599,000349:
000600,000350:
000601,000351:
000602,000352: # DOWNLINK LIST ADDRESS.
000603,000353: 0411 DNLSTADR ERASE
000604,000354:
000605,000355: # AGS DUMMY ID WORD
000606,000356: 0412 AGSWORD ERASE
000607,000357: # RADAR ERASABLE
000608,000358:
000609,000359: 0413 RADMODES ERASE
000610,000360: 0414 SAMPLIM ERASE
000611,000361: 0415 SAMPLSUM ERASE +1
000612,000362: 0417 0415 SAMPSUM EQUALS SAMPLSUM
000613,000363: 0417 OPTYHOLD ERASE +1
000614,000364: 0421 TIMEHOLD ERASE +1
000615,000365: 0423 0415 RRTARGET EQUALS SAMPLSUM # HALF UNIT VECTOR IN SM OR NB AXES.
000616,000366: 0423 TANG ERASE +1 # DESIRED TRUNNION AND SHAFT ANGLES.
000617,000367: 0425 0423 MODEA EQUALS TANG
000618,000368: 0425 MODEB ERASE +1 # DODES CLOBBERS TANG +2.
000619,000369: 0427 0425 NSAMP EQUALS MODEB
000620,000370: 0427 DESRET ERASE
000621,000371: 0430 0427 OLDATAGD EQUALS DESRET # USED IN DATA READING ROUTINES.
000622,000372: 0430 DESCOUNT ERASE
000623,000373: # END OF RADAR ERASABLE ASSIGNMENTS
000624,000374:
000625,000375: 0431 VAC1USE ERASE
000626,000376: 0432 VAC1 ERASE +42D
000627,000377: 0505 VAC2USE ERASE
000628,000378: 0506 VAC2 ERASE +42D
000629,000379: 0561 VAC3USE ERASE
000630,000380: 0562 VAC3 ERASE +42D
000631,000381: 0635 VAC4USE ERASE
000632,000382: 0636 VAC4 ERASE +42D
000633,000383: 0711 VAC5USE ERASE
000634,000384: 0712 VAC5 ERASE +42D
000635,000385:
000636,000386: # THESE ARE WRITTEN INTO FROM SEVERAL PROGRAMS
000637,000387:
000638,000388: 0765 CDUXD ERASE
000639,000389: 0766 CDUYD ERASE
000640,000390: 0767 CDUZD ERASE
000641,000391: 1000 SETLOC 1000
000642,000392:
000643,000393: # ERASABLE STORAGE FOR AVERAGE G INTEGRATOR
000644,000394:
000645,000395: 1000 RN ERASE +5
000646,000396: 1006 VN ERASE +5
000647,000397: 1014 NSHIFT ERASE
000648,000398: 1015 XSHIFT ERASE
000649,000399: 1016 UNITR ERASE +5
000650,000400: 1024 UNITW ERASE +5
000651,000401: 1032 RMAG ERASE +1
000652,000402: 1034 RMAGSQ ERASE +1
000653,000403: 1036 GRAVITY ERASE +5
000654,000404: 1044 DELV ERASE +5
000655,000405: 1052 DELTAT ERASE +1
000656,000406: 1054 RN1 ERASE +5
000657,000407: 1062 VN1 ERASE +5
000658,000408: # WAITLIST REPEAT FLAG:
000659,000409:
000660,000410: 1070 RUPTAGN ERASE
000661,000411: 1071 1070 KEYTEMP2 = RUPTAGN # TEMP FOR KEYRUPT, UPRUPT
000662,000412:
000663,000413: # PHASE TABLE AND RESTART COUNTER.
000664,000414:
000665,000415: 1071 -PHASE0 ERASE
000666,000416: 1072 PHASE0 ERASE
000667,000417: 1073 -PHASE1 ERASE
000668,000418: 1074 PHASE1 ERASE
000669,000419: 1075 -PHASE2 ERASE
000670,000420: 1076 PHASE2 ERASE
000671,000421: 1077 -PHASE3 ERASE
000672,000422: 1100 PHASE3 ERASE
000673,000423: 1101 -PHASE4 ERASE
000674,000424: 1102 PHASE4 ERASE
000675,000425: 1103 -PHASE5 ERASE
000676,000426: 1104 PHASE5 ERASE
000677,000427:
000678,000428: # ERASABLE FOR SINGLE PRECISION SUBROUTINES.
000679,000429:
000680,000430: 1105 HALFY ERASE
000681,000431: 1106 ROOTRET ERASE
000682,000432: 1107 SQRARG ERASE
000683,000433: 1110 1105 TEMK EQUALS HALFY
000684,000434: 1110 1106 SQ EQUALS ROOTRET
000685,000435:
000686,000436: 1110 1/PIPADT ERASE # IMU COMPENSATION PACKAGE
000687,000437: 1111 1110 OLDBT1 = 1/PIPADT
000688,000438:
000689,000439: # ASSIGNMENTS RESERVED EXCLUSIVELY FOR SELF-CHECK
000690,000440: 1111 SELFERAS ERASE 1360 - 1377
000691,000441:
000692,000442: 1111 SELFRET = 1360
000693,000443: 1111 SMODE = 1361
000694,000444: 1111 REDOCTR = 1362 # KEEPS TRACK OF RESTARTS
000695,000445: 1111 FAILREG = 1363
000696,000446: 1111 SFAIL = 1364
000697,000447: 1111 ERCOUNT = 1365
000698,000448: 1111 SCOUNT = 1366
000699,000449: 1111 SKEEP1 = 1371
000700,000450: 1111 SKEEP2 = 1372
000701,000451: 1111 SKEEP3 = 1373
000702,000452: 1111 SKEEP4 = 1374
000703,000453: 1111 SKEEP5 = 1375
000704,000454: 1111 SKEEP6 = 1376
000705,000455: 1111 SKEEP7 = 1377
000706,000456:
000707,000457: 1111 ERESTORE ERASE
000708,000458: 1112 LASTIMER ERASE # Stores the number of the last timer interrupt
000709,000459: 1113 T4TEMP ERASE # Temporary storage of TIME4 setting for use with
000710,000460: # accelerated TIME4 interrupts in self-check
000711,000461:
000712,000462: # ADDRESSES TO BE USED FOR INDEX INSTRUCTION WITHOUT EXTRACODES
000713,000463: 1114 NDX+0 ERASE
000714,000464: 1115 NDX+MAX ERASE
000715,000465: 1116 NDXKEEP1 ERASE
000716,000466: 1117 NDXKEEP2 ERASE
000717,000467: 1120 NDXKEEP3 ERASE
000718,000468: 1121 NDXSELF1 ERASE
000719,000469: 1122 NDXSELF2 ERASE
000720,000470:
000721,000471: # WAITLIST TASK LISTS
000722,000472:
000723,000473: E3,1400 SETLOC 1400
000724,000474:
000725,000475: E3,1400 LST1 ERASE +7 # DELTA T'S.
000726,000476: E3,1410 LST2 ERASE +17D # 2CADR TASK ADDRESSES.
000727,000477:
000728,000478: # IMU COMPENSATION PARAMETERS:
000729,000479:
000730,000480: E3,1432 PBIASX ERASE # PIPA BIAS AND PIPA SCALE FACTOR TERMS
000731,000481: E3,1433 E3,1432 PIPABIAS = PBIASX # INTERMIXED.
000732,000482: E3,1433 PIPASCFX ERASE
000733,000483: E3,1434 E3,1433 PIPASCF = PIPASCFX
000734,000484: E3,1434 PBIASY ERASE
000735,000485: E3,1435 PIPASCFY ERASE
000736,000486: E3,1436 PBIASZ ERASE
000737,000487: E3,1437 PIPASCFZ ERASE
000738,000488:
000739,000489: E3,1440 NBDX ERASE # GYRO BIAS DRIFTS
000740,000490: E3,1441 E3,1440 GBIASX = NBDX
000741,000491: E3,1441 NBDY ERASE
000742,000492: E3,1442 NBDZ ERASE
000743,000493:
000744,000494: E3,1443 ADIAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
000745,000495: E3,1444 ADIAY ERASE # INPUT AXIS
000746,000496: E3,1445 ADIAZ ERASE
000747,000497:
000748,000498: E3,1446 ADSRAX ERASE # ACCELERATION SENSITIVE DRIFT ALONG THE
000749,000499: E3,1447 ADSRAY ERASE # SPIN REFERENCE AXIS
000750,000500: E3,1450 ADSRAZ ERASE
000751,000501:
000752,000502: E3,1451 GCOMP ERASE +5 # CONTAINS COMPENSATING TORQUES
000753,000503:
000754,000504: E3,1457 GCOMPSW ERASE
000755,000505: E3,1460 E3,1451 COMMAND EQUALS GCOMP
000756,000506: E3,1460 E3,1454 CDUIND EQUALS GCOMP +3
000757,000507:
000758,000508: # STORAGE FOR RR TASKS.
000759,000509:
000760,000510: E3,1460 RRRET ERASE
000761,000511: E3,1461 RDES ERASE
000762,000512: E3,1462 RRINDEX ERASE
000763,000513:
000764,000514: # AOT CALIBRATIONS IN AZIMUTH AND ELEVATION AT DETENTS
000765,000515: E3,1463 AOTAZ ERASE +2
000766,000516: E3,1466 AOTEL ERASE +2
000767,000517: # ASSIGNMENTS FOR PRESENTLY UNUSED NOUNS.
000768,000518: E3,1471 AZANG EQUALS # DELETE WHEN OPTICAL TRACKER NOUNS GONE.
000769,000519: E3,1471 ELANG EQUALS
000770,000520: E3,1471 DESLOTSY EQUALS
000771,000521: E3,1471 DESLOTSX EQUALS
000772,000522:
000773,000523: E3,1471 ROLL ERASE +2
000774,000524: E3,1474 LANDMARK ERASE +5
000775,000525:
000776,000526: # THE FOLLOWING REGS ARE USED BY THE STANDBY VERBS
000777,000527:
000778,000528: E3,1502 TIMESAV ERASE +1
000779,000529: E3,1504 SCALSAV ERASE +1
000780,000530: E3,1506 TIMAR ERASE +1
000781,000531: E3,1510 TIMEDIFF ERASE +1
000782,000532:
000783,000533: E4,1400 SETLOC 2000
000784,000534:
000785,000535: E4,1400 AMEMORY ERASE +150D
000786,000536: # THE FOLLOWING A MEMORY LOCATIONS ARE USED BY MID-COURSE NAVIGATION:
000787,000537:
000788,000538: E4,1627 E4,1400 RRECT EQUALS AMEMORY +000D
000789,000539: E4,1627 E4,1400 RIGNTION EQUALS AMEMORY +000D
000790,000540: E4,1627 E4,1406 VRECT EQUALS AMEMORY +006D
000791,000541: E4,1627 E4,1406 VIGNTION EQUALS AMEMORY +006D
000792,000542: E4,1627 E4,1414 TDELTAV EQUALS AMEMORY +012D
000793,000543: E4,1627 E4,1414 NEWDLTAV EQUALS AMEMORY +012D
000794,000544: E4,1627 E4,1422 TNUV EQUALS AMEMORY +018D
000795,000545: E4,1627 E4,1422 NEWNUV EQUALS AMEMORY +018D
000796,000546: E4,1627 E4,1430 RCV EQUALS AMEMORY +024D
000797,000547: E4,1627 E4,1430 FOUNDR EQUALS AMEMORY +024D
000798,000548: E4,1627 E4,1436 VCV EQUALS AMEMORY +030D
000799,000549: E4,1627 E4,1436 FOUNDV EQUALS AMEMORY +030D
000800,000550: E4,1627 E4,1444 TC EQUALS AMEMORY +036D
000801,000551: E4,1627 E4,1446 TET EQUALS AMEMORY +038D
000802,000552: E4,1627 E4,1450 XKEP EQUALS AMEMORY +040D
000803,000553: E4,1627 E4,1452 ALPHAV EQUALS AMEMORY +042D
000804,000554: E4,1627 E4,1452 DELR EQUALS AMEMORY +042D
000805,000555: E4,1627 E4,1460 BETAV EQUALS AMEMORY +048D
000806,000556: E4,1627 E4,1460 DELVEL EQUALS AMEMORY +048D
000807,000557: E4,1627 E4,1466 PHIV EQUALS AMEMORY +054D
000808,000558: E4,1627 E4,1466 BVECTOR EQUALS AMEMORY +054D
000809,000559: E4,1627 E4,1474 PSIV EQUALS AMEMORY +060D
000810,000560: E4,1627 E4,1502 FV EQUALS AMEMORY +066D
000811,000561:
000812,000562: E4,1627 E4,1510 VECTAB EQUALS AMEMORY +072D
000813,000563:
000814,000564: E4,1627 E4,1510 TAVEGON EQUALS AMEMORY +072D
000815,000565: E4,1627 E4,1512 TRESUME EQUALS AMEMORY +074D
000816,000566: E4,1627 E4,1514 RAVEGON EQUALS AMEMORY +076D
000817,000567: E4,1627 E4,1522 VAVEGON EQUALS AMEMORY +082D
000818,000568: E4,1627 E4,1530 RIG-4SEC EQUALS AMEMORY +088D
000819,000569: E4,1627 E4,1554 ALPHAM EQUALS AMEMORY +108D
000820,000570: E4,1627 E4,1556 BETAM EQUALS AMEMORY +110D
000821,000571: E4,1627 E4,1560 TAU EQUALS AMEMORY +112D
000822,000572: E4,1627 E4,1560 GIVENT EQUALS AMEMORY +112D
000823,000573: E4,1627 E4,1562 DT/2 EQUALS AMEMORY +114D
000824,000574: E4,1627 E4,1564 H EQUALS AMEMORY +116D
000825,000575: E4,1627 E4,1566 TDEC EQUALS AMEMORY +118D
000826,000576: E4,1627 E4,1570 FBRANCH EQUALS AMEMORY +120D
000827,000577: E4,1627 E4,1571 HBRANCH EQUALS AMEMORY +121D
000828,000578: E4,1627 E4,1572 GMODE EQUALS AMEMORY +122D
000829,000579: E4,1627 E4,1573 QREADY EQUALS AMEMORY +123D
000830,000580: E4,1627 E4,1574 MEASQ EQUALS AMEMORY +124D
000831,000581: E4,1627 E4,1576 DELTAQ EQUALS AMEMORY +126D
000832,000582:
000833,000583: E4,1627 E4,1600 MEASMODE EQUALS AMEMORY +128D
000834,000584: E4,1627 E4,1601 NVCODE EQUALS AMEMORY +129D
000835,000585: E4,1627 E4,1602 MIDEXIT EQUALS AMEMORY +130D
000836,000586: E4,1627 E4,1602 DSPRTRN EQUALS AMEMORY +130D
000837,000587: E4,1627 E4,1603 INCORPEX EQUALS AMEMORY +131D
000838,000588: E4,1627 E4,1604 STEPEXIT EQUALS AMEMORY +132D
000839,000589: E4,1627 E4,1605 DIFEQCNT EQUALS AMEMORY +133D
000840,000590: E4,1627 E4,1605 NORMGAM EQUALS AMEMORY +133D
000841,000591: E4,1627 E4,1606 SCALEA EQUALS AMEMORY +134D
000842,000592: E4,1627 E4,1607 SCALEB EQUALS AMEMORY +135D
000843,000593: E4,1627 E4,1610 SCALDT EQUALS AMEMORY +136D
000844,000594: E4,1627 E4,1611 SCALDELT EQUALS AMEMORY +137D
000845,000595: E4,1627 E4,1612 SCALER EQUALS AMEMORY +138D
000846,000596:
000847,000597: E4,1627 E4,1613 YV EQUALS AMEMORY +139D
000848,000598: E4,1627 E4,1621 ZV EQUALS AMEMORY +145D
000849,000599:
000850,000600: E4,1627 PBODY ERASE
000851,000601: E4,1630 W ERASE +071D
000852,000602:
000853,000603: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENTRY AND INITIALIZATION JOB OF THE FCS TEST FOR LEM.
000854,000604:
000855,000605: E4,1740 E4,1400 FCSCNTR EQUALS AMEMORY +000D
000856,000606:
000857,000607: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE JETSET TASK.
000858,000608:
000859,000609: # (OPTIMUM PRELAUNCH A C USES JETSTEP-JETSTEP +77D FOR RESTART PROOF)
000860,000610:
000861,000611: E4,1740 E4,1401 XJBUF EQUALS AMEMORY +001D
000862,000612: E4,1740 E4,1402 YZJBUF EQUALS AMEMORY +002D
000863,000613: E4,1740 E4,1403 JFBUF EQUALS AMEMORY +003D
000864,000614: E4,1740 E4,1404 FCNTR EQUALS AMEMORY +004D
000865,000615: E4,1740 E4,1405 THBUF EQUALS AMEMORY +005D
000866,000616: E4,1740 E4,1406 OFFTMBUF EQUALS AMEMORY +006D
000867,000617: E4,1740 E4,1407 JETSTEP EQUALS AMEMORY +007D
000868,000618: E4,1740 E4,1410 NTIMES EQUALS AMEMORY +008D
000869,000619: E4,1740 E4,1420 NEXTTIME EQUALS AMEMORY +016D
000870,000620: E4,1740 E4,1430 JETONTM EQUALS AMEMORY +024D
000871,000621: E4,1740 E4,1440 XJETS EQUALS AMEMORY +032D
000872,000622: E4,1740 E4,1450 YZJETS EQUALS AMEMORY +040D
000873,000623: E4,1740 E4,1460 JETOFFTM EQUALS AMEMORY +048D
000874,000624:
000875,000625: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE ENGINE ON-OFF TASK.
000876,000626:
000877,000627: E4,1740 E4,1470 ENGSTEP EQUALS AMEMORY +056D
000878,000628: E4,1740 E4,1471 CYLTIMES EQUALS AMEMORY +057D
000879,000629: E4,1740 E4,1474 NEXTCYLT EQUALS AMEMORY +060D
000880,000630: E4,1740 E4,1477 ONTIME EQUALS AMEMORY +063D
000881,000631: E4,1740 E4,1502 OFFTIME EQUALS AMEMORY +066D
000882,000632: E4,1740 E4,1505 OFFTIMER EQUALS AMEMORY +069D
000883,000633:
000884,000634: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE TRIM TASK.
000885,000635:
000886,000636: E4,1740 E4,1510 TRIMSTEP EQUALS AMEMORY +072D
000887,000637: E4,1740 E4,1511 NUMTIMES EQUALS AMEMORY +073D
000888,000638: E4,1740 E4,1525 STEPDLYT EQUALS AMEMORY +085D
000889,000639: E4,1740 E4,1541 TRIMONT EQUALS AMEMORY +097D
000890,000640: E4,1740 E4,1555 TRIMOFFT EQUALS AMEMORY +109D
000891,000641: E4,1740 E4,1571 TRIMIND EQUALS AMEMORY +121D
000892,000642:
000893,000643: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE THROTTLE TASK.
000894,000644:
000895,000645: E4,1740 E4,1605 THRTSTEP EQUALS AMEMORY +133D
000896,000646: E4,1740 E4,1606 DOTIMES EQUALS AMEMORY +134D
000897,000647: E4,1740 E4,1614 DELAY EQUALS AMEMORY +140D
000898,000648: E4,1740 E4,1622 THR1TIME EQUALS AMEMORY +146D
000899,000649: E4,1740 E4,1630 THCOMM1 EQUALS AMEMORY +152D
000900,000650: E4,1740 E4,1636 THCOMM2 EQUALS AMEMORY +158D
000901,000651:
000902,000652: # THE FOLLOWING ERASABLE REGISTERS ARE USED BY THE INTERFACE LOOK TASK.
000903,000653:
000904,000654: E4,1740 E4,1644 30BUF1 EQUALS AMEMORY +164D
000905,000655: E4,1740 E4,1650 30BUF0 EQUALS AMEMORY +168D
000906,000656: E4,1740 E4,1654 QUITLOOK EQUALS AMEMORY +172D
000907,000657: E4,1740 E4,1655 CHCNTR EQUALS AMEMORY +173D
000908,000658:
000909,000659: E5,1400 SETLOC 2400
000910,000660: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE IN-FLIGHT ALIGNMENT ROUTINES
000911,000661:
000912,000662: E5,1400 XSM ERASE +17D
000913,000663: E5,1422 E5,1406 YSM = XSM +6
000914,000664: E5,1422 E5,1414 ZSM = XSM +12D
000915,000665: E5,1422 XDC ERASE +17D
000916,000666: E5,1444 E5,1430 YDC = XDC +6
000917,000667: E5,1444 E5,1436 ZDC = XDC +12D
000918,000668: E5,1444 E5,1422 XNB = XDC
000919,000669: E5,1444 E5,1430 YNB = XDC +6
000920,000670: E5,1444 E5,1436 ZNB = XDC +12D
000921,000671: E5,1444 STARAD ERASE +17D
000922,000672: E5,1466 STAR ERASE +5
000923,000673: E5,1474 SAC ERASE +1
000924,000674: E5,1476 PAC ERASE +1
000925,000675: E5,1500 OGC ERASE +1
000926,000676: E5,1502 IGC ERASE +1
000927,000677: E5,1504 MGC ERASE +1
000928,000678: E5,1506 ZPRIME = 22D
000929,000679: E5,1506 PDA = 22D
000930,000680: E5,1506 COSTH = 16D
000931,000681: E5,1506 SINTH = 18D
000932,000682: E5,1506 THETA = 20D
000933,000683: E5,1506 STARM = 32D
000934,000684:
000935,000685:
000936,000686:
000937,000687: # THE FOLLOWING ERASABLE LOCATIONS ARE UTILIZED BY THE SYSTEM TESTS
000938,000688: E5,1506 AZIMUTH ERASE +1
000939,000689: E5,1510 LATITUDE ERASE +1
000940,000690:
000941,000691: E5,1512 EROPTN ERASE
000942,000692: E5,1513 ERVECTOR ERASE +5
000943,000693: E5,1521 GYROD ERASE +5
000944,000694: E5,1527 LENGTHOT ERASE
000945,000695: E5,1530 LOSVEC ERASE +5
000946,000696: E5,1536 NBPOS ERASE
000947,000697: E5,1537 NDXCTR ERASE
000948,000698: E5,1540 PIPANO ERASE
000949,000699: E5,1541 PIPINDEX ERASE
000950,000700: E5,1542 PIPNDX ERASE +1
000951,000701: E5,1544 POSITON ERASE
000952,000702: E5,1545 QPLAC ERASE
000953,000703:
000954,000704: E5,1546 QPLACE ERASE
000955,000705: E5,1547 QPLACES ERASE
000956,000706: E5,1550 RUN ERASE
000957,000707: E5,1551 STOREPL ERASE
000958,000708: E5,1552 SOUTHDR ERASE
000959,000709: E5,1553 TAZEL1 ERASE +5
000960,000710: E5,1561 TEMPTIME ERASE +1
000961,000711: E5,1563 TESTNO ERASE
000962,000712: E5,1564 TMARK ERASE +1
000963,000713: E5,1566 SHAFTA ERASE
000964,000714: E5,1567 TRUNA ERASE
000965,000715: E5,1570 E5,1776 ZERONDX = ERCOMP +5
000966,000716: E5,1570 GENPL ERASE +111D
000967,000717:
000968,000718: E5,1750 E5,1570 CDUTIMEI = GENPL
000969,000719: E5,1750 E5,1572 CDUTIMEF = GENPL +2
000970,000720: E5,1750 E5,1574 CDUDANG = GENPL +4
000971,000721: E5,1750 E5,1575 CDUREADF = GENPL +5
000972,000722: E5,1750 E5,1576 CDUREADI = GENPL +6
000973,000723: E5,1750 E5,1577 CDULIMIT = GENPL +7
000974,000724:
000975,000725: E5,1750 E5,1574 TEMPADD = GENPL +4
000976,000726: E5,1750 E5,1575 TEMP = GENPL +5
000977,000727: E5,1750 E5,1576 NOBITS = GENPL +6
000978,000728: E5,1750 E5,1577 CHAN = GENPL +7
000979,000729:
000980,000730: E5,1750 E5,1600 LOS1 = GENPL +8D
000981,000731: E5,1750 E5,1606 LOS2 = GENPL +14D
000982,000732:
000983,000733: E5,1750 E5,1614 CALCDIR EQUALS GENPL +20D
000984,000734: E5,1750 E5,1615 CDUFLAG EQUALS GENPL +21D
000985,000735: E5,1750 E5,1616 GYTOBETQ EQUALS GENPL +22D
000986,000736: E5,1750 E5,1617 OPTNREG EQUALS GENPL +23D
000987,000737: E5,1750 E5,1620 SAVE EQUALS GENPL +24D # THREE CONSEC LOC
000988,000738: E5,1750 E5,1623 SFCONST1 EQUALS GENPL +27D
000989,000739: E5,1750 E5,1624 TIMER EQUALS GENPL +28D
000990,000740:
000991,000741: E5,1750 E5,1626 DATAPL EQUALS GENPL +30D
000992,000742: E5,1750 E5,1570 RDSP EQUALS GENPL # FIX LATER POSSIBLY KEEP1
000993,000743: E5,1750 E5,1670 MASKREG EQUALS GENPL +64D
000994,000744: E5,1750 E5,1672 CDUNDX EQUALS GENPL +66D
000995,000745: E5,1750 E5,1673 RESULTCT EQUALS GENPL +67D
000996,000746: E5,1750 E5,1676 COUNTPL EQUALS GENPL +70D
000997,000747:
000998,000748: E5,1750 E5,1677 CDUANG EQUALS GENPL +71D
000999,000749: E5,1750 E5,1570 AINLA = GENPL # 110 DEC OR 156 OCT LOCATIONS
001000,000750:
001001,000751: E5,1750 E5,1570 WANGO EQUALS AINLA # VERT ERATE
001002,000752: E5,1750 E5,1572 WANGI EQUALS AINLA +2D # HO
001003,000753: E5,1750 E5,1574 WANGT EQUALS AINLA +4D # T
001004,000754: E5,1750 E5,1574 TORQNDX = WANGT
001005,000755: E5,1750 E5,1576 DRIFTT EQUALS AINLA +6D # EAST AX
001006,000756: E5,1750 E5,1600 ALX1S EQUALS AINLA +8D # IN
001007,000757: E5,1750 E5,1601 CMPX1 EQUALS AINLA +9D # IND
001008,000758: E5,1750 E5,1602 ALK EQUALS AINLA +10D # GAINS
001009,000759: E5,1750 E5,1616 VLAUNS EQUALS AINLA +22D
001010,000760: E5,1750 E5,1616 THETAX = VLAUNS
001011,000761: E5,1750 E5,1620 WPLATO EQUALS AINLA +24D
001012,000762: E5,1750 E5,1624 INTY EQUALS AINLA +28D # SOUTH PIP INTE
001013,000763: E5,1750 E5,1626 ANGZ EQUALS AINLA +30D # EAST AXIS
001014,000764: E5,1750 E5,1630 INTZ EQUALS AINLA +32D # EAST PIP I
001015,000765: E5,1750 E5,1632 ANGY EQUALS AINLA +34D # SOUTH
001016,000766: E5,1750 E5,1624 THETAN = INTY
001017,000767: E5,1750 E5,1634 ANGX EQUALS AINLA +36D # VE
001018,000768: E5,1750 E5,1636 DRIFTO EQUALS AINLA +38D # VERT
001019,000769: E5,1750 E5,1640 DRIFTI EQUALS AINLA +40D # SOU
001020,000770: E5,1750 E5,1644 VLAUN EQUALS AINLA +44D # LAUNCH
001021,000771: E5,1750 E5,1644 FILDELV = VLAUN
001022,000772: E5,1750 E5,1646 ACCWD EQUALS AINLA +46D # LAUN
001023,000773: E5,1750 E5,1646 INTVEC = ACCWD
001024,000774: E5,1750 E5,1654 POSNV EQUALS AINLA +52D # LAUNC
001025,000775: E5,1750 E5,1656 DPIPAY EQUALS AINLA +54D # SOUTH
001026,000776: E5,1750 E5,1662 DPIPAZ EQUALS AINLA +58D # NORTH PIP INCREMENT
001027,000777: E5,1750 E5,1664 ALTIM EQUALS AINLA +60D # LENG
001028,000778: E5,1750 E5,1665 ALTIMS EQUALS AINLA +61D # INDEX
001029,000779: E5,1750 E5,1666 ALDK EQUALS AINLA +62D # TIME CONSTAN
001030,000780: E5,1750 E5,1704 DELM EQUALS AINLA +76D
001031,000781: E5,1750 E5,1714 WPLATI EQUALS AINLA +84D
001032,000782: E5,1750 E5,1716 GEOSAVED EQUALS AINLA +86D
001033,000783: E5,1750 E5,1717 PREMTRXC EQUALS AINLA +87D
001034,000784: E5,1750 E5,1720 PRELMTRX EQUALS AINLA +88D
001035,000785: E5,1750 E5,1720 TRANSM1 = PRELMTRX
001036,000786: E5,1750 E5,1742 GEOCOMPS EQUALS AINLA +106D
001037,000787: E5,1750 E5,1743 GTSOPNDZ EQUALS AINLA +107D
001038,000788: E5,1750 E5,1744 1SECXT EQUALS AINLA +108D
001039,000789: E5,1750 E5,1745 GTSWTLST EQUALS AINLA +109D
001040,000790: E5,1750 E5,1746 ERECTIME EQUALS AINLA +110D
001041,000791: E5,1750 E5,1747 GEOMTRX EQUALS AINLA +111D
001042,000792: E5,1750 E5,1771 ERCOMP EQUALS AINLA +129D
001043,000793:
001044,000794: E5,1750 E5,1570 BMEMORY EQUALS GENPL
001045,000795: E5,1750 0405 DELVY EQUALS DELVX +2
001046,000796: E5,1750 0407 DELVZ EQUALS DELVX +4
001047,000797: E7,1400 SETLOC 3400
001048,000798:
001049,000799: # DOWNLINK STORAGE.
001050,000800:
001051,000801: E7,1400 LDATALST ERASE
001052,000802: E7,1401 DNTMGOTO ERASE
001053,000803: E7,1402 TMINDEX ERASE
001054,000804: E7,1403 DNTMBUFF ERASE +21D # SNAPSHOT BUFFER.
001055,000805:
001056,000806: # RADAR TEST STORAGE.
001057,000807:
001058,000808: E7,1431 RTSTDEX ERASE
001059,000809: E7,1432 RTSTMAX ERASE # 66 FOR HI SPEED, 6 FOR LOW SPEED RR,
001060,000810: # AND 18 FOR LOW SPEED LR.
001061,000811: E7,1433 RTSTBASE ERASE # USED FOR CYCLIC SAMPLING.
001062,000812: E7,1434 RTSTLOC ERASE # GOES 0(6)RTSTMAX
001063,000813: E7,1435 E7,1434 RSTKLOC EQUALS RTSTLOC
001064,000814: E7,1435 RSAMPDT ERASE # PNZ FOR CYCLIC SAMPLING, -1 FOR HI SPEED
001065,000815: # INSERT +0 HERE MANUALLY TO TERMINATE TST
001066,000816: E7,1436 RFAILCNT ERASE
001067,000817: E7,1437 RSTACK ERASE +71D # BUFFERS FOR RADAR TESTING.
001068,000818:
001069,000819: # AGS INITIALIZATION
001070,000820: E7,1547 AGSBUFF ERASE +27D
001071,000821: # STORAGE FOR INBIT SCANNER.
001072,000822:
001073,000823: E7,1603 LAST30 ERASE +2 # LAST SAMPLED INBITS.
001074,000824: E7,1606 MSGCNT ERASE
End of include-file ERASABLE_ASSIGNMENTS.agc. Parent file is MAIN.agc