INTEGER*4 ICPPRT_MAXNAMES,	ICPPRT_MINNAMES
      PARAMETER(ICPPRT_MAXNAMES=250,
     +		ICPPRT_MINNAMES=230)
      BYTE	BCVPRT_PROT_NUM(0:1,ICPPRT_MAXNAMES)
      CHARACTER*2 CCVPRT_PROT_NUM(ICPPRT_MAXNAMES)
      CHARACTER*28 CCVPRT_PROTNAM(ICPPRT_MAXNAMES)
      INTEGER*2 NCVPRT_PROTNAMLEN(ICPPRT_MAXNAMES),
     +		NCVPRT_PROT_NUM(ICPPRT_MAXNAMES)
      INTEGER*4 ICVPRT_NUMNAMES/ICPPRT_MINNAMES/, ICVPRT_IDX
      LOGICAL*1 LCVPRT_REF(ICPPRT_MAXNAMES),
     +		LCVPRT_PROT_IEEE(ICPPRT_MAXNAMES)
      COMMON /PROTOCOL_NAMES/ ICVPRT_NUMNAMES, NCVPRT_PROTNAMLEN,
     +		NCVPRT_PROT_NUM, LCVPRT_REF, LCVPRT_PROT_IEEE,
     +		CCVPRT_PROTNAM
      EQUIVALENCE (NCVPRT_PROT_NUM, CCVPRT_PROT_NUM, BCVPRT_PROT_NUM)
      DATA (NCVPRT_PROT_NUM(ICVPRT_IDX), NCVPRT_PROTNAMLEN(ICVPRT_IDX),
     +	   CCVPRT_PROTNAM(ICVPRT_IDX), ICVPRT_IDX=1,150)/
     +	'6E80'X,17,'Landmark Graphics',	'6F80'X,17,'Landmark Graphics',
     +	'7080'X,17,'Landmark Graphics',	'7180'X,17,'Landmark Graphics',
     +	'7280'X,17,'Landmark Graphics',	'7380'X,17,'Landmark Graphics',
     +	'7480'X,17,'Landmark Graphics',	'7580'X,17,'Landmark Graphics',
     +	'7680'X,17,'Landmark Graphics',	'7780'X,17,'Landmark Graphics',
     +	'7A80'X, 5,'Matra',		'7B80'X,21,'Danak Data Elektronik',
     +	'A480'X,19,'Siemens Gammasonics',
     +	'A580'X,19,'Siemens Gammasonics',
     +	'A680'X,19,'Siemens Gammasonics',
     +	'A780'X,19,'Siemens Gammasonics',
     +	'A880'X,19,'Siemens Gammasonics',
     +	'A980'X,19,'Siemens Gammasonics',
     +	'AA80'X,19,'Siemens Gammasonics',
     +	'AB80'X,19,'Siemens Gammasonics',
     +	'AC80'X,19,'Siemens Gammasonics',
     +	'AD80'X,19,'Siemens Gammasonics',
     +	'AE80'X,19,'Siemens Gammasonics',
     +	'AF80'X,19,'Siemens Gammasonics',
     +	'B080'X,19,'Siemens Gammasonics',
     +	'B180'X,19,'Siemens Gammasonics',
     +	'B280'X,19,'Siemens Gammasonics',
     +	'B380'X,19,'Siemens Gammasonics',
     +	'C080'X, 8,'DCA: ???',		'C280'X, 8,'DCA: ???',
     +	'C380'X, 8,'DCA: ???',		'C680'X,14,'Pacer Software',
     +	'C780'X, 8,'Applitek',		'C880'X,10,'Intergraph',
     +	'C980'X,10,'Intergraph',	'CA80'X,10,'Intergraph',
     +	'CB80'X,10,'Intergraph',	'CC80'X,10,'Intergraph',
     +	'CD80'X, 6,'Harris',		'CE80'X, 6,'Harris',
     +	'CF80'X,18,'Taylor Instruments','D080'X,18,'Taylor Instruments',
     +	'D180'X,18,'Taylor Instruments','D280'X,18,'Taylor Instruments',
     +	'D380'X,15,'Rosemount Corp.',	'D480'X,15,'Rosemount Corp.',
     +	'E080'X,13,'Allen Bradley',	'E180'X,13,'Allen Bradley',
     +	'E280'X,13,'Allen Bradley',	'E380'X,13,'Allen Bradley',
     +	'E480'X,10,'Datability',	'E580'X,10,'Datability',
     +	'E680'X,10,'Datability',	'E780'X,10,'Datability',
     +	'E880'X,10,'Datability',	'E980'X,10,'Datability',
     +	'EA80'X,10,'Datability',	'EB80'X,10,'Datability',
     +	'EC80'X,10,'Datability',	'ED80'X,10,'Datability',
     +	'EE80'X,10,'Datability',	'EF80'X,10,'Datability',
     +	'FF80'X,24,'Wellfleet Communications',
     +	'0081'X,24,'Wellfleet Communications',
     +	'0181'X,24,'Wellfleet Communications',
     +	'0281'X,24,'Wellfleet Communications',
     +	'0381'X,24,'Wellfleet Communications',
     +	'0002'X,10,'XEROX: PUP',	'0102'X,22,'XEROX: PUP Addr. Trans',
     +	'000A'X,16,'XEROX: 802.3 PUP',	'0370'X,13,'Interlan: ???',
     +	'010A'X,25,'XEROX: 802.3 PUP AdrTrans','0004'X, 7,'Nixford',
     +	'0108'X,18,'Internet IP (X.75)','0208'X,17,'Internet IP (NBS)',
     +	'0308'X,18,'Internet IP (ECMA)','0408'X, 8,'Chaosnet',
     +	'0508'X,12,'X.25 Level 3',	'0708'X,17,'XNS Compatibility',
     +	'0680'X, 6,'Nestar',		'1080'X, 7,'Excelan',
     +	'5B80'X,16,'Stanford V Exper',	'5C80'X,18,'Stanford V Product',
     +	'0880'X, 4,'AT&T',		'AD0B'X,14,'Banyan Systems',
     +	'4680'X, 4,'AT&T',		'4780'X, 4,'AT&T',
     +	'6580'X, 7,'U.Mass.',		'6680'X, 7,'U.Mass.',
     +	'6780'X,21,'Veeco Integrated Auto','6880'X,16,'General Dynamics',
     +	'6980'X, 4,'AT&T',		'6A80'X, 8,'Autophon',
     +	'6C80'X, 9,'ComDesign',		'6D80'X,12,'Compugraphic',
     +	'4980'X,11,'Expert Data',	'5D80'X,18,'Evans & Sutherland',
     +	'4480'X,23,'Planning Research Corp.',
     +	'DD80'X,17,'Varian Associates',
     +	'6080'X,15,'Little Machines','6280'X,22,'Counterpoint Computers',
     +	'8180'X,22,'Counterpoint Computers','9C80'X,10,'Datability',
     +	'8280'X,22,'Counterpoint Computers','9D80'X,10,'Datability',
     +	'8380'X,22,'Counterpoint Computers','9E80'X,10,'Datability',
     +	'9F80'X,22,'Spider Sys.LAN Monitor','A380'X, 7,'Nixdorf',
     +	'C180'X,18,'DCA: Data Exchange','DE80'X, 9,'I.S. TRFS',
     +	'DF80'X,20,'Integrated Solutions',
     +	'F280'X,18,'Retix: Router Mgmt',
     +	'7D80'X, 8,'Vitalink',		'7E80'X, 8,'Vitalink',
     +	'7F80'X, 8,'Vitalink',		'00FF'X,19,'BBN VITAL-LANBridge',
     +	'0190'X,16,'Bridge: XNS mgmt',
     +	'0290'X,18,'Bridge: TCP/IP sys','0390'X,19,'Bridge: loop detect',
     +	'1380'X,14,'SilGraph: diag',	'1480'X,19,'SilGraph: net games',
     +	'1580'X,18,'SilGraph: reserved',
     +	'1680'X,22,'SilGraph: XNS NameSvc',
     +	'1C08'X,18,'Symbolics: private','0781'X,18,'Symbolics: private',
     +	'0881'X,18,'Symbolics: private','0981'X,18,'Symbolics: private',
     +	'8908'X,11,'Xyplex: ???',	'8A08'X,11,'Xyplex: ???',
     +	'1060'X, 9,'3Com: ???',		'1160'X, 9,'3Com: ???',
     +	'1260'X, 9,'3Com: ???',		'1360'X, 9,'3Com: ???',
     +	'1460'X, 9,'3Com: ???',		'2E80'X,13,'Tymeshare: ???',
     +	'2F80'X,13,'Tigan Inc.: ???',	'3680'X,18,'Aeonic Systems: ???',
     +	'2070'X, 8,'LRT: ???',		'2170'X, 8,'LRT: ???',
     +	'2270'X, 8,'LRT: ???',		'2370'X, 8,'LRT: ???',
     +	'2470'X, 8,'LRT: ???',		'2570'X, 8,'LRT: ???',
     +	'2670'X, 8,'LRT: ???',		'2770'X, 8,'LRT: ???',
     +	'2870'X, 8,'LRT: ???',		'2970'X, 8,'LRT: ???',
     +	'3781'X,23,'Novell: old NetWare IPX',
     +	'0060'X,17,'DEC: Experimental'/
      DATA (NCVPRT_PROT_NUM(ICVPRT_IDX), NCVPRT_PROTNAMLEN(ICVPRT_IDX),
     +	   CCVPRT_PROTNAM(ICVPRT_IDX), ICVPRT_IDX=151,208)/
     +	'3470'X, 9,'Cabletron',
     +	'0860'X,10,'DEC: AMBER',	'4C81'X, 4,'SNMP',
     +	'F080'X,10,'Datability',	'3081'X,21,'Waterloo Microsystems',
     +	'3181'X,21,'VG Laboratory Systems','3881'X,11,'Novell: ???',
     +	'3981'X, 8,'KTI: ???',		'3A81'X, 8,'KTI: ???',
     +	'3B81'X, 8,'KTI: ???',		'3C81'X, 8,'KTI: ???',
     +	'3D81'X, 8,'KTI: ???',		'AFAF'X,14,'Logicraft: ???',
     +	'0960'X,10,'DEC: MUMPS',	'3070'X,12,'Proteon: ???',
     +	'3980'X,12,'DEC: DSM/DTP',	'3A80'X,21,'DEC: Argonaut console',
     +	'3B80'X,18,'DEC: VAXeln (hah!)','4280'X,17,'DEC: -unassigned-',
     +	'F780'X,11,'Apollo: ???',	'4242'X,15,'PCS Basic Block',
     +	'F480'X,20,'Kinetics: Appletalk?',
     +	'F580'X,20,'Kinetics: Appletalk?',
     +	'0010'X,17,'Berkeley: trailer',	'0110'X,16,'IP trailer 1 blk',
     +	'0210'X,17,'IP trailer 2 blks',	'0310'X,17,'IP trailer 3 blks',
     +	'0410'X,17,'IP trailer 4 blks',	'0510'X,17,'IP trailer 5 blks',
     +	'0610'X,17,'IP trailer 6 blks',	'0710'X,17,'IP trailer 7 blks',
     +	'0810'X,17,'IP trailer 8 blks',	'0910'X,17,'IP trailer 9 blks',
     +	'0A10'X,18,'IP trailer 10 blks','0B10'X,18,'IP trailer 11 blks',
     +	'0C10'X,18,'IP trailer 12 blks','0D10'X,18,'IP trailer 13 blks',
     +	'0E10'X,18,'IP trailer 14 blks','0F10'X,18,'IP trailer 15 blks',
     +	'0016'X,13,'VALID systems',	'0852'X,11,'BBN: SIMnet',
     +	'0560'X,16,'DEC: Diagnostics',
     +	'0660'X,20,'DEC: Customer/VAXELN','0380'X,10,'Cronus VLN',
     +	'0480'X,13,'Cronus Direct',	'0580'X, 8,'HP Probe',
     +	'3D80'X,15,'DEC: Encryption',	'3E80'X,21,'DEC: DNA Time Service',
     +	'4080'X,21,'DEC: NetBios emulator',
     +	'3F80'X,24,'DEC: LAN Traffic Monitor','0090'X, 8,'Loopback',
     +	'7C80'X,21,'U.M.:Merit Internodal',
     +	'0170'X,23,'U-B: Network Management',
     +	'0670'X,23,'U-B: Network Management',
     +	'D580'X,16,'IBM: SNA Service',
     +	'0070'X,13,'U-B: NIU Boot',	'0270'X,19,'U-B: NIU Diagnostic',
     +	'0009'X,14,'U-B: Net Debug'
     +		/
      DATA (NCVPRT_PROT_NUM(ICVPRT_IDX), LCVPRT_PROT_IEEE(ICVPRT_IDX), 
     +	    NCVPRT_PROTNAMLEN(ICVPRT_IDX),
     +	    CCVPRT_PROTNAM(ICVPRT_IDX), ICVPRT_IDX=209,ICPPRT_MINNAMES)/
     +	'0160'X, .FALSE., 18, 'DEC: MOP Dump/Load',
     +	'0160'X, .TRUE. , 18, 'DEC: MOP Dump/Load',
     +	'4180'X, .FALSE., 21, 'DEC: LA Sys Transport',
     +	'3C80'X, .FALSE., 21, 'DEC: DNA Name Service',
     +	'1980'X, .FALSE., 23, 'Apollo: remote file sys',
     +	'8808'X, .FALSE., 20, 'Xyplex: terminal net',
     +	'0260'X, .FALSE., 23, 'DEC: MOP Remote Console',
     +	'F380'X, .FALSE., 13, 'ARP AppleTalk',
     +	'3580'X, .FALSE., 11, 'Reverse ARP',
     +	'0260'X, .TRUE. , 23, 'DEC: MOP Remote Console',
     +	'8080'X, .FALSE., 22, 'Vitalink: TransLAN III',
     +	'0570'X, .FALSE., 11, 'U-B: Bridge',
     +	'3880'X, .FALSE., 15, 'DEC: LAN Bridge',
     +	'0608'X, .FALSE., 12, 'Internet ARP',
     +	'9B80'X, .FALSE.,  9, 'AppleTalk',
     +	'0460'X, .FALSE.,  8, 'DEC: LAT',
     +	'9B80'X, .TRUE. ,  9, 'AppleTalk',
     +	'0008'X, .FALSE., 17, 'Internet IP (DoD)',
     +	'0360'X, .FALSE., 19, 'DEC: DECnet Phase 4',
     +	'F380'X, .TRUE. , 13, 'ARP AppleTalk',
     +	'0760'X, .FALSE.,  9, 'DEC: LAVC',
     +	'0006'X, .FALSE., 13, 'XEROX: NS IDP'
     +		/