ozportin.asm
bitfixer_bitfixer/dg/z88dk/libsrc/oz/ozmisc/ozportin.asm
;
;	Sharp OZ family functions
;
;	ported from the OZ-7xx SDK by by Alexander R. Pruss
;	by Stefano Bodrato - Oct. 2003
;
;	char ozportin(char port)
;
; ------
; $Id: ozportin.asm,v 1.2 2015/01/19 01:33:02 pauloscustodio Exp $
;

	PUBLIC	ozportin
	
	
ozportin:
        ld      hl,2
        add     hl,sp
        ld      c,(hl)
        in      l,(c)
        ld      h,0
        ret