Lập nhóm PIC16F877A

**trungduc** · 06-11-2008, 02:30 PM

Chào qui vi,
Toi mới học PIC mấy ngày có 1 đọan chương trình giải không ra. Xin các bậc tiền bối chỉ giáo cho tại sao bấm nút mà không có tác dụng gì hết.
TITLE "TEST SWITCH PORTB"
PROCESSOR PIC16f877A
INCLUDE<P16f877A.inc>
__CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_ON & _CPD_OFF

;--------------------------------------------------------------------------
; Program Code
;--------------------------------------------------------------------------

ORG 0x000 ;reset vector
goto MAIN
MAIN
Start call Init ;Initialise hardware

Loop btfss PORTB,0 ;Is "ON" button pressed?
bsf PORTA,0 ; Yes - LED on
btfss PORTB,1 ;Is "OFF" button pressed?
bcf PORTA,0 ; Yes - LED off
goto Loop ;

;--------------------------------------------------------------------------
; Subroutines
;--------------------------------------------------------------------------

;*****Init - set up all ports, make unused ports outputs

Init clrf PORTA ;all of porta low
clrf PORTB ;all of portb low

bsf STATUS, RP0 ;change to bank1
movlw b'00000000' ;all outputs except
movwf TRISA ;
; movlw b'11111111' ;all inputs
; movwf TRISB ;
bcf STATUS, RP0 ;back to bank0

return

END ;Stop assembling here

Similar Threads
Ðề tài	Người gửi	Chuyên mục	Trả lời	Bài mới
TUT về USART trong PIC16F877A	mafd_47a	MPASM	16	19-02-2025 05:32 AM
TUT ve I2C ( pic16f877a )	mafd_47a	MPASM	28	28-01-2025 10:45 PM
Bộ so sánh và PWM cho PIC16F877A	anhquangngai	Cơ bản về vi điều khiển và PIC	24	08-09-2012 09:00 AM
Pic16f877a TỪ DỄ TỚi KhÓ	ntc	Cơ bản về vi điều khiển và PIC	373	23-05-2009 10:24 PM
CCS C for PIC16F877A	nhh	Các ngôn ngữ lập trình khác (CCS C, HT PIC,...)	405	24-04-2008 12:00 PM

06-11-2008, 02:30 PM	#11
trungduc Đệ tử 2 túi Tham gia ngày: Oct 2008 Bài gửi: 44 :	Chào qui vi, Toi mới học PIC mấy ngày có 1 đọan chương trình giải không ra. Xin các bậc tiền bối chỉ giáo cho tại sao bấm nút mà không có tác dụng gì hết. TITLE "TEST SWITCH PORTB" PROCESSOR PIC16f877A INCLUDE<P16f877A.inc> __CONFIG _CP_OFF & _WDT_OFF & _BODEN_OFF & _PWRTE_ON & _XT_OSC & _WRT_OFF & _LVP_ON & _CPD_OFF ;-------------------------------------------------------------------------- ; Program Code ;-------------------------------------------------------------------------- ORG 0x000 ;reset vector goto MAIN MAIN Start call Init ;Initialise hardware Loop btfss PORTB,0 ;Is "ON" button pressed? bsf PORTA,0 ; Yes - LED on btfss PORTB,1 ;Is "OFF" button pressed? bcf PORTA,0 ; Yes - LED off goto Loop ; ;-------------------------------------------------------------------------- ; Subroutines ;-------------------------------------------------------------------------- ;*****Init - set up all ports, make unused ports outputs Init clrf PORTA ;all of porta low clrf PORTB ;all of portb low bsf STATUS, RP0 ;change to bank1 movlw b'00000000' ;all outputs except movwf TRISA ; ; movlw b'11111111' ;all inputs ; movwf TRISB ; bcf STATUS, RP0 ;back to bank0 return END ;Stop assembling here