	load 'macros.dump'
	include 'driver.equ'
	include 'scrap.equ'
	include 'dbsc.equ'

X_DBScrapData	PROC	EXPORT
	EXPORT	X_DefaultDBFieldBlock
	EXPORT	X_EndDeafultDBBlock
	EXPORT	X_FieldRecord
	EXPORT	X_FieldHSize
	EXPORT	X_FieldAttr
	EXPORT	X_FieldWidth
	EXPORT	X_FieldRect
	EXPORT	X_FieldType
	EXPORT	X_FieldAlignment
	EXPORT	X_FieldStyle
	EXPORT	X_FieldColor
	EXPORT	X_FieldDisplay
	EXPORT	X_FieldDecimals
	EXPORT	X_FieldWS1
	EXPORT	X_FieldRFlags
	EXPORT	X_FieldWS2
	EXPORT	X_EndFieldRecord
	EXPORT	X_ScratchRect
	export	fieldrecsize
	export	minfieldsize

;Row block offsets

X_DefaultDBFieldBlock
	DC.L	0
	DC.W	X_DefaultDBAttr
	DC.W	X_DefaultDBWidth
	DS.B 8
	DC.W	0
	DC.W	0
	DC.W	1<<3
	DC.W	0
	DC.W	0
	DC.W	0
	DS.B 40
	DC.W	0
	DS.B 36

X_EndDeafultDBBlock

X_FieldRecord
X_FieldHSize	DS.B 4
X_FieldAttr	DS.B 2
X_FieldWidth	DS.B 2
X_FieldRect	DS.B 8
X_FieldType	DS.B 2
X_FieldAlignment	DS.B 2
X_FieldStyle	DS.B 2
X_FieldColor	DS.B 2
X_FieldDisplay	DS.B 2
X_FieldDecimals	DS.B 2
X_FieldWS1	DS.B 40
X_FieldRFlags	DS.B 2
X_FieldWS2	DS.B 36
X_EndFieldRecord

X_ScratchRect	DS.B 8

FieldRecSize	equ X_EndFieldRecord-X_FieldRecord
MinFieldSize	equ FieldRecSize+7
	ENDP

X_DBAworksData	PROC	EXPORT
	EXPORT	DBDate
	EXPORT	X_DBTime




DBDate	DS.B 4

X_DBTime	DS.B 4

	ENDP
	END

