مولد پالس

[Misaghsepehr]

پاسخ : مولد پالس

بفرمایید(امتحانش کردم)دلیلش این بود که زمان delay_2 اونقدر کم بود که به چشم نمیومد(قسمتهایی که به قبل از MAIN اضافه شدن برای صفر کردن رم هستن اگه دوست نداشتین میتونین حذفشون کنین،تنها مشکلی که ممکنه پیش بیاد اینه که برای بار اول LED دقیقه برای ثانیه 60ام چشمک نمیزنه اما برای دفعات بعد دیگه درست میشه).عید شما هم مبارک. :applause:موفق باشید-میثاق

;----------------------------------------------------------------------
ORG 0000
USING 00
MOV 32H,#00
MOV 31H,#00
MOV 30H,#00
MOV P1,#00
MAIN:
CALL DELAY
CALL ISR
JMP MAIN
;----------------------------------------------------------------------
ISR:
INC 30H
CPL P1.0
CALL DELAY_2
CPL P1.0
MOV R6,30H
CJNE R6,#3CH,EXIT
MOV 30H,#00
CPL P1.1
CALL DELAY_2
CPL P1.1
INC 31H
MOV R6,31H
CJNE R6,#3CH,EXIT
MOV 31H,#00
CPL P1.2
CALL DELAY_2
CPL P1.2
INC 32H
MOV R6,32H
CJNE R6,#0CH,EXIT
MOV 32H,#00
EXIT:
RET
;----------------------------------------------------------------------
DELAY:
MOV R2,#50
THERE:
MOV R1,#100
HERE:
MOV R0,#100
DJNZ R0,$
DJNZ R1,HERE
DJNZ R2,THERE
RET
;----------------------------------------------------------------------
DELAY_2:
MOV R2,#100
THERE_2:
MOV R1,#100
HERE_2:
MOV R0,#1
DJNZ R0,$
DJNZ R1,HERE_2
DJNZ R2,THERE_2
RET
END

[alireza_2007]

پاسخ : مولد پالس

نمیدانم با چه زبانی تشکر کنم شما مرام و دوستی را به حد اعلا رساندین
باشد که جبران کنیم