*= 0x100

@f:
	psh bp
	lbp sp
	@x = -6
	lea [bp + @x]	; cargar el apuntador x en B
	lda [b]			; desreferencia de x
	psh a
	lda #1
	add				; sumarle 1

	lea [bp + @x]	; cargar el apuntador x en b
	sta [b]			; guardar resultado en desreferencia de x
	lsp bp
	pop bp
	rtn

@main:
	psh bp
	lbp sp		

	psh 2			; variable local u
	@u= 0 

	irq rd_int
	sta [bp+@u]

	lea bp+@u		;	direccion de u
	psh b			;	paso por referencia a u
	jsr @f			;   invocamos a f
	pop 2			; 	sacamos el argumento

	lda [bp + @u]	;	imprimir a u.
	irq pr_int

	lsp bp
	pop bp
	rtn
@stk:
	end @main, @stk