antoine-source/appleworksgs/Scrap/Src/shell.aii

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

	import	X_ScPLtoAsciiScrap
	import	X_ScWPtoAsciiScrap
	import	X_ScSStoAsciiScrap
	import	X_ScPLtoWPScrap
	import	X_ScImportAsciitoWPScrap
	import	X_ScAsciitoWPScrap
	import	X_ScAWDBtoDBScrap
	import	X_ScInitFieldScanner
	import	X_ScMSGStoWPScrap
	import	X_ScDBtoPICT
	import	X_ScDBtoPLScrap
	import	X_ScWPtoPLScrap
	import	X_ScSStoPLScrap
	import	X_ScImportAsciitoPLText
	import	X_ScAWSStoSSScrap
	import	X_ScDoAsciitoSSScrap
	import	X_ScImportAsciitoSSScrap
	import	X_ScLoad_Picture
	import	X_ScReadWPScrap
	import	X_ScWriteWPScrap
	import	X_ScWriteThread
	import	X_ScImportWP
	import	X_ScAWWPtoWPScrap
	import	X_ScDoAsciitoDBScrap
	import	X_ScImportAsciitoDBScrap
	import	D_LoadSegment
	import	D_UnloadSegment
	import	X_ScDoAsciitoPLText

;DOASCII segment
X_PLtoAsciiScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segToAscii:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScPLtoAsciiScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToAscii:w,#0:w)

@exit	return
	ENDP
	
X_WPtoAsciiScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segToAscii:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScWPtoAsciiScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToAscii:w,#0:w)

@exit	return
	ENDP

X_SStoAsciiScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segToAscii:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScSStoAsciiScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToAscii:w,#0:w)

@exit	return
	ENDP

;TOWPTEXT segment
X_PLtoWPScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segToWPScrap:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScPLtoWPScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToWPScrap:w,#0:w)

@exit	return
	ENDP

X_AsciitoWPScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segToWPScrap:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScAsciitoWPScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToWPScrap:w,#0:w)

@exit	return
	ENDP



;IMPORTAWDB segment
X_AWDBtoDBScrap	PROC	EXPORT
	
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	stz	err
	
	call	D_LoadSegment,in=(#SegImportAWDB:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScAWDBtoDBScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#SegImportAWDB:w,#0:w)
	
@exit	return
	
	ENDP

;TODBSCRAP segment
X_DoAsciitoDBScrap	PROC	EXPORT

	input	Src:l,SepFlag:w,ScanFields:w
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	stz	err
	
	call	D_LoadSegment,in=(#segToDBScrap:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScDoAsciitoDBScrap,in=(Src:l,SepFlag:w,ScanFields:w),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToDBScrap:w,#0:w)
	
@exit	return
	ENDP

X_ImportAsciitoDBScrap	PROC	EXPORT
	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	stz	err
	
	call	D_LoadSegment,in=(#segToDBScrap:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScImportAsciitoDBScrap,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segToDBScrap:w,#0:w)
	
@exit	return
	ENDP



;IMPORTMSGS segment
X_MSGStoWPScrap	PROC	EXPORT

	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segImportMSGS:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScMSGStoWPScrap,in=(Src:l),Out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segImportMSGS:w,#0:w)
	
@exit	return

	ENDP


;TOPICT segment
X_DBtoPICT	PROC	EXPORT

	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segTOPICT:w,#0:w),out=(ax:l),err=err
	jcs	@exit
	
	call	X_ScDBToPICT,in=(Src:l),out=(Dest:l),err=err
	
	call	D_UnloadSegment,in=(#segTOPICT:w,#0:w)

@exit	return

	ENDP


;TOSTATTEXT segment
X_DBtoPLScrap	PROC	EXPORT

	input	Src:l
	
	output	Dest:l
	
	error	err
	
	begin	+b
	
	call	D_LoadSegment,in=(#segTOSTATTEXT:w,#0:w),out=(ax:l),err=err