adsp 2181.xml

用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码 用delphi写的delphi源代码

<?xml version="1.0" encoding="windows-1251"?>
<SynUniHighlighter Version="2.0">
	<SyntaxColoring>
		<Info>
			<General Name="ADSP 2181" Extensions="DSP INC" Version="1" Revision="0" Sample=".const fs = 0;
.include &lt;c:\adi_dsp\macros\init.dsp&gt;;
userInit:
.const a = 0x4000;
.const D = 3000;
.var/dm/circ queue[D+1];
    i0 = ^queue;  L0 = %queue;        {buffer pointer and length}
    clearQueue(i0, m0, L0);           {clear queue}
rts;
idleLoop:
    kbhit(ar);
    none = pass ar;
    if ne jump idleLoop;
    rts;                              {else return to monitor}
    inL(ax1);                         {left input sample}
    inR(mx1);                         {right input sample}
    my1 = a;
    tapQueue(i0, m0, D, mx1);
    mr = mr + mx1 * my1 (rnd);
interrupt: ena sec_reg;
    toggle fl1;
    rti;
.endmod;

" History=""/>
			<Author Name="Vitaly Nevzorov" Mail="[e-mail]" Web="www.delphist.com" Copyright="Copyright (c) Vitaly Nevzorov, 2002" Company="N/A" Remark=""/>
		</Info>
		<Schemes/>
		<Editor/>
		<MainRules Name="Root" Style="Root">
			<Attributes Foreground="clBlack" Background="clWhite"/>
			<Delimiters Value="!&quot;%&amp;'()*+,-/:;&lt;=&gt;?@[\]^{|}~"/>
			<SubRules>
				<Range Name="Strings '..'" Style="Strings '..'">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="'" Close="'"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Strings &amp;qt;..&amp;qt;" Style="Strings &amp;qt;..&amp;qt;">
					<Attributes Foreground="clRed" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&quot;" Close="&quot;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="Remarks {..}" Style="Remarks {..}">
					<Attributes Foreground="clNavy" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="{" Close="}"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="^" Style="^">
					<Attributes Foreground="clPurple" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="^"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="%" Style="%">
					<Attributes Foreground="$00004080" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties CloseOnTerm="True"/>
					<MultiTokens>
						<Tokens Open="%"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<Range Name="&lt;..&gt;" Style="&lt;..&gt;">
					<Attributes Foreground="$00FF8000" Background="clWhite"/>
					<Delimiters Value="!&quot;#$%&amp;'()*+,-./:;&lt;=&gt;?@[\]^`{|}~"/>
					<OpenToken StartLine=""/>
					<CloseToken StartLine=""/>
					<Properties/>
					<MultiTokens>
						<Tokens Open="&lt;" Close="&gt;"/>
					</MultiTokens>
					<SubRules/>
				</Range>
				<KeyList Name="Key words" Enabled="True" Style="" Words="and
ashift
by
call
clrbit
dis
do
ena
exp
expadj
if
jump
lo
lshift
modify
none
nop
norm
of
or
pass
pop
push
reset
rnd
rti
rts
sat
sec_regset
setbit
ss
su
tglbit
toggle
toppcstack
tstbit
until
us
uu
xor
">
					<Attributes Foreground="clGreen" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Control" Enabled="True" Style="" Words=".adsp2181
.const
.endmod
.endsys
.entry
.external
.global
.include
.init
.mmap0
.module
.seg
.system
.var
abs
circ
code
data
">
					<Attributes Foreground="clBlue" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Register" Enabled="True" Style="" Words="af
ar
astat
ax0
ax1
ay0
ay1
cntr
divq
divs
i0
i1
i2
i3
i4
i5
i6
i7
icntl
ifc
imask
l0
l1
l2
l3
l4
l5
l6
l7
loop
m0
m1
m2
m3
m4
m5
m6
m7
mf
mf
mr
mr0
mr1
mr2
mstat
mx0
mx1
my0
my1
pc
sb
sesi
sr
sr0
sr1
sts
su
">
					<Attributes Foreground="$00FF0080" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Memory" Enabled="True" Style="" Words="bm
dm
im
io
pm
ram
rom
">
					<Attributes Foreground="$000080FF" Background="clWhite"/>
				</KeyList>
				<KeyList Name="Condition" Enabled="True" Style="" Words="ac
av
eq
ge
gt
le
lt
mv
ne
neg
not
pos
/C6&quot;Bits&quot;
c
ce
fl0
fl1
fl2
flag_in
flag_out
m_mode
">
					<Attributes Foreground="$00FF8000" Background="clWhite"/>
				</KeyList>
			</SubRules>
		</MainRules>
	</SyntaxColoring>
	<CodeFolding/>
	<CustomData/>
</SynUniHighlighter>