ozline.asm
bitfixer_bitfixer/dg/z88dk/libsrc/oz/emu/ozgfx/ozline.asm
;
;	OZ-7xx DK emulation layer for Z88DK
;	by Stefano Bodrato - Oct. 2003
;
;	void ozline(int x,int y,int x2,int y2,byte color);
;
; ------
; $Id: ozline.asm,v 1.2 2015/01/19 01:33:01 pauloscustodio Exp $
;

	PUBLIC	ozline

        EXTERN     swapgfxbk
        EXTERN     swapgfxbk1

	EXTERN     line
        EXTERN     ozplotpixel
        
        EXTERN	ozpointcolor


.ozline
		ld	ix,0
		add	ix,sp
		call	ozpointcolor

		ld	l,(ix+8)	;y0
		ld	h,(ix+10)	;x0
		ld	e,(ix+4)	;y1
		ld	d,(ix+6)	;x1
		call    swapgfxbk
		push	hl
		push    de
		call	ozplotpixel
		pop     de
		pop	hl
                ld      ix,ozplotpixel
                call    line
                jp      swapgfxbk1
