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