'*******************************************************************
' LATNET.BAS Version 8/22/97
' OrCAD Express Version 7.10
'
' This macro will let you assign Lattice net properties to nets
' in the Express schematic editor.  Select the wire/GROUP and then
' run the macro to add the properties for Lattice pDS+.
'
'*******************************************************************
SUB LatticeNetProps
	'MACROMENU Set Lattice Net Properties
	'MACROKEY Ctrl+F2
	'MACRODESCRIPTION Set Net Properties for Lattice pDS+

Begin Dialog LatticeNetPropsDlg 16, 10, 275, 172, "Set Lattice Net Properties"

	Text 8, 8, 56, 8, "CLK  "
	TextBox 70, 8, 144, 12, .CLK

	Text 8, 24, 56, 8, "CRIT  "
	TextBox 70, 24, 144, 12, .CRIT

	Text 8, 40, 56, 8, "&GROUP  "
	TextBox 70, 40, 144, 12, .GROUP

	Text 8, 56, 56, 8, "&LOCK "
	TextBox 70, 56, 144, 12, .LOCK

	Text 8, 72, 56, 8, "&PRESERVE  "
	TextBox 70, 72, 144, 12, .PRESERVE

	Text 8, 88, 56, 8, "PULLUP  "
	TextBox 70, 88, 144, 12, .PULLUP

	Text 8, 104, 56, 8, "&SAP/EAP  "
	TextBox 70, 104, 144, 12, .SAP_EAP

	Text 8, 120, 56, 8, "SCP/ECP "
	TextBox 70, 120, 144, 12, .SCP_ECP

	Text 8, 136, 56, 8, "SLOWSLEW  "
	TextBox 70, 136, 144, 12, .SLOWSLEW

	Text 8, 152, 56, 8, "SNP/ENP "
	TextBox 70, 152, 144, 12, .SNP_ENP

	OKButton 224, 8, 40, 14
	CancelButton 224, 28, 40, 14

End Dialog

'************************************
' Show the dialog
'************************************
Dim LatticeNetDlg As LatticeNetPropsDlg
Status = Dialog(LatticeNetDlg)

'************************************
' User hit OK ---> set properties
'************************************
IF Status = -1 THEN
	IF Len(LatticeNetDlg.CLK) > 0 THEN
		SetProperty "CLK", LatticeNetDlg.CLK
		DisplayProperty "CLK", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.GROUP) > 0 THEN
		SetProperty "GROUP", LatticeNetDlg.GROUP
		DisplayProperty "GROUP", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.PRESERVE) > 0 THEN
		SetProperty "PRESERVE", LatticeNetDlg.PRESERVE
		DisplayProperty "PRESERVE", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.SAP_EAP) > 0 THEN
		SetProperty "SAP/EAP", LatticeNetDlg.SAP_EAP
		DisplayProperty "SAP_EAP", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.SCP_ECP) > 0 THEN
		SetProperty "SCP/ECP", LatticeNetDlg.SCP_ECP
		DisplayProperty "SCP_ECP", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.SNP_ENP) > 0 THEN
		SetProperty "SNP/ENP", LatticeNetDlg.SNP_ENP
		DisplayProperty "SNP_ENP", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.CRIT) > 0 THEN
		SetProperty "CRIT", LatticeNetDlg.CRIT
		DisplayProperty "CRIT", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.LOCK) > 0 THEN
		SetProperty "LOCK", LatticeNetDlg.LOCK
		DisplayProperty "LOCK", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.PULLUP) > 0 THEN
		SetProperty "PULLUP", LatticeNetDlg.PULLUP
		DisplayProperty "PULLUP", "", 0, FALSE, FALSE, 48, 0
	END IF

	IF Len(LatticeNetDlg.SLOWSLEW) > 0 THEN
		SetProperty "SLOWSLEW", LatticeNetDlg.SLOWSLEW
		DisplayProperty "SLOWSLEW", "", 0, FALSE, FALSE, 48, 0
	END IF

END IF

END SUB