oldopenfile: macro			;a0 = filename
 ;diskopt_currantfile set filebase	;for all DOS functions for A5 offset

	move.l a0,d1
	move.l #1005,d2
	move.l dosbase(a5),a6
	jsr -30(a6)
	move.l d0,diskopt_currantfile(a5)
	endm