* questo patch non funziona!! se no era troppo bello :-)
* pero' e' alla base del ragionamento
* forse non funziona per via del checksum della dos.library
* forse perche la closelibrary dealloca tutto, e la openlib rialloca
* una struttura del tutto nuova (se apro 2 volte la dos lib ottengo 2
* puntatori diveri? ) mi scoccia a provarlo :-)
* se mi dite che son lamer, vi rispondo : ecchissenefotte!!!

	move.l	$4,a6			* Exec Base in a6
	move.l	#(End-Start+1),d0	* Quantita' da allocare
	moveq	#1,d1			* Memoria Public
	jsr	-198(a6)		* AllocMem
	move.l	d0,alloc		* Conserva l'indirizzo

	lea	dosno,a1		* a1 punta a dos.lib
	moveq	#0,d0			* qualsiasi versione
	jsr	-552(a6)		* open library
	move.l	d0,d1
	sub.l	#196,d1
	move.l	d1,adddel
	move.l	d1,a1
	move.l	(a1),olddel
	move.l	d0,a1
	jsr	-414(a6)		* close dos library
	
	move.l	alloc,a1		* a1 = destinazione
	lea	Start,a0		* a0 = sorgente
	move.l	#(End-Start+1),d0		* dim blocco
copy:	move.b	(a0)+,(a1)+
	dbra	d0,copy

	move.l	alloc,d0
	move.l	adddel,a1
	move.l	d0,(a1)
	rts

Start:	and.l	#120,d1
	dc.w	$4ef9
olddel:	dc.l	0
End:	

alloc:	dc.l	0
adddel:	dc.l	0
dosno:	dc.b	'dos.library',0