lpush2.asm
bitfixer_bitfixer/dg/z88dk/libsrc/z80_crt0s/crt0_long/8080/lpush2.asm
;
;       Small C+ Compiler
;       
;       Long Support Library
;	"8080" mode
;
;       29/4/2002 - Stefano

;       This routine is used to push longs on the stack for a 
;       call to a function defined as a pointer.

                XLIB    lpush2

.lpush2 pop	bc
	ld	(retloc+1),bc
        pop     bc      ;save next item on stack
        push    de      ;dump our long
        push    hl
        push    bc      ;store back "next item on stack"
.retloc jp	0
