;********************************************************************** ;PIOTES1B 2001.11.30 ;DEVICE : PIC16F873 ;CLOCK : 20MHz ;PORT-Aの入力データをPORT-Bに出力する ;********************************************************************** list p=16F873 #include __CONFIG _CP_OFF & _WDT_OFF & _PWRTE_ON & _HS_OSC & _LVP_OFF ;********************************************************************** ORG 00H ; processor reset vector GOTO MAIN ; go to beginning of program MAIN BSF STATUS,RP0 ;メモリーバンクを１にセット MOVLW 06H ;Wレジスタに06Hをセット MOVWF ADCON1 ;ADCON1に06Hをセット PORTA全てデジタル MOVLW 0FFH ;WレジスタにFFHをセット MOVWF TRISA ;TRISAにFFHをセットPORT-Aを入力にセット CLRF TRISB ;TRISBをクリア PORT-Bを出力にセット MOVLW 80H ;Wレジスタに80Hをセット MOVWF OPTION_REG ;OPTION_REGに80Hをセット PORT-B PULL UPなし BCF STATUS,RP0 ;メモリーバンクを０にセット ;*********************************************************************** ;PORT-Aの入力データをPORT-Bに出力 ;*********************************************************************** LOOP MOVF PORTA,W ;WレジスタにPORTAのデータ取り込む MOVWF PORTB ;PORTBにPORTAのデータを出力する GOTO LOOP ;ラベルLOOPにジャンプ END