; ////////////////////////////////////////////////////////////////////
; PIC 初期化
; ////////////////////////////////////////////////////////////////////
init_pic
		; 以下3ワード分は割り込みベクタ(org 4)の前に書いたYO!
		;bsf	STATUS,RP0	;セレクトページ１
		;movlw	B'bbbbbbbb'
		;movwf	OPTION_REG-0x80	;OPTION REG に書き込み
		
		movlw	B'00000000'	; RA? は全部OUT
		movwf	TRISA-0x80
		
		movlw	B'11110001'	; RB1-RB3ピンをOUT
		movwf	TRISB-0x80
		
		bcf	STATUS,RP0	;セレクトページ０

		clrf	PORTA
		clrf	PORTB

		; RAM初期化
		; 0c 〜 3f クリア
		movlw	0x0c
		movwf	FSR
ram_init_loop1
		clrf	INDF
		incf	FSR,F
		btfss	FSR,6
		goto	ram_init_loop1
	; 続いて 40 〜 4f クリア
ram_init_loop2
		clrf	INDF
		incf	FSR,F
		btfss	FSR,4
		goto	ram_init_loop2

		movlw	0xff
		movwf	rb_save

		;;;;;return
		; call return も勿体無い。