main.stp

基于FPGA的VHDL编程实现各种音频信号

D07WK60eW0A02KIYa4_Fqwq4Eaa8fv@t@FIYa9uV@3E9r0KW6II2Zy@@f1OWl@aa22KmtVaqk154
QzPCessCj000q2RBqQ240RRps000O3jDxI1W22e08GjTeriD0miv@4pMJiD98bVcvGE1E6d0AXwK
NcU94uaW9ESmr0C0a00emF4w6olS2ke9zDp25Zq1tBd072gRn@2e8qQ7h18ummuC3ZpGG00K5j2P
DkID2xLwg699DQf2jbwW3z3UGCp@NGmkXM@Vg3NNZ@5jvau406S9o19YGGeEBU135XwuN_no4QjQ
r0qGuh6a101XM3HggB4_wTPqEHerqcAYZhplGK7dbC04548NK9I5gp@v4CJQq1c8o6v4mPer@N3G
301ORh1W08GRRsM0008Wjb6m2544HergPPaai608OHZaa60254GHergfjIIYqGRhsM89IGYjr0G0
2YjDRPaar0KG11JK301XMh68A9fQ0c0fB0G11O4QzQU7IIQhcWQ0CmzaaKD06G2I_lWWA2jsDGKR
RsK00g1e1W0qsf1uG11D4Qz@30y@00gt5j1JwLIWJ@dS9jdMNPbrVaEOVv4SGB044QzYv7xIobkT
Zx19YeGer@7Qjkr00nDC6arOYV4im006Ng0QlEmmY2EaMJaH45Su4@7uq@POyMeE@NGGEXwWMlLn
4QzT8099h1mXmNdDrXpWG00C0W2a0002jcpqeT8Kd@3rv@Ghjd44aKer@F0WEn_bGer92Xijj608
04Wjb6W280QRrsM0080eDqwvCDIIYWORBD0CA801RQBa54G0PxaaGhPJPba4PXssQ08W9ssMD0A0
XjjjWW488fsgbjHQgW3GJ204QTQr0O0018fQ0aeW09G0KI6QDRr0OW@UaaQ0KmlFaKD0AO@F9fW0
5i@795QDRr0e0Q00WQ0keWW4G0KRpqM0O0W@70m4G00030yVhrBled2G200IUGYaaECd0E70WpVp
Q8k31Rj_Z4VlBdW52j_@Q0UFqw@h1OZSt3P0W@dO9dI5shwX3Yay@0E@FWp@JTGuGT_FKdRB8uXt
oP8qwxg1mWC088qw40819LGW209B93j_@K7UfiHNpNv@GT_FqQkJ4142IYIXM@Vu455QzPr042ej
jlGhJ01GscbjpsGhJh60F2jc18fssajJI4b4R7QTQr0iH1158jTIAqQ5qjHIYb408qwtg1eY22GW
Wa2GerAWc4_Fqwtg1O3VIIMau@F3jE12I20XMFND0MW00RhWW62j_@10_V0W@RivY0d_V0WE0404
q4n@PDALGTS6Qz@XM@V0dyF0md@Wom001I000OcWDALmlS288jcLlAOXeEYyHXJ3Sw@KL7EHa72r
v@K7S93W52r9oC0G8qw_g1OX22IG9A99G2IomNjCdW5IIw@OOsEEX@3j_@qePBd0219995QTcXXj
Her02c0ocjjD0050QsMsM0010A8e080PR_sER3jMGDfDIaWaSrMo6HI4IGRJRRer4OBRx4999Her
3oIsEH2I2DRDR791DfijajXaqa8tsqcHI2GerBI2GIYca2G11AGa4_FqQ1zq@GYaaatVf@9I2JY2
28GQI2l@l@39H99XMh880iDJQ70000sifj50m0Wg60360u@10O6W00GRIK62N71EzV8Y@F0mHW00
02j_@Ghj614000000W000vK@VD0zquW39YGuT1LaXHalr8Q7BF21008d09Ihv@AVZ9E1EhKWnpVW
84042Sw@CCoDlC2oNfYGT8y2cDALulsSa8h042rHmU4M0G10GuhC4QjZXl_O116GG2IgWW4819PH
IGI8998Zd@WdauydM2YwWm2pA0102GQTQcJW31dWOS264gZfVOSGerPYbiaCua2bMaa8f9HHIOIG
11BWdiaCqQ33DXWGhl483aDRFR00u1qijaj00W0Wsswc10818Rx@Gh9K3OZ49G9Nj5iHa4f4qsMs
2IILYQRJgE91WGh9a5kTYaW4QsItEIIGIPR3Q3991Hkj0CZa4YGh94G2SYao410018IIRI32e0Y4
0000A91G2@7QjWUaV8HYGox@n@4958X@t_Vca4bW@@szHIs6QDX060Qrsq20010CqQ20Q0iPRQB0
090bjDjbmZ@@59Pc98qowUiQOBBd8X3ER8K7F3Hy@K7E9@O92Vzoq1VCd092dWpaB7S0kCo98G14
00TEKHg3K6Ng3XMlOAHIUJG2vWIW200WEMoib03YPEH8G00pInvGI6q9Y4j548180WS2mOzx@ov0
1W000v4eGWwa6uq@zm1LD0jTf71fEKQ_F84gZZ30O0900WGhBK2IMI1140I2IYiabK117eaiaCyr
2bWaa898HfWW3819AbJm1W910ITGG02G09YCQ2SLqMGVFrGGiV9yJW2BJLulFDSdW4XwyVE1p4Qz
bXzlPE1646sdXM38u28Rsos00e4ePxRR10c40jjlD30U0GsMsXMJe2q69I6IkQ3PZ8919ej1f5a4
a4rs0ITIo8XMJ8hPx4f89qiXkTa42aos2o6I2GYSRDO699eXMJ8a0u49D920G0Ga4ya6401aYa00
88GHIRI8qw1TY@GY4cat@P@9IMG2@Fl@C9H91@VKxZa0CqQ2X00rg9j50W20escsE003054K0MWQ
Rqq2030y@00@@EONBJDI7dPMGGXVNbGMZ9coL2FbRPE1MI000OkC624xWc2A8Tm09G004e_45AWG
u402408u102G100Skz39N68120W0EtiWs8kJOXK7wR1622duXeOI8Wp6xgPI2000bWQGE14i1W1v
4y8P00WGTo4300m00c_wt1v7@VN1w4dWYhhSmL7Bawm@N5OJrEKY0008994B8uWa2a8qQARneWGh
LiWW48B81HoGoAyr6B8e1Xaba0910IT8pqGU4300GhK5qOG3HTGu8_L4Yu@XM@VY8NPIIIYaea4B
98f22G0GIIIm9EoI2I2a4b499H9IGIGXMtO11601G084n72j6GW0Gsilj10OHGpsst20OD0QRPR6
0G8Wijj2jcGDjDIa4cSr6c6HI0GGR32B89B8gjbawaa03jcG6Ys9IGJePB1x8908bjbqDaa44vsM
oCIIL2jcG00m9IGI4A8W0QKA00WWa8DD10G0WYaqcGer3wlzX4P99l@qzJa4i4_@RyPI222_@it7
9fGer4222gLRJB0041GjjzT0020msctg0099qw@70u@10MhJr4YMDYO2ECnN590005gp1@wmmel7
az3YRg_Og3QqI0dXMR802008G00BW3HMZ9I0208DQC7zbY6zaejW73Vbo0EViow9pb81W0000400
g0WW53CW800GE19A000ut72oX9X85G8S25xaaJG000x8zGS2AcJW4n9qOm9G6s@31S2QX2ISxmZX
w4PSD6aaqX2002A8WXRkM8K713VLZGh1KIGIYai45919154i0GoIIab09XlIOF28GQoIYWaeKuhC
4QTZG100wW3qyLGSBa2G0014H4b3myHQD4_Hn1LJ4Her@dYlBC9B93xFJaabaC910IT8pv9A8qw1
h1W010jj54eW0WiDRRdjXMN8f19NjXjHa4W4qsos2I2GgWW24W4R7QzWOxaa89qsYiTIYcaQhQs6
f228Go699mI0WGhBiW028089HII1040a4f99W22A8qQ2zs@GYaaatVu@PD04uP@DH2I2l@j@Z33C
8qw0h1m020ORcsE0A8G1_s2030OOLDGaaL7PDAt00VsDOc3Fenj3Q6gpXv4emxhBaJGVDJG0480W
04pycB3_wmI800Gzm1IerxbJG4PqAP90FaSfXn9imI7BaJGa9mHQ6632m02eW078000iT2YvhG02
00W2mROY5E3dupArVe6959000Ct12n9GuLfMk3c71E5P66PsxW1FYyuzG84g3a3YaHIvPcVSZXM3
f8B99IYII4aWa89P9HJIKYaa44P99BIGI2XlU8DH9f22KW919RE15aw0dd39Q4H@7uKpXM@VQqf4
SY154e02IWaGhpCua2ITGnREa8qQ01W0Pp_o600X0DRxRB0Wd0ejblP00K0osMEqQ2rIs8H2KoLR
QR49581jD8jWa8aesM2gJIo8qw2vs99OIej1Oxa418rMrWDIa0aSrUo6HIIJ8qQ29m99OJ4000Wa
4195WGh908108GWIIsam@XMBe@w7Ia1ay_pxFHIMIu@3@d99O9u@pOVa4WXMJ8e0WMj9j00a00rs
_s10020RxQh20W4Gjj9XMZuPTk4dBX30y@00WO000O5SKBqpWKmJ8995VANYS2wBnX2oCxI01G0T
XeQaa6q0G11r5OE14aSf4HcYG_nScSvXrcSm706ajTYTSPGEeI4Qz@r0q18W800801D1em@AIC0W
UW100ccWWx2E8xa8@z9Y97M8SY0JTmW6k8uK73O000iSLbTTyGaaSE0GZHTyGR1@rOY4hWlGf21A
020OahAhg92200WP@WPM174FFY01022rno22k020GIer3IoIIkW03O8P9H6IKYa444989hkLv8yL
ra0aaKGW2ab4b81915_Q2XM@V@AaSV51pNHHeE@7Qzm0100UhvXS2yR932A88XcVM8DQ5f919HIY
IYibeKQq94QTZ4aia8R9A5S23HTSPXZ54QDW0DWiPRR30G5Wcjbj50G3W22A02GscljpsGh5K3QZ
4989Nj5iHaad4qs4s2IIGYQR9R1144QzWiajJaKaGpsnsHIGIARBPR89X9ojDkdtcWGh74G0SI11
4G0GIYsa200189III00a0e89C94QzW_uV8HIIoxly@4918X@@uVcacaW@lvzHI66QDX02WQrcs20
0A0KRJR70040ijDjA0m00rsq6QDc30y@00@FS9OhNLG3064uqaGW00UVhWSfkSkf5gTWo0ETDek1
1404aPseXMdPD0k6Qz@PDIJ3XC2100uZW6MYfYG4@lW0IITWnFAm8Wp@3Ktbk2M8E1EJTu@XCSg6
0tQRQXf0S8Gz83rHnU4k8qw1b7abKG01WaWaA8G1babaXlMu314KG04A9B91I20aaKY@0OG3B7iz
Q1R3HPK7DMGm2zrGHWJ@lrl654yGnVE4gZbfHtO1194sVYIJIIA8G1IJYIPRdGIIV6QDW01Wih1W
020jjgRB0040qMG01C0osyiTs6QzWs699GIkj9RZa4A9qcDj5IaYaQs6sEHIKI4QDX54O0rs992I
gjQORaA8W0SRaaG9102jsGJY0040aae8f0KGm1XMZe7@7IaWay_l@FHIKIu@F@lWW2a@79nHI08q
Q3jj00W00Rpqs10G0Wj228G0GjDJR1W10_V0W@70OVK000f3QwBNB4QTZnCpGer@@m9DPEKGYlAk
iM5XM@Ver@7Qz@Fu3Ph3T4Yu@9_YxD1R4dm@rMdJer@7Qz@r0q52000800030GW100WI5G4W0GGe
El6QzW54S0198f22S8yL2B8G1IJMIv4mGII@7HaphMdQeE@7QTlWaWa88P9LGG12GIJ2E9oyLU8q
w@3j_a22C080GR114O08RpssPRer5MG01os89h1m0acaQscsEHIGI4QzWikjJaqaGNGW2pRV0GI0
WGh5400SYab4X228Wca2G11B4QDX54eWWauVV@l9r0G0_@8f33A8qQ0h1W0QB0040msA8mXGh@V0
W@70u@aai4G0GG8Y@F0mw1rzPu4KMAP1vK@Ver@dru@XwyVQDd7dm@1S_Vg3@7gp@XM@Verfbgg4
Xl_PII@7gp@n9yVer@d8IHXM@VeryMGG6XMFO11P4QzW54KHD044QjX54KHerEMGm2XMlO11K4Qz
@30y@00@7uq@XM@Ver@7QTkvK@Ver@dru@XwyVaa@7dm@1EzVer@7gp@XwiSer@7Qz@nmyVS2@7Q
z@XM@Ver@7Qz@XM@Ver@7Qz@30y@00@7uq@fSzVer@7Qz@XM@V0d@dru@XwyVQD@7dm@1EzVg3@7
gp@XM@Ver@7Qz@3045800WyL_FKd@3j_@22OWWaeKer@7Qz@XM@Ver@7Qz@30y@00@F0m@1EzVer
@7Qz@XM@Ver@7mv@XM@VCp@7dm@n9yVWJ@7Qz@XwyVer@7Qz@99fU_A@7gp@XMpVm9h6Qz@XM@Ve
r@7Qz@XM@@00@F0m@1EzVAN@7Qz@XM@VEr@7mv@PD_VeE@79v@n9yVWJ@7Qz@XwyVer@7Qz@XM@V
eE@7dm@XM@Ver@7Qz@XM@Ver@7Qz@XM@@00@F0m@1EzVAN@7Qz@XM@VD0@7mv@PD_VeE@79v@n9y
VWJ@7Qz@XwyVer@7Qz@99zVeE@7dm@XM@Ver@7Qz@XM@Ver@7Qz@XM@@00@F0m@1EzVAN@7Qz@XM
@VD0@7mv@XM@VeE@79v@n9yVWJ@7Qz@XwyVer@7Qz@99zV_A@7gp@XM@Ver@7Qz@XM@Ver@7Qz@X
M@@00@F0m@1EzVer@7Qz@XM@Ver@7mv@XM@VeE@7dm@n9yVWJ@7Qz@XwyVer@7Qz@99zV_A@7gp@
XM@Ver@7Qz@XM@Ver@7Qz@30y@00@F0m@1EzVer@7Qz@XM@Ver@7mv@XM@Vaa@7dm@n9yVWJ@7Qz
@XwyVer@7Qz@XM@V_A@7gp@XM@Ver@7Qz@XM@Ver@7Qz@30y@00@7mv@1EzVer@7Qz@XM@Ver@7m
v@30yVaa@tMm@n9yVWJ@7Qz@XwyVer@7Qz@XM@V_A@7gp@XM@Ver@7Qz@XM@Ver@7Qz@30y@00@7
mv@1Ez@00@7Qz@XM@Ver@7Qz@30yVaa@7dm@n9yVWJ@7Qz@XwyVer@7Qz@XM@VeE@7gp@XM@Ver@
7Qz@XM@Ver@7Qz@30y@00@7mv@X8_@00@7Qz@XM@V0d@7Qz@30yVaa@7dm@n9yVWJ@7Qz@XwyVer
@7Qz@nmyVeE@7gp@XM@Ver@7Qz@XM@Ver@7Qz@30y@00@7uq@X8_@00@7Qz@XM@V0d@7Qz@30yVQ
D@7dm@n9yVg3@7Qz@XwyVer@7Qz@nmyVeE@7gp@XM@Ver@7Qz@XM@Ver@7Qz@30y@00@7uq@X8_@
00@7Qz@XM@V0d@7Qz@XwyVQD@7dm@n9yVg3@7Qz@XwyVer@7Qz@nmyVeE@7Qz@XM@Ver9BIIIY00
008999I1009FG02000Gaaa8300g1u00IIIa000g1WWxYLe60gA8G1C00054S00000800030e0400
0G00030yM11D0000eW02aaaaO0000GIIYS0000A99I20000ca89H08lP4QT_WQ0C0aaa4100WQ0a
gWW9g1W00000caaae0000KIIgP12Mds0GaaarDWLD0KKGm5X0O0GIIIK000L1G010000999o000w
3uWQD88HW4UFuWQ0kgW0A4000a6W10A99J3W04999r00Hd0HK3mL54um00@F0m@30yVWJ@7Qz@XM
@Ver@7Qz@1S_Ver@7gp@z8KQ55@F0W801002Sw@Gh@FKd@3j_@Gh@F9f@3rXtgPbB4n@3j__Q0C0
P99Oer@7QTs54eGerIMGm1XM@Ver@7Qz@30y@00@7uq@X8_Ver@7Qz@XM@V0d@7Qz@XwyVQD@7dm
@1EzVg3@7Qz@XM@Ver@7Qz@nmyVS2@7Qz@9YWNer@dwGE2000O000W1000a000W20WD0806000u0
00030030a61000E000m000060008100090m607yJ010100YXPF0600f1iHE1Mcw0d2000S000aJm
5P@Wc1000E400XJGHrr4aqHV0400ow0Z8pD8FS5UMdWstDe608Q5NXQ0ygW05KIIIY100u9W3Waa
aamk1I400kC@WQ0W8552g1W32200r0S08GIoq0EfW090999GIII2IIIYA999Y999Icaa8Paa89JI
Ya4IYaaGoQ0AGaaa4XaaazM80aaa4HIIoQ061DHIID07GG899DWJA8G2caa4aaaaqsssAJIIYyRR
hs999IsjjQxba89nsgjjbi6W2w4W0RRRB8999XjjjPaaa4nsscDaaaQ0aocaa4vsss228GsssM11
6OF008ek@3Vz@10_Fqw@3j_@WJ_Fua@3Ev@WJ_Fua@3Ev@WJ_Fua@3Ev@iI_Fua@3KlmWX@FGTi3
Ev@WJ_Fua@3Ev@WJ_6WW00020eS0802080002001040011g1eG;
INTEGER CHECKSUM=59816;
BOOLEAN UROW[128];
' bit 24-17 and 5-0 unsed
BOOLEAN UROW_MASK[128] = $FFFFFFFFFFFFFFFFFFFFFFFFFE01FFC0;
ENDDATA;

PROCEDURE DO_EXIT USES GV;
IRSCAN 8,$FF, COMPARE $04, $04, PASS;
IRSTOP IDLE;
IRSCAN 8,$81;
IRSTOP IRPAUSE;
If !PASS THEN IRSCAN 8,$07;
WAIT 20 USEC;
STATE RESET;
WAIT 200 USEC;
EXIT STATUS;
ENDPROC;

PROCEDURE PROC_INIT_AES USES GV;
    IRSCAN 8, $DD;
    DRSTOP IDLE;
    DRSCAN 128, $00000000000000000000000000000000;
    DRSTOP DRPAUSE;
    WAIT 3 CYCLES; 
    WAIT 48 USEC;

ENDPROC;

PROCEDURE PROC_VERIFY_IDCODE USES GV, PROC_INIT_AES, DO_EXIT;
' Shift IDCODE instruction
IRSCAN 8,$0F;
DRSCAN 32, $00000000, CAPTURE ID[],COMPARE $033261CF,$0FFFFFFF,PASS;
IF PASS ==1 THEN GOTO idok;
STATUS = 6;
PRINT "Failed to verify IDCODE";

EXIT STATUS;

idok:

    CALL PROC_INIT_AES;
    IRSCAN 8, $0A;
    DRSTOP IDLE;
    DRSCAN 128, $E137623A2EEEE91126015F3F73664945;
    DRSTOP DRPAUSE;
    WAIT 3 CYCLES;
    WAIT 256 USEC;

    DRSCAN 128, $00000000000000000000000000000000, CAPTURE Buff128[];

    IF Buff128[127] THEN GOTO M7VerDone;

    STATUS = -31;
    PRINT "Failed to verify AES Sec.";
    CALL DO_EXIT;

    M7VerDone:
    
    IF Buff128[126]==0 THEN GOTO lDetectM1;
    IF !1 THEN GOTO Mxidok;

    STATUS = -32;
    PRINT "Failed to verify IDCODE.";
    PRINT "M7 Device detected.";
    CALL DO_EXIT;

    lDetectM1:
    DRSTOP IDLE;
    DRSCAN 128, $ACDD6548CCB488863E291EB18FE95077;
    DRSTOP DRPAUSE;
    WAIT 3 CYCLES;
    WAIT 256 USEC;

    DRSCAN 128, $00000000000000000000000000000000, CAPTURE Buff128[];

    IF Buff128[127] THEN GOTO M1VerDone;

    STATUS = -31;
    PRINT "Failed to verify AES Sec.";
    CALL DO_EXIT;

    M1VerDone:

    IF Buff128[126]==0 THEN GOTO RegDev;
    IF !1 THEN GOTO Mxidok;

    STATUS = -32;
    PRINT "Failed to verify IDCODE.";
    PRINT "M1 Device detected.";
    CALL DO_EXIT;

    RegDev:

    IF 1 && 1 THEN GOTO Mxidok;

    STATUS = -32;
    PRINT "Failed to verify IDCODE.";
    IF !1 THEN PRINT "The Target is not an M7 Device.";
    IF !1 THEN PRINT "The Target is not an M1 Device.";
    CALL DO_EXIT;

    Mxidok:

IDRev =INT(ID[31..28]);
ENDPROC;

PROCEDURE DO_VERIFY_IDCODE USES PROC_VERIFY_IDCODE;
WAIT RESET, 5 CYCLE