DB8J ...[??? SETUPCOR SECT CENT FGN 32 DOC  
 DBDB    #   
 DBY2    # X VERSION OF SETNCORE(%A X PARAMETER BUT %F N IN BOTH CASES   
 DCCL    #   
 DCX=    #MAC  SETUPCORE 
 DDBW          GETCORE  %A,1,%E,%F,%G
 DDWG          FINDCORE %B   
 DFB6          NAME     %B,%C,%D 
 DFTQ    #NOR