Pic-thac Mac

**chuabietgi** · 31-12-2005, 02:45 PM

;================================================= ===========================
ORG 0x0000
GOTO MAIN

ORG 0x0005
MAIN
BANKSEL TRISB
CLRF TRISB ; đặt portb là output

MOVLW D'255'
MOVWF COUNT_L ; COUNT_L là 1 byte

BANKSEL PORTB
LOOP BSF PORTB, 0
CALL DELAY
BCF PORTB, 0
CALL DELAY
GOTO LOOP

;================================================= ============================
; Các chương trình con
;================================================= ============================
DELAY DECFSZ COUNT_L, F
GOTO DELAY
RETURN

;================================================= ============================
GOTO $
END

31-12-2005, 02:45 PM	#1
chuabietgi Đệ tử 1 túi Tham gia ngày: Nov 2005 Bài gửi: 17 :	Pic-thac Mac ;================================================= =========================== ORG 0x0000 GOTO MAIN ORG 0x0005 MAIN BANKSEL TRISB CLRF TRISB ; đặt portb là output MOVLW D'255' MOVWF COUNT_L ; COUNT_L là 1 byte BANKSEL PORTB LOOP BSF PORTB, 0 CALL DELAY BCF PORTB, 0 CALL DELAY GOTO LOOP ;================================================= ============================ ; Các chương trình con ;================================================= ============================ DELAY DECFSZ COUNT_L, F GOTO DELAY RETURN ;================================================= ============================ GOTO $ END