help: I can't parse!

[Janice Coventry, Walter and Eliza Hall Institute]

Hi,
Can anyone help me to write the parser instructions for the following format.
The current code only gives links to the first line, ie. to INS1_XENLA to 
INS_ACOCA.  I have tried a number of different ideas to no avail (and am at
the stage of pulling my hair out!!).
Thanks,
Janice
================================================================================
Janice Coventry
The Walter and Eliza Hall Institute of Medical Research,
P.O. Royal Melbourne Hospital, Victoria, 3050, Australia.
Phone: International +61-3-9345-2586   FAX: International +61-3-9347-0852
            National 03-9345-2586                    National 03-9347-0852
Email:  janice at wehi.edu.au
===============================================================================


DB REFERENCE: SWISS:(INS1_XENLA,INS2_MOUSE,INS2_RAT,INS2_XENLA,INS_ACOCA,#
&                    INS_AMICA,INS_ANAPL,INS_ANSAN,INS_BALBO,INS_BALPH,#
&                    INS_BOVIN,INS_CAMDR,INS_CANFA,INS_CAPHI,INS_CERAE,#
&                    INS_CHICK,INS_CRILO,INS_CROAT,INS_DIDMA,INS_ELEMA,#
&                    INS_FELCA,INS_GEOCY,INS_HORSE,INS_HUMAN,INS_HYSCR,#
&                    INS_KATPE,INS_LEPSP,INS_MACFA,INS_PANTR,INS_PETMA,INS_PIG,#
&                    INS_PSESC,INS_RABIT,INS_SHEEP,INS_SQUAC,INS_TORMA,#
&                    INS_ZAODH)#
&             PIR1:(IPHU,IPHO,INRB,INWHP,INWHF,INWH1S,IPPG,INEL,IPBO,INSH,INGT,#
&                   INCMA,IPDG,INCT,IPRT2,INHY,INMS2,INPQ,IPCH,INTK,INOS,#
&                   A61129,INGS,INRS,IPXL1,IPXL2,INGXA,A61125,INDF,IPRYM,INLMS)#
&             PIR2:(S09278,JQ0178,A40909,JQ0359,A60414,JQ0362,B42179,A42179)#
&             PIR3:(S15426,JQ0360,JQ0363,S22056,S22058,S17490,S44470)#


    #field /gblid=%MHCPEP_DBREF_FIELD
	   /itype=link /ftype=@DF_LINK /idtype=@SRSxLINKID
           /begstr="DB REFERENCE: "
	   /nextstr="&             " 
	   /find=dbref

.......

} 

#readlink /id=%MHCPEP_SWISSPROT_REF /link=@MHCPEP_SWISSPROT_LINK
#readlink /id=%MHCPEP_PIR_REF /link=@MHCPEP_PIR_LINK

#link /id=%MHCPEP_SWISSPROT_LINK
     /lib1=@MHCPEP_DB /lib2=@SWISSPROT_DB
     /field1=@MHCPEP_ID_FIELD /field2=@SWISSPROT_ID_FIELD
    /idtype1=@SRSxSEQID /idtype2=@SRSxSEQID

#link /id=%MHCPEP_PIR_LINK
     /lib1=@MHCPEP_DB /lib2=@PIR_DB
     /field1=@MHCPEP_ID_FIELD /field2=@PIR_ID_FIELD
    /idtype1=@SRSxSEQID /idtype2=@SRSxSEQID


#PARSER /id=%MHCPEP_PARSER /newline="\n" /ignore=" \r" 
        /convert=upper /#BNF = 
    dbref = swissref | pirref;
    swissref = 'SWISS:(' mpswlinks;
    pirref  = 'PIR1:(' mppirlinks;
    mpswlink   = ~,#)~ <new not>;
    mpswlinks   = [mpswlink {',' [mpswlink]}] [',#' | ')#'] <wrt c=@MHCPEP_SWISSPROT_REF>;
    mppirlinks   = [mpswlink {',' [mpswlink]}][',#' |  ')#'] <wrt c=@MHCPEP_PIR_REF>;
  
--