;FHPRINTF.ASM
;
;  Handles formatted printing to Amiga file handles   w/ fhprintf

;
;   Manx assembler FAR stmts.

	FAR code
	FAR data

	xdef  _fhprintf
	xref  _Write
	xref  _LVORawDoFmt
	xref  _SysBase

_fhprintf
	jsr	 xformat   ;same thing
	jsr	 _Write
	lea.l	 268(A7),A7
	rts

	;XFORMAT takes a Xprintf(xx, cs, arg, arg...)  where xx is any
	;integer and returns (xx, buf, bytes) on the stack suitable for an
	;immediate call to xwrite() or Write().  The caller must deallocate
	;268 bytes from the stack when done.
	;
	;	  (oret)
	;  A2 A3 A4 A5 A6 RET FI BUF NUM <thebuffer> printfret fi cs args
	;  ^   ^	 ^
	;  1   2	 3


xformat
	move.l	 A7,A0		;sp now at pos. #3  A0 = pos #3
	sub.l	 #268,A7	;sp now at pos. #2  SP = pos #2
	move.l	 (A0),(A7)      ;copy return address
	move.l	 8(A0),4(A7)    ;copy fi or fh  to FI
	lea.l	 16(A7),A1      ;address of buffer
	move.l	 A1,8(A7)       ;place in     BUF
	movem.l  A2-A6,-(A7)    ;save regs   SP = pos #1
	move.l	 A1,A3		;A3 = buffer pointer
	lea.l	 16(A0),A1      ;A1 = lea of printf arg list
	move.l	 12(A0),A0      ;A0 = control string
	move.l	 #_xc,A2	;A2 = call vector

	move.l	 _SysBase,A6	;exec library call
	jsr	 _LVORawDoFmt(A6)

	move.l	 28(A7),A3      ;buffer start
loop	tst.b	 (A3)+          ;find end of string
	bne	 loop
	sub.l	 28(A7),A3      ;get string length
	subq.l	 #1,A3
	move.l	 A3,32(A7)      ;place in     NUM
	movem.l  (A7)+,A2-A6    ;restore registers used
	rts

_xc
	move.b	 D0,(A3)+
	rts