学习用GAL写底层

请问大鱼大虾们是否用过GAL写程序，入P22V10在里面写延时的

     module  UTFBU2
title   `paolu designer   DISPLAY  28 SEPTEMBER. 2006'
          UTFBU2    device  'P22V10';
          A19,A18,A17,A16,A15,A14,A13,A12                  pin 8,7,6,5,4,3,2,1;
          PRGEN,PSEN,RD,WR                                        pin 9,10,11,13;
          FLASH_CS,FLASH_RD,FLASH_WR                  pin 14,15,16;
          CS_RAM,CS_EEP,CS_CAN,CS552,CS_259      pin 17,18,19,20,21;
          CS_573A,CS_573B                                            Pin 22,23;
          H,L,X,C = 1,0,.X.,.C.;
          Addr=[A19,A18,A17,A16, A15,A14,A13,A12, X,X,X,X, X,X,X,X, X,X,X,X];

equations

          ！CS_RAM  = (！WR#！RD)&((Addr>=^h00000)&(Addr<=^h7FFFF))&PRGEN;
          ！CS_EEP  = (！WR#！RD)&((Addr>=^h80000)&(Addr<=^h8FFFF))&PRGEN;
          ！CS_CAN  = (！WR#！RD)&((Addr>=^h90000)&(Addr<=^h9FFFF))&PRGEN;
          ！CS552   = (！WR#！RD)&((Addr>=^hA0000)&(Addr<=^hAFFFF))&PRGEN;
          ！CS_259  = (！WR)&((Addr>=^hB0000)&(Addr<=^hBFFFF))&PRGEN;
          ！CS_573A = (！RD)&((Addr>=^hC0000)&(Addr<=^hCFFFF))&PRGEN;
          ！CS_573B = (！RD)&((Addr>=^hD0000)&(Addr<=^hDFFFF))&PRGEN;
         
       

          ！FLASH_CS = (！PSEN#！PRGEN)&((Addr>=^h00000)&(Addr<=^hAFFFF));
          ！FLASH_RD = ！PSEN#！PRGEN&！RD;
          ！FLASH_WR = ！PRGEN&！WR;

end UTFBU2