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