.EQU @,$000
	.EQU one,1
	.EQU three,3
	JSR GET_NUM
	STA n
	LDA n
	CMA# three		
	JGE if			
	LDA# one		
	STA fib			
if:	LDA# one		
	STA fib1		
	STA fib2		
	LDA# three		
	STA i			
for:	LDA i			
	CMA n			
	JGT done		
	LDA fib1		
	ADA fib2		
	STA fib			
	LDA fib1		
	STA fib2		
	LDA fib			
	STA fib1		
	INC i			
	JMP for
done:	LDA #'F'		
	JSR PUT_CHR		
	LDA #'i'		
	JSR PUT_CHR		
	LDA #'b'		
	JSR PUT_CHR		
	LDA #'('		
	JSR PUT_CHR		
	LDA n			
	JSR PUT_NUM2		
	LDA #')'		
	JSR PUT_CHR		
	LDA #' '		
	JSR PUT_CHR		
	LDA #'i'		
	JSR PUT_CHR		
	LDA #'s'		
	JSR PUT_CHR		
	LDA #' '		
	JSR PUT_CHR		
	LDA fib			
	JSR PUT_NUM2		
	LDA #'.'		
	JSR PUT_CHR		
	HLT			
i:	.WORD 
n:	.WORD 
fib:	.WORD 
fib1:	.WORD 
fib2:	.WORD
		.END			

	;;記号 アドレス/数値
	;; one    1
	;; three  3
	;; i	$
	;; n	$
	;; fib	$
	;; fib1	$
	;; fib2	$
	;; if	$
	;; for	$
	;; done	$