ycn1mn.def

这是一个产品完整的代码

        DECLARE DCL LITERALLY 'DECLARE';
        DECLARE LIT LITERALLY 'LITERALLY';
        DCL STR LIT 'STRUCTURE';
        DCL CST LIT 'DATA';
        DCL AUX LIT 'SLOW';
        DCL PUB LIT 'PUBLIC';
        DCL EXT LIT 'EXTERNAL';
        DCL PRO LIT 'PROCEDURE';
        DCL N   LIT '32';
        DCL NP  LIT '5';
        DCL N1  LIT '34';   /*N1=N+2*/
        DCL N2  LIT '16';   /*N2=N/2*/
        DCL N3  LIT '9';    /*N3=N/4+1*/
        DCL N4  LIT '128';  /*N4=N*4*/

        DCL UUXSZH LIT '12062';  /*1000/(100/(2.94/10*4096))=12042*/
        DCL IIXSZH LIT '2414' ;   /*10/(5/(2.94/10/4096))=2408*/
        DCL PXSZH LIT '29117';     /*UUXS*IIXS/1000=29003 */
        DCL QXSZH LIT '33621';     /*UUXS*IIXS/1000=29003 */

        DCL AD5740 BYTE PUB AT(00400H);
        DCL AD5741 BYTE PUB AT(00500H);
        DCL TC8253_A BYTE PUB AT(00200H);
        DCL TC8253_B BYTE PUB AT(00201H);
        DCL TC8253_C BYTE PUB AT(00202H);
        DCL TC8253_COM BYTE PUB AT(00203H);

        DCL (LASTWAY,WAY,POS) BYTE PUB AT(0A000H);
        DCL (YC_TEST_FLAG,CHECK_FLAG) BYTE PUB AT(0A010H);
        DCL (SAMP$EN,SAMP$END,SAMP$NO) BYTE PUB AT(0A020H);
        DCL P1_IMAGE BYTE PUB AT(0A030H);
        DCL T1END WORD PUB AT(0A040H);
        DCL (T1LOW,T1HIH) BYTE PUB AT(.T1END);
        DCL IOS1_IMAGE BYTE PUB AT(0A050H);
        DCL ITEM BYTE PUB AT(0A060H);
        DCL (M0,M1) BYTE PUB AT(0A070H);
        DCL RST$CNT BYTE PUB AT (0A078H);
        DCL OVTM_COUNT BYTE PUB AT(0A080H);
        DCL (DATA$VALID,CNVT$END) WORD PUB AT(0A090H);

        DCL TRBUF(256) BYTE PUB AT(0A0A0H);
        DCL REBUF(20) BYTE PUB AT(0A1A0H);
        DCL YCML(12) BYTE PUB AT(0A1C0H);
        DCL FML(2) BYTE PUB AT(0A1D0H);
        DCL TRLEN(10) BYTE PUB  AT(0A1E0H);
        DCL RUN$CNT BYTE PUB  AT(0A1F0H);
        DCL WML(8) BYTE PUB  AT(0A200H);
        DCL YZWML(10) BYTE PUB  AT(0A210H);
        DCL YZWBUF(10) BYTE PUB  AT(0A220H);
        DCL (ACLINES,DCLINES) BYTE PUB  AT(0A230H);
        DCL (TXD_CNT,TXD_ENABLE) BYTE PUB  AT(0A240H);
        DCL (BHAD,TRXH,TRPT,RECONT,TRBZ) BYTE PUB  AT(0A250H);

        DCL XT(N4) WORD PUB  AT(0A300H);
        DCL WEST(256) STR (BCD(4) BYTE) PUB  AT(0A400H);
        DCL BUF1(256) STR (BIN(4) BYTE) PUB  AT(0A800H);
        DCL DCV(4) STR (BIN(4) BYTE) PUB  AT(0AC00H);
        DCL EAST(2) STR (BCD(4) BYTE) PUB  AT(0AC80H);

        DCL X(N1) STRUCTURE(TRUE LONGINT,IMAG LONGINT) PUB  AT(0B000H);
        DCL U1(N2) WORD PUB  AT(0AD00H);
        DCL I1(N2) WORD PUB  AT(0AD40H);
        DCL U2(N2) WORD PUB  AT(0AD80H);
        DCL I2(N2) WORD PUB  AT(0ADC0H);
        DCL (UUXS,IIXS,PXS,QXS)(16) WORD PUB  AT(0AE00H);

        DCL (GLYSH1,GLYSH2,GLYSH) INTEGER PUB  AT(0AE80H);
        DCL (Uab,Ia,Ucb,Ic) WORD PUB  AT(0AE90H);

        DCL (Pab,Qab,Pcb,Qcb) LONGINT PUB  AT(0AEA0H);

        DCL OLDGLYSH (N2) INTEGER PUB  AT(0B400H);
        DCL (OldPab,OldQab,OldPcb,OldQcb) (N2) LONGINT PUB AT(0B500H);
        DCL (OldUab,OldIa,OldUcb, OldIc) (N2) WORD    PUB AT(0B700H);
        DCL (OldP,OldQ)(N2) LONGINT PUB AT (0B800H);
        DCL OldS(N2)      DWORD PUB  AT( 0B900H);

        DCL (P,Q) LONGINT PUB  AT(0AEB0H);
        DCL (S,S1,S2) DWORD PUB  AT(0AEC0H);

        DCL (Wp,Wq,WpF,WqF)(N2) DWORD PUB  AT(0FB00H);
        DCL (WpDIV,WqDIV,WpFDIV,WqFDIV) (N2) BYTE PUB  AT(0FA00H);

        DCL FREQ DWORD PUB  AT(0AEE0H);
        DCL FNUM WORD PUB  AT(0AEF0H);

   DCL Uaa(N2) STR(TRUE INTEGER,IMAG INTEGER) PUB AT (0FC00H);
   DCL Iaa(N2) STR(TRUE INTEGER,IMAG INTEGER) PUB AT (0FD00H);
   DCL Ucc(N2) STR(TRUE INTEGER,IMAG INTEGER) PUB AT (0FE00H);
   DCL Icc(N2) STR(TRUE INTEGER,IMAG INTEGER) PUB AT (0FF00H);

        DCL CWD(4) BYTE PUB AT(2018H) CST(0DDH,020H,27H,0FEH);

        DCL W(31)  STR(TRUE LONGINT,IMAG LONGINT) PUB CST
                    (65536,0,
                     65536,0,
                     0,-65536,
                     65536,0,
                     46340,-46340,
                     0,-65536,
                     -46340,-46340,
                     65536,0,
                     60547,-25079,
                     46340,-46340,
                     25079,-60547,
                     0,-65535,
                     -25079,-60547,
                     -46340,-46340,
                     -60547,-25079,
                     65536,0,
                     64276,-12785,
                     60547,-25079,
                     54491,-36409,
                     46340,-46340,
                     36409,-54491,
                     25079,-60547,
                     12785,-64276,
                     0,-65535,
                     -12785,-64276,
                     -25079,-60547,
                     -36409,-54491,
                     -46340,-46340,
                     -54491,-36409,
                     -60547,-25079,
                     -64276,-12785
                    );


RST_DOG:PROCEDURE EXT;
END RST_DOG;

FS:     PROCEDURE EXT;
END FS;

LED$RUN:PROCEDURE EXT;
END LED$RUN;

START$RUN:PROCEDURE EXT;
END START$RUN;

RS485R_CTL:PROCEDURE  EXT;
END RS485R_CTL;

RS485T_CTL:PROCEDURE EXT ;
END RS485T_CTL;

CHECK_SUB:PROCEDURE EXT;
END CHECK_SUB;

DC$CAL:PROCEDURE EXT;
END DC$CAL;

UIPQ:PROCEDURE EXT;
END UIPQ;

BDBH:PROCEDURE EXT;
END BDBH;

WPQ:PROCEDURE EXT;
END WPQ;

FREQUENCY:PROCEDURE EXT;
END FREQUENCY;

/*
        DCL W(15)  STR(TRUE LONGINT,IMAG LONGINT) PUB CST
                    (65536,0,
                     65536,0,
                     0,-65536,
                     65536,0,
                     46340,-46340,
                     0,-65536,
                     -46340,-46340,
                     65536,0,
                     60547,-25079,
                     46340,-46340,
                     25079,-60547,
                     0,-65535,
                     -25079,-60547,
                     -46340,-46340,
                     -60547,-25079
                    );
*/

/*      DCL W(31)  STR(TRUE LONGINT,IMAG LONGINT) PUB CST(
                  32767,0,
                  32767,0,
                  0,-32768,
                  32767,0,
                  23170,-23170,
                  0,-32768,
                  -23170,-23170,
                  32767,0,
                  30274,-12540,
                  23170,-23170,
                  12540,-30274,
                  0,-32767,
                  -12540,-30274,
                  -23170,-23170,
                  -30274,-12540,
                  32767,0,
                  32138,-6393,
                  30274,-12540,
                  27246,-18205,
                  23170,-23170,
                  18205,-27246,
                  12540,-30274,
                  6393,-32138,
                  0,-32767,
                  -6393,-32138,
                  -12540,-30274,
                  -18205,-27246,
                  -23170,-23170,
                  -27246,-18205,
                  -30274,-12540,
                  -32138,-6393
                  );
*/

/*      DCL W(31)  STR(TRUE LONGINT,IMAG LONGINT) PUB CST
                    (65536,0,
                     65536,0,
                     0,-65536,
                     65536,0,
                     46341,-46341,
                     0,-65536,
                     -46341,-46341,
                     65536,0,
                     60547,-25080,
                     46341,-46341,
                     25080,-60547,
                     0,-65536,
                     -25080,-60547,
                     -46341,-46341,
                     -60547,-25080,
                     65536,0,
                     64277,-12785,
                     60547,-25080,
                     54491,-36410,
                     46341,-46341,
                     36410,-54491,
                     25080,-60547,
                     12785,-64277,
                     0,-65536,
                     -12785,-64277,
                     -25080,-60547,
                     -36410,-54491,
                     -46341,-46341,
                     -54491,-36410,
                     -60547,-25080,
                     -64277,-12785
                    );

*/