[chuabietgi]

;================================================= ===========================
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