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

	IMPORT	D_AlertBox
	IMPORT	X_AsciiFilter
	IMPORT	D_AuxHand
	IMPORT	D_BeachBall
	IMPORT	X_Blurb2
	IMPORT	X_Button1Text
	IMPORT	X_Button2Text
	IMPORT	X_Button3Text
	IMPORT	D_CloseDialog
	IMPORT	X_ContText
	IMPORT	D_CurCursor
	IMPORT	X_DefaultDBFieldBlock
	IMPORT	D_DigitsOnly
	IMPORT	X_FSBlurbString
	IMPORT	FSDialogTemplate
	IMPORT	X_FSScratch
	IMPORT	FieldRecSize
	IMPORT	X_FieldRecord
	IMPORT	X_FormatMask
	IMPORT	D_GetNewModalDialog
	IMPORT	D_GrowHandle
	IMPORT	X_InitFieldScanner
	IMPORT	D_NeedHand
	IMPORT	X_NextField
	IMPORT	X_OldCursor
	IMPORT	X_SStoAsciiScrap
	IMPORT	X_PLtoAsciiScrap
	IMPORT	D_SetCursor
	IMPORT	X_WPtoAsciiScrap
	IMPORT	X_DBButton1Text
	IMPORT	X_DBButton2Text
	IMPORT	X_DBButton3Text
	IMPORT	X_DBContText
	entry	X_AsciitoDBScrap
	
	import	X_DoAsciitoDBScrap

X_SStoDBScrap	PROC	EXPORT
	;Using X_SSScrapData
	;Using X_ClipData
	;Using D_CursorData

	input Src:l

	local Intermed:l,Isize:l

	output Dest:l

	error err

	begin +b

	movelong #(-1-X_SSCellParenNeg),X_FormatMask

	SpaceLong
	PushLong Src
	jsl X_SStoAsciiScrap
	sta err
	PullLong Intermed
	jcs exit

	SpaceLong
	PushLong Intermed
	_GetHandleSize
	PullLong Isize

	DecLong Isize

	PushLong Isize
	PushLong Intermed
	jsl D_GrowHandle

	SpaceLong
	PushLong Intermed
	jsl X_AsciitoDBScrap
	sta err
	PullLong Dest

	PushLong Intermed
	_DisposeHandle

exit	movelong #-1,X_FormatMask
	return err

	ENDP


X_SWtoDBScrap	PROC	EXPORT

	input Src:l

	local Intermed:l

	output Dest:l

	error err

	begin

	SpaceLong
	PushLong Src
	jsl X_PLtoAsciiScrap
	sta err
	PullLong Intermed
	jcs exit

	SpaceLong
	PushLong Intermed
	jsl X_AsciitoDBScrap
	sta err
	PullLong Dest

	PushLong Intermed
	_DisposeHandle

exit	return
	ENDP

X_WPtoDBScrap	PROC	EXPORT

	input Src:l

	local Intermed:l

	output Dest:l

	error err

	begin

	SpaceLong
	PushLong Src
	jsl X_WPtoAsciiScrap
	sta err
	PullLong Intermed
	jcs exit

	SpaceLong
	PushLong Intermed
	jsl X_AsciitoDBScrap
	sta err
	PullLong Dest

	PushLong Intermed
	_DisposeHandle

exit	return
	ENDP

X_AsciitoDBScrap	PROC	EXPORT
	;Using X_FieldScannerData

	input Src:l

	output Dest:l

	error err

	begin

	SpaceLong
	PushLong Src
	PushWord #X_TabCR
	pea 0
	jsl X_DoAsciitoDBScrap
	sta err
	PullLong Dest

	return
	ENDP


	END

