;
;       実験１ 入出力テストプログラム
;
; CONFIG1
 __CONFIG _CONFIG1, _FOSC_XT & _WDTE_OFF & _PWRTE_ON & _MCLRE_ON & _BOREN_OFF & _LVP_OFF & _CPD_OFF & _WRT_OFF & _CCPMX_RB0 & _CP_OFF
; CONFIG2
 __CONFIG _CONFIG2, _FCMEN_ON & _IESO_ON

        list            p=16F87
        include         <p16F87.inc>
        ORG             0x000           ; リセットベクタを 0番地に指定

        BSF             STATUS,RP0      ; STATUSのビットPR0をセット(BANK 1)
        MOVLW           B'00001111'     ; Wレジスタに'00001111'を転送
        MOVWF           TRISA           ; Aポートの下位4bitを入力に設定
        CLRF            TRISB           ; Bポートを全て出力に設定
        BCF             STATUS,RP0      ; STATUSのビットPR0をセット(BANK 0)
        CLRF            PORTA           ; Aポートをクリア

LB0     MOVF            PORTA,W         ; Aポートの状態をWレジスタに転送
        MOVWF           PORTB           ; Wレジスタの値をBポートに転送
        GOTO            LB0             ; ラベルLB0へジャンプ
        END