S
snabilat
Guest
Здравейте тук е подпрограма за кал.от 1 сек забавяне
HUNDERED EQU 100
COUNT EQU -10000, 100 * 10000 US = 1sec
Забавяне: MOV R7, # HUNDERED
Отново: MOV ТН0, # ВИСОКО COUNT
MOV TL0, нисък брой
SETB TR0
WAIT2: JNB TF0, $
CLR TF0
CLR TR0
DJNZ R7, отново
RET
КРАЙ
************************************************** **
Използваната часовник е 12MHz.
HUNDERED EQU 100
COUNT EQU -10000, 100 * 10000 US = 1sec
Забавяне: MOV R7, # HUNDERED
Отново: MOV ТН0, # ВИСОКО COUNT
MOV TL0, нисък брой
SETB TR0
WAIT2: JNB TF0, $
CLR TF0
CLR TR0
DJNZ R7, отново
RET
КРАЙ
************************************************** **
Използваната часовник е 12MHz.