.define Ldi, Ldo

! The subroutine Ldi pushes a four byte object onto the stack.
! The address is in registerpair AX.
! If the address is already in zeropage Ldo is used.


Ldi:
	stx ADDR	! address of object (lowbyte)
	sta ADDR+1	! address of object (highbyte)
Ldo:
	ldy #3
    1:	lda (ADDR),y	! get lowbyte
	pha
	dey
	lda (ADDR),y	! get highbyte
	tax
	pla
	jsr Push	! do the push
	dey
	bpl 1b		! perform 2 times
	rts