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