ycn1sub.def

这是一个产品完整的代码

         DECLARE DCL LITERALLY 'DECLARE';
         DCL LIT LITERALLY 'LITERALLY';
         DCL STR LITERALLY 'STRUCTURE';
         DCL CST LIT 'DATA';
         DCL AUX LIT 'SLOW';
         DCL PUB LIT 'PUBLIC';
         DCL EXT LIT 'EXTERNAL';
         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 AMP LIT '16';

         DCL U$MXS LIT '0250000';
         DCL I$MXS LIT '025000';

         DCL ZP$MXS LIT '125';
         DCL P$MXS LIT '0250';

         DCL ZQ$MXS LIT '125';
         DCL Q$MXS LIT '0250';

         DCL P$SHIFT LIT '2*NP-5';
         DCL UI$SHIFT LIT 'NP-3';

         DCL UI$XZH   LIT '03';   /*  0.6/1000 OF U,I AT FULL SCALE */
         DCL ZPQ$XZH  LIT '03500'; /* 0.6/1000 OF TOTAL P,Q AT FULL SCALE */
         DCL PQ$XZH   LIT '3050';  /* 0.6/1000 OF SINGLE P,Q AT FULL SCALE */
         DCL GLYSH$XZH LIT '1';    /*  1/1000 OF GLYSH AT FULL SCALE */

         DCL LASTWAY BYTE EXT;
         DCL POS BYTE EXT;
         DCL (YC_TEST_FLAG,CHECK_FLAG) BYTE EXT;
         DCL YCML(12) BYTE EXT;
         DCL FML(2) BYTE EXT;
         DCL TRLEN(10) BYTE EXT;
         DCL RUN$CNT BYTE EXT;
         DCL WML(8) BYTE EXT;
         DCL (TXD_CNT,TXD_ENABLE) BYTE EXT;
         DCL TIME_IMAGE BYTE EXT;
         DCL (BHAD,TRXH,TRPT,RECONT,TRBZ) BYTE EXT;
         DCL YZWML(10) BYTE EXT;
         DCL YZWBUF(10) BYTE EXT;
         DCL TRBUF(256) BYTE EXT;
         DCL TC8253_A BYTE EXT;
         DCL OVTM_COUNT BYTE EXT;
         DCL SAMP$EN BYTE EXT;
         DCL DATA$VALID WORD EXT;
         DCL CNVT$END   WORD EXT;

         DCL XT(N4) WORD EXT;
         DCL WEST(256) STR (BCD(4) BYTE) EXT;
         DCL EAST(2) STR (BCD(4) BYTE) EXT;
         DCL BUF1(256) STR (BIN(4) BYTE) EXT;
         DCL DCV(4) STR (BIN(4) BYTE) EXT;

         DCL X(N1) STRUCTURE(TRUE LONGINT,IMAG LONGINT) EXT;
         DCL U1(N2) WORD EXT;
         DCL I1(N2) WORD EXT;
         DCL U2(N2) WORD EXT;
         DCL I2(N2) WORD EXT;
         DCL (UUXS,IIXS,PXS,QXS)(16) WORD EXT;
         DCL (GLYSH1,GLYSH2,GLYSH) INTEGER EXT;
         DCL (Uab,Ia,Ucb,Ic) WORD EXT;
         DCL (Pab,Qab,Pcb,Qcb) LONGINT EXT;
         DCL (P,Q) LONGINT EXT;
         DCL (S,S1,S2) DWORD EXT;
         DCL (Wp,Wq,WpF,WqF)(N2) DWORD EXT;
         DCL (WpDIV,WqDIV,WpFDIV,WqFDIV) (N2) BYTE EXT;
         DCL FREQ DWORD EXT;
         DCL FNUM WORD EXT;

        DCL  OLDGLYSH (N2) INTEGER EXT;
        DCL (OldPab,OldQab,OldPcb,OldQcb) (N2) LONGINT EXT;
        DCL (OldUab,OldIa,OldUcb, OldIc ) (N2) WORD    EXT;
        DCL (OldP,OldQ)(N2) LONGINT EXT;
        DCL (OldS)(N2)      DWORD EXT;

   DCL Uaa(N2) STR(TRUE INTEGER,IMAG INTEGER) EXT;
   DCL Iaa(N2) STR(TRUE INTEGER,IMAG INTEGER) EXT;
   DCL Ucc(N2) STR(TRUE INTEGER,IMAG INTEGER) EXT;
   DCL Icc(N2) STR(TRUE INTEGER,IMAG INTEGER) EXT;

         DCL W(31)  STR(TRUE LONGINT,IMAG LONGINT) EXT CST;