viết chương trình nháy LED dùng biến trở ngoài...

[Echip]

Chào mọi người, e đang làm mạch nháy LED e tận dụng mạch mua sẵn ở chợ, trong mạch họ có ráp 1 con trans C1815, 2 con trở 1K, 1 biến trở 50K và 1 con tụ 100uF tạo thành mạch dao động, vậy mọi người chỉ giúp e cách viết sao cho có thể dùng biến trở này để chỉnh tốc độ nháy của LED với ạ...
e viết như sau mà ko dc ạ...

ORG 0000H
MAIN:; Bat dau chuong trinh chinh
CALL CTA;Goi chuong trinh con sang dan tu tren xuong duoi
CALL CTB;Goi chuong trinh con sang dan tu duoi len tren
JMP MAIN
;-----------chuong trinh con sang dan tu tren xuong duoi--------------------------
CTA:
MOV P2,#00000000B;tat ca cac bit led deu tat
CALL bientro
MOV P2,#00000001B;bit led P2.0 sang
CALL bientro
MOV P2,#00000011B;bit led P2.0-P2.1 sang
CALL bientro
MOV P2,#00000111B;bit led P2.0-P2.1-P2.2sang
CALL bientro
MOV P2,#00001111B;bit led P2.0-P2.1-P2.2-P2.3 sang
CALL bientro
MOV P2,#00011111B;bit led P2.0-P2.1-P2.2-P2.3-P2.4 sang
CALL bientro
MOV P2,#00111111B;bit led P2.0-P2.1-P2.2-P2.3-P2.4-P2.5 sang
CALL bientro
MOV P2,#01111111B;bit led P2.0-P2.1-P2.2-P2.3-P2.4-P2.5-P2.6 sang
CALL bientro
MOV P2,#11111111B;tat ca cac bit led deu sang
CALL bientro
RET

;-------------chuong trinh con sang dan tu duoi len tren-------------------------
CTB:
MOV P2,#00000000B
CALL bientro
MOV P2,#10000000B
CALL bientro
MOV P2,#11000000B
CALL bientro
MOV P2,#11100000B
CALL bientro
MOV P2,#11110000B
CALL bientro
MOV P2,#11111000B
CALL bientro
MOV P2,#11111100B
CALL bientro
MOV P2,#11111110B
CALL bientro
MOV P2,#11111111B
CALL DELAY
RET
bientro:
mov r1,#4
DELAY:
Mov r2,#20
setb p2.0,$
Djnz r2,$
clr p2.0
Jnb p2.1,$


các bác xem thử giúp e với, ko biết sai chỗ nào nữa.... cám ơn các bác....