学习用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))&ampRGEN;
!CS_EEP = (!WR#!RD)&((Addr>=^h80000)&(Addr<=^h8FFFF))&ampRGEN;
!CS_CAN = (!WR#!RD)&((Addr>=^h90000)&(Addr<=^h9FFFF))&ampRGEN;
!CS552 = (!WR#!RD)&((Addr>=^hA0000)&(Addr<=^hAFFFF))&ampRGEN;
!CS_259 = (!WR)&((Addr>=^hB0000)&(Addr<=^hBFFFF))&ampRGEN;
!CS_573A = (!RD)&((Addr>=^hC0000)&(Addr<=^hCFFFF))&ampRGEN;
!CS_573B = (!RD)&((Addr>=^hD0000)&(Addr<=^hDFFFF))&ampRGEN;


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