LIST P=PIC16F648A ;PIC16F648を使う INCLUDE "P16F648A.INC" ;標準インクルードファイル読み込み __CONFIG _INTRC_OSC_NOCLKOUT & _CP_OFF & _WDT_OFF & _PWRTE_ON & _BODEN_ON & _LVP_OFF & _MCLRE_OFF BSF STATUS,RP0 ;Bankを1にする CLRF TRISB ;ポートBを全て出力に設定 MOVLW B'00000001' MOVWF TRISA ;ポートAのRA0だけを入力に設定 BCF STATUS,RP0 ;Bankを0に戻す MOVLW b'00000111' ; MOVWF CMCON ;コンパレータOFF MAIN BTFSC PORTA,0 ;入力判定 POTRA,0PIN =1 "GOTO LED_ON ;左上のピン入力があれば=0 GOTO LED_ON LED_OFF MOVLW B'00000000' ;ポートBのOFF MOVWF PORTB GOTO MAIN LED_ON MOVLW B'00000010' ;ポートBのRB1 ON MOVWF PORTB ;BSF PORTB,1 GOTO MAIN END