; 	*= 0x100
; 
; @fac:
; 	@n= -6		; 	parametro n
; 	psh bp
 0x0100 0x52
; 	lbp sp		;  marco de referencia de fac()
 0x0101 0x71
; 	
; 	lda [bp + @n]
 0x0102 0x45
 0x0103 0xfa
 0x0104 0xff
; 	tst
 0x0105 0x24
; 	jne @1		;	n==0?
 0x0106 0x31
 0x0107 0x0f
 0x0108 0x01
; 	
; 	lda #1		;	si, fac <- 1
 0x0109 0x42
 0x010a 0x01
 0x010b 0x00
; 	jmp @2		
 0x010c 0x38
 0x010d 0x23
 0x010e 0x01
; @1:	lda [bp+@n] ;	no, fac <- n * fac(n-1)	
 0x010f 0x45
 0x0110 0xfa
 0x0111 0xff
; 	psh a
 0x0112 0x50
; 	lda [bp+@n]
 0x0113 0x45
 0x0114 0xfa
 0x0115 0xff
; 	psh a
 0x0116 0x50
; 	lda #1
 0x0117 0x42
 0x0118 0x01
 0x0119 0x00
; 	sub
 0x011a 0x11
; 	psh a
 0x011b 0x50
; 	jsr @fac
 0x011c 0x3a
 0x011d 0x00
 0x011e 0x01
; 	pop 2
 0x011f 0x63
 0x0120 0x02
 0x0121 0x00
; 	mul
 0x0122 0x12
; @2:
; 	lsp bp
 0x0123 0x79
; 	pop bp
 0x0124 0x62
; 	rtn
 0x0125 0x3c
; 
; @main:
; 	psh bp		;  marco de referencia de main()
 0x0126 0x52
; 	lbp sp
 0x0127 0x71
; 
; 	lda #5
 0x0128 0x42
 0x0129 0x05
 0x012a 0x00
; 	psh a
 0x012b 0x50
; 	jsr @fac
 0x012c 0x3a
 0x012d 0x00
 0x012e 0x01
; 	pop 2
 0x012f 0x63
 0x0130 0x02
 0x0131 0x00
; 	irq pr_int
 0x0132 0x3d
 0x0133 0x01
 0x0134 0x00
; 
; 	lsp bp
 0x0135 0x79
; 	pop bp
 0x0136 0x62
; 	rtn
 0x0137 0x3c
; @pila:
; 	end @main, @pila
< 0x0126 0x0138
;