lp_gint.asm
bitfixer_bitfixer/dg/z88dk/libsrc/farz88/lp_gint.asm
; Internal routine to read int at far pointer
; 31/3/00 GWL

; Entry: EHL=far pointer
; Exit: HL=word

;
; $Id: lp_gint.asm,v 1.3 2015/01/19 01:32:43 pauloscustodio Exp $
;

        PUBLIC    lp_gint

        EXTERN     farseg1,incfar


.lp_gint
        ld      a,($04d1)
	ex	af,af'
        ld      b,h
        ld      c,l
        call    farseg1
        ld      a,(hl)
        call    incfar
        ld      h,(hl)
        ld      l,a
        ex	af,af'
        ld      ($04d1),a
        out     ($d1),a
        ret

