;incdir	include:
	;ifnd	_LVOSupervisor
	;include	lvo/exec_lib.i
	;include	exec/exec_lib.i
	;endc
	;include exec/execbase.i
	;include	device.i


	ifnd	_LVORawDoFmt
_LVORawDoFmt			equ 	-$20a
	endc
	ifnd	_LVORawPutChar
_LVORawPutChar			equ 	-$204
_LVORawIOInit			equ	-$1f8
_LVORawMayGetChar		equ 	-$1fe
	endc

	XDEF	_KPrintF
	XDEF	_KPrintFa0a1

_KPrintF:
;	rts
	move.l	4(sp),a0
	lea	8(sp),a1
	; fall through

;A0 = format
;A1 = arguments
_KPrintFa0a1:
;	ifd	DEBUG

	movem.l	d0-d2/a0-a3/a6,-(sp)

	move.l	4.w,a6
	jsr	_LVORawIOInit(a6)		;better safe than sorry

	lea	.kprintfproc(pc),a2
	suba.l	a3,a3				;data pointer (0 here)
	jsr	_LVORawDoFmt(a6)	

	movem.l	(sp)+,d0-d2/a0-a3/a6
	rts
.kprintfproc:	
	movem.l	d0/d1/a0/a1/a6,-(sp)
	move.l	4.w,a6
	jsr	_LVORawPutChar(a6)	;	move.b	d0,(a3)+
	movem.l	(sp)+,d0/d1/a0/a1/a6

;	endc	;DEBUG

	rts

;DEBUG
;	dc.l	$deadbeef
;	dc.l	sds_SIZEOF
;	dc.l	sv_SIZEOF
;	dc.l	du_SIZEOF
;	dc.l	db_SIZEOF