; 
; 	*= 0x100
; 
; @f:
; 	psh bp
 0x0100 0x52
; 	lbp sp
 0x0101 0x71
; 	@x = -6
; 	lea [bp + @x]	; cargar el apuntador x en B
 0x0102 0x82
 0x0103 0xfa
 0x0104 0xff
; 	lda [b]			; desreferencia de x
 0x0105 0x44
; 	psh a
 0x0106 0x50
; 	lda #1
 0x0107 0x42
 0x0108 0x01
 0x0109 0x00
; 	add				; sumarle 1
 0x010a 0x10
; 
; 	lea [bp + @x]	; cargar el apuntador x en b
 0x010b 0x82
 0x010c 0xfa
 0x010d 0xff
; 	sta [b]			; guardar resultado en desreferencia de x
 0x010e 0x4c
; 	lsp bp
 0x010f 0x79
; 	pop bp
 0x0110 0x62
; 	rtn
 0x0111 0x3c
; 
; @main:
; 	psh bp
 0x0112 0x52
; 	lbp sp		
 0x0113 0x71
; 
; 	psh 2			; variable local u
 0x0114 0x53
 0x0115 0x02
 0x0116 0x00
; 	@u= 0 
; 
; 	irq rd_int
 0x0117 0x3d
 0x0118 0x03
 0x0119 0x00
; 	sta [bp+@u]
 0x011a 0x4d
 0x011b 0x00
 0x011c 0x00
; 
; 	lea bp+@u		;	direccion de u
 0x011d 0x81
 0x011e 0x00
 0x011f 0x00
; 	psh b			;	paso por referencia a u
 0x0120 0x51
; 	jsr @f			;   invocamos a f
 0x0121 0x3a
 0x0122 0x00
 0x0123 0x01
; 	pop 2			; 	sacamos el argumento
 0x0124 0x63
 0x0125 0x02
 0x0126 0x00
; 
; 	lda [bp + @u]	;	imprimir a u.
 0x0127 0x45
 0x0128 0x00
 0x0129 0x00
; 	irq pr_int
 0x012a 0x3d
 0x012b 0x01
 0x012c 0x00
; 
; 	lsp bp
 0x012d 0x79
; 	pop bp
 0x012e 0x62
; 	rtn
 0x012f 0x3c
; @stk:
; 	end @main, @stk
< 0x0112 0x0130
;