<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">***************************************************************************************
* WinCopy subroutine for DOpusFuncs.s						      *
***************************************************************************************
WinCopy
	Tst.l	WinCopy_S(a5)
	Bne.s	WinCopy_DoIt
	RTS
WinCopy_DoIt
	Sub.l	d0,d0			Abort if there isn't a source lister.
	Bsr	GetSourceHandle		Get the source lister's handle -&gt; Source_Handle

	Moveq	#1,d0			Open new dest if one doesn't exist.
	Bsr	GetDestHandle		Get the dest lister's handle -&gt; Dest_Handle
;-------------------------------------------------------------------------------------;
	Lea	Source_Handle(a5),a0	-.
	Lea	PathBuffer1(a5),a1	 |_ Source path
	Move.w	#PathBuffer1Len,d7	 |  to PathBuffer1
	Bsr	GetListerPath		-'

	Sub.l	d0,d0			Don't force into current path buffer.
	Lea	Dest_Handle(a5),a0	-.
	Lea	PathBuffer1(a5),a1	 |- Read old Source path -&gt; Destination.
	Bra	ReadListerPath		-'
;;;;;;;	RTS for us.
</pre></body></html>