- 积分
- 3553
- 下载分
- 分
- 威望
- 点
- 原创币
- 点
- 下载
- 次
- 上传
- 次
- 注册时间
- 2014-11-13
- 精华
|
马上注册,获取阅读精华内容及下载权限
您需要 登录 才可以下载或查看,没有帐号?注册
x
外部中断控制
;--------------INT0中断设置------------
ORG 00H
JMP START
ORG 03H
JMP EXT0
START:MOV IE, #10000001B ;T0中断开通
MOV IP, #00000001B ;T0优先中断
MOV TCON,#00000000B ;低电平触发
MOV SP, #70H ;
;--------亮灯左移------------
LOOP: MOV R0, #8
MOV A, #0FEH
LOOP1:MOV P0, A
ACALL DELAY
RL A
DJNZ R0, LOOP1
;--------亮灯右移----------------
MOV R0, #8
LOOP2:RR A
MOV P0, A
LCALL DELAY
DJNZ R0, LOOP2
JMP LOOP
;-------中断程序------------------
EXT0 USH ACC
PUSH PSW
SETB RS0
CLR RS1
MOV R0, #8
MOV A, #00H
LOOP3:MOV P0, A
LCALL DELAY
CPL A
DJNZ R0, LOOP3
POP PSW
POP ACC
RETI
;--------------------------
;1s延时程序
;-------------------------------
DELAY:MOV R5, #50
DLY1: MOV R6, #100
DLY2: MOV R7, #100
DJNZ R7, $
DJNZ R6, DLY2
DJNZ R5, DLY1
RET
END
|
|
|