// newmsg.df


structure UFOP:
	[
	blank	bit 1
	fIncrement	bit 1
	iff	bit 6
	ffv	bit 8
	]
manifest	[
	ufopFIncrement = #40000

	iffNil		= -1

	iffTrailer	= #0
	iffVisibuf	= #1
	iffUl		= #2
	iffVanish		= #3
	iffBold		= #4
	iffItalic		= #5
	iffExt		= #6
	iffVisible	= #7
	iffFun		= #10
	iffSuper		= #11

	iffXrightmarg	= #12
	iffXleftmarg	= #13
	iffXleftmargf	= #14
	iffProcYpos	= #15
	iffLdln		= #16
	iffLdhdr		= #17
	iffRj		= #20
	iffCenter		= #21

	iffProcClr	= #22
	iffProcUp	= #23
	iffProcDown	= #24
	iffProcDxtb	= #25
	iffProcXtb	= #26

	iffRjCenter	= #27
	iffProcSameLooks	= #30
	iffProcSamePar	= #31
	iffProcLeftmarg	= #32
	iffProcColumn	= #33
	iffControl	= #34
	iffYkeep		= #35
	iffProcSub	= #36
	iffOvstrike	= #37
	iffTc		= #40

	iffMax		= #41
// mpiff<foo> in initmsg sendmsg unparse

//	iffUppercase	= #41
//	iffLowercase	= #42
//	iffCase		= #43
//	iffProcTable	= #44

	visibufbits = #201
	tcbits = #170000
//	casebits = #3000

	cfopargMax = 2
	lnufopMax = (size UFOP / 16) + cfopargMax
	]


structure FOP:
	[
	[ fIndirect	bit 1
	fopi	bit 15 ] =	[ @UFOP ]
	]
manifest	[
	lnfop = size FOP / 16
	fopNil = -1
	fopIndirect = #100000
	]


structure MUFOP:
	[
	cw	word
	ufop	word
	]
manifest	[
	lnmufopMin = lnfop + 1
	]


structure FFS:
	[
	iw	bit 7
	offbitRt	bit 4
	cbit	bit 5
	]
manifest	[
	iwLook1 = 0
	iwLook2 = 1
	iwMinpar = 2
	]


structure FFP:
	[
	fParop	bit 1
	fProcval	bit 1
	fArgDep	bit 1
	blank	bit 5
	carg	bit 8
	]
manifest	[
	ffpParop = #100000 rshift (offset FFP.fParop)
	ffpProcval = #100000 rshift (offset FFP.fProcval)
	ffpArgDep = #100000 rshift (offset FFP.fArgDep)
	]